From b7451dc28ff9dd49027a2029f37465394df356b2 Mon Sep 17 00:00:00 2001 From: Philipp Balzarek Date: Fri, 8 Mar 2013 13:11:17 +0100 Subject: [PATCH] respect errors on xmppBind --- source/Network/Xmpp/Sasl.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/source/Network/Xmpp/Sasl.hs b/source/Network/Xmpp/Sasl.hs index 5b9e913..718df6f 100644 --- a/source/Network/Xmpp/Sasl.hs +++ b/source/Network/Xmpp/Sasl.hs @@ -96,7 +96,7 @@ auth mechanisms resource con = runErrorT $ do liftIO $ debugM "Pontarius.Xmpp" "pre-auth" ErrorT $ xmppSasl mechanisms con liftIO $ debugM "Pontarius.Xmpp" "auth done" - jid <- lift $ xmppBind resource con + jid <- ErrorT $ xmppBind resource con liftIO $ debugM "Pontarius.Xmpp" $ "bound resource" ++ show jid lift $ startSession con return Nothing