From 17b5f64f613ae4c3f14cdeb91430398aacf2b002 Mon Sep 17 00:00:00 2001
From: Jon Kristensen <info@jonkri.com>
Date: Wed, 16 Jan 2013 14:53:29 +0100
Subject: [PATCH] Fix silly stream element validation bug

---
 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 3941614..972017a 100644
--- a/source/Network/Xmpp/Stream.hs
+++ b/source/Network/Xmpp/Stream.hs
@@ -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