diff options
| author | Joey Hess <joey@kitenet.net> | 2014-03-31 19:31:35 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-03-31 19:31:35 -0400 |
| commit | d53729495efe7174239deab3b5dd71204543b0d0 (patch) | |
| tree | 522e11f8d5362ea373d13ed8029368a4b1cd83c2 /Propellor/Message.hs | |
| parent | a020b66fcb2c10e81409f5ebc7b3bdb40dbaef45 (diff) | |
propellor spin
Diffstat (limited to 'Propellor/Message.hs')
| -rw-r--r-- | Propellor/Message.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Propellor/Message.hs b/Propellor/Message.hs index 7f451946..90163649 100644 --- a/Propellor/Message.hs +++ b/Propellor/Message.hs @@ -9,7 +9,7 @@ import Propellor.Types -- display. actionMessage :: ActionResult r => Desc -> IO r -> IO r actionMessage desc a = do - setTitle desc + setTitle $ "propellor: " ++ desc hFlush stdout r <- a @@ -19,7 +19,7 @@ actionMessage desc a = do setSGR [SetColor Foreground intensity color] putStrLn msg setSGR [] - setTitle "Propellor running" + setTitle "propellor: running" hFlush stdout return r |