hasufell/ghcup-hs
1
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Improve logging by dropping trailing newline

Browse Source
This commit is contained in:
Julian Ospald 2023-11-18 13:09:19 +08:00
parent 335099ad19
commit d277e56121
No known key found for this signature in database
GPG Key ID: 4275CDA6A29BED43
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lib/GHCup/Prelude/Logger/Internal.hs
View File

@ -80,7 +80,7 @@ logInternal logLevel msg = do
Info -> style' "[ Info ]" Info -> style' "[ Info ]"
Warn -> style' "[ Warn ]" Warn -> style' "[ Warn ]"
Error -> style' "[ Error ]" Error -> style' "[ Error ]"
let strs = T.split (== '\n') msg let strs = T.split (== '\n') . T.dropWhileEnd (`elem` ("\n\r" :: String)) $ msg
let out = case strs of let out = case strs of
[] -> T.empty [] -> T.empty
(x:xs) -> (x:xs) ->