Improve logging by dropping trailing newline

2023-11-18 13:09:19 +08:00 · 2023-11-18 13:09:19 +08:00 · d277e56121
commit d277e56121
parent 335099ad19
1 changed files with 1 additions and 1 deletions
--- a/lib/GHCup/Prelude/Logger/Internal.hs
+++ b/lib/GHCup/Prelude/Logger/Internal.hs
@ -80,7 +80,7 @@ logInternal logLevel msg = do
        Info    -> style' "[ Info  ]"
        Warn    -> style' "[ Warn  ]"
        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
              [] -> T.empty
              (x:xs) ->