From b0e40e4c9407878f79459919f7273e74e75541e7 Mon Sep 17 00:00:00 2001
From: Philipp Balzarek <p.balzarek@googlemail.com>
Date: Wed, 16 Sep 2015 16:01:59 +0200
Subject: [PATCH] export getFeatures from Network.Xmpp

---
 source/Network/Xmpp.hs                  | 3 +++
 source/Network/Xmpp/Concurrent/Basic.hs | 2 +-
 2 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/source/Network/Xmpp.hs b/source/Network/Xmpp.hs
index 657ce94..eafd0a9 100644
--- a/source/Network/Xmpp.hs
+++ b/source/Network/Xmpp.hs
@@ -59,6 +59,9 @@ module Network.Xmpp
   , endSession
   , waitForStream
   , streamState
+    -- ** Feature
+  , StreamFeatures(..)
+  , getFeatures
     -- ** Authentication handlers
     -- | The use of 'scramSha1' is /recommended/, but 'digestMd5' might be
     -- useful for interaction with older implementations.
diff --git a/source/Network/Xmpp/Concurrent/Basic.hs b/source/Network/Xmpp/Concurrent/Basic.hs
index a8b731b..dc526f2 100644
--- a/source/Network/Xmpp/Concurrent/Basic.hs
+++ b/source/Network/Xmpp/Concurrent/Basic.hs
@@ -56,7 +56,7 @@ getJid Session{streamRef = st} = do
     s <- atomically $ readTMVar st
     withStream' (gets streamJid) s
 
--- | Return the JID assigned to us by the server
+-- | Return the stream features the server announced
 getFeatures :: Session -> IO StreamFeatures
 getFeatures Session{streamRef = st} = do
     s <- atomically $ readTMVar st