respect errors on xmppBind

13 years ago · b7451dc28f
1 changed files with 1 additions and 1 deletions
--- a/source/Network/Xmpp/Sasl.hs
+++ b/source/Network/Xmpp/Sasl.hs
@ -96,7 +96,7 @@ auth mechanisms resource con = runErrorT $ do
				@@ -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