@@ -170,7 +170,7 @@ instance FromJSON Double where
170170
171171instance ToJSON Number where
172172 toJSON (D d) = toJSON d
173− toJSON (I i) = Number $ fromInteger i
173+ toJSON (I i) = toJSON i
174174 {-# INLINE toJSON #-}
175175
176176instance FromJSON Number where
@@ -222,7 +222,7 @@ parseIntegral = withScientific "Integral" $ pure . floor
222222{-# INLINE parseIntegral #-}
223223
224224instance ToJSON Integer where
225− toJSON = Number . fromIntegral
225+ toJSON = Number . fromInteger
226226 {-# INLINE toJSON #-}
227227
228228instance FromJSON Integer where