From 70ee16d202dc0ff1afa0f02c9d422d42773beb3e Mon Sep 17 00:00:00 2001
From: Dennis Frieberg <nerfingen@yahoo.de>
Date: Wed, 14 Apr 2021 16:21:25 +0200
Subject: [PATCH] added a comment to formatMessage

---
 app/Environment.hs | 1 +
 1 file changed, 1 insertion(+)

diff --git a/app/Environment.hs b/app/Environment.hs
index 1fd9108..55738d1 100644
--- a/app/Environment.hs
+++ b/app/Environment.hs
@@ -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