{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE DuplicateRecordFields #-}
{-# LANGUAGE NamedFieldPuns #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE StrictData #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
module Amazonka.EC2.AuthorizeClientVpnIngress
(
AuthorizeClientVpnIngress (..),
newAuthorizeClientVpnIngress,
authorizeClientVpnIngress_accessGroupId,
authorizeClientVpnIngress_authorizeAllGroups,
authorizeClientVpnIngress_clientToken,
authorizeClientVpnIngress_description,
authorizeClientVpnIngress_dryRun,
authorizeClientVpnIngress_clientVpnEndpointId,
authorizeClientVpnIngress_targetNetworkCidr,
AuthorizeClientVpnIngressResponse (..),
newAuthorizeClientVpnIngressResponse,
authorizeClientVpnIngressResponse_status,
authorizeClientVpnIngressResponse_httpStatus,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.EC2.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data AuthorizeClientVpnIngress = AuthorizeClientVpnIngress'
{
AuthorizeClientVpnIngress -> Maybe Text
accessGroupId :: Prelude.Maybe Prelude.Text,
AuthorizeClientVpnIngress -> Maybe Bool
authorizeAllGroups :: Prelude.Maybe Prelude.Bool,
AuthorizeClientVpnIngress -> Maybe Text
clientToken :: Prelude.Maybe Prelude.Text,
AuthorizeClientVpnIngress -> Maybe Text
description :: Prelude.Maybe Prelude.Text,
AuthorizeClientVpnIngress -> Maybe Bool
dryRun :: Prelude.Maybe Prelude.Bool,
AuthorizeClientVpnIngress -> Text
clientVpnEndpointId :: Prelude.Text,
AuthorizeClientVpnIngress -> Text
targetNetworkCidr :: Prelude.Text
}
deriving (AuthorizeClientVpnIngress -> AuthorizeClientVpnIngress -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: AuthorizeClientVpnIngress -> AuthorizeClientVpnIngress -> Bool
$c/= :: AuthorizeClientVpnIngress -> AuthorizeClientVpnIngress -> Bool
== :: AuthorizeClientVpnIngress -> AuthorizeClientVpnIngress -> Bool
$c== :: AuthorizeClientVpnIngress -> AuthorizeClientVpnIngress -> Bool
Prelude.Eq, ReadPrec [AuthorizeClientVpnIngress]
ReadPrec AuthorizeClientVpnIngress
Int -> ReadS AuthorizeClientVpnIngress
ReadS [AuthorizeClientVpnIngress]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [AuthorizeClientVpnIngress]
$creadListPrec :: ReadPrec [AuthorizeClientVpnIngress]
readPrec :: ReadPrec AuthorizeClientVpnIngress
$creadPrec :: ReadPrec AuthorizeClientVpnIngress
readList :: ReadS [AuthorizeClientVpnIngress]
$creadList :: ReadS [AuthorizeClientVpnIngress]
readsPrec :: Int -> ReadS AuthorizeClientVpnIngress
$creadsPrec :: Int -> ReadS AuthorizeClientVpnIngress
Prelude.Read, Int -> AuthorizeClientVpnIngress -> ShowS
[AuthorizeClientVpnIngress] -> ShowS
AuthorizeClientVpnIngress -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [AuthorizeClientVpnIngress] -> ShowS
$cshowList :: [AuthorizeClientVpnIngress] -> ShowS
show :: AuthorizeClientVpnIngress -> String
$cshow :: AuthorizeClientVpnIngress -> String
showsPrec :: Int -> AuthorizeClientVpnIngress -> ShowS
$cshowsPrec :: Int -> AuthorizeClientVpnIngress -> ShowS
Prelude.Show, forall x.
Rep AuthorizeClientVpnIngress x -> AuthorizeClientVpnIngress
forall x.
AuthorizeClientVpnIngress -> Rep AuthorizeClientVpnIngress x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep AuthorizeClientVpnIngress x -> AuthorizeClientVpnIngress
$cfrom :: forall x.
AuthorizeClientVpnIngress -> Rep AuthorizeClientVpnIngress x
Prelude.Generic)
newAuthorizeClientVpnIngress ::
Prelude.Text ->
Prelude.Text ->
AuthorizeClientVpnIngress
newAuthorizeClientVpnIngress :: Text -> Text -> AuthorizeClientVpnIngress
newAuthorizeClientVpnIngress
Text
pClientVpnEndpointId_
Text
pTargetNetworkCidr_ =
AuthorizeClientVpnIngress'
{ $sel:accessGroupId:AuthorizeClientVpnIngress' :: Maybe Text
accessGroupId =
forall a. Maybe a
Prelude.Nothing,
$sel:authorizeAllGroups:AuthorizeClientVpnIngress' :: Maybe Bool
authorizeAllGroups = forall a. Maybe a
Prelude.Nothing,
$sel:clientToken:AuthorizeClientVpnIngress' :: Maybe Text
clientToken = forall a. Maybe a
Prelude.Nothing,
$sel:description:AuthorizeClientVpnIngress' :: Maybe Text
description = forall a. Maybe a
Prelude.Nothing,
$sel:dryRun:AuthorizeClientVpnIngress' :: Maybe Bool
dryRun = forall a. Maybe a
Prelude.Nothing,
$sel:clientVpnEndpointId:AuthorizeClientVpnIngress' :: Text
clientVpnEndpointId = Text
pClientVpnEndpointId_,
$sel:targetNetworkCidr:AuthorizeClientVpnIngress' :: Text
targetNetworkCidr = Text
pTargetNetworkCidr_
}
authorizeClientVpnIngress_accessGroupId :: Lens.Lens' AuthorizeClientVpnIngress (Prelude.Maybe Prelude.Text)
authorizeClientVpnIngress_accessGroupId :: Lens' AuthorizeClientVpnIngress (Maybe Text)
authorizeClientVpnIngress_accessGroupId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AuthorizeClientVpnIngress' {Maybe Text
accessGroupId :: Maybe Text
$sel:accessGroupId:AuthorizeClientVpnIngress' :: AuthorizeClientVpnIngress -> Maybe Text
accessGroupId} -> Maybe Text
accessGroupId) (\s :: AuthorizeClientVpnIngress
s@AuthorizeClientVpnIngress' {} Maybe Text
a -> AuthorizeClientVpnIngress
s {$sel:accessGroupId:AuthorizeClientVpnIngress' :: Maybe Text
accessGroupId = Maybe Text
a} :: AuthorizeClientVpnIngress)
authorizeClientVpnIngress_authorizeAllGroups :: Lens.Lens' AuthorizeClientVpnIngress (Prelude.Maybe Prelude.Bool)
authorizeClientVpnIngress_authorizeAllGroups :: Lens' AuthorizeClientVpnIngress (Maybe Bool)
authorizeClientVpnIngress_authorizeAllGroups = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AuthorizeClientVpnIngress' {Maybe Bool
authorizeAllGroups :: Maybe Bool
$sel:authorizeAllGroups:AuthorizeClientVpnIngress' :: AuthorizeClientVpnIngress -> Maybe Bool
authorizeAllGroups} -> Maybe Bool
authorizeAllGroups) (\s :: AuthorizeClientVpnIngress
s@AuthorizeClientVpnIngress' {} Maybe Bool
a -> AuthorizeClientVpnIngress
s {$sel:authorizeAllGroups:AuthorizeClientVpnIngress' :: Maybe Bool
authorizeAllGroups = Maybe Bool
a} :: AuthorizeClientVpnIngress)
authorizeClientVpnIngress_clientToken :: Lens.Lens' AuthorizeClientVpnIngress (Prelude.Maybe Prelude.Text)
authorizeClientVpnIngress_clientToken :: Lens' AuthorizeClientVpnIngress (Maybe Text)
authorizeClientVpnIngress_clientToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AuthorizeClientVpnIngress' {Maybe Text
clientToken :: Maybe Text
$sel:clientToken:AuthorizeClientVpnIngress' :: AuthorizeClientVpnIngress -> Maybe Text
clientToken} -> Maybe Text
clientToken) (\s :: AuthorizeClientVpnIngress
s@AuthorizeClientVpnIngress' {} Maybe Text
a -> AuthorizeClientVpnIngress
s {$sel:clientToken:AuthorizeClientVpnIngress' :: Maybe Text
clientToken = Maybe Text
a} :: AuthorizeClientVpnIngress)
authorizeClientVpnIngress_description :: Lens.Lens' AuthorizeClientVpnIngress (Prelude.Maybe Prelude.Text)
authorizeClientVpnIngress_description :: Lens' AuthorizeClientVpnIngress (Maybe Text)
authorizeClientVpnIngress_description = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AuthorizeClientVpnIngress' {Maybe Text
description :: Maybe Text
$sel:description:AuthorizeClientVpnIngress' :: AuthorizeClientVpnIngress -> Maybe Text
description} -> Maybe Text
description) (\s :: AuthorizeClientVpnIngress
s@AuthorizeClientVpnIngress' {} Maybe Text
a -> AuthorizeClientVpnIngress
s {$sel:description:AuthorizeClientVpnIngress' :: Maybe Text
description = Maybe Text
a} :: AuthorizeClientVpnIngress)
authorizeClientVpnIngress_dryRun :: Lens.Lens' AuthorizeClientVpnIngress (Prelude.Maybe Prelude.Bool)
authorizeClientVpnIngress_dryRun :: Lens' AuthorizeClientVpnIngress (Maybe Bool)
authorizeClientVpnIngress_dryRun = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AuthorizeClientVpnIngress' {Maybe Bool
dryRun :: Maybe Bool
$sel:dryRun:AuthorizeClientVpnIngress' :: AuthorizeClientVpnIngress -> Maybe Bool
dryRun} -> Maybe Bool
dryRun) (\s :: AuthorizeClientVpnIngress
s@AuthorizeClientVpnIngress' {} Maybe Bool
a -> AuthorizeClientVpnIngress
s {$sel:dryRun:AuthorizeClientVpnIngress' :: Maybe Bool
dryRun = Maybe Bool
a} :: AuthorizeClientVpnIngress)
authorizeClientVpnIngress_clientVpnEndpointId :: Lens.Lens' AuthorizeClientVpnIngress Prelude.Text
authorizeClientVpnIngress_clientVpnEndpointId :: Lens' AuthorizeClientVpnIngress Text
authorizeClientVpnIngress_clientVpnEndpointId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AuthorizeClientVpnIngress' {Text
clientVpnEndpointId :: Text
$sel:clientVpnEndpointId:AuthorizeClientVpnIngress' :: AuthorizeClientVpnIngress -> Text
clientVpnEndpointId} -> Text
clientVpnEndpointId) (\s :: AuthorizeClientVpnIngress
s@AuthorizeClientVpnIngress' {} Text
a -> AuthorizeClientVpnIngress
s {$sel:clientVpnEndpointId:AuthorizeClientVpnIngress' :: Text
clientVpnEndpointId = Text
a} :: AuthorizeClientVpnIngress)
authorizeClientVpnIngress_targetNetworkCidr :: Lens.Lens' AuthorizeClientVpnIngress Prelude.Text
authorizeClientVpnIngress_targetNetworkCidr :: Lens' AuthorizeClientVpnIngress Text
authorizeClientVpnIngress_targetNetworkCidr = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AuthorizeClientVpnIngress' {Text
targetNetworkCidr :: Text
$sel:targetNetworkCidr:AuthorizeClientVpnIngress' :: AuthorizeClientVpnIngress -> Text
targetNetworkCidr} -> Text
targetNetworkCidr) (\s :: AuthorizeClientVpnIngress
s@AuthorizeClientVpnIngress' {} Text
a -> AuthorizeClientVpnIngress
s {$sel:targetNetworkCidr:AuthorizeClientVpnIngress' :: Text
targetNetworkCidr = Text
a} :: AuthorizeClientVpnIngress)
instance Core.AWSRequest AuthorizeClientVpnIngress where
type
AWSResponse AuthorizeClientVpnIngress =
AuthorizeClientVpnIngressResponse
request :: (Service -> Service)
-> AuthorizeClientVpnIngress -> Request AuthorizeClientVpnIngress
request Service -> Service
overrides =
forall a. ToRequest a => Service -> a -> Request a
Request.postQuery (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy AuthorizeClientVpnIngress
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse AuthorizeClientVpnIngress)))
response =
forall (m :: * -> *) a.
MonadResource m =>
(Int -> ResponseHeaders -> [Node] -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveXML
( \Int
s ResponseHeaders
h [Node]
x ->
Maybe ClientVpnAuthorizationRuleStatus
-> Int -> AuthorizeClientVpnIngressResponse
AuthorizeClientVpnIngressResponse'
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> ([Node]
x forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Data..@? Text
"status")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure (forall a. Enum a => a -> Int
Prelude.fromEnum Int
s))
)
instance Prelude.Hashable AuthorizeClientVpnIngress where
hashWithSalt :: Int -> AuthorizeClientVpnIngress -> Int
hashWithSalt Int
_salt AuthorizeClientVpnIngress' {Maybe Bool
Maybe Text
Text
targetNetworkCidr :: Text
clientVpnEndpointId :: Text
dryRun :: Maybe Bool
description :: Maybe Text
clientToken :: Maybe Text
authorizeAllGroups :: Maybe Bool
accessGroupId :: Maybe Text
$sel:targetNetworkCidr:AuthorizeClientVpnIngress' :: AuthorizeClientVpnIngress -> Text
$sel:clientVpnEndpointId:AuthorizeClientVpnIngress' :: AuthorizeClientVpnIngress -> Text
$sel:dryRun:AuthorizeClientVpnIngress' :: AuthorizeClientVpnIngress -> Maybe Bool
$sel:description:AuthorizeClientVpnIngress' :: AuthorizeClientVpnIngress -> Maybe Text
$sel:clientToken:AuthorizeClientVpnIngress' :: AuthorizeClientVpnIngress -> Maybe Text
$sel:authorizeAllGroups:AuthorizeClientVpnIngress' :: AuthorizeClientVpnIngress -> Maybe Bool
$sel:accessGroupId:AuthorizeClientVpnIngress' :: AuthorizeClientVpnIngress -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
accessGroupId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Bool
authorizeAllGroups
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
clientToken
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
description
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Bool
dryRun
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
clientVpnEndpointId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
targetNetworkCidr
instance Prelude.NFData AuthorizeClientVpnIngress where
rnf :: AuthorizeClientVpnIngress -> ()
rnf AuthorizeClientVpnIngress' {Maybe Bool
Maybe Text
Text
targetNetworkCidr :: Text
clientVpnEndpointId :: Text
dryRun :: Maybe Bool
description :: Maybe Text
clientToken :: Maybe Text
authorizeAllGroups :: Maybe Bool
accessGroupId :: Maybe Text
$sel:targetNetworkCidr:AuthorizeClientVpnIngress' :: AuthorizeClientVpnIngress -> Text
$sel:clientVpnEndpointId:AuthorizeClientVpnIngress' :: AuthorizeClientVpnIngress -> Text
$sel:dryRun:AuthorizeClientVpnIngress' :: AuthorizeClientVpnIngress -> Maybe Bool
$sel:description:AuthorizeClientVpnIngress' :: AuthorizeClientVpnIngress -> Maybe Text
$sel:clientToken:AuthorizeClientVpnIngress' :: AuthorizeClientVpnIngress -> Maybe Text
$sel:authorizeAllGroups:AuthorizeClientVpnIngress' :: AuthorizeClientVpnIngress -> Maybe Bool
$sel:accessGroupId:AuthorizeClientVpnIngress' :: AuthorizeClientVpnIngress -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
accessGroupId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Bool
authorizeAllGroups
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
clientToken
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
description
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Bool
dryRun
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
clientVpnEndpointId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
targetNetworkCidr
instance Data.ToHeaders AuthorizeClientVpnIngress where
toHeaders :: AuthorizeClientVpnIngress -> ResponseHeaders
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance Data.ToPath AuthorizeClientVpnIngress where
toPath :: AuthorizeClientVpnIngress -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery AuthorizeClientVpnIngress where
toQuery :: AuthorizeClientVpnIngress -> QueryString
toQuery AuthorizeClientVpnIngress' {Maybe Bool
Maybe Text
Text
targetNetworkCidr :: Text
clientVpnEndpointId :: Text
dryRun :: Maybe Bool
description :: Maybe Text
clientToken :: Maybe Text
authorizeAllGroups :: Maybe Bool
accessGroupId :: Maybe Text
$sel:targetNetworkCidr:AuthorizeClientVpnIngress' :: AuthorizeClientVpnIngress -> Text
$sel:clientVpnEndpointId:AuthorizeClientVpnIngress' :: AuthorizeClientVpnIngress -> Text
$sel:dryRun:AuthorizeClientVpnIngress' :: AuthorizeClientVpnIngress -> Maybe Bool
$sel:description:AuthorizeClientVpnIngress' :: AuthorizeClientVpnIngress -> Maybe Text
$sel:clientToken:AuthorizeClientVpnIngress' :: AuthorizeClientVpnIngress -> Maybe Text
$sel:authorizeAllGroups:AuthorizeClientVpnIngress' :: AuthorizeClientVpnIngress -> Maybe Bool
$sel:accessGroupId:AuthorizeClientVpnIngress' :: AuthorizeClientVpnIngress -> Maybe Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"Action"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"AuthorizeClientVpnIngress" :: Prelude.ByteString),
ByteString
"Version"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"2016-11-15" :: Prelude.ByteString),
ByteString
"AccessGroupId" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
accessGroupId,
ByteString
"AuthorizeAllGroups" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Bool
authorizeAllGroups,
ByteString
"ClientToken" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
clientToken,
ByteString
"Description" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
description,
ByteString
"DryRun" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Bool
dryRun,
ByteString
"ClientVpnEndpointId" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Text
clientVpnEndpointId,
ByteString
"TargetNetworkCidr" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Text
targetNetworkCidr
]
data AuthorizeClientVpnIngressResponse = AuthorizeClientVpnIngressResponse'
{
AuthorizeClientVpnIngressResponse
-> Maybe ClientVpnAuthorizationRuleStatus
status :: Prelude.Maybe ClientVpnAuthorizationRuleStatus,
AuthorizeClientVpnIngressResponse -> Int
httpStatus :: Prelude.Int
}
deriving (AuthorizeClientVpnIngressResponse
-> AuthorizeClientVpnIngressResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: AuthorizeClientVpnIngressResponse
-> AuthorizeClientVpnIngressResponse -> Bool
$c/= :: AuthorizeClientVpnIngressResponse
-> AuthorizeClientVpnIngressResponse -> Bool
== :: AuthorizeClientVpnIngressResponse
-> AuthorizeClientVpnIngressResponse -> Bool
$c== :: AuthorizeClientVpnIngressResponse
-> AuthorizeClientVpnIngressResponse -> Bool
Prelude.Eq, ReadPrec [AuthorizeClientVpnIngressResponse]
ReadPrec AuthorizeClientVpnIngressResponse
Int -> ReadS AuthorizeClientVpnIngressResponse
ReadS [AuthorizeClientVpnIngressResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [AuthorizeClientVpnIngressResponse]
$creadListPrec :: ReadPrec [AuthorizeClientVpnIngressResponse]
readPrec :: ReadPrec AuthorizeClientVpnIngressResponse
$creadPrec :: ReadPrec AuthorizeClientVpnIngressResponse
readList :: ReadS [AuthorizeClientVpnIngressResponse]
$creadList :: ReadS [AuthorizeClientVpnIngressResponse]
readsPrec :: Int -> ReadS AuthorizeClientVpnIngressResponse
$creadsPrec :: Int -> ReadS AuthorizeClientVpnIngressResponse
Prelude.Read, Int -> AuthorizeClientVpnIngressResponse -> ShowS
[AuthorizeClientVpnIngressResponse] -> ShowS
AuthorizeClientVpnIngressResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [AuthorizeClientVpnIngressResponse] -> ShowS
$cshowList :: [AuthorizeClientVpnIngressResponse] -> ShowS
show :: AuthorizeClientVpnIngressResponse -> String
$cshow :: AuthorizeClientVpnIngressResponse -> String
showsPrec :: Int -> AuthorizeClientVpnIngressResponse -> ShowS
$cshowsPrec :: Int -> AuthorizeClientVpnIngressResponse -> ShowS
Prelude.Show, forall x.
Rep AuthorizeClientVpnIngressResponse x
-> AuthorizeClientVpnIngressResponse
forall x.
AuthorizeClientVpnIngressResponse
-> Rep AuthorizeClientVpnIngressResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep AuthorizeClientVpnIngressResponse x
-> AuthorizeClientVpnIngressResponse
$cfrom :: forall x.
AuthorizeClientVpnIngressResponse
-> Rep AuthorizeClientVpnIngressResponse x
Prelude.Generic)
newAuthorizeClientVpnIngressResponse ::
Prelude.Int ->
AuthorizeClientVpnIngressResponse
newAuthorizeClientVpnIngressResponse :: Int -> AuthorizeClientVpnIngressResponse
newAuthorizeClientVpnIngressResponse Int
pHttpStatus_ =
AuthorizeClientVpnIngressResponse'
{ $sel:status:AuthorizeClientVpnIngressResponse' :: Maybe ClientVpnAuthorizationRuleStatus
status =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:AuthorizeClientVpnIngressResponse' :: Int
httpStatus = Int
pHttpStatus_
}
authorizeClientVpnIngressResponse_status :: Lens.Lens' AuthorizeClientVpnIngressResponse (Prelude.Maybe ClientVpnAuthorizationRuleStatus)
authorizeClientVpnIngressResponse_status :: Lens'
AuthorizeClientVpnIngressResponse
(Maybe ClientVpnAuthorizationRuleStatus)
authorizeClientVpnIngressResponse_status = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AuthorizeClientVpnIngressResponse' {Maybe ClientVpnAuthorizationRuleStatus
status :: Maybe ClientVpnAuthorizationRuleStatus
$sel:status:AuthorizeClientVpnIngressResponse' :: AuthorizeClientVpnIngressResponse
-> Maybe ClientVpnAuthorizationRuleStatus
status} -> Maybe ClientVpnAuthorizationRuleStatus
status) (\s :: AuthorizeClientVpnIngressResponse
s@AuthorizeClientVpnIngressResponse' {} Maybe ClientVpnAuthorizationRuleStatus
a -> AuthorizeClientVpnIngressResponse
s {$sel:status:AuthorizeClientVpnIngressResponse' :: Maybe ClientVpnAuthorizationRuleStatus
status = Maybe ClientVpnAuthorizationRuleStatus
a} :: AuthorizeClientVpnIngressResponse)
authorizeClientVpnIngressResponse_httpStatus :: Lens.Lens' AuthorizeClientVpnIngressResponse Prelude.Int
authorizeClientVpnIngressResponse_httpStatus :: Lens' AuthorizeClientVpnIngressResponse Int
authorizeClientVpnIngressResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AuthorizeClientVpnIngressResponse' {Int
httpStatus :: Int
$sel:httpStatus:AuthorizeClientVpnIngressResponse' :: AuthorizeClientVpnIngressResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: AuthorizeClientVpnIngressResponse
s@AuthorizeClientVpnIngressResponse' {} Int
a -> AuthorizeClientVpnIngressResponse
s {$sel:httpStatus:AuthorizeClientVpnIngressResponse' :: Int
httpStatus = Int
a} :: AuthorizeClientVpnIngressResponse)
instance
Prelude.NFData
AuthorizeClientVpnIngressResponse
where
rnf :: AuthorizeClientVpnIngressResponse -> ()
rnf AuthorizeClientVpnIngressResponse' {Int
Maybe ClientVpnAuthorizationRuleStatus
httpStatus :: Int
status :: Maybe ClientVpnAuthorizationRuleStatus
$sel:httpStatus:AuthorizeClientVpnIngressResponse' :: AuthorizeClientVpnIngressResponse -> Int
$sel:status:AuthorizeClientVpnIngressResponse' :: AuthorizeClientVpnIngressResponse
-> Maybe ClientVpnAuthorizationRuleStatus
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe ClientVpnAuthorizationRuleStatus
status
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus