diff options
| author | joe <joe@jerkface.net> | 2017-07-08 22:10:40 -0400 |
|---|---|---|
| committer | joe <joe@jerkface.net> | 2017-07-08 22:10:40 -0400 |
| commit | 8fe93b8e1d1d968bdf0b8a35335b060d92a9d7d7 (patch) | |
| tree | 6e9a4b35f11de5ad0e4f422e0a6d268b5270befd /examples/dhtd.hs | |
| parent | f75d515bc0100e5ca372d592aa2f5f4ff2fc858c (diff) | |
WIP: Tox encryption.
Diffstat (limited to 'examples/dhtd.hs')
| -rw-r--r-- | examples/dhtd.hs | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/examples/dhtd.hs b/examples/dhtd.hs index fddaf5ab..993727b5 100644 --- a/examples/dhtd.hs +++ b/examples/dhtd.hs | |||
| @@ -453,6 +453,11 @@ clientSession bt tox signalQuit isBt sock n h = do | |||
| 453 | Left er -> return $ hPutClient h er | 453 | Left er -> return $ hPutClient h er |
| 454 | 454 | ||
| 455 | -- DHT specific | 455 | -- DHT specific |
| 456 | -- | ||
| 457 | -- Current syntax: | ||
| 458 | -- find-nodes c55729c4adeb286017f512c7316059e052c98e67 179.197.102.29:59933 | ||
| 459 | -- | ||
| 460 | -- | ||
| 456 | ("find-nodes", s) -> cmd $ GenericDHT $ do | 461 | ("find-nodes", s) -> cmd $ GenericDHT $ do |
| 457 | let (hs,as) = second (dropWhile isSpace) $ break isSpace s | 462 | let (hs,as) = second (dropWhile isSpace) $ break isSpace s |
| 458 | parse = do ih <- readEither hs | 463 | parse = do ih <- readEither hs |