diff --git a/source/Network/Xmpp/Stream.hs b/source/Network/Xmpp/Stream.hs index 47b0da7..9a418a0 100644 --- a/source/Network/Xmpp/Stream.hs +++ b/source/Network/Xmpp/Stream.hs @@ -19,6 +19,7 @@ import Control.Monad.Trans.Resource as R import Data.ByteString (ByteString) import qualified Data.ByteString as BS import qualified Data.ByteString.Char8 as BSC8 +import Data.Char (isSpace) import Data.Conduit import Data.Conduit.Binary as CB import qualified Data.Conduit.Internal as DCI @@ -772,6 +773,8 @@ elements = do -- This might be an XML error if the end element tag is not -- "". TODO: We might want to check this at a later time Just (EventEndElement _) -> lift $ R.monadThrow StreamEnd + Just (EventContent (ContentText ct)) | Text.all isSpace ct -> + elements Nothing -> return () _ -> lift $ R.monadThrow $ InvalidXmppXml $ "not an element: " ++ show x where