{-# LANGUAGE CPP #-}
{-# LANGUAGE OverloadedStrings #-}
module System.Log.MonadLogger.Syslog
( runSyslogLoggingT
, runCustomSyslogLoggingT
, System.Posix.Syslog.Facility(..)
)
where
import Control.Monad.Logger
import Data.Text ( unpack )
import System.Log.FastLogger ( fromLogStr )
import System.Posix.Syslog
#if MIN_VERSION_hsyslog(5,0,0)
import qualified Data.ByteString.Unsafe as BSU
#else
import qualified Data.ByteString.Char8 as BS8
#endif
runSyslogLoggingT :: LoggingT m a -> m a
#if MIN_VERSION_hsyslog(5,0,0)
runSyslogLoggingT = runCustomSyslogLoggingT "hslogger" User
#else
runSyslogLoggingT = runCustomSyslogLoggingT "hslogger" USER
#endif
runCustomSyslogLoggingT :: String
-> Facility
-> LoggingT m a
-> m a
runCustomSyslogLoggingT n f = (`runLoggingT` defaultSyslogOutput n f)
defaultSyslogOutput :: String
-> Facility
-> Loc
-> LogSource
-> LogLevel
-> LogStr
-> IO ()
defaultSyslogOutput n f = formattedSyslogOutput n f defaultLogStr
formattedSyslogOutput :: String
-> Facility
-> (Loc -> LogSource -> LogLevel -> LogStr -> LogStr)
-> Loc
-> LogSource
-> LogLevel
-> LogStr
-> IO ()
formattedSyslogOutput name facility f l s level msg =
#if MIN_VERSION_hsyslog(5,0,0)
withSyslog name [DelayedOpen] facility $
BSU.unsafeUseAsCStringLen (fromLogStr $ f l s level msg) $
syslog
(Just facility)
(levelToPriority level)
#else
withSyslog defaultConfig { identifier = BS8.pack name
, defaultFacility = facility
} $ \syslog ->
syslog facility
(levelToPriority level)
(fromLogStr $ f l s level msg)
#endif
levelToPriority :: LogLevel -> Priority
levelToPriority LevelDebug = Debug
levelToPriority LevelInfo = Info
levelToPriority LevelWarn = Warning
levelToPriority LevelError = Error
levelToPriority (LevelOther level) =
case level of
"Emergency" -> Emergency
"Alert" -> Alert
"Critical" -> Critical
"Notice" -> Notice
_ -> error $ "unknown log level: " ++ unpack level