@@ -307,12 +307,12 @@ instance FromJSON (Ratio Integer) where
307 {-# INLINE parseJSON #-}
307 {-# INLINE parseJSON #-}
309instance HasResolution a => ToJSON (Fixed a) where
309instance HasResolution a => ToJSON (Fixed a) where
310− toJSON = Number . fromRational . toRational
310+ toJSON = Number . realToFrac
311 {-# INLINE toJSON #-}
311 {-# INLINE toJSON #-}
313instance HasResolution a => FromJSON (Fixed a) where
313instance HasResolution a => FromJSON (Fixed a) where
314 parseJSON (Number n) = pure $ case n of
314 parseJSON (Number n) = pure $ case n of
315− D d -> fromRational $ toRational d
315+ D d -> realToFrac d
316 I i -> fromIntegral i
316 I i -> fromIntegral i
317 parseJSON v = typeMismatch "Fixed" v
317 parseJSON v = typeMismatch "Fixed" v
318 {-# INLINE parseJSON #-}
318 {-# INLINE parseJSON #-}