{-# 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.ConfirmTransitVirtualInterface
(
ConfirmTransitVirtualInterface (..),
newConfirmTransitVirtualInterface,
confirmTransitVirtualInterface_virtualInterfaceId,
confirmTransitVirtualInterface_directConnectGatewayId,
ConfirmTransitVirtualInterfaceResponse (..),
newConfirmTransitVirtualInterfaceResponse,
confirmTransitVirtualInterfaceResponse_virtualInterfaceState,
confirmTransitVirtualInterfaceResponse_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 ConfirmTransitVirtualInterface = ConfirmTransitVirtualInterface'
{
ConfirmTransitVirtualInterface -> Text
virtualInterfaceId :: Prelude.Text,
ConfirmTransitVirtualInterface -> Text
directConnectGatewayId :: Prelude.Text
}
deriving (ConfirmTransitVirtualInterface
-> ConfirmTransitVirtualInterface -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ConfirmTransitVirtualInterface
-> ConfirmTransitVirtualInterface -> Bool
$c/= :: ConfirmTransitVirtualInterface
-> ConfirmTransitVirtualInterface -> Bool
== :: ConfirmTransitVirtualInterface
-> ConfirmTransitVirtualInterface -> Bool
$c== :: ConfirmTransitVirtualInterface
-> ConfirmTransitVirtualInterface -> Bool
Prelude.Eq, ReadPrec [ConfirmTransitVirtualInterface]
ReadPrec ConfirmTransitVirtualInterface
Int -> ReadS ConfirmTransitVirtualInterface
ReadS [ConfirmTransitVirtualInterface]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ConfirmTransitVirtualInterface]
$creadListPrec :: ReadPrec [ConfirmTransitVirtualInterface]
readPrec :: ReadPrec ConfirmTransitVirtualInterface
$creadPrec :: ReadPrec ConfirmTransitVirtualInterface
readList :: ReadS [ConfirmTransitVirtualInterface]
$creadList :: ReadS [ConfirmTransitVirtualInterface]
readsPrec :: Int -> ReadS ConfirmTransitVirtualInterface
$creadsPrec :: Int -> ReadS ConfirmTransitVirtualInterface
Prelude.Read, Int -> ConfirmTransitVirtualInterface -> ShowS
[ConfirmTransitVirtualInterface] -> ShowS
ConfirmTransitVirtualInterface -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ConfirmTransitVirtualInterface] -> ShowS
$cshowList :: [ConfirmTransitVirtualInterface] -> ShowS
show :: ConfirmTransitVirtualInterface -> String
$cshow :: ConfirmTransitVirtualInterface -> String
showsPrec :: Int -> ConfirmTransitVirtualInterface -> ShowS
$cshowsPrec :: Int -> ConfirmTransitVirtualInterface -> ShowS
Prelude.Show, forall x.
Rep ConfirmTransitVirtualInterface x
-> ConfirmTransitVirtualInterface
forall x.
ConfirmTransitVirtualInterface
-> Rep ConfirmTransitVirtualInterface x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep ConfirmTransitVirtualInterface x
-> ConfirmTransitVirtualInterface
$cfrom :: forall x.
ConfirmTransitVirtualInterface
-> Rep ConfirmTransitVirtualInterface x
Prelude.Generic)
newConfirmTransitVirtualInterface ::
Prelude.Text ->
Prelude.Text ->
ConfirmTransitVirtualInterface
newConfirmTransitVirtualInterface :: Text -> Text -> ConfirmTransitVirtualInterface
newConfirmTransitVirtualInterface
Text
pVirtualInterfaceId_
Text
pDirectConnectGatewayId_ =
ConfirmTransitVirtualInterface'
{ $sel:virtualInterfaceId:ConfirmTransitVirtualInterface' :: Text
virtualInterfaceId =
Text
pVirtualInterfaceId_,
$sel:directConnectGatewayId:ConfirmTransitVirtualInterface' :: Text
directConnectGatewayId =
Text
pDirectConnectGatewayId_
}
confirmTransitVirtualInterface_virtualInterfaceId :: Lens.Lens' ConfirmTransitVirtualInterface Prelude.Text
confirmTransitVirtualInterface_virtualInterfaceId :: Lens' ConfirmTransitVirtualInterface Text
confirmTransitVirtualInterface_virtualInterfaceId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ConfirmTransitVirtualInterface' {Text
virtualInterfaceId :: Text
$sel:virtualInterfaceId:ConfirmTransitVirtualInterface' :: ConfirmTransitVirtualInterface -> Text
virtualInterfaceId} -> Text
virtualInterfaceId) (\s :: ConfirmTransitVirtualInterface
s@ConfirmTransitVirtualInterface' {} Text
a -> ConfirmTransitVirtualInterface
s {$sel:virtualInterfaceId:ConfirmTransitVirtualInterface' :: Text
virtualInterfaceId = Text
a} :: ConfirmTransitVirtualInterface)
confirmTransitVirtualInterface_directConnectGatewayId :: Lens.Lens' ConfirmTransitVirtualInterface Prelude.Text
confirmTransitVirtualInterface_directConnectGatewayId :: Lens' ConfirmTransitVirtualInterface Text
confirmTransitVirtualInterface_directConnectGatewayId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ConfirmTransitVirtualInterface' {Text
directConnectGatewayId :: Text
$sel:directConnectGatewayId:ConfirmTransitVirtualInterface' :: ConfirmTransitVirtualInterface -> Text
directConnectGatewayId} -> Text
directConnectGatewayId) (\s :: ConfirmTransitVirtualInterface
s@ConfirmTransitVirtualInterface' {} Text
a -> ConfirmTransitVirtualInterface
s {$sel:directConnectGatewayId:ConfirmTransitVirtualInterface' :: Text
directConnectGatewayId = Text
a} :: ConfirmTransitVirtualInterface)
instance
Core.AWSRequest
ConfirmTransitVirtualInterface
where
type
AWSResponse ConfirmTransitVirtualInterface =
ConfirmTransitVirtualInterfaceResponse
request :: (Service -> Service)
-> ConfirmTransitVirtualInterface
-> Request ConfirmTransitVirtualInterface
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 ConfirmTransitVirtualInterface
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse (AWSResponse ConfirmTransitVirtualInterface)))
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 -> ConfirmTransitVirtualInterfaceResponse
ConfirmTransitVirtualInterfaceResponse'
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
ConfirmTransitVirtualInterface
where
hashWithSalt :: Int -> ConfirmTransitVirtualInterface -> Int
hashWithSalt
Int
_salt
ConfirmTransitVirtualInterface' {Text
directConnectGatewayId :: Text
virtualInterfaceId :: Text
$sel:directConnectGatewayId:ConfirmTransitVirtualInterface' :: ConfirmTransitVirtualInterface -> Text
$sel:virtualInterfaceId:ConfirmTransitVirtualInterface' :: ConfirmTransitVirtualInterface -> Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
virtualInterfaceId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
directConnectGatewayId
instance
Prelude.NFData
ConfirmTransitVirtualInterface
where
rnf :: ConfirmTransitVirtualInterface -> ()
rnf ConfirmTransitVirtualInterface' {Text
directConnectGatewayId :: Text
virtualInterfaceId :: Text
$sel:directConnectGatewayId:ConfirmTransitVirtualInterface' :: ConfirmTransitVirtualInterface -> Text
$sel:virtualInterfaceId:ConfirmTransitVirtualInterface' :: ConfirmTransitVirtualInterface -> Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Text
virtualInterfaceId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
directConnectGatewayId
instance
Data.ToHeaders
ConfirmTransitVirtualInterface
where
toHeaders :: ConfirmTransitVirtualInterface -> 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.ConfirmTransitVirtualInterface" ::
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 ConfirmTransitVirtualInterface where
toJSON :: ConfirmTransitVirtualInterface -> Value
toJSON ConfirmTransitVirtualInterface' {Text
directConnectGatewayId :: Text
virtualInterfaceId :: Text
$sel:directConnectGatewayId:ConfirmTransitVirtualInterface' :: ConfirmTransitVirtualInterface -> Text
$sel:virtualInterfaceId:ConfirmTransitVirtualInterface' :: ConfirmTransitVirtualInterface -> Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ forall a. a -> Maybe a
Prelude.Just
(Key
"virtualInterfaceId" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
virtualInterfaceId),
forall a. a -> Maybe a
Prelude.Just
( Key
"directConnectGatewayId"
forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
directConnectGatewayId
)
]
)
instance Data.ToPath ConfirmTransitVirtualInterface where
toPath :: ConfirmTransitVirtualInterface -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery ConfirmTransitVirtualInterface where
toQuery :: ConfirmTransitVirtualInterface -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data ConfirmTransitVirtualInterfaceResponse = ConfirmTransitVirtualInterfaceResponse'
{
ConfirmTransitVirtualInterfaceResponse
-> Maybe VirtualInterfaceState
virtualInterfaceState :: Prelude.Maybe VirtualInterfaceState,
ConfirmTransitVirtualInterfaceResponse -> Int
httpStatus :: Prelude.Int
}
deriving (ConfirmTransitVirtualInterfaceResponse
-> ConfirmTransitVirtualInterfaceResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ConfirmTransitVirtualInterfaceResponse
-> ConfirmTransitVirtualInterfaceResponse -> Bool
$c/= :: ConfirmTransitVirtualInterfaceResponse
-> ConfirmTransitVirtualInterfaceResponse -> Bool
== :: ConfirmTransitVirtualInterfaceResponse
-> ConfirmTransitVirtualInterfaceResponse -> Bool
$c== :: ConfirmTransitVirtualInterfaceResponse
-> ConfirmTransitVirtualInterfaceResponse -> Bool
Prelude.Eq, ReadPrec [ConfirmTransitVirtualInterfaceResponse]
ReadPrec ConfirmTransitVirtualInterfaceResponse
Int -> ReadS ConfirmTransitVirtualInterfaceResponse
ReadS [ConfirmTransitVirtualInterfaceResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ConfirmTransitVirtualInterfaceResponse]
$creadListPrec :: ReadPrec [ConfirmTransitVirtualInterfaceResponse]
readPrec :: ReadPrec ConfirmTransitVirtualInterfaceResponse
$creadPrec :: ReadPrec ConfirmTransitVirtualInterfaceResponse
readList :: ReadS [ConfirmTransitVirtualInterfaceResponse]
$creadList :: ReadS [ConfirmTransitVirtualInterfaceResponse]
readsPrec :: Int -> ReadS ConfirmTransitVirtualInterfaceResponse
$creadsPrec :: Int -> ReadS ConfirmTransitVirtualInterfaceResponse
Prelude.Read, Int -> ConfirmTransitVirtualInterfaceResponse -> ShowS
[ConfirmTransitVirtualInterfaceResponse] -> ShowS
ConfirmTransitVirtualInterfaceResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ConfirmTransitVirtualInterfaceResponse] -> ShowS
$cshowList :: [ConfirmTransitVirtualInterfaceResponse] -> ShowS
show :: ConfirmTransitVirtualInterfaceResponse -> String
$cshow :: ConfirmTransitVirtualInterfaceResponse -> String
showsPrec :: Int -> ConfirmTransitVirtualInterfaceResponse -> ShowS
$cshowsPrec :: Int -> ConfirmTransitVirtualInterfaceResponse -> ShowS
Prelude.Show, forall x.
Rep ConfirmTransitVirtualInterfaceResponse x
-> ConfirmTransitVirtualInterfaceResponse
forall x.
ConfirmTransitVirtualInterfaceResponse
-> Rep ConfirmTransitVirtualInterfaceResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep ConfirmTransitVirtualInterfaceResponse x
-> ConfirmTransitVirtualInterfaceResponse
$cfrom :: forall x.
ConfirmTransitVirtualInterfaceResponse
-> Rep ConfirmTransitVirtualInterfaceResponse x
Prelude.Generic)
newConfirmTransitVirtualInterfaceResponse ::
Prelude.Int ->
ConfirmTransitVirtualInterfaceResponse
newConfirmTransitVirtualInterfaceResponse :: Int -> ConfirmTransitVirtualInterfaceResponse
newConfirmTransitVirtualInterfaceResponse
Int
pHttpStatus_ =
ConfirmTransitVirtualInterfaceResponse'
{ $sel:virtualInterfaceState:ConfirmTransitVirtualInterfaceResponse' :: Maybe VirtualInterfaceState
virtualInterfaceState =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:ConfirmTransitVirtualInterfaceResponse' :: Int
httpStatus = Int
pHttpStatus_
}
confirmTransitVirtualInterfaceResponse_virtualInterfaceState :: Lens.Lens' ConfirmTransitVirtualInterfaceResponse (Prelude.Maybe VirtualInterfaceState)
confirmTransitVirtualInterfaceResponse_virtualInterfaceState :: Lens'
ConfirmTransitVirtualInterfaceResponse
(Maybe VirtualInterfaceState)
confirmTransitVirtualInterfaceResponse_virtualInterfaceState = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ConfirmTransitVirtualInterfaceResponse' {Maybe VirtualInterfaceState
virtualInterfaceState :: Maybe VirtualInterfaceState
$sel:virtualInterfaceState:ConfirmTransitVirtualInterfaceResponse' :: ConfirmTransitVirtualInterfaceResponse
-> Maybe VirtualInterfaceState
virtualInterfaceState} -> Maybe VirtualInterfaceState
virtualInterfaceState) (\s :: ConfirmTransitVirtualInterfaceResponse
s@ConfirmTransitVirtualInterfaceResponse' {} Maybe VirtualInterfaceState
a -> ConfirmTransitVirtualInterfaceResponse
s {$sel:virtualInterfaceState:ConfirmTransitVirtualInterfaceResponse' :: Maybe VirtualInterfaceState
virtualInterfaceState = Maybe VirtualInterfaceState
a} :: ConfirmTransitVirtualInterfaceResponse)
confirmTransitVirtualInterfaceResponse_httpStatus :: Lens.Lens' ConfirmTransitVirtualInterfaceResponse Prelude.Int
confirmTransitVirtualInterfaceResponse_httpStatus :: Lens' ConfirmTransitVirtualInterfaceResponse Int
confirmTransitVirtualInterfaceResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ConfirmTransitVirtualInterfaceResponse' {Int
httpStatus :: Int
$sel:httpStatus:ConfirmTransitVirtualInterfaceResponse' :: ConfirmTransitVirtualInterfaceResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: ConfirmTransitVirtualInterfaceResponse
s@ConfirmTransitVirtualInterfaceResponse' {} Int
a -> ConfirmTransitVirtualInterfaceResponse
s {$sel:httpStatus:ConfirmTransitVirtualInterfaceResponse' :: Int
httpStatus = Int
a} :: ConfirmTransitVirtualInterfaceResponse)
instance
Prelude.NFData
ConfirmTransitVirtualInterfaceResponse
where
rnf :: ConfirmTransitVirtualInterfaceResponse -> ()
rnf ConfirmTransitVirtualInterfaceResponse' {Int
Maybe VirtualInterfaceState
httpStatus :: Int
virtualInterfaceState :: Maybe VirtualInterfaceState
$sel:httpStatus:ConfirmTransitVirtualInterfaceResponse' :: ConfirmTransitVirtualInterfaceResponse -> Int
$sel:virtualInterfaceState:ConfirmTransitVirtualInterfaceResponse' :: ConfirmTransitVirtualInterfaceResponse
-> 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