Update system001 output
authorIan Lynagh <igloo@earth.li>
Sun, 20 Nov 2011 00:11:22 +0000 (00:11 +0000)
committerIan Lynagh <igloo@earth.li>
Sun, 20 Nov 2011 00:11:22 +0000 (00:11 +0000)
tests/System/system001.stdout

index 4237d52..7d5c0bd 100644 (file)
@@ -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")