1 files changed, 7 insertions, 7 deletions

diff --git a/src/Network/Tox/DHT/Handlers.hs b/src/Network/Tox/DHT/Handlers.hs
index 43169fa0..58a29c3e 100644
--- a/src/Network/Tox/DHT/Handlers.hs
+++ b/src/Network/Tox/DHT/Handlers.hs
@@ -404,9 +404,9 @@ unwrapNodes (SendNodes ns) = (ns,ns,Just ())
 
 getNodes :: Client -> TVar (HashMap NodeId [NodeInfoCallback]) -> NodeId -> NodeInfo -> IO (Maybe ([NodeInfo],[NodeInfo],Maybe ()))
 getNodes client cbvar nid addr = do
-    -- hPutStrLn stderr $ show addr ++ " <-- getnodes " ++ show nid
+    -- dput XMisc $ show addr ++ " <-- getnodes " ++ show nid
     reply <- QR.sendQuery client (serializer GetNodesType DHTGetNodes unsendNodes) (GetNodes nid) addr
-    -- hPutStrLn stderr $ show addr ++ " -sendnodes-> " ++ show reply
+    -- dput XMisc $ show addr ++ " -sendnodes-> " ++ show reply
     forM_ (join reply) $ \(SendNodes ns) -> 
         forM_ ns $ \n -> do
             now <- getPOSIXTime
@@ -430,13 +430,13 @@ updateRouting client routing orouter naddr msg
     case prefer4or6 naddr Nothing of
         Want_IP4 -> updateTable client naddr orouter (committee4 routing) (refresher4 routing)
         Want_IP6 -> updateTable client naddr orouter (committee6 routing) (refresher6 routing)
-        Want_Both -> do hPutStrLn stderr "BUG:unreachable"
+        Want_Both -> do dput XMisc "BUG:unreachable"
                         error $ "BUG:unreachable at " ++ __FILE__ ++ ":" ++ show __LINE__
 
 updateTable :: Client -> NodeInfo -> OnionRouter -> TriadCommittee NodeId SockAddr -> BucketRefresher NodeId NodeInfo -> IO ()
 updateTable client naddr orouter committee refresher = do
         self <- atomically $ R.thisNode <$> readTVar (refreshBuckets refresher)
-        -- hPutStrLn stderr $ "(tox)updateRouting: " ++ show (nodeIP self, nodeIP naddr)
+        -- dput XMisc $ "(tox)updateRouting: " ++ show (nodeIP self, nodeIP naddr)
         when (self /= naddr) $ do
             -- TODO: IP address vote?
             insertNode (toxKademlia client committee orouter refresher) naddr
@@ -455,7 +455,7 @@ toxKademlia client committee orouter refresher
                         return $ do
                             io1 >> io2
                             {-
-                            hPutStrLn stderr $ unwords
+                            dput XMisc $ unwords
                                 [ show (transitionedTo tr)
                                 , show (transitioningNode tr)
                                 ]
@@ -467,7 +467,7 @@ transitionCommittee :: TriadCommittee NodeId SockAddr -> RoutingTransition NodeI
 transitionCommittee committee (RoutingTransition ni Stranger) = do
     delVote committee (nodeId ni)
     return $ do
-        -- hPutStrLn stderr $ "delVote "++show (nodeId ni)
+        -- dput XMisc $ "delVote "++show (nodeId ni)
         return ()
 transitionCommittee committee _ = return $ return ()
 
@@ -500,7 +500,7 @@ isDHTRequest _      _                        = Left "Bad dht relay request"
 
 dhtRequestH :: NodeInfo -> DHTRequest -> IO ()
 dhtRequestH ni req = do
-    hPutStrLn stderr $ "Unhandled DHT Request: " ++ show req
+    dput XMisc $ "Unhandled DHT Request: " ++ show req
 
 handlers :: TransportCrypto -> Routing -> PacketKind -> Maybe Handler
 handlers _      routing PingType          = Just $ MethodHandler (isPing snd) mkPong            $ pingH