From 772e0d6974f955465345fd3055a3ffde71282a4d Mon Sep 17 00:00:00 2001
From: Sam Truzjan <pxqr.sta@gmail.com>
Date: Wed, 11 Dec 2013 02:47:45 +0400
Subject: Add defaultKeepAliveTimeout constant

---
 src/Network/BitTorrent/Exchange/Message.hs | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

(limited to 'src')

diff --git a/src/Network/BitTorrent/Exchange/Message.hs b/src/Network/BitTorrent/Exchange/Message.hs
index 335a9050..f848f4cb 100644
--- a/src/Network/BitTorrent/Exchange/Message.hs
+++ b/src/Network/BitTorrent/Exchange/Message.hs
@@ -54,6 +54,7 @@ module Network.BitTorrent.Exchange.Message
 
          -- * Messages
        , Message        (..)
+       , defaultKeepAliveTimeout
        , defaultKeepAliveInterval
        , PeerMessage    (..)
 
@@ -982,9 +983,15 @@ instance PeerMessage PortNumber where
   requires _ = Just ExtDHT
   {-# INLINE requires #-}
 
--- | In seconds.
+-- | How long /this/ peer should wait before dropping connection, in
+-- seconds.
+defaultKeepAliveTimeout :: Int
+defaultKeepAliveTimeout = 2 * 60
+
+-- | How often /this/ peer should send 'KeepAlive' messages, in
+-- seconds.
 defaultKeepAliveInterval :: Int
-defaultKeepAliveInterval = 2 * 60
+defaultKeepAliveInterval = 60
 
 getInt :: S.Get Int
 getInt = fromIntegral <$> S.getWord32be
-- 
cgit v1.2.3