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 ++
 1 file changed, 2 insertions(+)

(limited to 'examples/dhtd.hs')

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