~singpolyma/cheogram

2e4548999c07043799b550dc755b01a2bb821932 — Stephen Paul Weber 2 months ago e833624
Fix typo... again
1 files changed, 1 insertions(+), 1 deletions(-)

M Main.hs
M Main.hs => Main.hs +1 -1
@@ 1006,7 1006,7 @@ componentStanza (ComponentContext { db, sendIQ, smsJid = (Just smsJid), componen
		return [mkStanzaRec $ iqReply (Just $
				XML.Element (s"{http://jabber.org/protocol/pubsub}pubsub") [] [
					XML.NodeElement $ XML.Element (s"{http://jabber.org/protocol/pubsub}items")
					[(s"node", [XML.ContentText $ s"urn:xmppp:vcard4"])] [
					[(s"node", [XML.ContentText $ s"urn:xmpp:vcard4"])] [
						XML.NodeElement $ XML.Element (s"{http://jabber.org/protocol/pubsub}item")
						[(s"id", [XML.ContentText $ fromMaybe (s"current") itemId])] [
							XML.NodeElement $ XML.Element (s"{urn:ietf:params:xml:ns:vcard-4.0}vcard") [] ([