diff options
| author | Sam T <pxqr.sta@gmail.com> | 2013-08-16 17:22:05 +0400 |
|---|---|---|
| committer | Sam T <pxqr.sta@gmail.com> | 2013-08-16 17:22:05 +0400 |
| commit | 93c37407f9f30c92f2aa3cfd8f0001c78a8ab476 (patch) | |
| tree | e09a0c4a707c6c98aa2f0e0d9dca0b20f3307961 /src/Network/BitTorrent/Sessions.hs | |
| parent | 117f02a8e1dcda839e700d92e323a418c15522f5 (diff) | |
~ Mask async exceptions in context release.
Diffstat (limited to 'src/Network/BitTorrent/Sessions.hs')
| -rw-r--r-- | src/Network/BitTorrent/Sessions.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 | |||
| 300 | MSem.wait vacantPeers | 300 | MSem.wait vacantPeers |
| 301 | 301 | ||
| 302 | leaveSwarm :: SwarmSession -> IO () | 302 | leaveSwarm :: SwarmSession -> IO () |
| 303 | leaveSwarm SwarmSession {..} = do | 303 | leaveSwarm SwarmSession {..} = mask_ $ do |
| 304 | MSem.signal vacantPeers | 304 | MSem.signal vacantPeers |
| 305 | MSem.signal (activeThreads clientSession) | 305 | MSem.signal (activeThreads clientSession) |
| 306 | 306 | ||