module LIO.Data.Time (
module Data.Time
, getCurrentTime
, getZonedTime
, utcToLocalZonedTime
) where
import qualified Data.Time as T
import Data.Time hiding ( getCurrentTime
, getZonedTime
, utcToLocalZonedTime)
import LIO
import LIO.TCB
getCurrentTime :: MonadLIO l m => m UTCTime
getCurrentTime = liftLIO $ rethrowIoTCB T.getCurrentTime
getZonedTime :: MonadLIO l m => m ZonedTime
getZonedTime = liftLIO $ rethrowIoTCB T.getZonedTime
utcToLocalZonedTime :: MonadLIO l m => UTCTime -> m ZonedTime
utcToLocalZonedTime = liftLIO . rethrowIoTCB . T.utcToLocalZonedTime