1. Bryan O'Sullivan
  2. mysql-simple

Commits

Bryan O'Sullivan  committed 686d898

Switch to use of realToFrac.

  • Participants
  • Parent commits 667c230
  • Branches default

Comments (0)

Files changed (1)

File Database/MySQL/Simple/Result.hs

View file
     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