blob: fb187e965044e32397f49e2c538c87cbe6507c4c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
{-# LANGUAGE ImportQualifiedPost #-}
-- Module : Hsm.Core.LogIO
-- Maintainer : contact@pauloliver.dev
module Hsm.Core.LogIO
( LoggerIO
, getLoggerIO
)
where
import Data.Aeson.Types (emptyObject)
import Data.Text (Text)
import Data.Time.Clock (getCurrentTime)
import Effectful.Log (LogLevel, MonadLog)
import Effectful.Log qualified as L (getLoggerIO)
-- Wraps logger returned by @getLoggerIO@ into simpler type.
type LoggerIO = LogLevel -> Text -> IO ()
getLoggerIO :: MonadLog m => m LoggerIO
getLoggerIO =
L.getLoggerIO >>= \logIO ->
return $ \level msg ->
getCurrentTime >>= \now ->
logIO now level msg emptyObject
|
