From a6d4703bcd87be9be48bf182957cd69a6b009e1f Mon Sep 17 00:00:00 2001
From: Stefan Risberg <steffenomak@gmail.com>
Date: Fri, 1 Nov 2024 18:12:06 +0100
Subject: [PATCH] Add more colors to output

---
 src/Effects/Log.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/Effects/Log.hs b/src/Effects/Log.hs
index 65c90d8..cd81e71 100644
--- a/src/Effects/Log.hs
+++ b/src/Effects/Log.hs
@@ -85,7 +85,8 @@ fmtMessage :: WithSeverity LogData -> LogData
 fmtMessage (WithSeverity txt sev) = "[" <> ls (justifyLeft 7 ' ' (colorSev sev)) <> "] - " <> txt
  where
   colorSev :: Severity -> Text
-  colorSev W = colorNormal Red . tshow $ W
+  colorSev W = colorNormal Yellow . tshow $ W
+  colorSev E = colorBright Red . tshow $ E
   colorSev a = tshow a
 
 addTime ::