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

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

diff --git a/ghc/misc/examples/io/io021/Main.hs b/ghc/misc/examples/io/io021/Main.hs
new file mode 100644 (file)
index 0000000..66548f6
--- /dev/null
+++ b/ghc/misc/examples/io/io021/Main.hs
@@ -0,0 +1,4 @@
+main = 
+    hSetBuffering stdin NoBuffering    >>
+    hSetBuffering stdout NoBuffering   >>
+    interact id