module TwoCaptcha.Internal.Types.CoordinateCaptcha where
import Control.Lens (Lens')
import TwoCaptcha.Internal.Types.Captcha (Captcha, HasCaptchaLenses, HasCommonCaptchaLenses, HasLanguage, HasLocalImage, defaultCaptcha, mkParamLensBool)
newtype CoordinateCaptcha = MkCoordinateCaptcha Captcha deriving (Int -> CoordinateCaptcha -> ShowS
[CoordinateCaptcha] -> ShowS
CoordinateCaptcha -> String
(Int -> CoordinateCaptcha -> ShowS)
-> (CoordinateCaptcha -> String)
-> ([CoordinateCaptcha] -> ShowS)
-> Show CoordinateCaptcha
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CoordinateCaptcha] -> ShowS
$cshowList :: [CoordinateCaptcha] -> ShowS
show :: CoordinateCaptcha -> String
$cshow :: CoordinateCaptcha -> String
showsPrec :: Int -> CoordinateCaptcha -> ShowS
$cshowsPrec :: Int -> CoordinateCaptcha -> ShowS
Show)
instance HasCommonCaptchaLenses CoordinateCaptcha
instance HasCaptchaLenses CoordinateCaptcha
instance HasLocalImage CoordinateCaptcha
instance HasLanguage CoordinateCaptcha
coordinateCaptcha :: CoordinateCaptcha
coordinateCaptcha :: CoordinateCaptcha
coordinateCaptcha = Captcha -> CoordinateCaptcha
MkCoordinateCaptcha Captcha
defaultCaptcha
coordinateReCAPTCHAImage :: Lens' CoordinateCaptcha (Maybe Bool)
coordinateReCAPTCHAImage :: (Maybe Bool -> f (Maybe Bool))
-> CoordinateCaptcha -> f CoordinateCaptcha
coordinateReCAPTCHAImage = Text -> Lens' CoordinateCaptcha (Maybe Bool)
forall a. Coercible Captcha a => Text -> Lens' a (Maybe Bool)
mkParamLensBool Text
"coordinatescaptcha"