module TwoCaptcha.Internal.Types.NormalCaptcha where
import Control.Lens (Lens')
import TwoCaptcha.Internal.Types.Captcha (Captcha, HasCaptchaLenses, HasCommonCaptchaLenses, HasLanguage, HasLocalImage, defaultCaptcha, mkParamLens', mkParamLensBool)
newtype NormalCaptcha = MkNormalCaptcha Captcha deriving (Int -> NormalCaptcha -> ShowS
[NormalCaptcha] -> ShowS
NormalCaptcha -> String
(Int -> NormalCaptcha -> ShowS)
-> (NormalCaptcha -> String)
-> ([NormalCaptcha] -> ShowS)
-> Show NormalCaptcha
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [NormalCaptcha] -> ShowS
$cshowList :: [NormalCaptcha] -> ShowS
show :: NormalCaptcha -> String
$cshow :: NormalCaptcha -> String
showsPrec :: Int -> NormalCaptcha -> ShowS
$cshowsPrec :: Int -> NormalCaptcha -> ShowS
Show)
instance HasCommonCaptchaLenses NormalCaptcha
instance HasCaptchaLenses NormalCaptcha
instance HasLocalImage NormalCaptcha
instance HasLanguage NormalCaptcha
normalCaptcha :: NormalCaptcha
normalCaptcha :: NormalCaptcha
normalCaptcha = Captcha -> NormalCaptcha
MkNormalCaptcha Captcha
defaultCaptcha
phrase :: Lens' NormalCaptcha (Maybe Bool)
phrase :: (Maybe Bool -> f (Maybe Bool)) -> NormalCaptcha -> f NormalCaptcha
phrase = Text -> Lens' NormalCaptcha (Maybe Bool)
forall a. Coercible Captcha a => Text -> Lens' a (Maybe Bool)
mkParamLensBool Text
"phrase"
caseSensitive :: Lens' NormalCaptcha (Maybe Bool)
caseSensitive :: (Maybe Bool -> f (Maybe Bool)) -> NormalCaptcha -> f NormalCaptcha
caseSensitive = Text -> Lens' NormalCaptcha (Maybe Bool)
forall a. Coercible Captcha a => Text -> Lens' a (Maybe Bool)
mkParamLensBool Text
"regsense"
format :: Lens' NormalCaptcha (Maybe Int)
format :: (Maybe Int -> f (Maybe Int)) -> NormalCaptcha -> f NormalCaptcha
format = Text -> Lens' NormalCaptcha (Maybe Int)
forall a b.
(Coercible Captcha a, Show b, Read b) =>
Text -> Lens' a (Maybe b)
mkParamLens' Text
"numeric"
calc :: Lens' NormalCaptcha (Maybe Bool)
calc :: (Maybe Bool -> f (Maybe Bool)) -> NormalCaptcha -> f NormalCaptcha
calc = Text -> Lens' NormalCaptcha (Maybe Bool)
forall a. Coercible Captcha a => Text -> Lens' a (Maybe Bool)
mkParamLensBool Text
"calc"
minLength :: Lens' NormalCaptcha (Maybe Int)
minLength :: (Maybe Int -> f (Maybe Int)) -> NormalCaptcha -> f NormalCaptcha
minLength = Text -> Lens' NormalCaptcha (Maybe Int)
forall a b.
(Coercible Captcha a, Show b, Read b) =>
Text -> Lens' a (Maybe b)
mkParamLens' Text
"min_len"
maxLength :: Lens' NormalCaptcha (Maybe Int)
maxLength :: (Maybe Int -> f (Maybe Int)) -> NormalCaptcha -> f NormalCaptcha
maxLength = Text -> Lens' NormalCaptcha (Maybe Int)
forall a b.
(Coercible Captcha a, Show b, Read b) =>
Text -> Lens' a (Maybe b)
mkParamLens' Text
"max_len"