From: sof <unknown>
Date: Wed, 5 Aug 1998 22:33:05 +0000 (+0000)
Subject: [project @ 1998-08-05 22:33:05 by sof]
X-Git-Tag: Approx_2487_patches~485
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=4c3f564bebeeb0e17584bd7fbd689ea6cfee4334;p=ghc-hetmet.git

[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
--- 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}