Fix silly stream element validation bug

13 years ago · 17b5f64f61
1 changed files with 1 additions and 1 deletions
--- a/source/Network/Xmpp/Stream.hs
+++ b/source/Network/Xmpp/Stream.hs
@ -90,7 +90,7 @@ startStream = runErrorT $ do
				@@ -90,7 +90,7 @@ startStream = runErrorT $ do
    case response of
      -- Successful unpickling of stream element.
      Right (ver, from, to, id, lt, features)
-        | (unpack $ fromJust id) /= "1.0" ->
+        | (unpack ver) /= "1.0" ->
            closeStreamWithError con StreamUnsupportedVersion Nothing
        | lt == Nothing ->
            closeStreamWithError con StreamInvalidXml Nothing