Renamed 'onion' command to just 'o'.

1 files changed, 4 insertions, 7 deletions

diff --git a/dht/examples/dhtd.hs b/dht/examples/dhtd.hs
index 99ff746c..96f0cb72 100644
--- a/dht/examples/dhtd.hs
+++ b/dht/examples/dhtd.hs
@@ -418,11 +418,8 @@ clientSession s@Session{..} sock cnum h = do
             , ["r"]
             , ["k"]
             , ["roster"]
-            , ["sessions"]
-            , ["session"]
-            , ["netcrypto"]
             , ["tcp"]
-            , ["onion"]
+            , ["o"]
             , ["g"]
             , ["p"]
             , ["a"]
@@ -717,7 +714,7 @@ clientSession s@Session{..} sock cnum h = do
                     hPutClientChunk h $ unwords [show addr, show (now - tm), TCP.showStat tcp] ++ "\n"
                 hPutClient h $ show (MM.size tcps) ++ " active or pending connections.\n"
 
-        ("onion", s) | "" <- strp $ map toLower s
+        ("o", s) | "" <- strp $ map toLower s
                       -> cmd0 $ do
             now <- getPOSIXTime
             join $ atomically $ do
@@ -763,12 +760,12 @@ clientSession s@Session{..} sock cnum h = do
                 hPutClientChunk h $ showColumns $ ["","responses","timeouts", "tcp", "age", "version"]:r
                 hPutClient h $ unlines $ ("relays: " ++ show rcnt) : map (mappend "  " . show) relays
 
-        ("onion", s) | "udp" <- strp $ map toLower s
+        ("o", s) | "udp" <- strp $ map toLower s
                      -> cmd0 $ do
             tcpm <- requestTCPMode onionRouter (Just False)
             hPutClient h $ "Onion routes: " ++ if tcpm then "TCP." else "UDP."
 
-        ("onion", s) | "tcp" <- strp $ map toLower s
+        ("o", s) | "tcp" <- strp $ map toLower s
                      -> cmd0 $ do
             tcpm <- requestTCPMode onionRouter (Just True)
             hPutClient h $ "Onion routes: " ++ if tcpm then "TCP." else "UDP."