[commit: base] master: Update system001 output (389e940)

[Ian Lynagh]

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 <igloo at earth.li>
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")