content: {-# LANGUAGE DataKinds #-}
  {-# LANGUAGE DeriveGeneric #-}
  {-# LANGUAGE TypeApplications #-}
  {-# LANGUAGE TypeOperators #-}
  module Telegram.Bot.API.Methods.SetMyDescription where
  
  import Data.Aeson (FromJSON (..), ToJSON (..))
  import Data.Proxy
  import GHC.Generics (Generic)
  import Data.Text (Text)
  import Servant.API
  import Servant.Client hiding (Response)
  
  import Telegram.Bot.API.Internal.Utils
  import Telegram.Bot.API.MakingRequests
  import Telegram.Bot.API.Internal.TH
  
  -- ** 'setMyDescription'
  
  data SetMyDescriptionRequest = SetMyDescriptionRequest
    { setMyDescriptionDescription  :: Maybe Text -- ^ New bot description; 0-512 characters. Pass an empty string to remove the dedicated description for the given language.
    , setMyDescriptionLanguageCode :: Maybe Text -- ^ A two-letter ISO 639-1 language code. If empty, the description will be applied to all users for whose language there is no dedicated description.
    }
    deriving Generic
  
  instance ToJSON   SetMyDescriptionRequest where toJSON = gtoJSON
  instance FromJSON SetMyDescriptionRequest where parseJSON = gparseJSON
  
  type SetMyDescription = "setMyDescription"
    :> ReqBody '[JSON] SetMyDescriptionRequest
    :> Post '[JSON] (Response Bool)
  
  -- | Use this method to change the bot's description,
  --   which is shown in the chat with the bot if the chat is empty.
  --   Returns 'True' on success.
  setMyDescription :: SetMyDescriptionRequest -> ClientM (Response Bool)
  setMyDescription = client (Proxy @SetMyDescription)
  
  makeDefault ''SetMyDescriptionRequest
  