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

Clarify stack postinstall message wrt #153

Browse Source
This commit is contained in:
Julian Ospald
2021-07-11 14:34:19 +02:00
parent d86f84eef4
commit 5cf297a4d2
2 changed files with 13 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
lib/GHCup/Utils/Logger.hs
View File

@@ -62,7 +62,7 @@ myLoggerT LoggerConfig {..} loggingt = runLoggingT loggingt mylogger
(x:xs) -> fromLogStr
. foldr (\a b -> a <> toLogStr "\n" <> b) mempty
. ((l <> toLogStr " " <> x) :)
. fmap (\line' -> (toLogStr (style' "[ ... ] ") <> line' ))
. fmap (\line' -> toLogStr (style' "[ ... ] ") <> line' )
$ xs
when (lcPrintDebug || (not lcPrintDebug && (level /= LevelDebug)))
@@ -70,7 +70,7 @@ myLoggerT LoggerConfig {..} loggingt = runLoggingT loggingt mylogger
-- raw output
let lr = case level of
LevelDebug -> toLogStr "Debug: "
LevelDebug -> toLogStr "Debug:"
LevelInfo -> toLogStr "Info:"
LevelWarn -> toLogStr "Warn:"
LevelError -> toLogStr "Error:"