3 Server as net001 but for Unix Domain Datagram sockets.
19 socket AF_UNIX Datagram 0 >>= \ s ->
20 bindSocket s (SockAddrUnix "sock") >>
24 putStr "*** Start of Transfer ***\n" >>
27 readSocket s 1024 >>= \ (str, nbytes) ->
32 putStr "\n*** End of Transfer ***\n"