15 lines
446 B
Haskell
15 lines
446 B
Haskell
|
{-# LANGUAGE FlexibleContexts #-}
|
||
|
|
{-# LANGUAGE Safe #-}
|
||
|
|
module Bot.Log where
|
||
|
|
|
||
|
|
import Control.Monad.Logger (MonadLogger)
|
||
|
|
import qualified Control.Monad.Logger as Log
|
||
|
|
import Data.Text (Text)
|
||
|
|
import GHC.Stack
|
||
|
|
|
||
|
|
logInfo :: (HasCallStack, MonadLogger m) => Text -> m ()
|
||
|
|
logInfo = Log.logInfoCS callStack
|
||
|
|
|
||
|
|
logError :: (HasCallStack, MonadLogger m) => Text -> m ()
|
||
|
|
logError = Log.logErrorCS callStack
|