move debug prints into Dput

1 files changed, 3 insertions, 2 deletions

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