{-# 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 #-} -- Derived from AWS service descriptions, licensed under Apache 2.0. -- | -- Module : Network.AWS.Redshift.RestoreFromClusterSnapshot -- Copyright : (c) 2013-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- -- Creates a new cluster from a snapshot. By default, Amazon Redshift creates the resulting cluster with the same configuration as the original cluster from which the snapshot was created, except that the new cluster is created with the default cluster security and parameter groups. After Amazon Redshift creates the cluster, you can use the < ModifyCluster> API to associate a different security group and different parameter group with the restored cluster. If you are using a DS node type, you can also choose to change to another DS node type of the same size during restore. -- -- If you restore a cluster into a VPC, you must provide a cluster subnet group where you want the cluster restored. -- -- For more information about working with snapshots, go to in the /Amazon Redshift Cluster Management Guide/. module Network.AWS.Redshift.RestoreFromClusterSnapshot ( -- * Creating a Request restoreFromClusterSnapshot , RestoreFromClusterSnapshot -- * Request Lenses , rfcsAdditionalInfo , rfcsPubliclyAccessible , rfcsSnapshotClusterIdentifier , rfcsHSMConfigurationIdentifier , rfcsClusterSecurityGroups , rfcsAutomatedSnapshotRetentionPeriod , rfcsClusterSubnetGroupName , rfcsHSMClientCertificateIdentifier , rfcsElasticIP , rfcsPreferredMaintenanceWindow , rfcsKMSKeyId , rfcsAvailabilityZone , rfcsVPCSecurityGroupIds , rfcsIAMRoles , rfcsOwnerAccount , rfcsNodeType , rfcsAllowVersionUpgrade , rfcsClusterParameterGroupName , rfcsPort , rfcsClusterIdentifier , rfcsSnapshotIdentifier -- * Destructuring the Response , restoreFromClusterSnapshotResponse , RestoreFromClusterSnapshotResponse -- * Response Lenses , rfcsrsCluster , rfcsrsResponseStatus ) 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 -- | -- -- /See:/ 'restoreFromClusterSnapshot' smart constructor. data RestoreFromClusterSnapshot = RestoreFromClusterSnapshot' { _rfcsAdditionalInfo :: !(Maybe Text) , _rfcsPubliclyAccessible :: !(Maybe Bool) , _rfcsSnapshotClusterIdentifier :: !(Maybe Text) , _rfcsHSMConfigurationIdentifier :: !(Maybe Text) , _rfcsClusterSecurityGroups :: !(Maybe [Text]) , _rfcsAutomatedSnapshotRetentionPeriod :: !(Maybe Int) , _rfcsClusterSubnetGroupName :: !(Maybe Text) , _rfcsHSMClientCertificateIdentifier :: !(Maybe Text) , _rfcsElasticIP :: !(Maybe Text) , _rfcsPreferredMaintenanceWindow :: !(Maybe Text) , _rfcsKMSKeyId :: !(Maybe Text) , _rfcsAvailabilityZone :: !(Maybe Text) , _rfcsVPCSecurityGroupIds :: !(Maybe [Text]) , _rfcsIAMRoles :: !(Maybe [Text]) , _rfcsOwnerAccount :: !(Maybe Text) , _rfcsNodeType :: !(Maybe Text) , _rfcsAllowVersionUpgrade :: !(Maybe Bool) , _rfcsClusterParameterGroupName :: !(Maybe Text) , _rfcsPort :: !(Maybe Int) , _rfcsClusterIdentifier :: !Text , _rfcsSnapshotIdentifier :: !Text } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'RestoreFromClusterSnapshot' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'rfcsAdditionalInfo' -- -- * 'rfcsPubliclyAccessible' -- -- * 'rfcsSnapshotClusterIdentifier' -- -- * 'rfcsHSMConfigurationIdentifier' -- -- * 'rfcsClusterSecurityGroups' -- -- * 'rfcsAutomatedSnapshotRetentionPeriod' -- -- * 'rfcsClusterSubnetGroupName' -- -- * 'rfcsHSMClientCertificateIdentifier' -- -- * 'rfcsElasticIP' -- -- * 'rfcsPreferredMaintenanceWindow' -- -- * 'rfcsKMSKeyId' -- -- * 'rfcsAvailabilityZone' -- -- * 'rfcsVPCSecurityGroupIds' -- -- * 'rfcsIAMRoles' -- -- * 'rfcsOwnerAccount' -- -- * 'rfcsNodeType' -- -- * 'rfcsAllowVersionUpgrade' -- -- * 'rfcsClusterParameterGroupName' -- -- * 'rfcsPort' -- -- * 'rfcsClusterIdentifier' -- -- * 'rfcsSnapshotIdentifier' restoreFromClusterSnapshot :: Text -- ^ 'rfcsClusterIdentifier' -> Text -- ^ 'rfcsSnapshotIdentifier' -> RestoreFromClusterSnapshot restoreFromClusterSnapshot pClusterIdentifier_ pSnapshotIdentifier_ = RestoreFromClusterSnapshot' { _rfcsAdditionalInfo = Nothing , _rfcsPubliclyAccessible = Nothing , _rfcsSnapshotClusterIdentifier = Nothing , _rfcsHSMConfigurationIdentifier = Nothing , _rfcsClusterSecurityGroups = Nothing , _rfcsAutomatedSnapshotRetentionPeriod = Nothing , _rfcsClusterSubnetGroupName = Nothing , _rfcsHSMClientCertificateIdentifier = Nothing , _rfcsElasticIP = Nothing , _rfcsPreferredMaintenanceWindow = Nothing , _rfcsKMSKeyId = Nothing , _rfcsAvailabilityZone = Nothing , _rfcsVPCSecurityGroupIds = Nothing , _rfcsIAMRoles = Nothing , _rfcsOwnerAccount = Nothing , _rfcsNodeType = Nothing , _rfcsAllowVersionUpgrade = Nothing , _rfcsClusterParameterGroupName = Nothing , _rfcsPort = Nothing , _rfcsClusterIdentifier = pClusterIdentifier_ , _rfcsSnapshotIdentifier = pSnapshotIdentifier_ } -- | Reserved. rfcsAdditionalInfo :: Lens' RestoreFromClusterSnapshot (Maybe Text) rfcsAdditionalInfo = lens _rfcsAdditionalInfo (\ s a -> s{_rfcsAdditionalInfo = a}); -- | If 'true', the cluster can be accessed from a public network. rfcsPubliclyAccessible :: Lens' RestoreFromClusterSnapshot (Maybe Bool) rfcsPubliclyAccessible = lens _rfcsPubliclyAccessible (\ s a -> s{_rfcsPubliclyAccessible = a}); -- | The name of the cluster the source snapshot was created from. This parameter is required if your IAM user has a policy containing a snapshot resource element that specifies anything other than * for the cluster name. rfcsSnapshotClusterIdentifier :: Lens' RestoreFromClusterSnapshot (Maybe Text) rfcsSnapshotClusterIdentifier = lens _rfcsSnapshotClusterIdentifier (\ s a -> s{_rfcsSnapshotClusterIdentifier = a}); -- | Specifies the name of the HSM configuration that contains the information the Amazon Redshift cluster can use to retrieve and store keys in an HSM. rfcsHSMConfigurationIdentifier :: Lens' RestoreFromClusterSnapshot (Maybe Text) rfcsHSMConfigurationIdentifier = lens _rfcsHSMConfigurationIdentifier (\ s a -> s{_rfcsHSMConfigurationIdentifier = a}); -- | A list of security groups to be associated with this cluster. -- -- Default: The default cluster security group for Amazon Redshift. -- -- Cluster security groups only apply to clusters outside of VPCs. rfcsClusterSecurityGroups :: Lens' RestoreFromClusterSnapshot [Text] rfcsClusterSecurityGroups = lens _rfcsClusterSecurityGroups (\ s a -> s{_rfcsClusterSecurityGroups = a}) . _Default . _Coerce; -- | The number of days that automated snapshots are retained. If the value is 0, automated snapshots are disabled. Even if automated snapshots are disabled, you can still create manual snapshots when you want with < CreateClusterSnapshot>. -- -- Default: The value selected for the cluster from which the snapshot was taken. -- -- Constraints: Must be a value from 0 to 35. rfcsAutomatedSnapshotRetentionPeriod :: Lens' RestoreFromClusterSnapshot (Maybe Int) rfcsAutomatedSnapshotRetentionPeriod = lens _rfcsAutomatedSnapshotRetentionPeriod (\ s a -> s{_rfcsAutomatedSnapshotRetentionPeriod = a}); -- | The name of the subnet group where you want to cluster restored. -- -- A snapshot of cluster in VPC can be restored only in VPC. Therefore, you must provide subnet group name where you want the cluster restored. rfcsClusterSubnetGroupName :: Lens' RestoreFromClusterSnapshot (Maybe Text) rfcsClusterSubnetGroupName = lens _rfcsClusterSubnetGroupName (\ s a -> s{_rfcsClusterSubnetGroupName = a}); -- | Specifies the name of the HSM client certificate the Amazon Redshift cluster uses to retrieve the data encryption keys stored in an HSM. rfcsHSMClientCertificateIdentifier :: Lens' RestoreFromClusterSnapshot (Maybe Text) rfcsHSMClientCertificateIdentifier = lens _rfcsHSMClientCertificateIdentifier (\ s a -> s{_rfcsHSMClientCertificateIdentifier = a}); -- | The elastic IP (EIP) address for the cluster. rfcsElasticIP :: Lens' RestoreFromClusterSnapshot (Maybe Text) rfcsElasticIP = lens _rfcsElasticIP (\ s a -> s{_rfcsElasticIP = a}); -- | The weekly time range (in UTC) during which automated cluster maintenance can occur. -- -- Format: 'ddd:hh24:mi-ddd:hh24:mi' -- -- Default: The value selected for the cluster from which the snapshot was taken. For more information about the time blocks for each region, see in Amazon Redshift Cluster Management Guide. -- -- Valid Days: Mon | Tue | Wed | Thu | Fri | Sat | Sun -- -- Constraints: Minimum 30-minute window. rfcsPreferredMaintenanceWindow :: Lens' RestoreFromClusterSnapshot (Maybe Text) rfcsPreferredMaintenanceWindow = lens _rfcsPreferredMaintenanceWindow (\ s a -> s{_rfcsPreferredMaintenanceWindow = a}); -- | The AWS Key Management Service (KMS) key ID of the encryption key that you want to use to encrypt data in the cluster that you restore from a shared snapshot. rfcsKMSKeyId :: Lens' RestoreFromClusterSnapshot (Maybe Text) rfcsKMSKeyId = lens _rfcsKMSKeyId (\ s a -> s{_rfcsKMSKeyId = a}); -- | The Amazon EC2 Availability Zone in which to restore the cluster. -- -- Default: A random, system-chosen Availability Zone. -- -- Example: 'us-east-1a' rfcsAvailabilityZone :: Lens' RestoreFromClusterSnapshot (Maybe Text) rfcsAvailabilityZone = lens _rfcsAvailabilityZone (\ s a -> s{_rfcsAvailabilityZone = a}); -- | A list of Virtual Private Cloud (VPC) security groups to be associated with the cluster. -- -- Default: The default VPC security group is associated with the cluster. -- -- VPC security groups only apply to clusters in VPCs. rfcsVPCSecurityGroupIds :: Lens' RestoreFromClusterSnapshot [Text] rfcsVPCSecurityGroupIds = lens _rfcsVPCSecurityGroupIds (\ s a -> s{_rfcsVPCSecurityGroupIds = a}) . _Default . _Coerce; -- | A list of AWS Identity and Access Management (IAM) roles that can be used by the cluster to access other AWS services. You must supply the IAM roles in their Amazon Resource Name (ARN) format. You can supply up to 10 IAM roles in a single request. -- -- A cluster can have up to 10 IAM roles associated at any time. rfcsIAMRoles :: Lens' RestoreFromClusterSnapshot [Text] rfcsIAMRoles = lens _rfcsIAMRoles (\ s a -> s{_rfcsIAMRoles = a}) . _Default . _Coerce; -- | The AWS customer account used to create or copy the snapshot. Required if you are restoring a snapshot you do not own, optional if you own the snapshot. rfcsOwnerAccount :: Lens' RestoreFromClusterSnapshot (Maybe Text) rfcsOwnerAccount = lens _rfcsOwnerAccount (\ s a -> s{_rfcsOwnerAccount = a}); -- | The node type that the restored cluster will be provisioned with. -- -- Default: The node type of the cluster from which the snapshot was taken. You can modify this if you are using any DS node type. In that case, you can choose to restore into another DS node type of the same size. For example, you can restore ds1.8xlarge into ds2.8xlarge, or ds2.xlarge into ds1.xlarge. If you have a DC instance type, you must restore into that same instance type and size. In other words, you can only restore a dc1.large instance type into another dc1.large instance type. For more information about node types, see in the /Amazon Redshift Cluster Management Guide/ rfcsNodeType :: Lens' RestoreFromClusterSnapshot (Maybe Text) rfcsNodeType = lens _rfcsNodeType (\ s a -> s{_rfcsNodeType = a}); -- | If 'true', major version upgrades can be applied during the maintenance window to the Amazon Redshift engine that is running on the cluster. -- -- Default: 'true' rfcsAllowVersionUpgrade :: Lens' RestoreFromClusterSnapshot (Maybe Bool) rfcsAllowVersionUpgrade = lens _rfcsAllowVersionUpgrade (\ s a -> s{_rfcsAllowVersionUpgrade = a}); -- | The name of the parameter group to be associated with this cluster. -- -- Default: The default Amazon Redshift cluster parameter group. For information about the default parameter group, go to . -- -- Constraints: -- -- - Must be 1 to 255 alphanumeric characters or hyphens. -- - First character must be a letter. -- - Cannot end with a hyphen or contain two consecutive hyphens. rfcsClusterParameterGroupName :: Lens' RestoreFromClusterSnapshot (Maybe Text) rfcsClusterParameterGroupName = lens _rfcsClusterParameterGroupName (\ s a -> s{_rfcsClusterParameterGroupName = a}); -- | The port number on which the cluster accepts connections. -- -- Default: The same port as the original cluster. -- -- Constraints: Must be between '1115' and '65535'. rfcsPort :: Lens' RestoreFromClusterSnapshot (Maybe Int) rfcsPort = lens _rfcsPort (\ s a -> s{_rfcsPort = a}); -- | The identifier of the cluster that will be created from restoring the snapshot. -- -- Constraints: -- -- - Must contain from 1 to 63 alphanumeric characters or hyphens. -- - Alphabetic characters must be lowercase. -- - First character must be a letter. -- - Cannot end with a hyphen or contain two consecutive hyphens. -- - Must be unique for all clusters within an AWS account. rfcsClusterIdentifier :: Lens' RestoreFromClusterSnapshot Text rfcsClusterIdentifier = lens _rfcsClusterIdentifier (\ s a -> s{_rfcsClusterIdentifier = a}); -- | The name of the snapshot from which to create the new cluster. This parameter isn\'t case sensitive. -- -- Example: 'my-snapshot-id' rfcsSnapshotIdentifier :: Lens' RestoreFromClusterSnapshot Text rfcsSnapshotIdentifier = lens _rfcsSnapshotIdentifier (\ s a -> s{_rfcsSnapshotIdentifier = a}); instance AWSRequest RestoreFromClusterSnapshot where type Rs RestoreFromClusterSnapshot = RestoreFromClusterSnapshotResponse request = postQuery redshift response = receiveXMLWrapper "RestoreFromClusterSnapshotResult" (\ s h x -> RestoreFromClusterSnapshotResponse' <$> (x .@? "Cluster") <*> (pure (fromEnum s))) instance Hashable RestoreFromClusterSnapshot instance NFData RestoreFromClusterSnapshot instance ToHeaders RestoreFromClusterSnapshot where toHeaders = const mempty instance ToPath RestoreFromClusterSnapshot where toPath = const "/" instance ToQuery RestoreFromClusterSnapshot where toQuery RestoreFromClusterSnapshot'{..} = mconcat ["Action" =: ("RestoreFromClusterSnapshot" :: ByteString), "Version" =: ("2012-12-01" :: ByteString), "AdditionalInfo" =: _rfcsAdditionalInfo, "PubliclyAccessible" =: _rfcsPubliclyAccessible, "SnapshotClusterIdentifier" =: _rfcsSnapshotClusterIdentifier, "HsmConfigurationIdentifier" =: _rfcsHSMConfigurationIdentifier, "ClusterSecurityGroups" =: toQuery (toQueryList "ClusterSecurityGroupName" <$> _rfcsClusterSecurityGroups), "AutomatedSnapshotRetentionPeriod" =: _rfcsAutomatedSnapshotRetentionPeriod, "ClusterSubnetGroupName" =: _rfcsClusterSubnetGroupName, "HsmClientCertificateIdentifier" =: _rfcsHSMClientCertificateIdentifier, "ElasticIp" =: _rfcsElasticIP, "PreferredMaintenanceWindow" =: _rfcsPreferredMaintenanceWindow, "KmsKeyId" =: _rfcsKMSKeyId, "AvailabilityZone" =: _rfcsAvailabilityZone, "VpcSecurityGroupIds" =: toQuery (toQueryList "VpcSecurityGroupId" <$> _rfcsVPCSecurityGroupIds), "IamRoles" =: toQuery (toQueryList "IamRoleArn" <$> _rfcsIAMRoles), "OwnerAccount" =: _rfcsOwnerAccount, "NodeType" =: _rfcsNodeType, "AllowVersionUpgrade" =: _rfcsAllowVersionUpgrade, "ClusterParameterGroupName" =: _rfcsClusterParameterGroupName, "Port" =: _rfcsPort, "ClusterIdentifier" =: _rfcsClusterIdentifier, "SnapshotIdentifier" =: _rfcsSnapshotIdentifier] -- | /See:/ 'restoreFromClusterSnapshotResponse' smart constructor. data RestoreFromClusterSnapshotResponse = RestoreFromClusterSnapshotResponse' { _rfcsrsCluster :: !(Maybe Cluster) , _rfcsrsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'RestoreFromClusterSnapshotResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'rfcsrsCluster' -- -- * 'rfcsrsResponseStatus' restoreFromClusterSnapshotResponse :: Int -- ^ 'rfcsrsResponseStatus' -> RestoreFromClusterSnapshotResponse restoreFromClusterSnapshotResponse pResponseStatus_ = RestoreFromClusterSnapshotResponse' { _rfcsrsCluster = Nothing , _rfcsrsResponseStatus = pResponseStatus_ } -- | Undocumented member. rfcsrsCluster :: Lens' RestoreFromClusterSnapshotResponse (Maybe Cluster) rfcsrsCluster = lens _rfcsrsCluster (\ s a -> s{_rfcsrsCluster = a}); -- | The response status code. rfcsrsResponseStatus :: Lens' RestoreFromClusterSnapshotResponse Int rfcsrsResponseStatus = lens _rfcsrsResponseStatus (\ s a -> s{_rfcsrsResponseStatus = a}); instance NFData RestoreFromClusterSnapshotResponse