module Network.AWS.CloudSearch.DescribeServiceAccessPolicies
(
DescribeServiceAccessPolicies
, describeServiceAccessPolicies
, dsapDeployed
, dsapDomainName
, DescribeServiceAccessPoliciesResponse
, describeServiceAccessPoliciesResponse
, dsaprAccessPolicies
) where
import Network.AWS.Prelude
import Network.AWS.Request.Query
import Network.AWS.CloudSearch.Types
import qualified GHC.Exts
data DescribeServiceAccessPolicies = DescribeServiceAccessPolicies
{ _dsapDeployed :: Maybe Bool
, _dsapDomainName :: Text
} deriving (Eq, Ord, Show)
describeServiceAccessPolicies :: Text
-> DescribeServiceAccessPolicies
describeServiceAccessPolicies p1 = DescribeServiceAccessPolicies
{ _dsapDomainName = p1
, _dsapDeployed = Nothing
}
dsapDeployed :: Lens' DescribeServiceAccessPolicies (Maybe Bool)
dsapDeployed = lens _dsapDeployed (\s a -> s { _dsapDeployed = a })
dsapDomainName :: Lens' DescribeServiceAccessPolicies Text
dsapDomainName = lens _dsapDomainName (\s a -> s { _dsapDomainName = a })
newtype DescribeServiceAccessPoliciesResponse = DescribeServiceAccessPoliciesResponse
{ _dsaprAccessPolicies :: AccessPoliciesStatus
} deriving (Eq, Show)
describeServiceAccessPoliciesResponse :: AccessPoliciesStatus
-> DescribeServiceAccessPoliciesResponse
describeServiceAccessPoliciesResponse p1 = DescribeServiceAccessPoliciesResponse
{ _dsaprAccessPolicies = p1
}
dsaprAccessPolicies :: Lens' DescribeServiceAccessPoliciesResponse AccessPoliciesStatus
dsaprAccessPolicies =
lens _dsaprAccessPolicies (\s a -> s { _dsaprAccessPolicies = a })
instance ToPath DescribeServiceAccessPolicies where
toPath = const "/"
instance ToQuery DescribeServiceAccessPolicies where
toQuery DescribeServiceAccessPolicies{..} = mconcat
[ "Deployed" =? _dsapDeployed
, "DomainName" =? _dsapDomainName
]
instance ToHeaders DescribeServiceAccessPolicies
instance AWSRequest DescribeServiceAccessPolicies where
type Sv DescribeServiceAccessPolicies = CloudSearch
type Rs DescribeServiceAccessPolicies = DescribeServiceAccessPoliciesResponse
request = post "DescribeServiceAccessPolicies"
response = xmlResponse
instance FromXML DescribeServiceAccessPoliciesResponse where
parseXML = withElement "DescribeServiceAccessPoliciesResult" $ \x -> DescribeServiceAccessPoliciesResponse
<$> x .@ "AccessPolicies"