-- | Types and functions for UTC and UT1 module Data.Time.Clock ( module Data.Time.Clock.Scale, module Data.Time.Clock.UTC, module Data.Time.Clock.UTCDiff, module Data.Time.Clock ) where import Data.Time.Clock.Scale import Data.Time.Clock.UTCDiff import Data.Time.Clock.UTC import Data.Time.Clock.POSIX import Control.Monad -- | Get the current UTC time from the system clock. getCurrentTime :: IO UTCTime getCurrentTime = liftM posixSecondsToUTCTime getPOSIXTime