hw-succinct-0.0.0.2: src/HaskellWorks/Diagnostics/Time.hs

{-# LANGUAGE BangPatterns #-}

module HaskellWorks.Diagnostics.Time where

import           System.CPUTime

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