xmppDeliverMessage

1 files changed, 5 insertions, 0 deletions

diff --git a/Presence/XMPPServer.hs b/Presence/XMPPServer.hs
index d3df48d0..4c87ba65 100644
--- a/Presence/XMPPServer.hs
+++ b/Presence/XMPPServer.hs
@@ -7,6 +7,7 @@ module XMPPServer
     , StanzaType(..)
     , StanzaOrigin(..)
     , cloneStanza
+    , LangSpecificMessage(..)
     ) where
 import Debug.Trace
 import Control.Monad.Trans.Resource (runResourceT)
@@ -129,6 +130,7 @@ data XMPPServerParameters =
     , xmppRosterOthers       :: ConnectionKey -> IO [Text]
     , xmppLookupClientJID :: ConnectionKey -> IO Text
     , xmppLookupPeerName  :: ConnectionKey -> IO Text
+    , xmppDeliverMessage :: (IO ()) -> Stanza -> IO ()
     }
 
 -- TODO: http://xmpp.org/rfcs/rfc6120.html#rules-remote-error
@@ -835,6 +837,9 @@ monitor sv params xmpp = do
                             sendReply quitVar Pong reply replyto
                         RequestRoster ->
                             sendRoster stanza xmpp replyto
+                        Message {} -> do
+                            let fail = return () -- todo
+                            xmppDeliverMessage xmpp fail stanza
                         UnrecognizedQuery query -> do
                             let reply = iq_service_unavailable (stanzaId stanza) "localhost" query
                             sendReply quitVar Error reply replyto