Commits

Bryan O'Sullivan committed 686d898

Switch to use of realToFrac.

Comments (0)

Files changed (1)

Database/MySQL/Simple/Result.hs

     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