~singpolyma/cheogram

c5acbe6969e6b008e796489f95cb65f1e00a6b37 — Stephen Paul Weber 18 days ago 5b112f3 master
Case-insensitive next

Otherwise typing Next can result in very unexpected things.
1 files changed, 1 insertions(+), 1 deletions(-)

M Adhoc.hs
M Adhoc.hs => Adhoc.hs +1 -1
@@ 91,7 91,7 @@ withNext getMessage field answerField
	where
	suspension = do
		m <- lift getMessage
		if getBody (s"jabber:component:accept") m == Just (s"next") then
		if fmap CI.mk (getBody (s"jabber:component:accept") m) == Just (s"next") then
			throwE [field]
		else
			return m