module Network.AWS.Redshift.DeleteSnapshotCopyGrant
(
deleteSnapshotCopyGrant
, DeleteSnapshotCopyGrant
, dscgSnapshotCopyGrantName
, deleteSnapshotCopyGrantResponse
, DeleteSnapshotCopyGrantResponse
) where
import Network.AWS.Prelude
import Network.AWS.Redshift.Types
import Network.AWS.Redshift.Types.Product
import Network.AWS.Request
import Network.AWS.Response
newtype DeleteSnapshotCopyGrant = DeleteSnapshotCopyGrant'
{ _dscgSnapshotCopyGrantName :: Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
deleteSnapshotCopyGrant
:: Text
-> DeleteSnapshotCopyGrant
deleteSnapshotCopyGrant pSnapshotCopyGrantName_ =
DeleteSnapshotCopyGrant'
{ _dscgSnapshotCopyGrantName = pSnapshotCopyGrantName_
}
dscgSnapshotCopyGrantName :: Lens' DeleteSnapshotCopyGrant Text
dscgSnapshotCopyGrantName = lens _dscgSnapshotCopyGrantName (\ s a -> s{_dscgSnapshotCopyGrantName = a});
instance AWSRequest DeleteSnapshotCopyGrant where
type Rs DeleteSnapshotCopyGrant =
DeleteSnapshotCopyGrantResponse
request = postQuery redshift
response
= receiveNull DeleteSnapshotCopyGrantResponse'
instance ToHeaders DeleteSnapshotCopyGrant where
toHeaders = const mempty
instance ToPath DeleteSnapshotCopyGrant where
toPath = const "/"
instance ToQuery DeleteSnapshotCopyGrant where
toQuery DeleteSnapshotCopyGrant'{..}
= mconcat
["Action" =:
("DeleteSnapshotCopyGrant" :: ByteString),
"Version" =: ("2012-12-01" :: ByteString),
"SnapshotCopyGrantName" =:
_dscgSnapshotCopyGrantName]
data DeleteSnapshotCopyGrantResponse =
DeleteSnapshotCopyGrantResponse'
deriving (Eq,Read,Show,Data,Typeable,Generic)
deleteSnapshotCopyGrantResponse
:: DeleteSnapshotCopyGrantResponse
deleteSnapshotCopyGrantResponse = DeleteSnapshotCopyGrantResponse'