hsendxmpp 0.1.2.3 → 0.1.2.4

raw patch · 2 files changed

+5/−4 lines, 2 files

Files

Main.hs +3/−2
hsendxmpp.cabal +2/−2

Main.hs view

@@ -70,8 +70,9 @@ 				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 ()+				either (\err -> error $ show $ stanzaErrorText err) (const $ pure ()) result+			result <- sendMessage ((simpleIM parsedJid $ S.toText text) { messageType = oMessageType opts }) sess+			either (\err -> error $ show err) pure result 		) recipients 	sendPresence presenceOffline sess 	endSession sess

hsendxmpp.cabal view

@@ -1,5 +1,5 @@ name:                hsendxmpp-version:             0.1.2.3+version:             0.1.2.4 synopsis:            sendxmpp clone, sending XMPP messages via CLI 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@@ -18,7 +18,7 @@ Source-repository this   type:              git   location:          https://github.com/l29ah/hsendxmpp.git-  tag:               0.1.2.3+  tag:               0.1.2.4  executable hsendxmpp   main-is:             Main.hs