diff options
| author | Sam Truzjan <pxqr.sta@gmail.com> | 2014-02-26 15:57:53 +0400 |
|---|---|---|
| committer | Sam Truzjan <pxqr.sta@gmail.com> | 2014-02-26 15:57:53 +0400 |
| commit | de653fabaaa1718ce695f41890016ff979bb5c00 (patch) | |
| tree | 8c4c5b6ab51990c6f5ed70b17c0ca152dedeaabd /src/Network/BitTorrent/Tracker | |
| parent | 4371e51bcdc7ed85bea384169d039a98742572bd (diff) | |
Fix a warning
Diffstat (limited to 'src/Network/BitTorrent/Tracker')
| -rw-r--r-- | src/Network/BitTorrent/Tracker/RPC/UDP.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Network/BitTorrent/Tracker/RPC/UDP.hs b/src/Network/BitTorrent/Tracker/RPC/UDP.hs index f271e864..d0468e32 100644 --- a/src/Network/BitTorrent/Tracker/RPC/UDP.hs +++ b/src/Network/BitTorrent/Tracker/RPC/UDP.hs | |||
| @@ -123,9 +123,9 @@ initManager opts = Manager opts | |||
| 123 | <*> newEmptyMVar | 123 | <*> newEmptyMVar |
| 124 | 124 | ||
| 125 | unblockAll :: PendingQueries -> IO () | 125 | unblockAll :: PendingQueries -> IO () |
| 126 | unblockAll m = traverse (traverse unblock) m >> return () | 126 | unblockAll m = traverse (traverse unblockCall) m >> return () |
| 127 | where | 127 | where |
| 128 | unblock ares = putMVar ares (Left ManagerClosed) | 128 | unblockCall ares = putMVar ares (Left ManagerClosed) |
| 129 | 129 | ||
| 130 | resetState :: Manager -> IO () | 130 | resetState :: Manager -> IO () |
| 131 | resetState Manager {..} = do | 131 | resetState Manager {..} = do |