From df67ff0ad827c6d2db63e79f342106022716bd90 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Tue, 2 Jan 2018 12:34:58 -0400 Subject: avoid mixing concurrent and non-concurrent output for related messages If the concurrent output was delayed for whatever reason, the messages could appear out of order and separated from one-another. --- src/Propellor/DotDir.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Propellor/DotDir.hs') diff --git a/src/Propellor/DotDir.hs b/src/Propellor/DotDir.hs index f42c0575..e9253b87 100644 --- a/src/Propellor/DotDir.hs +++ b/src/Propellor/DotDir.hs @@ -427,7 +427,7 @@ setupUpstreamMaster newref = do warnoutofdate :: Bool -> IO () warnoutofdate havebranch = do warningMessage ("** Your ~/.propellor/ is out of date..") - let also s = hPutStrLn stderr (" " ++ s) + let also s = infoMessage [" " ++ s] also ("A newer upstream version is available in " ++ distrepo) if havebranch then also ("To merge it, run: git merge " ++ upstreambranch) -- cgit v1.2.3