@@ -269,12 +269,9 @@ eitherDecodeWith p to s =
269269eitherDecodeStrictWith :: Parser Value -> (Value -> Result a) -> B.ByteString
270270 -> Either String a
271271eitherDecodeStrictWith p to s =
272− case A.parse p s of
273− A.Done _ v -> case to v of
274− Success a -> Right a
275− Error msg -> Left msg
276− A.Fail _ _ msg -> Left msg
277− A.Partial _ -> Left "incomplete input"
272+ case either Error to (A.parseOnly p s) of
273+ Success a -> Right a
274+ Error msg -> Left msg
278275{-# INLINE eitherDecodeStrictWith #-}
279276
280277-- $lazy