~singpolyma/cheogram

a08cca4dc86f39687afcbf082a6d2c2d10776e56 — Osakpolor Obaseki 2 years ago ccc7de5
Fix line-single parser for non open case
1 files changed, 1 insertions(+), 1 deletions(-)

M Adhoc.hs
M Adhoc.hs => Adhoc.hs +1 -1
@@ 271,7 271,7 @@ adhocBotAnswerListSingle sendText getMessage field = do
		_ -> log "ADHOC BOT FIELD WITHOUT VAR" field >> return []
	where
	helperText = s"I didn't understand your answer. Please just send the number of the one item you want to pick, like \"1\""
	parser = Atto.skipMany Atto.space *> Atto.decimal <* Atto.skipMany Atto.space
	parser = Atto.skipMany Atto.space *> Atto.decimal <* Atto.skipMany Atto.space <* Atto.endOfInput
	openParser = (Right <$> parser) <|> (Left <$> Atto.takeText)

adhocBotAnswerForm :: (UIO.Unexceptional m) => (Text -> m ()) -> m XMPP.Message -> Element -> m Element