{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE TypeFamilies #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
module Network.AWS.APIGateway.DeleteVPCLink
(
deleteVPCLink
, DeleteVPCLink
, dvlVpcLinkId
, deleteVPCLinkResponse
, DeleteVPCLinkResponse
) where
import Network.AWS.APIGateway.Types
import Network.AWS.APIGateway.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
newtype DeleteVPCLink = DeleteVPCLink'
{ _dvlVpcLinkId :: Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteVPCLink
:: Text
-> DeleteVPCLink
deleteVPCLink pVpcLinkId_ = DeleteVPCLink' {_dvlVpcLinkId = pVpcLinkId_}
dvlVpcLinkId :: Lens' DeleteVPCLink Text
dvlVpcLinkId = lens _dvlVpcLinkId (\ s a -> s{_dvlVpcLinkId = a})
instance AWSRequest DeleteVPCLink where
type Rs DeleteVPCLink = DeleteVPCLinkResponse
request = delete apiGateway
response = receiveNull DeleteVPCLinkResponse'
instance Hashable DeleteVPCLink where
instance NFData DeleteVPCLink where
instance ToHeaders DeleteVPCLink where
toHeaders
= const
(mconcat
["Accept" =# ("application/json" :: ByteString)])
instance ToPath DeleteVPCLink where
toPath DeleteVPCLink'{..}
= mconcat ["/vpclinks/", toBS _dvlVpcLinkId]
instance ToQuery DeleteVPCLink where
toQuery = const mempty
data DeleteVPCLinkResponse =
DeleteVPCLinkResponse'
deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteVPCLinkResponse
:: DeleteVPCLinkResponse
deleteVPCLinkResponse = DeleteVPCLinkResponse'
instance NFData DeleteVPCLinkResponse where