all debug tags matter

1 files changed, 1 insertions, 1 deletions

diff --git a/examples/dhtd.hs b/examples/dhtd.hs
index 0731d322..ce6cc8f7 100644
--- a/examples/dhtd.hs
+++ b/examples/dhtd.hs
@@ -373,7 +373,7 @@ clientSession s@Session{..} sock cnum h = do
                     case B.unsnoc x of
                                  Just (str,c) | isSpace c -> (str,False)
                                  _ -> (x,True)
-        allDebugTags = [XAnnounce .. XMisc]
+        allDebugTags = [minBound .. maxBound]
         showDebugTags = do
                 vs <- mapM getVerbose allDebugTags
                 let f True = "v"