{-# LANGUAGE DataKinds #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE TypeApplications #-}
{-# LANGUAGE TypeOperators #-}
module Telegram.Bot.API.Methods.SetMyShortDescription 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
data SetMyShortDescriptionRequest = SetMyShortDescriptionRequest
{ SetMyShortDescriptionRequest -> Maybe Text
setMyShortDescriptionDescription :: Maybe Text
, SetMyShortDescriptionRequest -> Maybe Text
setMyShortDescriptionLanguageCode :: Maybe Text
}
deriving (forall x.
SetMyShortDescriptionRequest -> Rep SetMyShortDescriptionRequest x)
-> (forall x.
Rep SetMyShortDescriptionRequest x -> SetMyShortDescriptionRequest)
-> Generic SetMyShortDescriptionRequest
forall x.
Rep SetMyShortDescriptionRequest x -> SetMyShortDescriptionRequest
forall x.
SetMyShortDescriptionRequest -> Rep SetMyShortDescriptionRequest x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cfrom :: forall x.
SetMyShortDescriptionRequest -> Rep SetMyShortDescriptionRequest x
from :: forall x.
SetMyShortDescriptionRequest -> Rep SetMyShortDescriptionRequest x
$cto :: forall x.
Rep SetMyShortDescriptionRequest x -> SetMyShortDescriptionRequest
to :: forall x.
Rep SetMyShortDescriptionRequest x -> SetMyShortDescriptionRequest
Generic
instance ToJSON SetMyShortDescriptionRequest where toJSON :: SetMyShortDescriptionRequest -> Value
toJSON = SetMyShortDescriptionRequest -> Value
forall a (d :: Meta) (f :: * -> *).
(Generic a, GToJSON Zero (Rep a), Rep a ~ D1 d f, Datatype d) =>
a -> Value
gtoJSON
instance FromJSON SetMyShortDescriptionRequest where parseJSON :: Value -> Parser SetMyShortDescriptionRequest
parseJSON = Value -> Parser SetMyShortDescriptionRequest
forall a (d :: Meta) (f :: * -> *).
(Generic a, GFromJSON Zero (Rep a), Rep a ~ D1 d f, Datatype d) =>
Value -> Parser a
gparseJSON
type SetMyShortDescription = "setMyShortDescription"
:> ReqBody '[JSON] SetMyShortDescriptionRequest
:> Post '[JSON] (Response Bool)
setMyShortDescription :: SetMyShortDescriptionRequest -> ClientM (Response Bool)
setMyShortDescription :: SetMyShortDescriptionRequest -> ClientM (Response Bool)
setMyShortDescription = Proxy SetMyShortDescription -> Client ClientM SetMyShortDescription
forall api.
HasClient ClientM api =>
Proxy api -> Client ClientM api
client (forall t. Proxy t
forall {k} (t :: k). Proxy t
Proxy @SetMyShortDescription)
makeDefault ''SetMyShortDescriptionRequest