~singpolyma/cheogram

6d0162f421e96ab4b2a5655ac4b9de8dcad318ef — Stephen Paul Weber 1 year, 1 month ago 1066335
Fix quicksy API jid
1 files changed, 1 insertions(+), 1 deletions(-)

M Main.hs
M Main.hs => Main.hs +1 -1
@@ 990,7 990,7 @@ componentStanza (ComponentContext { db, sendIQ, smsJid = (Just smsJid), componen

		let tel = maybe mempty XMPP.strNode $ XMPP.jidNode smsJid
		quicksy <- (atomicUIO =<<) $ UIO.lift $ sendIQ $ (emptyIQ IQGet) {
				iqTo = XMPP.parseJID $ s"quicksy.im",
				iqTo = XMPP.parseJID $ s"api.quicksy.im",
				iqFrom = XMPP.parseJID $ bareTxt componentJid ++ s"/IQMANAGER",
				iqPayload = Just $ XML.Element (s"{im.quicksy.synchronization:0}phone-book") [] [
						XML.NodeElement $ XML.Element (s"{im.quicksy.synchronization:0}entry") [(s"number", [XML.ContentText tel])] []