Merge pull request #31 from jonkri/master

Provide access to StanzaID generator in Network.Xmpp (`newStanzaID')

source/Network/Xmpp.hs

@@ -83,6 +83,7 @@ module Network.Xmpp
   --    or IQ stanza.
   , getStanza
   , getStanzaChan
+  , newStanzaID
   -- ** Messages
   -- | The /message/ stanza is a /push/ mechanism whereby one entity
   -- pushes information to another entity, similar to the communications that

source/Network/Xmpp/Concurrent.hs

@@ -12,6 +12,7 @@ module Network.Xmpp.Concurrent
   , newSession
   , writeWorker
   , session
+  , newStanzaID
   ) where
 
 import           Control.Applicative((<$>),(<*>))
@@ -182,3 +183,7 @@ session realm mbSasl config = runErrorT $ do
     ses <- ErrorT $ newSession stream config
     liftIO $ when (enableRoster config) $ initRoster ses
     return ses
+
+newStanzaID :: Session -> IO StanzaID
+newStanzaID = idGenerator
+