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
   <*> newEmptyMVar
 
 unblockAll :: PendingQueries -> IO ()
-unblockAll m = traverse (traverse unblock) m >> return ()
+unblockAll m = traverse (traverse unblockCall) m >> return ()
   where
-    unblock ares = putMVar ares (Left ManagerClosed)
+    unblockCall ares = putMVar ares (Left ManagerClosed)
 
 resetState :: Manager -> IO ()
 resetState Manager {..} = do