1 files changed, 4 insertions, 3 deletions

diff --git a/Connection/Tox/Threads.hs b/Connection/Tox/Threads.hs
index aeeab0e1..6a7edeb4 100644
--- a/Connection/Tox/Threads.hs
+++ b/Connection/Tox/Threads.hs
@@ -41,6 +41,7 @@ import Data.Functor.Identity
 import Data.Time.Clock.POSIX
 import System.IO
 import System.Timeout
+import DPut
 
 
 
@@ -146,11 +147,11 @@ persueContact getPolicy getStatus PersueContactMethods{..} statusVar = do
                                 DHT.cookieRequest crypto client (toPublic myseckey) ni
                     interval <- case mbCookie of
                           Nothing -> do
-                            hPutStrLn stderr ("persueContact: (" ++ show mykeyAsId ++") <--> (" ++ show theirkeyAsId ++ ").")
-                            hPutStrLn stderr ("persueContact: CookieRequest failed. TODO: dhtpkNodes thingy")
+                            dput XMan ("persueContact: (" ++ show mykeyAsId ++") <--> (" ++ show theirkeyAsId ++ ").")
+                            dput XMan ("persueContact: CookieRequest failed. TODO: dhtpkNodes thingy")
                             return longRetryInterval
                           Just cookie -> do
-                            hPutStrLn stderr "Have cookie, creating handshake packet..."
+                            dput XMan "Have cookie, creating handshake packet..."
                             let hp = HParam { hpOtherCookie = cookie
                                             , hpMySecretKey = myseckey
                                             , hpCookieRemotePubkey = theirpubkey