Source

aeson / Data / Aeson / Types / Instances.hs

Diff from to

Data/Aeson/Types/Instances.hs

 
 scientificToNumber :: Scientific -> Number
 scientificToNumber s
-    | e < 0     = D $ realToFrac s
+    | e < 0     = D $ Scientific.toRealFloat s
     | otherwise = I $ c * 10 ^ e
   where
     e = Scientific.base10Exponent s