summaryrefslogtreecommitdiff
path: root/examples/dhtd.hs
diff options
context:
space:
mode:
Diffstat (limited to 'examples/dhtd.hs')
-rw-r--r--examples/dhtd.hs3
1 files changed, 0 insertions, 3 deletions
diff --git a/examples/dhtd.hs b/examples/dhtd.hs
index 15369ede..2c4f0778 100644
--- a/examples/dhtd.hs
+++ b/examples/dhtd.hs
@@ -231,9 +231,6 @@ instance Kademlia Tox.Message where
231 231
232instance Pretty (NodeId Tox.Message) where pPrint (Tox.NodeId nid) = encodeHexDoc nid 232instance Pretty (NodeId Tox.Message) where pPrint (Tox.NodeId nid) = encodeHexDoc nid
233 233
234instance Read (NodeId KMessageOf) where
235 readsPrec d s = map (\(ih,s) -> (toNodeId (ih::InfoHash),s)) $ readsPrec d s
236instance Read (NodeId Tox.Message) where -- TODO
237instance Serialize (FindNode Tox.Message IPv4) where 234instance Serialize (FindNode Tox.Message IPv4) where
238 get = error "TODO get 1" 235 get = error "TODO get 1"
239 put = error "TODO put 2" 236 put = error "TODO put 2"