From 461d898948418c9092edd3d9e1e13a662f43eddd Mon Sep 17 00:00:00 2001 From: Bas van Dijk Date: Fri, 18 Nov 2011 02:48:59 +0100 Subject: [PATCH] Fix bug in (.:/) M.lookup should now be H.lookup --- Data/Aeson/Types/Class.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Data/Aeson/Types/Class.hs b/Data/Aeson/Types/Class.hs index 3c3937cda..5a477e696 100644 --- a/Data/Aeson/Types/Class.hs +++ b/Data/Aeson/Types/Class.hs @@ -716,7 +716,7 @@ obj .:? key = case H.lookup key obj of -- default value to assign in that case. If the key and value -- are mandatory, use '(.:)' instead. (.:/) :: (FromJSON a) => Object -> (Text, a) -> Parser a -obj .:/ (key, val) = case M.lookup key obj of +obj .:/ (key, val) = case H.lookup key obj of Nothing -> pure val Just v -> parseJSON v {-# INLINE (.:/) #-}