~singpolyma/jabber-iq-gateway-web

168db81b6761c50706ddbf2ef3dd59ea5bf46fba — Stephen Paul Weber 14 days ago deb7831
Update for latest base
2 files changed, 3 insertions(+), 3 deletions(-)

M jabber-iq-gateway-web.cabal
M jabber-iq-gateway-web.hs
M jabber-iq-gateway-web.cabal => jabber-iq-gateway-web.cabal +2 -2
@@ 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,

M jabber-iq-gateway-web.hs => jabber-iq-gateway-web.hs +1 -1
@@ 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 {