From f8268d72d6d4349697ed10de3b4f587ceb1ed45c Mon Sep 17 00:00:00 2001
From: Philipp Balzarek <p.balzarek@googlemail.com>
Date: Fri, 8 Mar 2013 13:06:25 +0100
Subject: [PATCH] fix pullStanza not saving conduit state

Was using withStream' instead of withStream
---
 source/Network/Xmpp/Stream.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/source/Network/Xmpp/Stream.hs b/source/Network/Xmpp/Stream.hs
index 22a464b..c9ac138 100644
--- a/source/Network/Xmpp/Stream.hs
+++ b/source/Network/Xmpp/Stream.hs
@@ -393,7 +393,7 @@ pullUnpickle p = do
 
 -- | Pulls a stanza (or stream error) from the stream.
 pullStanza :: TMVar Stream -> IO (Either XmppFailure Stanza)
-pullStanza = withStream' $ do
+pullStanza = withStream $ do
     res <- pullUnpickle xpStreamStanza
     case res of
         Left e -> return $ Left e