Add new peer store datatype

1 files changed, 18 insertions, 0 deletions

diff --git a/src/Network/BitTorrent/DHT/ContactInfo.hs b/src/Network/BitTorrent/DHT/ContactInfo.hs
new file mode 100644
index 00000000..06d2dac0
--- /dev/null
+++ b/src/Network/BitTorrent/DHT/ContactInfo.hs
@@ -0,0 +1,18 @@
+module Network.BitTorrent.DHT.ContactInfo () where
+import Data.HashMap.Strict as HM
+
+import Data.Torrent.InfoHash
+import Network.BitTorrent.Core
+
+-- increase prefix when table is too large
+-- decrease prefix when table is too small
+-- filter outdated peers
+
+data ContactInfo ip = PeerStore
+  { maxSize    :: Int
+  , prefixSize :: Int
+  , thisNodeId :: NodeId
+
+  , count      :: Int  -- ^ Cached size of the 'peerSet'
+  , peerSet    :: HashMap InfoHash [PeerAddr ip]
+  }