module Network.AWS.CloudSearch.DescribeAnalysisSchemes
(
DescribeAnalysisSchemes
, describeAnalysisSchemes
, das1AnalysisSchemeNames
, das1Deployed
, das1DomainName
, DescribeAnalysisSchemesResponse
, describeAnalysisSchemesResponse
, dasrAnalysisSchemes
) where
import Network.AWS.Prelude
import Network.AWS.Request.Query
import Network.AWS.CloudSearch.Types
import qualified GHC.Exts
data DescribeAnalysisSchemes = DescribeAnalysisSchemes
{ _das1AnalysisSchemeNames :: List "member" Text
, _das1Deployed :: Maybe Bool
, _das1DomainName :: Text
} deriving (Eq, Ord, Show)
describeAnalysisSchemes :: Text
-> DescribeAnalysisSchemes
describeAnalysisSchemes p1 = DescribeAnalysisSchemes
{ _das1DomainName = p1
, _das1AnalysisSchemeNames = mempty
, _das1Deployed = Nothing
}
das1AnalysisSchemeNames :: Lens' DescribeAnalysisSchemes [Text]
das1AnalysisSchemeNames =
lens _das1AnalysisSchemeNames (\s a -> s { _das1AnalysisSchemeNames = a })
. _List
das1Deployed :: Lens' DescribeAnalysisSchemes (Maybe Bool)
das1Deployed = lens _das1Deployed (\s a -> s { _das1Deployed = a })
das1DomainName :: Lens' DescribeAnalysisSchemes Text
das1DomainName = lens _das1DomainName (\s a -> s { _das1DomainName = a })
newtype DescribeAnalysisSchemesResponse = DescribeAnalysisSchemesResponse
{ _dasrAnalysisSchemes :: List "member" AnalysisSchemeStatus
} deriving (Eq, Show, Monoid, Semigroup)
instance GHC.Exts.IsList DescribeAnalysisSchemesResponse where
type Item DescribeAnalysisSchemesResponse = AnalysisSchemeStatus
fromList = DescribeAnalysisSchemesResponse . GHC.Exts.fromList
toList = GHC.Exts.toList . _dasrAnalysisSchemes
describeAnalysisSchemesResponse :: DescribeAnalysisSchemesResponse
describeAnalysisSchemesResponse = DescribeAnalysisSchemesResponse
{ _dasrAnalysisSchemes = mempty
}
dasrAnalysisSchemes :: Lens' DescribeAnalysisSchemesResponse [AnalysisSchemeStatus]
dasrAnalysisSchemes =
lens _dasrAnalysisSchemes (\s a -> s { _dasrAnalysisSchemes = a })
. _List
instance ToPath DescribeAnalysisSchemes where
toPath = const "/"
instance ToQuery DescribeAnalysisSchemes where
toQuery DescribeAnalysisSchemes{..} = mconcat
[ "AnalysisSchemeNames" =? _das1AnalysisSchemeNames
, "Deployed" =? _das1Deployed
, "DomainName" =? _das1DomainName
]
instance ToHeaders DescribeAnalysisSchemes
instance AWSRequest DescribeAnalysisSchemes where
type Sv DescribeAnalysisSchemes = CloudSearch
type Rs DescribeAnalysisSchemes = DescribeAnalysisSchemesResponse
request = post "DescribeAnalysisSchemes"
response = xmlResponse
instance FromXML DescribeAnalysisSchemesResponse where
parseXML = withElement "DescribeAnalysisSchemesResult" $ \x -> DescribeAnalysisSchemesResponse
<$> x .@? "AnalysisSchemes" .!@ mempty