2 files changed, 5 insertions, 4 deletions

diff --git a/examples/dhtd.hs b/examples/dhtd.hs
index 19fee119..89604919 100644
--- a/examples/dhtd.hs
+++ b/examples/dhtd.hs
@@ -1310,7 +1310,7 @@ newXmmpSink session@(Tox.NCrypto { ncOutgoingQueue = outGoingQVar, ncPacketQueue
                             OGSuccess -> return OGSuccess
                             OGEncodeFail -> return OGEncodeFail
             when (r == OGEncodeFail) $
-                hPutStrLn stderr ("FAILURE to Encode Outgoing: " ++ show msg)
+                dput XMisc ("FAILURE to Encode Outgoing: " ++ show msg)
         sendit session Flush = return ()
     liftIO $ sendit session flush_cyptomessage
 
@@ -1381,7 +1381,7 @@ main = runResourceT $ liftBaseWith $ \resT -> do
     swarms <- Mainline.newSwarmsDatabase
     -- Restore peer database before forking the listener thread.
     peerdb <- left show <$> tryIOError (L.readFile "bt-peers.dat")
-    either (hPutStrLn stderr . ("bt-peers.dat: "++))
+    either (dput XMisc . ("bt-peers.dat: "++))
            (atomically . writeTVar (Mainline.contactInfo swarms))
            (peerdb >>= S.decodeLazy)
 
diff --git a/src/Network/Kademlia/Bootstrap.hs b/src/Network/Kademlia/Bootstrap.hs
index 93cf08f3..bc8188a7 100644
--- a/src/Network/Kademlia/Bootstrap.hs
+++ b/src/Network/Kademlia/Bootstrap.hs
@@ -39,6 +39,7 @@ import System.Timeout
 import Text.PrettyPrint               as PP hiding (($$), (<>))
 import Text.PrettyPrint.HughesPJClass hiding (($$), (<>))
 import System.IO
+import DPut
 
 import qualified Data.Wrapper.PSQInt  as Int
          ;import Data.Wrapper.PSQInt  (pattern (:->))
@@ -258,7 +259,7 @@ refreshBucket r@BucketRefresher{ refreshSearch  = sch
     _ <- timeout (15*60*1000000) $ do
             atomically $ searchIsFinished s >>= check
     atomically $ searchCancel s
-    hPutStrLn stderr $ "Finish refresh " ++ show (n,sample)
+    dput XDHT $ "Finish refresh " ++ show (n,sample)
     now <- getPOSIXTime
     join $ atomically $ onFinishedRefresh r n now
     rcount <- atomically $ do
@@ -316,7 +317,7 @@ bootstrap r@BucketRefresher { refreshSearch  = sch
         forM_ ns0 $ \n -> do
             forkTask g (show $ kademliaLocation (searchSpace sch) n)
                        (void $ ping n)
-    hPutStrLn stderr "Finished bootstrap pings."
+    dput XDHT "Finished bootstrap pings."
     -- Now search our own Id by entering bootstrap mode from non-bootstrap mode.
     join $ atomically $ do
         writeTVar bootstrapMode False