Move metadata exchange default limits to Message.hs

2 files changed, 18 insertions, 11 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
 -----------------------------------------------------------------------}
diff --git a/src/Network/BitTorrent/Exchange/Wire.hs b/src/Network/BitTorrent/Exchange/Wire.hs
index ef53032e..f61e59fa 100644
--- a/src/Network/BitTorrent/Exchange/Wire.hs
+++ b/src/Network/BitTorrent/Exchange/Wire.hs
@@ -410,17 +410,6 @@ data Options = Options
   , maxInfoDictSize     :: {-# UNPACK #-} !Int
   } deriving Show
 
--- | Allows a requesting peer to send 2 'MetadataRequest's for the
--- each piece.
-defaultMetadataFactor :: Int
-defaultMetadataFactor = 2
-
--- | Usually torrent size do not exceed 1MB. This value limit torrent
--- /content/ size to about 8TB. See 'maxInfoDictSize' for explanation
--- why do we need this limit.
-defaultMaxInfoDictSize :: Int
-defaultMaxInfoDictSize = 10 * 1024 * 1024
-
 -- | Permissive default parameters, most likely you don't need to
 -- change them.
 instance Default Options where