Splittertech/tickLeisteServer
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

added a comment to formatMessage

Browse source
This commit is contained in:
Dennis Frieberg 2021-04-14 16:21:25 +02:00
parent f45297d86b
commit 70ee16d202
1 changed files with 1 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
app/Environment.hs
View file

@ -56,6 +56,7 @@ syncMVar = unsafePerformIO $ newMVar ()
myLogAction :: LogAction EnvM Message
myLogAction = LogAction $ \x -> let m = formatMessage x in EnvM . lift $ m `pseq` modifyMVar_ syncMVar (const (T.putStrLn m))
-- my format Message without fancy colors, but with syslog numbers
formatMessage :: Message -> T.Text
formatMessage Msg{..} =
showMyServerity msgSeverity