module Network.AWS.CloudSearch.DeleteAnalysisScheme
(
deleteAnalysisScheme
, DeleteAnalysisScheme
, dasDomainName
, dasAnalysisSchemeName
, deleteAnalysisSchemeResponse
, DeleteAnalysisSchemeResponse
, dasarsResponseStatus
, dasarsAnalysisScheme
) where
import Network.AWS.CloudSearch.Types
import Network.AWS.CloudSearch.Types.Product
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data DeleteAnalysisScheme = DeleteAnalysisScheme'
{ _dasDomainName :: !Text
, _dasAnalysisSchemeName :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
deleteAnalysisScheme
:: Text
-> Text
-> DeleteAnalysisScheme
deleteAnalysisScheme pDomainName_ pAnalysisSchemeName_ =
DeleteAnalysisScheme'
{ _dasDomainName = pDomainName_
, _dasAnalysisSchemeName = pAnalysisSchemeName_
}
dasDomainName :: Lens' DeleteAnalysisScheme Text
dasDomainName = lens _dasDomainName (\ s a -> s{_dasDomainName = a});
dasAnalysisSchemeName :: Lens' DeleteAnalysisScheme Text
dasAnalysisSchemeName = lens _dasAnalysisSchemeName (\ s a -> s{_dasAnalysisSchemeName = a});
instance AWSRequest DeleteAnalysisScheme where
type Rs DeleteAnalysisScheme =
DeleteAnalysisSchemeResponse
request = postQuery cloudSearch
response
= receiveXMLWrapper "DeleteAnalysisSchemeResult"
(\ s h x ->
DeleteAnalysisSchemeResponse' <$>
(pure (fromEnum s)) <*> (x .@ "AnalysisScheme"))
instance ToHeaders DeleteAnalysisScheme where
toHeaders = const mempty
instance ToPath DeleteAnalysisScheme where
toPath = const "/"
instance ToQuery DeleteAnalysisScheme where
toQuery DeleteAnalysisScheme'{..}
= mconcat
["Action" =: ("DeleteAnalysisScheme" :: ByteString),
"Version" =: ("2013-01-01" :: ByteString),
"DomainName" =: _dasDomainName,
"AnalysisSchemeName" =: _dasAnalysisSchemeName]
data DeleteAnalysisSchemeResponse = DeleteAnalysisSchemeResponse'
{ _dasarsResponseStatus :: !Int
, _dasarsAnalysisScheme :: !AnalysisSchemeStatus
} deriving (Eq,Read,Show,Data,Typeable,Generic)
deleteAnalysisSchemeResponse
:: Int
-> AnalysisSchemeStatus
-> DeleteAnalysisSchemeResponse
deleteAnalysisSchemeResponse pResponseStatus_ pAnalysisScheme_ =
DeleteAnalysisSchemeResponse'
{ _dasarsResponseStatus = pResponseStatus_
, _dasarsAnalysisScheme = pAnalysisScheme_
}
dasarsResponseStatus :: Lens' DeleteAnalysisSchemeResponse Int
dasarsResponseStatus = lens _dasarsResponseStatus (\ s a -> s{_dasarsResponseStatus = a});
dasarsAnalysisScheme :: Lens' DeleteAnalysisSchemeResponse AnalysisSchemeStatus
dasarsAnalysisScheme = lens _dasarsAnalysisScheme (\ s a -> s{_dasarsAnalysisScheme = a});