From 8b1e077caff64fb6e538aebbb8f7c7d9deb4735a Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sat, 29 Jul 2017 15:48:42 -0400 Subject: display end trace after displaying normal end message --- src/Propellor/Message.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src') 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 -- cgit v1.2.3