Browse Source

fix deadlock in Network.Xmpp.Sasl

master
Philipp Balzarek 13 years ago
parent
commit
2be98f544a
  1. 2
      source/Network/Xmpp/Sasl.hs

2
source/Network/Xmpp/Sasl.hs

@ -75,7 +75,7 @@ auth mechanisms resource con = runErrorT $ do @@ -75,7 +75,7 @@ auth mechanisms resource con = runErrorT $ do
case mbAuthFail of
Nothing -> do
_jid <- ErrorT $ xmppBind resource con
ErrorT $ flip withStream con $ do
ErrorT $ flip withStream' con $ do
s <- get
case establishSession $ streamConfiguration s of
False -> return $ Right Nothing

Loading…
Cancel
Save