summaryrefslogtreecommitdiff
path: root/examples/dhtd.hs
diff options
context:
space:
mode:
Diffstat (limited to 'examples/dhtd.hs')
-rw-r--r--examples/dhtd.hs2
1 files changed, 0 insertions, 2 deletions
diff --git a/examples/dhtd.hs b/examples/dhtd.hs
index 52ff3c98..15369ede 100644
--- a/examples/dhtd.hs
+++ b/examples/dhtd.hs
@@ -231,8 +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 Pretty (NodeInfo Tox.Message IPv4 ()) where
235instance Pretty (NodeInfo Tox.Message IPv4 Bool) where -- TODO
236instance Read (NodeId KMessageOf) where 234instance Read (NodeId KMessageOf) where
237 readsPrec d s = map (\(ih,s) -> (toNodeId (ih::InfoHash),s)) $ readsPrec d s 235 readsPrec d s = map (\(ih,s) -> (toNodeId (ih::InfoHash),s)) $ readsPrec d s
238instance Read (NodeId Tox.Message) where -- TODO 236instance Read (NodeId Tox.Message) where -- TODO