git.iko.soy/typeable/aeson
on master help sign in
Renamed fromRealFloat back to fromFloatDigits
80889daBas van Dijk
Data/Aeson/Types/Instances.hs+2−2
compare with master
unifiedsplit
@@ -56,7 +56,7 @@ import Data.Aeson.Functions
56import Data.Aeson.Types.Class
56import Data.Aeson.Types.Class
57import Data.Aeson.Types.Internal
57import Data.Aeson.Types.Internal
58import Data.Scientific (Scientific)
58import Data.Scientific (Scientific)
59−import qualified Data.Scientific as Scientific (coefficient, base10Exponent, fromRealFloat, toRealFloat)
59+import qualified Data.Scientific as Scientific (coefficient, base10Exponent, fromFloatDigits, toRealFloat)
60import Data.Attoparsec.Number (Number(..))
60import Data.Attoparsec.Number (Number(..))
61import Data.Fixed
61import Data.Fixed
62import Data.Hashable (Hashable(..))
62import Data.Hashable (Hashable(..))
@@ -781,7 +781,7 @@ typeMismatch expected actual =
781realFloatToJSON :: RealFloat a => a -> Value
781realFloatToJSON :: RealFloat a => a -> Value
782realFloatToJSON d
782realFloatToJSON d
783 | isNaN d || isInfinite d = Null
783 | isNaN d || isInfinite d = Null
784− | otherwise = Number $ Scientific.fromRealFloat d
784+ | otherwise = Number $ Scientific.fromFloatDigits d
785{-# INLINE realFloatToJSON #-}
785{-# INLINE realFloatToJSON #-}
786
786
787scientificToNumber :: Scientific -> Number
787scientificToNumber :: Scientific -> Number