rempve some unused files

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

diff --git a/ghc/misc/examples/net002/Main.hs b/ghc/misc/examples/net002/Main.hs
deleted file mode 100644 (file)
index 7ae6cdc..0000000
--- a/ghc/misc/examples/net002/Main.hs
+++ /dev/null
@@ -1,42 +0,0 @@
-{- client
-
-Client side to net001/Main.hs.
-
-Note that the machine IP numbers have been hard coded into this
-program so it is unlikely that you will be able to run this test if
-you are not at dcs.gla.ac.uk :-(
-
-The reason for this is to aviod using the BSD module at this stage of
-testing.
-
-
-TESTS:
-    socket
-    connect
-    writeSocket
-    shutdown
-    inet_addr
--}
-
-
-module Main where
-
-import SocketPrim
-
-
-starbuck    = "130.209.240.81"         -- SunOS 4.1.3 1 sun4c
-marcus     = "130.209.247.2"           -- SunOS 4.1.3 6 sun4m
-avon       = "130.209.247.4"           -- OSF1 V2.0 240 alpha
-karkar     = "130.209.247.3"           -- OSF1 V2.0 240 alpha
-
-message            = "Hello World"
-
-
-main =
-    socket AF_INET Stream 6                            >>= \ s ->
-    connect s (SockAddrInet 5000 (inet_addr avon))     >>
-    
-    writeSocket s message                              >>
-    shutdown s 2                                       >>
-    sClose s
-