Commit 16b6f557 authored by Nicolas Lenz's avatar Nicolas Lenz

Fix missing start command

parent 984f76f3
......@@ -83,6 +83,7 @@ concatMaybeFunctions (mf:mfs) = do
handleUpdate :: Model -> Telegram.Update -> Maybe Action
handleUpdate _ = parseUpdate $
SendHelp <$ command "help"
<|> SendHelp <$ command "start"
<|> Reply <$> directMock
<|> InlineReply <$> replyToInline
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment