marvin-0.0.1: src/Marvin/Util/Logging.hs

{-|
Module      : $Header$
Description : Logging facilities for marvin scripts.
Copyright   : (c) Justus Adam, 2016
License     : BSD3
Maintainer  : dev@justus.science
Stability   : experimental
Portability : POSIX
-}
module Marvin.Util.Logging
    ( debugM, infoM, noticeM, warningM, errorM, criticalM, alertM, emergencyM, logM
    ) where

import           ClassyPrelude
import           Marvin.Types
import qualified System.Log.Logger as L


scriptLog :: (MonadIO m, IsScript m) => (String -> String -> IO ()) -> Text -> m ()
scriptLog inner message = do
    (ScriptId sid) <- getScriptId
    liftIO $ inner (unpack $ "script." ++ sid) (unpack message)


debugM, infoM, noticeM, warningM, errorM, criticalM, alertM, emergencyM :: (MonadIO m, IsScript m) => Text -> m ()
debugM = scriptLog L.debugM
infoM = scriptLog L.infoM
noticeM = scriptLog L.noticeM
warningM = scriptLog L.warningM
errorM = scriptLog L.errorM
criticalM = scriptLog L.criticalM
alertM = scriptLog L.alertM
emergencyM = scriptLog L.emergencyM


logM :: (MonadIO m, IsScript m) => L.Priority -> Text -> m ()
logM prio = scriptLog (`L.logM` prio)