Garmelon/euph-api
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Make ping command customizable

Browse source
This commit is contained in:
Joscha 2018-02-20 06:43:52 +00:00
parent c12d278ee1
commit 02487f0d60
2 changed files with 11 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

12
src/EuphApi/Utils/Botrulez.hs
View file

@ -20,13 +20,13 @@ import qualified EuphApi.Bot as B
import qualified EuphApi.Types as E
import qualified EuphApi.Utils as E
pingCommand :: E.Command b c
pingCommand = E.specificCommand "ping" $ \msg ->
void $ B.reply (E.msgID msg) "Pong!"
pingCommand :: T.Text -> E.Command b c
pingCommand pingText = E.specificCommand "ping" $ \msg ->
void $ B.reply (E.msgID msg) pingText
generalPingCommand :: E.Command b c
generalPingCommand = E.command "ping" $ \msg ->
void $ B.reply (E.msgID msg) "Pong!"
generalPingCommand :: T.Text -> E.Command b c
generalPingCommand pingText = E.command "ping" $ \msg ->
void $ B.reply (E.msgID msg) pingText
helpCommand :: T.Text -> E.Command b c
helpCommand helpText = E.specificCommand "help" $ \msg ->