@@ -56,7 +56,7 @@ import Data.Aeson.Functions
5656import Data.Aeson.Types.Class
5757import Data.Aeson.Types.Internal
5858import 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)
6060import Data.Attoparsec.Number (Number(..))
6161import Data.Fixed
6262import Data.Hashable (Hashable(..))
@@ -781,7 +781,7 @@ typeMismatch expected actual =
781781realFloatToJSON :: RealFloat a => a -> Value
782782realFloatToJSON d
783783 | isNaN d || isInfinite d = Null
784− | otherwise = Number $ Scientific.fromRealFloat d
784+ | otherwise = Number $ Scientific.fromFloatDigits d
785785{-# INLINE realFloatToJSON #-}
786786
787787scientificToNumber :: Scientific -> Number