module Network.AWS.CloudSearch.DeleteAnalysisScheme
(
DeleteAnalysisScheme
, deleteAnalysisScheme
, dasAnalysisSchemeName
, dasDomainName
, DeleteAnalysisSchemeResponse
, deleteAnalysisSchemeResponse
, dasrAnalysisScheme
) where
import Network.AWS.Prelude
import Network.AWS.Request.Query
import Network.AWS.CloudSearch.Types
import qualified GHC.Exts
data DeleteAnalysisScheme = DeleteAnalysisScheme
{ _dasAnalysisSchemeName :: Text
, _dasDomainName :: Text
} deriving (Eq, Ord, Show)
deleteAnalysisScheme :: Text
-> Text
-> DeleteAnalysisScheme
deleteAnalysisScheme p1 p2 = DeleteAnalysisScheme
{ _dasDomainName = p1
, _dasAnalysisSchemeName = p2
}
dasAnalysisSchemeName :: Lens' DeleteAnalysisScheme Text
dasAnalysisSchemeName =
lens _dasAnalysisSchemeName (\s a -> s { _dasAnalysisSchemeName = a })
dasDomainName :: Lens' DeleteAnalysisScheme Text
dasDomainName = lens _dasDomainName (\s a -> s { _dasDomainName = a })
newtype DeleteAnalysisSchemeResponse = DeleteAnalysisSchemeResponse
{ _dasrAnalysisScheme :: AnalysisSchemeStatus
} deriving (Eq, Show)
deleteAnalysisSchemeResponse :: AnalysisSchemeStatus
-> DeleteAnalysisSchemeResponse
deleteAnalysisSchemeResponse p1 = DeleteAnalysisSchemeResponse
{ _dasrAnalysisScheme = p1
}
dasrAnalysisScheme :: Lens' DeleteAnalysisSchemeResponse AnalysisSchemeStatus
dasrAnalysisScheme =
lens _dasrAnalysisScheme (\s a -> s { _dasrAnalysisScheme = a })
instance ToPath DeleteAnalysisScheme where
toPath = const "/"
instance ToQuery DeleteAnalysisScheme where
toQuery DeleteAnalysisScheme{..} = mconcat
[ "AnalysisSchemeName" =? _dasAnalysisSchemeName
, "DomainName" =? _dasDomainName
]
instance ToHeaders DeleteAnalysisScheme
instance AWSRequest DeleteAnalysisScheme where
type Sv DeleteAnalysisScheme = CloudSearch
type Rs DeleteAnalysisScheme = DeleteAnalysisSchemeResponse
request = post "DeleteAnalysisScheme"
response = xmlResponse
instance FromXML DeleteAnalysisSchemeResponse where
parseXML = withElement "DeleteAnalysisSchemeResult" $ \x -> DeleteAnalysisSchemeResponse
<$> x .@ "AnalysisScheme"