Commit 16b6f557 authored by Nicolas Lenz's avatar Nicolas Lenz ❄️
Browse files

Fix missing start command

parent 984f76f3

app/Main.hs

+1 −0
Original line number Diff line number Diff line
@@ -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