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

diff --git a/Presence/XMPPServer.hs b/Presence/XMPPServer.hs
index 936b2137..c73146fd 100644
--- a/Presence/XMPPServer.hs
+++ b/Presence/XMPPServer.hs
@@ -926,7 +926,7 @@ xmppInbound sv xmpp k laddr pingflag stanzas output donevar = doNestingXML $ do
     when (begindoc==EventBeginDocument) $ do
     whenJust nextElement $ \xml -> do
     withJust (elementAttrs "stream" xml) $ \stream_attrs -> do
-    -- liftIO $ hPutStrLn stderr $ "STREAM ATTRS "++show stream_attrs
+    -- liftIO $ dput XMisc $ "STREAM ATTRS "++show stream_attrs
     let stream_name  = lookupAttrib "to"      stream_attrs
      -- xmpp_version = lookupAttrib "version" stream_attrs
     fix $ \loop -> do
@@ -1866,10 +1866,10 @@ xmppServer allocate xmpp = do
         forkIO $ do
             myThreadId >>= flip labelThread ("XMPP.monitor")
             monitor sv peer_params xmpp
-        hPutStrLn stderr $ "Starting peer listen"
+        dput XMisc $ "Starting peer listen"
         peer_bind <- maybe (getBindAddress "5269" True) return $ xmppPeerBind xmpp
         control sv (Listen peer_bind peer_params)
-        hPutStrLn stderr $ "Starting client listen"
+        dput XMisc $ "Starting client listen"
         client_bind <- maybe (getBindAddress "5222" True) return $ xmppClientBind xmpp
         control sv (Listen client_bind client_params)
     return XMPPServer { _xmpp_sv = sv, _xmpp_peer_params = peer_params }