diff options
| -rw-r--r-- | examples/dhtd.hs | 7 |
1 files changed, 5 insertions, 2 deletions
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 | |||
| 737 | 737 | ||
| 738 | dhtkeys, announcables, links, ks, allcommands :: [[String]] | 738 | dhtkeys, announcables, links, ks, allcommands :: [[String]] |
| 739 | dhtkeys = map tolist $ Map.keys dhts | 739 | dhtkeys = map tolist $ Map.keys dhts |
| 740 | announcables = map (tolist . ("s "++)) $ Map.keys dhtAnnouncables | 740 | queries = map (tolist . ("s "++)) $ Map.keys dhtQuery |
| 741 | xs = map (tolist . ("x "++)) $ Map.keys dhtQuery | ||
| 742 | gs = map (tolist . ("g "++)) $ Map.keys dhtQuery | ||
| 743 | announcables = map (tolist . ("p "++)) $ Map.keys dhtAnnouncables | ||
| 741 | links = map (tolist . ("c "++)) $ Map.keys dhtLinks | 744 | links = map (tolist . ("c "++)) $ Map.keys dhtLinks |
| 742 | ks = [["k gen"],["k public"],["k secret"]] | 745 | ks = [["k gen"],["k public"],["k secret"]] |
| 743 | allcommands = sortBy (comparing head) $ concat [sessionCommands, dhtkeys, announcables, links, ks] | 746 | allcommands = sortBy (comparing head) $ concat [sessionCommands, dhtkeys, announcables, links, ks, queries, gs,xs] |
| 744 | 747 | ||
| 745 | hPutClient h ("Available commands:\n" ++ showColumns allcommands) | 748 | hPutClient h ("Available commands:\n" ++ showColumns allcommands) |
| 746 | 749 | ||