~singpolyma/cheogram

3d3f4c7408f9e81ed2f66d35afebb2355ba2cb4d — Stephen Paul Weber a month ago c45aef2
Case insensitive cancel for adhoc bot
1 files changed, 1 insertions(+), 1 deletions(-)

M Adhoc.hs
M Adhoc.hs => Adhoc.hs +1 -1
@@ 105,7 105,7 @@ withCancel sessionLength sendText cancelSession getMessage = do
		Just <$> getMessage
	case maybeMsg of
		Just msg
			| getBody (s"jabber:component:accept") msg == Just (s"cancel") -> cancel $ s"cancelled"
			| (CI.mk <$> getBody (s"jabber:component:accept") msg) == Just (s"cancel") -> cancel $ s"cancelled"
		Just msg -> return msg
		Nothing -> cancel $ s"expired"
	where