[project @ 1997-08-14 18:30:43 by sof]
[ghc-hetmet.git] / ghc / compiler / tests / validation-misc / Echo.hs
diff --git a/ghc/compiler/tests/validation-misc/Echo.hs b/ghc/compiler/tests/validation-misc/Echo.hs
deleted file mode 100644 (file)
index 8711420..0000000
+++ /dev/null
@@ -1,8 +0,0 @@
-import MiniPrel
-
-main = (ccall getchar)    `thenU` ( \ ch ->
-          case ch of
-            -1# -> (ccall exit 0#)
-            _   -> (ccall putchar ch) `thenU` ( \ _ ->
-                   main )
-        )