1 files changed, 5 insertions, 0 deletions

diff --git a/Presence/XMPPServer.hs b/Presence/XMPPServer.hs
index c81cb9ce..6d6d3bd7 100644
--- a/Presence/XMPPServer.hs
+++ b/Presence/XMPPServer.hs
@@ -9,6 +9,7 @@ module XMPPServer
     , XMPPServerParameters(..)
     , XMPPServer
     , xmppConnections
+    , xmppEventChannel
     , StanzaWrap(..)
     , Stanza(..)
     , StanzaType(..)
@@ -27,6 +28,7 @@ module XMPPServer
     , makeMessage
     , JabberShow(..)
     , Server
+    , flushPassThrough
     ) where
 
 import ConnectionKey
@@ -1804,6 +1806,9 @@ xmppConnections sv = tcpManager (grokPeer sv) (Just . Text.pack) resolvPeer (_xm
     resolvPeer :: Text -> IO (Maybe ConnectionKey)
     resolvPeer str = fmap PeerKey <$> listToMaybe <$> resolvePeer str
 
+xmppEventChannel :: XMPPServer -> TChan ((ConnectionKey, SockAddr), ConnectionEvent Event)
+xmppEventChannel sv = serverEvent $ _xmpp_sv sv
+
 xmppServer :: ( MonadResource m
               , MonadIO m
               ) => XMPPServerParameters -> m XMPPServer