summaryrefslogtreecommitdiff
path: root/examples
diff options
context:
space:
mode:
authorjoe <joe@jerkface.net>2017-07-01 11:52:04 -0400
committerjoe <joe@jerkface.net>2017-07-01 11:52:04 -0400
commit8cbc9b28b4d2923dfc1502d66af20dc8d06c7bda (patch)
tree189e9ea96430c7b6e0bf467d4941e50e1cd639fc /examples
parent0fc13f131aaeb7e9a4efcdd0ff934bdb2963cb83 (diff)
Implemented instance Pretty (NodeId Tox.Message).
Diffstat (limited to 'examples')
-rw-r--r--examples/dhtd.hs3
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
232instance Pretty (NodeId Tox.Message) where 232instance Pretty (NodeId Tox.Message) where pPrint (Tox.NodeId nid) = encodeHexDoc nid
233
233instance Pretty (NodeInfo Tox.Message IPv4 ()) where 234instance Pretty (NodeInfo Tox.Message IPv4 ()) where
234instance Pretty (NodeInfo Tox.Message IPv4 Bool) where -- TODO 235instance Pretty (NodeInfo Tox.Message IPv4 Bool) where -- TODO
235instance Read (NodeId KMessageOf) where 236instance Read (NodeId KMessageOf) where