git.iko.soy/typeable/aeson
on master help sign in
Fix overflow bug in scientificToNumber
187bf96Bas van Dijk
Data/Aeson/Types/Instances.hs+1−1
compare with master
unifiedsplit
@@ -790,7 +790,7 @@ typeMismatch expected actual =
790
790
791scientificToNumber :: Scientific -> Number
791scientificToNumber :: Scientific -> Number
792scientificToNumber s
792scientificToNumber s
793− | e < 0 = D $ fromInteger c / 10 ^ negate e
793+ | e < 0 = D $ realToFrac s
794 | otherwise = I $ c * 10 ^ e
794 | otherwise = I $ c * 10 ^ e
795 where
795 where
796 e = Scientific.base10Exponent s
796 e = Scientific.base10Exponent s