Switched toxid format from hexadecimal to base64.

1 files changed, 2 insertions, 2 deletions

diff --git a/examples/dhtd.hs b/examples/dhtd.hs
index 1ab2778a..37f16f02 100644
--- a/examples/dhtd.hs
+++ b/examples/dhtd.hs
@@ -288,13 +288,13 @@ data Session = Session
 
 clientSession :: Session -> t1 -> t -> Handle -> IO ()
 clientSession s@Session{..} sock cnum h = do
-    line <- map toLower . dropWhile isSpace <$> hGetLine h
+    line <- dropWhile isSpace <$> hGetLine h
     let (c,args) = second (dropWhile isSpace) $ break isSpace line
         cmd0 :: IO () -> IO ()
         cmd0 action = action >> clientSession s sock cnum h
         switchNetwork dest = do hPutClient h ("Network: "++dest)
                                 clientSession s{netname=dest} sock cnum h
-    case (c,args) of
+    case (map toLower c,args) of
         ("stop", _) -> do hPutClient h "Terminating DHT Daemon."
                           hClose h
                           putMVar signalQuit ()