module Network.AWS.CloudSearch.UpdateServiceAccessPolicies
(
UpdateServiceAccessPolicies
, updateServiceAccessPolicies
, usapAccessPolicies
, usapDomainName
, UpdateServiceAccessPoliciesResponse
, updateServiceAccessPoliciesResponse
, usaprAccessPolicies
) where
import Network.AWS.Prelude
import Network.AWS.Request.Query
import Network.AWS.CloudSearch.Types
import qualified GHC.Exts
data UpdateServiceAccessPolicies = UpdateServiceAccessPolicies
{ _usapAccessPolicies :: Text
, _usapDomainName :: Text
} deriving (Eq, Ord, Show)
updateServiceAccessPolicies :: Text
-> Text
-> UpdateServiceAccessPolicies
updateServiceAccessPolicies p1 p2 = UpdateServiceAccessPolicies
{ _usapDomainName = p1
, _usapAccessPolicies = p2
}
usapAccessPolicies :: Lens' UpdateServiceAccessPolicies Text
usapAccessPolicies =
lens _usapAccessPolicies (\s a -> s { _usapAccessPolicies = a })
usapDomainName :: Lens' UpdateServiceAccessPolicies Text
usapDomainName = lens _usapDomainName (\s a -> s { _usapDomainName = a })
newtype UpdateServiceAccessPoliciesResponse = UpdateServiceAccessPoliciesResponse
{ _usaprAccessPolicies :: AccessPoliciesStatus
} deriving (Eq, Show)
updateServiceAccessPoliciesResponse :: AccessPoliciesStatus
-> UpdateServiceAccessPoliciesResponse
updateServiceAccessPoliciesResponse p1 = UpdateServiceAccessPoliciesResponse
{ _usaprAccessPolicies = p1
}
usaprAccessPolicies :: Lens' UpdateServiceAccessPoliciesResponse AccessPoliciesStatus
usaprAccessPolicies =
lens _usaprAccessPolicies (\s a -> s { _usaprAccessPolicies = a })
instance ToPath UpdateServiceAccessPolicies where
toPath = const "/"
instance ToQuery UpdateServiceAccessPolicies where
toQuery UpdateServiceAccessPolicies{..} = mconcat
[ "AccessPolicies" =? _usapAccessPolicies
, "DomainName" =? _usapDomainName
]
instance ToHeaders UpdateServiceAccessPolicies
instance AWSRequest UpdateServiceAccessPolicies where
type Sv UpdateServiceAccessPolicies = CloudSearch
type Rs UpdateServiceAccessPolicies = UpdateServiceAccessPoliciesResponse
request = post "UpdateServiceAccessPolicies"
response = xmlResponse
instance FromXML UpdateServiceAccessPoliciesResponse where
parseXML = withElement "UpdateServiceAccessPoliciesResult" $ \x -> UpdateServiceAccessPoliciesResponse
<$> x .@ "AccessPolicies"