From 5bdd200acf3497dbaed60eb8b164b914b833ea79 Mon Sep 17 00:00:00 2001
From: Philipp Balzarek <p.balzarek@googlemail.com>
Date: Tue, 9 Sep 2014 19:33:53 +0200
Subject: [PATCH] export getRosterSTM from Network.Xmpp.IM

---
 source/Network/Xmpp/IM.hs        | 1 +
 source/Network/Xmpp/IM/Roster.hs | 6 +++---
 2 files changed, 4 insertions(+), 3 deletions(-)

diff --git a/source/Network/Xmpp/IM.hs b/source/Network/Xmpp/IM.hs
index 731d9db..b1455ea 100644
--- a/source/Network/Xmpp/IM.hs
+++ b/source/Network/Xmpp/IM.hs
@@ -22,6 +22,7 @@ module Network.Xmpp.IM
   , Roster(..)
   , Item(..)
   , getRoster
+  , getRosterSTM
   , rosterAdd
   , rosterRemove
   -- * presenceTracker
diff --git a/source/Network/Xmpp/IM/Roster.hs b/source/Network/Xmpp/IM/Roster.hs
index eb33676..565c51b 100644
--- a/source/Network/Xmpp/IM/Roster.hs
+++ b/source/Network/Xmpp/IM/Roster.hs
@@ -79,12 +79,12 @@ rosterRemove j sess = do
         sendIQA' timeout Nothing Set Nothing el [] session
 
 -- | Retrieve the current Roster state (STM version)
-getRoster' :: Session -> STM Roster
-getRoster' session = readTVar (rosterRef session)
+getRosterSTM :: Session -> STM Roster
+getRosterSTM session = readTVar (rosterRef session)
 
 -- | Retrieve the current Roster state
 getRoster :: Session -> IO Roster
-getRoster session = atomically $ getRoster' session
+getRoster session = atomically $ getRosterSTM session
 
 -- | Get the initial roster or refresh the roster. You don't need to call this
 -- on your own.