Preparation to move DPut to a separate project.

1 files changed, 2 insertions, 1 deletions

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