summaryrefslogtreecommitdiff
path: root/ProcessUtils.hs
diff options
context:
space:
mode:
Diffstat (limited to 'ProcessUtils.hs')
-rw-r--r--ProcessUtils.hs1
1 files changed, 1 insertions, 0 deletions
diff --git a/ProcessUtils.hs b/ProcessUtils.hs
index 7f7928c..4e3ac38 100644
--- a/ProcessUtils.hs
+++ b/ProcessUtils.hs
@@ -16,6 +16,7 @@ import System.Exit ( ExitCode(..) )
16-- | systemEnv 16-- | systemEnv
17-- This is like System.Process.system except that it lets you set 17-- This is like System.Process.system except that it lets you set
18-- some environment variables. 18-- some environment variables.
19systemEnv :: [(String, String)] -> String -> IO ExitCode
19systemEnv _ "" = 20systemEnv _ "" =
20 ioException (ioeSetErrorString (mkIOError InvalidArgument "system" Nothing Nothing) "null command") 21 ioException (ioeSetErrorString (mkIOError InvalidArgument "system" Nothing Nothing) "null command")
21systemEnv vars cmd = do 22systemEnv vars cmd = do