pontarius-xmpp-extras 0.1.0.0 → 0.1.0.1
raw patch · 2 files changed
+5/−5 lines, 2 files
Files
Network/Xmpp/Extras/MUC.hs view
@@ -38,14 +38,14 @@ -- |Join the specified MUC or change your nickname in the already joined one. The resource part of the `Jid` sets the desired nickname. joinMUC :: Jid -> Maybe MUCHistoryReq -> Session -> IO (Either XmppFailure ())-joinMUC jid mhr = sendPresence (maybe id (\hr x -> x { presencePayload = [Element "x" [("xmlns", [ContentText "http://jabber.org/protocol/muc"])] [+joinMUC jid mhr = sendPresence ((presTo presence jid) { presencePayload = [Element "x" [("xmlns", [ContentText "http://jabber.org/protocol/muc"])] $ maybe [] (\hr -> [ NodeElement $ Element "history" ( (elementify "maxchars" show $ mhrSeconds hr) ++ (elementify "maxstanzas" show $ mhrSeconds hr) ++ (elementify "seconds" show $ mhrSeconds hr) ++ (elementify "since" toDateTime $ mhrSince hr)- ) []]- ] } ) mhr $ (presTo presence jid))+ ) []]) mhr+ ] } ) where elementify name show content = fmap (\s -> ("seconds", [ContentText $ T.pack $ show s])) $ maybeToList content -- |Send a broadcast message. `Jid` must be bare.
pontarius-xmpp-extras.cabal view
@@ -1,5 +1,5 @@ name: pontarius-xmpp-extras-version: 0.1.0.0+version: 0.1.0.1 synopsis: XEPs implementation on top of pontarius-xmpp -- description: license: OtherLicense@@ -18,7 +18,7 @@ Source-repository this type: git location: https://github.com/l29ah/pontarius-xmpp-extras.git- tag: 0.1.0.0+ tag: 0.1.0.1 library exposed-modules: