3 Client side to net001/Main.hs.
5 Note that the machine IP numbers have been hard coded into this
6 program so it is unlikely that you will be able to run this test if
7 you are not at dcs.gla.ac.uk :-(
9 The reason for this is to aviod using the BSD module at this stage of
27 starbuck = "130.209.240.81" -- SunOS 4.1.3 1 sun4c
28 marcus = "130.209.247.2" -- SunOS 4.1.3 6 sun4m
29 avon = "130.209.247.4" -- OSF1 V2.0 240 alpha
30 karkar = "130.209.247.3" -- OSF1 V2.0 240 alpha
32 message = "Hello World"
36 socket AF_INET Stream 6 >>= \ s ->
37 connect s (SockAddrInet 5000 (inet_addr avon)) >>
39 writeSocket s message >>