Ticket #42: socket006.hs

File socket006.hs, 345 bytes (added by igloo, 3 years ago)
Line 
1{- client
2
3Client side of net005
4
5TESTS:
6    socket
7    connect
8    writeSocket
9    shutdown
10    sClose
11-}
12
13
14module Main where
15
16import SocketPrim
17
18message     = "Hello World"
19
20
21main =
22    socket AF_UNIX Datagram 0           >>= \ s ->
23    connect s (SockAddrUnix "sock")     >>
24   
25    writeSocket s message               >>
26    shutdown s ShutdownBoth             >>
27    sClose s