[project @ 1997-03-14 08:02:40 by simonpj]
[nofib.git] / GHC_ONLY / net006 / Main.hs
index 57be04e..e2ad13a 100644 (file)
@@ -19,9 +19,9 @@ message           = "Hello World"
 
 
 main =
-    socket AF_UNIX Datagram 0                          >>= \ s ->
-    connect s (SockAddrUnix "sock")                    >>
+    socket AF_UNIX Datagram 0          >>= \ s ->
+    connect s (SockAddrUnix "sock")    >>
     
-    writeSocket s message                              >>
-    shutdown s 2                                       >>
+    writeSocket s message              >>
+    shutdown s ShutdownBoth            >>
     sClose s