{-# LANGUAGE MultiParamTypeClasses #-}
{-# LANGUAGE FunctionalDependencies #-}
{-# LANGUAGE FlexibleInstances #-}
module Telegram.Bot.Simple.RunTG where
import Telegram.Bot.API
import Data.Text
import Servant.Client hiding (Response)
import Telegram.Bot.Simple.Eff (liftClientM, BotM)
class RunTG a b | a -> b where
runTG :: a -> BotM b
instance RunTG (ClientM (Response a)) (Response a) where
runTG :: ClientM (Response a) -> BotM (Response a)
runTG = ClientM (Response a) -> BotM (Response a)
forall a. ClientM a -> BotM a
liftClientM
instance RunTG AnswerInlineQueryRequest (Response Bool) where
runTG :: AnswerInlineQueryRequest -> BotM (Response Bool)
runTG = ClientM (Response Bool) -> BotM (Response Bool)
forall a b. RunTG a b => a -> BotM b
runTG (ClientM (Response Bool) -> BotM (Response Bool))
-> (AnswerInlineQueryRequest -> ClientM (Response Bool))
-> AnswerInlineQueryRequest
-> BotM (Response Bool)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AnswerInlineQueryRequest -> ClientM (Response Bool)
answerInlineQuery
instance RunTG AnswerWebAppQueryRequest (Response SentWebAppMessage) where
runTG :: AnswerWebAppQueryRequest -> BotM (Response SentWebAppMessage)
runTG = ClientM (Response SentWebAppMessage)
-> BotM (Response SentWebAppMessage)
forall a b. RunTG a b => a -> BotM b
runTG (ClientM (Response SentWebAppMessage)
-> BotM (Response SentWebAppMessage))
-> (AnswerWebAppQueryRequest
-> ClientM (Response SentWebAppMessage))
-> AnswerWebAppQueryRequest
-> BotM (Response SentWebAppMessage)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AnswerWebAppQueryRequest -> ClientM (Response SentWebAppMessage)
answerWebAppQuery
instance RunTG SendInvoiceRequest (Response Message) where
runTG :: SendInvoiceRequest -> BotM (Response Message)
runTG = ClientM (Response Message) -> BotM (Response Message)
forall a b. RunTG a b => a -> BotM b
runTG (ClientM (Response Message) -> BotM (Response Message))
-> (SendInvoiceRequest -> ClientM (Response Message))
-> SendInvoiceRequest
-> BotM (Response Message)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. SendInvoiceRequest -> ClientM (Response Message)
sendInvoice
instance RunTG CreateInvoiceLinkRequest (Response Text) where
runTG :: CreateInvoiceLinkRequest -> BotM (Response Text)
runTG = ClientM (Response Text) -> BotM (Response Text)
forall a b. RunTG a b => a -> BotM b
runTG (ClientM (Response Text) -> BotM (Response Text))
-> (CreateInvoiceLinkRequest -> ClientM (Response Text))
-> CreateInvoiceLinkRequest
-> BotM (Response Text)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CreateInvoiceLinkRequest -> ClientM (Response Text)
createInvoiceLink
instance RunTG AnswerShippingQueryRequest (Response Bool) where
runTG :: AnswerShippingQueryRequest -> BotM (Response Bool)
runTG = ClientM (Response Bool) -> BotM (Response Bool)
forall a b. RunTG a b => a -> BotM b
runTG (ClientM (Response Bool) -> BotM (Response Bool))
-> (AnswerShippingQueryRequest -> ClientM (Response Bool))
-> AnswerShippingQueryRequest
-> BotM (Response Bool)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AnswerShippingQueryRequest -> ClientM (Response Bool)
answerShippingQuery
instance RunTG AnswerPreCheckoutQueryRequest (Response Bool) where
runTG :: AnswerPreCheckoutQueryRequest -> BotM (Response Bool)
runTG = ClientM (Response Bool) -> BotM (Response Bool)
forall a b. RunTG a b => a -> BotM b
runTG (ClientM (Response Bool) -> BotM (Response Bool))
-> (AnswerPreCheckoutQueryRequest -> ClientM (Response Bool))
-> AnswerPreCheckoutQueryRequest
-> BotM (Response Bool)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AnswerPreCheckoutQueryRequest -> ClientM (Response Bool)
answerPreCheckoutQuery
instance RunTG GetUpdatesRequest (Response [Update]) where
runTG :: GetUpdatesRequest -> BotM (Response [Update])
runTG = ClientM (Response [Update]) -> BotM (Response [Update])
forall a b. RunTG a b => a -> BotM b
runTG (ClientM (Response [Update]) -> BotM (Response [Update]))
-> (GetUpdatesRequest -> ClientM (Response [Update]))
-> GetUpdatesRequest
-> BotM (Response [Update])
forall b c a. (b -> c) -> (a -> b) -> a -> c
. GetUpdatesRequest -> ClientM (Response [Update])
getUpdates
instance RunTG SendGameRequest (Response Message) where
runTG :: SendGameRequest -> BotM (Response Message)
runTG = ClientM (Response Message) -> BotM (Response Message)
forall a b. RunTG a b => a -> BotM b
runTG (ClientM (Response Message) -> BotM (Response Message))
-> (SendGameRequest -> ClientM (Response Message))
-> SendGameRequest
-> BotM (Response Message)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. SendGameRequest -> ClientM (Response Message)
sendGame
instance RunTG SetGameScoreRequest (Response SetGameScoreResult) where
runTG :: SetGameScoreRequest -> BotM (Response SetGameScoreResult)
runTG = ClientM (Response SetGameScoreResult)
-> BotM (Response SetGameScoreResult)
forall a b. RunTG a b => a -> BotM b
runTG (ClientM (Response SetGameScoreResult)
-> BotM (Response SetGameScoreResult))
-> (SetGameScoreRequest -> ClientM (Response SetGameScoreResult))
-> SetGameScoreRequest
-> BotM (Response SetGameScoreResult)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. SetGameScoreRequest -> ClientM (Response SetGameScoreResult)
setGameScore
instance RunTG SendStickerRequest (Response Message) where
runTG :: SendStickerRequest -> BotM (Response Message)
runTG = ClientM (Response Message) -> BotM (Response Message)
forall a b. RunTG a b => a -> BotM b
runTG (ClientM (Response Message) -> BotM (Response Message))
-> (SendStickerRequest -> ClientM (Response Message))
-> SendStickerRequest
-> BotM (Response Message)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. SendStickerRequest -> ClientM (Response Message)
sendSticker
instance RunTG UploadStickerFileRequest (Response File) where
runTG :: UploadStickerFileRequest -> BotM (Response File)
runTG = ClientM (Response File) -> BotM (Response File)
forall a b. RunTG a b => a -> BotM b
runTG (ClientM (Response File) -> BotM (Response File))
-> (UploadStickerFileRequest -> ClientM (Response File))
-> UploadStickerFileRequest
-> BotM (Response File)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. UploadStickerFileRequest -> ClientM (Response File)
uploadStickerFile
instance RunTG CreateNewStickerSetRequest (Response Bool) where
runTG :: CreateNewStickerSetRequest -> BotM (Response Bool)
runTG = ClientM (Response Bool) -> BotM (Response Bool)
forall a b. RunTG a b => a -> BotM b
runTG (ClientM (Response Bool) -> BotM (Response Bool))
-> (CreateNewStickerSetRequest -> ClientM (Response Bool))
-> CreateNewStickerSetRequest
-> BotM (Response Bool)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CreateNewStickerSetRequest -> ClientM (Response Bool)
createNewStickerSet
instance RunTG AddStickerToSetRequest (Response Bool) where
runTG :: AddStickerToSetRequest -> BotM (Response Bool)
runTG = ClientM (Response Bool) -> BotM (Response Bool)
forall a b. RunTG a b => a -> BotM b
runTG (ClientM (Response Bool) -> BotM (Response Bool))
-> (AddStickerToSetRequest -> ClientM (Response Bool))
-> AddStickerToSetRequest
-> BotM (Response Bool)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AddStickerToSetRequest -> ClientM (Response Bool)
addStickerToSet
instance RunTG SetStickerSetThumbnailRequest (Response Bool) where
runTG :: SetStickerSetThumbnailRequest -> BotM (Response Bool)
runTG = ClientM (Response Bool) -> BotM (Response Bool)
forall a b. RunTG a b => a -> BotM b
runTG (ClientM (Response Bool) -> BotM (Response Bool))
-> (SetStickerSetThumbnailRequest -> ClientM (Response Bool))
-> SetStickerSetThumbnailRequest
-> BotM (Response Bool)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. SetStickerSetThumbnailRequest -> ClientM (Response Bool)
setStickerSetThumbnail
instance RunTG EditMessageTextRequest (Response EditMessageResponse) where
runTG :: EditMessageTextRequest -> BotM (Response EditMessageResponse)
runTG = ClientM (Response EditMessageResponse)
-> BotM (Response EditMessageResponse)
forall a b. RunTG a b => a -> BotM b
runTG (ClientM (Response EditMessageResponse)
-> BotM (Response EditMessageResponse))
-> (EditMessageTextRequest
-> ClientM (Response EditMessageResponse))
-> EditMessageTextRequest
-> BotM (Response EditMessageResponse)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. EditMessageTextRequest -> ClientM (Response EditMessageResponse)
editMessageText
instance RunTG EditMessageCaptionRequest (Response EditMessageResponse) where
runTG :: EditMessageCaptionRequest -> BotM (Response EditMessageResponse)
runTG = ClientM (Response EditMessageResponse)
-> BotM (Response EditMessageResponse)
forall a b. RunTG a b => a -> BotM b
runTG (ClientM (Response EditMessageResponse)
-> BotM (Response EditMessageResponse))
-> (EditMessageCaptionRequest
-> ClientM (Response EditMessageResponse))
-> EditMessageCaptionRequest
-> BotM (Response EditMessageResponse)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. EditMessageCaptionRequest -> ClientM (Response EditMessageResponse)
editMessageCaption
instance RunTG EditMessageMediaRequest (Response EditMessageResponse) where
runTG :: EditMessageMediaRequest -> BotM (Response EditMessageResponse)
runTG = ClientM (Response EditMessageResponse)
-> BotM (Response EditMessageResponse)
forall a b. RunTG a b => a -> BotM b
runTG (ClientM (Response EditMessageResponse)
-> BotM (Response EditMessageResponse))
-> (EditMessageMediaRequest
-> ClientM (Response EditMessageResponse))
-> EditMessageMediaRequest
-> BotM (Response EditMessageResponse)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. EditMessageMediaRequest -> ClientM (Response EditMessageResponse)
editMessageMedia
instance RunTG EditMessageReplyMarkupRequest (Response EditMessageResponse) where
runTG :: EditMessageReplyMarkupRequest
-> BotM (Response EditMessageResponse)
runTG = ClientM (Response EditMessageResponse)
-> BotM (Response EditMessageResponse)
forall a b. RunTG a b => a -> BotM b
runTG (ClientM (Response EditMessageResponse)
-> BotM (Response EditMessageResponse))
-> (EditMessageReplyMarkupRequest
-> ClientM (Response EditMessageResponse))
-> EditMessageReplyMarkupRequest
-> BotM (Response EditMessageResponse)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. EditMessageReplyMarkupRequest
-> ClientM (Response EditMessageResponse)
editMessageReplyMarkup
instance RunTG StopPollRequest (Response Poll) where
runTG :: StopPollRequest -> BotM (Response Poll)
runTG = ClientM (Response Poll) -> BotM (Response Poll)
forall a b. RunTG a b => a -> BotM b
runTG (ClientM (Response Poll) -> BotM (Response Poll))
-> (StopPollRequest -> ClientM (Response Poll))
-> StopPollRequest
-> BotM (Response Poll)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. StopPollRequest -> ClientM (Response Poll)
stopPoll
instance RunTG CreateForumTopicRequest (Response ForumTopic) where
runTG :: CreateForumTopicRequest -> BotM (Response ForumTopic)
runTG = ClientM (Response ForumTopic) -> BotM (Response ForumTopic)
forall a b. RunTG a b => a -> BotM b
runTG (ClientM (Response ForumTopic) -> BotM (Response ForumTopic))
-> (CreateForumTopicRequest -> ClientM (Response ForumTopic))
-> CreateForumTopicRequest
-> BotM (Response ForumTopic)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CreateForumTopicRequest -> ClientM (Response ForumTopic)
createForumTopic
instance RunTG EditForumTopicRequest (Response Bool) where
runTG :: EditForumTopicRequest -> BotM (Response Bool)
runTG = ClientM (Response Bool) -> BotM (Response Bool)
forall a b. RunTG a b => a -> BotM b
runTG (ClientM (Response Bool) -> BotM (Response Bool))
-> (EditForumTopicRequest -> ClientM (Response Bool))
-> EditForumTopicRequest
-> BotM (Response Bool)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. EditForumTopicRequest -> ClientM (Response Bool)
editForumTopic
instance RunTG CloseForumTopicRequest (Response Bool) where
runTG :: CloseForumTopicRequest -> BotM (Response Bool)
runTG = ClientM (Response Bool) -> BotM (Response Bool)
forall a b. RunTG a b => a -> BotM b
runTG (ClientM (Response Bool) -> BotM (Response Bool))
-> (CloseForumTopicRequest -> ClientM (Response Bool))
-> CloseForumTopicRequest
-> BotM (Response Bool)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CloseForumTopicRequest -> ClientM (Response Bool)
closeForumTopic
instance RunTG ReopenForumTopicRequest (Response Bool) where
runTG :: ReopenForumTopicRequest -> BotM (Response Bool)
runTG = ClientM (Response Bool) -> BotM (Response Bool)
forall a b. RunTG a b => a -> BotM b
runTG (ClientM (Response Bool) -> BotM (Response Bool))
-> (ReopenForumTopicRequest -> ClientM (Response Bool))
-> ReopenForumTopicRequest
-> BotM (Response Bool)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. ReopenForumTopicRequest -> ClientM (Response Bool)
reopenForumTopic
instance RunTG DeleteForumTopicRequest (Response Bool) where
runTG :: DeleteForumTopicRequest -> BotM (Response Bool)
runTG = ClientM (Response Bool) -> BotM (Response Bool)
forall a b. RunTG a b => a -> BotM b
runTG (ClientM (Response Bool) -> BotM (Response Bool))
-> (DeleteForumTopicRequest -> ClientM (Response Bool))
-> DeleteForumTopicRequest
-> BotM (Response Bool)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. DeleteForumTopicRequest -> ClientM (Response Bool)
deleteForumTopic
instance RunTG UnpinAllForumTopicMessagesRequest (Response Bool) where
runTG :: UnpinAllForumTopicMessagesRequest -> BotM (Response Bool)
runTG = ClientM (Response Bool) -> BotM (Response Bool)
forall a b. RunTG a b => a -> BotM b
runTG (ClientM (Response Bool) -> BotM (Response Bool))
-> (UnpinAllForumTopicMessagesRequest -> ClientM (Response Bool))
-> UnpinAllForumTopicMessagesRequest
-> BotM (Response Bool)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. UnpinAllForumTopicMessagesRequest -> ClientM (Response Bool)
unpinAllForumTopicMessages
instance RunTG EditGeneralForumTopicRequest (Response Bool) where
runTG :: EditGeneralForumTopicRequest -> BotM (Response Bool)
runTG = ClientM (Response Bool) -> BotM (Response Bool)
forall a b. RunTG a b => a -> BotM b
runTG (ClientM (Response Bool) -> BotM (Response Bool))
-> (EditGeneralForumTopicRequest -> ClientM (Response Bool))
-> EditGeneralForumTopicRequest
-> BotM (Response Bool)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. EditGeneralForumTopicRequest -> ClientM (Response Bool)
editGeneralForumTopic
instance RunTG CloseGeneralForumTopicRequest (Response Bool) where
runTG :: CloseGeneralForumTopicRequest -> BotM (Response Bool)
runTG = ClientM (Response Bool) -> BotM (Response Bool)
forall a b. RunTG a b => a -> BotM b
runTG (ClientM (Response Bool) -> BotM (Response Bool))
-> (CloseGeneralForumTopicRequest -> ClientM (Response Bool))
-> CloseGeneralForumTopicRequest
-> BotM (Response Bool)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CloseGeneralForumTopicRequest -> ClientM (Response Bool)
closeGeneralForumTopic
instance RunTG ReopenGeneralForumTopicRequest (Response Bool) where
runTG :: ReopenGeneralForumTopicRequest -> BotM (Response Bool)
runTG = ClientM (Response Bool) -> BotM (Response Bool)
forall a b. RunTG a b => a -> BotM b
runTG (ClientM (Response Bool) -> BotM (Response Bool))
-> (ReopenGeneralForumTopicRequest -> ClientM (Response Bool))
-> ReopenGeneralForumTopicRequest
-> BotM (Response Bool)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. ReopenGeneralForumTopicRequest -> ClientM (Response Bool)
reopenGeneralForumTopic
instance RunTG HideGeneralForumTopicRequest (Response Bool) where
runTG :: HideGeneralForumTopicRequest -> BotM (Response Bool)
runTG = ClientM (Response Bool) -> BotM (Response Bool)
forall a b. RunTG a b => a -> BotM b
runTG (ClientM (Response Bool) -> BotM (Response Bool))
-> (HideGeneralForumTopicRequest -> ClientM (Response Bool))
-> HideGeneralForumTopicRequest
-> BotM (Response Bool)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. HideGeneralForumTopicRequest -> ClientM (Response Bool)
hideGeneralForumTopic
instance RunTG UnhideGeneralForumTopicRequest (Response Bool) where
runTG :: UnhideGeneralForumTopicRequest -> BotM (Response Bool)
runTG = ClientM (Response Bool) -> BotM (Response Bool)
forall a b. RunTG a b => a -> BotM b
runTG (ClientM (Response Bool) -> BotM (Response Bool))
-> (UnhideGeneralForumTopicRequest -> ClientM (Response Bool))
-> UnhideGeneralForumTopicRequest
-> BotM (Response Bool)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. UnhideGeneralForumTopicRequest -> ClientM (Response Bool)
unhideGeneralForumTopic
instance RunTG ForwardMessageRequest (Response Message) where
runTG :: ForwardMessageRequest -> BotM (Response Message)
runTG = ClientM (Response Message) -> BotM (Response Message)
forall a b. RunTG a b => a -> BotM b
runTG (ClientM (Response Message) -> BotM (Response Message))
-> (ForwardMessageRequest -> ClientM (Response Message))
-> ForwardMessageRequest
-> BotM (Response Message)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. ForwardMessageRequest -> ClientM (Response Message)
forwardMessage
instance RunTG SendDiceRequest (Response Message) where
runTG :: SendDiceRequest -> BotM (Response Message)
runTG = ClientM (Response Message) -> BotM (Response Message)
forall a b. RunTG a b => a -> BotM b
runTG (ClientM (Response Message) -> BotM (Response Message))
-> (SendDiceRequest -> ClientM (Response Message))
-> SendDiceRequest
-> BotM (Response Message)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. SendDiceRequest -> ClientM (Response Message)
sendDice
instance RunTG UnbanChatMemberRequest (Response Bool) where
runTG :: UnbanChatMemberRequest -> BotM (Response Bool)
runTG = ClientM (Response Bool) -> BotM (Response Bool)
forall a b. RunTG a b => a -> BotM b
runTG (ClientM (Response Bool) -> BotM (Response Bool))
-> (UnbanChatMemberRequest -> ClientM (Response Bool))
-> UnbanChatMemberRequest
-> BotM (Response Bool)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. UnbanChatMemberRequest -> ClientM (Response Bool)
unbanChatMember
instance RunTG SendLocationRequest (Response Message) where
runTG :: SendLocationRequest -> BotM (Response Message)
runTG = ClientM (Response Message) -> BotM (Response Message)
forall a b. RunTG a b => a -> BotM b
runTG (ClientM (Response Message) -> BotM (Response Message))
-> (SendLocationRequest -> ClientM (Response Message))
-> SendLocationRequest
-> BotM (Response Message)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. SendLocationRequest -> ClientM (Response Message)
sendLocation
instance RunTG SendVoiceRequest (Response Message) where
runTG :: SendVoiceRequest -> BotM (Response Message)
runTG = ClientM (Response Message) -> BotM (Response Message)
forall a b. RunTG a b => a -> BotM b
runTG (ClientM (Response Message) -> BotM (Response Message))
-> (SendVoiceRequest -> ClientM (Response Message))
-> SendVoiceRequest
-> BotM (Response Message)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. SendVoiceRequest -> ClientM (Response Message)
sendVoice
instance RunTG SendAudioRequest (Response Message) where
runTG :: SendAudioRequest -> BotM (Response Message)
runTG = ClientM (Response Message) -> BotM (Response Message)
forall a b. RunTG a b => a -> BotM b
runTG (ClientM (Response Message) -> BotM (Response Message))
-> (SendAudioRequest -> ClientM (Response Message))
-> SendAudioRequest
-> BotM (Response Message)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. SendAudioRequest -> ClientM (Response Message)
sendAudio
instance RunTG SendVideoRequest (Response Message) where
runTG :: SendVideoRequest -> BotM (Response Message)
runTG = ClientM (Response Message) -> BotM (Response Message)
forall a b. RunTG a b => a -> BotM b
runTG (ClientM (Response Message) -> BotM (Response Message))
-> (SendVideoRequest -> ClientM (Response Message))
-> SendVideoRequest
-> BotM (Response Message)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. SendVideoRequest -> ClientM (Response Message)
sendVideo
instance RunTG SetChatPhotoRequest (Response Bool) where
runTG :: SetChatPhotoRequest -> BotM (Response Bool)
runTG = ClientM (Response Bool) -> BotM (Response Bool)
forall a b. RunTG a b => a -> BotM b
runTG (ClientM (Response Bool) -> BotM (Response Bool))
-> (SetChatPhotoRequest -> ClientM (Response Bool))
-> SetChatPhotoRequest
-> BotM (Response Bool)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. SetChatPhotoRequest -> ClientM (Response Bool)
setChatPhoto
instance RunTG DeleteMyCommandsRequest (Response Bool) where
runTG :: DeleteMyCommandsRequest -> BotM (Response Bool)
runTG = ClientM (Response Bool) -> BotM (Response Bool)
forall a b. RunTG a b => a -> BotM b
runTG (ClientM (Response Bool) -> BotM (Response Bool))
-> (DeleteMyCommandsRequest -> ClientM (Response Bool))
-> DeleteMyCommandsRequest
-> BotM (Response Bool)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. DeleteMyCommandsRequest -> ClientM (Response Bool)
deleteMyCommands
instance RunTG EditMessageLiveLocationRequest (Response (Either Bool Message)) where
runTG :: EditMessageLiveLocationRequest
-> BotM (Response (Either Bool Message))
runTG = ClientM (Response (Either Bool Message))
-> BotM (Response (Either Bool Message))
forall a b. RunTG a b => a -> BotM b
runTG (ClientM (Response (Either Bool Message))
-> BotM (Response (Either Bool Message)))
-> (EditMessageLiveLocationRequest
-> ClientM (Response (Either Bool Message)))
-> EditMessageLiveLocationRequest
-> BotM (Response (Either Bool Message))
forall b c a. (b -> c) -> (a -> b) -> a -> c
. EditMessageLiveLocationRequest
-> ClientM (Response (Either Bool Message))
editMessageLiveLocation
instance RunTG SetChatMenuButtonRequest (Response Bool) where
runTG :: SetChatMenuButtonRequest -> BotM (Response Bool)
runTG = ClientM (Response Bool) -> BotM (Response Bool)
forall a b. RunTG a b => a -> BotM b
runTG (ClientM (Response Bool) -> BotM (Response Bool))
-> (SetChatMenuButtonRequest -> ClientM (Response Bool))
-> SetChatMenuButtonRequest
-> BotM (Response Bool)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. SetChatMenuButtonRequest -> ClientM (Response Bool)
setChatMenuButton
instance RunTG SetMyCommandsRequest (Response Bool) where
runTG :: SetMyCommandsRequest -> BotM (Response Bool)
runTG = ClientM (Response Bool) -> BotM (Response Bool)
forall a b. RunTG a b => a -> BotM b
runTG (ClientM (Response Bool) -> BotM (Response Bool))
-> (SetMyCommandsRequest -> ClientM (Response Bool))
-> SetMyCommandsRequest
-> BotM (Response Bool)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. SetMyCommandsRequest -> ClientM (Response Bool)
setMyCommands
instance RunTG SetCustomEmojiStickerSetThumbnailRequest (Response Bool) where
runTG :: SetCustomEmojiStickerSetThumbnailRequest -> BotM (Response Bool)
runTG = ClientM (Response Bool) -> BotM (Response Bool)
forall a b. RunTG a b => a -> BotM b
runTG (ClientM (Response Bool) -> BotM (Response Bool))
-> (SetCustomEmojiStickerSetThumbnailRequest
-> ClientM (Response Bool))
-> SetCustomEmojiStickerSetThumbnailRequest
-> BotM (Response Bool)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. SetCustomEmojiStickerSetThumbnailRequest -> ClientM (Response Bool)
setCustomEmojiStickerSetThumbnail
instance RunTG CopyMessageRequest (Response CopyMessageId) where
runTG :: CopyMessageRequest -> BotM (Response CopyMessageId)
runTG = ClientM (Response CopyMessageId) -> BotM (Response CopyMessageId)
forall a b. RunTG a b => a -> BotM b
runTG (ClientM (Response CopyMessageId) -> BotM (Response CopyMessageId))
-> (CopyMessageRequest -> ClientM (Response CopyMessageId))
-> CopyMessageRequest
-> BotM (Response CopyMessageId)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CopyMessageRequest -> ClientM (Response CopyMessageId)
copyMessage
instance RunTG SendMessageRequest (Response Message) where
runTG :: SendMessageRequest -> BotM (Response Message)
runTG = ClientM (Response Message) -> BotM (Response Message)
forall a b. RunTG a b => a -> BotM b
runTG (ClientM (Response Message) -> BotM (Response Message))
-> (SendMessageRequest -> ClientM (Response Message))
-> SendMessageRequest
-> BotM (Response Message)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. SendMessageRequest -> ClientM (Response Message)
sendMessage
instance RunTG EditChatInviteLinkRequest (Response ChatInviteLink) where
runTG :: EditChatInviteLinkRequest -> BotM (Response ChatInviteLink)
runTG = ClientM (Response ChatInviteLink) -> BotM (Response ChatInviteLink)
forall a b. RunTG a b => a -> BotM b
runTG (ClientM (Response ChatInviteLink)
-> BotM (Response ChatInviteLink))
-> (EditChatInviteLinkRequest -> ClientM (Response ChatInviteLink))
-> EditChatInviteLinkRequest
-> BotM (Response ChatInviteLink)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. EditChatInviteLinkRequest -> ClientM (Response ChatInviteLink)
editChatInviteLink
instance RunTG SendPhotoRequest (Response Message) where
runTG :: SendPhotoRequest -> BotM (Response Message)
runTG = ClientM (Response Message) -> BotM (Response Message)
forall a b. RunTG a b => a -> BotM b
runTG (ClientM (Response Message) -> BotM (Response Message))
-> (SendPhotoRequest -> ClientM (Response Message))
-> SendPhotoRequest
-> BotM (Response Message)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. SendPhotoRequest -> ClientM (Response Message)
sendPhoto
instance RunTG StopMessageLiveLocationRequest (Response (Either Bool Message)) where
runTG :: StopMessageLiveLocationRequest
-> BotM (Response (Either Bool Message))
runTG = ClientM (Response (Either Bool Message))
-> BotM (Response (Either Bool Message))
forall a b. RunTG a b => a -> BotM b
runTG (ClientM (Response (Either Bool Message))
-> BotM (Response (Either Bool Message)))
-> (StopMessageLiveLocationRequest
-> ClientM (Response (Either Bool Message)))
-> StopMessageLiveLocationRequest
-> BotM (Response (Either Bool Message))
forall b c a. (b -> c) -> (a -> b) -> a -> c
. StopMessageLiveLocationRequest
-> ClientM (Response (Either Bool Message))
stopMessageLiveLocation
instance RunTG SendDocumentRequest (Response Message) where
runTG :: SendDocumentRequest -> BotM (Response Message)
runTG = ClientM (Response Message) -> BotM (Response Message)
forall a b. RunTG a b => a -> BotM b
runTG (ClientM (Response Message) -> BotM (Response Message))
-> (SendDocumentRequest -> ClientM (Response Message))
-> SendDocumentRequest
-> BotM (Response Message)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. SendDocumentRequest -> ClientM (Response Message)
sendDocument
instance RunTG SendAnimationRequest (Response Message) where
runTG :: SendAnimationRequest -> BotM (Response Message)
runTG = ClientM (Response Message) -> BotM (Response Message)
forall a b. RunTG a b => a -> BotM b
runTG (ClientM (Response Message) -> BotM (Response Message))
-> (SendAnimationRequest -> ClientM (Response Message))
-> SendAnimationRequest
-> BotM (Response Message)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. SendAnimationRequest -> ClientM (Response Message)
sendAnimation
instance RunTG RestrictChatMemberRequest (Response Bool) where
runTG :: RestrictChatMemberRequest -> BotM (Response Bool)
runTG = ClientM (Response Bool) -> BotM (Response Bool)
forall a b. RunTG a b => a -> BotM b
runTG (ClientM (Response Bool) -> BotM (Response Bool))
-> (RestrictChatMemberRequest -> ClientM (Response Bool))
-> RestrictChatMemberRequest
-> BotM (Response Bool)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. RestrictChatMemberRequest -> ClientM (Response Bool)
restrictChatMember
instance RunTG AnswerCallbackQueryRequest (Response Bool) where
runTG :: AnswerCallbackQueryRequest -> BotM (Response Bool)
runTG = ClientM (Response Bool) -> BotM (Response Bool)
forall a b. RunTG a b => a -> BotM b
runTG (ClientM (Response Bool) -> BotM (Response Bool))
-> (AnswerCallbackQueryRequest -> ClientM (Response Bool))
-> AnswerCallbackQueryRequest
-> BotM (Response Bool)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AnswerCallbackQueryRequest -> ClientM (Response Bool)
answerCallbackQuery
instance RunTG SetMyDefaultAdministratorRightsRequest (Response Bool) where
runTG :: SetMyDefaultAdministratorRightsRequest -> BotM (Response Bool)
runTG = ClientM (Response Bool) -> BotM (Response Bool)
forall a b. RunTG a b => a -> BotM b
runTG (ClientM (Response Bool) -> BotM (Response Bool))
-> (SetMyDefaultAdministratorRightsRequest
-> ClientM (Response Bool))
-> SetMyDefaultAdministratorRightsRequest
-> BotM (Response Bool)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. SetMyDefaultAdministratorRightsRequest -> ClientM (Response Bool)
setMyDefaultAdministratorRights
instance RunTG SetMyDescriptionRequest (Response Bool) where
runTG :: SetMyDescriptionRequest -> BotM (Response Bool)
runTG = ClientM (Response Bool) -> BotM (Response Bool)
forall a b. RunTG a b => a -> BotM b
runTG (ClientM (Response Bool) -> BotM (Response Bool))
-> (SetMyDescriptionRequest -> ClientM (Response Bool))
-> SetMyDescriptionRequest
-> BotM (Response Bool)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. SetMyDescriptionRequest -> ClientM (Response Bool)
setMyDescription
instance RunTG SetMyShortDescriptionRequest (Response Bool) where
runTG :: SetMyShortDescriptionRequest -> BotM (Response Bool)
runTG = ClientM (Response Bool) -> BotM (Response Bool)
forall a b. RunTG a b => a -> BotM b
runTG (ClientM (Response Bool) -> BotM (Response Bool))
-> (SetMyShortDescriptionRequest -> ClientM (Response Bool))
-> SetMyShortDescriptionRequest
-> BotM (Response Bool)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. SetMyShortDescriptionRequest -> ClientM (Response Bool)
setMyShortDescription
instance RunTG CreateChatInviteLinkRequest (Response ChatInviteLink) where
runTG :: CreateChatInviteLinkRequest -> BotM (Response ChatInviteLink)
runTG = ClientM (Response ChatInviteLink) -> BotM (Response ChatInviteLink)
forall a b. RunTG a b => a -> BotM b
runTG (ClientM (Response ChatInviteLink)
-> BotM (Response ChatInviteLink))
-> (CreateChatInviteLinkRequest
-> ClientM (Response ChatInviteLink))
-> CreateChatInviteLinkRequest
-> BotM (Response ChatInviteLink)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CreateChatInviteLinkRequest -> ClientM (Response ChatInviteLink)
createChatInviteLink
instance RunTG PinChatMessageRequest (Response Bool) where
runTG :: PinChatMessageRequest -> BotM (Response Bool)
runTG = ClientM (Response Bool) -> BotM (Response Bool)
forall a b. RunTG a b => a -> BotM b
runTG (ClientM (Response Bool) -> BotM (Response Bool))
-> (PinChatMessageRequest -> ClientM (Response Bool))
-> PinChatMessageRequest
-> BotM (Response Bool)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. PinChatMessageRequest -> ClientM (Response Bool)
pinChatMessage
instance RunTG SetChatPermissionsRequest (Response Bool) where
runTG :: SetChatPermissionsRequest -> BotM (Response Bool)
runTG = ClientM (Response Bool) -> BotM (Response Bool)
forall a b. RunTG a b => a -> BotM b
runTG (ClientM (Response Bool) -> BotM (Response Bool))
-> (SetChatPermissionsRequest -> ClientM (Response Bool))
-> SetChatPermissionsRequest
-> BotM (Response Bool)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. SetChatPermissionsRequest -> ClientM (Response Bool)
setChatPermissions
instance RunTG PromoteChatMemberRequest (Response Bool) where
runTG :: PromoteChatMemberRequest -> BotM (Response Bool)
runTG = ClientM (Response Bool) -> BotM (Response Bool)
forall a b. RunTG a b => a -> BotM b
runTG (ClientM (Response Bool) -> BotM (Response Bool))
-> (PromoteChatMemberRequest -> ClientM (Response Bool))
-> PromoteChatMemberRequest
-> BotM (Response Bool)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. PromoteChatMemberRequest -> ClientM (Response Bool)
promoteChatMember
instance RunTG GetMyDefaultAdministratorRightsRequest (Response ChatAdministratorRights) where
runTG :: GetMyDefaultAdministratorRightsRequest
-> BotM (Response ChatAdministratorRights)
runTG = ClientM (Response ChatAdministratorRights)
-> BotM (Response ChatAdministratorRights)
forall a b. RunTG a b => a -> BotM b
runTG (ClientM (Response ChatAdministratorRights)
-> BotM (Response ChatAdministratorRights))
-> (GetMyDefaultAdministratorRightsRequest
-> ClientM (Response ChatAdministratorRights))
-> GetMyDefaultAdministratorRightsRequest
-> BotM (Response ChatAdministratorRights)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. GetMyDefaultAdministratorRightsRequest
-> ClientM (Response ChatAdministratorRights)
getMyDefaultAdministratorRights
instance RunTG GetMyDescriptionRequest (Response BotDescription) where
runTG :: GetMyDescriptionRequest -> BotM (Response BotDescription)
runTG = ClientM (Response BotDescription) -> BotM (Response BotDescription)
forall a b. RunTG a b => a -> BotM b
runTG (ClientM (Response BotDescription)
-> BotM (Response BotDescription))
-> (GetMyDescriptionRequest -> ClientM (Response BotDescription))
-> GetMyDescriptionRequest
-> BotM (Response BotDescription)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. GetMyDescriptionRequest -> ClientM (Response BotDescription)
getMyDescription
instance RunTG GetMyShortDescriptionRequest (Response BotShortDescription) where
runTG :: GetMyShortDescriptionRequest -> BotM (Response BotShortDescription)
runTG = ClientM (Response BotShortDescription)
-> BotM (Response BotShortDescription)
forall a b. RunTG a b => a -> BotM b
runTG (ClientM (Response BotShortDescription)
-> BotM (Response BotShortDescription))
-> (GetMyShortDescriptionRequest
-> ClientM (Response BotShortDescription))
-> GetMyShortDescriptionRequest
-> BotM (Response BotShortDescription)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. GetMyShortDescriptionRequest
-> ClientM (Response BotShortDescription)
getMyShortDescription
instance RunTG BanChatMemberRequest (Response Bool) where
runTG :: BanChatMemberRequest -> BotM (Response Bool)
runTG = ClientM (Response Bool) -> BotM (Response Bool)
forall a b. RunTG a b => a -> BotM b
runTG (ClientM (Response Bool) -> BotM (Response Bool))
-> (BanChatMemberRequest -> ClientM (Response Bool))
-> BanChatMemberRequest
-> BotM (Response Bool)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. BanChatMemberRequest -> ClientM (Response Bool)
banChatMember
instance RunTG GetChatMenuButtonRequest (Response MenuButton) where
runTG :: GetChatMenuButtonRequest -> BotM (Response MenuButton)
runTG = ClientM (Response MenuButton) -> BotM (Response MenuButton)
forall a b. RunTG a b => a -> BotM b
runTG (ClientM (Response MenuButton) -> BotM (Response MenuButton))
-> (GetChatMenuButtonRequest -> ClientM (Response MenuButton))
-> GetChatMenuButtonRequest
-> BotM (Response MenuButton)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. GetChatMenuButtonRequest -> ClientM (Response MenuButton)
getChatMenuButton
instance RunTG SendPollRequest (Response Message) where
runTG :: SendPollRequest -> BotM (Response Message)
runTG = ClientM (Response Message) -> BotM (Response Message)
forall a b. RunTG a b => a -> BotM b
runTG (ClientM (Response Message) -> BotM (Response Message))
-> (SendPollRequest -> ClientM (Response Message))
-> SendPollRequest
-> BotM (Response Message)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. SendPollRequest -> ClientM (Response Message)
sendPoll
instance RunTG GetMyCommandsRequest (Response [BotCommand]) where
runTG :: GetMyCommandsRequest -> BotM (Response [BotCommand])
runTG = ClientM (Response [BotCommand]) -> BotM (Response [BotCommand])
forall a b. RunTG a b => a -> BotM b
runTG (ClientM (Response [BotCommand]) -> BotM (Response [BotCommand]))
-> (GetMyCommandsRequest -> ClientM (Response [BotCommand]))
-> GetMyCommandsRequest
-> BotM (Response [BotCommand])
forall b c a. (b -> c) -> (a -> b) -> a -> c
. GetMyCommandsRequest -> ClientM (Response [BotCommand])
getMyCommands
instance RunTG SendVenueRequest (Response Message) where
runTG :: SendVenueRequest -> BotM (Response Message)
runTG = ClientM (Response Message) -> BotM (Response Message)
forall a b. RunTG a b => a -> BotM b
runTG (ClientM (Response Message) -> BotM (Response Message))
-> (SendVenueRequest -> ClientM (Response Message))
-> SendVenueRequest
-> BotM (Response Message)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. SendVenueRequest -> ClientM (Response Message)
sendVenue
instance RunTG SendMediaGroupRequest (Response [Message]) where
runTG :: SendMediaGroupRequest -> BotM (Response [Message])
runTG = ClientM (Response [Message]) -> BotM (Response [Message])
forall a b. RunTG a b => a -> BotM b
runTG (ClientM (Response [Message]) -> BotM (Response [Message]))
-> (SendMediaGroupRequest -> ClientM (Response [Message]))
-> SendMediaGroupRequest
-> BotM (Response [Message])
forall b c a. (b -> c) -> (a -> b) -> a -> c
. SendMediaGroupRequest -> ClientM (Response [Message])
sendMediaGroup
instance RunTG SetChatAdministratorCustomTitleRequest (Response Bool) where
runTG :: SetChatAdministratorCustomTitleRequest -> BotM (Response Bool)
runTG = ClientM (Response Bool) -> BotM (Response Bool)
forall a b. RunTG a b => a -> BotM b
runTG (ClientM (Response Bool) -> BotM (Response Bool))
-> (SetChatAdministratorCustomTitleRequest
-> ClientM (Response Bool))
-> SetChatAdministratorCustomTitleRequest
-> BotM (Response Bool)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. SetChatAdministratorCustomTitleRequest -> ClientM (Response Bool)
setChatAdministratorCustomTitle
instance RunTG SendVideoNoteRequest (Response Message) where
runTG :: SendVideoNoteRequest -> BotM (Response Message)
runTG = ClientM (Response Message) -> BotM (Response Message)
forall a b. RunTG a b => a -> BotM b
runTG (ClientM (Response Message) -> BotM (Response Message))
-> (SendVideoNoteRequest -> ClientM (Response Message))
-> SendVideoNoteRequest
-> BotM (Response Message)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. SendVideoNoteRequest -> ClientM (Response Message)
sendVideoNote
instance RunTG SendContactRequest (Response Message) where
runTG :: SendContactRequest -> BotM (Response Message)
runTG = ClientM (Response Message) -> BotM (Response Message)
forall a b. RunTG a b => a -> BotM b
runTG (ClientM (Response Message) -> BotM (Response Message))
-> (SendContactRequest -> ClientM (Response Message))
-> SendContactRequest
-> BotM (Response Message)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. SendContactRequest -> ClientM (Response Message)
sendContact
instance RunTG GetUserProfilePhotosRequest (Response UserProfilePhotos) where
runTG :: GetUserProfilePhotosRequest -> BotM (Response UserProfilePhotos)
runTG = ClientM (Response UserProfilePhotos)
-> BotM (Response UserProfilePhotos)
forall a b. RunTG a b => a -> BotM b
runTG (ClientM (Response UserProfilePhotos)
-> BotM (Response UserProfilePhotos))
-> (GetUserProfilePhotosRequest
-> ClientM (Response UserProfilePhotos))
-> GetUserProfilePhotosRequest
-> BotM (Response UserProfilePhotos)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. GetUserProfilePhotosRequest -> ClientM (Response UserProfilePhotos)
getUserProfilePhotos