Add missing null handling:

#325
haskell · Dec 12, 2015 · d12fbe5 · d12fbe5
1 parent 4de5a20
commit d12fbe5
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/Data/Aeson/Types/Instances.hs b/Data/Aeson/Types/Instances.hs
@@ -1604,9 +1604,10 @@ obj .: key = case H.lookup key obj of
 -- value are mandatory, use '(.:)' instead.
 (.:?) :: (FromJSON a) => Object -> Text -> Parser (Maybe a)
 obj .:? key = case H.lookup key obj of
-               Nothing -> pure Nothing
-               Just v  -> modifyFailure addKeyName
-                        $ Just <$> parseJSON v <?> Key key
+               Nothing   -> pure Nothing
+               Just Null -> pure Nothing
+               Just v    -> modifyFailure addKeyName
+                         $ Just <$> parseJSON v <?> Key key
   where
     addKeyName = (("failed to parse field " <> unpack key <> ": ") <>)
 {-# INLINE (.:?) #-}