module Network.AWS.CloudSearch.Types.Product where
import Network.AWS.CloudSearch.Types.Sum
import Network.AWS.Prelude
data AccessPoliciesStatus = AccessPoliciesStatus'
{ _apsOptions :: !Text
, _apsStatus :: !OptionStatus
} deriving (Eq,Read,Show,Data,Typeable,Generic)
accessPoliciesStatus
:: Text
-> OptionStatus
-> AccessPoliciesStatus
accessPoliciesStatus pOptions_ pStatus_ =
AccessPoliciesStatus'
{ _apsOptions = pOptions_
, _apsStatus = pStatus_
}
apsOptions :: Lens' AccessPoliciesStatus Text
apsOptions = lens _apsOptions (\ s a -> s{_apsOptions = a});
apsStatus :: Lens' AccessPoliciesStatus OptionStatus
apsStatus = lens _apsStatus (\ s a -> s{_apsStatus = a});
instance FromXML AccessPoliciesStatus where
parseXML x
= AccessPoliciesStatus' <$>
(x .@ "Options") <*> (x .@ "Status")
data AnalysisOptions = AnalysisOptions'
{ _aoAlgorithmicStemming :: !(Maybe AlgorithmicStemming)
, _aoStopwords :: !(Maybe Text)
, _aoStemmingDictionary :: !(Maybe Text)
, _aoSynonyms :: !(Maybe Text)
, _aoJapaneseTokenizationDictionary :: !(Maybe Text)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
analysisOptions
:: AnalysisOptions
analysisOptions =
AnalysisOptions'
{ _aoAlgorithmicStemming = Nothing
, _aoStopwords = Nothing
, _aoStemmingDictionary = Nothing
, _aoSynonyms = Nothing
, _aoJapaneseTokenizationDictionary = Nothing
}
aoAlgorithmicStemming :: Lens' AnalysisOptions (Maybe AlgorithmicStemming)
aoAlgorithmicStemming = lens _aoAlgorithmicStemming (\ s a -> s{_aoAlgorithmicStemming = a});
aoStopwords :: Lens' AnalysisOptions (Maybe Text)
aoStopwords = lens _aoStopwords (\ s a -> s{_aoStopwords = a});
aoStemmingDictionary :: Lens' AnalysisOptions (Maybe Text)
aoStemmingDictionary = lens _aoStemmingDictionary (\ s a -> s{_aoStemmingDictionary = a});
aoSynonyms :: Lens' AnalysisOptions (Maybe Text)
aoSynonyms = lens _aoSynonyms (\ s a -> s{_aoSynonyms = a});
aoJapaneseTokenizationDictionary :: Lens' AnalysisOptions (Maybe Text)
aoJapaneseTokenizationDictionary = lens _aoJapaneseTokenizationDictionary (\ s a -> s{_aoJapaneseTokenizationDictionary = a});
instance FromXML AnalysisOptions where
parseXML x
= AnalysisOptions' <$>
(x .@? "AlgorithmicStemming") <*> (x .@? "Stopwords")
<*> (x .@? "StemmingDictionary")
<*> (x .@? "Synonyms")
<*> (x .@? "JapaneseTokenizationDictionary")
instance ToQuery AnalysisOptions where
toQuery AnalysisOptions'{..}
= mconcat
["AlgorithmicStemming" =: _aoAlgorithmicStemming,
"Stopwords" =: _aoStopwords,
"StemmingDictionary" =: _aoStemmingDictionary,
"Synonyms" =: _aoSynonyms,
"JapaneseTokenizationDictionary" =:
_aoJapaneseTokenizationDictionary]
data AnalysisScheme = AnalysisScheme'
{ _asAnalysisOptions :: !(Maybe AnalysisOptions)
, _asAnalysisSchemeName :: !Text
, _asAnalysisSchemeLanguage :: !AnalysisSchemeLanguage
} deriving (Eq,Read,Show,Data,Typeable,Generic)
analysisScheme
:: Text
-> AnalysisSchemeLanguage
-> AnalysisScheme
analysisScheme pAnalysisSchemeName_ pAnalysisSchemeLanguage_ =
AnalysisScheme'
{ _asAnalysisOptions = Nothing
, _asAnalysisSchemeName = pAnalysisSchemeName_
, _asAnalysisSchemeLanguage = pAnalysisSchemeLanguage_
}
asAnalysisOptions :: Lens' AnalysisScheme (Maybe AnalysisOptions)
asAnalysisOptions = lens _asAnalysisOptions (\ s a -> s{_asAnalysisOptions = a});
asAnalysisSchemeName :: Lens' AnalysisScheme Text
asAnalysisSchemeName = lens _asAnalysisSchemeName (\ s a -> s{_asAnalysisSchemeName = a});
asAnalysisSchemeLanguage :: Lens' AnalysisScheme AnalysisSchemeLanguage
asAnalysisSchemeLanguage = lens _asAnalysisSchemeLanguage (\ s a -> s{_asAnalysisSchemeLanguage = a});
instance FromXML AnalysisScheme where
parseXML x
= AnalysisScheme' <$>
(x .@? "AnalysisOptions") <*>
(x .@ "AnalysisSchemeName")
<*> (x .@ "AnalysisSchemeLanguage")
instance ToQuery AnalysisScheme where
toQuery AnalysisScheme'{..}
= mconcat
["AnalysisOptions" =: _asAnalysisOptions,
"AnalysisSchemeName" =: _asAnalysisSchemeName,
"AnalysisSchemeLanguage" =:
_asAnalysisSchemeLanguage]
data AnalysisSchemeStatus = AnalysisSchemeStatus'
{ _assOptions :: !AnalysisScheme
, _assStatus :: !OptionStatus
} deriving (Eq,Read,Show,Data,Typeable,Generic)
analysisSchemeStatus
:: AnalysisScheme
-> OptionStatus
-> AnalysisSchemeStatus
analysisSchemeStatus pOptions_ pStatus_ =
AnalysisSchemeStatus'
{ _assOptions = pOptions_
, _assStatus = pStatus_
}
assOptions :: Lens' AnalysisSchemeStatus AnalysisScheme
assOptions = lens _assOptions (\ s a -> s{_assOptions = a});
assStatus :: Lens' AnalysisSchemeStatus OptionStatus
assStatus = lens _assStatus (\ s a -> s{_assStatus = a});
instance FromXML AnalysisSchemeStatus where
parseXML x
= AnalysisSchemeStatus' <$>
(x .@ "Options") <*> (x .@ "Status")
data AvailabilityOptionsStatus = AvailabilityOptionsStatus'
{ _aosOptions :: !Bool
, _aosStatus :: !OptionStatus
} deriving (Eq,Read,Show,Data,Typeable,Generic)
availabilityOptionsStatus
:: Bool
-> OptionStatus
-> AvailabilityOptionsStatus
availabilityOptionsStatus pOptions_ pStatus_ =
AvailabilityOptionsStatus'
{ _aosOptions = pOptions_
, _aosStatus = pStatus_
}
aosOptions :: Lens' AvailabilityOptionsStatus Bool
aosOptions = lens _aosOptions (\ s a -> s{_aosOptions = a});
aosStatus :: Lens' AvailabilityOptionsStatus OptionStatus
aosStatus = lens _aosStatus (\ s a -> s{_aosStatus = a});
instance FromXML AvailabilityOptionsStatus where
parseXML x
= AvailabilityOptionsStatus' <$>
(x .@ "Options") <*> (x .@ "Status")
data DateArrayOptions = DateArrayOptions'
{ _daosSourceFields :: !(Maybe Text)
, _daosReturnEnabled :: !(Maybe Bool)
, _daosFacetEnabled :: !(Maybe Bool)
, _daosSearchEnabled :: !(Maybe Bool)
, _daosDefaultValue :: !(Maybe Text)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
dateArrayOptions
:: DateArrayOptions
dateArrayOptions =
DateArrayOptions'
{ _daosSourceFields = Nothing
, _daosReturnEnabled = Nothing
, _daosFacetEnabled = Nothing
, _daosSearchEnabled = Nothing
, _daosDefaultValue = Nothing
}
daosSourceFields :: Lens' DateArrayOptions (Maybe Text)
daosSourceFields = lens _daosSourceFields (\ s a -> s{_daosSourceFields = a});
daosReturnEnabled :: Lens' DateArrayOptions (Maybe Bool)
daosReturnEnabled = lens _daosReturnEnabled (\ s a -> s{_daosReturnEnabled = a});
daosFacetEnabled :: Lens' DateArrayOptions (Maybe Bool)
daosFacetEnabled = lens _daosFacetEnabled (\ s a -> s{_daosFacetEnabled = a});
daosSearchEnabled :: Lens' DateArrayOptions (Maybe Bool)
daosSearchEnabled = lens _daosSearchEnabled (\ s a -> s{_daosSearchEnabled = a});
daosDefaultValue :: Lens' DateArrayOptions (Maybe Text)
daosDefaultValue = lens _daosDefaultValue (\ s a -> s{_daosDefaultValue = a});
instance FromXML DateArrayOptions where
parseXML x
= DateArrayOptions' <$>
(x .@? "SourceFields") <*> (x .@? "ReturnEnabled")
<*> (x .@? "FacetEnabled")
<*> (x .@? "SearchEnabled")
<*> (x .@? "DefaultValue")
instance ToQuery DateArrayOptions where
toQuery DateArrayOptions'{..}
= mconcat
["SourceFields" =: _daosSourceFields,
"ReturnEnabled" =: _daosReturnEnabled,
"FacetEnabled" =: _daosFacetEnabled,
"SearchEnabled" =: _daosSearchEnabled,
"DefaultValue" =: _daosDefaultValue]
data DateOptions = DateOptions'
{ _doSourceField :: !(Maybe Text)
, _doReturnEnabled :: !(Maybe Bool)
, _doFacetEnabled :: !(Maybe Bool)
, _doSearchEnabled :: !(Maybe Bool)
, _doSortEnabled :: !(Maybe Bool)
, _doDefaultValue :: !(Maybe Text)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
dateOptions
:: DateOptions
dateOptions =
DateOptions'
{ _doSourceField = Nothing
, _doReturnEnabled = Nothing
, _doFacetEnabled = Nothing
, _doSearchEnabled = Nothing
, _doSortEnabled = Nothing
, _doDefaultValue = Nothing
}
doSourceField :: Lens' DateOptions (Maybe Text)
doSourceField = lens _doSourceField (\ s a -> s{_doSourceField = a});
doReturnEnabled :: Lens' DateOptions (Maybe Bool)
doReturnEnabled = lens _doReturnEnabled (\ s a -> s{_doReturnEnabled = a});
doFacetEnabled :: Lens' DateOptions (Maybe Bool)
doFacetEnabled = lens _doFacetEnabled (\ s a -> s{_doFacetEnabled = a});
doSearchEnabled :: Lens' DateOptions (Maybe Bool)
doSearchEnabled = lens _doSearchEnabled (\ s a -> s{_doSearchEnabled = a});
doSortEnabled :: Lens' DateOptions (Maybe Bool)
doSortEnabled = lens _doSortEnabled (\ s a -> s{_doSortEnabled = a});
doDefaultValue :: Lens' DateOptions (Maybe Text)
doDefaultValue = lens _doDefaultValue (\ s a -> s{_doDefaultValue = a});
instance FromXML DateOptions where
parseXML x
= DateOptions' <$>
(x .@? "SourceField") <*> (x .@? "ReturnEnabled") <*>
(x .@? "FacetEnabled")
<*> (x .@? "SearchEnabled")
<*> (x .@? "SortEnabled")
<*> (x .@? "DefaultValue")
instance ToQuery DateOptions where
toQuery DateOptions'{..}
= mconcat
["SourceField" =: _doSourceField,
"ReturnEnabled" =: _doReturnEnabled,
"FacetEnabled" =: _doFacetEnabled,
"SearchEnabled" =: _doSearchEnabled,
"SortEnabled" =: _doSortEnabled,
"DefaultValue" =: _doDefaultValue]
data DocumentSuggesterOptions = DocumentSuggesterOptions'
{ _dsoSortExpression :: !(Maybe Text)
, _dsoFuzzyMatching :: !(Maybe SuggesterFuzzyMatching)
, _dsoSourceField :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
documentSuggesterOptions
:: Text
-> DocumentSuggesterOptions
documentSuggesterOptions pSourceField_ =
DocumentSuggesterOptions'
{ _dsoSortExpression = Nothing
, _dsoFuzzyMatching = Nothing
, _dsoSourceField = pSourceField_
}
dsoSortExpression :: Lens' DocumentSuggesterOptions (Maybe Text)
dsoSortExpression = lens _dsoSortExpression (\ s a -> s{_dsoSortExpression = a});
dsoFuzzyMatching :: Lens' DocumentSuggesterOptions (Maybe SuggesterFuzzyMatching)
dsoFuzzyMatching = lens _dsoFuzzyMatching (\ s a -> s{_dsoFuzzyMatching = a});
dsoSourceField :: Lens' DocumentSuggesterOptions Text
dsoSourceField = lens _dsoSourceField (\ s a -> s{_dsoSourceField = a});
instance FromXML DocumentSuggesterOptions where
parseXML x
= DocumentSuggesterOptions' <$>
(x .@? "SortExpression") <*> (x .@? "FuzzyMatching")
<*> (x .@ "SourceField")
instance ToQuery DocumentSuggesterOptions where
toQuery DocumentSuggesterOptions'{..}
= mconcat
["SortExpression" =: _dsoSortExpression,
"FuzzyMatching" =: _dsoFuzzyMatching,
"SourceField" =: _dsoSourceField]
data DomainStatus = DomainStatus'
{ _dsSearchInstanceCount :: !(Maybe Nat)
, _dsSearchInstanceType :: !(Maybe Text)
, _dsARN :: !(Maybe Text)
, _dsDocService :: !(Maybe ServiceEndpoint)
, _dsCreated :: !(Maybe Bool)
, _dsSearchService :: !(Maybe ServiceEndpoint)
, _dsLimits :: !(Maybe Limits)
, _dsSearchPartitionCount :: !(Maybe Nat)
, _dsDeleted :: !(Maybe Bool)
, _dsProcessing :: !(Maybe Bool)
, _dsDomainId :: !Text
, _dsDomainName :: !Text
, _dsRequiresIndexDocuments :: !Bool
} deriving (Eq,Read,Show,Data,Typeable,Generic)
domainStatus
:: Text
-> Text
-> Bool
-> DomainStatus
domainStatus pDomainId_ pDomainName_ pRequiresIndexDocuments_ =
DomainStatus'
{ _dsSearchInstanceCount = Nothing
, _dsSearchInstanceType = Nothing
, _dsARN = Nothing
, _dsDocService = Nothing
, _dsCreated = Nothing
, _dsSearchService = Nothing
, _dsLimits = Nothing
, _dsSearchPartitionCount = Nothing
, _dsDeleted = Nothing
, _dsProcessing = Nothing
, _dsDomainId = pDomainId_
, _dsDomainName = pDomainName_
, _dsRequiresIndexDocuments = pRequiresIndexDocuments_
}
dsSearchInstanceCount :: Lens' DomainStatus (Maybe Natural)
dsSearchInstanceCount = lens _dsSearchInstanceCount (\ s a -> s{_dsSearchInstanceCount = a}) . mapping _Nat;
dsSearchInstanceType :: Lens' DomainStatus (Maybe Text)
dsSearchInstanceType = lens _dsSearchInstanceType (\ s a -> s{_dsSearchInstanceType = a});
dsARN :: Lens' DomainStatus (Maybe Text)
dsARN = lens _dsARN (\ s a -> s{_dsARN = a});
dsDocService :: Lens' DomainStatus (Maybe ServiceEndpoint)
dsDocService = lens _dsDocService (\ s a -> s{_dsDocService = a});
dsCreated :: Lens' DomainStatus (Maybe Bool)
dsCreated = lens _dsCreated (\ s a -> s{_dsCreated = a});
dsSearchService :: Lens' DomainStatus (Maybe ServiceEndpoint)
dsSearchService = lens _dsSearchService (\ s a -> s{_dsSearchService = a});
dsLimits :: Lens' DomainStatus (Maybe Limits)
dsLimits = lens _dsLimits (\ s a -> s{_dsLimits = a});
dsSearchPartitionCount :: Lens' DomainStatus (Maybe Natural)
dsSearchPartitionCount = lens _dsSearchPartitionCount (\ s a -> s{_dsSearchPartitionCount = a}) . mapping _Nat;
dsDeleted :: Lens' DomainStatus (Maybe Bool)
dsDeleted = lens _dsDeleted (\ s a -> s{_dsDeleted = a});
dsProcessing :: Lens' DomainStatus (Maybe Bool)
dsProcessing = lens _dsProcessing (\ s a -> s{_dsProcessing = a});
dsDomainId :: Lens' DomainStatus Text
dsDomainId = lens _dsDomainId (\ s a -> s{_dsDomainId = a});
dsDomainName :: Lens' DomainStatus Text
dsDomainName = lens _dsDomainName (\ s a -> s{_dsDomainName = a});
dsRequiresIndexDocuments :: Lens' DomainStatus Bool
dsRequiresIndexDocuments = lens _dsRequiresIndexDocuments (\ s a -> s{_dsRequiresIndexDocuments = a});
instance FromXML DomainStatus where
parseXML x
= DomainStatus' <$>
(x .@? "SearchInstanceCount") <*>
(x .@? "SearchInstanceType")
<*> (x .@? "ARN")
<*> (x .@? "DocService")
<*> (x .@? "Created")
<*> (x .@? "SearchService")
<*> (x .@? "Limits")
<*> (x .@? "SearchPartitionCount")
<*> (x .@? "Deleted")
<*> (x .@? "Processing")
<*> (x .@ "DomainId")
<*> (x .@ "DomainName")
<*> (x .@ "RequiresIndexDocuments")
data DoubleArrayOptions = DoubleArrayOptions'
{ _daoSourceFields :: !(Maybe Text)
, _daoReturnEnabled :: !(Maybe Bool)
, _daoFacetEnabled :: !(Maybe Bool)
, _daoSearchEnabled :: !(Maybe Bool)
, _daoDefaultValue :: !(Maybe Double)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
doubleArrayOptions
:: DoubleArrayOptions
doubleArrayOptions =
DoubleArrayOptions'
{ _daoSourceFields = Nothing
, _daoReturnEnabled = Nothing
, _daoFacetEnabled = Nothing
, _daoSearchEnabled = Nothing
, _daoDefaultValue = Nothing
}
daoSourceFields :: Lens' DoubleArrayOptions (Maybe Text)
daoSourceFields = lens _daoSourceFields (\ s a -> s{_daoSourceFields = a});
daoReturnEnabled :: Lens' DoubleArrayOptions (Maybe Bool)
daoReturnEnabled = lens _daoReturnEnabled (\ s a -> s{_daoReturnEnabled = a});
daoFacetEnabled :: Lens' DoubleArrayOptions (Maybe Bool)
daoFacetEnabled = lens _daoFacetEnabled (\ s a -> s{_daoFacetEnabled = a});
daoSearchEnabled :: Lens' DoubleArrayOptions (Maybe Bool)
daoSearchEnabled = lens _daoSearchEnabled (\ s a -> s{_daoSearchEnabled = a});
daoDefaultValue :: Lens' DoubleArrayOptions (Maybe Double)
daoDefaultValue = lens _daoDefaultValue (\ s a -> s{_daoDefaultValue = a});
instance FromXML DoubleArrayOptions where
parseXML x
= DoubleArrayOptions' <$>
(x .@? "SourceFields") <*> (x .@? "ReturnEnabled")
<*> (x .@? "FacetEnabled")
<*> (x .@? "SearchEnabled")
<*> (x .@? "DefaultValue")
instance ToQuery DoubleArrayOptions where
toQuery DoubleArrayOptions'{..}
= mconcat
["SourceFields" =: _daoSourceFields,
"ReturnEnabled" =: _daoReturnEnabled,
"FacetEnabled" =: _daoFacetEnabled,
"SearchEnabled" =: _daoSearchEnabled,
"DefaultValue" =: _daoDefaultValue]
data DoubleOptions = DoubleOptions'
{ _dSourceField :: !(Maybe Text)
, _dReturnEnabled :: !(Maybe Bool)
, _dFacetEnabled :: !(Maybe Bool)
, _dSearchEnabled :: !(Maybe Bool)
, _dSortEnabled :: !(Maybe Bool)
, _dDefaultValue :: !(Maybe Double)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
doubleOptions
:: DoubleOptions
doubleOptions =
DoubleOptions'
{ _dSourceField = Nothing
, _dReturnEnabled = Nothing
, _dFacetEnabled = Nothing
, _dSearchEnabled = Nothing
, _dSortEnabled = Nothing
, _dDefaultValue = Nothing
}
dSourceField :: Lens' DoubleOptions (Maybe Text)
dSourceField = lens _dSourceField (\ s a -> s{_dSourceField = a});
dReturnEnabled :: Lens' DoubleOptions (Maybe Bool)
dReturnEnabled = lens _dReturnEnabled (\ s a -> s{_dReturnEnabled = a});
dFacetEnabled :: Lens' DoubleOptions (Maybe Bool)
dFacetEnabled = lens _dFacetEnabled (\ s a -> s{_dFacetEnabled = a});
dSearchEnabled :: Lens' DoubleOptions (Maybe Bool)
dSearchEnabled = lens _dSearchEnabled (\ s a -> s{_dSearchEnabled = a});
dSortEnabled :: Lens' DoubleOptions (Maybe Bool)
dSortEnabled = lens _dSortEnabled (\ s a -> s{_dSortEnabled = a});
dDefaultValue :: Lens' DoubleOptions (Maybe Double)
dDefaultValue = lens _dDefaultValue (\ s a -> s{_dDefaultValue = a});
instance FromXML DoubleOptions where
parseXML x
= DoubleOptions' <$>
(x .@? "SourceField") <*> (x .@? "ReturnEnabled") <*>
(x .@? "FacetEnabled")
<*> (x .@? "SearchEnabled")
<*> (x .@? "SortEnabled")
<*> (x .@? "DefaultValue")
instance ToQuery DoubleOptions where
toQuery DoubleOptions'{..}
= mconcat
["SourceField" =: _dSourceField,
"ReturnEnabled" =: _dReturnEnabled,
"FacetEnabled" =: _dFacetEnabled,
"SearchEnabled" =: _dSearchEnabled,
"SortEnabled" =: _dSortEnabled,
"DefaultValue" =: _dDefaultValue]
data Expression = Expression'
{ _eExpressionName :: !Text
, _eExpressionValue :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
expression
:: Text
-> Text
-> Expression
expression pExpressionName_ pExpressionValue_ =
Expression'
{ _eExpressionName = pExpressionName_
, _eExpressionValue = pExpressionValue_
}
eExpressionName :: Lens' Expression Text
eExpressionName = lens _eExpressionName (\ s a -> s{_eExpressionName = a});
eExpressionValue :: Lens' Expression Text
eExpressionValue = lens _eExpressionValue (\ s a -> s{_eExpressionValue = a});
instance FromXML Expression where
parseXML x
= Expression' <$>
(x .@ "ExpressionName") <*> (x .@ "ExpressionValue")
instance ToQuery Expression where
toQuery Expression'{..}
= mconcat
["ExpressionName" =: _eExpressionName,
"ExpressionValue" =: _eExpressionValue]
data ExpressionStatus = ExpressionStatus'
{ _esOptions :: !Expression
, _esStatus :: !OptionStatus
} deriving (Eq,Read,Show,Data,Typeable,Generic)
expressionStatus
:: Expression
-> OptionStatus
-> ExpressionStatus
expressionStatus pOptions_ pStatus_ =
ExpressionStatus'
{ _esOptions = pOptions_
, _esStatus = pStatus_
}
esOptions :: Lens' ExpressionStatus Expression
esOptions = lens _esOptions (\ s a -> s{_esOptions = a});
esStatus :: Lens' ExpressionStatus OptionStatus
esStatus = lens _esStatus (\ s a -> s{_esStatus = a});
instance FromXML ExpressionStatus where
parseXML x
= ExpressionStatus' <$>
(x .@ "Options") <*> (x .@ "Status")
data IndexField = IndexField'
{ _ifDateOptions :: !(Maybe DateOptions)
, _ifTextArrayOptions :: !(Maybe TextArrayOptions)
, _ifDoubleArrayOptions :: !(Maybe DoubleArrayOptions)
, _ifDoubleOptions :: !(Maybe DoubleOptions)
, _ifTextOptions :: !(Maybe TextOptions)
, _ifLatLonOptions :: !(Maybe LatLonOptions)
, _ifIntArrayOptions :: !(Maybe IntArrayOptions)
, _ifLiteralArrayOptions :: !(Maybe LiteralArrayOptions)
, _ifDateArrayOptions :: !(Maybe DateArrayOptions)
, _ifLiteralOptions :: !(Maybe LiteralOptions)
, _ifIntOptions :: !(Maybe IntOptions)
, _ifIndexFieldName :: !Text
, _ifIndexFieldType :: !IndexFieldType
} deriving (Eq,Read,Show,Data,Typeable,Generic)
indexField
:: Text
-> IndexFieldType
-> IndexField
indexField pIndexFieldName_ pIndexFieldType_ =
IndexField'
{ _ifDateOptions = Nothing
, _ifTextArrayOptions = Nothing
, _ifDoubleArrayOptions = Nothing
, _ifDoubleOptions = Nothing
, _ifTextOptions = Nothing
, _ifLatLonOptions = Nothing
, _ifIntArrayOptions = Nothing
, _ifLiteralArrayOptions = Nothing
, _ifDateArrayOptions = Nothing
, _ifLiteralOptions = Nothing
, _ifIntOptions = Nothing
, _ifIndexFieldName = pIndexFieldName_
, _ifIndexFieldType = pIndexFieldType_
}
ifDateOptions :: Lens' IndexField (Maybe DateOptions)
ifDateOptions = lens _ifDateOptions (\ s a -> s{_ifDateOptions = a});
ifTextArrayOptions :: Lens' IndexField (Maybe TextArrayOptions)
ifTextArrayOptions = lens _ifTextArrayOptions (\ s a -> s{_ifTextArrayOptions = a});
ifDoubleArrayOptions :: Lens' IndexField (Maybe DoubleArrayOptions)
ifDoubleArrayOptions = lens _ifDoubleArrayOptions (\ s a -> s{_ifDoubleArrayOptions = a});
ifDoubleOptions :: Lens' IndexField (Maybe DoubleOptions)
ifDoubleOptions = lens _ifDoubleOptions (\ s a -> s{_ifDoubleOptions = a});
ifTextOptions :: Lens' IndexField (Maybe TextOptions)
ifTextOptions = lens _ifTextOptions (\ s a -> s{_ifTextOptions = a});
ifLatLonOptions :: Lens' IndexField (Maybe LatLonOptions)
ifLatLonOptions = lens _ifLatLonOptions (\ s a -> s{_ifLatLonOptions = a});
ifIntArrayOptions :: Lens' IndexField (Maybe IntArrayOptions)
ifIntArrayOptions = lens _ifIntArrayOptions (\ s a -> s{_ifIntArrayOptions = a});
ifLiteralArrayOptions :: Lens' IndexField (Maybe LiteralArrayOptions)
ifLiteralArrayOptions = lens _ifLiteralArrayOptions (\ s a -> s{_ifLiteralArrayOptions = a});
ifDateArrayOptions :: Lens' IndexField (Maybe DateArrayOptions)
ifDateArrayOptions = lens _ifDateArrayOptions (\ s a -> s{_ifDateArrayOptions = a});
ifLiteralOptions :: Lens' IndexField (Maybe LiteralOptions)
ifLiteralOptions = lens _ifLiteralOptions (\ s a -> s{_ifLiteralOptions = a});
ifIntOptions :: Lens' IndexField (Maybe IntOptions)
ifIntOptions = lens _ifIntOptions (\ s a -> s{_ifIntOptions = a});
ifIndexFieldName :: Lens' IndexField Text
ifIndexFieldName = lens _ifIndexFieldName (\ s a -> s{_ifIndexFieldName = a});
ifIndexFieldType :: Lens' IndexField IndexFieldType
ifIndexFieldType = lens _ifIndexFieldType (\ s a -> s{_ifIndexFieldType = a});
instance FromXML IndexField where
parseXML x
= IndexField' <$>
(x .@? "DateOptions") <*> (x .@? "TextArrayOptions")
<*> (x .@? "DoubleArrayOptions")
<*> (x .@? "DoubleOptions")
<*> (x .@? "TextOptions")
<*> (x .@? "LatLonOptions")
<*> (x .@? "IntArrayOptions")
<*> (x .@? "LiteralArrayOptions")
<*> (x .@? "DateArrayOptions")
<*> (x .@? "LiteralOptions")
<*> (x .@? "IntOptions")
<*> (x .@ "IndexFieldName")
<*> (x .@ "IndexFieldType")
instance ToQuery IndexField where
toQuery IndexField'{..}
= mconcat
["DateOptions" =: _ifDateOptions,
"TextArrayOptions" =: _ifTextArrayOptions,
"DoubleArrayOptions" =: _ifDoubleArrayOptions,
"DoubleOptions" =: _ifDoubleOptions,
"TextOptions" =: _ifTextOptions,
"LatLonOptions" =: _ifLatLonOptions,
"IntArrayOptions" =: _ifIntArrayOptions,
"LiteralArrayOptions" =: _ifLiteralArrayOptions,
"DateArrayOptions" =: _ifDateArrayOptions,
"LiteralOptions" =: _ifLiteralOptions,
"IntOptions" =: _ifIntOptions,
"IndexFieldName" =: _ifIndexFieldName,
"IndexFieldType" =: _ifIndexFieldType]
data IndexFieldStatus = IndexFieldStatus'
{ _ifsOptions :: !IndexField
, _ifsStatus :: !OptionStatus
} deriving (Eq,Read,Show,Data,Typeable,Generic)
indexFieldStatus
:: IndexField
-> OptionStatus
-> IndexFieldStatus
indexFieldStatus pOptions_ pStatus_ =
IndexFieldStatus'
{ _ifsOptions = pOptions_
, _ifsStatus = pStatus_
}
ifsOptions :: Lens' IndexFieldStatus IndexField
ifsOptions = lens _ifsOptions (\ s a -> s{_ifsOptions = a});
ifsStatus :: Lens' IndexFieldStatus OptionStatus
ifsStatus = lens _ifsStatus (\ s a -> s{_ifsStatus = a});
instance FromXML IndexFieldStatus where
parseXML x
= IndexFieldStatus' <$>
(x .@ "Options") <*> (x .@ "Status")
data IntArrayOptions = IntArrayOptions'
{ _iaoSourceFields :: !(Maybe Text)
, _iaoReturnEnabled :: !(Maybe Bool)
, _iaoFacetEnabled :: !(Maybe Bool)
, _iaoSearchEnabled :: !(Maybe Bool)
, _iaoDefaultValue :: !(Maybe Integer)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
intArrayOptions
:: IntArrayOptions
intArrayOptions =
IntArrayOptions'
{ _iaoSourceFields = Nothing
, _iaoReturnEnabled = Nothing
, _iaoFacetEnabled = Nothing
, _iaoSearchEnabled = Nothing
, _iaoDefaultValue = Nothing
}
iaoSourceFields :: Lens' IntArrayOptions (Maybe Text)
iaoSourceFields = lens _iaoSourceFields (\ s a -> s{_iaoSourceFields = a});
iaoReturnEnabled :: Lens' IntArrayOptions (Maybe Bool)
iaoReturnEnabled = lens _iaoReturnEnabled (\ s a -> s{_iaoReturnEnabled = a});
iaoFacetEnabled :: Lens' IntArrayOptions (Maybe Bool)
iaoFacetEnabled = lens _iaoFacetEnabled (\ s a -> s{_iaoFacetEnabled = a});
iaoSearchEnabled :: Lens' IntArrayOptions (Maybe Bool)
iaoSearchEnabled = lens _iaoSearchEnabled (\ s a -> s{_iaoSearchEnabled = a});
iaoDefaultValue :: Lens' IntArrayOptions (Maybe Integer)
iaoDefaultValue = lens _iaoDefaultValue (\ s a -> s{_iaoDefaultValue = a});
instance FromXML IntArrayOptions where
parseXML x
= IntArrayOptions' <$>
(x .@? "SourceFields") <*> (x .@? "ReturnEnabled")
<*> (x .@? "FacetEnabled")
<*> (x .@? "SearchEnabled")
<*> (x .@? "DefaultValue")
instance ToQuery IntArrayOptions where
toQuery IntArrayOptions'{..}
= mconcat
["SourceFields" =: _iaoSourceFields,
"ReturnEnabled" =: _iaoReturnEnabled,
"FacetEnabled" =: _iaoFacetEnabled,
"SearchEnabled" =: _iaoSearchEnabled,
"DefaultValue" =: _iaoDefaultValue]
data IntOptions = IntOptions'
{ _ioSourceField :: !(Maybe Text)
, _ioReturnEnabled :: !(Maybe Bool)
, _ioFacetEnabled :: !(Maybe Bool)
, _ioSearchEnabled :: !(Maybe Bool)
, _ioSortEnabled :: !(Maybe Bool)
, _ioDefaultValue :: !(Maybe Integer)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
intOptions
:: IntOptions
intOptions =
IntOptions'
{ _ioSourceField = Nothing
, _ioReturnEnabled = Nothing
, _ioFacetEnabled = Nothing
, _ioSearchEnabled = Nothing
, _ioSortEnabled = Nothing
, _ioDefaultValue = Nothing
}
ioSourceField :: Lens' IntOptions (Maybe Text)
ioSourceField = lens _ioSourceField (\ s a -> s{_ioSourceField = a});
ioReturnEnabled :: Lens' IntOptions (Maybe Bool)
ioReturnEnabled = lens _ioReturnEnabled (\ s a -> s{_ioReturnEnabled = a});
ioFacetEnabled :: Lens' IntOptions (Maybe Bool)
ioFacetEnabled = lens _ioFacetEnabled (\ s a -> s{_ioFacetEnabled = a});
ioSearchEnabled :: Lens' IntOptions (Maybe Bool)
ioSearchEnabled = lens _ioSearchEnabled (\ s a -> s{_ioSearchEnabled = a});
ioSortEnabled :: Lens' IntOptions (Maybe Bool)
ioSortEnabled = lens _ioSortEnabled (\ s a -> s{_ioSortEnabled = a});
ioDefaultValue :: Lens' IntOptions (Maybe Integer)
ioDefaultValue = lens _ioDefaultValue (\ s a -> s{_ioDefaultValue = a});
instance FromXML IntOptions where
parseXML x
= IntOptions' <$>
(x .@? "SourceField") <*> (x .@? "ReturnEnabled") <*>
(x .@? "FacetEnabled")
<*> (x .@? "SearchEnabled")
<*> (x .@? "SortEnabled")
<*> (x .@? "DefaultValue")
instance ToQuery IntOptions where
toQuery IntOptions'{..}
= mconcat
["SourceField" =: _ioSourceField,
"ReturnEnabled" =: _ioReturnEnabled,
"FacetEnabled" =: _ioFacetEnabled,
"SearchEnabled" =: _ioSearchEnabled,
"SortEnabled" =: _ioSortEnabled,
"DefaultValue" =: _ioDefaultValue]
data LatLonOptions = LatLonOptions'
{ _lloSourceField :: !(Maybe Text)
, _lloReturnEnabled :: !(Maybe Bool)
, _lloFacetEnabled :: !(Maybe Bool)
, _lloSearchEnabled :: !(Maybe Bool)
, _lloSortEnabled :: !(Maybe Bool)
, _lloDefaultValue :: !(Maybe Text)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
latLonOptions
:: LatLonOptions
latLonOptions =
LatLonOptions'
{ _lloSourceField = Nothing
, _lloReturnEnabled = Nothing
, _lloFacetEnabled = Nothing
, _lloSearchEnabled = Nothing
, _lloSortEnabled = Nothing
, _lloDefaultValue = Nothing
}
lloSourceField :: Lens' LatLonOptions (Maybe Text)
lloSourceField = lens _lloSourceField (\ s a -> s{_lloSourceField = a});
lloReturnEnabled :: Lens' LatLonOptions (Maybe Bool)
lloReturnEnabled = lens _lloReturnEnabled (\ s a -> s{_lloReturnEnabled = a});
lloFacetEnabled :: Lens' LatLonOptions (Maybe Bool)
lloFacetEnabled = lens _lloFacetEnabled (\ s a -> s{_lloFacetEnabled = a});
lloSearchEnabled :: Lens' LatLonOptions (Maybe Bool)
lloSearchEnabled = lens _lloSearchEnabled (\ s a -> s{_lloSearchEnabled = a});
lloSortEnabled :: Lens' LatLonOptions (Maybe Bool)
lloSortEnabled = lens _lloSortEnabled (\ s a -> s{_lloSortEnabled = a});
lloDefaultValue :: Lens' LatLonOptions (Maybe Text)
lloDefaultValue = lens _lloDefaultValue (\ s a -> s{_lloDefaultValue = a});
instance FromXML LatLonOptions where
parseXML x
= LatLonOptions' <$>
(x .@? "SourceField") <*> (x .@? "ReturnEnabled") <*>
(x .@? "FacetEnabled")
<*> (x .@? "SearchEnabled")
<*> (x .@? "SortEnabled")
<*> (x .@? "DefaultValue")
instance ToQuery LatLonOptions where
toQuery LatLonOptions'{..}
= mconcat
["SourceField" =: _lloSourceField,
"ReturnEnabled" =: _lloReturnEnabled,
"FacetEnabled" =: _lloFacetEnabled,
"SearchEnabled" =: _lloSearchEnabled,
"SortEnabled" =: _lloSortEnabled,
"DefaultValue" =: _lloDefaultValue]
data Limits = Limits'
{ _lMaximumReplicationCount :: !Nat
, _lMaximumPartitionCount :: !Nat
} deriving (Eq,Read,Show,Data,Typeable,Generic)
limits
:: Natural
-> Natural
-> Limits
limits pMaximumReplicationCount_ pMaximumPartitionCount_ =
Limits'
{ _lMaximumReplicationCount = _Nat # pMaximumReplicationCount_
, _lMaximumPartitionCount = _Nat # pMaximumPartitionCount_
}
lMaximumReplicationCount :: Lens' Limits Natural
lMaximumReplicationCount = lens _lMaximumReplicationCount (\ s a -> s{_lMaximumReplicationCount = a}) . _Nat;
lMaximumPartitionCount :: Lens' Limits Natural
lMaximumPartitionCount = lens _lMaximumPartitionCount (\ s a -> s{_lMaximumPartitionCount = a}) . _Nat;
instance FromXML Limits where
parseXML x
= Limits' <$>
(x .@ "MaximumReplicationCount") <*>
(x .@ "MaximumPartitionCount")
data LiteralArrayOptions = LiteralArrayOptions'
{ _laoSourceFields :: !(Maybe Text)
, _laoReturnEnabled :: !(Maybe Bool)
, _laoFacetEnabled :: !(Maybe Bool)
, _laoSearchEnabled :: !(Maybe Bool)
, _laoDefaultValue :: !(Maybe Text)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
literalArrayOptions
:: LiteralArrayOptions
literalArrayOptions =
LiteralArrayOptions'
{ _laoSourceFields = Nothing
, _laoReturnEnabled = Nothing
, _laoFacetEnabled = Nothing
, _laoSearchEnabled = Nothing
, _laoDefaultValue = Nothing
}
laoSourceFields :: Lens' LiteralArrayOptions (Maybe Text)
laoSourceFields = lens _laoSourceFields (\ s a -> s{_laoSourceFields = a});
laoReturnEnabled :: Lens' LiteralArrayOptions (Maybe Bool)
laoReturnEnabled = lens _laoReturnEnabled (\ s a -> s{_laoReturnEnabled = a});
laoFacetEnabled :: Lens' LiteralArrayOptions (Maybe Bool)
laoFacetEnabled = lens _laoFacetEnabled (\ s a -> s{_laoFacetEnabled = a});
laoSearchEnabled :: Lens' LiteralArrayOptions (Maybe Bool)
laoSearchEnabled = lens _laoSearchEnabled (\ s a -> s{_laoSearchEnabled = a});
laoDefaultValue :: Lens' LiteralArrayOptions (Maybe Text)
laoDefaultValue = lens _laoDefaultValue (\ s a -> s{_laoDefaultValue = a});
instance FromXML LiteralArrayOptions where
parseXML x
= LiteralArrayOptions' <$>
(x .@? "SourceFields") <*> (x .@? "ReturnEnabled")
<*> (x .@? "FacetEnabled")
<*> (x .@? "SearchEnabled")
<*> (x .@? "DefaultValue")
instance ToQuery LiteralArrayOptions where
toQuery LiteralArrayOptions'{..}
= mconcat
["SourceFields" =: _laoSourceFields,
"ReturnEnabled" =: _laoReturnEnabled,
"FacetEnabled" =: _laoFacetEnabled,
"SearchEnabled" =: _laoSearchEnabled,
"DefaultValue" =: _laoDefaultValue]
data LiteralOptions = LiteralOptions'
{ _loSourceField :: !(Maybe Text)
, _loReturnEnabled :: !(Maybe Bool)
, _loFacetEnabled :: !(Maybe Bool)
, _loSearchEnabled :: !(Maybe Bool)
, _loSortEnabled :: !(Maybe Bool)
, _loDefaultValue :: !(Maybe Text)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
literalOptions
:: LiteralOptions
literalOptions =
LiteralOptions'
{ _loSourceField = Nothing
, _loReturnEnabled = Nothing
, _loFacetEnabled = Nothing
, _loSearchEnabled = Nothing
, _loSortEnabled = Nothing
, _loDefaultValue = Nothing
}
loSourceField :: Lens' LiteralOptions (Maybe Text)
loSourceField = lens _loSourceField (\ s a -> s{_loSourceField = a});
loReturnEnabled :: Lens' LiteralOptions (Maybe Bool)
loReturnEnabled = lens _loReturnEnabled (\ s a -> s{_loReturnEnabled = a});
loFacetEnabled :: Lens' LiteralOptions (Maybe Bool)
loFacetEnabled = lens _loFacetEnabled (\ s a -> s{_loFacetEnabled = a});
loSearchEnabled :: Lens' LiteralOptions (Maybe Bool)
loSearchEnabled = lens _loSearchEnabled (\ s a -> s{_loSearchEnabled = a});
loSortEnabled :: Lens' LiteralOptions (Maybe Bool)
loSortEnabled = lens _loSortEnabled (\ s a -> s{_loSortEnabled = a});
loDefaultValue :: Lens' LiteralOptions (Maybe Text)
loDefaultValue = lens _loDefaultValue (\ s a -> s{_loDefaultValue = a});
instance FromXML LiteralOptions where
parseXML x
= LiteralOptions' <$>
(x .@? "SourceField") <*> (x .@? "ReturnEnabled") <*>
(x .@? "FacetEnabled")
<*> (x .@? "SearchEnabled")
<*> (x .@? "SortEnabled")
<*> (x .@? "DefaultValue")
instance ToQuery LiteralOptions where
toQuery LiteralOptions'{..}
= mconcat
["SourceField" =: _loSourceField,
"ReturnEnabled" =: _loReturnEnabled,
"FacetEnabled" =: _loFacetEnabled,
"SearchEnabled" =: _loSearchEnabled,
"SortEnabled" =: _loSortEnabled,
"DefaultValue" =: _loDefaultValue]
data OptionStatus = OptionStatus'
{ _osPendingDeletion :: !(Maybe Bool)
, _osUpdateVersion :: !(Maybe Nat)
, _osCreationDate :: !ISO8601
, _osUpdateDate :: !ISO8601
, _osState :: !OptionState
} deriving (Eq,Read,Show,Data,Typeable,Generic)
optionStatus
:: UTCTime
-> UTCTime
-> OptionState
-> OptionStatus
optionStatus pCreationDate_ pUpdateDate_ pState_ =
OptionStatus'
{ _osPendingDeletion = Nothing
, _osUpdateVersion = Nothing
, _osCreationDate = _Time # pCreationDate_
, _osUpdateDate = _Time # pUpdateDate_
, _osState = pState_
}
osPendingDeletion :: Lens' OptionStatus (Maybe Bool)
osPendingDeletion = lens _osPendingDeletion (\ s a -> s{_osPendingDeletion = a});
osUpdateVersion :: Lens' OptionStatus (Maybe Natural)
osUpdateVersion = lens _osUpdateVersion (\ s a -> s{_osUpdateVersion = a}) . mapping _Nat;
osCreationDate :: Lens' OptionStatus UTCTime
osCreationDate = lens _osCreationDate (\ s a -> s{_osCreationDate = a}) . _Time;
osUpdateDate :: Lens' OptionStatus UTCTime
osUpdateDate = lens _osUpdateDate (\ s a -> s{_osUpdateDate = a}) . _Time;
osState :: Lens' OptionStatus OptionState
osState = lens _osState (\ s a -> s{_osState = a});
instance FromXML OptionStatus where
parseXML x
= OptionStatus' <$>
(x .@? "PendingDeletion") <*> (x .@? "UpdateVersion")
<*> (x .@ "CreationDate")
<*> (x .@ "UpdateDate")
<*> (x .@ "State")
data ScalingParameters = ScalingParameters'
{ _spDesiredInstanceType :: !(Maybe PartitionInstanceType)
, _spDesiredReplicationCount :: !(Maybe Nat)
, _spDesiredPartitionCount :: !(Maybe Nat)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
scalingParameters
:: ScalingParameters
scalingParameters =
ScalingParameters'
{ _spDesiredInstanceType = Nothing
, _spDesiredReplicationCount = Nothing
, _spDesiredPartitionCount = Nothing
}
spDesiredInstanceType :: Lens' ScalingParameters (Maybe PartitionInstanceType)
spDesiredInstanceType = lens _spDesiredInstanceType (\ s a -> s{_spDesiredInstanceType = a});
spDesiredReplicationCount :: Lens' ScalingParameters (Maybe Natural)
spDesiredReplicationCount = lens _spDesiredReplicationCount (\ s a -> s{_spDesiredReplicationCount = a}) . mapping _Nat;
spDesiredPartitionCount :: Lens' ScalingParameters (Maybe Natural)
spDesiredPartitionCount = lens _spDesiredPartitionCount (\ s a -> s{_spDesiredPartitionCount = a}) . mapping _Nat;
instance FromXML ScalingParameters where
parseXML x
= ScalingParameters' <$>
(x .@? "DesiredInstanceType") <*>
(x .@? "DesiredReplicationCount")
<*> (x .@? "DesiredPartitionCount")
instance ToQuery ScalingParameters where
toQuery ScalingParameters'{..}
= mconcat
["DesiredInstanceType" =: _spDesiredInstanceType,
"DesiredReplicationCount" =:
_spDesiredReplicationCount,
"DesiredPartitionCount" =: _spDesiredPartitionCount]
data ScalingParametersStatus = ScalingParametersStatus'
{ _spsOptions :: !ScalingParameters
, _spsStatus :: !OptionStatus
} deriving (Eq,Read,Show,Data,Typeable,Generic)
scalingParametersStatus
:: ScalingParameters
-> OptionStatus
-> ScalingParametersStatus
scalingParametersStatus pOptions_ pStatus_ =
ScalingParametersStatus'
{ _spsOptions = pOptions_
, _spsStatus = pStatus_
}
spsOptions :: Lens' ScalingParametersStatus ScalingParameters
spsOptions = lens _spsOptions (\ s a -> s{_spsOptions = a});
spsStatus :: Lens' ScalingParametersStatus OptionStatus
spsStatus = lens _spsStatus (\ s a -> s{_spsStatus = a});
instance FromXML ScalingParametersStatus where
parseXML x
= ScalingParametersStatus' <$>
(x .@ "Options") <*> (x .@ "Status")
newtype ServiceEndpoint = ServiceEndpoint'
{ _seEndpoint :: Maybe Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
serviceEndpoint
:: ServiceEndpoint
serviceEndpoint =
ServiceEndpoint'
{ _seEndpoint = Nothing
}
seEndpoint :: Lens' ServiceEndpoint (Maybe Text)
seEndpoint = lens _seEndpoint (\ s a -> s{_seEndpoint = a});
instance FromXML ServiceEndpoint where
parseXML x = ServiceEndpoint' <$> (x .@? "Endpoint")
data Suggester = Suggester'
{ _sSuggesterName :: !Text
, _sDocumentSuggesterOptions :: !DocumentSuggesterOptions
} deriving (Eq,Read,Show,Data,Typeable,Generic)
suggester
:: Text
-> DocumentSuggesterOptions
-> Suggester
suggester pSuggesterName_ pDocumentSuggesterOptions_ =
Suggester'
{ _sSuggesterName = pSuggesterName_
, _sDocumentSuggesterOptions = pDocumentSuggesterOptions_
}
sSuggesterName :: Lens' Suggester Text
sSuggesterName = lens _sSuggesterName (\ s a -> s{_sSuggesterName = a});
sDocumentSuggesterOptions :: Lens' Suggester DocumentSuggesterOptions
sDocumentSuggesterOptions = lens _sDocumentSuggesterOptions (\ s a -> s{_sDocumentSuggesterOptions = a});
instance FromXML Suggester where
parseXML x
= Suggester' <$>
(x .@ "SuggesterName") <*>
(x .@ "DocumentSuggesterOptions")
instance ToQuery Suggester where
toQuery Suggester'{..}
= mconcat
["SuggesterName" =: _sSuggesterName,
"DocumentSuggesterOptions" =:
_sDocumentSuggesterOptions]
data SuggesterStatus = SuggesterStatus'
{ _ssOptions :: !Suggester
, _ssStatus :: !OptionStatus
} deriving (Eq,Read,Show,Data,Typeable,Generic)
suggesterStatus
:: Suggester
-> OptionStatus
-> SuggesterStatus
suggesterStatus pOptions_ pStatus_ =
SuggesterStatus'
{ _ssOptions = pOptions_
, _ssStatus = pStatus_
}
ssOptions :: Lens' SuggesterStatus Suggester
ssOptions = lens _ssOptions (\ s a -> s{_ssOptions = a});
ssStatus :: Lens' SuggesterStatus OptionStatus
ssStatus = lens _ssStatus (\ s a -> s{_ssStatus = a});
instance FromXML SuggesterStatus where
parseXML x
= SuggesterStatus' <$>
(x .@ "Options") <*> (x .@ "Status")
data TextArrayOptions = TextArrayOptions'
{ _taoSourceFields :: !(Maybe Text)
, _taoReturnEnabled :: !(Maybe Bool)
, _taoAnalysisScheme :: !(Maybe Text)
, _taoHighlightEnabled :: !(Maybe Bool)
, _taoDefaultValue :: !(Maybe Text)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
textArrayOptions
:: TextArrayOptions
textArrayOptions =
TextArrayOptions'
{ _taoSourceFields = Nothing
, _taoReturnEnabled = Nothing
, _taoAnalysisScheme = Nothing
, _taoHighlightEnabled = Nothing
, _taoDefaultValue = Nothing
}
taoSourceFields :: Lens' TextArrayOptions (Maybe Text)
taoSourceFields = lens _taoSourceFields (\ s a -> s{_taoSourceFields = a});
taoReturnEnabled :: Lens' TextArrayOptions (Maybe Bool)
taoReturnEnabled = lens _taoReturnEnabled (\ s a -> s{_taoReturnEnabled = a});
taoAnalysisScheme :: Lens' TextArrayOptions (Maybe Text)
taoAnalysisScheme = lens _taoAnalysisScheme (\ s a -> s{_taoAnalysisScheme = a});
taoHighlightEnabled :: Lens' TextArrayOptions (Maybe Bool)
taoHighlightEnabled = lens _taoHighlightEnabled (\ s a -> s{_taoHighlightEnabled = a});
taoDefaultValue :: Lens' TextArrayOptions (Maybe Text)
taoDefaultValue = lens _taoDefaultValue (\ s a -> s{_taoDefaultValue = a});
instance FromXML TextArrayOptions where
parseXML x
= TextArrayOptions' <$>
(x .@? "SourceFields") <*> (x .@? "ReturnEnabled")
<*> (x .@? "AnalysisScheme")
<*> (x .@? "HighlightEnabled")
<*> (x .@? "DefaultValue")
instance ToQuery TextArrayOptions where
toQuery TextArrayOptions'{..}
= mconcat
["SourceFields" =: _taoSourceFields,
"ReturnEnabled" =: _taoReturnEnabled,
"AnalysisScheme" =: _taoAnalysisScheme,
"HighlightEnabled" =: _taoHighlightEnabled,
"DefaultValue" =: _taoDefaultValue]
data TextOptions = TextOptions'
{ _toSourceField :: !(Maybe Text)
, _toReturnEnabled :: !(Maybe Bool)
, _toAnalysisScheme :: !(Maybe Text)
, _toHighlightEnabled :: !(Maybe Bool)
, _toSortEnabled :: !(Maybe Bool)
, _toDefaultValue :: !(Maybe Text)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
textOptions
:: TextOptions
textOptions =
TextOptions'
{ _toSourceField = Nothing
, _toReturnEnabled = Nothing
, _toAnalysisScheme = Nothing
, _toHighlightEnabled = Nothing
, _toSortEnabled = Nothing
, _toDefaultValue = Nothing
}
toSourceField :: Lens' TextOptions (Maybe Text)
toSourceField = lens _toSourceField (\ s a -> s{_toSourceField = a});
toReturnEnabled :: Lens' TextOptions (Maybe Bool)
toReturnEnabled = lens _toReturnEnabled (\ s a -> s{_toReturnEnabled = a});
toAnalysisScheme :: Lens' TextOptions (Maybe Text)
toAnalysisScheme = lens _toAnalysisScheme (\ s a -> s{_toAnalysisScheme = a});
toHighlightEnabled :: Lens' TextOptions (Maybe Bool)
toHighlightEnabled = lens _toHighlightEnabled (\ s a -> s{_toHighlightEnabled = a});
toSortEnabled :: Lens' TextOptions (Maybe Bool)
toSortEnabled = lens _toSortEnabled (\ s a -> s{_toSortEnabled = a});
toDefaultValue :: Lens' TextOptions (Maybe Text)
toDefaultValue = lens _toDefaultValue (\ s a -> s{_toDefaultValue = a});
instance FromXML TextOptions where
parseXML x
= TextOptions' <$>
(x .@? "SourceField") <*> (x .@? "ReturnEnabled") <*>
(x .@? "AnalysisScheme")
<*> (x .@? "HighlightEnabled")
<*> (x .@? "SortEnabled")
<*> (x .@? "DefaultValue")
instance ToQuery TextOptions where
toQuery TextOptions'{..}
= mconcat
["SourceField" =: _toSourceField,
"ReturnEnabled" =: _toReturnEnabled,
"AnalysisScheme" =: _toAnalysisScheme,
"HighlightEnabled" =: _toHighlightEnabled,
"SortEnabled" =: _toSortEnabled,
"DefaultValue" =: _toDefaultValue]