Now.hs

module Acme.Time.Now (now) where

import Data.Time (getCurrentTime, UTCTime)
import System.IO.Unsafe (unsafePerformIO)


-- | The unchanging \"now\". If you get any errors or unexpecting results from using
--   this value, it's because your assumptions about the nature of time are wrong.
--   I have a proof of this, but the margin isn't large enough to contain it.
now :: UTCTime
now = unsafePerformIO getCurrentTime