[project @ 1997-09-05 14:11:05 by simonm]

[ghc-hetmet.git] / ghc / tests / io / should_run / net002.hs

diff --git a/ghc/tests/io/should_run/net002.hs b/ghc/tests/io/should_run/net002.hs
index 7ae6cdc..8906023 100644 (file)
--- a/ghc/tests/io/should_run/net002.hs
+++ b/ghc/tests/io/should_run/net002.hs
@@ -37,6 +37,6 @@ main =
     connect s (SockAddrInet 5000 (inet_addr avon))     >>
     
     writeSocket s message                              >>
-    shutdown s 2                                       >>
+    shutdown s ShutdownBoth                            >>
     sClose s