MUC: Two-step nominate/comit chat transactions.

1 files changed, 5 insertions, 2 deletions

diff --git a/Presence/Stanza/Build.hs b/Presence/Stanza/Build.hs
index 5c4d371a..e02684f5 100644
--- a/Presence/Stanza/Build.hs
+++ b/Presence/Stanza/Build.hs
@@ -48,7 +48,10 @@ makeInformSubscription namespace from to approved =
         , EventEndElement (mkname namespace "presence")]
 
 makePresenceStanza :: Text -> Maybe Text -> JabberShow -> IO Stanza
-makePresenceStanza namespace mjid pstat = do
+makePresenceStanza ns mjid pstat = makePresenceStanzaEx ns mjid pstat []
+
+makePresenceStanzaEx :: Text -> Maybe Text -> JabberShow -> [XML.Event]-> IO Stanza
+makePresenceStanzaEx namespace mjid pstat es = do
     stanzaFromList PresenceStatus { presenceShow = pstat
                                   , presencePriority = Nothing
                                   , presenceStatus = []
@@ -56,7 +59,7 @@ makePresenceStanza namespace mjid pstat = do
                                   }
       $ [ EventBeginElement (mkname namespace "presence")
             (setFrom $ typ pstat) ]
-        ++ (shw pstat >>= jabberShow) ++
+        ++ (shw pstat >>= jabberShow) ++ es ++
         [ EventEndElement (mkname namespace "presence")]
  where
     setFrom = maybe id