parconc-examples-0.1: TimeIt.hs

-- (c) Simon Marlow 2011, see the file LICENSE for copying terms.

-- Returns the number of realtime seconds an action takes

module TimeIt (timeit) where

import Data.Time

timeit :: IO a -> IO (a,Double)
timeit io = do
     t0 <- getCurrentTime
     a <- io
     t1 <- getCurrentTime
     return (a, realToFrac (t1 `diffUTCTime` t0))