We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
2 parents 274b562 + 5106fa8 commit db36c30Copy full SHA for db36c30
src/Data/Aeson/Decoding.hs
@@ -69,7 +69,7 @@ decode bs = unResult (toResultValue (lbsToTokens bs)) (\_ -> Nothing) $ \v bs' -
69
| otherwise -> Nothing
70
A.IError _ _ -> Nothing
71
72
--- | Like 'decodeStrict' but returns an error message when decoding fails.
+-- | Like 'decode' but returns an error message when decoding fails.
73
eitherDecode :: (A.FromJSON a) => L.ByteString -> Either String a
74
eitherDecode bs = unResult (toResultValue (lbsToTokens bs)) Left $ \v bs' -> case A.ifromJSON v of
75
A.ISuccess x
0 commit comments