From 63cda028ce38fd37bd3ee55f546b107f161af170 Mon Sep 17 00:00:00 2001
From: Sam Truzjan <pxqr.sta@gmail.com>
Date: Wed, 26 Feb 2014 15:42:15 +0400
Subject: s/TrackerNotResponding/TimeoutExpired

---
 src/Network/BitTorrent/Tracker/RPC/UDP.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/Network/BitTorrent/Tracker/RPC/UDP.hs')

diff --git a/src/Network/BitTorrent/Tracker/RPC/UDP.hs b/src/Network/BitTorrent/Tracker/RPC/UDP.hs
index dfa8c968..f057597c 100644
--- a/src/Network/BitTorrent/Tracker/RPC/UDP.hs
+++ b/src/Network/BitTorrent/Tracker/RPC/UDP.hs
@@ -164,7 +164,7 @@ data RpcException
   | HostLookupFailed
 
     -- | Tracker exists but not responding for specific number of seconds.
-  | TrackerNotResponding Int
+  | TimeoutExpired Int
 
     -- | Tracker responded with unexpected message type.
   | UnexpectedResponse
@@ -517,7 +517,7 @@ retransmission :: Options -> IO a -> IO a
 retransmission Options {..} action = go optMinTimeout
   where
     go curTimeout
-      | curTimeout > optMaxTimeout = throwIO $ TrackerNotResponding curTimeout
+      | curTimeout > optMaxTimeout = throwIO $ TimeoutExpired curTimeout
       |         otherwise          = do
         r <- timeout curTimeout action
         maybe (go (2 * curTimeout)) return r
-- 
cgit v1.2.3