{-# 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.DirectConnect.ConfirmPrivateVirtualInterface
(
ConfirmPrivateVirtualInterface (..),
newConfirmPrivateVirtualInterface,
confirmPrivateVirtualInterface_directConnectGatewayId,
confirmPrivateVirtualInterface_virtualGatewayId,
confirmPrivateVirtualInterface_virtualInterfaceId,
ConfirmPrivateVirtualInterfaceResponse (..),
newConfirmPrivateVirtualInterfaceResponse,
confirmPrivateVirtualInterfaceResponse_virtualInterfaceState,
confirmPrivateVirtualInterfaceResponse_httpStatus,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.DirectConnect.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data ConfirmPrivateVirtualInterface = ConfirmPrivateVirtualInterface'
{
ConfirmPrivateVirtualInterface -> Maybe Text
directConnectGatewayId :: Prelude.Maybe Prelude.Text,
ConfirmPrivateVirtualInterface -> Maybe Text
virtualGatewayId :: Prelude.Maybe Prelude.Text,
ConfirmPrivateVirtualInterface -> Text
virtualInterfaceId :: Prelude.Text
}
deriving (ConfirmPrivateVirtualInterface
-> ConfirmPrivateVirtualInterface -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ConfirmPrivateVirtualInterface
-> ConfirmPrivateVirtualInterface -> Bool
$c/= :: ConfirmPrivateVirtualInterface
-> ConfirmPrivateVirtualInterface -> Bool
== :: ConfirmPrivateVirtualInterface
-> ConfirmPrivateVirtualInterface -> Bool
$c== :: ConfirmPrivateVirtualInterface
-> ConfirmPrivateVirtualInterface -> Bool
Prelude.Eq, ReadPrec [ConfirmPrivateVirtualInterface]
ReadPrec ConfirmPrivateVirtualInterface
Int -> ReadS ConfirmPrivateVirtualInterface
ReadS [ConfirmPrivateVirtualInterface]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ConfirmPrivateVirtualInterface]
$creadListPrec :: ReadPrec [ConfirmPrivateVirtualInterface]
readPrec :: ReadPrec ConfirmPrivateVirtualInterface
$creadPrec :: ReadPrec ConfirmPrivateVirtualInterface
readList :: ReadS [ConfirmPrivateVirtualInterface]
$creadList :: ReadS [ConfirmPrivateVirtualInterface]
readsPrec :: Int -> ReadS ConfirmPrivateVirtualInterface
$creadsPrec :: Int -> ReadS ConfirmPrivateVirtualInterface
Prelude.Read, Int -> ConfirmPrivateVirtualInterface -> ShowS
[ConfirmPrivateVirtualInterface] -> ShowS
ConfirmPrivateVirtualInterface -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ConfirmPrivateVirtualInterface] -> ShowS
$cshowList :: [ConfirmPrivateVirtualInterface] -> ShowS
show :: ConfirmPrivateVirtualInterface -> String
$cshow :: ConfirmPrivateVirtualInterface -> String
showsPrec :: Int -> ConfirmPrivateVirtualInterface -> ShowS
$cshowsPrec :: Int -> ConfirmPrivateVirtualInterface -> ShowS
Prelude.Show, forall x.
Rep ConfirmPrivateVirtualInterface x
-> ConfirmPrivateVirtualInterface
forall x.
ConfirmPrivateVirtualInterface
-> Rep ConfirmPrivateVirtualInterface x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep ConfirmPrivateVirtualInterface x
-> ConfirmPrivateVirtualInterface
$cfrom :: forall x.
ConfirmPrivateVirtualInterface
-> Rep ConfirmPrivateVirtualInterface x
Prelude.Generic)
newConfirmPrivateVirtualInterface ::
Prelude.Text ->
ConfirmPrivateVirtualInterface
newConfirmPrivateVirtualInterface :: Text -> ConfirmPrivateVirtualInterface
newConfirmPrivateVirtualInterface
Text
pVirtualInterfaceId_ =
ConfirmPrivateVirtualInterface'
{ $sel:directConnectGatewayId:ConfirmPrivateVirtualInterface' :: Maybe Text
directConnectGatewayId =
forall a. Maybe a
Prelude.Nothing,
$sel:virtualGatewayId:ConfirmPrivateVirtualInterface' :: Maybe Text
virtualGatewayId = forall a. Maybe a
Prelude.Nothing,
$sel:virtualInterfaceId:ConfirmPrivateVirtualInterface' :: Text
virtualInterfaceId = Text
pVirtualInterfaceId_
}
confirmPrivateVirtualInterface_directConnectGatewayId :: Lens.Lens' ConfirmPrivateVirtualInterface (Prelude.Maybe Prelude.Text)
confirmPrivateVirtualInterface_directConnectGatewayId :: Lens' ConfirmPrivateVirtualInterface (Maybe Text)
confirmPrivateVirtualInterface_directConnectGatewayId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ConfirmPrivateVirtualInterface' {Maybe Text
directConnectGatewayId :: Maybe Text
$sel:directConnectGatewayId:ConfirmPrivateVirtualInterface' :: ConfirmPrivateVirtualInterface -> Maybe Text
directConnectGatewayId} -> Maybe Text
directConnectGatewayId) (\s :: ConfirmPrivateVirtualInterface
s@ConfirmPrivateVirtualInterface' {} Maybe Text
a -> ConfirmPrivateVirtualInterface
s {$sel:directConnectGatewayId:ConfirmPrivateVirtualInterface' :: Maybe Text
directConnectGatewayId = Maybe Text
a} :: ConfirmPrivateVirtualInterface)
confirmPrivateVirtualInterface_virtualGatewayId :: Lens.Lens' ConfirmPrivateVirtualInterface (Prelude.Maybe Prelude.Text)
confirmPrivateVirtualInterface_virtualGatewayId :: Lens' ConfirmPrivateVirtualInterface (Maybe Text)
confirmPrivateVirtualInterface_virtualGatewayId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ConfirmPrivateVirtualInterface' {Maybe Text
virtualGatewayId :: Maybe Text
$sel:virtualGatewayId:ConfirmPrivateVirtualInterface' :: ConfirmPrivateVirtualInterface -> Maybe Text
virtualGatewayId} -> Maybe Text
virtualGatewayId) (\s :: ConfirmPrivateVirtualInterface
s@ConfirmPrivateVirtualInterface' {} Maybe Text
a -> ConfirmPrivateVirtualInterface
s {$sel:virtualGatewayId:ConfirmPrivateVirtualInterface' :: Maybe Text
virtualGatewayId = Maybe Text
a} :: ConfirmPrivateVirtualInterface)
confirmPrivateVirtualInterface_virtualInterfaceId :: Lens.Lens' ConfirmPrivateVirtualInterface Prelude.Text
confirmPrivateVirtualInterface_virtualInterfaceId :: Lens' ConfirmPrivateVirtualInterface Text
confirmPrivateVirtualInterface_virtualInterfaceId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ConfirmPrivateVirtualInterface' {Text
virtualInterfaceId :: Text
$sel:virtualInterfaceId:ConfirmPrivateVirtualInterface' :: ConfirmPrivateVirtualInterface -> Text
virtualInterfaceId} -> Text
virtualInterfaceId) (\s :: ConfirmPrivateVirtualInterface
s@ConfirmPrivateVirtualInterface' {} Text
a -> ConfirmPrivateVirtualInterface
s {$sel:virtualInterfaceId:ConfirmPrivateVirtualInterface' :: Text
virtualInterfaceId = Text
a} :: ConfirmPrivateVirtualInterface)
instance
Core.AWSRequest
ConfirmPrivateVirtualInterface
where
type
AWSResponse ConfirmPrivateVirtualInterface =
ConfirmPrivateVirtualInterfaceResponse
request :: (Service -> Service)
-> ConfirmPrivateVirtualInterface
-> Request ConfirmPrivateVirtualInterface
request Service -> Service
overrides =
forall a. (ToRequest a, ToJSON a) => Service -> a -> Request a
Request.postJSON (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy ConfirmPrivateVirtualInterface
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse (AWSResponse ConfirmPrivateVirtualInterface)))
response =
forall (m :: * -> *) a.
MonadResource m =>
(Int -> ResponseHeaders -> Object -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveJSON
( \Int
s ResponseHeaders
h Object
x ->
Maybe VirtualInterfaceState
-> Int -> ConfirmPrivateVirtualInterfaceResponse
ConfirmPrivateVirtualInterfaceResponse'
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"virtualInterfaceState")
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
ConfirmPrivateVirtualInterface
where
hashWithSalt :: Int -> ConfirmPrivateVirtualInterface -> Int
hashWithSalt
Int
_salt
ConfirmPrivateVirtualInterface' {Maybe Text
Text
virtualInterfaceId :: Text
virtualGatewayId :: Maybe Text
directConnectGatewayId :: Maybe Text
$sel:virtualInterfaceId:ConfirmPrivateVirtualInterface' :: ConfirmPrivateVirtualInterface -> Text
$sel:virtualGatewayId:ConfirmPrivateVirtualInterface' :: ConfirmPrivateVirtualInterface -> Maybe Text
$sel:directConnectGatewayId:ConfirmPrivateVirtualInterface' :: ConfirmPrivateVirtualInterface -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
directConnectGatewayId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
virtualGatewayId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
virtualInterfaceId
instance
Prelude.NFData
ConfirmPrivateVirtualInterface
where
rnf :: ConfirmPrivateVirtualInterface -> ()
rnf ConfirmPrivateVirtualInterface' {Maybe Text
Text
virtualInterfaceId :: Text
virtualGatewayId :: Maybe Text
directConnectGatewayId :: Maybe Text
$sel:virtualInterfaceId:ConfirmPrivateVirtualInterface' :: ConfirmPrivateVirtualInterface -> Text
$sel:virtualGatewayId:ConfirmPrivateVirtualInterface' :: ConfirmPrivateVirtualInterface -> Maybe Text
$sel:directConnectGatewayId:ConfirmPrivateVirtualInterface' :: ConfirmPrivateVirtualInterface -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
directConnectGatewayId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
virtualGatewayId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
virtualInterfaceId
instance
Data.ToHeaders
ConfirmPrivateVirtualInterface
where
toHeaders :: ConfirmPrivateVirtualInterface -> ResponseHeaders
toHeaders =
forall a b. a -> b -> a
Prelude.const
( forall a. Monoid a => [a] -> a
Prelude.mconcat
[ HeaderName
"X-Amz-Target"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"OvertureService.ConfirmPrivateVirtualInterface" ::
Prelude.ByteString
),
HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"application/x-amz-json-1.1" ::
Prelude.ByteString
)
]
)
instance Data.ToJSON ConfirmPrivateVirtualInterface where
toJSON :: ConfirmPrivateVirtualInterface -> Value
toJSON ConfirmPrivateVirtualInterface' {Maybe Text
Text
virtualInterfaceId :: Text
virtualGatewayId :: Maybe Text
directConnectGatewayId :: Maybe Text
$sel:virtualInterfaceId:ConfirmPrivateVirtualInterface' :: ConfirmPrivateVirtualInterface -> Text
$sel:virtualGatewayId:ConfirmPrivateVirtualInterface' :: ConfirmPrivateVirtualInterface -> Maybe Text
$sel:directConnectGatewayId:ConfirmPrivateVirtualInterface' :: ConfirmPrivateVirtualInterface -> Maybe Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"directConnectGatewayId" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
directConnectGatewayId,
(Key
"virtualGatewayId" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
virtualGatewayId,
forall a. a -> Maybe a
Prelude.Just
(Key
"virtualInterfaceId" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
virtualInterfaceId)
]
)
instance Data.ToPath ConfirmPrivateVirtualInterface where
toPath :: ConfirmPrivateVirtualInterface -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery ConfirmPrivateVirtualInterface where
toQuery :: ConfirmPrivateVirtualInterface -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data ConfirmPrivateVirtualInterfaceResponse = ConfirmPrivateVirtualInterfaceResponse'
{
ConfirmPrivateVirtualInterfaceResponse
-> Maybe VirtualInterfaceState
virtualInterfaceState :: Prelude.Maybe VirtualInterfaceState,
ConfirmPrivateVirtualInterfaceResponse -> Int
httpStatus :: Prelude.Int
}
deriving (ConfirmPrivateVirtualInterfaceResponse
-> ConfirmPrivateVirtualInterfaceResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ConfirmPrivateVirtualInterfaceResponse
-> ConfirmPrivateVirtualInterfaceResponse -> Bool
$c/= :: ConfirmPrivateVirtualInterfaceResponse
-> ConfirmPrivateVirtualInterfaceResponse -> Bool
== :: ConfirmPrivateVirtualInterfaceResponse
-> ConfirmPrivateVirtualInterfaceResponse -> Bool
$c== :: ConfirmPrivateVirtualInterfaceResponse
-> ConfirmPrivateVirtualInterfaceResponse -> Bool
Prelude.Eq, ReadPrec [ConfirmPrivateVirtualInterfaceResponse]
ReadPrec ConfirmPrivateVirtualInterfaceResponse
Int -> ReadS ConfirmPrivateVirtualInterfaceResponse
ReadS [ConfirmPrivateVirtualInterfaceResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ConfirmPrivateVirtualInterfaceResponse]
$creadListPrec :: ReadPrec [ConfirmPrivateVirtualInterfaceResponse]
readPrec :: ReadPrec ConfirmPrivateVirtualInterfaceResponse
$creadPrec :: ReadPrec ConfirmPrivateVirtualInterfaceResponse
readList :: ReadS [ConfirmPrivateVirtualInterfaceResponse]
$creadList :: ReadS [ConfirmPrivateVirtualInterfaceResponse]
readsPrec :: Int -> ReadS ConfirmPrivateVirtualInterfaceResponse
$creadsPrec :: Int -> ReadS ConfirmPrivateVirtualInterfaceResponse
Prelude.Read, Int -> ConfirmPrivateVirtualInterfaceResponse -> ShowS
[ConfirmPrivateVirtualInterfaceResponse] -> ShowS
ConfirmPrivateVirtualInterfaceResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ConfirmPrivateVirtualInterfaceResponse] -> ShowS
$cshowList :: [ConfirmPrivateVirtualInterfaceResponse] -> ShowS
show :: ConfirmPrivateVirtualInterfaceResponse -> String
$cshow :: ConfirmPrivateVirtualInterfaceResponse -> String
showsPrec :: Int -> ConfirmPrivateVirtualInterfaceResponse -> ShowS
$cshowsPrec :: Int -> ConfirmPrivateVirtualInterfaceResponse -> ShowS
Prelude.Show, forall x.
Rep ConfirmPrivateVirtualInterfaceResponse x
-> ConfirmPrivateVirtualInterfaceResponse
forall x.
ConfirmPrivateVirtualInterfaceResponse
-> Rep ConfirmPrivateVirtualInterfaceResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep ConfirmPrivateVirtualInterfaceResponse x
-> ConfirmPrivateVirtualInterfaceResponse
$cfrom :: forall x.
ConfirmPrivateVirtualInterfaceResponse
-> Rep ConfirmPrivateVirtualInterfaceResponse x
Prelude.Generic)
newConfirmPrivateVirtualInterfaceResponse ::
Prelude.Int ->
ConfirmPrivateVirtualInterfaceResponse
newConfirmPrivateVirtualInterfaceResponse :: Int -> ConfirmPrivateVirtualInterfaceResponse
newConfirmPrivateVirtualInterfaceResponse
Int
pHttpStatus_ =
ConfirmPrivateVirtualInterfaceResponse'
{ $sel:virtualInterfaceState:ConfirmPrivateVirtualInterfaceResponse' :: Maybe VirtualInterfaceState
virtualInterfaceState =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:ConfirmPrivateVirtualInterfaceResponse' :: Int
httpStatus = Int
pHttpStatus_
}
confirmPrivateVirtualInterfaceResponse_virtualInterfaceState :: Lens.Lens' ConfirmPrivateVirtualInterfaceResponse (Prelude.Maybe VirtualInterfaceState)
confirmPrivateVirtualInterfaceResponse_virtualInterfaceState :: Lens'
ConfirmPrivateVirtualInterfaceResponse
(Maybe VirtualInterfaceState)
confirmPrivateVirtualInterfaceResponse_virtualInterfaceState = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ConfirmPrivateVirtualInterfaceResponse' {Maybe VirtualInterfaceState
virtualInterfaceState :: Maybe VirtualInterfaceState
$sel:virtualInterfaceState:ConfirmPrivateVirtualInterfaceResponse' :: ConfirmPrivateVirtualInterfaceResponse
-> Maybe VirtualInterfaceState
virtualInterfaceState} -> Maybe VirtualInterfaceState
virtualInterfaceState) (\s :: ConfirmPrivateVirtualInterfaceResponse
s@ConfirmPrivateVirtualInterfaceResponse' {} Maybe VirtualInterfaceState
a -> ConfirmPrivateVirtualInterfaceResponse
s {$sel:virtualInterfaceState:ConfirmPrivateVirtualInterfaceResponse' :: Maybe VirtualInterfaceState
virtualInterfaceState = Maybe VirtualInterfaceState
a} :: ConfirmPrivateVirtualInterfaceResponse)
confirmPrivateVirtualInterfaceResponse_httpStatus :: Lens.Lens' ConfirmPrivateVirtualInterfaceResponse Prelude.Int
confirmPrivateVirtualInterfaceResponse_httpStatus :: Lens' ConfirmPrivateVirtualInterfaceResponse Int
confirmPrivateVirtualInterfaceResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ConfirmPrivateVirtualInterfaceResponse' {Int
httpStatus :: Int
$sel:httpStatus:ConfirmPrivateVirtualInterfaceResponse' :: ConfirmPrivateVirtualInterfaceResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: ConfirmPrivateVirtualInterfaceResponse
s@ConfirmPrivateVirtualInterfaceResponse' {} Int
a -> ConfirmPrivateVirtualInterfaceResponse
s {$sel:httpStatus:ConfirmPrivateVirtualInterfaceResponse' :: Int
httpStatus = Int
a} :: ConfirmPrivateVirtualInterfaceResponse)
instance
Prelude.NFData
ConfirmPrivateVirtualInterfaceResponse
where
rnf :: ConfirmPrivateVirtualInterfaceResponse -> ()
rnf ConfirmPrivateVirtualInterfaceResponse' {Int
Maybe VirtualInterfaceState
httpStatus :: Int
virtualInterfaceState :: Maybe VirtualInterfaceState
$sel:httpStatus:ConfirmPrivateVirtualInterfaceResponse' :: ConfirmPrivateVirtualInterfaceResponse -> Int
$sel:virtualInterfaceState:ConfirmPrivateVirtualInterfaceResponse' :: ConfirmPrivateVirtualInterfaceResponse
-> Maybe VirtualInterfaceState
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe VirtualInterfaceState
virtualInterfaceState
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus