1module RIO.Time 2 ( module Data.Time 3 , getCurrentTime 4 , getTimeZone 5 , getCurrentTimeZone 6 , getZonedTime 7 , utcToLocalZonedTime 8 ) where 9 10import Control.Monad.IO.Class 11import Data.Time hiding( getCurrentTime, getTimeZone, getCurrentTimeZone 12 , getZonedTime, utcToLocalZonedTime) 13import qualified Data.Time 14 15getCurrentTime :: MonadIO m => m UTCTime 16getCurrentTime = liftIO Data.Time.getCurrentTime 17 18getTimeZone :: MonadIO m => UTCTime -> m TimeZone 19getTimeZone = liftIO . Data.Time.getTimeZone 20 21getCurrentTimeZone :: MonadIO m => m TimeZone 22getCurrentTimeZone = liftIO Data.Time.getCurrentTimeZone 23 24getZonedTime :: MonadIO m => m ZonedTime 25getZonedTime = liftIO Data.Time.getZonedTime 26 27utcToLocalZonedTime :: MonadIO m => UTCTime -> m ZonedTime 28utcToLocalZonedTime = liftIO . Data.Time.utcToLocalZonedTime 29