diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2017-02-15 16:00:59 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2017-02-15 16:02:10 -0400 |
| commit | 0d66a45d49fd2983e5193312523afb96f34f8b76 (patch) | |
| tree | b476cea451269a5781ac2265b67746bf559d56c4 /Build | |
| parent | 6892102ea2ef394de2a9802aa36dfe19761f37dd (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.hs | 2 |
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 |