Permalink
Browse files

Switch to use of realToFrac.

  • Loading branch information...
1 parent e0b0226 commit 60932a81fd4c19ba64833f420727180afee1ae93 @bos bos committed Jul 7, 2011
Showing with 1 addition and 1 deletion.
  1. +1 −1 Database/MySQL/Simple/Result.hs
@@ -119,7 +119,7 @@ instance Result Word64 where
convert = atto ok64 decimal
instance Result Float where
- convert = atto ok ((fromRational . toRational) <$> double)
+ convert = atto ok (realToFrac <$> double)
where ok = mkCompats [Float,Double,Decimal,NewDecimal,Tiny,Short,Int24]
instance Result Double where

0 comments on commit 60932a8

Please sign in to comment.