i was wrong about the possibility of encountering an empty

stream:features element

source/Network/Xmpp/Stream.hs

@@ -110,16 +110,18 @@ 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 (Name
-             "features" (Just "http://etherx.jabber.org/streams") (Just "stream"))
+    (xpElemNodes
+         (Name
+             "features"
+             (Just "http://etherx.jabber.org/streams")
+             (Just "stream")
+         )
          (xpTriple
               (xpOption pickleTLSFeature)
               (xpOption pickleSaslFeature)
               (xpAll xpElemVerbatim)
          )
     )
-    )
   where
     pickleTLSFeature :: PU [Node] Bool
     pickleTLSFeature = xpElemNodes "{urn:ietf:params:xml:ns:xmpp-tls}starttls"