From 825962518c6ad00279fc23e8e1dec746980e483f Mon Sep 17 00:00:00 2001 From: "jim@bo" Date: Wed, 20 Jun 2018 22:40:37 -0400 Subject: 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 --- Connection/Tox/Threads.hs | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'Connection/Tox/Threads.hs') 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 -- cgit v1.2.3