module Network.AWS.DirectConnect.CreatePublicVirtualInterface
(
createPublicVirtualInterface
, CreatePublicVirtualInterface
, cpviConnectionId
, cpviNewPublicVirtualInterface
, virtualInterface
, VirtualInterface
, viVirtualGatewayId
, viRouteFilterPrefixes
, viCustomerAddress
, viVlan
, viLocation
, viAmazonAddress
, viVirtualInterfaceState
, viConnectionId
, viVirtualInterfaceType
, viAsn
, viAuthKey
, viCustomerRouterConfig
, viOwnerAccount
, viVirtualInterfaceName
, viVirtualInterfaceId
) where
import Network.AWS.DirectConnect.Types
import Network.AWS.DirectConnect.Types.Product
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data CreatePublicVirtualInterface = CreatePublicVirtualInterface'
{ _cpviConnectionId :: !Text
, _cpviNewPublicVirtualInterface :: !NewPublicVirtualInterface
} deriving (Eq,Read,Show,Data,Typeable,Generic)
createPublicVirtualInterface
:: Text
-> NewPublicVirtualInterface
-> CreatePublicVirtualInterface
createPublicVirtualInterface pConnectionId_ pNewPublicVirtualInterface_ =
CreatePublicVirtualInterface'
{ _cpviConnectionId = pConnectionId_
, _cpviNewPublicVirtualInterface = pNewPublicVirtualInterface_
}
cpviConnectionId :: Lens' CreatePublicVirtualInterface Text
cpviConnectionId = lens _cpviConnectionId (\ s a -> s{_cpviConnectionId = a});
cpviNewPublicVirtualInterface :: Lens' CreatePublicVirtualInterface NewPublicVirtualInterface
cpviNewPublicVirtualInterface = lens _cpviNewPublicVirtualInterface (\ s a -> s{_cpviNewPublicVirtualInterface = a});
instance AWSRequest CreatePublicVirtualInterface
where
type Rs CreatePublicVirtualInterface =
VirtualInterface
request = postJSON directConnect
response = receiveJSON (\ s h x -> eitherParseJSON x)
instance ToHeaders CreatePublicVirtualInterface where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("OvertureService.CreatePublicVirtualInterface" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON CreatePublicVirtualInterface where
toJSON CreatePublicVirtualInterface'{..}
= object
(catMaybes
[Just ("connectionId" .= _cpviConnectionId),
Just
("newPublicVirtualInterface" .=
_cpviNewPublicVirtualInterface)])
instance ToPath CreatePublicVirtualInterface where
toPath = const "/"
instance ToQuery CreatePublicVirtualInterface where
toQuery = const mempty