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 ::