Close file descriptor in accept when exception happens

kazu-yamamoto · Aug 9, 2023 · 4d35877 · 4d35877
1 parent 7c2c834
commit 4d35877
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/Network/Socket/Syscall.hs b/Network/Socket/Syscall.hs
@@ -191,7 +191,7 @@ listen s backlog = withFdSocket s $ \fd -> do
 accept :: SocketAddress sa => Socket -> IO (Socket, sa)
 accept listing_sock = withNewSocketAddress $ \new_sa sz ->
     withFdSocket listing_sock $ \listing_fd -> do
- new_sock <- callAccept listing_fd new_sa sz >>= mkSocket
+ new_sock <- E.bracketOnError (callAccept listing_fd new_sa sz) c_close mkSocket
  new_addr <- peekSocketAddress new_sa
  return (new_sock, new_addr)
   where