where
import Control.Monad ( when )
+import System.Environment ( getProgName )
import System.Log.Formatter ( simpleLogFormatter )
import System.Log.Handler ( setFormatter )
import System.Log.Handler.Simple ( GenericHandler, fileHandler )
sl_handler' <- openlog rootLoggerName [] USER sl_level
-- Syslog should output the date by itself.
- let sl_formatter = simpleLogFormatter "htsn[$pid] $prio: $msg"
+ program_name <- getProgName
+ let sl_formatter = simpleLogFormatter $
+ program_name ++ "[$pid] $prio: $msg"
let sl_handler = setFormatter sl_handler' sl_formatter
updateGlobalLogger rootLoggerName (addHandler sl_handler)