module Network.AWS.DirectConnect.ConfirmPublicVirtualInterface
(
ConfirmPublicVirtualInterface
, confirmPublicVirtualInterface
, cpvi1VirtualInterfaceId
, ConfirmPublicVirtualInterfaceResponse
, confirmPublicVirtualInterfaceResponse
, cpvir3VirtualInterfaceState
) where
import Network.AWS.Prelude
import Network.AWS.Request.JSON
import Network.AWS.DirectConnect.Types
import qualified GHC.Exts
newtype ConfirmPublicVirtualInterface = ConfirmPublicVirtualInterface
{ _cpvi1VirtualInterfaceId :: Text
} deriving (Eq, Ord, Read, Show, Monoid, IsString)
confirmPublicVirtualInterface :: Text
-> ConfirmPublicVirtualInterface
confirmPublicVirtualInterface p1 = ConfirmPublicVirtualInterface
{ _cpvi1VirtualInterfaceId = p1
}
cpvi1VirtualInterfaceId :: Lens' ConfirmPublicVirtualInterface Text
cpvi1VirtualInterfaceId =
lens _cpvi1VirtualInterfaceId (\s a -> s { _cpvi1VirtualInterfaceId = a })
newtype ConfirmPublicVirtualInterfaceResponse = ConfirmPublicVirtualInterfaceResponse
{ _cpvir3VirtualInterfaceState :: Maybe VirtualInterfaceState
} deriving (Eq, Read, Show)
confirmPublicVirtualInterfaceResponse :: ConfirmPublicVirtualInterfaceResponse
confirmPublicVirtualInterfaceResponse = ConfirmPublicVirtualInterfaceResponse
{ _cpvir3VirtualInterfaceState = Nothing
}
cpvir3VirtualInterfaceState :: Lens' ConfirmPublicVirtualInterfaceResponse (Maybe VirtualInterfaceState)
cpvir3VirtualInterfaceState =
lens _cpvir3VirtualInterfaceState
(\s a -> s { _cpvir3VirtualInterfaceState = a })
instance ToPath ConfirmPublicVirtualInterface where
toPath = const "/"
instance ToQuery ConfirmPublicVirtualInterface where
toQuery = const mempty
instance ToHeaders ConfirmPublicVirtualInterface
instance ToJSON ConfirmPublicVirtualInterface where
toJSON ConfirmPublicVirtualInterface{..} = object
[ "virtualInterfaceId" .= _cpvi1VirtualInterfaceId
]
instance AWSRequest ConfirmPublicVirtualInterface where
type Sv ConfirmPublicVirtualInterface = DirectConnect
type Rs ConfirmPublicVirtualInterface = ConfirmPublicVirtualInterfaceResponse
request = post "ConfirmPublicVirtualInterface"
response = jsonResponse
instance FromJSON ConfirmPublicVirtualInterfaceResponse where
parseJSON = withObject "ConfirmPublicVirtualInterfaceResponse" $ \o -> ConfirmPublicVirtualInterfaceResponse
<$> o .:? "virtualInterfaceState"