Tiny fix for #109

For .sayblah, chunk was correctly consuming "say", but then we got an unknown error when it tried to consume spaces
WarwickTabletop · Jan 28, 2022 · f0de7ea · f0de7ea
1 parent 323b288
commit f0de7ea
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/src/Tablebot/Internal/Handler/Command.hs b/src/Tablebot/Internal/Handler/Command.hs
@@ -90,8 +90,7 @@ parseCommands cs m prefix = case parse (parser cs) "" (messageText m) of
                 Nothing -> Just <$> command
     matchCommand :: CompiledCommand -> Parser (Maybe (Parser (Message -> CompiledDatabaseDiscord ()), [CompiledCommand]))
     matchCommand c = do
-      _ <- chunk (commandName c)
-      skipSpace1 <|> eof
+      try (chunk (commandName c) *> (skipSpace1 <|> eof))
       return (Just (commandParser c, commandSubcommands c))
 
 data ReadableError = UnknownError | KnownError String [String]