~singpolyma/cheogram

0ba3e42ed2399822b204ec9f79f42c58f95404f3 — Stephen Paul Weber 5 months ago e5e7ce1
Fix spelling on status=canceled and add a note
1 files changed, 8 insertions(+), 2 deletions(-)

M ConfigureDirectMessageRoute.hs
M ConfigureDirectMessageRoute.hs => ConfigureDirectMessageRoute.hs +8 -2
@@ 81,8 81,14 @@ lookupAndStepSession setRouteJid sessions componentDomain sid iqID from payload
						[
							(s"{http://jabber.org/protocol/commands}node", [ContentText nodeName]),
							(s"{http://jabber.org/protocol/commands}sessionid", [ContentText $ sessionIDToText sid]),
							(s"{http://jabber.org/protocol/commands}status", [ContentText $ s"cancelled"])
						] []
							(s"{http://jabber.org/protocol/commands}status", [ContentText $ s"canceled"])
						] [
							NodeElement $ Element (s"{http://jabber.org/protocol/commands}note") [
								(s"{http://jabber.org/protocol/commands}type", [ContentText $ s"info"])
							] [
								NodeContent $ ContentText $ s"Register cancelled"
							]
						]
				})
			Just action | action == s"complete" ->
				return (Map.delete sid sessions, (XMPP.emptyIQ XMPP.IQResult) {