@@ -50,7 +50,6 @@ import qualified Data.ByteString.Char8 as BS
5050import Data.Dynamic
5151import Data.Maybe
5252import Data.Map.Strict (Map)
53−import Data.Either.Extra
5453import Data.List.Extra
5554import qualified Data.Set as Set
5655import qualified Data.Text as T
@@ -340,8 +339,11 @@ shakeRun IdeState{shakeExtras=ShakeExtras{..}, ..} acts = modifyVar shakeAbort $
340339 thread <- forkFinally (shakeRunDatabaseProfile shakeDb acts) $ \res -> do
341340 signalBarrier bar res
342341 runTime <- start
342+ let res' = case res of
343+ Left e -> "exception: " <> displayException e
344+ Right _ -> "completed"
343345 logDebug logger $ T.pack $
344− "Finishing shakeRun (took " ++ showDuration runTime ++ ", " ++ (if isLeft res then "exception" else "completed") ++ ")"
346+ "Finishing shakeRun (took " ++ showDuration runTime ++ ", " ++ res' ++ ")"
345347 -- important: we send an async exception to the thread, then wait for it to die, before continuing
346348 return (do killThread thread; void $ waitBarrier bar, either throwIO return =<< waitBarrier bar)
347349