summaryrefslogtreecommitdiff
path: root/Build
diff options
context:
space:
mode:
authorGravatar Joey Hess <joeyh@joeyh.name>2017-02-15 16:00:59 -0400
committerGravatar Joey Hess <joeyh@joeyh.name>2017-02-15 16:02:10 -0400
commit0d66a45d49fd2983e5193312523afb96f34f8b76 (patch)
treeb476cea451269a5781ac2265b67746bf559d56c4 /Build
parent6892102ea2ef394de2a9802aa36dfe19761f37dd (diff)
simpler more generic processTranscript'
This allows using functions that generate CreateProcess and passing the result to processTranscript', which is more flexible, and also simpler than the old interface. This commit was sponsored by Riku Voipio.
Diffstat (limited to 'Build')
-rw-r--r--Build/EvilLinker.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/Build/EvilLinker.hs b/Build/EvilLinker.hs
index 94e399dfe..47111d476 100644
--- a/Build/EvilLinker.hs
+++ b/Build/EvilLinker.hs
@@ -127,7 +127,7 @@ getOutput c ps environ = do
putStrLn $ unwords [c, show ps]
systemenviron <- getEnvironment
let environ' = fromMaybe [] environ ++ systemenviron
- out@(_, ok) <- processTranscript' (\p -> p { Utility.Process.env = Just environ' }) c ps Nothing
+ out@(_, ok) <- processTranscript' ((proc c ps) { Utility.Process.env = Just environ' }) Nothing
putStrLn $ unwords [c, "finished", show ok]
return out