hsendxmpp 0.1.2.2 → 0.1.2.3
raw patch · 2 files changed
+13/−11 lines, 2 filesdep ~pontarius-xmpp-extras
Dependency ranges changed: pontarius-xmpp-extras
Files
- Main.hs +8/−6
- hsendxmpp.cabal +5/−5
Main.hs view
@@ -65,11 +65,13 @@ let sess = either (error . show) id $ eSess sendPresence presenceOnline sess mapM_ (\tjid -> do- let parsedJid = parseJid tjid- when (oMessageType opts == GroupChat) $ do- let (roomName, roomServer, _) = jidToTexts parsedJid- let roomJid = fromJust $ jidFromTexts roomName roomServer $ Just $ S.toText $ oResource opts- joinMUC roomJid Nothing sess >> pure ()- sendMessage ((simpleIM parsedJid $ S.toText text) { messageType = oMessageType opts }) sess >> pure ()) recipients+ let parsedJid = parseJid tjid+ when (oMessageType opts == GroupChat) $ do+ let (roomName, roomServer, _) = jidToTexts parsedJid+ let roomJid = fromJust $ jidFromTexts roomName roomServer $ Just $ S.toText $ oResource opts+ result <- joinMUCResult roomJid Nothing sess+ either (\err -> print $ stanzaErrorText err) (const $ pure ()) result+ sendMessage ((simpleIM parsedJid $ S.toText text) { messageType = oMessageType opts }) sess >> pure ()+ ) recipients sendPresence presenceOffline sess endSession sess
hsendxmpp.cabal view
@@ -1,7 +1,7 @@ name: hsendxmpp-version: 0.1.2.2+version: 0.1.2.3 synopsis: sendxmpp clone, sending XMPP messages via CLI--- description:+description: It aims to be a drop-in replacement regarding the CLI flags. It is user-friendlier, handles errors better and, unlike sendxmpp, it supports modern authentication and encryption schemes. license: OtherLicense license-file: LICENSE author: Sergey Alirzaev@@ -18,16 +18,16 @@ Source-repository this type: git location: https://github.com/l29ah/hsendxmpp.git- tag: 0.1.2.2+ tag: 0.1.2.3 executable hsendxmpp main-is: Main.hs- ghc-options: -fno-warn-tabs+ ghc-options: -W -fno-warn-tabs -- other-modules: -- other-extensions: build-depends: base >=4.9 && <4.15, pontarius-xmpp >= 0.4.5 && < 0.6,- pontarius-xmpp-extras >= 0.1.0.1 && < 0.2,+ pontarius-xmpp-extras >= 0.1.0.6 && < 0.2, hslogger >= 1.2.8 && < 1.4, string-class >= 0.1.7.0 && < 0.2 -- hs-source-dirs: