diff options
| author | joe <joe@jerkface.net> | 2017-07-01 12:33:52 -0400 |
|---|---|---|
| committer | joe <joe@jerkface.net> | 2017-07-01 12:33:52 -0400 |
| commit | 57dd508dcf9dc6fee1510ff52e9783e4b2afe8f5 (patch) | |
| tree | 901f138efecdc859111094978db8d8f2c36dd691 /examples | |
| parent | 12cbcd87e7d36f8211d6556d8bf4e60ebec07c0e (diff) | |
Implemented instance Read (NodeId ...)
Diffstat (limited to 'examples')
| -rw-r--r-- | examples/dhtd.hs | 3 |
1 files changed, 0 insertions, 3 deletions
diff --git a/examples/dhtd.hs b/examples/dhtd.hs index 15369ede..2c4f0778 100644 --- a/examples/dhtd.hs +++ b/examples/dhtd.hs | |||
| @@ -231,9 +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 Read (NodeId KMessageOf) where | ||
| 235 | readsPrec d s = map (\(ih,s) -> (toNodeId (ih::InfoHash),s)) $ readsPrec d s | ||
| 236 | instance Read (NodeId Tox.Message) where -- TODO | ||
| 237 | instance Serialize (FindNode Tox.Message IPv4) where | 234 | instance Serialize (FindNode Tox.Message IPv4) where |
| 238 | get = error "TODO get 1" | 235 | get = error "TODO get 1" |
| 239 | put = error "TODO put 2" | 236 | put = error "TODO put 2" |