Fix overflow bug in scientificToNumber
commit187bf9628aa358f208637c37b1ef9e041f8389f0
authorBas van Dijk <v.dijk.bas@gmail.com>
dateWed 20 Nov 2013, 10:23 (13 years ago)
parentdc8de16
Data/Aeson/Types/Instances.hs+1−1
@@ -790,7 +790,7 @@ typeMismatch expected actual =
790790
791791scientificToNumber :: Scientific -> Number
792792scientificToNumber s
793− | e < 0 = D $ fromInteger c / 10 ^ negate e
793+ | e < 0 = D $ realToFrac s
794794 | otherwise = I $ c * 10 ^ e
795795 where
796796 e = Scientific.base10Exponent s