~singpolyma/cheogram

be00d4a4359de6c60a2ed277290830b4663901f6 — Stephen Paul Weber 5 months ago 0ba3e42
Do not show help text after cancel
1 files changed, 1 insertions(+), 0 deletions(-)

M Adhoc.hs
M Adhoc.hs => Adhoc.hs +1 -0
@@ 512,6 512,7 @@ adhocBotRunCommand db componentJid routeFrom sendMessage sendIQ getMessage from 
						}
						sendAndRespondTo Nothing cmdIQ'
					else when (
							attributeText (s"status") payload == Just (s"completed") &&
							attributeText (s"node") payload == Just ConfigureDirectMessageRoute.nodeName &&
							all (\n -> attributeText (s"type") n /= Just (s"error")) notes
						) $