From 1f87b0c2b67bfc7ee05e3076dcc10c96aed76aa7 Mon Sep 17 00:00:00 2001
From: Sam T <pxqr.sta@gmail.com>
Date: Fri, 17 May 2013 07:00:49 +0400
Subject: ~ Move kademlia to standalone package.

---
 src/Network/DHT/Kademlia.hs | 65 ---------------------------------------------
 1 file changed, 65 deletions(-)
 delete mode 100644 src/Network/DHT/Kademlia.hs

(limited to 'src/Network')

diff --git a/src/Network/DHT/Kademlia.hs b/src/Network/DHT/Kademlia.hs
deleted file mode 100644
index bc03ac16..00000000
--- a/src/Network/DHT/Kademlia.hs
+++ /dev/null
@@ -1,65 +0,0 @@
-{-# LANGUAGE OverloadedStrings #-}
-module Network.DHT.Kademlia
-       (
-       ) where
-
-import Data.ByteString
-import Network
-import Remote.KRPC
-
-import Data.Kademlia.Routing.Table
-{-
-
--- | Global unique identifier of the node. Size of the identifier
--- should(!) be equal to the size of DHT keys. This limitation arises
--- from the design of Kademlia: we should estimate distance between
--- keys and NodeId in routing algorithms.
---
-type NodeID = ByteString
-
-type NodeAddr = ByteString
-type InfoHash = ByteString
-type Token    = ByteString
-
--- | Used to check out if a node is alive or not. This has a tow-fold effect:
---
---     * If(!) caller get response it should update the bucket
---     corresponding to the callee.
---
---     * Callee of the ping should update the bucket corresponding
---     to the caller as well.
---
-ping :: Method NodeID NodeID
-ping = method "ping" ["id"] ["id"]
-
-
-
--- | Used to lookup peer ID from node ID.
---
-find_node :: Method (NodeID, NodeID) (NodeID, NodeContact)
-find_node = method "find_node" ["id", "target"] ["id", "nodes"]
-
--- |
-announce_peer :: Method (NodeID, InfoHash, PortNumber, Token) NodeID
-announce_peer = undefined
-
--- WARN is the 'system' random suitable for this?
--- | Generate random NodeID used for the entire session.
---   Distribution of ID's should be as uniform as possible.
---
-genNodeID :: IO NodeID
-genNodeID = randomIO
-
-{-
-type Token = Int
-
-get_peers :: Method (NodeId :*: InfoHash) (NodeId, Token, NodeAddr :|: NodeAddr)
-get_peers = method "get_peers"
-  ("id", "target")
-  ("id", "token", view ("values" :|: "nodes"))
-
-
-
-
--}
--}
\ No newline at end of file
-- 
cgit v1.2.3