wikimusic-ssr-0.6.0.0: src/WikiMusic/SSR/Clock/LiveClock.hs

{-# OPTIONS_GHC -fno-warn-orphans #-}

module WikiMusic.SSR.Clock.LiveClock () where

import Data.Text qualified as T
import Data.Time
import Free.AlaCarte
import Relude
import WikiMusic.SSR.Free.Clock

instance Exec Clock where
  execAlgebra (TimeElapsedUntilNow fromTime f) = do
    diffWithNow fromTime >>= f
  execAlgebra (Now f) = do
    getCurrentTime >>= f

diffWithNow :: (MonadIO m) => UTCTime -> m Text
diffWithNow fromTime = do
  now' <- liftIO getCurrentTime
  pure $ T.pack . show $ diffUTCTime now' fromTime