{-# LANGUAGE OverloadedStrings, TypeSynonymInstances, FlexibleInstances, ExistentialQuantification, TypeFamilies, GeneralizedNewtypeDeriving, StandaloneDeriving, MultiParamTypeClasses, UndecidableInstances, ScopedTypeVariables, FlexibleContexts #-}
module System.Log.Heavy.Shortcuts
(
reportError, warning, info, debug,
errorMessage, warnMessage, infoMessage, debugMessage
) where
import Control.Monad.Trans
import qualified Data.Text.Lazy as TL
import qualified Data.Text.Format.Heavy as F
import System.Log.Heavy.Types
import System.Log.Heavy.Level
import System.Log.Heavy.Util
infoMessage :: F.ClosedVarContainer vars => TL.Text -> vars -> LogMessage
infoMessage :: Text -> vars -> LogMessage
infoMessage Text
fmt vars
vars = Level
-> LogSource -> Loc -> Text -> vars -> LogContext -> LogMessage
forall vars.
ClosedVarContainer vars =>
Level
-> LogSource -> Loc -> Text -> vars -> LogContext -> LogMessage
LogMessage Level
info_level [] Loc
forall a. HasCallStack => a
undefined Text
fmt vars
vars []
debugMessage :: F.ClosedVarContainer vars => TL.Text -> vars -> LogMessage
debugMessage :: Text -> vars -> LogMessage
debugMessage Text
fmt vars
vars = Level
-> LogSource -> Loc -> Text -> vars -> LogContext -> LogMessage
forall vars.
ClosedVarContainer vars =>
Level
-> LogSource -> Loc -> Text -> vars -> LogContext -> LogMessage
LogMessage Level
debug_level [] Loc
forall a. HasCallStack => a
undefined Text
fmt vars
vars []
errorMessage :: F.ClosedVarContainer vars => TL.Text -> vars -> LogMessage
errorMessage :: Text -> vars -> LogMessage
errorMessage Text
fmt vars
vars = Level
-> LogSource -> Loc -> Text -> vars -> LogContext -> LogMessage
forall vars.
ClosedVarContainer vars =>
Level
-> LogSource -> Loc -> Text -> vars -> LogContext -> LogMessage
LogMessage Level
error_level [] Loc
forall a. HasCallStack => a
undefined Text
fmt vars
vars []
warnMessage :: F.ClosedVarContainer vars => TL.Text -> vars -> LogMessage
warnMessage :: Text -> vars -> LogMessage
warnMessage Text
fmt vars
vars = Level
-> LogSource -> Loc -> Text -> vars -> LogContext -> LogMessage
forall vars.
ClosedVarContainer vars =>
Level
-> LogSource -> Loc -> Text -> vars -> LogContext -> LogMessage
LogMessage Level
warn_level [] Loc
forall a. HasCallStack => a
undefined Text
fmt vars
vars []
debug :: forall m vars. (F.ClosedVarContainer vars, MonadIO m, HasLogging m) => TL.Text -> vars -> m ()
debug :: Text -> vars -> m ()
debug Text
fmt vars
vars = LogMessage -> m ()
forall (m :: * -> *).
(HasLogging m, MonadIO m) =>
LogMessage -> m ()
logMessage (LogMessage -> m ()) -> LogMessage -> m ()
forall a b. (a -> b) -> a -> b
$ Text -> vars -> LogMessage
forall vars. ClosedVarContainer vars => Text -> vars -> LogMessage
debugMessage Text
fmt vars
vars
info :: forall m vars. (F.ClosedVarContainer vars, MonadIO m, HasLogging m) => TL.Text -> vars -> m ()
info :: Text -> vars -> m ()
info Text
fmt vars
vars = LogMessage -> m ()
forall (m :: * -> *).
(HasLogging m, MonadIO m) =>
LogMessage -> m ()
logMessage (LogMessage -> m ()) -> LogMessage -> m ()
forall a b. (a -> b) -> a -> b
$ Text -> vars -> LogMessage
forall vars. ClosedVarContainer vars => Text -> vars -> LogMessage
infoMessage Text
fmt vars
vars
reportError :: forall m vars. (F.ClosedVarContainer vars, MonadIO m, HasLogging m) => TL.Text -> vars -> m ()
reportError :: Text -> vars -> m ()
reportError Text
fmt vars
vars = LogMessage -> m ()
forall (m :: * -> *).
(HasLogging m, MonadIO m) =>
LogMessage -> m ()
logMessage (LogMessage -> m ()) -> LogMessage -> m ()
forall a b. (a -> b) -> a -> b
$ Text -> vars -> LogMessage
forall vars. ClosedVarContainer vars => Text -> vars -> LogMessage
errorMessage Text
fmt vars
vars
warning :: forall m vars. (F.ClosedVarContainer vars, MonadIO m, HasLogging m) => TL.Text -> vars -> m ()
warning :: Text -> vars -> m ()
warning Text
fmt vars
vars = LogMessage -> m ()
forall (m :: * -> *).
(HasLogging m, MonadIO m) =>
LogMessage -> m ()
logMessage (LogMessage -> m ()) -> LogMessage -> m ()
forall a b. (a -> b) -> a -> b
$ Text -> vars -> LogMessage
forall vars. ClosedVarContainer vars => Text -> vars -> LogMessage
warnMessage Text
fmt vars
vars