Add verbose logging support for readProcess calls

1 files changed, 3 insertions, 10 deletions

diff --git a/lib/Distribution/Helper.hs b/lib/Distribution/Helper.hs
index 79c9d57..8ce5f94 100644
--- a/lib/Distribution/Helper.hs
+++ b/lib/Distribution/Helper.hs
@@ -209,16 +209,9 @@ mkQueryEnv projloc distdir = do
   cr <- newIORef $ QueryCache Nothing Map.empty
   return $ QueryEnv
     { qeReadProcess = \stdin mcwd env exe args -> do
-        env' <- execEnvOverrides env
-        let cp = (proc exe args)
-                   { cwd = mcwd
-                   , env = if env == [] then Nothing else Just env'
-                   }
-        readCreateProcess cp stdin
-    , qeCallProcess  = \mcwd env exe args -> do
-        let ?verbose = \_ -> False -- TODO: we should get this from env or
-                                   -- something
-        callProcessStderr mcwd env exe args
+        withVerbosity $ readProcessStderr mcwd env exe args ""
+    , qeCallProcess  = \mcwd env exe args ->
+        withVerbosity $ callProcessStderr mcwd env exe args
     , qePrograms     = defaultPrograms
     , qeProjLoc      = projloc
     , qeDistDir      = distdir