diff options
| author | Joey Hess <joeyh@joeyh.name> | 2018-01-02 12:34:58 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2018-01-02 12:34:58 -0400 |
| commit | df67ff0ad827c6d2db63e79f342106022716bd90 (patch) | |
| tree | a4e71ff1f7e9e61595c781cf83dba23ee9cf19f5 /src/Propellor/DotDir.hs | |
| parent | 82a411be9b63df5bf8efda668561c77e50e3cb40 (diff) | |
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.
Diffstat (limited to 'src/Propellor/DotDir.hs')
| -rw-r--r-- | src/Propellor/DotDir.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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) |