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