{-# 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 where
instance NFData DeleteDomainName where
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 where