1 -- Not run on mingw, because of /dev/null use
3 import System (system, ExitCode(..), exitWith)
6 system "cat dog 1>/dev/null 2>&1" >>= \ ec ->
8 ExitSuccess -> putStr "What?!?\n" >> ioError (userError "dog succeeded")
10 system "cat system001.hs 2>/dev/null" >>= \ ec ->
12 ExitSuccess -> exitWith ExitSuccess
13 ExitFailure _ -> putStr "What?!?\n" >> ioError (userError "cat failed")