[project @ 1996-01-08 20:28:12 by partain]

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