|
|
|
@ -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 |
|
|
|
|