Reorganoze examples in test/

This commit is contained in:
Joscha 2018-02-16 13:07:13 +00:00
parent 3733b2217c
commit 09944406ef
3 changed files with 1 additions and 1 deletions

View file

@ -21,7 +21,7 @@ myBotConfig = E.BotConfig
} }
main = do main = do
myHandler <- LH.verboseStreamHandler stderr L.INFO myHandler <- LH.verboseStreamHandler stdout L.INFO
let myFormatter = LF.simpleLogFormatter "<$time> [$loggername/$prio] $msg" let myFormatter = LF.simpleLogFormatter "<$time> [$loggername/$prio] $msg"
myFormattedHandler = LH.setFormatter myHandler myFormatter myFormattedHandler = LH.setFormatter myHandler myFormatter
L.updateGlobalLogger L.rootLoggerName (L.setHandlers [myFormattedHandler]) L.updateGlobalLogger L.rootLoggerName (L.setHandlers [myFormattedHandler])