diff --git a/Main.hs b/Main.hs
--- a/Main.hs
+++ b/Main.hs
@@ -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
diff --git a/hsendxmpp.cabal b/hsendxmpp.cabal
--- a/hsendxmpp.cabal
+++ b/hsendxmpp.cabal
@@ -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