Quieter defaults.

2 files changed, 3 insertions, 1 deletions

diff --git a/examples/dhtd.hs b/examples/dhtd.hs
index 35035372..19fee119 100644
--- a/examples/dhtd.hs
+++ b/examples/dhtd.hs
@@ -1387,6 +1387,8 @@ main = runResourceT $ liftBaseWith $ \resT -> do
 
     announcer <- forkAnnouncer
 
+    -- Default: quiet all tags.
+    forM [minBound .. maxBound] setQuiet
 
     (quitBt,btdhts,btips,baddrs) <- case portbt opts of
         "" -> return (return (), Map.empty,return [],[])
diff --git a/src/DPut.hs b/src/DPut.hs
index 482db515..dc699e76 100644
--- a/src/DPut.hs
+++ b/src/DPut.hs
@@ -7,7 +7,7 @@ import Data.Maybe
 import System.IO.Unsafe (unsafePerformIO)
 
 data DebugTag = XAnnounce | XDHT | XOnion | XNetCrypto | XPing | XLan | XMisc
-    deriving (Eq,Ord,Show,Read)
+    deriving (Eq,Ord,Show,Read,Enum,Bounded)
 
 {-# NOINLINE verbosityMap #-}
 verbosityMap :: TVar (Map.Map DebugTag Bool)