{-# 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.DeleteDomainName
(
deleteDomainName
, DeleteDomainName
, ddnDomainName
, deleteDomainNameResponse
, DeleteDomainNameResponse
) 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 DeleteDomainName = DeleteDomainName'
{ _ddnDomainName :: Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
deleteDomainName
:: Text
-> DeleteDomainName
deleteDomainName pDomainName_ =
DeleteDomainName'
{ _ddnDomainName = pDomainName_
}
ddnDomainName :: Lens' DeleteDomainName Text
ddnDomainName = lens _ddnDomainName (\ s a -> s{_ddnDomainName = a});
instance AWSRequest DeleteDomainName where
type Rs DeleteDomainName = DeleteDomainNameResponse
request = delete apiGateway
response = receiveNull DeleteDomainNameResponse'
instance Hashable DeleteDomainName
instance NFData DeleteDomainName
instance ToHeaders DeleteDomainName where
toHeaders
= const
(mconcat
["Accept" =# ("application/json" :: ByteString)])
instance ToPath DeleteDomainName where
toPath DeleteDomainName'{..}
= mconcat ["/domainnames/", toBS _ddnDomainName]
instance ToQuery DeleteDomainName where
toQuery = const mempty
data DeleteDomainNameResponse =
DeleteDomainNameResponse'
deriving (Eq,Read,Show,Data,Typeable,Generic)
deleteDomainNameResponse
:: DeleteDomainNameResponse
deleteDomainNameResponse = DeleteDomainNameResponse'
instance NFData DeleteDomainNameResponse