rempve some unused files

[ghc-hetmet.git] / ghc / misc / examples / cats / hcat2.hs

diff --git a/ghc/misc/examples/cats/hcat2.hs b/ghc/misc/examples/cats/hcat2.hs
deleted file mode 100644 (file)
index 3323ae8..0000000
--- a/ghc/misc/examples/cats/hcat2.hs
+++ /dev/null
@@ -1,10 +0,0 @@
-module Main (main) where
-
-main :: IO ()
-main
-  = try getChar >>=
-    {-then-}either  (\ _ -> return ())
-    {-or-}          (\ c -> putChar c >>
-                            main)
-
--- 51,156 bytes/sec (600KB input)