From 93c37407f9f30c92f2aa3cfd8f0001c78a8ab476 Mon Sep 17 00:00:00 2001 From: Sam T Date: Fri, 16 Aug 2013 17:22:05 +0400 Subject: ~ Mask async exceptions in context release. --- src/Network/BitTorrent/Sessions.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Network/BitTorrent/Sessions.hs') diff --git a/src/Network/BitTorrent/Sessions.hs b/src/Network/BitTorrent/Sessions.hs index ba0c60a1..f2035066 100644 --- a/src/Network/BitTorrent/Sessions.hs +++ b/src/Network/BitTorrent/Sessions.hs @@ -300,7 +300,7 @@ enterSwarm SwarmSession {..} = do MSem.wait vacantPeers leaveSwarm :: SwarmSession -> IO () -leaveSwarm SwarmSession {..} = do +leaveSwarm SwarmSession {..} = mask_ $ do MSem.signal vacantPeers MSem.signal (activeThreads clientSession) -- cgit v1.2.3