Added "peers" command to cli.

1 files changed, 7 insertions, 0 deletions

diff --git a/examples/dhtd.hs b/examples/dhtd.hs
index 96c31dfe..bc5e9eda 100644
--- a/examples/dhtd.hs
+++ b/examples/dhtd.hs
@@ -15,6 +15,7 @@ import Data.Char
 import Data.Default
 import Data.List as L
 import Data.Maybe
+import Data.String
 import qualified Data.ByteString as B (ByteString,writeFile,readFile)
         ; import Data.ByteString (ByteString)
 import System.IO
@@ -140,6 +141,12 @@ clientSession st signalQuit sock n h = do
                     return $ do
                     hPutClient h $ showReport r
 
+        s | "peers " `isPrefixOf` s -> cmd $ do
+                    let ih = fromString (drop 6 s)
+                    ps <- allPeers ih
+                    return $ do
+                    hPutClient h $ showReport $ map (((,) "") . show . pPrint) ps
+
         _    -> cmd0 $ hPutClient h "error."
 
 main :: IO ()