diff options
Diffstat (limited to 'Presence/Stanza/Build.hs')
-rw-r--r-- | Presence/Stanza/Build.hs | 7 |
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 = | |||
48 | , EventEndElement (mkname namespace "presence")] | 48 | , EventEndElement (mkname namespace "presence")] |
49 | 49 | ||
50 | makePresenceStanza :: Text -> Maybe Text -> JabberShow -> IO Stanza | 50 | makePresenceStanza :: Text -> Maybe Text -> JabberShow -> IO Stanza |
51 | makePresenceStanza namespace mjid pstat = do | 51 | makePresenceStanza ns mjid pstat = makePresenceStanzaEx ns mjid pstat [] |
52 | |||
53 | makePresenceStanzaEx :: Text -> Maybe Text -> JabberShow -> [XML.Event]-> IO Stanza | ||
54 | makePresenceStanzaEx namespace mjid pstat es = do | ||
52 | stanzaFromList PresenceStatus { presenceShow = pstat | 55 | stanzaFromList PresenceStatus { presenceShow = pstat |
53 | , presencePriority = Nothing | 56 | , presencePriority = Nothing |
54 | , presenceStatus = [] | 57 | , presenceStatus = [] |
@@ -56,7 +59,7 @@ makePresenceStanza namespace mjid pstat = do | |||
56 | } | 59 | } |
57 | $ [ EventBeginElement (mkname namespace "presence") | 60 | $ [ EventBeginElement (mkname namespace "presence") |
58 | (setFrom $ typ pstat) ] | 61 | (setFrom $ typ pstat) ] |
59 | ++ (shw pstat >>= jabberShow) ++ | 62 | ++ (shw pstat >>= jabberShow) ++ es ++ |
60 | [ EventEndElement (mkname namespace "presence")] | 63 | [ EventEndElement (mkname namespace "presence")] |
61 | where | 64 | where |
62 | setFrom = maybe id | 65 | setFrom = maybe id |