1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
module Main where
import System.IO.Error
import System.Process
main :: IO ()
main = do test1 `catchIOError` \e -> putStrLn ("Exc: " ++ show e)
test2 `catchIOError` \e -> putStrLn ("Exc: " ++ show e)
test1 :: IO ()
test1 = do
(_, _, _, commhand) <-
runInteractiveProcess "true" [] (Just "/no/such/dir") Nothing
exitCode <- waitForProcess commhand
print exitCode
test2 :: IO ()
test2 = do
commhand <- runProcess "true" [] (Just "/no/such/dir") Nothing
Nothing Nothing Nothing
exitCode <- waitForProcess commhand
print exitCode
|
