module Network.AWS.CloudSearch.DeleteSuggester
(
deleteSuggester
, DeleteSuggester
, ddDomainName
, ddSuggesterName
, deleteSuggesterResponse
, DeleteSuggesterResponse
, delersResponseStatus
, delersSuggester
) where
import Network.AWS.CloudSearch.Types
import Network.AWS.CloudSearch.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data DeleteSuggester = DeleteSuggester'
{ _ddDomainName :: !Text
, _ddSuggesterName :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
deleteSuggester
:: Text
-> Text
-> DeleteSuggester
deleteSuggester pDomainName_ pSuggesterName_ =
DeleteSuggester'
{ _ddDomainName = pDomainName_
, _ddSuggesterName = pSuggesterName_
}
ddDomainName :: Lens' DeleteSuggester Text
ddDomainName = lens _ddDomainName (\ s a -> s{_ddDomainName = a});
ddSuggesterName :: Lens' DeleteSuggester Text
ddSuggesterName = lens _ddSuggesterName (\ s a -> s{_ddSuggesterName = a});
instance AWSRequest DeleteSuggester where
type Rs DeleteSuggester = DeleteSuggesterResponse
request = postQuery cloudSearch
response
= receiveXMLWrapper "DeleteSuggesterResult"
(\ s h x ->
DeleteSuggesterResponse' <$>
(pure (fromEnum s)) <*> (x .@ "Suggester"))
instance Hashable DeleteSuggester
instance NFData DeleteSuggester
instance ToHeaders DeleteSuggester where
toHeaders = const mempty
instance ToPath DeleteSuggester where
toPath = const "/"
instance ToQuery DeleteSuggester where
toQuery DeleteSuggester'{..}
= mconcat
["Action" =: ("DeleteSuggester" :: ByteString),
"Version" =: ("2013-01-01" :: ByteString),
"DomainName" =: _ddDomainName,
"SuggesterName" =: _ddSuggesterName]
data DeleteSuggesterResponse = DeleteSuggesterResponse'
{ _delersResponseStatus :: !Int
, _delersSuggester :: !SuggesterStatus
} deriving (Eq,Read,Show,Data,Typeable,Generic)
deleteSuggesterResponse
:: Int
-> SuggesterStatus
-> DeleteSuggesterResponse
deleteSuggesterResponse pResponseStatus_ pSuggester_ =
DeleteSuggesterResponse'
{ _delersResponseStatus = pResponseStatus_
, _delersSuggester = pSuggester_
}
delersResponseStatus :: Lens' DeleteSuggesterResponse Int
delersResponseStatus = lens _delersResponseStatus (\ s a -> s{_delersResponseStatus = a});
delersSuggester :: Lens' DeleteSuggesterResponse SuggesterStatus
delersSuggester = lens _delersSuggester (\ s a -> s{_delersSuggester = a});
instance NFData DeleteSuggesterResponse