1 import LibSystem (system, ExitCode(..), exitWith)
4 system "cat dog 1>/dev/null 2>&1" >>= \ ec ->
6 ExitSuccess -> putStr "What?!?\n" >> fail "dog succeeded"
8 system "cat Main.hs 2>/dev/null" >>= \ ec ->
10 ExitSuccess -> exitWith ExitSuccess
11 ExitFailure _ -> putStr "What?!?\n" >> fail "cat failed"