Merge pull request #611 from mithrandi/patch-1
Remove unnecessary constraint in withEmbeddedJSON
commit83ae4f9983c6755c669e2f5ef4655117ecb7837d
authorAdam Bergmark <adam@bergmark.nl>
dateTue 5 Dec 2017, 20:22 (9 years ago)
parentd404a8550074c6
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