2 files changed, 3 insertions(+), 3 deletions(-)

M jabber-iq-gateway-web.cabal
M jabber-iq-gateway-web.hs

@@ 12,7 12,7 @@ build-type:          Simple
 common defs
   default-language:    Haskell2010
   ghc-options:         -Wall -Wno-tabs -Wno-orphans -Werror
-  build-depends:       base                  >=4.11 && <4.12,
+  build-depends:       base                  >=4.11 && <4.14,
                        attoparsec            >=0.13 && <0.14,
                        basic-prelude         >=0.7 && <0.8,
                        bytestring            >=0.10 && <0.11,


@@ 23,7 23,7 @@ common defs
                        network-protocol-xmpp >=0.4 && <0.5,
                        network-uri           >=2.6 && <2.7,
                        purebred-email        >=0.3 && <0.4,
-                       stm                   >=2.4 && <2.5,
+                       stm                   >=2.4 && <2.6,
                        stm-containers        >= 1.1.0 && < 1.2,
                        stm-delay             >=0.1 && <0.2,
                        text                  >=1.2 && <1.3,

@@ 110,7 110,7 @@ main = do
 	sendIQChan <- atomicUIO STM.newTChan
 
 	void $ UIO.fork $ do
-		Right () <- fromIO_ $ runClient rpcJid rpcPassword $ do
+		fmap (either (error . show) (const ())) $ fromIO_ $ runClient rpcJid rpcPassword $ do
 			void $ XMPP.bindJID rpcJid
 			(sendIQ, iqReceived) <- iqManager
 			void $ forkXMPP $ runRouted $ defaultRoutes {