mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

avoid excessive debugging

Browse source
This commit is contained in:
Joey Hess 2012-11-09 17:51:26 -04:00
parent 276cbbf24f
commit 6acc4fa83f
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
Assistant/Threads/XMPPClient.hs
View file

@ -87,7 +87,7 @@ xmppClient urlrenderer d = do
receivenotifications selfjid = forever $ do receivenotifications selfjid = forever $ do
l <- decodeStanza selfjid <$> getStanza l <- decodeStanza selfjid <$> getStanza
inAssistant $ debug ["received:", show l] -- inAssistant $ debug ["received:", show l]
mapM_ (handle selfjid) l mapM_ (handle selfjid) l
handle _ (PresenceMessage p) = void $ inAssistant $ handle _ (PresenceMessage p) = void $ inAssistant $