From 375a550c9e19f176a9ba346740abdc46899d936c Mon Sep 17 00:00:00 2001 From: James Crayne Date: Wed, 1 Nov 2017 07:45:17 +0000 Subject: more help --- examples/dhtd.hs | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) (limited to 'examples') diff --git a/examples/dhtd.hs b/examples/dhtd.hs index 623b03c5..bd9b9e09 100644 --- a/examples/dhtd.hs +++ b/examples/dhtd.hs @@ -737,10 +737,13 @@ clientSession s@Session{..} sock cnum h = do dhtkeys, announcables, links, ks, allcommands :: [[String]] dhtkeys = map tolist $ Map.keys dhts - announcables = map (tolist . ("s "++)) $ Map.keys dhtAnnouncables + queries = map (tolist . ("s "++)) $ Map.keys dhtQuery + xs = map (tolist . ("x "++)) $ Map.keys dhtQuery + gs = map (tolist . ("g "++)) $ Map.keys dhtQuery + announcables = map (tolist . ("p "++)) $ Map.keys dhtAnnouncables links = map (tolist . ("c "++)) $ Map.keys dhtLinks ks = [["k gen"],["k public"],["k secret"]] - allcommands = sortBy (comparing head) $ concat [sessionCommands, dhtkeys, announcables, links, ks] + allcommands = sortBy (comparing head) $ concat [sessionCommands, dhtkeys, announcables, links, ks, queries, gs,xs] hPutClient h ("Available commands:\n" ++ showColumns allcommands) -- cgit v1.2.3