-- Hoogle documentation, generated by Haddock -- See Hoogle, http://www.haskell.org/hoogle/ -- | Servant bindings to the Telegram bot API -- -- Please see the README on GitHub at -- https://github.com/poscat0x04/telegram-raw-api#readme @package telegram-raw-api @version 0.3.0 module Web.Telegram.API.Actions.Data data Kick Kick :: ChatId -> Int -> Maybe POSIXTime -> Kick [$sel:chatId:Kick] :: Kick -> ChatId [$sel:userId:Kick] :: Kick -> Int [$sel:untilDate:Kick] :: Kick -> Maybe POSIXTime data Unban Unban :: ChatId -> Int -> Unban [$sel:chatId:Unban] :: Unban -> ChatId [$sel:userId:Unban] :: Unban -> Int data Restriction Restriction :: ChatId -> Int -> ChatPermissions -> Maybe POSIXTime -> Restriction [$sel:chatId:Restriction] :: Restriction -> ChatId [$sel:userId:Restriction] :: Restriction -> Int [$sel:permissions:Restriction] :: Restriction -> ChatPermissions [$sel:untilDate:Restriction] :: Restriction -> Maybe POSIXTime data Promotion Promotion :: ChatId -> Int -> Maybe Bool -> Maybe Bool -> Maybe Bool -> Maybe Bool -> Maybe Bool -> Maybe Bool -> Maybe Bool -> Maybe Bool -> Promotion [$sel:chatId:Promotion] :: Promotion -> ChatId [$sel:userId:Promotion] :: Promotion -> Int [$sel:canChangeInfo:Promotion] :: Promotion -> Maybe Bool [$sel:canPostMessages:Promotion] :: Promotion -> Maybe Bool [$sel:canEditMessages:Promotion] :: Promotion -> Maybe Bool [$sel:canDeleteMessages:Promotion] :: Promotion -> Maybe Bool [$sel:canInviteUsers:Promotion] :: Promotion -> Maybe Bool [$sel:canRestrictMembers:Promotion] :: Promotion -> Maybe Bool [$sel:canPinMessages:Promotion] :: Promotion -> Maybe Bool [$sel:canPromoteMembers:Promotion] :: Promotion -> Maybe Bool data InlineQueryAnswer InlineQueryAnswer :: Text -> [InlineQueryResult] -> Maybe Int -> Maybe Bool -> Maybe Text -> Maybe Text -> Maybe Text -> InlineQueryAnswer [$sel:inlineQueryId:InlineQueryAnswer] :: InlineQueryAnswer -> Text [$sel:results:InlineQueryAnswer] :: InlineQueryAnswer -> [InlineQueryResult] [$sel:cacheTime:InlineQueryAnswer] :: InlineQueryAnswer -> Maybe Int [$sel:isPersonal:InlineQueryAnswer] :: InlineQueryAnswer -> Maybe Bool [$sel:nextOffset:InlineQueryAnswer] :: InlineQueryAnswer -> Maybe Text [$sel:switchPmText:InlineQueryAnswer] :: InlineQueryAnswer -> Maybe Text [$sel:switchPmParameter:InlineQueryAnswer] :: InlineQueryAnswer -> Maybe Text data CallbackQueryAnswer CQAns :: Text -> Maybe Text -> Maybe Bool -> Maybe Text -> Maybe Int -> CallbackQueryAnswer [$sel:callbackQueryId:CQAns] :: CallbackQueryAnswer -> Text [$sel:text:CQAns] :: CallbackQueryAnswer -> Maybe Text [$sel:showAlert:CQAns] :: CallbackQueryAnswer -> Maybe Bool [$sel:url:CQAns] :: CallbackQueryAnswer -> Maybe Text [$sel:cacheTime:CQAns] :: CallbackQueryAnswer -> Maybe Int newtype CommandSet CommandSet :: [BotCommand] -> CommandSet [$sel:commands:CommandSet] :: CommandSet -> [BotCommand] instance Data.Aeson.Types.FromJSON.FromJSON Web.Telegram.API.Actions.Data.CommandSet instance Data.Aeson.Types.ToJSON.ToJSON Web.Telegram.API.Actions.Data.CommandSet instance Web.Telegram.Types.Internal.Utils.Default.Default Web.Telegram.API.Actions.Data.CommandSet instance GHC.Generics.Generic Web.Telegram.API.Actions.Data.CommandSet instance GHC.Classes.Eq Web.Telegram.API.Actions.Data.CommandSet instance GHC.Show.Show Web.Telegram.API.Actions.Data.CommandSet instance Data.Aeson.Types.FromJSON.FromJSON Web.Telegram.API.Actions.Data.CallbackQueryAnswer instance Data.Aeson.Types.ToJSON.ToJSON Web.Telegram.API.Actions.Data.CallbackQueryAnswer instance Web.Telegram.Types.Internal.Utils.Default.Default Web.Telegram.API.Actions.Data.CallbackQueryAnswer instance GHC.Generics.Generic Web.Telegram.API.Actions.Data.CallbackQueryAnswer instance GHC.Classes.Eq Web.Telegram.API.Actions.Data.CallbackQueryAnswer instance GHC.Show.Show Web.Telegram.API.Actions.Data.CallbackQueryAnswer instance Data.Aeson.Types.FromJSON.FromJSON Web.Telegram.API.Actions.Data.InlineQueryAnswer instance Data.Aeson.Types.ToJSON.ToJSON Web.Telegram.API.Actions.Data.InlineQueryAnswer instance Web.Telegram.Types.Internal.Utils.Default.Default Web.Telegram.API.Actions.Data.InlineQueryAnswer instance GHC.Generics.Generic Web.Telegram.API.Actions.Data.InlineQueryAnswer instance GHC.Classes.Eq Web.Telegram.API.Actions.Data.InlineQueryAnswer instance GHC.Show.Show Web.Telegram.API.Actions.Data.InlineQueryAnswer instance Data.Aeson.Types.ToJSON.ToJSON Web.Telegram.API.Actions.Data.Promotion instance Web.Telegram.Types.Internal.Utils.Default.Default Web.Telegram.API.Actions.Data.Promotion instance GHC.Generics.Generic Web.Telegram.API.Actions.Data.Promotion instance GHC.Classes.Eq Web.Telegram.API.Actions.Data.Promotion instance GHC.Show.Show Web.Telegram.API.Actions.Data.Promotion instance Data.Aeson.Types.ToJSON.ToJSON Web.Telegram.API.Actions.Data.Restriction instance Web.Telegram.Types.Internal.Utils.Default.Default Web.Telegram.API.Actions.Data.Restriction instance GHC.Generics.Generic Web.Telegram.API.Actions.Data.Restriction instance GHC.Classes.Eq Web.Telegram.API.Actions.Data.Restriction instance GHC.Show.Show Web.Telegram.API.Actions.Data.Restriction instance Data.Aeson.Types.ToJSON.ToJSON Web.Telegram.API.Actions.Data.Unban instance Web.Telegram.Types.Internal.Utils.Default.Default Web.Telegram.API.Actions.Data.Unban instance GHC.Generics.Generic Web.Telegram.API.Actions.Data.Unban instance GHC.Classes.Eq Web.Telegram.API.Actions.Data.Unban instance GHC.Show.Show Web.Telegram.API.Actions.Data.Unban instance Data.Aeson.Types.ToJSON.ToJSON Web.Telegram.API.Actions.Data.Kick instance Web.Telegram.Types.Internal.Utils.Default.Default Web.Telegram.API.Actions.Data.Kick instance GHC.Generics.Generic Web.Telegram.API.Actions.Data.Kick instance GHC.Classes.Eq Web.Telegram.API.Actions.Data.Kick instance GHC.Show.Show Web.Telegram.API.Actions.Data.Kick -- | Compound parameters module Web.Telegram.API.CompoundParam data CompoundParam (tag :: Type) (sym :: Symbol) (a :: Type) data CompoundParams (tag :: Type) (sym :: Symbol) (a :: Type) newtype Warp a Warp :: a -> Warp a instance (GHC.TypeLits.KnownSymbol sym, Web.Internal.HttpApiData.ToHttpApiData a, Servant.Client.Core.HasClient.HasClient m api, Servant.Multipart.ToMultipart tag a, Servant.Multipart.MultipartBackend tag) => Servant.Client.Core.HasClient.HasClient m (Web.Telegram.API.CompoundParam.CompoundParams tag sym a Servant.API.Sub.:> api) instance GHC.Base.Semigroup (Web.Telegram.API.CompoundParam.Fold (Servant.Multipart.MultipartData tag)) instance GHC.Base.Monoid (Web.Telegram.API.CompoundParam.Fold (Servant.Multipart.MultipartData tag)) instance Servant.Multipart.ToMultipart tag a => Servant.Multipart.ToMultipart tag (Web.Telegram.API.CompoundParam.Fold [a]) instance Web.Internal.HttpApiData.ToHttpApiData a => Web.Internal.HttpApiData.ToHttpApiData (Web.Telegram.API.CompoundParam.Warp [a]) instance (GHC.TypeLits.KnownSymbol sym, Web.Internal.HttpApiData.ToHttpApiData a, Servant.Client.Core.HasClient.HasClient m api, Servant.Multipart.ToMultipart tag a, Servant.Multipart.MultipartBackend tag) => Servant.Client.Core.HasClient.HasClient m (Web.Telegram.API.CompoundParam.CompoundParam tag sym a Servant.API.Sub.:> api) -- | Actions that the bot can perform module Web.Telegram.API.Actions type KickChatMember = Base :> "kickChatmember" :> ReqBody '[JSON] Kick :> Get '[JSON] (ReqResult Bool) data Kick type UnbanChatMember = Base :> "unbanChatMember" :> ReqBody '[JSON] Unban :> Get '[JSON] (ReqResult Bool) data Unban type RestrictChatMember = Base :> "restrictChatMember" :> ReqBody '[JSON] Restriction :> Get '[JSON] (ReqResult Bool) data Restriction type PromoteChatMember = Base :> "promoteChatMember" :> ReqBody '[JSON] Promotion :> Get '[JSON] (ReqResult Bool) data Promotion type SetChatAdministratorCustomTitle = Base :> "setChatAdministratorCustomTitle" :> QueryR "chat_id" ChatId :> QueryR "user_id" Int :> QueryParam "custom_title" Text :> Get '[JSON] (ReqResult Bool) type SetChatPermissions = Base :> "setChatPermissions" :> QueryR "chat_id" ChatId :> QueryR "permissions" ChatPermissions :> Get '[JSON] (ReqResult Bool) type ExportChatInviteLink = Base :> "exportChatInviteLink" :> QueryR "chat_id" ChatId :> Get '[JSON] (ReqResult Text) type SetChatPhoto = Base :> "setChatPhoto" :> QueryR "chat_id" ChatId :> CompoundParam Mem "photo" InputFile :> Get '[JSON] (ReqResult Bool) type DeleteChatPhoto = Base :> "deleteChatPhoto" :> QueryR "chat_id" ChatId :> Get '[JSON] (ReqResult Bool) type SetChatTitle = Base :> "setChatTitle" :> QueryR "chat_id" ChatId :> QueryR "title" Text :> Get '[JSON] (ReqResult Bool) type SetChatDescription = Base :> "setChatDescription" :> QueryR "chat_id" ChatId :> QueryParam "description" Text :> Get '[JSON] (ReqResult Bool) type PinChatMessage = Base :> "pinChatMessage" :> QueryR "chat_id" ChatId :> QueryR "message_id" Int :> QueryParam "disable_notification" Bool :> Get '[JSON] (ReqResult Bool) type UnpinChatMessage = Base :> "unpinChatMessage" :> QueryR "chat_id" ChatId :> Get '[JSON] (ReqResult Bool) type LeaveChat = Base :> "leaveChat" :> QueryR "chat_id" ChatId :> Get '[JSON] (ReqResult Bool) type SetChatStickerSet = Base :> "setChatStickerSet" :> QueryR "chat_id" ChatId :> QueryR "sticker_set_name" Text :> Get '[JSON] (ReqResult Bool) type DeleteChatStickerSet = Base :> "deleteChatStickerSet" :> QueryR "chat_id" ChatId :> Get '[JSON] (ReqResult Bool) type UploadStickerFileU = UploadStickerFile' (MultipartForm Mem PngSticker) type UploadStickerFile = UploadStickerFile' (QueryR "png_sticker" Text) type CreateNewStickerSetU = CreateNewStickerSet' (MultipartForm Mem PngSticker) type CreateNewStickerSet = CreateNewStickerSet' (QueryR "png_sticker" Text) type AddStickerToSetU = AddStickerToSet' (MultipartForm Mem PngSticker) type AddStickerToSet = AddStickerToSet' (QueryR "png_sticker" Text) type SetStickerPositionInSet = Base :> "setStickerPositionInSet" :> QueryR "sticker" Text :> QueryR "positon" Int :> Get '[JSON] (ReqResult Bool) type DeleteStickerFromSet = Base :> "deleteStickerFromSet" :> QueryR "sticker" Text :> Get '[JSON] (ReqResult Bool) type SetStickerSetThumbU = SetStickerSetThumb' (MultipartForm Mem PngSticker) type SetStickerSetThumb = SetStickerSetThumb' (QueryR "thumb" Text) type SetMyCommands = Base :> "setMyCommands" :> ReqBody '[JSON] CommandSet :> Get '[JSON] (ReqResult Bool) type AnswerInlineQuery = Base :> "answerInlineQuery" :> ReqBody '[JSON] InlineQueryAnswer :> Get '[JSON] (ReqResult Bool) data InlineQueryAnswer type AnswerCallbackQuery = Base :> "answerCallbackQuery" :> ReqBody '[JSON] CallbackQueryAnswer :> Get '[JSON] (ReqResult Bool) data CallbackQueryAnswer module Web.Telegram.API.Editing.Data data TextEdit TextE :: Maybe ChatId -> Maybe Int -> Maybe Text -> Text -> Maybe ParseMode -> Maybe Bool -> Maybe InlineKeyboardMarkup -> TextEdit [$sel:chatId:TextE] :: TextEdit -> Maybe ChatId [$sel:messageId:TextE] :: TextEdit -> Maybe Int [$sel:inlineMessageId:TextE] :: TextEdit -> Maybe Text [$sel:text:TextE] :: TextEdit -> Text [$sel:parseMode:TextE] :: TextEdit -> Maybe ParseMode [$sel:disalbeWebPagePreview:TextE] :: TextEdit -> Maybe Bool [$sel:replyMarkup:TextE] :: TextEdit -> Maybe InlineKeyboardMarkup data CaptionEdit CaptionE :: Maybe ChatId -> Maybe Int -> Maybe Text -> Maybe Text -> Maybe ParseMode -> Maybe InlineKeyboardMarkup -> CaptionEdit [$sel:chatId:CaptionE] :: CaptionEdit -> Maybe ChatId [$sel:messageId:CaptionE] :: CaptionEdit -> Maybe Int [$sel:inlineMessageId:CaptionE] :: CaptionEdit -> Maybe Text [$sel:caption:CaptionE] :: CaptionEdit -> Maybe Text [$sel:parseMode:CaptionE] :: CaptionEdit -> Maybe ParseMode [$sel:replyMarkup:CaptionE] :: CaptionEdit -> Maybe InlineKeyboardMarkup data MediaEdit MediaE :: Maybe ChatId -> Maybe Int -> Maybe Text -> InputMedia -> MediaEdit [$sel:chatId:MediaE] :: MediaEdit -> Maybe ChatId [$sel:messageId:MediaE] :: MediaEdit -> Maybe Int [$sel:inlineMessageId:MediaE] :: MediaEdit -> Maybe Text [$sel:media:MediaE] :: MediaEdit -> InputMedia data MarkupEdit MarkupEdit :: Maybe ChatId -> Maybe Int -> Maybe Text -> Maybe InlineKeyboardMarkup -> MarkupEdit [$sel:chatId:MarkupEdit] :: MarkupEdit -> Maybe ChatId [$sel:messageId:MarkupEdit] :: MarkupEdit -> Maybe Int [$sel:inlineMessageId:MarkupEdit] :: MarkupEdit -> Maybe Text [$sel:replyMarkup:MarkupEdit] :: MarkupEdit -> Maybe InlineKeyboardMarkup data PollStop PollStop :: ChatId -> Int -> Maybe InlineKeyboardMarkup -> PollStop [$sel:chatId:PollStop] :: PollStop -> ChatId [$sel:messageId:PollStop] :: PollStop -> Int [$sel:replyMarkup:PollStop] :: PollStop -> Maybe InlineKeyboardMarkup instance Data.Aeson.Types.ToJSON.ToJSON Web.Telegram.API.Editing.Data.PollStop instance Web.Telegram.Types.Internal.Utils.Default.Default Web.Telegram.API.Editing.Data.PollStop instance GHC.Generics.Generic Web.Telegram.API.Editing.Data.PollStop instance GHC.Classes.Eq Web.Telegram.API.Editing.Data.PollStop instance GHC.Show.Show Web.Telegram.API.Editing.Data.PollStop instance Data.Aeson.Types.ToJSON.ToJSON Web.Telegram.API.Editing.Data.MarkupEdit instance Web.Telegram.Types.Internal.Utils.Default.Default Web.Telegram.API.Editing.Data.MarkupEdit instance GHC.Generics.Generic Web.Telegram.API.Editing.Data.MarkupEdit instance GHC.Classes.Eq Web.Telegram.API.Editing.Data.MarkupEdit instance GHC.Show.Show Web.Telegram.API.Editing.Data.MarkupEdit instance Data.Aeson.Types.ToJSON.ToJSON Web.Telegram.API.Editing.Data.MediaEdit instance Web.Telegram.Types.Internal.Utils.Default.Default Web.Telegram.API.Editing.Data.MediaEdit instance GHC.Generics.Generic Web.Telegram.API.Editing.Data.MediaEdit instance GHC.Classes.Eq Web.Telegram.API.Editing.Data.MediaEdit instance GHC.Show.Show Web.Telegram.API.Editing.Data.MediaEdit instance Data.Aeson.Types.ToJSON.ToJSON Web.Telegram.API.Editing.Data.CaptionEdit instance Data.Aeson.Types.FromJSON.FromJSON Web.Telegram.API.Editing.Data.CaptionEdit instance Web.Telegram.Types.Internal.Utils.Default.Default Web.Telegram.API.Editing.Data.CaptionEdit instance GHC.Generics.Generic Web.Telegram.API.Editing.Data.CaptionEdit instance GHC.Classes.Eq Web.Telegram.API.Editing.Data.CaptionEdit instance GHC.Show.Show Web.Telegram.API.Editing.Data.CaptionEdit instance Data.Aeson.Types.ToJSON.ToJSON Web.Telegram.API.Editing.Data.TextEdit instance Data.Aeson.Types.FromJSON.FromJSON Web.Telegram.API.Editing.Data.TextEdit instance Web.Telegram.Types.Internal.Utils.Default.Default Web.Telegram.API.Editing.Data.TextEdit instance GHC.Generics.Generic Web.Telegram.API.Editing.Data.TextEdit instance GHC.Classes.Eq Web.Telegram.API.Editing.Data.TextEdit instance GHC.Show.Show Web.Telegram.API.Editing.Data.TextEdit module Web.Telegram.API.Editing type EditMessageText = Base :> "editMessageText" :> ReqBody '[JSON] TextEdit :> Res type EditMessageCaption = Base :> "editMessageCaption" :> CaptionEdit :> Res type EditMessageMedia = Base :> "editMessageMedia" :> QueryParam "chat_id" ChatId :> QueryParam "message_id" Int :> QueryParam "inline_message_id" Text :> CompoundParam Mem "media" InputMedia :> Res type EditMessageReplyMarkup = Base :> "editMessageReplyMarkup" :> ReqBody '[JSON] MarkupEdit :> Res type StopPoll = Base :> "stopPoll" :> ReqBody '[JSON] PollStop :> Get '[JSON] (ReqResult Poll) type DeleteMessage = Base :> "deleteMessage" :> QueryR "chat_id" ChatId :> QueryR "message_id" Int :> Get '[JSON] (ReqResult Bool) data TextEdit data CaptionEdit data MediaEdit data MarkupEdit data PollStop module Web.Telegram.API.Getting type GetMe = Base :> "getMe" :> Get '[JSON] (ReqResult User) type GetUserProfilePhotos = Base :> "getUserProfilePhotos" :> QueryR "user_id" Int :> QueryParam "offset" Int :> QueryParam "limit" Int :> Get '[JSON] (ReqResult UserProfilePhotos) type GetFile = Base :> "getFile" :> QueryR "file_id" Text :> Get '[JSON] (ReqResult File) type GetChat = Base :> "getChat" :> QueryR "chat_id" ChatId :> Get '[JSON] (ReqResult Chat) type GetChatAdministrators = Base :> "getChatAdministrators" :> QueryR "chat_id" ChatId :> Get '[JSON] (ReqResult [ChatMember]) type GetChatMembersCount = Base :> "getChatMembersCount" :> QueryR "chat_id" ChatId :> Get '[JSON] (ReqResult Int) type GetChatMember = Base :> "getChatMember" :> QueryR "chat_id" ChatId :> QueryR "user_id" Int :> Get '[JSON] (ReqResult ChatMember) type GetMyCommands = Base :> "getMyCommands" :> Get '[JSON] (ReqResult [BotCommand]) type GetStickerSet = Base :> "getStickerSet" :> QueryR "name" Text :> Get '[JSON] (ReqResult StickerSet) module Web.Telegram.API.Sending.Data data SMessage SMsg :: ChatId -> Text -> Maybe Bool -> Maybe ParseMode -> Maybe Bool -> Maybe Int -> Maybe ReplyMarkup -> SMessage [$sel:chatId:SMsg] :: SMessage -> ChatId [$sel:text:SMsg] :: SMessage -> Text [$sel:disableWebPagePreview:SMsg] :: SMessage -> Maybe Bool [$sel:parseMode:SMsg] :: SMessage -> Maybe ParseMode [$sel:disableNotification:SMsg] :: SMessage -> Maybe Bool [$sel:replyToMessageId:SMsg] :: SMessage -> Maybe Int [$sel:replyMarkup:SMsg] :: SMessage -> Maybe ReplyMarkup data FwdMessage FwdMsg :: ChatId -> ChatId -> Int -> Maybe Bool -> FwdMessage [$sel:chatId:FwdMsg] :: FwdMessage -> ChatId [$sel:fromChatId:FwdMsg] :: FwdMessage -> ChatId [$sel:messageId:FwdMsg] :: FwdMessage -> Int [$sel:disableNotification:FwdMsg] :: FwdMessage -> Maybe Bool data PhotoMessage a PhotoMsg :: ChatId -> a -> Maybe Text -> Maybe Bool -> Maybe ParseMode -> Maybe Bool -> Maybe Int -> Maybe ReplyMarkup -> PhotoMessage a [$sel:chatId:PhotoMsg] :: PhotoMessage a -> ChatId [$sel:photo:PhotoMsg] :: PhotoMessage a -> a [$sel:caption:PhotoMsg] :: PhotoMessage a -> Maybe Text [$sel:disableWebPagePreview:PhotoMsg] :: PhotoMessage a -> Maybe Bool [$sel:parseMode:PhotoMsg] :: PhotoMessage a -> Maybe ParseMode [$sel:disableNotification:PhotoMsg] :: PhotoMessage a -> Maybe Bool [$sel:replyToMessageId:PhotoMsg] :: PhotoMessage a -> Maybe Int [$sel:replyMarkup:PhotoMsg] :: PhotoMessage a -> Maybe ReplyMarkup data AudioMessage a AudioMsg :: ChatId -> a -> Maybe Text -> Maybe Int -> Maybe Text -> Maybe Text -> Maybe ParseMode -> Maybe Bool -> Maybe Int -> Maybe ReplyMarkup -> AudioMessage a [$sel:chatId:AudioMsg] :: AudioMessage a -> ChatId [$sel:audio:AudioMsg] :: AudioMessage a -> a [$sel:caption:AudioMsg] :: AudioMessage a -> Maybe Text [$sel:duration:AudioMsg] :: AudioMessage a -> Maybe Int [$sel:performer:AudioMsg] :: AudioMessage a -> Maybe Text [$sel:title:AudioMsg] :: AudioMessage a -> Maybe Text [$sel:parseMode:AudioMsg] :: AudioMessage a -> Maybe ParseMode [$sel:disableNotification:AudioMsg] :: AudioMessage a -> Maybe Bool [$sel:replyToMessageId:AudioMsg] :: AudioMessage a -> Maybe Int [$sel:replyMarkup:AudioMsg] :: AudioMessage a -> Maybe ReplyMarkup data DocMessage a DocMsg :: ChatId -> a -> Maybe Text -> Maybe ParseMode -> Maybe Bool -> Maybe Int -> Maybe ReplyMarkup -> DocMessage a [$sel:chatId:DocMsg] :: DocMessage a -> ChatId [$sel:document:DocMsg] :: DocMessage a -> a [$sel:caption:DocMsg] :: DocMessage a -> Maybe Text [$sel:parseMode:DocMsg] :: DocMessage a -> Maybe ParseMode [$sel:disableNotification:DocMsg] :: DocMessage a -> Maybe Bool [$sel:replyToMessageId:DocMsg] :: DocMessage a -> Maybe Int [$sel:replyMarkup:DocMsg] :: DocMessage a -> Maybe ReplyMarkup data VidMessage a VidMsg :: ChatId -> a -> Maybe Int -> Maybe Int -> Maybe Int -> Maybe Text -> Maybe Bool -> Maybe ParseMode -> Maybe Bool -> Maybe Int -> Maybe ReplyMarkup -> VidMessage a [$sel:chatId:VidMsg] :: VidMessage a -> ChatId [$sel:video:VidMsg] :: VidMessage a -> a [$sel:duration:VidMsg] :: VidMessage a -> Maybe Int [$sel:width:VidMsg] :: VidMessage a -> Maybe Int [$sel:height:VidMsg] :: VidMessage a -> Maybe Int [$sel:caption:VidMsg] :: VidMessage a -> Maybe Text [$sel:supportsStreaming:VidMsg] :: VidMessage a -> Maybe Bool [$sel:parseMode:VidMsg] :: VidMessage a -> Maybe ParseMode [$sel:disableNotification:VidMsg] :: VidMessage a -> Maybe Bool [$sel:replyToMessageId:VidMsg] :: VidMessage a -> Maybe Int [$sel:replyMarkup:VidMsg] :: VidMessage a -> Maybe ReplyMarkup data AnimationMessage a AniMsg :: ChatId -> a -> Maybe Int -> Maybe Int -> Maybe Int -> Maybe Text -> Maybe ParseMode -> Maybe Bool -> Maybe Int -> Maybe ReplyMarkup -> AnimationMessage a [$sel:chatId:AniMsg] :: AnimationMessage a -> ChatId [$sel:animation:AniMsg] :: AnimationMessage a -> a [$sel:duration:AniMsg] :: AnimationMessage a -> Maybe Int [$sel:width:AniMsg] :: AnimationMessage a -> Maybe Int [$sel:height:AniMsg] :: AnimationMessage a -> Maybe Int [$sel:caption:AniMsg] :: AnimationMessage a -> Maybe Text [$sel:parseMode:AniMsg] :: AnimationMessage a -> Maybe ParseMode [$sel:disableNotification:AniMsg] :: AnimationMessage a -> Maybe Bool [$sel:replyToMessageId:AniMsg] :: AnimationMessage a -> Maybe Int [$sel:replyMarkup:AniMsg] :: AnimationMessage a -> Maybe ReplyMarkup data VoiceMessage a VoiceMsg :: ChatId -> a -> Maybe Int -> Maybe Text -> Maybe ParseMode -> Maybe Bool -> Maybe Int -> Maybe ReplyMarkup -> VoiceMessage a [$sel:chatId:VoiceMsg] :: VoiceMessage a -> ChatId [$sel:voice:VoiceMsg] :: VoiceMessage a -> a [$sel:duration:VoiceMsg] :: VoiceMessage a -> Maybe Int [$sel:caption:VoiceMsg] :: VoiceMessage a -> Maybe Text [$sel:parseMode:VoiceMsg] :: VoiceMessage a -> Maybe ParseMode [$sel:disableNotification:VoiceMsg] :: VoiceMessage a -> Maybe Bool [$sel:replyToMessageId:VoiceMsg] :: VoiceMessage a -> Maybe Int [$sel:replyMarkup:VoiceMsg] :: VoiceMessage a -> Maybe ReplyMarkup data VNMessage a VNMsg :: ChatId -> Text -> Maybe Int -> Maybe Int -> Maybe ParseMode -> Maybe Bool -> Maybe Int -> Maybe ReplyMarkup -> VNMessage a [$sel:chatId:VNMsg] :: VNMessage a -> ChatId [$sel:video_note:VNMsg] :: VNMessage a -> Text [$sel:duration:VNMsg] :: VNMessage a -> Maybe Int [$sel:length:VNMsg] :: VNMessage a -> Maybe Int [$sel:parseMode:VNMsg] :: VNMessage a -> Maybe ParseMode [$sel:disableNotification:VNMsg] :: VNMessage a -> Maybe Bool [$sel:replyToMessageId:VNMsg] :: VNMessage a -> Maybe Int [$sel:replyMarkup:VNMsg] :: VNMessage a -> Maybe ReplyMarkup data LocationMessage LocationMsg :: ChatId -> Float -> Float -> Maybe Int -> Maybe Bool -> Maybe Int -> Maybe ReplyMarkup -> LocationMessage [$sel:chatId:LocationMsg] :: LocationMessage -> ChatId [$sel:latitude:LocationMsg] :: LocationMessage -> Float [$sel:longitude:LocationMsg] :: LocationMessage -> Float [$sel:livePeriod:LocationMsg] :: LocationMessage -> Maybe Int [$sel:disableNotification:LocationMsg] :: LocationMessage -> Maybe Bool [$sel:replyToMessageId:LocationMsg] :: LocationMessage -> Maybe Int [$sel:replyMarkup:LocationMsg] :: LocationMessage -> Maybe ReplyMarkup data LocationEdit LocationEdit :: Maybe ChatId -> Maybe Int -> Maybe Text -> Float -> Float -> Maybe ReplyMarkup -> LocationEdit [$sel:chatId:LocationEdit] :: LocationEdit -> Maybe ChatId [$sel:messageId:LocationEdit] :: LocationEdit -> Maybe Int [$sel:inlineMessageId:LocationEdit] :: LocationEdit -> Maybe Text [$sel:latitude:LocationEdit] :: LocationEdit -> Float [$sel:longitude:LocationEdit] :: LocationEdit -> Float [$sel:replyMarkup:LocationEdit] :: LocationEdit -> Maybe ReplyMarkup data LocationStop LocationStop :: Maybe ChatId -> Maybe Int -> Maybe Text -> Maybe ReplyMarkup -> LocationStop [$sel:chatId:LocationStop] :: LocationStop -> Maybe ChatId [$sel:messageId:LocationStop] :: LocationStop -> Maybe Int [$sel:inlineMessageId:LocationStop] :: LocationStop -> Maybe Text [$sel:replyMarkup:LocationStop] :: LocationStop -> Maybe ReplyMarkup data VenueMessage VenueMessage :: ChatId -> Float -> Float -> Text -> Text -> Maybe Text -> Maybe Text -> Maybe Bool -> Maybe Int -> Maybe ReplyMarkup -> VenueMessage [$sel:chatId:VenueMessage] :: VenueMessage -> ChatId [$sel:latitude:VenueMessage] :: VenueMessage -> Float [$sel:longitude:VenueMessage] :: VenueMessage -> Float [$sel:title:VenueMessage] :: VenueMessage -> Text [$sel:address:VenueMessage] :: VenueMessage -> Text [$sel:foursquareId:VenueMessage] :: VenueMessage -> Maybe Text [$sel:foursquareType:VenueMessage] :: VenueMessage -> Maybe Text [$sel:disableNotification:VenueMessage] :: VenueMessage -> Maybe Bool [$sel:replyToMessageId:VenueMessage] :: VenueMessage -> Maybe Int [$sel:replyMarkup:VenueMessage] :: VenueMessage -> Maybe ReplyMarkup data ContactMessage ContactMessage :: ChatId -> Text -> Text -> Maybe Text -> Maybe Text -> Maybe Bool -> Maybe Int -> Maybe ReplyMarkup -> ContactMessage [$sel:chatId:ContactMessage] :: ContactMessage -> ChatId [$sel:phoneNumber:ContactMessage] :: ContactMessage -> Text [$sel:firstName:ContactMessage] :: ContactMessage -> Text [$sel:lastName:ContactMessage] :: ContactMessage -> Maybe Text [$sel:vcard:ContactMessage] :: ContactMessage -> Maybe Text [$sel:disableNotification:ContactMessage] :: ContactMessage -> Maybe Bool [$sel:replyToMessageId:ContactMessage] :: ContactMessage -> Maybe Int [$sel:replyMarkup:ContactMessage] :: ContactMessage -> Maybe ReplyMarkup data PollMessage PollMsg :: ChatId -> Text -> [Text] -> Bool -> Maybe PollType -> Maybe Bool -> Maybe Int -> Maybe Bool -> Maybe Bool -> Maybe Int -> Maybe ReplyMarkup -> PollMessage [$sel:chatid:PollMsg] :: PollMessage -> ChatId [$sel:question:PollMsg] :: PollMessage -> Text [$sel:options:PollMsg] :: PollMessage -> [Text] [$sel:isAnonymous:PollMsg] :: PollMessage -> Bool [$sel:pollType:PollMsg] :: PollMessage -> Maybe PollType [$sel:allowsMultipleAnswers:PollMsg] :: PollMessage -> Maybe Bool [$sel:correctOptionId:PollMsg] :: PollMessage -> Maybe Int [$sel:isClosed:PollMsg] :: PollMessage -> Maybe Bool [$sel:disableNotification:PollMsg] :: PollMessage -> Maybe Bool [$sel:replyToMessageId:PollMsg] :: PollMessage -> Maybe Int [$sel:replyMarkup:PollMsg] :: PollMessage -> Maybe ReplyMarkup data DiceMessage DiceMessage :: ChatId -> Maybe Bool -> Maybe Int -> Maybe ReplyMarkup -> DiceMessage [$sel:chatId:DiceMessage] :: DiceMessage -> ChatId [$sel:disableNotification:DiceMessage] :: DiceMessage -> Maybe Bool [$sel:replyToMessageId:DiceMessage] :: DiceMessage -> Maybe Int [$sel:replyMarkup:DiceMessage] :: DiceMessage -> Maybe ReplyMarkup data ChatAction ChatAction :: ChatId -> Action -> ChatAction [$sel:chatId:ChatAction] :: ChatAction -> ChatId [$sel:action:ChatAction] :: ChatAction -> Action data StickerMessage StickerMessage :: ChatId -> Text -> Maybe Bool -> Maybe Int -> Maybe ReplyMarkup -> StickerMessage [$sel:chatId:StickerMessage] :: StickerMessage -> ChatId [$sel:sticker:StickerMessage] :: StickerMessage -> Text [$sel:disableNotification:StickerMessage] :: StickerMessage -> Maybe Bool [$sel:replyToMessageId:StickerMessage] :: StickerMessage -> Maybe Int [$sel:replyMarkup:StickerMessage] :: StickerMessage -> Maybe ReplyMarkup instance Data.Aeson.Types.ToJSON.ToJSON Web.Telegram.API.Sending.Data.StickerMessage instance Web.Telegram.Types.Internal.Utils.Default.Default Web.Telegram.API.Sending.Data.StickerMessage instance GHC.Generics.Generic Web.Telegram.API.Sending.Data.StickerMessage instance GHC.Classes.Eq Web.Telegram.API.Sending.Data.StickerMessage instance GHC.Show.Show Web.Telegram.API.Sending.Data.StickerMessage instance Data.Aeson.Types.ToJSON.ToJSON Web.Telegram.API.Sending.Data.ChatAction instance Web.Telegram.Types.Internal.Utils.Default.Default Web.Telegram.API.Sending.Data.ChatAction instance GHC.Generics.Generic Web.Telegram.API.Sending.Data.ChatAction instance GHC.Classes.Eq Web.Telegram.API.Sending.Data.ChatAction instance GHC.Show.Show Web.Telegram.API.Sending.Data.ChatAction instance Data.Aeson.Types.ToJSON.ToJSON Web.Telegram.API.Sending.Data.DiceMessage instance Web.Telegram.Types.Internal.Utils.Default.Default Web.Telegram.API.Sending.Data.DiceMessage instance GHC.Generics.Generic Web.Telegram.API.Sending.Data.DiceMessage instance GHC.Classes.Eq Web.Telegram.API.Sending.Data.DiceMessage instance GHC.Show.Show Web.Telegram.API.Sending.Data.DiceMessage instance Data.Aeson.Types.ToJSON.ToJSON Web.Telegram.API.Sending.Data.PollMessage instance Web.Telegram.Types.Internal.Utils.Default.Default Web.Telegram.API.Sending.Data.PollMessage instance GHC.Generics.Generic Web.Telegram.API.Sending.Data.PollMessage instance GHC.Classes.Eq Web.Telegram.API.Sending.Data.PollMessage instance GHC.Show.Show Web.Telegram.API.Sending.Data.PollMessage instance Data.Aeson.Types.ToJSON.ToJSON Web.Telegram.API.Sending.Data.ContactMessage instance Web.Telegram.Types.Internal.Utils.Default.Default Web.Telegram.API.Sending.Data.ContactMessage instance GHC.Generics.Generic Web.Telegram.API.Sending.Data.ContactMessage instance GHC.Classes.Eq Web.Telegram.API.Sending.Data.ContactMessage instance GHC.Show.Show Web.Telegram.API.Sending.Data.ContactMessage instance Data.Aeson.Types.ToJSON.ToJSON Web.Telegram.API.Sending.Data.VenueMessage instance Web.Telegram.Types.Internal.Utils.Default.Default Web.Telegram.API.Sending.Data.VenueMessage instance GHC.Generics.Generic Web.Telegram.API.Sending.Data.VenueMessage instance GHC.Classes.Eq Web.Telegram.API.Sending.Data.VenueMessage instance GHC.Show.Show Web.Telegram.API.Sending.Data.VenueMessage instance Data.Aeson.Types.ToJSON.ToJSON Web.Telegram.API.Sending.Data.LocationStop instance Web.Telegram.Types.Internal.Utils.Default.Default Web.Telegram.API.Sending.Data.LocationStop instance GHC.Generics.Generic Web.Telegram.API.Sending.Data.LocationStop instance GHC.Classes.Eq Web.Telegram.API.Sending.Data.LocationStop instance GHC.Show.Show Web.Telegram.API.Sending.Data.LocationStop instance Data.Aeson.Types.ToJSON.ToJSON Web.Telegram.API.Sending.Data.LocationEdit instance Web.Telegram.Types.Internal.Utils.Default.Default Web.Telegram.API.Sending.Data.LocationEdit instance GHC.Generics.Generic Web.Telegram.API.Sending.Data.LocationEdit instance GHC.Classes.Eq Web.Telegram.API.Sending.Data.LocationEdit instance GHC.Show.Show Web.Telegram.API.Sending.Data.LocationEdit instance Data.Aeson.Types.ToJSON.ToJSON Web.Telegram.API.Sending.Data.LocationMessage instance Web.Telegram.Types.Internal.Utils.Default.Default Web.Telegram.API.Sending.Data.LocationMessage instance GHC.Generics.Generic Web.Telegram.API.Sending.Data.LocationMessage instance GHC.Classes.Eq Web.Telegram.API.Sending.Data.LocationMessage instance GHC.Show.Show Web.Telegram.API.Sending.Data.LocationMessage instance Data.Aeson.Types.ToJSON.ToJSON (Web.Telegram.API.Sending.Data.VNMessage a) instance Web.Telegram.Types.Internal.Utils.Default.Default (Web.Telegram.API.Sending.Data.VNMessage a) instance GHC.Generics.Generic (Web.Telegram.API.Sending.Data.VNMessage a) instance GHC.Classes.Eq (Web.Telegram.API.Sending.Data.VNMessage a) instance GHC.Show.Show (Web.Telegram.API.Sending.Data.VNMessage a) instance Data.Aeson.Types.ToJSON.ToJSON a => Data.Aeson.Types.ToJSON.ToJSON (Web.Telegram.API.Sending.Data.VoiceMessage a) instance Web.Telegram.Types.Internal.Utils.Default.Default a => Web.Telegram.Types.Internal.Utils.Default.Default (Web.Telegram.API.Sending.Data.VoiceMessage a) instance GHC.Generics.Generic (Web.Telegram.API.Sending.Data.VoiceMessage a) instance GHC.Classes.Eq a => GHC.Classes.Eq (Web.Telegram.API.Sending.Data.VoiceMessage a) instance GHC.Show.Show a => GHC.Show.Show (Web.Telegram.API.Sending.Data.VoiceMessage a) instance Data.Aeson.Types.ToJSON.ToJSON a => Data.Aeson.Types.ToJSON.ToJSON (Web.Telegram.API.Sending.Data.AnimationMessage a) instance Web.Telegram.Types.Internal.Utils.Default.Default a => Web.Telegram.Types.Internal.Utils.Default.Default (Web.Telegram.API.Sending.Data.AnimationMessage a) instance GHC.Generics.Generic (Web.Telegram.API.Sending.Data.AnimationMessage a) instance GHC.Classes.Eq a => GHC.Classes.Eq (Web.Telegram.API.Sending.Data.AnimationMessage a) instance GHC.Show.Show a => GHC.Show.Show (Web.Telegram.API.Sending.Data.AnimationMessage a) instance Data.Aeson.Types.ToJSON.ToJSON a => Data.Aeson.Types.ToJSON.ToJSON (Web.Telegram.API.Sending.Data.VidMessage a) instance Web.Telegram.Types.Internal.Utils.Default.Default a => Web.Telegram.Types.Internal.Utils.Default.Default (Web.Telegram.API.Sending.Data.VidMessage a) instance GHC.Generics.Generic (Web.Telegram.API.Sending.Data.VidMessage a) instance GHC.Classes.Eq a => GHC.Classes.Eq (Web.Telegram.API.Sending.Data.VidMessage a) instance GHC.Show.Show a => GHC.Show.Show (Web.Telegram.API.Sending.Data.VidMessage a) instance Data.Aeson.Types.ToJSON.ToJSON a => Data.Aeson.Types.ToJSON.ToJSON (Web.Telegram.API.Sending.Data.DocMessage a) instance Web.Telegram.Types.Internal.Utils.Default.Default a => Web.Telegram.Types.Internal.Utils.Default.Default (Web.Telegram.API.Sending.Data.DocMessage a) instance GHC.Generics.Generic (Web.Telegram.API.Sending.Data.DocMessage a) instance GHC.Classes.Eq a => GHC.Classes.Eq (Web.Telegram.API.Sending.Data.DocMessage a) instance GHC.Show.Show a => GHC.Show.Show (Web.Telegram.API.Sending.Data.DocMessage a) instance Data.Aeson.Types.ToJSON.ToJSON a => Data.Aeson.Types.ToJSON.ToJSON (Web.Telegram.API.Sending.Data.AudioMessage a) instance Web.Telegram.Types.Internal.Utils.Default.Default a => Web.Telegram.Types.Internal.Utils.Default.Default (Web.Telegram.API.Sending.Data.AudioMessage a) instance GHC.Generics.Generic (Web.Telegram.API.Sending.Data.AudioMessage a) instance GHC.Classes.Eq a => GHC.Classes.Eq (Web.Telegram.API.Sending.Data.AudioMessage a) instance GHC.Show.Show a => GHC.Show.Show (Web.Telegram.API.Sending.Data.AudioMessage a) instance Data.Aeson.Types.ToJSON.ToJSON a => Data.Aeson.Types.ToJSON.ToJSON (Web.Telegram.API.Sending.Data.PhotoMessage a) instance Web.Telegram.Types.Internal.Utils.Default.Default a => Web.Telegram.Types.Internal.Utils.Default.Default (Web.Telegram.API.Sending.Data.PhotoMessage a) instance GHC.Generics.Generic (Web.Telegram.API.Sending.Data.PhotoMessage a) instance GHC.Classes.Eq a => GHC.Classes.Eq (Web.Telegram.API.Sending.Data.PhotoMessage a) instance GHC.Show.Show a => GHC.Show.Show (Web.Telegram.API.Sending.Data.PhotoMessage a) instance Data.Aeson.Types.ToJSON.ToJSON Web.Telegram.API.Sending.Data.FwdMessage instance Data.Aeson.Types.FromJSON.FromJSON Web.Telegram.API.Sending.Data.FwdMessage instance Web.Telegram.Types.Internal.Utils.Default.Default Web.Telegram.API.Sending.Data.FwdMessage instance GHC.Generics.Generic Web.Telegram.API.Sending.Data.FwdMessage instance GHC.Classes.Eq Web.Telegram.API.Sending.Data.FwdMessage instance GHC.Show.Show Web.Telegram.API.Sending.Data.FwdMessage instance Data.Aeson.Types.ToJSON.ToJSON Web.Telegram.API.Sending.Data.SMessage instance Web.Telegram.Types.Internal.Utils.Default.Default Web.Telegram.API.Sending.Data.SMessage instance GHC.Generics.Generic Web.Telegram.API.Sending.Data.SMessage instance GHC.Classes.Eq Web.Telegram.API.Sending.Data.SMessage instance GHC.Show.Show Web.Telegram.API.Sending.Data.SMessage -- | Sending stuff module Web.Telegram.API.Sending type SendMessage = Base :> "sendMessage" :> ReqBody '[JSON] SMessage :> Res type ForwardMessage = Base :> "forwardMessage" :> ReqBody '[JSON] FwdMessage :> Res type SendPhoto = Base :> "sendPhoto" :> ReqBody '[JSON] (PhotoMessage Text) :> Res type SendPhoto' photo = Base :> "sendPhoto" :> QueryR "chat_id" ChatId :> MultipartForm Mem Photo :> QueryParam "caption" Text :> MessageR type SendAudio = Base :> "sendAudio" :> ReqBody '[JSON] (AudioMessage Text) :> Res type SendAudio' audio = Base :> "sendAudio" :> QueryR "chat_id" ChatId :> MultipartForm Mem Audio :> QueryParam "caption" Text :> QueryParam "duration" Int :> QueryParam "performer" Text :> QueryParam "title" Text :> MessageR type SendDocument = Base :> "sendDocument" :> ReqBody '[JSON] (DocMessage Text) :> Res type SendDocument' doc = Base :> "sendDocument" :> QueryR "chat_id" ChatId :> MultipartForm Mem Doc :> QueryParam "caption" Text :> MessageR type SendVideo = Base :> "sendVideo" :> ReqBody '[JSON] (VidMessage Text) :> Res type SendVideo' = Base :> "sendVideo" :> QueryR "chat_id" ChatId :> MultipartForm Mem Video :> QueryParam "duration" Int :> QueryParam "width" Int :> QueryParam "height" Int :> QueryParam "caption" Text :> QueryParam "supports_streaming" Bool :> MessageR type SendAnimation = Base :> "sendAnimation" :> ReqBody '[JSON] (AnimationMessage Text) :> Res type SendAnimation' = Base :> "sendAnimation" :> QueryR "chat_id" ChatId :> MultipartForm Mem Animation :> QueryParam "duration" Int :> QueryParam "width" Int :> QueryParam "height" Int :> QueryParam "caption" Text :> MessageR type SendVoice = Base :> "sendVoice" :> ReqBody '[JSON] (VoiceMessage Text) :> Res type SendVoice' = Base :> "sendVoice" :> QueryR "chat_id" ChatId :> MultipartForm Mem Voice :> QueryParam "duration" Int :> QueryParam "caption" Text :> MessageR type SendVideoNote = Base :> "sendVideoNote" :> ReqBody '[JSON] (VNMessage Text) :> Res type SendVideoNote' = Base :> "sendVideoNote" :> QueryR "chat_id" ChatId :> MultipartForm Mem VideoNote :> QueryParam "duration" Int :> QueryParam "length" Int :> MessageR type SendMediaGroup = Base :> "sendMediaGroup" :> QueryR "chat_id" ChatId :> CompoundParams Mem "media" VideoOrPhoto :> QueryParam "disable_notification" Bool :> QueryParam "reply_to_message_id" Int :> Get '[JSON] (ReqResult [Message]) type SendLocation = Base :> "sendLocation" :> ReqBody '[JSON] LocationMessage :> Res type EditMessageLiveLocation = Base :> "editMessageLiveLocation" :> ReqBody '[JSON] LocationEdit :> Get '[JSON] (ReqResult (ReqEither Message Bool)) type StopMessageLiveLocation = Base :> "stopMessageLiveLocation" :> ReqBody '[JSON] LocationStop :> Get '[JSON] (ReqResult (ReqEither Message Bool)) type SendVenue = Base :> "sendVenue" :> ReqBody '[JSON] VenueMessage :> Res type SendContact = Base :> "sendContact" :> ReqBody '[JSON] ContactMessage :> Res type SendPoll = Base :> "sendPoll" :> ReqBody '[JSON] PollMessage :> Res type SendDice = Base :> "sendDice" :> ReqBody '[JSON] DiceMessage :> Res type SendChatAction = Base :> "sendChatAction" :> ReqBody '[JSON] ChatAction :> Get '[JSON] (ReqResult Bool) type SendSticker = Base :> "sendSticker" :> ReqBody '[JSON] StickerMessage :> Res type SendSticker' sticker = Base :> "sendSticker" :> QueryR "chat_id" ChatId :> MultipartForm Mem Sticker :> MessageR' data SMessage data FwdMessage data PhotoMessage a data AudioMessage a data DocMessage a data VidMessage a data AnimationMessage a data VoiceMessage a data VNMessage a data LocationEdit data LocationStop data VenueMessage data ContactMessage data PollMessage data DiceMessage data ChatAction data StickerMessage module Web.Telegram.API.Update data Polling Polling :: Maybe Int -> Maybe Int -> Maybe Int -> Maybe Text -> Polling [$sel:offset:Polling] :: Polling -> Maybe Int [$sel:limit:Polling] :: Polling -> Maybe Int [$sel:timeout:Polling] :: Polling -> Maybe Int [$sel:allowedUpdates:Polling] :: Polling -> Maybe Text data WebhookSetting WebhookSetting :: Text -> Maybe Int -> Maybe [UpdateType] -> WebhookSetting [$sel:url:WebhookSetting] :: WebhookSetting -> Text [$sel:maxConnections:WebhookSetting] :: WebhookSetting -> Maybe Int [$sel:allowedUpdates:WebhookSetting] :: WebhookSetting -> Maybe [UpdateType] type GetUpdates = Base :> "getUpdates" :> ReqBody '[JSON] Polling :> Get '[JSON] (ReqResult [Update]) type SetWebhook = Base :> "setWebhook" :> ReqBody '[JSON] WebhookSetting :> Get '[JSON] (ReqResult Bool) type DeleteWebhook = Base :> "deleteWebhook" :> Get '[JSON] (ReqResult Bool) type GetWebhookInfo = Base :> "getWebhookInfo" :> Get '[JSON] (ReqResult WebhookInfo) instance Data.Aeson.Types.FromJSON.FromJSON Web.Telegram.API.Update.WebhookSetting instance Data.Aeson.Types.ToJSON.ToJSON Web.Telegram.API.Update.WebhookSetting instance Web.Telegram.Types.Internal.Utils.Default.Default Web.Telegram.API.Update.WebhookSetting instance GHC.Generics.Generic Web.Telegram.API.Update.WebhookSetting instance GHC.Classes.Eq Web.Telegram.API.Update.WebhookSetting instance GHC.Show.Show Web.Telegram.API.Update.WebhookSetting instance Data.Aeson.Types.FromJSON.FromJSON Web.Telegram.API.Update.Polling instance Data.Aeson.Types.ToJSON.ToJSON Web.Telegram.API.Update.Polling instance Web.Telegram.Types.Internal.Utils.Default.Default Web.Telegram.API.Update.Polling instance GHC.Generics.Generic Web.Telegram.API.Update.Polling instance GHC.Classes.Eq Web.Telegram.API.Update.Polling instance GHC.Show.Show Web.Telegram.API.Update.Polling module Web.Telegram.API newtype Token Token :: Text -> Token data ChatId ChatId :: Int64 -> ChatId ChanId :: Text -> ChatId