diff options
| author | joe <joe@jerkface.net> | 2017-07-01 12:05:31 -0400 |
|---|---|---|
| committer | joe <joe@jerkface.net> | 2017-07-01 12:05:31 -0400 |
| commit | 12cbcd87e7d36f8211d6556d8bf4e60ebec07c0e (patch) | |
| tree | 016817985431f4c0efac0a157365d1ca7f14d2ac /examples/dhtd.hs | |
| parent | 8cbc9b28b4d2923dfc1502d66af20dc8d06c7bda (diff) | |
Implemented instance Pretty (NodeInfo ...).
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 |