[project @ 1996-07-25 21:02:03 by partain]
[nofib.git] / GHC_ONLY / io005 / io005.stdout
index a987b9f..3a41560 100644 (file)
@@ -1,11 +1,11 @@
-import LibSystem (system, ExitCode(..), exitWith)
+import System (system, ExitCode(..), exitWith)
 
 main = 
     system "cat dog 1>/dev/null 2>&1" >>= \ ec ->
     case ec of
-        ExitSuccess   -> putStr "What?!?\n" >> fail "dog succeeded"
+        ExitSuccess   -> putStr "What?!?\n" >> fail (userError "dog succeeded")
         ExitFailure _ ->
             system "cat Main.hs 2>/dev/null" >>= \ ec ->
            case ec of
                ExitSuccess   -> exitWith ExitSuccess
-               ExitFailure _ -> putStr "What?!?\n" >> fail "cat failed"
+               ExitFailure _ -> putStr "What?!?\n" >> fail (userError "cat failed")