module Network.AWS.DirectConnect.ConfirmPrivateVirtualInterface
(
ConfirmPrivateVirtualInterface
, confirmPrivateVirtualInterface
, cpviVirtualGatewayId
, cpviVirtualInterfaceId
, ConfirmPrivateVirtualInterfaceResponse
, confirmPrivateVirtualInterfaceResponse
, cpvir1VirtualInterfaceState
) where
import Network.AWS.Prelude
import Network.AWS.Request.JSON
import Network.AWS.DirectConnect.Types
import qualified GHC.Exts
data ConfirmPrivateVirtualInterface = ConfirmPrivateVirtualInterface
{ _cpviVirtualGatewayId :: Text
, _cpviVirtualInterfaceId :: Text
} deriving (Eq, Ord, Read, Show)
confirmPrivateVirtualInterface :: Text
-> Text
-> ConfirmPrivateVirtualInterface
confirmPrivateVirtualInterface p1 p2 = ConfirmPrivateVirtualInterface
{ _cpviVirtualInterfaceId = p1
, _cpviVirtualGatewayId = p2
}
cpviVirtualGatewayId :: Lens' ConfirmPrivateVirtualInterface Text
cpviVirtualGatewayId =
lens _cpviVirtualGatewayId (\s a -> s { _cpviVirtualGatewayId = a })
cpviVirtualInterfaceId :: Lens' ConfirmPrivateVirtualInterface Text
cpviVirtualInterfaceId =
lens _cpviVirtualInterfaceId (\s a -> s { _cpviVirtualInterfaceId = a })
newtype ConfirmPrivateVirtualInterfaceResponse = ConfirmPrivateVirtualInterfaceResponse
{ _cpvir1VirtualInterfaceState :: Maybe VirtualInterfaceState
} deriving (Eq, Read, Show)
confirmPrivateVirtualInterfaceResponse :: ConfirmPrivateVirtualInterfaceResponse
confirmPrivateVirtualInterfaceResponse = ConfirmPrivateVirtualInterfaceResponse
{ _cpvir1VirtualInterfaceState = Nothing
}
cpvir1VirtualInterfaceState :: Lens' ConfirmPrivateVirtualInterfaceResponse (Maybe VirtualInterfaceState)
cpvir1VirtualInterfaceState =
lens _cpvir1VirtualInterfaceState
(\s a -> s { _cpvir1VirtualInterfaceState = a })
instance ToPath ConfirmPrivateVirtualInterface where
toPath = const "/"
instance ToQuery ConfirmPrivateVirtualInterface where
toQuery = const mempty
instance ToHeaders ConfirmPrivateVirtualInterface
instance ToJSON ConfirmPrivateVirtualInterface where
toJSON ConfirmPrivateVirtualInterface{..} = object
[ "virtualInterfaceId" .= _cpviVirtualInterfaceId
, "virtualGatewayId" .= _cpviVirtualGatewayId
]
instance AWSRequest ConfirmPrivateVirtualInterface where
type Sv ConfirmPrivateVirtualInterface = DirectConnect
type Rs ConfirmPrivateVirtualInterface = ConfirmPrivateVirtualInterfaceResponse
request = post "ConfirmPrivateVirtualInterface"
response = jsonResponse
instance FromJSON ConfirmPrivateVirtualInterfaceResponse where
parseJSON = withObject "ConfirmPrivateVirtualInterfaceResponse" $ \o -> ConfirmPrivateVirtualInterfaceResponse
<$> o .:? "virtualInterfaceState"