From f9324a0c72f9d5d04770939f0715f7027e735d14 Mon Sep 17 00:00:00 2001
From: Jon Kristensen <info@jonkri.com>
Date: Fri, 6 Jul 2012 16:08:12 +0200
Subject: [PATCH] accept missing to header from server Interoperability Note:
 It is possible that implementations based on [RFC3920] will not include the
 'to' address on stream headers; an entity SHOULD be liberal in accepting such
 stream headers.

---
 source/Network/Xmpp/Stream.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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