[project @ 1998-08-05 22:33:05 by sof]

accept buglet

diff --git a/ghc/lib/misc/Socket.lhs b/ghc/lib/misc/Socket.lhs
index 94b97d8..85beb2a 100644 (file)
--- a/ghc/lib/misc/Socket.lhs
+++ b/ghc/lib/misc/Socket.lhs
@@ -134,7 +134,7 @@ accept :: Socket            -- Listening Socket
 accept sock = do
  ~(sock', (SockAddrInet _ haddr)) <- SocketPrim.accept sock
  (HostEntry peer _ _ _)           <- getHostByAddr AF_INET haddr
- handle                                  <- socketToHandle sock ReadWriteMode
+ handle                                  <- socketToHandle sock' ReadWriteMode
  return (handle, peer)
 
 \end{code}