aboutsummaryrefslogtreecommitdiff
path: root/lib
diff options
context:
space:
mode:
authorDaniel Gröber <dxld@darkboxed.org>2019-08-13 14:35:22 +0200
committerDaniel Gröber (dxld) <dxld@darkboxed.org>2019-09-17 17:48:26 +0200
commit5f48445b81607132f6a5770c7d5130fa9ef94b8f (patch)
tree306f9082c4d6540edb4e4166265df327771ee0c0 /lib
parentd78fab16c93073b1ccbd81f62052779e0de6613f (diff)
Add verbose logging support for readProcess calls
Diffstat (limited to 'lib')
-rw-r--r--lib/Distribution/Helper.hs13
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