~singpolyma/jabber-iq-gateway-web

815491904423429871a84f1306e4e648dd6567e0 — Stephen Paul Weber 4 months ago d8c4fc3 master
server JID should be the target name, not the raw host
1 files changed, 2 insertions(+), 2 deletions(-)

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