{-# 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.SDB.DeleteDomain
(
deleteDomain
, DeleteDomain
, ddDomainName
, deleteDomainResponse
, DeleteDomainResponse
) where
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
import Network.AWS.SDB.Types
import Network.AWS.SDB.Types.Product
newtype DeleteDomain = DeleteDomain'
{ _ddDomainName :: Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
deleteDomain
:: Text
-> DeleteDomain
deleteDomain pDomainName_ =
DeleteDomain'
{ _ddDomainName = pDomainName_
}
ddDomainName :: Lens' DeleteDomain Text
ddDomainName = lens _ddDomainName (\ s a -> s{_ddDomainName = a});
instance AWSRequest DeleteDomain where
type Rs DeleteDomain = DeleteDomainResponse
request = postQuery sdb
response = receiveNull DeleteDomainResponse'
instance Hashable DeleteDomain
instance NFData DeleteDomain
instance ToHeaders DeleteDomain where
toHeaders = const mempty
instance ToPath DeleteDomain where
toPath = const "/"
instance ToQuery DeleteDomain where
toQuery DeleteDomain'{..}
= mconcat
["Action" =: ("DeleteDomain" :: ByteString),
"Version" =: ("2009-04-15" :: ByteString),
"DomainName" =: _ddDomainName]
data DeleteDomainResponse =
DeleteDomainResponse'
deriving (Eq,Read,Show,Data,Typeable,Generic)
deleteDomainResponse
:: DeleteDomainResponse
deleteDomainResponse = DeleteDomainResponse'
instance NFData DeleteDomainResponse