@@ -716,12 +716,11 @@ obj .:? key = case H.lookup key obj of
716716-- default value to assign in that case. If the key and value
717717-- are mandatory, use '(.:)' instead.
718718(.:/) :: (FromJSON a) => Object -> (Text, a) -> Parser a
719−obj .:/ (key, val) = case M.lookup key obj of
720− Nothing -> pure val
721− Just v -> parseJSON v
719+obj .:/ (key, val) = case H.lookup key obj of
720+ Nothing -> pure val
721+ Just v -> parseJSON v
722722{-# INLINE (.:/) #-}
723723
724−
725724-- | Fail parsing due to a type mismatch, with a descriptive message.
726725typeMismatch :: String -- ^ The name of the type you are trying to parse.
727726 -> Value -- ^ The actual value encountered.