More DPut stuff

        * verbose/quiet without args shows report
        * verbose all - sets all tags verbose
        * quiet all - sets all tags quiet
        * XMisc defaults to verbose, everything else quiet
        * new XMan tag for ToxManager related stuff
        * s/hputStrLn stderr/dput XMisc/ in daemon code

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