{-# 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.CreateVpnConnection
(
CreateVpnConnection (..),
newCreateVpnConnection,
createVpnConnection_dryRun,
createVpnConnection_options,
createVpnConnection_tagSpecifications,
createVpnConnection_transitGatewayId,
createVpnConnection_vpnGatewayId,
createVpnConnection_customerGatewayId,
createVpnConnection_type,
CreateVpnConnectionResponse (..),
newCreateVpnConnectionResponse,
createVpnConnectionResponse_vpnConnection,
createVpnConnectionResponse_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 CreateVpnConnection = CreateVpnConnection'
{
CreateVpnConnection -> Maybe Bool
dryRun :: Prelude.Maybe Prelude.Bool,
CreateVpnConnection -> Maybe VpnConnectionOptionsSpecification
options :: Prelude.Maybe VpnConnectionOptionsSpecification,
CreateVpnConnection -> Maybe [TagSpecification]
tagSpecifications :: Prelude.Maybe [TagSpecification],
CreateVpnConnection -> Maybe Text
transitGatewayId :: Prelude.Maybe Prelude.Text,
CreateVpnConnection -> Maybe Text
vpnGatewayId :: Prelude.Maybe Prelude.Text,
CreateVpnConnection -> Text
customerGatewayId :: Prelude.Text,
CreateVpnConnection -> Text
type' :: Prelude.Text
}
deriving (CreateVpnConnection -> CreateVpnConnection -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateVpnConnection -> CreateVpnConnection -> Bool
$c/= :: CreateVpnConnection -> CreateVpnConnection -> Bool
== :: CreateVpnConnection -> CreateVpnConnection -> Bool
$c== :: CreateVpnConnection -> CreateVpnConnection -> Bool
Prelude.Eq, ReadPrec [CreateVpnConnection]
ReadPrec CreateVpnConnection
Int -> ReadS CreateVpnConnection
ReadS [CreateVpnConnection]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateVpnConnection]
$creadListPrec :: ReadPrec [CreateVpnConnection]
readPrec :: ReadPrec CreateVpnConnection
$creadPrec :: ReadPrec CreateVpnConnection
readList :: ReadS [CreateVpnConnection]
$creadList :: ReadS [CreateVpnConnection]
readsPrec :: Int -> ReadS CreateVpnConnection
$creadsPrec :: Int -> ReadS CreateVpnConnection
Prelude.Read, Int -> CreateVpnConnection -> ShowS
[CreateVpnConnection] -> ShowS
CreateVpnConnection -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateVpnConnection] -> ShowS
$cshowList :: [CreateVpnConnection] -> ShowS
show :: CreateVpnConnection -> String
$cshow :: CreateVpnConnection -> String
showsPrec :: Int -> CreateVpnConnection -> ShowS
$cshowsPrec :: Int -> CreateVpnConnection -> ShowS
Prelude.Show, forall x. Rep CreateVpnConnection x -> CreateVpnConnection
forall x. CreateVpnConnection -> Rep CreateVpnConnection x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep CreateVpnConnection x -> CreateVpnConnection
$cfrom :: forall x. CreateVpnConnection -> Rep CreateVpnConnection x
Prelude.Generic)
newCreateVpnConnection ::
Prelude.Text ->
Prelude.Text ->
CreateVpnConnection
newCreateVpnConnection :: Text -> Text -> CreateVpnConnection
newCreateVpnConnection Text
pCustomerGatewayId_ Text
pType_ =
CreateVpnConnection'
{ $sel:dryRun:CreateVpnConnection' :: Maybe Bool
dryRun = forall a. Maybe a
Prelude.Nothing,
$sel:options:CreateVpnConnection' :: Maybe VpnConnectionOptionsSpecification
options = forall a. Maybe a
Prelude.Nothing,
$sel:tagSpecifications:CreateVpnConnection' :: Maybe [TagSpecification]
tagSpecifications = forall a. Maybe a
Prelude.Nothing,
$sel:transitGatewayId:CreateVpnConnection' :: Maybe Text
transitGatewayId = forall a. Maybe a
Prelude.Nothing,
$sel:vpnGatewayId:CreateVpnConnection' :: Maybe Text
vpnGatewayId = forall a. Maybe a
Prelude.Nothing,
$sel:customerGatewayId:CreateVpnConnection' :: Text
customerGatewayId = Text
pCustomerGatewayId_,
$sel:type':CreateVpnConnection' :: Text
type' = Text
pType_
}
createVpnConnection_dryRun :: Lens.Lens' CreateVpnConnection (Prelude.Maybe Prelude.Bool)
createVpnConnection_dryRun :: Lens' CreateVpnConnection (Maybe Bool)
createVpnConnection_dryRun = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateVpnConnection' {Maybe Bool
dryRun :: Maybe Bool
$sel:dryRun:CreateVpnConnection' :: CreateVpnConnection -> Maybe Bool
dryRun} -> Maybe Bool
dryRun) (\s :: CreateVpnConnection
s@CreateVpnConnection' {} Maybe Bool
a -> CreateVpnConnection
s {$sel:dryRun:CreateVpnConnection' :: Maybe Bool
dryRun = Maybe Bool
a} :: CreateVpnConnection)
createVpnConnection_options :: Lens.Lens' CreateVpnConnection (Prelude.Maybe VpnConnectionOptionsSpecification)
createVpnConnection_options :: Lens' CreateVpnConnection (Maybe VpnConnectionOptionsSpecification)
createVpnConnection_options = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateVpnConnection' {Maybe VpnConnectionOptionsSpecification
options :: Maybe VpnConnectionOptionsSpecification
$sel:options:CreateVpnConnection' :: CreateVpnConnection -> Maybe VpnConnectionOptionsSpecification
options} -> Maybe VpnConnectionOptionsSpecification
options) (\s :: CreateVpnConnection
s@CreateVpnConnection' {} Maybe VpnConnectionOptionsSpecification
a -> CreateVpnConnection
s {$sel:options:CreateVpnConnection' :: Maybe VpnConnectionOptionsSpecification
options = Maybe VpnConnectionOptionsSpecification
a} :: CreateVpnConnection)
createVpnConnection_tagSpecifications :: Lens.Lens' CreateVpnConnection (Prelude.Maybe [TagSpecification])
createVpnConnection_tagSpecifications :: Lens' CreateVpnConnection (Maybe [TagSpecification])
createVpnConnection_tagSpecifications = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateVpnConnection' {Maybe [TagSpecification]
tagSpecifications :: Maybe [TagSpecification]
$sel:tagSpecifications:CreateVpnConnection' :: CreateVpnConnection -> Maybe [TagSpecification]
tagSpecifications} -> Maybe [TagSpecification]
tagSpecifications) (\s :: CreateVpnConnection
s@CreateVpnConnection' {} Maybe [TagSpecification]
a -> CreateVpnConnection
s {$sel:tagSpecifications:CreateVpnConnection' :: Maybe [TagSpecification]
tagSpecifications = Maybe [TagSpecification]
a} :: CreateVpnConnection) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
createVpnConnection_transitGatewayId :: Lens.Lens' CreateVpnConnection (Prelude.Maybe Prelude.Text)
createVpnConnection_transitGatewayId :: Lens' CreateVpnConnection (Maybe Text)
createVpnConnection_transitGatewayId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateVpnConnection' {Maybe Text
transitGatewayId :: Maybe Text
$sel:transitGatewayId:CreateVpnConnection' :: CreateVpnConnection -> Maybe Text
transitGatewayId} -> Maybe Text
transitGatewayId) (\s :: CreateVpnConnection
s@CreateVpnConnection' {} Maybe Text
a -> CreateVpnConnection
s {$sel:transitGatewayId:CreateVpnConnection' :: Maybe Text
transitGatewayId = Maybe Text
a} :: CreateVpnConnection)
createVpnConnection_vpnGatewayId :: Lens.Lens' CreateVpnConnection (Prelude.Maybe Prelude.Text)
createVpnConnection_vpnGatewayId :: Lens' CreateVpnConnection (Maybe Text)
createVpnConnection_vpnGatewayId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateVpnConnection' {Maybe Text
vpnGatewayId :: Maybe Text
$sel:vpnGatewayId:CreateVpnConnection' :: CreateVpnConnection -> Maybe Text
vpnGatewayId} -> Maybe Text
vpnGatewayId) (\s :: CreateVpnConnection
s@CreateVpnConnection' {} Maybe Text
a -> CreateVpnConnection
s {$sel:vpnGatewayId:CreateVpnConnection' :: Maybe Text
vpnGatewayId = Maybe Text
a} :: CreateVpnConnection)
createVpnConnection_customerGatewayId :: Lens.Lens' CreateVpnConnection Prelude.Text
createVpnConnection_customerGatewayId :: Lens' CreateVpnConnection Text
createVpnConnection_customerGatewayId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateVpnConnection' {Text
customerGatewayId :: Text
$sel:customerGatewayId:CreateVpnConnection' :: CreateVpnConnection -> Text
customerGatewayId} -> Text
customerGatewayId) (\s :: CreateVpnConnection
s@CreateVpnConnection' {} Text
a -> CreateVpnConnection
s {$sel:customerGatewayId:CreateVpnConnection' :: Text
customerGatewayId = Text
a} :: CreateVpnConnection)
createVpnConnection_type :: Lens.Lens' CreateVpnConnection Prelude.Text
createVpnConnection_type :: Lens' CreateVpnConnection Text
createVpnConnection_type = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateVpnConnection' {Text
type' :: Text
$sel:type':CreateVpnConnection' :: CreateVpnConnection -> Text
type'} -> Text
type') (\s :: CreateVpnConnection
s@CreateVpnConnection' {} Text
a -> CreateVpnConnection
s {$sel:type':CreateVpnConnection' :: Text
type' = Text
a} :: CreateVpnConnection)
instance Core.AWSRequest CreateVpnConnection where
type
AWSResponse CreateVpnConnection =
CreateVpnConnectionResponse
request :: (Service -> Service)
-> CreateVpnConnection -> Request CreateVpnConnection
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 CreateVpnConnection
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse CreateVpnConnection)))
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 VpnConnection -> Int -> CreateVpnConnectionResponse
CreateVpnConnectionResponse'
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
"vpnConnection")
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 CreateVpnConnection where
hashWithSalt :: Int -> CreateVpnConnection -> Int
hashWithSalt Int
_salt CreateVpnConnection' {Maybe Bool
Maybe [TagSpecification]
Maybe Text
Maybe VpnConnectionOptionsSpecification
Text
type' :: Text
customerGatewayId :: Text
vpnGatewayId :: Maybe Text
transitGatewayId :: Maybe Text
tagSpecifications :: Maybe [TagSpecification]
options :: Maybe VpnConnectionOptionsSpecification
dryRun :: Maybe Bool
$sel:type':CreateVpnConnection' :: CreateVpnConnection -> Text
$sel:customerGatewayId:CreateVpnConnection' :: CreateVpnConnection -> Text
$sel:vpnGatewayId:CreateVpnConnection' :: CreateVpnConnection -> Maybe Text
$sel:transitGatewayId:CreateVpnConnection' :: CreateVpnConnection -> Maybe Text
$sel:tagSpecifications:CreateVpnConnection' :: CreateVpnConnection -> Maybe [TagSpecification]
$sel:options:CreateVpnConnection' :: CreateVpnConnection -> Maybe VpnConnectionOptionsSpecification
$sel:dryRun:CreateVpnConnection' :: CreateVpnConnection -> Maybe Bool
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Bool
dryRun
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe VpnConnectionOptionsSpecification
options
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [TagSpecification]
tagSpecifications
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
transitGatewayId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
vpnGatewayId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
customerGatewayId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
type'
instance Prelude.NFData CreateVpnConnection where
rnf :: CreateVpnConnection -> ()
rnf CreateVpnConnection' {Maybe Bool
Maybe [TagSpecification]
Maybe Text
Maybe VpnConnectionOptionsSpecification
Text
type' :: Text
customerGatewayId :: Text
vpnGatewayId :: Maybe Text
transitGatewayId :: Maybe Text
tagSpecifications :: Maybe [TagSpecification]
options :: Maybe VpnConnectionOptionsSpecification
dryRun :: Maybe Bool
$sel:type':CreateVpnConnection' :: CreateVpnConnection -> Text
$sel:customerGatewayId:CreateVpnConnection' :: CreateVpnConnection -> Text
$sel:vpnGatewayId:CreateVpnConnection' :: CreateVpnConnection -> Maybe Text
$sel:transitGatewayId:CreateVpnConnection' :: CreateVpnConnection -> Maybe Text
$sel:tagSpecifications:CreateVpnConnection' :: CreateVpnConnection -> Maybe [TagSpecification]
$sel:options:CreateVpnConnection' :: CreateVpnConnection -> Maybe VpnConnectionOptionsSpecification
$sel:dryRun:CreateVpnConnection' :: CreateVpnConnection -> Maybe Bool
..} =
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 Maybe VpnConnectionOptionsSpecification
options
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [TagSpecification]
tagSpecifications
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
transitGatewayId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
vpnGatewayId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
customerGatewayId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
type'
instance Data.ToHeaders CreateVpnConnection where
toHeaders :: CreateVpnConnection -> ResponseHeaders
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance Data.ToPath CreateVpnConnection where
toPath :: CreateVpnConnection -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery CreateVpnConnection where
toQuery :: CreateVpnConnection -> QueryString
toQuery CreateVpnConnection' {Maybe Bool
Maybe [TagSpecification]
Maybe Text
Maybe VpnConnectionOptionsSpecification
Text
type' :: Text
customerGatewayId :: Text
vpnGatewayId :: Maybe Text
transitGatewayId :: Maybe Text
tagSpecifications :: Maybe [TagSpecification]
options :: Maybe VpnConnectionOptionsSpecification
dryRun :: Maybe Bool
$sel:type':CreateVpnConnection' :: CreateVpnConnection -> Text
$sel:customerGatewayId:CreateVpnConnection' :: CreateVpnConnection -> Text
$sel:vpnGatewayId:CreateVpnConnection' :: CreateVpnConnection -> Maybe Text
$sel:transitGatewayId:CreateVpnConnection' :: CreateVpnConnection -> Maybe Text
$sel:tagSpecifications:CreateVpnConnection' :: CreateVpnConnection -> Maybe [TagSpecification]
$sel:options:CreateVpnConnection' :: CreateVpnConnection -> Maybe VpnConnectionOptionsSpecification
$sel:dryRun:CreateVpnConnection' :: CreateVpnConnection -> Maybe Bool
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"Action"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"CreateVpnConnection" :: Prelude.ByteString),
ByteString
"Version"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"2016-11-15" :: Prelude.ByteString),
ByteString
"DryRun" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Bool
dryRun,
ByteString
"Options" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe VpnConnectionOptionsSpecification
options,
forall a. ToQuery a => a -> QueryString
Data.toQuery
( forall a.
(IsList a, ToQuery (Item a)) =>
ByteString -> a -> QueryString
Data.toQueryList ByteString
"TagSpecification"
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [TagSpecification]
tagSpecifications
),
ByteString
"TransitGatewayId" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
transitGatewayId,
ByteString
"VpnGatewayId" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
vpnGatewayId,
ByteString
"CustomerGatewayId" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Text
customerGatewayId,
ByteString
"Type" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Text
type'
]
data CreateVpnConnectionResponse = CreateVpnConnectionResponse'
{
CreateVpnConnectionResponse -> Maybe VpnConnection
vpnConnection :: Prelude.Maybe VpnConnection,
CreateVpnConnectionResponse -> Int
httpStatus :: Prelude.Int
}
deriving (CreateVpnConnectionResponse -> CreateVpnConnectionResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateVpnConnectionResponse -> CreateVpnConnectionResponse -> Bool
$c/= :: CreateVpnConnectionResponse -> CreateVpnConnectionResponse -> Bool
== :: CreateVpnConnectionResponse -> CreateVpnConnectionResponse -> Bool
$c== :: CreateVpnConnectionResponse -> CreateVpnConnectionResponse -> Bool
Prelude.Eq, ReadPrec [CreateVpnConnectionResponse]
ReadPrec CreateVpnConnectionResponse
Int -> ReadS CreateVpnConnectionResponse
ReadS [CreateVpnConnectionResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateVpnConnectionResponse]
$creadListPrec :: ReadPrec [CreateVpnConnectionResponse]
readPrec :: ReadPrec CreateVpnConnectionResponse
$creadPrec :: ReadPrec CreateVpnConnectionResponse
readList :: ReadS [CreateVpnConnectionResponse]
$creadList :: ReadS [CreateVpnConnectionResponse]
readsPrec :: Int -> ReadS CreateVpnConnectionResponse
$creadsPrec :: Int -> ReadS CreateVpnConnectionResponse
Prelude.Read, Int -> CreateVpnConnectionResponse -> ShowS
[CreateVpnConnectionResponse] -> ShowS
CreateVpnConnectionResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateVpnConnectionResponse] -> ShowS
$cshowList :: [CreateVpnConnectionResponse] -> ShowS
show :: CreateVpnConnectionResponse -> String
$cshow :: CreateVpnConnectionResponse -> String
showsPrec :: Int -> CreateVpnConnectionResponse -> ShowS
$cshowsPrec :: Int -> CreateVpnConnectionResponse -> ShowS
Prelude.Show, forall x.
Rep CreateVpnConnectionResponse x -> CreateVpnConnectionResponse
forall x.
CreateVpnConnectionResponse -> Rep CreateVpnConnectionResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep CreateVpnConnectionResponse x -> CreateVpnConnectionResponse
$cfrom :: forall x.
CreateVpnConnectionResponse -> Rep CreateVpnConnectionResponse x
Prelude.Generic)
newCreateVpnConnectionResponse ::
Prelude.Int ->
CreateVpnConnectionResponse
newCreateVpnConnectionResponse :: Int -> CreateVpnConnectionResponse
newCreateVpnConnectionResponse Int
pHttpStatus_ =
CreateVpnConnectionResponse'
{ $sel:vpnConnection:CreateVpnConnectionResponse' :: Maybe VpnConnection
vpnConnection =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:CreateVpnConnectionResponse' :: Int
httpStatus = Int
pHttpStatus_
}
createVpnConnectionResponse_vpnConnection :: Lens.Lens' CreateVpnConnectionResponse (Prelude.Maybe VpnConnection)
createVpnConnectionResponse_vpnConnection :: Lens' CreateVpnConnectionResponse (Maybe VpnConnection)
createVpnConnectionResponse_vpnConnection = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateVpnConnectionResponse' {Maybe VpnConnection
vpnConnection :: Maybe VpnConnection
$sel:vpnConnection:CreateVpnConnectionResponse' :: CreateVpnConnectionResponse -> Maybe VpnConnection
vpnConnection} -> Maybe VpnConnection
vpnConnection) (\s :: CreateVpnConnectionResponse
s@CreateVpnConnectionResponse' {} Maybe VpnConnection
a -> CreateVpnConnectionResponse
s {$sel:vpnConnection:CreateVpnConnectionResponse' :: Maybe VpnConnection
vpnConnection = Maybe VpnConnection
a} :: CreateVpnConnectionResponse)
createVpnConnectionResponse_httpStatus :: Lens.Lens' CreateVpnConnectionResponse Prelude.Int
createVpnConnectionResponse_httpStatus :: Lens' CreateVpnConnectionResponse Int
createVpnConnectionResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateVpnConnectionResponse' {Int
httpStatus :: Int
$sel:httpStatus:CreateVpnConnectionResponse' :: CreateVpnConnectionResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: CreateVpnConnectionResponse
s@CreateVpnConnectionResponse' {} Int
a -> CreateVpnConnectionResponse
s {$sel:httpStatus:CreateVpnConnectionResponse' :: Int
httpStatus = Int
a} :: CreateVpnConnectionResponse)
instance Prelude.NFData CreateVpnConnectionResponse where
rnf :: CreateVpnConnectionResponse -> ()
rnf CreateVpnConnectionResponse' {Int
Maybe VpnConnection
httpStatus :: Int
vpnConnection :: Maybe VpnConnection
$sel:httpStatus:CreateVpnConnectionResponse' :: CreateVpnConnectionResponse -> Int
$sel:vpnConnection:CreateVpnConnectionResponse' :: CreateVpnConnectionResponse -> Maybe VpnConnection
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe VpnConnection
vpnConnection
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus