fixed stream features unpickle bug that appeared when no stream:features

element was provided by the server

source/Network/Xmpp/Stream.hs

@@ -110,6 +110,7 @@ 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"))
              (xpTriple
@@ -118,6 +119,7 @@ pickleStreamFeatures = xpWrap
                   (xpAll xpElemVerbatim)
              )
          )
+    )
   where
     pickleTLSFeature :: PU [Node] Bool
     pickleTLSFeature = xpElemNodes "{urn:ietf:params:xml:ns:xmpp-tls}starttls"