module Network.AWS.CloudSearch.DeleteIndexField
(
DeleteIndexField
, deleteIndexField
, dif1DomainName
, dif1IndexFieldName
, DeleteIndexFieldResponse
, deleteIndexFieldResponse
, difrIndexField
) where
import Network.AWS.Prelude
import Network.AWS.Request.Query
import Network.AWS.CloudSearch.Types
import qualified GHC.Exts
data DeleteIndexField = DeleteIndexField
{ _dif1DomainName :: Text
, _dif1IndexFieldName :: Text
} deriving (Eq, Ord, Show)
deleteIndexField :: Text
-> Text
-> DeleteIndexField
deleteIndexField p1 p2 = DeleteIndexField
{ _dif1DomainName = p1
, _dif1IndexFieldName = p2
}
dif1DomainName :: Lens' DeleteIndexField Text
dif1DomainName = lens _dif1DomainName (\s a -> s { _dif1DomainName = a })
dif1IndexFieldName :: Lens' DeleteIndexField Text
dif1IndexFieldName =
lens _dif1IndexFieldName (\s a -> s { _dif1IndexFieldName = a })
newtype DeleteIndexFieldResponse = DeleteIndexFieldResponse
{ _difrIndexField :: IndexFieldStatus
} deriving (Eq, Show)
deleteIndexFieldResponse :: IndexFieldStatus
-> DeleteIndexFieldResponse
deleteIndexFieldResponse p1 = DeleteIndexFieldResponse
{ _difrIndexField = p1
}
difrIndexField :: Lens' DeleteIndexFieldResponse IndexFieldStatus
difrIndexField = lens _difrIndexField (\s a -> s { _difrIndexField = a })
instance ToPath DeleteIndexField where
toPath = const "/"
instance ToQuery DeleteIndexField where
toQuery DeleteIndexField{..} = mconcat
[ "DomainName" =? _dif1DomainName
, "IndexFieldName" =? _dif1IndexFieldName
]
instance ToHeaders DeleteIndexField
instance AWSRequest DeleteIndexField where
type Sv DeleteIndexField = CloudSearch
type Rs DeleteIndexField = DeleteIndexFieldResponse
request = post "DeleteIndexField"
response = xmlResponse
instance FromXML DeleteIndexFieldResponse where
parseXML = withElement "DeleteIndexFieldResult" $ \x -> DeleteIndexFieldResponse
<$> x .@ "IndexField"