Use Scientific.toRealFloat instead of realToFrac in scientificToNumber
commitbe4d0de895577c94dc8806ab342a443a94096aeb
authorBas van Dijk <v.dijk.bas@gmail.com>
dateWed 14 May 2014, 00:37 (12 years ago)
parent082eb4d
Data/Aeson/Types/Instances.hs+1−1
@@ -786,7 +786,7 @@ realFloatToJSON d
786786
787787scientificToNumber :: Scientific -> Number
788788scientificToNumber s
789− | e < 0 = D $ realToFrac s
789+ | e < 0 = D $ Scientific.toRealFloat s
790790 | otherwise = I $ c * 10 ^ e
791791 where
792792 e = Scientific.base10Exponent s