diff options
Diffstat (limited to 'ghc/misc/examples/net006/Main.hs')
-rw-r--r-- | ghc/misc/examples/net006/Main.hs | 27 |
1 files changed, 0 insertions, 27 deletions
diff --git a/ghc/misc/examples/net006/Main.hs b/ghc/misc/examples/net006/Main.hs deleted file mode 100644 index 57be04e330..0000000000 --- a/ghc/misc/examples/net006/Main.hs +++ /dev/null @@ -1,27 +0,0 @@ -{- client - -Client side of net005 - -TESTS: - socket - connect - writeSocket - shutdown - sClose --} - - -module Main where - -import SocketPrim - -message = "Hello World" - - -main = - socket AF_UNIX Datagram 0 >>= \ s -> - connect s (SockAddrUnix "sock") >> - - writeSocket s message >> - shutdown s 2 >> - sClose s |