Commit 984f76f3 authored by Nicolas Lenz's avatar Nicolas Lenz

Fix help message order

parent 513a58c9
......@@ -82,9 +82,10 @@ concatMaybeFunctions (mf:mfs) = do
-- and turn them into 'Action's.
handleUpdate :: Model -> Telegram.Update -> Maybe Action
handleUpdate _ = parseUpdate $
Reply <$> directMock
SendHelp <$ command "help"
<|> Reply <$> directMock
<|> InlineReply <$> replyToInline
<|> SendHelp <$ command "help"
-- <|> SendHelp <$ text
-- | How to handle 'Action's.
......
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