module Network.AWS.CloudSearch.DescribeAvailabilityOptions
(
DescribeAvailabilityOptions
, describeAvailabilityOptions
, daoDeployed
, daoDomainName
, DescribeAvailabilityOptionsResponse
, describeAvailabilityOptionsResponse
, daorAvailabilityOptions
) where
import Network.AWS.Prelude
import Network.AWS.Request.Query
import Network.AWS.CloudSearch.Types
import qualified GHC.Exts
data DescribeAvailabilityOptions = DescribeAvailabilityOptions
{ _daoDeployed :: Maybe Bool
, _daoDomainName :: Text
} deriving (Eq, Ord, Show)
describeAvailabilityOptions :: Text
-> DescribeAvailabilityOptions
describeAvailabilityOptions p1 = DescribeAvailabilityOptions
{ _daoDomainName = p1
, _daoDeployed = Nothing
}
daoDeployed :: Lens' DescribeAvailabilityOptions (Maybe Bool)
daoDeployed = lens _daoDeployed (\s a -> s { _daoDeployed = a })
daoDomainName :: Lens' DescribeAvailabilityOptions Text
daoDomainName = lens _daoDomainName (\s a -> s { _daoDomainName = a })
newtype DescribeAvailabilityOptionsResponse = DescribeAvailabilityOptionsResponse
{ _daorAvailabilityOptions :: Maybe AvailabilityOptionsStatus
} deriving (Eq, Show)
describeAvailabilityOptionsResponse :: DescribeAvailabilityOptionsResponse
describeAvailabilityOptionsResponse = DescribeAvailabilityOptionsResponse
{ _daorAvailabilityOptions = Nothing
}
daorAvailabilityOptions :: Lens' DescribeAvailabilityOptionsResponse (Maybe AvailabilityOptionsStatus)
daorAvailabilityOptions =
lens _daorAvailabilityOptions (\s a -> s { _daorAvailabilityOptions = a })
instance ToPath DescribeAvailabilityOptions where
toPath = const "/"
instance ToQuery DescribeAvailabilityOptions where
toQuery DescribeAvailabilityOptions{..} = mconcat
[ "Deployed" =? _daoDeployed
, "DomainName" =? _daoDomainName
]
instance ToHeaders DescribeAvailabilityOptions
instance AWSRequest DescribeAvailabilityOptions where
type Sv DescribeAvailabilityOptions = CloudSearch
type Rs DescribeAvailabilityOptions = DescribeAvailabilityOptionsResponse
request = post "DescribeAvailabilityOptions"
response = xmlResponse
instance FromXML DescribeAvailabilityOptionsResponse where
parseXML = withElement "DescribeAvailabilityOptionsResult" $ \x -> DescribeAvailabilityOptionsResponse
<$> x .@? "AvailabilityOptions"