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, 3 insertions, 2 deletions

diff --git a/Presence/DNSCache.hs b/Presence/DNSCache.hs
index aaf1a7be..afcc227c 100644
--- a/Presence/DNSCache.hs
+++ b/Presence/DNSCache.hs
@@ -50,6 +50,7 @@ import SockAddr      ()
 import ControlMaybe  ( handleIO_ )
 import GetHostByAddr ( getHostByAddr )
 import InterruptibleDelay
+import DPut
 
 type TimeStamp = UTCTime
 
@@ -106,7 +107,7 @@ make6mapped4 addr@(SockAddrInet port a) = SockAddrInet6 port 0 (0,0,0xFFFF,fromB
 
 tryForkOS :: IO () -> IO ThreadId
 tryForkOS action = catchIOError (forkOS action) $ \e -> do
-    hPutStrLn stderr $ "DNSCache: Link with -threaded to avoid excessively long time-out."
+    dput XMisc $ "DNSCache: Link with -threaded to avoid excessively long time-out."
     forkIO action
 
 
@@ -152,7 +153,7 @@ strip_brackets s =
 
 reportTimeout :: forall a. Show a => a -> IO ()
 reportTimeout addrtext = do
-      hPutStrLn stderr $ "timeout resolving: "++show addrtext
+      dput XMisc $ "timeout resolving: "++show addrtext
       -- killThread rt
 
 unmap6mapped4 :: SockAddr -> SockAddr