berkelyAccept: use uninterruptibleMask_ when closing a socket

The resource handler for `bracketOnError` must be uninterruptible.
IntersectMBO · Oct 14, 2021 · c779353 · c779353
1 parent 0dd1485
commit c779353
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/ouroboros-network-framework/src/Ouroboros/Network/Snocket.hs b/ouroboros-network-framework/src/Ouroboros/Network/Snocket.hs
@@ -151,7 +151,7 @@ berkeleyAccept ioManager sock =
 #else
           (unmask $ Win32.Async.accept sock)
 #endif
-          (Socket.close . fst)
+          (uninterruptibleMask_ . Socket.close . fst)
           $ \(sock', addr') -> do
             unmask $ associateWithIOManager ioManager (Right sock')