From b07524dc054e2ca2157f8e0920cdcb8b8b25e8e8 Mon Sep 17 00:00:00 2001
From: joe <joe@jerkface.net>
Date: Tue, 19 Jun 2018 02:18:25 -0400
Subject: Quieter defaults.

---
 examples/dhtd.hs | 2 ++
 src/DPut.hs      | 2 +-
 2 files changed, 3 insertions(+), 1 deletion(-)

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)
-- 
cgit v1.2.3