module Data.Time.Cache
( TimeGetter
, mkTimeGetter
)
where
import Control.AutoUpdate
import Control.Monad.Fix (MonadFix)
import Control.Monad.IO.Class
import Control.Monad.Trans.Class (MonadTrans)
import Data.Text (Text, pack)
import Data.Time.Clock (UTCTime, getCurrentTime)
import Data.Time.Format (TimeLocale, formatTime)
import Data.Time.Units (TimeUnit (toMicroseconds))
type TimeGetter = IO (UTCTime, Text)
mkTimeGetter
:: TimeUnit t => t -> TimeLocale -> String -> IO TimeGetter
mkTimeGetter interval locale format = mkAutoUpdate defaultUpdateSettings
{ updateFreq = fromInteger $ toMicroseconds interval
, updateAction = do
now <- getCurrentTime
return (now, pack $ formatTime locale format now)
}