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

[ghc-hetmet.git] / ghc / misc / examples / io / io006 / Main.hs

diff --git a/ghc/misc/examples/io/io006/Main.hs b/ghc/misc/examples/io/io006/Main.hs
new file mode 100644 (file)
index 0000000..c6fc539
--- /dev/null
+++ b/ghc/misc/examples/io/io006/Main.hs
@@ -0,0 +1,4 @@
+main =
+    hClose stderr >>
+    hPutStr stderr "junk" `handle` \ (IllegalOperation _) -> putStr "Okay\n"
+