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