Loading app/Main.hs +2 −1 Original line number Diff line number Diff line Loading @@ -51,7 +51,8 @@ directMock = UpdateParser f where message <- Telegram.updateMessage update txt' <- Telegram.messageText message let txt = if T.head txt' == '/' then T.tail txt' else txt' let (command:body') = T.splitOn " " txt let (command':body') = T.splitOn " " txt let (command, _) = T.breakOn "@" command let body = T.unwords body' let styleNames = T.splitOn "|" . T.toLower $ command if length styleNames > 5 then Loading Loading
app/Main.hs +2 −1 Original line number Diff line number Diff line Loading @@ -51,7 +51,8 @@ directMock = UpdateParser f where message <- Telegram.updateMessage update txt' <- Telegram.messageText message let txt = if T.head txt' == '/' then T.tail txt' else txt' let (command:body') = T.splitOn " " txt let (command':body') = T.splitOn " " txt let (command, _) = T.breakOn "@" command let body = T.unwords body' let styleNames = T.splitOn "|" . T.toLower $ command if length styleNames > 5 then Loading