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

{-# 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