diff options
-rw-r--r-- | ProcessUtils.hs | 1 |
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. |
19 | systemEnv :: [(String, String)] -> String -> IO ExitCode | ||
19 | systemEnv _ "" = | 20 | systemEnv _ "" = |
20 | ioException (ioeSetErrorString (mkIOError InvalidArgument "system" Nothing Nothing) "null command") | 21 | ioException (ioeSetErrorString (mkIOError InvalidArgument "system" Nothing Nothing) "null command") |
21 | systemEnv vars cmd = do | 22 | systemEnv vars cmd = do |