steffenomak/ris-utils
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Add more colors to output

Browse Source
This commit is contained in:
Stefan Risberg 2024-11-01 18:12:06 +01:00
parent a7bfc69047
commit a6d4703bcd
Signed by: steffenomak
GPG Key ID: B60C24EF642AE8B0
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/Effects/Log.hs
View File

@ -85,7 +85,8 @@ fmtMessage :: WithSeverity LogData -> LogData
fmtMessage (WithSeverity txt sev) = "[" <> ls (justifyLeft 7 ' ' (colorSev sev)) <> "] - " <> txt fmtMessage (WithSeverity txt sev) = "[" <> ls (justifyLeft 7 ' ' (colorSev sev)) <> "] - " <> txt
where where
colorSev :: Severity -> Text 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 colorSev a = tshow a
addTime :: addTime ::