Commit bcac7887 authored by Nicolas Lenz's avatar Nicolas Lenz

Remove @ part in directMock

parent 260fc78b
Pipeline #142 passed with stage
in 1 minute and 42 seconds
......@@ -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
......
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