{-# 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.Redshift.ModifyClusterIAMRoles
(
modifyClusterIAMRoles
, ModifyClusterIAMRoles
, mcirRemoveIAMRoles
, mcirAddIAMRoles
, mcirClusterIdentifier
, modifyClusterIAMRolesResponse
, ModifyClusterIAMRolesResponse
, mcirrsCluster
, mcirrsResponseStatus
) where
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Redshift.Types
import Network.AWS.Redshift.Types.Product
import Network.AWS.Request
import Network.AWS.Response
data ModifyClusterIAMRoles = ModifyClusterIAMRoles'
{ _mcirRemoveIAMRoles :: !(Maybe [Text])
, _mcirAddIAMRoles :: !(Maybe [Text])
, _mcirClusterIdentifier :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
modifyClusterIAMRoles
:: Text
-> ModifyClusterIAMRoles
modifyClusterIAMRoles pClusterIdentifier_ =
ModifyClusterIAMRoles'
{ _mcirRemoveIAMRoles = Nothing
, _mcirAddIAMRoles = Nothing
, _mcirClusterIdentifier = pClusterIdentifier_
}
mcirRemoveIAMRoles :: Lens' ModifyClusterIAMRoles [Text]
mcirRemoveIAMRoles = lens _mcirRemoveIAMRoles (\ s a -> s{_mcirRemoveIAMRoles = a}) . _Default . _Coerce
mcirAddIAMRoles :: Lens' ModifyClusterIAMRoles [Text]
mcirAddIAMRoles = lens _mcirAddIAMRoles (\ s a -> s{_mcirAddIAMRoles = a}) . _Default . _Coerce
mcirClusterIdentifier :: Lens' ModifyClusterIAMRoles Text
mcirClusterIdentifier = lens _mcirClusterIdentifier (\ s a -> s{_mcirClusterIdentifier = a})
instance AWSRequest ModifyClusterIAMRoles where
type Rs ModifyClusterIAMRoles =
ModifyClusterIAMRolesResponse
request = postQuery redshift
response
= receiveXMLWrapper "ModifyClusterIamRolesResult"
(\ s h x ->
ModifyClusterIAMRolesResponse' <$>
(x .@? "Cluster") <*> (pure (fromEnum s)))
instance Hashable ModifyClusterIAMRoles where
instance NFData ModifyClusterIAMRoles where
instance ToHeaders ModifyClusterIAMRoles where
toHeaders = const mempty
instance ToPath ModifyClusterIAMRoles where
toPath = const "/"
instance ToQuery ModifyClusterIAMRoles where
toQuery ModifyClusterIAMRoles'{..}
= mconcat
["Action" =: ("ModifyClusterIamRoles" :: ByteString),
"Version" =: ("2012-12-01" :: ByteString),
"RemoveIamRoles" =:
toQuery
(toQueryList "IamRoleArn" <$> _mcirRemoveIAMRoles),
"AddIamRoles" =:
toQuery
(toQueryList "IamRoleArn" <$> _mcirAddIAMRoles),
"ClusterIdentifier" =: _mcirClusterIdentifier]
data ModifyClusterIAMRolesResponse = ModifyClusterIAMRolesResponse'
{ _mcirrsCluster :: !(Maybe Cluster)
, _mcirrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
modifyClusterIAMRolesResponse
:: Int
-> ModifyClusterIAMRolesResponse
modifyClusterIAMRolesResponse pResponseStatus_ =
ModifyClusterIAMRolesResponse'
{_mcirrsCluster = Nothing, _mcirrsResponseStatus = pResponseStatus_}
mcirrsCluster :: Lens' ModifyClusterIAMRolesResponse (Maybe Cluster)
mcirrsCluster = lens _mcirrsCluster (\ s a -> s{_mcirrsCluster = a})
mcirrsResponseStatus :: Lens' ModifyClusterIAMRolesResponse Int
mcirrsResponseStatus = lens _mcirrsResponseStatus (\ s a -> s{_mcirrsResponseStatus = a})
instance NFData ModifyClusterIAMRolesResponse where