Safe Haskell	None
Language	Haskell2010

Control.Eff.Log.Syslog

Description

An RFC 5434 inspired log message and convenience functions for logging them. TODO document

Synopsis

data Severity
emergencySeverity :: Severity
alertSeverity :: Severity
criticalSeverity :: Severity
errorSeverity :: Severity
warningSeverity :: Severity
noticeSeverity :: Severity
informationalSeverity :: Severity
debugSeverity :: Severity
data Facility
kernelMessages :: Facility
userLevelMessages :: Facility
mailSystem :: Facility
systemDaemons :: Facility
securityAuthorizationMessages4 :: Facility
linePrinterSubsystem :: Facility
networkNewsSubsystem :: Facility
uucpSubsystem :: Facility
clockDaemon :: Facility
securityAuthorizationMessages10 :: Facility
ftpDaemon :: Facility
ntpSubsystem :: Facility
logAuditFacility :: Facility
logAlertFacility :: Facility
clockDaemon2 :: Facility
local0 :: Facility
local1 :: Facility
local2 :: Facility
local3 :: Facility
local4 :: Facility
local5 :: Facility
local6 :: Facility
local7 :: Facility
data LogMessage = LogMessage {
- _lmFacility :: Facility
- _lmSeverity :: Severity
- _lmTimestamp :: Maybe UTCTime
- _lmHostname :: Maybe String
- _lmAppname :: Maybe String
- _lmProcessId :: Maybe String
- _lmMessageId :: Maybe String
- _lmStructuredData :: [StructuredDataElement]
- _lmSrcLoc :: Maybe SrcLoc
- _lmMessage :: String
}
lmFacility :: Lens' LogMessage Facility
lmSeverity :: Lens' LogMessage Severity
lmTimestamp :: Lens' LogMessage (Maybe UTCTime)
lmHostname :: Lens' LogMessage (Maybe String)
lmAppname :: Lens' LogMessage (Maybe String)
lmProcessId :: Lens' LogMessage (Maybe String)
lmMessageId :: Lens' LogMessage (Maybe String)
lmStructuredData :: Lens' LogMessage [StructuredDataElement]
lmSrcLoc :: Lens' LogMessage (Maybe SrcLoc)
lmMessage :: Lens' LogMessage String
data StructuredDataElement = StructuredDataElement {
- _sdElementId :: String
- _sdElementParameters :: [(String, Maybe String)]
}
sdElementId :: Lens' StructuredDataElement String
sdElementParameters :: Lens' StructuredDataElement [(String, Maybe String)]
addSyslogTimestamps :: (MonadIO io, SetMember Lift (Lift io) e, Member (Logs LogMessage) e, Member (MessageFactoryReader LogMessage) e) => Eff e a -> Eff e a
syslogMsg :: (HasCallStack, MonadIO io, SetMember Lift (Lift io) e, Member (Logs LogMessage) e, Member (MessageFactoryReader LogMessage) e) => (LogMessage -> LogMessage) -> Eff e ()
withSyslog :: forall io e a. (Member (Logs LogMessage) e, Default LogMessage, MonadIO io, SetMember Lift (Lift io) e) => Eff (MessageFactoryReader LogMessage ': e) a -> Eff e a

Documentation

data Severity Source #

An rfc 5424 severity

Instances

Eq Severity Source #
Instance details Defined in Control.Eff.Log.Syslog Methods (==) :: Severity -> Severity -> Bool # (/=) :: Severity -> Severity -> Bool #
Ord Severity Source #
Instance details Defined in Control.Eff.Log.Syslog Methods compare :: Severity -> Severity -> Ordering # (<) :: Severity -> Severity -> Bool # (<=) :: Severity -> Severity -> Bool # (>) :: Severity -> Severity -> Bool # (>=) :: Severity -> Severity -> Bool # max :: Severity -> Severity -> Severity # min :: Severity -> Severity -> Severity #
Show Severity Source #
Instance details Defined in Control.Eff.Log.Syslog Methods showsPrec :: Int -> Severity -> ShowS # show :: Severity -> String # showList :: [Severity] -> ShowS #
Generic Severity Source #
Instance details Defined in Control.Eff.Log.Syslog Associated Types type Rep Severity :: * -> * # Methods from :: Severity -> Rep Severity x # to :: Rep Severity x -> Severity #
NFData Severity Source #
Instance details Defined in Control.Eff.Log.Syslog Methods rnf :: Severity -> () #
type Rep Severity Source #
Instance details Defined in Control.Eff.Log.Syslog type Rep Severity = D1 (MetaData "Severity" "Control.Eff.Log.Syslog" "extensible-effects-concurrent-0.5.0.1-DUDgzsxAm1C3IPbtxT0bmH" True) (C1 (MetaCons "Severity" PrefixI True) (S1 (MetaSel (Just "fromSeverity") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 Int)))

emergencySeverity :: Severity Source #

alertSeverity :: Severity Source #

criticalSeverity :: Severity Source #

errorSeverity :: Severity Source #

warningSeverity :: Severity Source #

noticeSeverity :: Severity Source #

informationalSeverity :: Severity Source #

debugSeverity :: Severity Source #

data Facility Source #

An rfc 5424 facility

Instances

Eq Facility Source #
Instance details Defined in Control.Eff.Log.Syslog Methods (==) :: Facility -> Facility -> Bool # (/=) :: Facility -> Facility -> Bool #
Ord Facility Source #
Instance details Defined in Control.Eff.Log.Syslog Methods compare :: Facility -> Facility -> Ordering # (<) :: Facility -> Facility -> Bool # (<=) :: Facility -> Facility -> Bool # (>) :: Facility -> Facility -> Bool # (>=) :: Facility -> Facility -> Bool # max :: Facility -> Facility -> Facility # min :: Facility -> Facility -> Facility #
Show Facility Source #
Instance details Defined in Control.Eff.Log.Syslog Methods showsPrec :: Int -> Facility -> ShowS # show :: Facility -> String # showList :: [Facility] -> ShowS #
Generic Facility Source #
Instance details Defined in Control.Eff.Log.Syslog Associated Types type Rep Facility :: * -> * # Methods from :: Facility -> Rep Facility x # to :: Rep Facility x -> Facility #
NFData Facility Source #
Instance details Defined in Control.Eff.Log.Syslog Methods rnf :: Facility -> () #
type Rep Facility Source #
Instance details Defined in Control.Eff.Log.Syslog type Rep Facility = D1 (MetaData "Facility" "Control.Eff.Log.Syslog" "extensible-effects-concurrent-0.5.0.1-DUDgzsxAm1C3IPbtxT0bmH" True) (C1 (MetaCons "Facility" PrefixI True) (S1 (MetaSel (Just "fromFacility") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 Int)))

kernelMessages :: Facility Source #

userLevelMessages :: Facility Source #

mailSystem :: Facility Source #

systemDaemons :: Facility Source #

securityAuthorizationMessages4 :: Facility Source #

linePrinterSubsystem :: Facility Source #

networkNewsSubsystem :: Facility Source #

uucpSubsystem :: Facility Source #

clockDaemon :: Facility Source #

securityAuthorizationMessages10 :: Facility Source #

ftpDaemon :: Facility Source #

ntpSubsystem :: Facility Source #

logAuditFacility :: Facility Source #

logAlertFacility :: Facility Source #

clockDaemon2 :: Facility Source #

local0 :: Facility Source #

local1 :: Facility Source #

local2 :: Facility Source #

local3 :: Facility Source #

local4 :: Facility Source #

local5 :: Facility Source #

local6 :: Facility Source #

local7 :: Facility Source #

data LogMessage Source #

Constructors

LogMessage
Fields _lmFacility :: Facility _lmSeverity :: Severity _lmTimestamp :: Maybe UTCTime _lmHostname :: Maybe String _lmAppname :: Maybe String _lmProcessId :: Maybe String _lmMessageId :: Maybe String _lmStructuredData :: [StructuredDataElement] _lmSrcLoc :: Maybe SrcLoc _lmMessage :: String

Instances

Eq LogMessage Source #
Instance details Defined in Control.Eff.Log.Syslog Methods (==) :: LogMessage -> LogMessage -> Bool # (/=) :: LogMessage -> LogMessage -> Bool #
Show LogMessage Source #
Instance details Defined in Control.Eff.Log.Syslog Methods showsPrec :: Int -> LogMessage -> ShowS # show :: LogMessage -> String # showList :: [LogMessage] -> ShowS #
Generic LogMessage Source #
Instance details Defined in Control.Eff.Log.Syslog Associated Types type Rep LogMessage :: * -> * # Methods from :: LogMessage -> Rep LogMessage x # to :: Rep LogMessage x -> LogMessage #
Default LogMessage Source #
Instance details Defined in Control.Eff.Log.Syslog Methods def :: LogMessage #
NFData LogMessage Source #
Instance details Defined in Control.Eff.Log.Syslog Methods rnf :: LogMessage -> () #
type Rep LogMessage Source #
Instance details Defined in Control.Eff.Log.Syslog type Rep LogMessage = D1 (MetaData "LogMessage" "Control.Eff.Log.Syslog" "extensible-effects-concurrent-0.5.0.1-DUDgzsxAm1C3IPbtxT0bmH" False) (C1 (MetaCons "LogMessage" PrefixI True) (((S1 (MetaSel (Just "_lmFacility") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 Facility) :: S1 (MetaSel (Just "_lmSeverity") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 Severity)) :: (S1 (MetaSel (Just "_lmTimestamp") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 (Maybe UTCTime)) :: (S1 (MetaSel (Just "_lmHostname") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 (Maybe String)) :: S1 (MetaSel (Just "_lmAppname") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 (Maybe String))))) :: ((S1 (MetaSel (Just "_lmProcessId") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 (Maybe String)) :: S1 (MetaSel (Just "_lmMessageId") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 (Maybe String))) :: (S1 (MetaSel (Just "_lmStructuredData") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 [StructuredDataElement]) :: (S1 (MetaSel (Just "_lmSrcLoc") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 (Maybe SrcLoc)) :*: S1 (MetaSel (Just "_lmMessage") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 String))))))

lmFacility :: Lens' LogMessage Facility Source #

lmSeverity :: Lens' LogMessage Severity Source #

lmTimestamp :: Lens' LogMessage (Maybe UTCTime) Source #

lmHostname :: Lens' LogMessage (Maybe String) Source #

lmAppname :: Lens' LogMessage (Maybe String) Source #

lmProcessId :: Lens' LogMessage (Maybe String) Source #

lmMessageId :: Lens' LogMessage (Maybe String) Source #

lmStructuredData :: Lens' LogMessage [StructuredDataElement] Source #

lmSrcLoc :: Lens' LogMessage (Maybe SrcLoc) Source #

lmMessage :: Lens' LogMessage String Source #

data StructuredDataElement Source #

Constructors

StructuredDataElement
Fields _sdElementId :: String _sdElementParameters :: [(String, Maybe String)]

Instances

Eq StructuredDataElement Source #
Instance details Defined in Control.Eff.Log.Syslog Methods (==) :: StructuredDataElement -> StructuredDataElement -> Bool # (/=) :: StructuredDataElement -> StructuredDataElement -> Bool #
Ord StructuredDataElement Source #
Instance details Defined in Control.Eff.Log.Syslog Methods compare :: StructuredDataElement -> StructuredDataElement -> Ordering # (<) :: StructuredDataElement -> StructuredDataElement -> Bool # (<=) :: StructuredDataElement -> StructuredDataElement -> Bool # (>) :: StructuredDataElement -> StructuredDataElement -> Bool # (>=) :: StructuredDataElement -> StructuredDataElement -> Bool # max :: StructuredDataElement -> StructuredDataElement -> StructuredDataElement # min :: StructuredDataElement -> StructuredDataElement -> StructuredDataElement #
Show StructuredDataElement Source #
Instance details Defined in Control.Eff.Log.Syslog Methods showsPrec :: Int -> StructuredDataElement -> ShowS # show :: StructuredDataElement -> String # showList :: [StructuredDataElement] -> ShowS #
Generic StructuredDataElement Source #
Instance details Defined in Control.Eff.Log.Syslog Associated Types type Rep StructuredDataElement :: * -> * # Methods from :: StructuredDataElement -> Rep StructuredDataElement x # to :: Rep StructuredDataElement x -> StructuredDataElement #
NFData StructuredDataElement Source #
Instance details Defined in Control.Eff.Log.Syslog Methods rnf :: StructuredDataElement -> () #
type Rep StructuredDataElement Source #
Instance details Defined in Control.Eff.Log.Syslog type Rep StructuredDataElement = D1 (MetaData "StructuredDataElement" "Control.Eff.Log.Syslog" "extensible-effects-concurrent-0.5.0.1-DUDgzsxAm1C3IPbtxT0bmH" False) (C1 (MetaCons "StructuredDataElement" PrefixI True) (S1 (MetaSel (Just "_sdElementId") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 String) :*: S1 (MetaSel (Just "_sdElementParameters") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 [(String, Maybe String)])))

sdElementId :: Lens' StructuredDataElement String Source #

sdElementParameters :: Lens' StructuredDataElement [(String, Maybe String)] Source #

addSyslogTimestamps :: (MonadIO io, SetMember Lift (Lift io) e, Member (Logs LogMessage) e, Member (MessageFactoryReader LogMessage) e) => Eff e a -> Eff e a Source #

syslogMsg :: (HasCallStack, MonadIO io, SetMember Lift (Lift io) e, Member (Logs LogMessage) e, Member (MessageFactoryReader LogMessage) e) => (LogMessage -> LogMessage) -> Eff e () Source #

withSyslog :: forall io e a. (Member (Logs LogMessage) e, Default LogMessage, MonadIO io, SetMember Lift (Lift io) e) => Eff (MessageFactoryReader LogMessage ': e) a -> Eff e a Source #