From 4c3f564bebeeb0e17584bd7fbd689ea6cfee4334 Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Wed, 5 Aug 1998 22:33:05 +0000
Subject: [PATCH] [project @ 1998-08-05 22:33:05 by sof] accept buglet
---
ghc/lib/misc/Socket.lhs | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/ghc/lib/misc/Socket.lhs b/ghc/lib/misc/Socket.lhs
index 94b97d8042d4..85beb2a4628e 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}
--
GitLab