git.iko.soy/typeable/aeson
on master help sign in
Use Scientific.toRealFloat instead of realToFrac in scientificToNumber
be4d0deBas van Dijk
Data/Aeson/Types/Instances.hs+1−1
compare with master
unifiedsplit
@@ -786,7 +786,7 @@ realFloatToJSON d
786
786
787scientificToNumber :: Scientific -> Number
787scientificToNumber :: Scientific -> Number
788scientificToNumber s
788scientificToNumber s
789− | e < 0 = D $ realToFrac s
789+ | e < 0 = D $ Scientific.toRealFloat s
790 | otherwise = I $ c * 10 ^ e
790 | otherwise = I $ c * 10 ^ e
791 where
791 where
792 e = Scientific.base10Exponent s
792 e = Scientific.base10Exponent s