Used realToFrac instead of toRational . fromRational.

haskell · Oct 25, 2012 · 3d4178f · 3d4178f
1 parent 1034181
commit 3d4178f
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/Data/Aeson/Types/Class.hs b/Data/Aeson/Types/Class.hs
@@ -307,12 +307,12 @@ instance FromJSON (Ratio Integer) where
     {-# INLINE parseJSON #-}
 
 instance HasResolution a => ToJSON (Fixed a) where
-    toJSON = Number . fromRational . toRational
+    toJSON = Number . realToFrac
     {-# INLINE toJSON #-}
 
 instance HasResolution a => FromJSON (Fixed a) where
     parseJSON (Number n) = pure $ case n of
-                                    D d -> fromRational $ toRational d
+                                    D d -> realToFrac d
                                     I i -> fromIntegral i
     parseJSON v          = typeMismatch "Fixed" v
     {-# INLINE parseJSON #-}