diff options
Diffstat (limited to 'examples/dhtd.hs')
-rw-r--r-- | examples/dhtd.hs | 2 |
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 | ||
232 | instance Pretty (NodeId Tox.Message) where pPrint (Tox.NodeId nid) = encodeHexDoc nid | 232 | instance Pretty (NodeId Tox.Message) where pPrint (Tox.NodeId nid) = encodeHexDoc nid |
233 | 233 | ||
234 | instance Pretty (NodeInfo Tox.Message IPv4 ()) where | ||
235 | instance Pretty (NodeInfo Tox.Message IPv4 Bool) where -- TODO | ||
236 | instance Read (NodeId KMessageOf) where | 234 | instance 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 |
238 | instance Read (NodeId Tox.Message) where -- TODO | 236 | instance Read (NodeId Tox.Message) where -- TODO |