hw-succinct-0.0.0.1: src/HaskellWorks/Data/Time.hs

{-# LANGUAGE BangPatterns #-}

module HaskellWorks.Data.Time where

import           System.CPUTime

measure :: a -> IO a
measure a = do
  start <- getCPUTime
  let !b = a
  end   <- getCPUTime
  print (end - start)
  return b