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
-- | Pulls a stanza (or stream error) from the stream. -- | Pulls a stanza (or stream error) from the stream.
pullStanza :: TMVar Stream -> IO (Either XmppFailure Stanza) pullStanza :: TMVar Stream -> IO (Either XmppFailure Stanza)
pullStanza = withStream' $ do pullStanza = withStream $ do
res <- pullUnpickle xpStreamStanza res <- pullUnpickle xpStreamStanza
case res of case res of
Left e -> return $ Left e Left e -> return $ Left e

Loading…
Cancel
Save