Fixed process log call.

commercialhaskell · Aug 8, 2016 · 25e89bb · 25e89bb
1 parent 0115b7b
commit 25e89bb
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/Stack/Exec.hs b/src/Stack/Exec.hs
@@ -82,8 +82,8 @@ execSpawn menv cmd0 args = do
 execObserve :: (MonadIO m, MonadLogger m, MonadBaseControl IO m)
     => EnvOverride -> String -> [String] -> m String
 execObserve menv cmd0 args = do
-    $logProcessRun cmd0 args
-    e <- try (callProcessObserveStdout (Cmd Nothing cmd0 menv args))
+    e <- $withProcessTimeLog cmd0 args $
+        try (callProcessObserveStdout (Cmd Nothing cmd0 menv args))
     case e of
         Left (ProcessExitedUnsuccessfully _ ec) -> liftIO $ exitWith ec
         Right s -> return s