summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--tests/Shared.hs25
1 files changed, 0 insertions, 25 deletions
diff --git a/tests/Shared.hs b/tests/Shared.hs
index e0e5268c..bf29365b 100644
--- a/tests/Shared.hs
+++ b/tests/Shared.hs
@@ -23,28 +23,3 @@ swapM = method "swap" ["x", "y"] ["b", "a"]
23 23
24shiftR :: Method ((), Int, [Int]) ([Int], (), Int) 24shiftR :: Method ((), Int, [Int]) ([Int], (), Int)
25shiftR = method "shiftR" ["x", "y", "z"] ["a", "b", "c"] 25shiftR = method "shiftR" ["x", "y", "z"] ["a", "b", "c"]
26
27
28
29{-
30type NodeId = Int
31type InfoHashe = Int
32type NodeAddr = Int
33type Token = Int
34type
35
36ping :: Method NodeId NodeId
37ping = method "ping" ["id"] ["id"]
38
39find_node :: Method (NodeId, NodeId) (NodeId, NodeAddr)
40find_node = method "find_node" ["id", "target"] ["id", "nodes"]
41
42get_peers :: Method (NodeId :*: InfoHash) (NodeId, Token, NodeAddr :|: NodeAddr)
43get_peers = method "get_peers"
44 ("id", "target")
45 ("id", "token", view ("values" :|: "nodes"))
46view :: BEncodable -> Maybe BEncodable
47view = undefined
48announce_peer :: Method (NodeId, InfoHash, PortNumber, Token) NodeId
49announce_peer = undefined
50-} \ No newline at end of file