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 --- Presence/XMPPServer.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'Presence/XMPPServer.hs') 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 } -- cgit v1.2.3