Reorganoze examples in test/
This commit is contained in:
parent
3733b2217c
commit
09944406ef
3 changed files with 1 additions and 1 deletions
|
|
@ -21,7 +21,7 @@ myBotConfig = E.BotConfig
|
|||
}
|
||||
|
||||
main = do
|
||||
myHandler <- LH.verboseStreamHandler stderr L.INFO
|
||||
myHandler <- LH.verboseStreamHandler stdout L.INFO
|
||||
let myFormatter = LF.simpleLogFormatter "<$time> [$loggername/$prio] $msg"
|
||||
myFormattedHandler = LH.setFormatter myHandler myFormatter
|
||||
L.updateGlobalLogger L.rootLoggerName (L.setHandlers [myFormattedHandler])
|
||||
Loading…
Add table
Add a link
Reference in a new issue