From 0d66a45d49fd2983e5193312523afb96f34f8b76 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 15 Feb 2017 16:00:59 -0400 Subject: 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. --- Build/EvilLinker.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Build') 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 -- cgit v1.2.3