{-# LANGUAGE DeriveGeneric #-}
module Telegram.Bot.API.Types.LoginUrl where

import Data.Aeson (FromJSON (..), ToJSON (..))
import Data.Text (Text)
import GHC.Generics (Generic)

import Telegram.Bot.API.Internal.Utils

-- ** 'LoginUrl'

-- | This object represents a parameter of the inline keyboard button used to automatically authorize a user. Serves as a great replacement for the Telegram Login Widget when the user is coming from Telegram. All the user needs to do is tap/click a button and confirm that they want to log in:
--
-- https://core.telegram.org/file/811140015/1734/8VZFkwWXalM.97872/6127fa62d8a0bf2b3c
--
-- Telegram apps support these buttons as of version 5.7.
data LoginUrl = LoginUrl
  { LoginUrl -> Text
loginUrlUrl                :: Text       -- ^ An HTTP URL to be opened with user authorization data added to the query string when the button is pressed. If the user refuses to provide authorization data, the original URL without information about the user will be opened. The data added is the same as described in Receiving authorization data.
  --
  -- **NOTE**: You **must** always check the hash of the received data to verify the authentication and the integrity of the data as described in Checking authorization.
  , LoginUrl -> Maybe Text
loginUrlForwardText        :: Maybe Text -- ^ New text of the button in forwarded messages.
  , LoginUrl -> Maybe Text
loginUrlBotUsername        :: Maybe Text -- ^ Username of a bot, which will be used for user authorization. See Setting up a bot for more details. If not specified, the current bot's username will be assumed. The url's domain must be the same as the domain linked with the bot. See Linking your domain to the bot for more details.
  , LoginUrl -> Maybe Bool
loginUrlRequestWriteAccess :: Maybe Bool -- ^ Pass 'True' to request the permission for your bot to send messages to the user.
  }
  deriving ((forall x. LoginUrl -> Rep LoginUrl x)
-> (forall x. Rep LoginUrl x -> LoginUrl) -> Generic LoginUrl
forall x. Rep LoginUrl x -> LoginUrl
forall x. LoginUrl -> Rep LoginUrl x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cfrom :: forall x. LoginUrl -> Rep LoginUrl x
from :: forall x. LoginUrl -> Rep LoginUrl x
$cto :: forall x. Rep LoginUrl x -> LoginUrl
to :: forall x. Rep LoginUrl x -> LoginUrl
Generic, Int -> LoginUrl -> ShowS
[LoginUrl] -> ShowS
LoginUrl -> String
(Int -> LoginUrl -> ShowS)
-> (LoginUrl -> String) -> ([LoginUrl] -> ShowS) -> Show LoginUrl
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> LoginUrl -> ShowS
showsPrec :: Int -> LoginUrl -> ShowS
$cshow :: LoginUrl -> String
show :: LoginUrl -> String
$cshowList :: [LoginUrl] -> ShowS
showList :: [LoginUrl] -> ShowS
Show)

instance ToJSON   LoginUrl where toJSON :: LoginUrl -> Value
toJSON = LoginUrl -> Value
forall a (d :: Meta) (f :: * -> *).
(Generic a, GToJSON Zero (Rep a), Rep a ~ D1 d f, Datatype d) =>
a -> Value
gtoJSON
instance FromJSON LoginUrl where parseJSON :: Value -> Parser LoginUrl
parseJSON = Value -> Parser LoginUrl
forall a (d :: Meta) (f :: * -> *).
(Generic a, GFromJSON Zero (Rep a), Rep a ~ D1 d f, Datatype d) =>
Value -> Parser a
gparseJSON