diff options
| author | Joey Hess <joeyh@joeyh.name> | 2017-07-29 15:48:42 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2017-07-29 15:48:42 -0400 |
| commit | 8b1e077caff64fb6e538aebbb8f7c7d9deb4735a (patch) | |
| tree | 104e89e53d1dc07f4ed1506a1c59e7901a67f31e /src/Propellor/Message.hs | |
| parent | 7611df020e98433bb8bbdecb87b55f32346acc20 (diff) | |
display end trace after displaying normal end message
Diffstat (limited to 'src/Propellor/Message.hs')
| -rw-r--r-- | src/Propellor/Message.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Propellor/Message.hs b/src/Propellor/Message.hs index 690056e4..441be76e 100644 --- a/src/Propellor/Message.hs +++ b/src/Propellor/Message.hs @@ -98,10 +98,9 @@ actionMessage' :: (MonadIO m, ActionResult r, ToResult r) => Maybe HostName -> D actionMessage' mhn desc a = do liftIO $ outputConcurrent =<< whenConsole (setTitleCode $ "propellor: " ++ desc) - liftIO $ trace $ ActionStart mhn desc + r <- a - liftIO $ trace $ ActionEnd $ toResult r liftIO $ outputConcurrent . concat =<< sequence [ whenConsole $ @@ -111,6 +110,7 @@ actionMessage' mhn desc a = do , let (msg, intensity, color) = getActionResult r in colorLine intensity color msg ] + liftIO $ trace $ ActionEnd $ toResult r return r where |