summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorJoey Hess2017-07-29 15:48:42 -0400
committerJoey Hess2017-07-29 15:48:42 -0400
commit8b1e077caff64fb6e538aebbb8f7c7d9deb4735a (patch)
tree104e89e53d1dc07f4ed1506a1c59e7901a67f31e /src
parent7611df020e98433bb8bbdecb87b55f32346acc20 (diff)
display end trace after displaying normal end message
Diffstat (limited to 'src')
-rw-r--r--src/Propellor/Message.hs4
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