[project @ 2001-05-21 15:25:24 by simonmar]

[ghc-hetmet.git] / ghc / tests / lib / System / system001.hs

diff --git a/ghc/tests/lib/System/system001.hs b/ghc/tests/lib/System/system001.hs
index ac12847..f6a8b0d 100644 (file)
--- a/ghc/tests/lib/System/system001.hs
+++ b/ghc/tests/lib/System/system001.hs
@@ -7,7 +7,7 @@ main =
     case ec of
         ExitSuccess   -> putStr "What?!?\n" >> ioError (userError "dog succeeded")
         ExitFailure _ ->
-            system "cat io005.hs 2>/dev/null" >>= \ ec ->
+            system "cat system001.hs 2>/dev/null" >>= \ ec ->
            case ec of
                ExitSuccess   -> exitWith ExitSuccess
                ExitFailure _ -> putStr "What?!?\n" >> ioError (userError "cat failed")