Use Scientific.toRealFloat instead of realToFrac in scientificToNumber
commit96c44188ab0fa3102243ad26d60a2dea1867fa15
authorBas van Dijk <v.dijk.bas@gmail.com>
dateWed 14 May 2014, 00:37 (12 years ago)
parent80889da
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