Move metadata exchange default limits to Message.hs

1 files changed, 18 insertions, 0 deletions

diff --git a/src/Network/BitTorrent/Exchange/Message.hs b/src/Network/BitTorrent/Exchange/Message.hs
index fee3ad36..0adb8299 100644
--- a/src/Network/BitTorrent/Exchange/Message.hs
+++ b/src/Network/BitTorrent/Exchange/Message.hs
@@ -81,6 +81,8 @@ module Network.BitTorrent.Exchange.Message
          -- *** Metadata
        , ExtendedMetadata  (..)
        , metadataPieceSize
+       , defaultMetadataFactor
+       , defaultMaxInfoDictSize
        ) where
 
 import Control.Applicative
@@ -882,6 +884,22 @@ putMetadata msg
   | Just bs <- getMetadataPayload msg = BE.encode msg <> BL.fromStrict bs
   |              otherwise            = BE.encode msg
 
+-- | Allows a requesting peer to send 2 'MetadataRequest's for the
+--   each piece.
+--
+--   See 'Network.BitTorrent.Wire.Options.metadataFactor' for
+--   explanation why do we need this limit.
+defaultMetadataFactor :: Int
+defaultMetadataFactor = 2
+
+-- | Usually torrent size do not exceed 1MB. This value limit torrent
+--   /content/ size to about 8TB.
+--
+--   See 'Network.BitTorrent.Wire.Options.maxInfoDictSize' for
+--   explanation why do we need this limit.
+defaultMaxInfoDictSize :: Int
+defaultMaxInfoDictSize = 10 * 1024 * 1024
+
 {-----------------------------------------------------------------------
 --  Extension protocol messages
 -----------------------------------------------------------------------}