move debug prints into Dput

1 files changed, 2 insertions, 2 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)