module Network.AWS.CloudSearch.DefineAnalysisScheme
(
defineAnalysisScheme
, DefineAnalysisScheme
, dasaDomainName
, dasaAnalysisScheme
, defineAnalysisSchemeResponse
, DefineAnalysisSchemeResponse
, defersResponseStatus
, defersAnalysisScheme
) 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 DefineAnalysisScheme = DefineAnalysisScheme'
{ _dasaDomainName :: !Text
, _dasaAnalysisScheme :: !AnalysisScheme
} deriving (Eq,Read,Show,Data,Typeable,Generic)
defineAnalysisScheme
:: Text
-> AnalysisScheme
-> DefineAnalysisScheme
defineAnalysisScheme pDomainName_ pAnalysisScheme_ =
DefineAnalysisScheme'
{ _dasaDomainName = pDomainName_
, _dasaAnalysisScheme = pAnalysisScheme_
}
dasaDomainName :: Lens' DefineAnalysisScheme Text
dasaDomainName = lens _dasaDomainName (\ s a -> s{_dasaDomainName = a});
dasaAnalysisScheme :: Lens' DefineAnalysisScheme AnalysisScheme
dasaAnalysisScheme = lens _dasaAnalysisScheme (\ s a -> s{_dasaAnalysisScheme = a});
instance AWSRequest DefineAnalysisScheme where
type Rs DefineAnalysisScheme =
DefineAnalysisSchemeResponse
request = postQuery cloudSearch
response
= receiveXMLWrapper "DefineAnalysisSchemeResult"
(\ s h x ->
DefineAnalysisSchemeResponse' <$>
(pure (fromEnum s)) <*> (x .@ "AnalysisScheme"))
instance ToHeaders DefineAnalysisScheme where
toHeaders = const mempty
instance ToPath DefineAnalysisScheme where
toPath = const "/"
instance ToQuery DefineAnalysisScheme where
toQuery DefineAnalysisScheme'{..}
= mconcat
["Action" =: ("DefineAnalysisScheme" :: ByteString),
"Version" =: ("2013-01-01" :: ByteString),
"DomainName" =: _dasaDomainName,
"AnalysisScheme" =: _dasaAnalysisScheme]
data DefineAnalysisSchemeResponse = DefineAnalysisSchemeResponse'
{ _defersResponseStatus :: !Int
, _defersAnalysisScheme :: !AnalysisSchemeStatus
} deriving (Eq,Read,Show,Data,Typeable,Generic)
defineAnalysisSchemeResponse
:: Int
-> AnalysisSchemeStatus
-> DefineAnalysisSchemeResponse
defineAnalysisSchemeResponse pResponseStatus_ pAnalysisScheme_ =
DefineAnalysisSchemeResponse'
{ _defersResponseStatus = pResponseStatus_
, _defersAnalysisScheme = pAnalysisScheme_
}
defersResponseStatus :: Lens' DefineAnalysisSchemeResponse Int
defersResponseStatus = lens _defersResponseStatus (\ s a -> s{_defersResponseStatus = a});
defersAnalysisScheme :: Lens' DefineAnalysisSchemeResponse AnalysisSchemeStatus
defersAnalysisScheme = lens _defersAnalysisScheme (\ s a -> s{_defersAnalysisScheme = a});