NorfairKing/autodocodec
1
1
Fork 0
mirror of https://github.com/NorfairKing/autodocodec.git synced 2024-11-30 03:22:52 +03:00
Code Issues Projects Releases Wiki Activity

fixed the bounded integer error message

Browse Source
This commit is contained in:
Tom Sydney Kerckhove 2021-11-06 02:16:23 +01:00
parent a6134dcdb9
commit ccd5a05ef7
3 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
autodocodec-api-usage/test_resources/error/int-error-big.txt
View File

@ -1 +1 @@
Error in $: Number too big: 1.0e10000
Error in $: Number did not fit into bounded integer: 1.0e10000

2
autodocodec-api-usage/test_resources/error/word-error-negative.txt
View File

@ -1 +1 @@
Error in $: Number too big: -3.0
Error in $: Number did not fit into bounded integer: -3.0

2
autodocodec/src/Autodocodec/Codec.hs
View File

@ -650,7 +650,7 @@ boundedIntegerCodec :: (Integral i, Bounded i) => JSONCodec i
boundedIntegerCodec = bimapCodec go fromIntegral $ NumberCodec Nothing
where
go s = case Scientific.toBoundedInteger s of
Nothing -> Left $ "Number too big: " <> show s
Nothing -> Left $ "Number did not fit into bounded integer: " <> show s
Just i -> Right i
-- | A codec for a literal piece of 'Text'.