Browse Source

fix pullStanza not saving conduit state

Was using withStream' instead of withStream
master
Philipp Balzarek 13 years ago
parent
commit
f8268d72d6
  1. 2
      source/Network/Xmpp/Stream.hs

2
source/Network/Xmpp/Stream.hs

@ -393,7 +393,7 @@ pullUnpickle p = do @@ -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

Loading…
Cancel
Save