Fixed process log call.

AndrewRademacher · AndrewRademacher · commit 25e89bb44c15 · 2016-08-08T16:30:28.000-05:00
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
