diff options
| author | joe <joe@jerkface.net> | 2017-07-01 11:52:04 -0400 |
|---|---|---|
| committer | joe <joe@jerkface.net> | 2017-07-01 11:52:04 -0400 |
| commit | 8cbc9b28b4d2923dfc1502d66af20dc8d06c7bda (patch) | |
| tree | 189e9ea96430c7b6e0bf467d4941e50e1cd639fc /examples/dhtd.hs | |
| parent | 0fc13f131aaeb7e9a4efcdd0ff934bdb2963cb83 (diff) | |
Implemented instance Pretty (NodeId Tox.Message).
Diffstat (limited to 'examples/dhtd.hs')
| -rw-r--r-- | examples/dhtd.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/examples/dhtd.hs b/examples/dhtd.hs index 6dbc1120..52ff3c98 100644 --- a/examples/dhtd.hs +++ b/examples/dhtd.hs | |||
| @@ -229,7 +229,8 @@ instance Kademlia Tox.Message where | |||
| 229 | nameFindNodes _ = Tox.GetNodes | 229 | nameFindNodes _ = Tox.GetNodes |
| 230 | initializeDHTData = return ToxData | 230 | initializeDHTData = return ToxData |
| 231 | 231 | ||
| 232 | instance Pretty (NodeId Tox.Message) where | 232 | instance Pretty (NodeId Tox.Message) where pPrint (Tox.NodeId nid) = encodeHexDoc nid |
| 233 | |||
| 233 | instance Pretty (NodeInfo Tox.Message IPv4 ()) where | 234 | instance Pretty (NodeInfo Tox.Message IPv4 ()) where |
| 234 | instance Pretty (NodeInfo Tox.Message IPv4 Bool) where -- TODO | 235 | instance Pretty (NodeInfo Tox.Message IPv4 Bool) where -- TODO |
| 235 | instance Read (NodeId KMessageOf) where | 236 | instance Read (NodeId KMessageOf) where |