Skip to content
Find file
Fetching contributors…
Cannot retrieve contributors at this time
29 lines (21 sloc) 523 Bytes
-- wrapping around time to look like old-time, only for that what is being used.
module UHC.Util.Time
( module Data.Time.Compat,
module Data.Time,
module Data.Time.Clock,
ClockTime,
diffClockTimes,
noTimeDiff,
getClockTime
)
where
import Data.Time
import Data.Time.Clock
import Data.Time.Compat
-- | a for now alias for old-time ClockTime
type ClockTime = UTCTime
diffClockTimes = diffUTCTime
noTimeDiff :: NominalDiffTime
noTimeDiff = toEnum 0
getClockTime :: IO ClockTime
getClockTime = getCurrentTime
Jump to Line
Something went wrong with that request. Please try again.