diff options
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 |