Skip to content
Snippets Groups Projects
Commit d2a10e25 authored by Ben Gamari's avatar Ben Gamari Committed by Zubin
Browse files

Bump process submodule to v1.6.25.0

(cherry picked from commit 18f532f3)
parent ec2f40b4
No related branches found
No related tags found
No related merge requests found
Subproject commit 8364eaa2c83f7918be41cf3bd520e4ede1b07c35 Subproject commit 9c3bfc214c72bbd0c8a30a1c41465deed0feaf47
...@@ -4,8 +4,13 @@ import System.IO.Error ...@@ -4,8 +4,13 @@ import System.IO.Error
import System.Process import System.Process
main :: IO () main :: IO ()
main = do test1 `catchIOError` \e -> putStrLn ("Exc: " ++ show e) main = do
test2 `catchIOError` \e -> putStrLn ("Exc: " ++ show e) -- N.B. Only show the error type since the exact error text
-- may depend upon precise system call which @process@ decided
-- to use.
let printError e = putStrLn ("Exc: " ++ show (ioeGetErrorType e))
test1 `catchIOError` printError
test2 `catchIOError` printError
test1 :: IO () test1 :: IO ()
test1 = do test1 = do
......
Exc: true: runInteractiveProcess: chdir: invalid argument (Bad file descriptor) Exc: does not exist
Exc: true: runProcess: chdir: does not exist (No such file or directory) Exc: does not exist
Exc: true: runInteractiveProcess: does not exist (No such file or directory) Exc: does not exist
Exc: true: runProcess: does not exist (No such file or directory) Exc: does not exist
Exc: true: runInteractiveProcess: invalid argument (Invalid argument) Exc: invalid argument
Exc: true: runProcess: invalid argument (Invalid argument) Exc: invalid argument
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment