Commits

basvandijk committed 4a87244

Fix bug in (.:/) M.lookup should now be H.lookup

Comments (0)

Files changed (1)

Data/Aeson/Types/Class.hs

 -- 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 (.:/) #-}