Commits

Bryan O'Sullivan  committed 8230a6c

Use realToFrac instead of (fromRational . toRational).

Spotted by ddarius on IRC.

  • Participants
  • Parent commits 6ee8485

Comments (0)

Files changed (1)

File Criterion/Measurement.hs

   return $! end - start
 
 getTime :: IO Double
-getTime = (fromRational . toRational) `fmap` getPOSIXTime
+getTime = realToFrac `fmap` getPOSIXTime
 
 runForAtLeast :: Double -> Int -> (Int -> IO a) -> IO (Double, Int, a)
 runForAtLeast howLong initSeed act = loop initSeed (0::Int) =<< getTime