export getRosterSTM from Network.Xmpp.IM

source/Network/Xmpp/IM.hs

@@ -22,6 +22,7 @@ module Network.Xmpp.IM
   , Roster(..)
   , Item(..)
   , getRoster
+  , getRosterSTM
   , rosterAdd
   , rosterRemove
   -- * presenceTracker

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.