cadey
/
propellor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

avoid setting title when not at console

This commit is contained in:
Joey Hess 2014-11-21 23:33:39 -04:00
parent 0c39e3137d
commit 6eb64d56e3
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Propellor/Engine.hs
View File

@ -27,6 +27,8 @@ mainProperties :: Host -> IO ()
mainProperties host = do mainProperties host = do
r <- runPropellor host $ r <- runPropellor host $
ensureProperties [Property "overall" (ensureProperties $ hostProperties host) mempty] ensureProperties [Property "overall" (ensureProperties $ hostProperties host) mempty]
h <- mkMessageHandle
whenConsole h $
setTitle "propellor: done" setTitle "propellor: done"
hFlush stdout hFlush stdout
case r of case r of