Remove unnecessary constraint in withEmbeddedJSON
Closes #610. I don't think any other changes are needed here besides deleting the constraint.
commit50074c6976e47e46ffba3681cd90538f5f91ea36
authorTristan Seligmann <mithrandi@mithrandi.net>
dateTue 5 Dec 2017, 05:01 (9 years ago)
parentd404a85
Data/Aeson/Types/FromJSON.hs+1−1
@@ -669,7 +669,7 @@ withBool expected _ v = typeMismatch expected v
669669{-# INLINE withBool #-}
670670
671671-- | Decode a nested JSON-encoded string.
672−withEmbeddedJSON :: (FromJSON a) => String -> (Value -> Parser a) -> Value -> Parser a
672+withEmbeddedJSON :: String -> (Value -> Parser a) -> Value -> Parser a
673673withEmbeddedJSON _ innerParser (String txt) =
674674 either fail innerParser $ eitherDecode (Compat.fromStrict $ T.encodeUtf8 txt)
675675 where