1 files changed, 1 insertions, 1 deletions

diff --git a/src/Network/BitTorrent/Tracker.hs b/src/Network/BitTorrent/Tracker.hs
index 11bc52de..c3bce63a 100644
--- a/src/Network/BitTorrent/Tracker.hs
+++ b/src/Network/BitTorrent/Tracker.hs
@@ -188,7 +188,7 @@ withTracker initProgress conn action = bracket start end (action . fst)
         resp <- tryJust isIOException $ do
                     askTracker (regularReq defaultNumWant conn pr)
         case resp of
-          Right (ok @ OK {..}) -> do
+          Right (OK {..}) -> do
             writeIORef seInterval respInterval
             writeList2Chan sePeers respPeers
           _ -> return ()