[project @ 2000-01-11 17:23:39 by sewardj]

[ghc-hetmet.git] / ghc / tests / codeGen / should_run / cg025.hs

diff --git a/ghc/tests/codeGen/should_run/cg025.hs b/ghc/tests/codeGen/should_run/cg025.hs
index 9700086..ba24d3a 100644 (file)
--- a/ghc/tests/codeGen/should_run/cg025.hs
+++ b/ghc/tests/codeGen/should_run/cg025.hs
@@ -1,4 +1,4 @@
---!!! test various I/O Requests
+-- !!! test various I/O Requests
 --
 --
 import IO
@@ -11,10 +11,10 @@ main = do
     args <- getArgs
     hPutStr stderr (shows args "\n")
     path <- getEnv "PATH"
-    hPutStr stderr (shows path "\n")
+    hPutStr stderr ("GOT PATH\n")
     stdin_txt <- getContents
     putStr stdin_txt
     file_cts <- readFile (head args)
     hPutStr  stderr file_cts
     trace "hello, trace" $
-      catch (getEnv "__WURBLE__" >> return ()) (\ e -> error "hello, error\n")
+      catch (getEnv "__WURBLE__" >> return ()) (\ e -> error "hello, error")