dput: suppressible debug prints

1 files changed, 13 insertions, 0 deletions

diff --git a/examples/dhtd.hs b/examples/dhtd.hs
index b6680f2e..ba7b0fca 100644
--- a/examples/dhtd.hs
+++ b/examples/dhtd.hs
@@ -113,6 +113,7 @@ import ToxToXMPP
 import qualified Connection.Tcp as Tcp (ConnectionEvent(..))
 import Control.Concurrent.Supply
 import qualified Data.CyclicBuffer as CB
+import DPut
 
 
 showReport :: [(String,String)] -> String
@@ -523,6 +524,8 @@ clientSession s@Session{..} sock cnum h = do
             , ["peers"]
             , ["toxids"]
             , ["c"]
+            , ["quiet"]
+            , ["verbose"]
             , ["help"]
             ]
     case (map toLower c,args) of
@@ -715,6 +718,16 @@ clientSession s@Session{..} sock cnum h = do
                 hPutClientChunk h $ unlines [ dns, "", "Friend Requests" ]
                 hPutClient h $ showReport frs
 
+        ("quiet",s) | s' <- strp s
+                    , Just (tag::DebugTag) <- readMaybe ('X':s')
+                    -> cmd0 $ do
+                setQuiet tag
+
+        ("verbose",s) | s' <- strp s
+                    , Just (tag::DebugTag) <- readMaybe ('X':s')
+                    -> cmd0 $ do
+                setVerbose tag
+
         -- list information about current netcrypto sesssions
         ("sessions", s) | "" <- strp s
             -> cmd0 $ do