module Prolude.Time
(
module Data.Time.Calendar
, module Data.Time.Clock
, module Data.Time.Clock.POSIX
, module Data.Time.Format
, getCurrentTime
)
where
import Data.Time.Calendar (Day, fromGregorian, toGregorian)
import Data.Time.Clock
(DiffTime, NominalDiffTime, UTCTime(UTCTime, utctDay, utctDayTime), addUTCTime)
import Data.Time.Clock.POSIX (POSIXTime, getPOSIXTime, posixSecondsToUTCTime, utcTimeToPOSIXSeconds)
import Data.Time.Format (defaultTimeLocale, formatTime)
import qualified Control.Monad.IO.Class as Monad
import qualified Data.Time as Time
getCurrentTime :: Monad.MonadIO m => m UTCTime
getCurrentTime :: forall (m :: * -> *). MonadIO m => m UTCTime
getCurrentTime = forall (m :: * -> *) a. MonadIO m => IO a -> m a
Monad.liftIO IO UTCTime
Time.getCurrentTime