From 2be98f544a12c44c6f6b3e041781dca95db0f73d Mon Sep 17 00:00:00 2001
From: Philipp Balzarek <p.balzarek@googlemail.com>
Date: Thu, 21 Mar 2013 16:20:28 +0100
Subject: [PATCH] fix deadlock in Network.Xmpp.Sasl

---
 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 d445cb9..1c201af 100644
--- a/source/Network/Xmpp/Sasl.hs
+++ b/source/Network/Xmpp/Sasl.hs
@@ -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