Preparation to move DPut to a separate project.

1 files changed, 3 insertions, 1 deletions

diff --git a/examples/dhtd.hs b/examples/dhtd.hs
index 7c66fd73..27403971 100644
--- a/examples/dhtd.hs
+++ b/examples/dhtd.hs
@@ -113,6 +113,7 @@ import ToxToXMPP
 import XMPPToTox
 import qualified Connection.Tcp as Tcp (ConnectionEvent(..),noCleanUp,TCPStatus)
 import DPut
+import DebugTag
 
 
 pshow :: Show a => a -> B.ByteString
@@ -361,6 +362,7 @@ clientSession s@Session{..} sock cnum h = do
                     case B.unsnoc x of
                                  Just (str,c) | isSpace c -> (str,False)
                                  _ -> (x,True)
+        allDebugTags :: [DebugTag]
         allDebugTags = [minBound .. maxBound]
         showDebugTags = do
                 vs <- mapM getVerbose allDebugTags
@@ -1535,7 +1537,7 @@ main = do
     announcer <- forkAnnouncer
 
     -- Default: quiet all tags (except XMisc).
-    forM [minBound .. maxBound] setQuiet
+    forM ([minBound .. maxBound]::[DebugTag]) setQuiet
     forM (verboseTags opts) setVerbose
 
     (quitBt,btdhts,btips,baddrs) <- case portbt opts of