rempve some unused files

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

diff --git a/ghc/misc/examples/net008/Main.hs b/ghc/misc/examples/net008/Main.hs
deleted file mode 100644 (file)
index 8c33929..0000000
--- a/ghc/misc/examples/net008/Main.hs
+++ /dev/null
@@ -1,22 +0,0 @@
-module Main where
-
-import SocketPrim
-import BSD
-import LibSystem
-
-
-main =
-    getArgs                                    >>= \ [host, port, message] ->
-    getProtocolNumber "tcp"                    >>= \ proto ->
-    socket AF_INET Stream proto                        >>= \ s ->
-    getHostByName host                         >>= \ (HostEntry _ _ _ haddrs) ->
-    connect s (SockAddrInet (read port) 
-               (head haddrs))                  >>
-
-    getPeerName s                              >>= \ (SockAddrInet _ haddr) ->  
-    getHostByAddr AF_INET haddr                        >>= \ (HostEntry hname _ _ _) ->
-    putStr ("Connected to : " ++ hname ++ "\n") >>
-    writeSocket s message                      >>
-    shutdown s 2                               >>
-    sClose s
-