module TwoCaptcha.Internal.Types.GridCaptcha where
import Control.Lens (Lens')
import Data.Text (Text)
import TwoCaptcha.Internal.Types.Captcha (Captcha, HasCaptchaLenses, HasCommonCaptchaLenses, HasLanguage, HasLocalImage, defaultCaptcha, mkParamLens, mkParamLens', mkParamLensBool)
newtype GridCaptcha = MkGridCaptcha Captcha deriving (Int -> GridCaptcha -> ShowS
[GridCaptcha] -> ShowS
GridCaptcha -> String
(Int -> GridCaptcha -> ShowS)
-> (GridCaptcha -> String)
-> ([GridCaptcha] -> ShowS)
-> Show GridCaptcha
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [GridCaptcha] -> ShowS
$cshowList :: [GridCaptcha] -> ShowS
show :: GridCaptcha -> String
$cshow :: GridCaptcha -> String
showsPrec :: Int -> GridCaptcha -> ShowS
$cshowsPrec :: Int -> GridCaptcha -> ShowS
Show)
instance HasCommonCaptchaLenses GridCaptcha
instance HasCaptchaLenses GridCaptcha
instance HasLocalImage GridCaptcha
instance HasLanguage GridCaptcha
gridCaptcha :: GridCaptcha
gridCaptcha :: GridCaptcha
gridCaptcha = Captcha -> GridCaptcha
MkGridCaptcha Captcha
defaultCaptcha
reCAPTCHAImage :: Lens' GridCaptcha (Maybe Bool)
reCAPTCHAImage :: (Maybe Bool -> f (Maybe Bool)) -> GridCaptcha -> f GridCaptcha
reCAPTCHAImage = Text -> Lens' GridCaptcha (Maybe Bool)
forall a. Coercible Captcha a => Text -> Lens' a (Maybe Bool)
mkParamLensBool Text
"recaptcha"
canvas :: Lens' GridCaptcha (Maybe Bool)
canvas :: (Maybe Bool -> f (Maybe Bool)) -> GridCaptcha -> f GridCaptcha
canvas = Text -> Lens' GridCaptcha (Maybe Bool)
forall a. Coercible Captcha a => Text -> Lens' a (Maybe Bool)
mkParamLensBool Text
"canvas"
rows :: Lens' GridCaptcha (Maybe Int)
rows :: (Maybe Int -> f (Maybe Int)) -> GridCaptcha -> f GridCaptcha
rows = Text -> Lens' GridCaptcha (Maybe Int)
forall a b.
(Coercible Captcha a, Show b, Read b) =>
Text -> Lens' a (Maybe b)
mkParamLens' Text
"recaptcharows"
columns :: Lens' GridCaptcha (Maybe Int)
columns :: (Maybe Int -> f (Maybe Int)) -> GridCaptcha -> f GridCaptcha
columns = Text -> Lens' GridCaptcha (Maybe Int)
forall a b.
(Coercible Captcha a, Show b, Read b) =>
Text -> Lens' a (Maybe b)
mkParamLens' Text
"recaptchacols"
previousId :: Lens' GridCaptcha (Maybe Text)
previousId :: (Maybe Text -> f (Maybe Text)) -> GridCaptcha -> f GridCaptcha
previousId = Text -> Lens' GridCaptcha (Maybe Text)
forall a. Coercible Captcha a => Text -> Lens' a (Maybe Text)
mkParamLens Text
"previousID"
cannotAnswer :: Lens' GridCaptcha (Maybe Bool)
cannotAnswer :: (Maybe Bool -> f (Maybe Bool)) -> GridCaptcha -> f GridCaptcha
cannotAnswer = Text -> Lens' GridCaptcha (Maybe Bool)
forall a. Coercible Captcha a => Text -> Lens' a (Maybe Bool)
mkParamLensBool Text
"can_no_answer"