Merge
commit68aaa0f5c93d25afb92956af16d37fd670b1b8e4
authorBryan O'Sullivan <bos@serpentine.com>
dateFri 22 Nov 2013, 14:49 (13 years ago)
parentaf00293187bf96
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