i was wrong about the possibility of encountering an empty

stream:features element

source/Network/Xmpp/Stream.hs

@@ -110,14 +110,16 @@ pickleStreamFeatures :: PU [Node] ServerFeatures
 pickleStreamFeatures = xpWrap
     (\(tls, sasl, rest) -> SF tls (mbl sasl) rest)
     (\(SF tls sasl rest) -> (tls, lmb sasl, rest))
-    (xpDefault (Nothing, Nothing, []) -- In case there is no features element.
+    (xpElemNodes
-         (xpElemNodes (Name
+         (Name
-             "features" (Just "http://etherx.jabber.org/streams") (Just "stream"))
+             "features"
-             (xpTriple
+             (Just "http://etherx.jabber.org/streams")
-                  (xpOption pickleTLSFeature)
+             (Just "stream")
-                  (xpOption pickleSaslFeature)
+         )
-                  (xpAll xpElemVerbatim)
+         (xpTriple
-             )
+              (xpOption pickleTLSFeature)
+              (xpOption pickleSaslFeature)
+              (xpAll xpElemVerbatim)
          )
     )
   where