module TwoCaptcha.Internal.Types.GeeTestCaptcha where
import Control.Lens (Lens', (&), (?~))
import Data.Text (Text)
import TwoCaptcha.Internal.Types.Captcha (Captcha, HasCaptchaLenses (method), HasCommonCaptchaLenses, HasPageURL, HasProxy, defaultCaptcha, mkParamLens)
newtype GeeTestCaptcha = MkGeeTestCaptcha Captcha deriving (Int -> GeeTestCaptcha -> ShowS
[GeeTestCaptcha] -> ShowS
GeeTestCaptcha -> String
(Int -> GeeTestCaptcha -> ShowS)
-> (GeeTestCaptcha -> String)
-> ([GeeTestCaptcha] -> ShowS)
-> Show GeeTestCaptcha
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [GeeTestCaptcha] -> ShowS
$cshowList :: [GeeTestCaptcha] -> ShowS
show :: GeeTestCaptcha -> String
$cshow :: GeeTestCaptcha -> String
showsPrec :: Int -> GeeTestCaptcha -> ShowS
$cshowsPrec :: Int -> GeeTestCaptcha -> ShowS
Show)
instance HasCommonCaptchaLenses GeeTestCaptcha
instance HasCaptchaLenses GeeTestCaptcha
instance HasPageURL GeeTestCaptcha
instance HasProxy GeeTestCaptcha
geeTestCaptcha :: GeeTestCaptcha
geeTestCaptcha :: GeeTestCaptcha
geeTestCaptcha = Captcha -> GeeTestCaptcha
MkGeeTestCaptcha (Captcha
defaultCaptcha Captcha -> (Captcha -> Captcha) -> Captcha
forall a b. a -> (a -> b) -> b
& (Maybe Text -> Identity (Maybe Text))
-> Captcha -> Identity Captcha
forall a. HasCaptchaLenses a => Lens' a (Maybe Text)
method ((Maybe Text -> Identity (Maybe Text))
-> Captcha -> Identity Captcha)
-> Text -> Captcha -> Captcha
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ Text
"geetest")
gt :: Lens' GeeTestCaptcha (Maybe Text)
gt :: (Maybe Text -> f (Maybe Text))
-> GeeTestCaptcha -> f GeeTestCaptcha
gt = Text -> Lens' GeeTestCaptcha (Maybe Text)
forall a. Coercible Captcha a => Text -> Lens' a (Maybe Text)
mkParamLens Text
"gt"
challenge :: Lens' GeeTestCaptcha (Maybe Text)
challenge :: (Maybe Text -> f (Maybe Text))
-> GeeTestCaptcha -> f GeeTestCaptcha
challenge = Text -> Lens' GeeTestCaptcha (Maybe Text)
forall a. Coercible Captcha a => Text -> Lens' a (Maybe Text)
mkParamLens Text
"challenge"
apiServer :: Lens' GeeTestCaptcha (Maybe Text)
apiServer :: (Maybe Text -> f (Maybe Text))
-> GeeTestCaptcha -> f GeeTestCaptcha
apiServer = Text -> Lens' GeeTestCaptcha (Maybe Text)
forall a. Coercible Captcha a => Text -> Lens' a (Maybe Text)
mkParamLens Text
"api_server"