@@ -669,7 +669,7 @@ withBool expected _ v = typeMismatch expected v
669{-# INLINE withBool #-}
669{-# INLINE withBool #-}
671-- | Decode a nested JSON-encoded string.
671-- | 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
673withEmbeddedJSON _ innerParser (String txt) =
673withEmbeddedJSON _ innerParser (String txt) =
674 either fail innerParser $ eitherDecode (Compat.fromStrict $ T.encodeUtf8 txt)
674 either fail innerParser $ eitherDecode (Compat.fromStrict $ T.encodeUtf8 txt)