{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE TypeFamilies #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
module Network.AWS.CloudSearch.DescribeAnalysisSchemes
(
describeAnalysisSchemes
, DescribeAnalysisSchemes
, dassDeployed
, dassAnalysisSchemeNames
, dassDomainName
, describeAnalysisSchemesResponse
, DescribeAnalysisSchemesResponse
, dasrsResponseStatus
, dasrsAnalysisSchemes
) 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 DescribeAnalysisSchemes = DescribeAnalysisSchemes'
{ _dassDeployed :: !(Maybe Bool)
, _dassAnalysisSchemeNames :: !(Maybe [Text])
, _dassDomainName :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeAnalysisSchemes
:: Text
-> DescribeAnalysisSchemes
describeAnalysisSchemes pDomainName_ =
DescribeAnalysisSchemes'
{ _dassDeployed = Nothing
, _dassAnalysisSchemeNames = Nothing
, _dassDomainName = pDomainName_
}
dassDeployed :: Lens' DescribeAnalysisSchemes (Maybe Bool)
dassDeployed = lens _dassDeployed (\ s a -> s{_dassDeployed = a})
dassAnalysisSchemeNames :: Lens' DescribeAnalysisSchemes [Text]
dassAnalysisSchemeNames = lens _dassAnalysisSchemeNames (\ s a -> s{_dassAnalysisSchemeNames = a}) . _Default . _Coerce
dassDomainName :: Lens' DescribeAnalysisSchemes Text
dassDomainName = lens _dassDomainName (\ s a -> s{_dassDomainName = a})
instance AWSRequest DescribeAnalysisSchemes where
type Rs DescribeAnalysisSchemes =
DescribeAnalysisSchemesResponse
request = postQuery cloudSearch
response
= receiveXMLWrapper "DescribeAnalysisSchemesResult"
(\ s h x ->
DescribeAnalysisSchemesResponse' <$>
(pure (fromEnum s)) <*>
(x .@? "AnalysisSchemes" .!@ mempty >>=
parseXMLList "member"))
instance Hashable DescribeAnalysisSchemes where
instance NFData DescribeAnalysisSchemes where
instance ToHeaders DescribeAnalysisSchemes where
toHeaders = const mempty
instance ToPath DescribeAnalysisSchemes where
toPath = const "/"
instance ToQuery DescribeAnalysisSchemes where
toQuery DescribeAnalysisSchemes'{..}
= mconcat
["Action" =:
("DescribeAnalysisSchemes" :: ByteString),
"Version" =: ("2013-01-01" :: ByteString),
"Deployed" =: _dassDeployed,
"AnalysisSchemeNames" =:
toQuery
(toQueryList "member" <$> _dassAnalysisSchemeNames),
"DomainName" =: _dassDomainName]
data DescribeAnalysisSchemesResponse = DescribeAnalysisSchemesResponse'
{ _dasrsResponseStatus :: !Int
, _dasrsAnalysisSchemes :: ![AnalysisSchemeStatus]
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeAnalysisSchemesResponse
:: Int
-> DescribeAnalysisSchemesResponse
describeAnalysisSchemesResponse pResponseStatus_ =
DescribeAnalysisSchemesResponse'
{_dasrsResponseStatus = pResponseStatus_, _dasrsAnalysisSchemes = mempty}
dasrsResponseStatus :: Lens' DescribeAnalysisSchemesResponse Int
dasrsResponseStatus = lens _dasrsResponseStatus (\ s a -> s{_dasrsResponseStatus = a})
dasrsAnalysisSchemes :: Lens' DescribeAnalysisSchemesResponse [AnalysisSchemeStatus]
dasrsAnalysisSchemes = lens _dasrsAnalysisSchemes (\ s a -> s{_dasrsAnalysisSchemes = a}) . _Coerce
instance NFData DescribeAnalysisSchemesResponse where