Commits

Bryan O'Sullivan committed 91c3129

Fix compilation error.

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
-               Nothing -> pure val
-               Just v  -> parseJSON v
+obj .:/ (key, val) = case H.lookup key obj of
+                       Nothing -> pure val
+                       Just v  -> parseJSON v
 {-# INLINE (.:/) #-}
 
-
 -- | Fail parsing due to a type mismatch, with a descriptive message.
 typeMismatch :: String -- ^ The name of the type you are trying to parse.
              -> Value  -- ^ The actual value encountered.