2 files changed, 5 insertions, 2 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
diff --git a/examples/testTox.hs b/examples/testTox.hs
index cc8bd45f..e82ca2d3 100644
--- a/examples/testTox.hs
+++ b/examples/testTox.hs
@@ -17,6 +17,7 @@ import qualified Data.IntMap.Strict          as IntMap
 import Data.Function
 import DebugUtil
 import DPut
+import DebugTag
 import HandshakeCache
 import Network.QueryResponse
 import Network.Socket
@@ -81,7 +82,7 @@ netCrypto tox me ni them = do
 
 main :: IO ()
 main = do
-    mapM_ setVerbose [ minBound .. maxBound ]
+    mapM_ setVerbose ([ minBound .. maxBound ]::[DebugTag])
     setQuiet XRoutes
 
     (udpA,udpB) <- testPairTransport