Source

mysql-simple / Database / MySQL / Simple / Result.hs

Diff from to

File 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