shomei-postgres-0.2.0.0: src/Shomei/Time/Postgres.hs

-- | The 'Clock' port interpreted as the real wall clock.
module Shomei.Time.Postgres
  ( runClockIO,
  )
where

import Data.Time (getCurrentTime)
import Effectful (Eff, IOE, liftIO, (:>))
import Effectful.Dispatch.Dynamic (interpret_)
import Shomei.Time.Store (Clock (..))

runClockIO :: (IOE :> es) => Eff (Clock : es) a -> Eff es a
runClockIO = interpret_ \case
  Now -> liftIO getCurrentTime