You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
40 lines
935 B
40 lines
935 B
{-# LANGUAGE OverloadedStrings #-}
|
|
module Commands where
|
|
|
|
import Discord
|
|
import Discord.Types
|
|
import Discord.Interactions
|
|
import qualified Discord.Requests as R
|
|
|
|
import qualified Data.Text as T
|
|
|
|
pingCommand :: CreateApplicationCommand
|
|
pingCommand =
|
|
CreateApplicationCommand
|
|
"ping"
|
|
"pong"
|
|
(Just [])
|
|
Nothing
|
|
Nothing
|
|
|
|
pingResponse :: InteractionResponse
|
|
pingResponse = interactionResponseBasic "Pong"
|
|
|
|
edtCommand :: CreateApplicationCommand
|
|
edtCommand = CreateApplicationCommand
|
|
"edt"
|
|
"Gets the planning for a group"
|
|
(Just $ toInternal <$>
|
|
[ ApplicationCommandOptionValueString
|
|
"group"
|
|
"Group to get the planning for"
|
|
(Just True)
|
|
Nothing
|
|
Nothing
|
|
, ApplicationCommandOptionValueString
|
|
"day"
|
|
"The day you want the planning for as DD/MM(/YYYY)"
|
|
Nothing Nothing Nothing
|
|
])
|
|
Nothing
|
|
Nothing
|