Repository : ssh://darcs.haskell.org//srv/darcs/packages/base On branch : master
http://hackage.haskell.org/trac/ghc/changeset/389e94095a4d3292cc0d89e0294e8fbffa3a5818 >--------------------------------------------------------------- commit 389e94095a4d3292cc0d89e0294e8fbffa3a5818 Author: Ian Lynagh <[email protected]> Date: Sun Nov 20 00:11:22 2011 +0000 Update system001 output >--------------------------------------------------------------- tests/System/system001.stdout | 22 +++++++++++++--------- 1 files changed, 13 insertions(+), 9 deletions(-) diff --git a/tests/System/system001.stdout b/tests/System/system001.stdout index 4237d52..7d5c0bd 100644 --- a/tests/System/system001.stdout +++ b/tests/System/system001.stdout @@ -3,12 +3,16 @@ import System.Cmd (system) import System.Exit (ExitCode(..), exitWith) -main = - system "cat dog 1>/dev/null 2>&1" >>= \ ec -> - case ec of - ExitSuccess -> putStr "What?!?\n" >> ioError (userError "dog succeeded") - ExitFailure _ -> - system "cat system001.hs 2>/dev/null" >>= \ ec -> - case ec of - ExitSuccess -> exitWith ExitSuccess - ExitFailure _ -> putStr "What?!?\n" >> ioError (userError "cat failed") +main = do ec <- system "cat dog 1>/dev/null 2>&1" + case ec of + ExitSuccess -> + do putStr "What?!?\n" + ioError (userError "dog succeeded") + ExitFailure _ -> + do ec <- system "cat system001.hs 2>/dev/null" + case ec of + ExitSuccess -> + exitWith ExitSuccess + ExitFailure _ -> + do putStr "What?!?\n" + ioError (userError "cat failed") _______________________________________________ Cvs-libraries mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-libraries
