From 815491904423429871a84f1306e4e648dd6567e0 Mon Sep 17 00:00:00 2001 From: Stephen Paul Weber Date: Tue, 10 May 2022 13:22:03 -0500 Subject: [PATCH] server JID should be the target name, not the raw host --- jabber-iq-gateway-web.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/jabber-iq-gateway-web.hs b/jabber-iq-gateway-web.hs index d0caaed..5e95cbe 100644 --- a/jabber-iq-gateway-web.hs +++ b/jabber-iq-gateway-web.hs @@ -113,8 +113,8 @@ main = do let Just domainJid = XMPP.parseJID jidStrDomain let domainStr = textToString jidStrDomain - let server = case (fmap textToString rest, map XMPP.parseJID rest) of - ([serverStr], [Just serverJid]) -> XMPP.Server serverJid serverStr (PortNumber 5222) + let server = case fmap textToString rest of + [serverStr] -> XMPP.Server domainJid serverStr (PortNumber 5222) _ -> XMPP.Server domainJid domainStr (PortNumber 5222) sendIQChan <- atomicUIO STM.newTChan -- 2.34.2