rempve some unused files

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

diff --git a/ghc/misc/examples/io/io018/Main.hs b/ghc/misc/examples/io/io018/Main.hs
deleted file mode 100644 (file)
index 7318cc7..0000000
--- a/ghc/misc/examples/io/io018/Main.hs
+++ /dev/null
@@ -1,25 +0,0 @@
-import IO -- 1.3
-
-import System(getArgs)
-
-main =   getArgs                            >>=        \ [user,host] ->
-         let username = (user ++ "@" ++ host) in
-         openFile username ReadWriteMode    >>=        \ cd          ->
-         hSetBuffering stdin NoBuffering    >>
-         hSetBuffering stdout NoBuffering   >>
-         hSetBuffering cd NoBuffering       >>
-         hPutStr cd speakString             >>
-         speak cd
-
-speakString = "Someone wants to speak with you\n"
-
-speak cd =
-         (hReady cd                         >>=        \ ready       ->
-         if ready then (hGetChar cd >>= putChar)
-         else return ()                     >>
-
-         hReady stdin                       >>=        \ ready       ->
-         if ready then (getChar >>= hPutChar cd)
-         else return ())                    >>
-
-         speak cd