diff --git a/source/Network/Xmpp/Stream.hs b/source/Network/Xmpp/Stream.hs index b91088e..98c6e52 100644 --- a/source/Network/Xmpp/Stream.hs +++ b/source/Network/Xmpp/Stream.hs @@ -122,7 +122,7 @@ xmppStream expectedTo = do validateData (_, _, _, _, Nothing) = throwError $ StreamWrongLangTag Nothing validateData (ver, from, to, i, Just lang) | ver /= "1.0" = throwError $ StreamWrongVersion (Just ver) - | to /= expectedTo = throwError $ StreamWrongTo (Text.pack . show <$> to) + | isJust to && to /= expectedTo = throwError $ StreamWrongTo (Text.pack . show <$> to) -- | lang /= expectedLang = throwError $ StreamWrongLangTag lang | otherwise = return (from, to, i, lang) xmppStreamFeatures :: StreamSink ServerFeatures