module Network.AWS.CloudSearch.DeleteAnalysisScheme
(
deleteAnalysisScheme
, DeleteAnalysisScheme
, dasDomainName
, dasAnalysisSchemeName
, deleteAnalysisSchemeResponse
, DeleteAnalysisSchemeResponse
, dasarsStatus
, 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 Sv DeleteAnalysisScheme = CloudSearch
type Rs DeleteAnalysisScheme =
DeleteAnalysisSchemeResponse
request = postQuery
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'
{ _dasarsStatus :: !Int
, _dasarsAnalysisScheme :: !AnalysisSchemeStatus
} deriving (Eq,Read,Show,Data,Typeable,Generic)
deleteAnalysisSchemeResponse
:: Int
-> AnalysisSchemeStatus
-> DeleteAnalysisSchemeResponse
deleteAnalysisSchemeResponse pStatus_ pAnalysisScheme_ =
DeleteAnalysisSchemeResponse'
{ _dasarsStatus = pStatus_
, _dasarsAnalysisScheme = pAnalysisScheme_
}
dasarsStatus :: Lens' DeleteAnalysisSchemeResponse Int
dasarsStatus = lens _dasarsStatus (\ s a -> s{_dasarsStatus = a});
dasarsAnalysisScheme :: Lens' DeleteAnalysisSchemeResponse AnalysisSchemeStatus
dasarsAnalysisScheme = lens _dasarsAnalysisScheme (\ s a -> s{_dasarsAnalysisScheme = a});