{-# 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.DescribeAvailabilityOptions
(
describeAvailabilityOptions
, DescribeAvailabilityOptions
, daoDeployed
, daoDomainName
, describeAvailabilityOptionsResponse
, DescribeAvailabilityOptionsResponse
, daorsAvailabilityOptions
, daorsResponseStatus
) 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 DescribeAvailabilityOptions = DescribeAvailabilityOptions'
{ _daoDeployed :: !(Maybe Bool)
, _daoDomainName :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeAvailabilityOptions
:: Text
-> DescribeAvailabilityOptions
describeAvailabilityOptions pDomainName_ =
DescribeAvailabilityOptions'
{_daoDeployed = Nothing, _daoDomainName = pDomainName_}
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})
instance AWSRequest DescribeAvailabilityOptions where
type Rs DescribeAvailabilityOptions =
DescribeAvailabilityOptionsResponse
request = postQuery cloudSearch
response
= receiveXMLWrapper
"DescribeAvailabilityOptionsResult"
(\ s h x ->
DescribeAvailabilityOptionsResponse' <$>
(x .@? "AvailabilityOptions") <*>
(pure (fromEnum s)))
instance Hashable DescribeAvailabilityOptions where
instance NFData DescribeAvailabilityOptions where
instance ToHeaders DescribeAvailabilityOptions where
toHeaders = const mempty
instance ToPath DescribeAvailabilityOptions where
toPath = const "/"
instance ToQuery DescribeAvailabilityOptions where
toQuery DescribeAvailabilityOptions'{..}
= mconcat
["Action" =:
("DescribeAvailabilityOptions" :: ByteString),
"Version" =: ("2013-01-01" :: ByteString),
"Deployed" =: _daoDeployed,
"DomainName" =: _daoDomainName]
data DescribeAvailabilityOptionsResponse = DescribeAvailabilityOptionsResponse'
{ _daorsAvailabilityOptions :: !(Maybe AvailabilityOptionsStatus)
, _daorsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeAvailabilityOptionsResponse
:: Int
-> DescribeAvailabilityOptionsResponse
describeAvailabilityOptionsResponse pResponseStatus_ =
DescribeAvailabilityOptionsResponse'
{ _daorsAvailabilityOptions = Nothing
, _daorsResponseStatus = pResponseStatus_
}
daorsAvailabilityOptions :: Lens' DescribeAvailabilityOptionsResponse (Maybe AvailabilityOptionsStatus)
daorsAvailabilityOptions = lens _daorsAvailabilityOptions (\ s a -> s{_daorsAvailabilityOptions = a})
daorsResponseStatus :: Lens' DescribeAvailabilityOptionsResponse Int
daorsResponseStatus = lens _daorsResponseStatus (\ s a -> s{_daorsResponseStatus = a})
instance NFData DescribeAvailabilityOptionsResponse
where