diff --git a/README.md b/README.md --- a/README.md +++ b/README.md @@ -8,7 +8,7 @@ ## Version -`0.3.0` +`0.5.0` ## Description diff --git a/gen/Network/Google/BigtableAdmin.hs b/gen/Network/Google/BigtableAdmin.hs --- a/gen/Network/Google/BigtableAdmin.hs +++ b/gen/Network/Google/BigtableAdmin.hs @@ -13,7 +13,7 @@ -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- --- -- | +-- Administer your Cloud Bigtable tables and instances. -- -- /See:/ module Network.Google.BigtableAdmin @@ -118,12 +118,21 @@ -- ** bigtableadmin.projects.instances.tables.get , module Network.Google.Resource.BigtableAdmin.Projects.Instances.Tables.Get + -- ** bigtableadmin.projects.instances.tables.getIamPolicy + , module Network.Google.Resource.BigtableAdmin.Projects.Instances.Tables.GetIAMPolicy + -- ** bigtableadmin.projects.instances.tables.list , module Network.Google.Resource.BigtableAdmin.Projects.Instances.Tables.List -- ** bigtableadmin.projects.instances.tables.modifyColumnFamilies , module Network.Google.Resource.BigtableAdmin.Projects.Instances.Tables.ModifyColumnFamilies + -- ** bigtableadmin.projects.instances.tables.setIamPolicy + , module Network.Google.Resource.BigtableAdmin.Projects.Instances.Tables.SetIAMPolicy + + -- ** bigtableadmin.projects.instances.tables.testIamPermissions + , module Network.Google.Resource.BigtableAdmin.Projects.Instances.Tables.TestIAMPermissions + -- ** bigtableadmin.projects.instances.testIamPermissions , module Network.Google.Resource.BigtableAdmin.Projects.Instances.TestIAMPermissions @@ -265,9 +274,17 @@ , CreateClusterMetadata , createClusterMetadata , ccmRequestTime + , ccmTables , ccmOriginalRequest , ccmFinishTime + -- ** TableProgress + , TableProgress + , tableProgress + , tpState + , tpEstimatedSizeBytes + , tpEstimatedCopiedBytes + -- ** Union , Union , union @@ -278,6 +295,11 @@ , statusDetailsItem , sdiAddtional + -- ** CreateClusterMetadataTables + , CreateClusterMetadataTables + , createClusterMetadataTables + , ccmtAddtional + -- ** UpdateAppProFileMetadata , UpdateAppProFileMetadata , updateAppProFileMetadata @@ -312,6 +334,9 @@ , ltrNextPageToken , ltrTables + -- ** TableProgressState + , TableProgressState (..) + -- ** AuditLogConfigLogType , AuditLogConfigLogType (..) @@ -505,8 +530,11 @@ import Network.Google.Resource.BigtableAdmin.Projects.Instances.Tables.DropRowRange import Network.Google.Resource.BigtableAdmin.Projects.Instances.Tables.GenerateConsistencyToken import Network.Google.Resource.BigtableAdmin.Projects.Instances.Tables.Get +import Network.Google.Resource.BigtableAdmin.Projects.Instances.Tables.GetIAMPolicy import Network.Google.Resource.BigtableAdmin.Projects.Instances.Tables.List import Network.Google.Resource.BigtableAdmin.Projects.Instances.Tables.ModifyColumnFamilies +import Network.Google.Resource.BigtableAdmin.Projects.Instances.Tables.SetIAMPolicy +import Network.Google.Resource.BigtableAdmin.Projects.Instances.Tables.TestIAMPermissions import Network.Google.Resource.BigtableAdmin.Projects.Instances.TestIAMPermissions import Network.Google.Resource.BigtableAdmin.Projects.Instances.Update @@ -527,13 +555,17 @@ :<|> ProjectsInstancesAppProFilesDeleteResource :<|> ProjectsInstancesTablesDropRowRangeResource :<|> ProjectsInstancesTablesListResource + :<|> ProjectsInstancesTablesGetIAMPolicyResource :<|> ProjectsInstancesTablesGenerateConsistencyTokenResource :<|> ProjectsInstancesTablesGetResource :<|> ProjectsInstancesTablesModifyColumnFamiliesResource :<|> ProjectsInstancesTablesCreateResource + :<|> ProjectsInstancesTablesSetIAMPolicyResource :<|> ProjectsInstancesTablesCheckConsistencyResource + :<|> + ProjectsInstancesTablesTestIAMPermissionsResource :<|> ProjectsInstancesTablesDeleteResource :<|> ProjectsInstancesClustersListResource :<|> ProjectsInstancesClustersGetResource diff --git a/gen/Network/Google/BigtableAdmin/Types.hs b/gen/Network/Google/BigtableAdmin/Types.hs --- a/gen/Network/Google/BigtableAdmin/Types.hs +++ b/gen/Network/Google/BigtableAdmin/Types.hs @@ -163,9 +163,17 @@ , CreateClusterMetadata , createClusterMetadata , ccmRequestTime + , ccmTables , ccmOriginalRequest , ccmFinishTime + -- * TableProgress + , TableProgress + , tableProgress + , tpState + , tpEstimatedSizeBytes + , tpEstimatedCopiedBytes + -- * Union , Union , union @@ -176,6 +184,11 @@ , statusDetailsItem , sdiAddtional + -- * CreateClusterMetadataTables + , CreateClusterMetadataTables + , createClusterMetadataTables + , ccmtAddtional + -- * UpdateAppProFileMetadata , UpdateAppProFileMetadata , updateAppProFileMetadata @@ -210,6 +223,9 @@ , ltrNextPageToken , ltrTables + -- * TableProgressState + , TableProgressState (..) + -- * AuditLogConfigLogType , AuditLogConfigLogType (..) @@ -386,36 +402,36 @@ -- | Administer your Cloud Bigtable clusters bigtableAdminClusterScope :: Proxy '["https://www.googleapis.com/auth/bigtable.admin.cluster"] -bigtableAdminClusterScope = Proxy; +bigtableAdminClusterScope = Proxy -- | Administer your Cloud Bigtable tables cloudBigtableAdminTableScope :: Proxy '["https://www.googleapis.com/auth/cloud-bigtable.admin.table"] -cloudBigtableAdminTableScope = Proxy; +cloudBigtableAdminTableScope = Proxy -- | View your data across Google Cloud Platform services cloudPlatformReadOnlyScope :: Proxy '["https://www.googleapis.com/auth/cloud-platform.read-only"] -cloudPlatformReadOnlyScope = Proxy; +cloudPlatformReadOnlyScope = Proxy -- | Administer your Cloud Bigtable tables and clusters bigtableAdminScope :: Proxy '["https://www.googleapis.com/auth/bigtable.admin"] -bigtableAdminScope = Proxy; +bigtableAdminScope = Proxy -- | View and manage your data across Google Cloud Platform services cloudPlatformScope :: Proxy '["https://www.googleapis.com/auth/cloud-platform"] -cloudPlatformScope = Proxy; +cloudPlatformScope = Proxy -- | Administer your Cloud Bigtable tables and clusters cloudBigtableAdminScope :: Proxy '["https://www.googleapis.com/auth/cloud-bigtable.admin"] -cloudBigtableAdminScope = Proxy; +cloudBigtableAdminScope = Proxy -- | Administer your Cloud Bigtable clusters cloudBigtableAdminClusterScope :: Proxy '["https://www.googleapis.com/auth/cloud-bigtable.admin.cluster"] -cloudBigtableAdminClusterScope = Proxy; +cloudBigtableAdminClusterScope = Proxy -- | Administer your Cloud Bigtable tables bigtableAdminTableScope :: Proxy '["https://www.googleapis.com/auth/bigtable.admin.table"] -bigtableAdminTableScope = Proxy; +bigtableAdminTableScope = Proxy -- | Administer your Cloud Bigtable clusters bigtableAdminInstanceScope :: Proxy '["https://www.googleapis.com/auth/bigtable.admin.instance"] -bigtableAdminInstanceScope = Proxy; +bigtableAdminInstanceScope = Proxy diff --git a/gen/Network/Google/BigtableAdmin/Types/Product.hs b/gen/Network/Google/BigtableAdmin/Types/Product.hs --- a/gen/Network/Google/BigtableAdmin/Types/Product.hs +++ b/gen/Network/Google/BigtableAdmin/Types/Product.hs @@ -25,11 +25,14 @@ -- availability. -- -- /See:/ 'singleClusterRouting' smart constructor. -data SingleClusterRouting = SingleClusterRouting' +data SingleClusterRouting = + SingleClusterRouting' { _scrAllowTransactionalWrites :: !(Maybe Bool) , _scrClusterId :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'SingleClusterRouting' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -40,11 +43,10 @@ singleClusterRouting :: SingleClusterRouting singleClusterRouting = - SingleClusterRouting' - { _scrAllowTransactionalWrites = Nothing - , _scrClusterId = Nothing - } + SingleClusterRouting' + {_scrAllowTransactionalWrites = Nothing, _scrClusterId = Nothing} + -- | Whether or not \`CheckAndMutateRow\` and \`ReadModifyWriteRow\` requests -- are allowed by this app profile. It is unsafe to send these requests to -- the same table\/row\/column in multiple clusters. @@ -85,10 +87,13 @@ -- values must both be under 128 bytes. -- -- /See:/ 'instanceLabels' smart constructor. -newtype InstanceLabels = InstanceLabels' +newtype InstanceLabels = + InstanceLabels' { _ilAddtional :: HashMap Text Text - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'InstanceLabels' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -98,10 +103,9 @@ :: HashMap Text Text -- ^ 'ilAddtional' -> InstanceLabels instanceLabels pIlAddtional_ = - InstanceLabels' - { _ilAddtional = _Coerce # pIlAddtional_ - } + InstanceLabels' {_ilAddtional = _Coerce # pIlAddtional_} + ilAddtional :: Lens' InstanceLabels (HashMap Text Text) ilAddtional = lens _ilAddtional (\ s a -> s{_ilAddtional = a}) . @@ -152,12 +156,15 @@ -- security\/privacy reasons. -- -- /See:/ 'status' smart constructor. -data Status = Status' +data Status = + Status' { _sDetails :: !(Maybe [StatusDetailsItem]) , _sCode :: !(Maybe (Textual Int32)) , _sMessage :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Status' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -169,13 +176,9 @@ -- * 'sMessage' status :: Status -status = - Status' - { _sDetails = Nothing - , _sCode = Nothing - , _sMessage = Nothing - } +status = Status' {_sDetails = Nothing, _sCode = Nothing, _sMessage = Nothing} + -- | A list of messages that carry the error details. There is a common set -- of message types for APIs to use. sDetails :: Lens' Status [StatusDetailsItem] @@ -215,13 +218,16 @@ -- | Request message for BigtableInstanceAdmin.CreateInstance. -- -- /See:/ 'createInstanceRequest' smart constructor. -data CreateInstanceRequest = CreateInstanceRequest' +data CreateInstanceRequest = + CreateInstanceRequest' { _cirParent :: !(Maybe Text) , _cirInstanceId :: !(Maybe Text) , _cirClusters :: !(Maybe CreateInstanceRequestClusters) , _cirInstance :: !(Maybe Instance) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateInstanceRequest' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -236,13 +242,14 @@ createInstanceRequest :: CreateInstanceRequest createInstanceRequest = - CreateInstanceRequest' + CreateInstanceRequest' { _cirParent = Nothing , _cirInstanceId = Nothing , _cirClusters = Nothing , _cirInstance = Nothing } + -- | The unique name of the project in which to create the new instance. -- Values are of the form \`projects\/\`. cirParent :: Lens' CreateInstanceRequest (Maybe Text) @@ -308,11 +315,14 @@ -- DATA_WRITE logging. -- -- /See:/ 'auditConfig' smart constructor. -data AuditConfig = AuditConfig' +data AuditConfig = + AuditConfig' { _acService :: !(Maybe Text) , _acAuditLogConfigs :: !(Maybe [AuditLogConfig]) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'AuditConfig' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -322,12 +332,9 @@ -- * 'acAuditLogConfigs' auditConfig :: AuditConfig -auditConfig = - AuditConfig' - { _acService = Nothing - , _acAuditLogConfigs = Nothing - } +auditConfig = AuditConfig' {_acService = Nothing, _acAuditLogConfigs = Nothing} + -- | Specifies a service that will be enabled for audit logging. For example, -- \`storage.googleapis.com\`, \`cloudsql.googleapis.com\`. \`allServices\` -- is a special value that covers all services. @@ -363,15 +370,17 @@ -- -- /See:/ 'generateConsistencyTokenRequest' smart constructor. data GenerateConsistencyTokenRequest = - GenerateConsistencyTokenRequest' - deriving (Eq,Show,Data,Typeable,Generic) + GenerateConsistencyTokenRequest' + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'GenerateConsistencyTokenRequest' with the minimum fields required to make a request. -- generateConsistencyTokenRequest :: GenerateConsistencyTokenRequest generateConsistencyTokenRequest = GenerateConsistencyTokenRequest' + instance FromJSON GenerateConsistencyTokenRequest where parseJSON @@ -385,10 +394,13 @@ -- google.bigtable.admin.v2.BigtableTableAdmin.ModifyColumnFamilies -- -- /See:/ 'modifyColumnFamiliesRequest' smart constructor. -newtype ModifyColumnFamiliesRequest = ModifyColumnFamiliesRequest' +newtype ModifyColumnFamiliesRequest = + ModifyColumnFamiliesRequest' { _mcfrModifications :: Maybe [Modification] - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ModifyColumnFamiliesRequest' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -397,10 +409,9 @@ modifyColumnFamiliesRequest :: ModifyColumnFamiliesRequest modifyColumnFamiliesRequest = - ModifyColumnFamiliesRequest' - { _mcfrModifications = Nothing - } + ModifyColumnFamiliesRequest' {_mcfrModifications = Nothing} + -- | Modifications to be atomically applied to the specified table\'s -- families. Entries are applied in order, meaning that earlier -- modifications can be masked by later ones (in the case of repeated @@ -430,13 +441,16 @@ -- expression: \"size(request.user) > 0\" -- -- /See:/ 'expr' smart constructor. -data Expr = Expr' +data Expr = + Expr' { _eLocation :: !(Maybe Text) , _eExpression :: !(Maybe Text) , _eTitle :: !(Maybe Text) , _eDescription :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Expr' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -451,13 +465,14 @@ expr :: Expr expr = - Expr' + Expr' { _eLocation = Nothing , _eExpression = Nothing , _eTitle = Nothing , _eDescription = Nothing } + -- | An optional string indicating the location of the expression for error -- reporting, e.g. a file name and a position in the file. eLocation :: Lens' Expr (Maybe Text) @@ -504,11 +519,14 @@ -- | The response message for Operations.ListOperations. -- -- /See:/ 'listOperationsResponse' smart constructor. -data ListOperationsResponse = ListOperationsResponse' +data ListOperationsResponse = + ListOperationsResponse' { _lorNextPageToken :: !(Maybe Text) , _lorOperations :: !(Maybe [Operation]) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListOperationsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -519,11 +537,10 @@ listOperationsResponse :: ListOperationsResponse listOperationsResponse = - ListOperationsResponse' - { _lorNextPageToken = Nothing - , _lorOperations = Nothing - } + ListOperationsResponse' + {_lorNextPageToken = Nothing, _lorOperations = Nothing} + -- | The standard List next-page token. lorNextPageToken :: Lens' ListOperationsResponse (Maybe Text) lorNextPageToken @@ -556,12 +573,15 @@ -- | Request message for BigtableInstanceAdmin.CreateCluster. -- -- /See:/ 'createClusterRequest' smart constructor. -data CreateClusterRequest = CreateClusterRequest' +data CreateClusterRequest = + CreateClusterRequest' { _ccrParent :: !(Maybe Text) , _ccrCluster :: !(Maybe Cluster) , _ccrClusterId :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateClusterRequest' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -574,12 +594,10 @@ createClusterRequest :: CreateClusterRequest createClusterRequest = - CreateClusterRequest' - { _ccrParent = Nothing - , _ccrCluster = Nothing - , _ccrClusterId = Nothing - } + CreateClusterRequest' + {_ccrParent = Nothing, _ccrCluster = Nothing, _ccrClusterId = Nothing} + -- | The unique name of the instance in which to create the new cluster. -- Values are of the form \`projects\/\/instances\/\`. ccrParent :: Lens' CreateClusterRequest (Maybe Text) @@ -619,15 +637,17 @@ -- -- /See:/ 'getIAMPolicyRequest' smart constructor. data GetIAMPolicyRequest = - GetIAMPolicyRequest' - deriving (Eq,Show,Data,Typeable,Generic) + GetIAMPolicyRequest' + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetIAMPolicyRequest' with the minimum fields required to make a request. -- getIAMPolicyRequest :: GetIAMPolicyRequest getIAMPolicyRequest = GetIAMPolicyRequest' + instance FromJSON GetIAMPolicyRequest where parseJSON = withObject "GetIAMPolicyRequest" @@ -640,14 +660,17 @@ -- serving all Tables in the parent Instance. -- -- /See:/ 'cluster' smart constructor. -data Cluster = Cluster' +data Cluster = + Cluster' { _cState :: !(Maybe ClusterType) , _cDefaultStorageType :: !(Maybe ClusterDefaultStorageType) , _cLocation :: !(Maybe Text) , _cServeNodes :: !(Maybe (Textual Int32)) , _cName :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Cluster' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -664,7 +687,7 @@ cluster :: Cluster cluster = - Cluster' + Cluster' { _cState = Nothing , _cDefaultStorageType = Nothing , _cLocation = Nothing @@ -672,6 +695,7 @@ , _cName = Nothing } + -- | (\`OutputOnly\`) The current state of the cluster. cState :: Lens' Cluster (Maybe ClusterType) cState = lens _cState (\ s a -> s{_cState = a}) @@ -726,10 +750,13 @@ -- | An initial split point for a newly created table. -- -- /See:/ 'split' smart constructor. -newtype Split = Split' +newtype Split = + Split' { _sKey :: Maybe Bytes - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Split' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -737,11 +764,9 @@ -- * 'sKey' split :: Split -split = - Split' - { _sKey = Nothing - } +split = Split' {_sKey = Nothing} + -- | Row key to use as an initial tablet boundary. sKey :: Lens' Split (Maybe ByteString) sKey @@ -763,15 +788,17 @@ -- -- /See:/ 'multiClusterRoutingUseAny' smart constructor. data MultiClusterRoutingUseAny = - MultiClusterRoutingUseAny' - deriving (Eq,Show,Data,Typeable,Generic) + MultiClusterRoutingUseAny' + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'MultiClusterRoutingUseAny' with the minimum fields required to make a request. -- multiClusterRoutingUseAny :: MultiClusterRoutingUseAny multiClusterRoutingUseAny = MultiClusterRoutingUseAny' + instance FromJSON MultiClusterRoutingUseAny where parseJSON = withObject "MultiClusterRoutingUseAny" @@ -783,10 +810,13 @@ -- | The state of a table\'s data in a particular cluster. -- -- /See:/ 'clusterState' smart constructor. -newtype ClusterState = ClusterState' +newtype ClusterState = + ClusterState' { _csReplicationState :: Maybe ClusterStateReplicationState - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ClusterState' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -794,12 +824,10 @@ -- * 'csReplicationState' clusterState :: ClusterState -clusterState = - ClusterState' - { _csReplicationState = Nothing - } +clusterState = ClusterState' {_csReplicationState = Nothing} --- | (\`OutputOnly\`) The state of replication for the table in this cluster. + +-- | Output only. The state of replication for the table in this cluster. csReplicationState :: Lens' ClusterState (Maybe ClusterStateReplicationState) csReplicationState = lens _csReplicationState @@ -820,14 +848,17 @@ -- a network API call. -- -- /See:/ 'operation' smart constructor. -data Operation = Operation' +data Operation = + Operation' { _oDone :: !(Maybe Bool) , _oError :: !(Maybe Status) , _oResponse :: !(Maybe OperationResponse) , _oName :: !(Maybe Text) , _oMetadata :: !(Maybe OperationMetadata) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Operation' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -844,7 +875,7 @@ operation :: Operation operation = - Operation' + Operation' { _oDone = Nothing , _oError = Nothing , _oResponse = Nothing @@ -852,6 +883,7 @@ , _oMetadata = Nothing } + -- | If the value is \`false\`, it means the operation is still in progress. -- If \`true\`, the operation is completed, and either \`error\` or -- \`response\` is available. @@ -915,15 +947,17 @@ -- -- /See:/ 'empty' smart constructor. data Empty = - Empty' - deriving (Eq,Show,Data,Typeable,Generic) + Empty' + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Empty' with the minimum fields required to make a request. -- empty :: Empty empty = Empty' + instance FromJSON Empty where parseJSON = withObject "Empty" (\ o -> pure Empty') @@ -933,12 +967,15 @@ -- | Response message for BigtableInstanceAdmin.ListAppProfiles. -- -- /See:/ 'listAppProFilesResponse' smart constructor. -data ListAppProFilesResponse = ListAppProFilesResponse' +data ListAppProFilesResponse = + ListAppProFilesResponse' { _lapfrNextPageToken :: !(Maybe Text) , _lapfrFailedLocations :: !(Maybe [Text]) , _lapfrAppProFiles :: !(Maybe [AppProFile]) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListAppProFilesResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -951,12 +988,13 @@ listAppProFilesResponse :: ListAppProFilesResponse listAppProFilesResponse = - ListAppProFilesResponse' + ListAppProFilesResponse' { _lapfrNextPageToken = Nothing , _lapfrFailedLocations = Nothing , _lapfrAppProFiles = Nothing } + -- | Set if not all app profiles could be returned in a single response. Pass -- this value to \`page_token\` in another request to get the next page of -- results. @@ -1001,17 +1039,20 @@ ("failedLocations" .=) <$> _lapfrFailedLocations, ("appProfiles" .=) <$> _lapfrAppProFiles]) --- | (\`OutputOnly\`) Map from cluster ID to per-cluster table state. If it --- could not be determined whether or not the table has data in a --- particular cluster (for example, if its zone is unavailable), then there --- will be an entry for the cluster with UNKNOWN \`replication_status\`. --- Views: \`REPLICATION_VIEW\`, \`FULL\` +-- | Output only. Map from cluster ID to per-cluster table state. If it could +-- not be determined whether or not the table has data in a particular +-- cluster (for example, if its zone is unavailable), then there will be an +-- entry for the cluster with UNKNOWN \`replication_status\`. Views: +-- \`REPLICATION_VIEW\`, \`FULL\` -- -- /See:/ 'tableClusterStates' smart constructor. -newtype TableClusterStates = TableClusterStates' +newtype TableClusterStates = + TableClusterStates' { _tcsAddtional :: HashMap Text ClusterState - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'TableClusterStates' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -1021,10 +1062,9 @@ :: HashMap Text ClusterState -- ^ 'tcsAddtional' -> TableClusterStates tableClusterStates pTcsAddtional_ = - TableClusterStates' - { _tcsAddtional = _Coerce # pTcsAddtional_ - } + TableClusterStates' {_tcsAddtional = _Coerce # pTcsAddtional_} + tcsAddtional :: Lens' TableClusterStates (HashMap Text ClusterState) tcsAddtional = lens _tcsAddtional (\ s a -> s{_tcsAddtional = a}) @@ -1042,10 +1082,13 @@ -- by column family ID. Views: \`SCHEMA_VIEW\`, \`FULL\` -- -- /See:/ 'tableColumnFamilies' smart constructor. -newtype TableColumnFamilies = TableColumnFamilies' +newtype TableColumnFamilies = + TableColumnFamilies' { _tcfAddtional :: HashMap Text ColumnFamily - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'TableColumnFamilies' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -1055,10 +1098,9 @@ :: HashMap Text ColumnFamily -- ^ 'tcfAddtional' -> TableColumnFamilies tableColumnFamilies pTcfAddtional_ = - TableColumnFamilies' - { _tcfAddtional = _Coerce # pTcfAddtional_ - } + TableColumnFamilies' {_tcfAddtional = _Coerce # pTcfAddtional_} + tcfAddtional :: Lens' TableColumnFamilies (HashMap Text ColumnFamily) tcfAddtional = lens _tcfAddtional (\ s a -> s{_tcfAddtional = a}) @@ -1076,12 +1118,15 @@ -- google.bigtable.admin.v2.BigtableTableAdmin.CreateTable -- -- /See:/ 'createTableRequest' smart constructor. -data CreateTableRequest = CreateTableRequest' +data CreateTableRequest = + CreateTableRequest' { _ctrInitialSplits :: !(Maybe [Split]) , _ctrTableId :: !(Maybe Text) , _ctrTable :: !(Maybe Table) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateTableRequest' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -1094,12 +1139,10 @@ createTableRequest :: CreateTableRequest createTableRequest = - CreateTableRequest' - { _ctrInitialSplits = Nothing - , _ctrTableId = Nothing - , _ctrTable = Nothing - } + CreateTableRequest' + {_ctrInitialSplits = Nothing, _ctrTableId = Nothing, _ctrTable = Nothing} + -- | The optional list of row keys that will be used to initially split the -- table into several tablets (tablets are similar to HBase regions). Given -- two split keys, \`s1\` and \`s2\`, three tablets will be created, @@ -1148,30 +1191,38 @@ -- | The metadata for the Operation returned by CreateCluster. -- -- /See:/ 'createClusterMetadata' smart constructor. -data CreateClusterMetadata = CreateClusterMetadata' +data CreateClusterMetadata = + CreateClusterMetadata' { _ccmRequestTime :: !(Maybe DateTime') + , _ccmTables :: !(Maybe CreateClusterMetadataTables) , _ccmOriginalRequest :: !(Maybe CreateClusterRequest) , _ccmFinishTime :: !(Maybe DateTime') - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateClusterMetadata' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'ccmRequestTime' -- +-- * 'ccmTables' +-- -- * 'ccmOriginalRequest' -- -- * 'ccmFinishTime' createClusterMetadata :: CreateClusterMetadata createClusterMetadata = - CreateClusterMetadata' + CreateClusterMetadata' { _ccmRequestTime = Nothing + , _ccmTables = Nothing , _ccmOriginalRequest = Nothing , _ccmFinishTime = Nothing } + -- | The time at which the original request was received. ccmRequestTime :: Lens' CreateClusterMetadata (Maybe UTCTime) ccmRequestTime @@ -1179,6 +1230,16 @@ (\ s a -> s{_ccmRequestTime = a}) . mapping _DateTime +-- | Keys: the full \`name\` of each table that existed in the instance when +-- CreateCluster was first called, i.e. \`projects\/\/instances\/\/tables\/ +-- \`. Any table added to the instance by a later API call will be created +-- in the new cluster by that API call, not this one. Values: information +-- on how much of a table\'s data has been copied to the newly-created +-- cluster so far. +ccmTables :: Lens' CreateClusterMetadata (Maybe CreateClusterMetadataTables) +ccmTables + = lens _ccmTables (\ s a -> s{_ccmTables = a}) + -- | The request that prompted the initiation of this CreateCluster -- operation. ccmOriginalRequest :: Lens' CreateClusterMetadata (Maybe CreateClusterRequest) @@ -1198,7 +1259,8 @@ = withObject "CreateClusterMetadata" (\ o -> CreateClusterMetadata' <$> - (o .:? "requestTime") <*> (o .:? "originalRequest") + (o .:? "requestTime") <*> (o .:? "tables") <*> + (o .:? "originalRequest") <*> (o .:? "finishTime")) instance ToJSON CreateClusterMetadata where @@ -1206,16 +1268,87 @@ = object (catMaybes [("requestTime" .=) <$> _ccmRequestTime, + ("tables" .=) <$> _ccmTables, ("originalRequest" .=) <$> _ccmOriginalRequest, ("finishTime" .=) <$> _ccmFinishTime]) +-- | Progress info for copying a table\'s data to the new cluster. +-- +-- /See:/ 'tableProgress' smart constructor. +data TableProgress = + TableProgress' + { _tpState :: !(Maybe TableProgressState) + , _tpEstimatedSizeBytes :: !(Maybe (Textual Int64)) + , _tpEstimatedCopiedBytes :: !(Maybe (Textual Int64)) + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'TableProgress' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'tpState' +-- +-- * 'tpEstimatedSizeBytes' +-- +-- * 'tpEstimatedCopiedBytes' +tableProgress + :: TableProgress +tableProgress = + TableProgress' + { _tpState = Nothing + , _tpEstimatedSizeBytes = Nothing + , _tpEstimatedCopiedBytes = Nothing + } + + +tpState :: Lens' TableProgress (Maybe TableProgressState) +tpState = lens _tpState (\ s a -> s{_tpState = a}) + +-- | Estimate of the size of the table to be copied. +tpEstimatedSizeBytes :: Lens' TableProgress (Maybe Int64) +tpEstimatedSizeBytes + = lens _tpEstimatedSizeBytes + (\ s a -> s{_tpEstimatedSizeBytes = a}) + . mapping _Coerce + +-- | Estimate of the number of bytes copied so far for this table. This will +-- eventually reach \'estimated_size_bytes\' unless the table copy is +-- CANCELLED. +tpEstimatedCopiedBytes :: Lens' TableProgress (Maybe Int64) +tpEstimatedCopiedBytes + = lens _tpEstimatedCopiedBytes + (\ s a -> s{_tpEstimatedCopiedBytes = a}) + . mapping _Coerce + +instance FromJSON TableProgress where + parseJSON + = withObject "TableProgress" + (\ o -> + TableProgress' <$> + (o .:? "state") <*> (o .:? "estimatedSizeBytes") <*> + (o .:? "estimatedCopiedBytes")) + +instance ToJSON TableProgress where + toJSON TableProgress'{..} + = object + (catMaybes + [("state" .=) <$> _tpState, + ("estimatedSizeBytes" .=) <$> _tpEstimatedSizeBytes, + ("estimatedCopiedBytes" .=) <$> + _tpEstimatedCopiedBytes]) + -- | A GcRule which deletes cells matching any of the given rules. -- -- /See:/ 'union' smart constructor. -newtype Union = Union' +newtype Union = + Union' { _uRules :: Maybe [GcRule] - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Union' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -1223,11 +1356,9 @@ -- * 'uRules' union :: Union -union = - Union' - { _uRules = Nothing - } +union = Union' {_uRules = Nothing} + -- | Delete cells which would be deleted by any element of \`rules\`. uRules :: Lens' Union [GcRule] uRules @@ -1245,10 +1376,13 @@ -- -- /See:/ 'statusDetailsItem' smart constructor. -newtype StatusDetailsItem = StatusDetailsItem' +newtype StatusDetailsItem = + StatusDetailsItem' { _sdiAddtional :: HashMap Text JSONValue - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'StatusDetailsItem' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -1258,10 +1392,9 @@ :: HashMap Text JSONValue -- ^ 'sdiAddtional' -> StatusDetailsItem statusDetailsItem pSdiAddtional_ = - StatusDetailsItem' - { _sdiAddtional = _Coerce # pSdiAddtional_ - } + StatusDetailsItem' {_sdiAddtional = _Coerce # pSdiAddtional_} + -- | Properties of the object. Contains field \'type with type URL. sdiAddtional :: Lens' StatusDetailsItem (HashMap Text JSONValue) sdiAddtional @@ -1276,19 +1409,63 @@ instance ToJSON StatusDetailsItem where toJSON = toJSON . _sdiAddtional +-- | Keys: the full \`name\` of each table that existed in the instance when +-- CreateCluster was first called, i.e. \`projects\/\/instances\/\/tables\/ +-- \`. Any table added to the instance by a later API call will be created +-- in the new cluster by that API call, not this one. Values: information +-- on how much of a table\'s data has been copied to the newly-created +-- cluster so far. +-- +-- /See:/ 'createClusterMetadataTables' smart constructor. +newtype CreateClusterMetadataTables = + CreateClusterMetadataTables' + { _ccmtAddtional :: HashMap Text TableProgress + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'CreateClusterMetadataTables' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'ccmtAddtional' +createClusterMetadataTables + :: HashMap Text TableProgress -- ^ 'ccmtAddtional' + -> CreateClusterMetadataTables +createClusterMetadataTables pCcmtAddtional_ = + CreateClusterMetadataTables' {_ccmtAddtional = _Coerce # pCcmtAddtional_} + + +ccmtAddtional :: Lens' CreateClusterMetadataTables (HashMap Text TableProgress) +ccmtAddtional + = lens _ccmtAddtional + (\ s a -> s{_ccmtAddtional = a}) + . _Coerce + +instance FromJSON CreateClusterMetadataTables where + parseJSON + = withObject "CreateClusterMetadataTables" + (\ o -> + CreateClusterMetadataTables' <$> (parseJSONObject o)) + +instance ToJSON CreateClusterMetadataTables where + toJSON = toJSON . _ccmtAddtional + -- | The metadata for the Operation returned by UpdateAppProfile. -- -- /See:/ 'updateAppProFileMetadata' smart constructor. data UpdateAppProFileMetadata = - UpdateAppProFileMetadata' - deriving (Eq,Show,Data,Typeable,Generic) + UpdateAppProFileMetadata' + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'UpdateAppProFileMetadata' with the minimum fields required to make a request. -- updateAppProFileMetadata :: UpdateAppProFileMetadata updateAppProFileMetadata = UpdateAppProFileMetadata' + instance FromJSON UpdateAppProFileMetadata where parseJSON = withObject "UpdateAppProFileMetadata" @@ -1300,12 +1477,15 @@ -- | The metadata for the Operation returned by UpdateCluster. -- -- /See:/ 'updateClusterMetadata' smart constructor. -data UpdateClusterMetadata = UpdateClusterMetadata' +data UpdateClusterMetadata = + UpdateClusterMetadata' { _ucmRequestTime :: !(Maybe DateTime') , _ucmOriginalRequest :: !(Maybe Cluster) , _ucmFinishTime :: !(Maybe DateTime') - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'UpdateClusterMetadata' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -1318,12 +1498,13 @@ updateClusterMetadata :: UpdateClusterMetadata updateClusterMetadata = - UpdateClusterMetadata' + UpdateClusterMetadata' { _ucmRequestTime = Nothing , _ucmOriginalRequest = Nothing , _ucmFinishTime = Nothing } + -- | The time at which the original request was received. ucmRequestTime :: Lens' UpdateClusterMetadata (Maybe UTCTime) ucmRequestTime @@ -1364,11 +1545,14 @@ -- | Request message for \`SetIamPolicy\` method. -- -- /See:/ 'setIAMPolicyRequest' smart constructor. -data SetIAMPolicyRequest = SetIAMPolicyRequest' +data SetIAMPolicyRequest = + SetIAMPolicyRequest' { _siprUpdateMask :: !(Maybe GFieldMask) , _siprPolicy :: !(Maybe Policy) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'SetIAMPolicyRequest' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -1379,11 +1563,9 @@ setIAMPolicyRequest :: SetIAMPolicyRequest setIAMPolicyRequest = - SetIAMPolicyRequest' - { _siprUpdateMask = Nothing - , _siprPolicy = Nothing - } + SetIAMPolicyRequest' {_siprUpdateMask = Nothing, _siprPolicy = Nothing} + -- | OPTIONAL: A FieldMask specifying which fields of the policy to modify. -- Only the fields in the mask will be modified. If no mask is provided, -- the following default mask is used: paths: \"bindings, etag\" This field @@ -1419,10 +1601,13 @@ -- google.bigtable.admin.v2.BigtableTableAdmin.CheckConsistency -- -- /See:/ 'checkConsistencyRequest' smart constructor. -newtype CheckConsistencyRequest = CheckConsistencyRequest' +newtype CheckConsistencyRequest = + CheckConsistencyRequest' { _ccrConsistencyToken :: Maybe Text - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'CheckConsistencyRequest' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -1431,10 +1616,9 @@ checkConsistencyRequest :: CheckConsistencyRequest checkConsistencyRequest = - CheckConsistencyRequest' - { _ccrConsistencyToken = Nothing - } + CheckConsistencyRequest' {_ccrConsistencyToken = Nothing} + -- | The token created using GenerateConsistencyToken for the Table. ccrConsistencyToken :: Lens' CheckConsistencyRequest (Maybe Text) ccrConsistencyToken @@ -1458,11 +1642,14 @@ -- google.bigtable.admin.v2.BigtableTableAdmin.ListTables -- -- /See:/ 'listTablesResponse' smart constructor. -data ListTablesResponse = ListTablesResponse' +data ListTablesResponse = + ListTablesResponse' { _ltrNextPageToken :: !(Maybe Text) , _ltrTables :: !(Maybe [Table]) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListTablesResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -1473,11 +1660,9 @@ listTablesResponse :: ListTablesResponse listTablesResponse = - ListTablesResponse' - { _ltrNextPageToken = Nothing - , _ltrTables = Nothing - } + ListTablesResponse' {_ltrNextPageToken = Nothing, _ltrTables = Nothing} + -- | Set if not all tables could be returned in a single response. Pass this -- value to \`page_token\` in another request to get the next page of -- results. @@ -1511,11 +1696,14 @@ -- | Request message for BigtableInstanceAdmin.PartialUpdateInstance. -- -- /See:/ 'partialUpdateInstanceRequest' smart constructor. -data PartialUpdateInstanceRequest = PartialUpdateInstanceRequest' +data PartialUpdateInstanceRequest = + PartialUpdateInstanceRequest' { _puirUpdateMask :: !(Maybe GFieldMask) , _puirInstance :: !(Maybe Instance) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'PartialUpdateInstanceRequest' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -1526,11 +1714,10 @@ partialUpdateInstanceRequest :: PartialUpdateInstanceRequest partialUpdateInstanceRequest = - PartialUpdateInstanceRequest' - { _puirUpdateMask = Nothing - , _puirInstance = Nothing - } + PartialUpdateInstanceRequest' + {_puirUpdateMask = Nothing, _puirInstance = Nothing} + -- | The subset of Instance fields which should be replaced. Must be -- explicitly set. puirUpdateMask :: Lens' PartialUpdateInstanceRequest (Maybe GFieldMask) @@ -1560,13 +1747,16 @@ -- | Rule for determining which cells to delete during garbage collection. -- -- /See:/ 'gcRule' smart constructor. -data GcRule = GcRule' +data GcRule = + GcRule' { _grMaxAge :: !(Maybe GDuration) , _grUnion :: !(Maybe Union) , _grIntersection :: !(Maybe Intersection) , _grMaxNumVersions :: !(Maybe (Textual Int32)) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'GcRule' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -1581,13 +1771,14 @@ gcRule :: GcRule gcRule = - GcRule' + GcRule' { _grMaxAge = Nothing , _grUnion = Nothing , _grIntersection = Nothing , _grMaxNumVersions = Nothing } + -- | Delete cells in a column older than the given age. Values must be at -- least one millisecond, and will be truncated to microsecond granularity. grMaxAge :: Lens' GcRule (Maybe Scientific) @@ -1633,10 +1824,13 @@ -- | Request message for \`TestIamPermissions\` method. -- -- /See:/ 'testIAMPermissionsRequest' smart constructor. -newtype TestIAMPermissionsRequest = TestIAMPermissionsRequest' +newtype TestIAMPermissionsRequest = + TestIAMPermissionsRequest' { _tiprPermissions :: Maybe [Text] - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'TestIAMPermissionsRequest' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -1645,10 +1839,9 @@ testIAMPermissionsRequest :: TestIAMPermissionsRequest testIAMPermissionsRequest = - TestIAMPermissionsRequest' - { _tiprPermissions = Nothing - } + TestIAMPermissionsRequest' {_tiprPermissions = Nothing} + -- | The set of permissions to check for the \`resource\`. Permissions with -- wildcards (such as \'*\' or \'storage.*\') are not allowed. For more -- information see [IAM @@ -1676,14 +1869,17 @@ -- traffic from a particular end user application. -- -- /See:/ 'appProFile' smart constructor. -data AppProFile = AppProFile' +data AppProFile = + AppProFile' { _apfSingleClusterRouting :: !(Maybe SingleClusterRouting) , _apfEtag :: !(Maybe Text) , _apfMultiClusterRoutingUseAny :: !(Maybe MultiClusterRoutingUseAny) , _apfName :: !(Maybe Text) , _apfDescription :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'AppProFile' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -1700,7 +1896,7 @@ appProFile :: AppProFile appProFile = - AppProFile' + AppProFile' { _apfSingleClusterRouting = Nothing , _apfEtag = Nothing , _apfMultiClusterRoutingUseAny = Nothing @@ -1708,6 +1904,7 @@ , _apfDescription = Nothing } + -- | Use a single-cluster routing policy. apfSingleClusterRouting :: Lens' AppProFile (Maybe SingleClusterRouting) apfSingleClusterRouting @@ -1771,10 +1968,13 @@ -- clusters can be specified. -- -- /See:/ 'createInstanceRequestClusters' smart constructor. -newtype CreateInstanceRequestClusters = CreateInstanceRequestClusters' +newtype CreateInstanceRequestClusters = + CreateInstanceRequestClusters' { _circAddtional :: HashMap Text Cluster - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateInstanceRequestClusters' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -1784,10 +1984,9 @@ :: HashMap Text Cluster -- ^ 'circAddtional' -> CreateInstanceRequestClusters createInstanceRequestClusters pCircAddtional_ = - CreateInstanceRequestClusters' - { _circAddtional = _Coerce # pCircAddtional_ - } + CreateInstanceRequestClusters' {_circAddtional = _Coerce # pCircAddtional_} + circAddtional :: Lens' CreateInstanceRequestClusters (HashMap Text Cluster) circAddtional = lens _circAddtional @@ -1808,10 +2007,13 @@ -- google.bigtable.admin.v2.BigtableTableAdmin.GenerateConsistencyToken -- -- /See:/ 'generateConsistencyTokenResponse' smart constructor. -newtype GenerateConsistencyTokenResponse = GenerateConsistencyTokenResponse' +newtype GenerateConsistencyTokenResponse = + GenerateConsistencyTokenResponse' { _gctrConsistencyToken :: Maybe Text - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'GenerateConsistencyTokenResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -1820,10 +2022,9 @@ generateConsistencyTokenResponse :: GenerateConsistencyTokenResponse generateConsistencyTokenResponse = - GenerateConsistencyTokenResponse' - { _gctrConsistencyToken = Nothing - } + GenerateConsistencyTokenResponse' {_gctrConsistencyToken = Nothing} + -- | The generated consistency token. gctrConsistencyToken :: Lens' GenerateConsistencyTokenResponse (Maybe Text) gctrConsistencyToken @@ -1849,11 +2050,14 @@ -- google.bigtable.admin.v2.BigtableTableAdmin.DropRowRange -- -- /See:/ 'dropRowRangeRequest' smart constructor. -data DropRowRangeRequest = DropRowRangeRequest' +data DropRowRangeRequest = + DropRowRangeRequest' { _drrrRowKeyPrefix :: !(Maybe Bytes) , _drrrDeleteAllDataFromTable :: !(Maybe Bool) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'DropRowRangeRequest' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -1864,11 +2068,10 @@ dropRowRangeRequest :: DropRowRangeRequest dropRowRangeRequest = - DropRowRangeRequest' - { _drrrRowKeyPrefix = Nothing - , _drrrDeleteAllDataFromTable = Nothing - } + DropRowRangeRequest' + {_drrrRowKeyPrefix = Nothing, _drrrDeleteAllDataFromTable = Nothing} + -- | Delete all rows that start with this row key prefix. Prefix cannot be -- zero length. drrrRowKeyPrefix :: Lens' DropRowRangeRequest (Maybe ByteString) @@ -1902,12 +2105,15 @@ -- | The metadata for the Operation returned by UpdateInstance. -- -- /See:/ 'updateInstanceMetadata' smart constructor. -data UpdateInstanceMetadata = UpdateInstanceMetadata' +data UpdateInstanceMetadata = + UpdateInstanceMetadata' { _uimRequestTime :: !(Maybe DateTime') , _uimOriginalRequest :: !(Maybe PartialUpdateInstanceRequest) , _uimFinishTime :: !(Maybe DateTime') - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'UpdateInstanceMetadata' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -1920,12 +2126,13 @@ updateInstanceMetadata :: UpdateInstanceMetadata updateInstanceMetadata = - UpdateInstanceMetadata' + UpdateInstanceMetadata' { _uimRequestTime = Nothing , _uimOriginalRequest = Nothing , _uimFinishTime = Nothing } + -- | The time at which the original request was received. uimRequestTime :: Lens' UpdateInstanceMetadata (Maybe UTCTime) uimRequestTime @@ -1966,10 +2173,13 @@ -- | A GcRule which deletes cells matching all of the given rules. -- -- /See:/ 'intersection' smart constructor. -newtype Intersection = Intersection' +newtype Intersection = + Intersection' { _iRules :: Maybe [GcRule] - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Intersection' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -1977,11 +2187,9 @@ -- * 'iRules' intersection :: Intersection -intersection = - Intersection' - { _iRules = Nothing - } +intersection = Intersection' {_iRules = Nothing} + -- | Only delete cells which would be deleted by every element of \`rules\`. iRules :: Lens' Intersection [GcRule] iRules @@ -2000,10 +2208,13 @@ -- | A set of columns within a table which share a common configuration. -- -- /See:/ 'columnFamily' smart constructor. -newtype ColumnFamily = ColumnFamily' +newtype ColumnFamily = + ColumnFamily' { _cfGcRule :: Maybe GcRule - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ColumnFamily' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -2011,11 +2222,9 @@ -- * 'cfGcRule' columnFamily :: ColumnFamily -columnFamily = - ColumnFamily' - { _cfGcRule = Nothing - } +columnFamily = ColumnFamily' {_cfGcRule = Nothing} + -- | Garbage collection rule specified as a protobuf. Must serialize to at -- most 500 bytes. NOTE: Garbage collection executes opportunistically in -- the background, and so it\'s possible for reads to return a cell even if @@ -2035,10 +2244,13 @@ -- | Response message for \`TestIamPermissions\` method. -- -- /See:/ 'testIAMPermissionsResponse' smart constructor. -newtype TestIAMPermissionsResponse = TestIAMPermissionsResponse' +newtype TestIAMPermissionsResponse = + TestIAMPermissionsResponse' { _tiamprPermissions :: Maybe [Text] - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'TestIAMPermissionsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -2047,10 +2259,9 @@ testIAMPermissionsResponse :: TestIAMPermissionsResponse testIAMPermissionsResponse = - TestIAMPermissionsResponse' - { _tiamprPermissions = Nothing - } + TestIAMPermissionsResponse' {_tiamprPermissions = Nothing} + -- | A subset of \`TestPermissionsRequest.permissions\` that the caller is -- allowed. tiamprPermissions :: Lens' TestIAMPermissionsResponse [Text] @@ -2076,12 +2287,15 @@ -- | Response message for BigtableInstanceAdmin.ListClusters. -- -- /See:/ 'listClustersResponse' smart constructor. -data ListClustersResponse = ListClustersResponse' +data ListClustersResponse = + ListClustersResponse' { _lcrNextPageToken :: !(Maybe Text) , _lcrFailedLocations :: !(Maybe [Text]) , _lcrClusters :: !(Maybe [Cluster]) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListClustersResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -2094,12 +2308,13 @@ listClustersResponse :: ListClustersResponse listClustersResponse = - ListClustersResponse' + ListClustersResponse' { _lcrNextPageToken = Nothing , _lcrFailedLocations = Nothing , _lcrClusters = Nothing } + -- | DEPRECATED: This field is unused and ignored. lcrNextPageToken :: Lens' ListClustersResponse (Maybe Text) lcrNextPageToken @@ -2160,13 +2375,16 @@ -- guide](https:\/\/cloud.google.com\/iam\/docs). -- -- /See:/ 'policy' smart constructor. -data Policy = Policy' +data Policy = + Policy' { _pAuditConfigs :: !(Maybe [AuditConfig]) , _pEtag :: !(Maybe Bytes) , _pVersion :: !(Maybe (Textual Int32)) , _pBindings :: !(Maybe [Binding]) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Policy' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -2181,13 +2399,14 @@ policy :: Policy policy = - Policy' + Policy' { _pAuditConfigs = Nothing , _pEtag = Nothing , _pVersion = Nothing , _pBindings = Nothing } + -- | Specifies cloud audit logging configuration for this policy. pAuditConfigs :: Lens' Policy [AuditConfig] pAuditConfigs @@ -2244,12 +2463,15 @@ -- | The metadata for the Operation returned by CreateInstance. -- -- /See:/ 'createInstanceMetadata' smart constructor. -data CreateInstanceMetadata = CreateInstanceMetadata' +data CreateInstanceMetadata = + CreateInstanceMetadata' { _cimRequestTime :: !(Maybe DateTime') , _cimOriginalRequest :: !(Maybe CreateInstanceRequest) , _cimFinishTime :: !(Maybe DateTime') - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateInstanceMetadata' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -2262,12 +2484,13 @@ createInstanceMetadata :: CreateInstanceMetadata createInstanceMetadata = - CreateInstanceMetadata' + CreateInstanceMetadata' { _cimRequestTime = Nothing , _cimOriginalRequest = Nothing , _cimFinishTime = Nothing } + -- | The time at which the original request was received. cimRequestTime :: Lens' CreateInstanceMetadata (Maybe UTCTime) cimRequestTime @@ -2311,10 +2534,13 @@ -- long-running operation should document the metadata type, if any. -- -- /See:/ 'operationMetadata' smart constructor. -newtype OperationMetadata = OperationMetadata' +newtype OperationMetadata = + OperationMetadata' { _omAddtional :: HashMap Text JSONValue - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'OperationMetadata' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -2324,10 +2550,9 @@ :: HashMap Text JSONValue -- ^ 'omAddtional' -> OperationMetadata operationMetadata pOmAddtional_ = - OperationMetadata' - { _omAddtional = _Coerce # pOmAddtional_ - } + OperationMetadata' {_omAddtional = _Coerce # pOmAddtional_} + -- | Properties of the object. Contains field \'type with type URL. omAddtional :: Lens' OperationMetadata (HashMap Text JSONValue) omAddtional @@ -2349,11 +2574,14 @@ -- logging, while exempting foo\'gmail.com from DATA_READ logging. -- -- /See:/ 'auditLogConfig' smart constructor. -data AuditLogConfig = AuditLogConfig' +data AuditLogConfig = + AuditLogConfig' { _alcLogType :: !(Maybe AuditLogConfigLogType) , _alcExemptedMembers :: !(Maybe [Text]) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'AuditLogConfig' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -2364,11 +2592,9 @@ auditLogConfig :: AuditLogConfig auditLogConfig = - AuditLogConfig' - { _alcLogType = Nothing - , _alcExemptedMembers = Nothing - } + AuditLogConfig' {_alcLogType = Nothing, _alcExemptedMembers = Nothing} + -- | The log type that this config enables. alcLogType :: Lens' AuditLogConfig (Maybe AuditLogConfigLogType) alcLogType @@ -2401,12 +2627,15 @@ -- | Response message for BigtableInstanceAdmin.ListInstances. -- -- /See:/ 'listInstancesResponse' smart constructor. -data ListInstancesResponse = ListInstancesResponse' +data ListInstancesResponse = + ListInstancesResponse' { _lirNextPageToken :: !(Maybe Text) , _lirFailedLocations :: !(Maybe [Text]) , _lirInstances :: !(Maybe [Instance]) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListInstancesResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -2419,12 +2648,13 @@ listInstancesResponse :: ListInstancesResponse listInstancesResponse = - ListInstancesResponse' + ListInstancesResponse' { _lirNextPageToken = Nothing , _lirFailedLocations = Nothing , _lirInstances = Nothing } + -- | DEPRECATED: This field is unused and ignored. lirNextPageToken :: Lens' ListInstancesResponse (Maybe Text) lirNextPageToken @@ -2472,10 +2702,13 @@ -- google.bigtable.admin.v2.BigtableTableAdmin.CheckConsistency -- -- /See:/ 'checkConsistencyResponse' smart constructor. -newtype CheckConsistencyResponse = CheckConsistencyResponse' +newtype CheckConsistencyResponse = + CheckConsistencyResponse' { _ccrConsistent :: Maybe Bool - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'CheckConsistencyResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -2483,11 +2716,9 @@ -- * 'ccrConsistent' checkConsistencyResponse :: CheckConsistencyResponse -checkConsistencyResponse = - CheckConsistencyResponse' - { _ccrConsistent = Nothing - } +checkConsistencyResponse = CheckConsistencyResponse' {_ccrConsistent = Nothing} + -- | True only if the token is consistent. A token is consistent if -- replication has caught up with the restrictions specified in the -- request. @@ -2510,13 +2741,16 @@ -- | A create, update, or delete of a particular column family. -- -- /See:/ 'modification' smart constructor. -data Modification = Modification' +data Modification = + Modification' { _mDrop :: !(Maybe Bool) , _mCreate :: !(Maybe ColumnFamily) , _mId :: !(Maybe Text) , _mUpdate :: !(Maybe ColumnFamily) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Modification' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -2531,13 +2765,10 @@ modification :: Modification modification = - Modification' - { _mDrop = Nothing - , _mCreate = Nothing - , _mId = Nothing - , _mUpdate = Nothing - } + Modification' + {_mDrop = Nothing, _mCreate = Nothing, _mId = Nothing, _mUpdate = Nothing} + -- | Drop (delete) the column family with the given ID, or fail if no such -- family exists. mDrop :: Lens' Modification (Maybe Bool) @@ -2576,13 +2807,16 @@ -- table is served using the resources of its parent cluster. -- -- /See:/ 'table' smart constructor. -data Table = Table' +data Table = + Table' { _tGranularity :: !(Maybe TableGranularity) , _tName :: !(Maybe Text) , _tClusterStates :: !(Maybe TableClusterStates) , _tColumnFamilies :: !(Maybe TableColumnFamilies) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Table' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -2597,32 +2831,33 @@ table :: Table table = - Table' + Table' { _tGranularity = Nothing , _tName = Nothing , _tClusterStates = Nothing , _tColumnFamilies = Nothing } + -- | (\`CreationOnly\`) The granularity (i.e. \`MILLIS\`) at which timestamps -- are stored in this table. Timestamps not matching the granularity will -- be rejected. If unspecified at creation time, the value will be set to --- \`MILLIS\`. Views: \`SCHEMA_VIEW\`, \`FULL\` +-- \`MILLIS\`. Views: \`SCHEMA_VIEW\`, \`FULL\`. tGranularity :: Lens' Table (Maybe TableGranularity) tGranularity = lens _tGranularity (\ s a -> s{_tGranularity = a}) --- | (\`OutputOnly\`) The unique name of the table. Values are of the form +-- | Output only. The unique name of the table. Values are of the form -- \`projects\/\/instances\/\/tables\/_a-zA-Z0-9*\`. Views: \`NAME_ONLY\`, -- \`SCHEMA_VIEW\`, \`REPLICATION_VIEW\`, \`FULL\` tName :: Lens' Table (Maybe Text) tName = lens _tName (\ s a -> s{_tName = a}) --- | (\`OutputOnly\`) Map from cluster ID to per-cluster table state. If it --- could not be determined whether or not the table has data in a --- particular cluster (for example, if its zone is unavailable), then there --- will be an entry for the cluster with UNKNOWN \`replication_status\`. --- Views: \`REPLICATION_VIEW\`, \`FULL\` +-- | Output only. Map from cluster ID to per-cluster table state. If it could +-- not be determined whether or not the table has data in a particular +-- cluster (for example, if its zone is unavailable), then there will be an +-- entry for the cluster with UNKNOWN \`replication_status\`. Views: +-- \`REPLICATION_VIEW\`, \`FULL\` tClusterStates :: Lens' Table (Maybe TableClusterStates) tClusterStates = lens _tClusterStates @@ -2663,10 +2898,13 @@ -- \`TakeSnapshotResponse\`. -- -- /See:/ 'operationResponse' smart constructor. -newtype OperationResponse = OperationResponse' +newtype OperationResponse = + OperationResponse' { _orAddtional :: HashMap Text JSONValue - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'OperationResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -2676,10 +2914,9 @@ :: HashMap Text JSONValue -- ^ 'orAddtional' -> OperationResponse operationResponse pOrAddtional_ = - OperationResponse' - { _orAddtional = _Coerce # pOrAddtional_ - } + OperationResponse' {_orAddtional = _Coerce # pOrAddtional_} + -- | Properties of the object. Contains field \'type with type URL. orAddtional :: Lens' OperationResponse (HashMap Text JSONValue) orAddtional @@ -2697,12 +2934,15 @@ -- | Associates \`members\` with a \`role\`. -- -- /See:/ 'binding' smart constructor. -data Binding = Binding' +data Binding = + Binding' { _bMembers :: !(Maybe [Text]) , _bRole :: !(Maybe Text) , _bCondition :: !(Maybe Expr) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Binding' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -2715,12 +2955,9 @@ binding :: Binding binding = - Binding' - { _bMembers = Nothing - , _bRole = Nothing - , _bCondition = Nothing - } + Binding' {_bMembers = Nothing, _bRole = Nothing, _bCondition = Nothing} + -- | Specifies the identities requesting access for a Cloud Platform -- resource. \`members\` can have the following values: * \`allUsers\`: A -- special identifier that represents anyone who is on the internet; with @@ -2732,8 +2969,8 @@ -- that represents a service account. For example, -- \`my-other-app\'appspot.gserviceaccount.com\`. * \`group:{emailid}\`: An -- email address that represents a Google group. For example, --- \`admins\'example.com\`. * \`domain:{domain}\`: A Google Apps domain --- name that represents all the users of that domain. For example, +-- \`admins\'example.com\`. * \`domain:{domain}\`: The G Suite domain +-- (primary) that represents all the users of that domain. For example, -- \`google.com\` or \`example.com\`. bMembers :: Lens' Binding [Text] bMembers @@ -2746,10 +2983,9 @@ bRole :: Lens' Binding (Maybe Text) bRole = lens _bRole (\ s a -> s{_bRole = a}) --- | Unimplemented. The condition that is associated with this binding. NOTE: --- an unsatisfied condition will not allow user access via current binding. --- Different bindings, including their conditions, are examined --- independently. +-- | The condition that is associated with this binding. NOTE: An unsatisfied +-- condition will not allow user access via current binding. Different +-- bindings, including their conditions, are examined independently. bCondition :: Lens' Binding (Maybe Expr) bCondition = lens _bCondition (\ s a -> s{_bCondition = a}) @@ -2774,14 +3010,17 @@ -- tables in an instance are served from all Clusters in the instance. -- -- /See:/ 'instance'' smart constructor. -data Instance = Instance' +data Instance = + Instance' { _iState :: !(Maybe InstanceState) , _iName :: !(Maybe Text) , _iDisplayName :: !(Maybe Text) , _iLabels :: !(Maybe InstanceLabels) , _iType :: !(Maybe InstanceType) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Instance' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -2798,13 +3037,14 @@ instance' :: Instance instance' = - Instance' + Instance' { _iState = Nothing , _iName = Nothing , _iDisplayName = Nothing , _iLabels = Nothing , _iType = Nothing } + -- | (\`OutputOnly\`) The current state of the instance. iState :: Lens' Instance (Maybe InstanceState) diff --git a/gen/Network/Google/BigtableAdmin/Types/Sum.hs b/gen/Network/Google/BigtableAdmin/Types/Sum.hs --- a/gen/Network/Google/BigtableAdmin/Types/Sum.hs +++ b/gen/Network/Google/BigtableAdmin/Types/Sum.hs @@ -53,7 +53,7 @@ instance ToJSON ClusterDefaultStorageType where toJSON = toJSONText --- | (\`OutputOnly\`) The state of replication for the table in this cluster. +-- | Output only. The state of replication for the table in this cluster. data ClusterStateReplicationState = StateNotKnown -- ^ @STATE_NOT_KNOWN@ @@ -145,6 +145,50 @@ instance ToJSON InstanceType where toJSON = toJSONText +data TableProgressState + = StateUnspecified + -- ^ @STATE_UNSPECIFIED@ + | Pending + -- ^ @PENDING@ + -- The table has not yet begun copying to the new cluster. + | Copying + -- ^ @COPYING@ + -- The table is actively being copied to the new cluster. + | Completed + -- ^ @COMPLETED@ + -- The table has been fully copied to the new cluster. + | Cancelled + -- ^ @CANCELLED@ + -- The table was deleted before it finished copying to the new cluster. + -- Note that tables deleted after completion will stay marked as COMPLETED, + -- not CANCELLED. + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable TableProgressState + +instance FromHttpApiData TableProgressState where + parseQueryParam = \case + "STATE_UNSPECIFIED" -> Right StateUnspecified + "PENDING" -> Right Pending + "COPYING" -> Right Copying + "COMPLETED" -> Right Completed + "CANCELLED" -> Right Cancelled + x -> Left ("Unable to parse TableProgressState from: " <> x) + +instance ToHttpApiData TableProgressState where + toQueryParam = \case + StateUnspecified -> "STATE_UNSPECIFIED" + Pending -> "PENDING" + Copying -> "COPYING" + Completed -> "COMPLETED" + Cancelled -> "CANCELLED" + +instance FromJSON TableProgressState where + parseJSON = parseJSONText "TableProgressState" + +instance ToJSON TableProgressState where + toJSON = toJSONText + -- | The log type that this config enables. data AuditLogConfigLogType = LogTypeUnspecified @@ -216,7 +260,7 @@ -- | (\`CreationOnly\`) The granularity (i.e. \`MILLIS\`) at which timestamps -- are stored in this table. Timestamps not matching the granularity will -- be rejected. If unspecified at creation time, the value will be set to --- \`MILLIS\`. Views: \`SCHEMA_VIEW\`, \`FULL\` +-- \`MILLIS\`. Views: \`SCHEMA_VIEW\`, \`FULL\`. data TableGranularity = TimestampGranularityUnspecified -- ^ @TIMESTAMP_GRANULARITY_UNSPECIFIED@ diff --git a/gen/Network/Google/Resource/BigtableAdmin/Operations/Cancel.hs b/gen/Network/Google/Resource/BigtableAdmin/Operations/Cancel.hs --- a/gen/Network/Google/Resource/BigtableAdmin/Operations/Cancel.hs +++ b/gen/Network/Google/Resource/BigtableAdmin/Operations/Cancel.hs @@ -75,15 +75,18 @@ -- google.rpc.Status.code of 1, corresponding to \`Code.CANCELLED\`. -- -- /See:/ 'operationsCancel' smart constructor. -data OperationsCancel = OperationsCancel' +data OperationsCancel = + OperationsCancel' { _ocXgafv :: !(Maybe Xgafv) , _ocUploadProtocol :: !(Maybe Text) , _ocAccessToken :: !(Maybe Text) , _ocUploadType :: !(Maybe Text) , _ocName :: !Text , _ocCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'OperationsCancel' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -103,7 +106,7 @@ :: Text -- ^ 'ocName' -> OperationsCancel operationsCancel pOcName_ = - OperationsCancel' + OperationsCancel' { _ocXgafv = Nothing , _ocUploadProtocol = Nothing , _ocAccessToken = Nothing @@ -111,6 +114,7 @@ , _ocName = pOcName_ , _ocCallback = Nothing } + -- | V1 error format. ocXgafv :: Lens' OperationsCancel (Maybe Xgafv) diff --git a/gen/Network/Google/Resource/BigtableAdmin/Operations/Delete.hs b/gen/Network/Google/Resource/BigtableAdmin/Operations/Delete.hs --- a/gen/Network/Google/Resource/BigtableAdmin/Operations/Delete.hs +++ b/gen/Network/Google/Resource/BigtableAdmin/Operations/Delete.hs @@ -65,15 +65,18 @@ -- \`google.rpc.Code.UNIMPLEMENTED\`. -- -- /See:/ 'operationsDelete' smart constructor. -data OperationsDelete = OperationsDelete' +data OperationsDelete = + OperationsDelete' { _odXgafv :: !(Maybe Xgafv) , _odUploadProtocol :: !(Maybe Text) , _odAccessToken :: !(Maybe Text) , _odUploadType :: !(Maybe Text) , _odName :: !Text , _odCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'OperationsDelete' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -93,7 +96,7 @@ :: Text -- ^ 'odName' -> OperationsDelete operationsDelete pOdName_ = - OperationsDelete' + OperationsDelete' { _odXgafv = Nothing , _odUploadProtocol = Nothing , _odAccessToken = Nothing @@ -101,6 +104,7 @@ , _odName = pOdName_ , _odCallback = Nothing } + -- | V1 error format. odXgafv :: Lens' OperationsDelete (Maybe Xgafv) diff --git a/gen/Network/Google/Resource/BigtableAdmin/Operations/Get.hs b/gen/Network/Google/Resource/BigtableAdmin/Operations/Get.hs --- a/gen/Network/Google/Resource/BigtableAdmin/Operations/Get.hs +++ b/gen/Network/Google/Resource/BigtableAdmin/Operations/Get.hs @@ -63,15 +63,18 @@ -- API service. -- -- /See:/ 'operationsGet' smart constructor. -data OperationsGet = OperationsGet' +data OperationsGet = + OperationsGet' { _ogXgafv :: !(Maybe Xgafv) , _ogUploadProtocol :: !(Maybe Text) , _ogAccessToken :: !(Maybe Text) , _ogUploadType :: !(Maybe Text) , _ogName :: !Text , _ogCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'OperationsGet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -91,7 +94,7 @@ :: Text -- ^ 'ogName' -> OperationsGet operationsGet pOgName_ = - OperationsGet' + OperationsGet' { _ogXgafv = Nothing , _ogUploadProtocol = Nothing , _ogAccessToken = Nothing @@ -99,6 +102,7 @@ , _ogName = pOgName_ , _ogCallback = Nothing } + -- | V1 error format. ogXgafv :: Lens' OperationsGet (Maybe Xgafv) diff --git a/gen/Network/Google/Resource/BigtableAdmin/Operations/Projects/Operations/List.hs b/gen/Network/Google/Resource/BigtableAdmin/Operations/Projects/Operations/List.hs --- a/gen/Network/Google/Resource/BigtableAdmin/Operations/Projects/Operations/List.hs +++ b/gen/Network/Google/Resource/BigtableAdmin/Operations/Projects/Operations/List.hs @@ -85,7 +85,8 @@ -- id. -- -- /See:/ 'operationsProjectsOperationsList' smart constructor. -data OperationsProjectsOperationsList = OperationsProjectsOperationsList' +data OperationsProjectsOperationsList = + OperationsProjectsOperationsList' { _opolXgafv :: !(Maybe Xgafv) , _opolUploadProtocol :: !(Maybe Text) , _opolAccessToken :: !(Maybe Text) @@ -95,8 +96,10 @@ , _opolPageToken :: !(Maybe Text) , _opolPageSize :: !(Maybe (Textual Int32)) , _opolCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'OperationsProjectsOperationsList' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -122,7 +125,7 @@ :: Text -- ^ 'opolName' -> OperationsProjectsOperationsList operationsProjectsOperationsList pOpolName_ = - OperationsProjectsOperationsList' + OperationsProjectsOperationsList' { _opolXgafv = Nothing , _opolUploadProtocol = Nothing , _opolAccessToken = Nothing @@ -134,6 +137,7 @@ , _opolCallback = Nothing } + -- | V1 error format. opolXgafv :: Lens' OperationsProjectsOperationsList (Maybe Xgafv) opolXgafv @@ -184,7 +188,8 @@ = lens _opolCallback (\ s a -> s{_opolCallback = a}) instance GoogleRequest - OperationsProjectsOperationsList where + OperationsProjectsOperationsList + where type Rs OperationsProjectsOperationsList = ListOperationsResponse type Scopes OperationsProjectsOperationsList = diff --git a/gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/AppProFiles/Create.hs b/gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/AppProFiles/Create.hs --- a/gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/AppProFiles/Create.hs +++ b/gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/AppProFiles/Create.hs @@ -66,7 +66,8 @@ -- | Creates an app profile within an instance. -- -- /See:/ 'projectsInstancesAppProFilesCreate' smart constructor. -data ProjectsInstancesAppProFilesCreate = ProjectsInstancesAppProFilesCreate' +data ProjectsInstancesAppProFilesCreate = + ProjectsInstancesAppProFilesCreate' { _piapfcParent :: !Text , _piapfcXgafv :: !(Maybe Xgafv) , _piapfcAppProFileId :: !(Maybe Text) @@ -76,8 +77,10 @@ , _piapfcPayload :: !AppProFile , _piapfcIgnoreWarnings :: !(Maybe Bool) , _piapfcCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsInstancesAppProFilesCreate' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -104,7 +107,7 @@ -> AppProFile -- ^ 'piapfcPayload' -> ProjectsInstancesAppProFilesCreate projectsInstancesAppProFilesCreate pPiapfcParent_ pPiapfcPayload_ = - ProjectsInstancesAppProFilesCreate' + ProjectsInstancesAppProFilesCreate' { _piapfcParent = pPiapfcParent_ , _piapfcXgafv = Nothing , _piapfcAppProFileId = Nothing @@ -116,6 +119,7 @@ , _piapfcCallback = Nothing } + -- | The unique name of the instance in which to create the new app profile. -- Values are of the form \`projects\/\/instances\/\`. piapfcParent :: Lens' ProjectsInstancesAppProFilesCreate Text @@ -172,7 +176,8 @@ (\ s a -> s{_piapfcCallback = a}) instance GoogleRequest - ProjectsInstancesAppProFilesCreate where + ProjectsInstancesAppProFilesCreate + where type Rs ProjectsInstancesAppProFilesCreate = AppProFile type Scopes ProjectsInstancesAppProFilesCreate = diff --git a/gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/AppProFiles/Delete.hs b/gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/AppProFiles/Delete.hs --- a/gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/AppProFiles/Delete.hs +++ b/gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/AppProFiles/Delete.hs @@ -61,7 +61,8 @@ -- | Deletes an app profile from an instance. -- -- /See:/ 'projectsInstancesAppProFilesDelete' smart constructor. -data ProjectsInstancesAppProFilesDelete = ProjectsInstancesAppProFilesDelete' +data ProjectsInstancesAppProFilesDelete = + ProjectsInstancesAppProFilesDelete' { _piapfdXgafv :: !(Maybe Xgafv) , _piapfdUploadProtocol :: !(Maybe Text) , _piapfdAccessToken :: !(Maybe Text) @@ -69,8 +70,10 @@ , _piapfdIgnoreWarnings :: !(Maybe Bool) , _piapfdName :: !Text , _piapfdCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsInstancesAppProFilesDelete' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -92,7 +95,7 @@ :: Text -- ^ 'piapfdName' -> ProjectsInstancesAppProFilesDelete projectsInstancesAppProFilesDelete pPiapfdName_ = - ProjectsInstancesAppProFilesDelete' + ProjectsInstancesAppProFilesDelete' { _piapfdXgafv = Nothing , _piapfdUploadProtocol = Nothing , _piapfdAccessToken = Nothing @@ -102,6 +105,7 @@ , _piapfdCallback = Nothing } + -- | V1 error format. piapfdXgafv :: Lens' ProjectsInstancesAppProFilesDelete (Maybe Xgafv) piapfdXgafv @@ -144,7 +148,8 @@ (\ s a -> s{_piapfdCallback = a}) instance GoogleRequest - ProjectsInstancesAppProFilesDelete where + ProjectsInstancesAppProFilesDelete + where type Rs ProjectsInstancesAppProFilesDelete = Empty type Scopes ProjectsInstancesAppProFilesDelete = '["https://www.googleapis.com/auth/bigtable.admin", diff --git a/gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/AppProFiles/Get.hs b/gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/AppProFiles/Get.hs --- a/gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/AppProFiles/Get.hs +++ b/gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/AppProFiles/Get.hs @@ -59,15 +59,18 @@ -- | Gets information about an app profile. -- -- /See:/ 'projectsInstancesAppProFilesGet' smart constructor. -data ProjectsInstancesAppProFilesGet = ProjectsInstancesAppProFilesGet' +data ProjectsInstancesAppProFilesGet = + ProjectsInstancesAppProFilesGet' { _piapfgXgafv :: !(Maybe Xgafv) , _piapfgUploadProtocol :: !(Maybe Text) , _piapfgAccessToken :: !(Maybe Text) , _piapfgUploadType :: !(Maybe Text) , _piapfgName :: !Text , _piapfgCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsInstancesAppProFilesGet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -87,7 +90,7 @@ :: Text -- ^ 'piapfgName' -> ProjectsInstancesAppProFilesGet projectsInstancesAppProFilesGet pPiapfgName_ = - ProjectsInstancesAppProFilesGet' + ProjectsInstancesAppProFilesGet' { _piapfgXgafv = Nothing , _piapfgUploadProtocol = Nothing , _piapfgAccessToken = Nothing @@ -96,6 +99,7 @@ , _piapfgCallback = Nothing } + -- | V1 error format. piapfgXgafv :: Lens' ProjectsInstancesAppProFilesGet (Maybe Xgafv) piapfgXgafv @@ -132,7 +136,8 @@ (\ s a -> s{_piapfgCallback = a}) instance GoogleRequest - ProjectsInstancesAppProFilesGet where + ProjectsInstancesAppProFilesGet + where type Rs ProjectsInstancesAppProFilesGet = AppProFile type Scopes ProjectsInstancesAppProFilesGet = '["https://www.googleapis.com/auth/bigtable.admin", diff --git a/gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/AppProFiles/List.hs b/gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/AppProFiles/List.hs --- a/gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/AppProFiles/List.hs +++ b/gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/AppProFiles/List.hs @@ -65,7 +65,8 @@ -- | Lists information about app profiles in an instance. -- -- /See:/ 'projectsInstancesAppProFilesList' smart constructor. -data ProjectsInstancesAppProFilesList = ProjectsInstancesAppProFilesList' +data ProjectsInstancesAppProFilesList = + ProjectsInstancesAppProFilesList' { _piapflParent :: !Text , _piapflXgafv :: !(Maybe Xgafv) , _piapflUploadProtocol :: !(Maybe Text) @@ -74,8 +75,10 @@ , _piapflPageToken :: !(Maybe Text) , _piapflPageSize :: !(Maybe (Textual Int32)) , _piapflCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsInstancesAppProFilesList' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -99,7 +102,7 @@ :: Text -- ^ 'piapflParent' -> ProjectsInstancesAppProFilesList projectsInstancesAppProFilesList pPiapflParent_ = - ProjectsInstancesAppProFilesList' + ProjectsInstancesAppProFilesList' { _piapflParent = pPiapflParent_ , _piapflXgafv = Nothing , _piapflUploadProtocol = Nothing @@ -110,6 +113,7 @@ , _piapflCallback = Nothing } + -- | The unique name of the instance for which a list of app profiles is -- requested. Values are of the form \`projects\/\/instances\/\`. Use \` = -- \'-\'\` to list AppProfiles for all Instances in a project, e.g., @@ -161,7 +165,8 @@ (\ s a -> s{_piapflCallback = a}) instance GoogleRequest - ProjectsInstancesAppProFilesList where + ProjectsInstancesAppProFilesList + where type Rs ProjectsInstancesAppProFilesList = ListAppProFilesResponse type Scopes ProjectsInstancesAppProFilesList = diff --git a/gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/AppProFiles/Patch.hs b/gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/AppProFiles/Patch.hs --- a/gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/AppProFiles/Patch.hs +++ b/gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/AppProFiles/Patch.hs @@ -65,7 +65,8 @@ -- | Updates an app profile within an instance. -- -- /See:/ 'projectsInstancesAppProFilesPatch' smart constructor. -data ProjectsInstancesAppProFilesPatch = ProjectsInstancesAppProFilesPatch' +data ProjectsInstancesAppProFilesPatch = + ProjectsInstancesAppProFilesPatch' { _piapfpXgafv :: !(Maybe Xgafv) , _piapfpUploadProtocol :: !(Maybe Text) , _piapfpUpdateMask :: !(Maybe GFieldMask) @@ -75,8 +76,10 @@ , _piapfpIgnoreWarnings :: !(Maybe Bool) , _piapfpName :: !Text , _piapfpCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsInstancesAppProFilesPatch' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -103,7 +106,7 @@ -> Text -- ^ 'piapfpName' -> ProjectsInstancesAppProFilesPatch projectsInstancesAppProFilesPatch pPiapfpPayload_ pPiapfpName_ = - ProjectsInstancesAppProFilesPatch' + ProjectsInstancesAppProFilesPatch' { _piapfpXgafv = Nothing , _piapfpUploadProtocol = Nothing , _piapfpUpdateMask = Nothing @@ -115,6 +118,7 @@ , _piapfpCallback = Nothing } + -- | V1 error format. piapfpXgafv :: Lens' ProjectsInstancesAppProFilesPatch (Maybe Xgafv) piapfpXgafv @@ -170,7 +174,8 @@ (\ s a -> s{_piapfpCallback = a}) instance GoogleRequest - ProjectsInstancesAppProFilesPatch where + ProjectsInstancesAppProFilesPatch + where type Rs ProjectsInstancesAppProFilesPatch = Operation type Scopes ProjectsInstancesAppProFilesPatch = '["https://www.googleapis.com/auth/bigtable.admin", diff --git a/gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/Clusters/Create.hs b/gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/Clusters/Create.hs --- a/gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/Clusters/Create.hs +++ b/gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/Clusters/Create.hs @@ -64,7 +64,8 @@ -- | Creates a cluster within an instance. -- -- /See:/ 'projectsInstancesClustersCreate' smart constructor. -data ProjectsInstancesClustersCreate = ProjectsInstancesClustersCreate' +data ProjectsInstancesClustersCreate = + ProjectsInstancesClustersCreate' { _piccParent :: !Text , _piccXgafv :: !(Maybe Xgafv) , _piccUploadProtocol :: !(Maybe Text) @@ -73,8 +74,10 @@ , _piccPayload :: !Cluster , _piccClusterId :: !(Maybe Text) , _piccCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsInstancesClustersCreate' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -99,7 +102,7 @@ -> Cluster -- ^ 'piccPayload' -> ProjectsInstancesClustersCreate projectsInstancesClustersCreate pPiccParent_ pPiccPayload_ = - ProjectsInstancesClustersCreate' + ProjectsInstancesClustersCreate' { _piccParent = pPiccParent_ , _piccXgafv = Nothing , _piccUploadProtocol = Nothing @@ -110,6 +113,7 @@ , _piccCallback = Nothing } + -- | The unique name of the instance in which to create the new cluster. -- Values are of the form \`projects\/\/instances\/\`. piccParent :: Lens' ProjectsInstancesClustersCreate Text @@ -158,7 +162,8 @@ = lens _piccCallback (\ s a -> s{_piccCallback = a}) instance GoogleRequest - ProjectsInstancesClustersCreate where + ProjectsInstancesClustersCreate + where type Rs ProjectsInstancesClustersCreate = Operation type Scopes ProjectsInstancesClustersCreate = '["https://www.googleapis.com/auth/bigtable.admin", diff --git a/gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/Clusters/Delete.hs b/gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/Clusters/Delete.hs --- a/gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/Clusters/Delete.hs +++ b/gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/Clusters/Delete.hs @@ -59,15 +59,18 @@ -- | Deletes a cluster from an instance. -- -- /See:/ 'projectsInstancesClustersDelete' smart constructor. -data ProjectsInstancesClustersDelete = ProjectsInstancesClustersDelete' +data ProjectsInstancesClustersDelete = + ProjectsInstancesClustersDelete' { _picdXgafv :: !(Maybe Xgafv) , _picdUploadProtocol :: !(Maybe Text) , _picdAccessToken :: !(Maybe Text) , _picdUploadType :: !(Maybe Text) , _picdName :: !Text , _picdCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsInstancesClustersDelete' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -87,7 +90,7 @@ :: Text -- ^ 'picdName' -> ProjectsInstancesClustersDelete projectsInstancesClustersDelete pPicdName_ = - ProjectsInstancesClustersDelete' + ProjectsInstancesClustersDelete' { _picdXgafv = Nothing , _picdUploadProtocol = Nothing , _picdAccessToken = Nothing @@ -96,6 +99,7 @@ , _picdCallback = Nothing } + -- | V1 error format. picdXgafv :: Lens' ProjectsInstancesClustersDelete (Maybe Xgafv) picdXgafv @@ -130,7 +134,8 @@ = lens _picdCallback (\ s a -> s{_picdCallback = a}) instance GoogleRequest - ProjectsInstancesClustersDelete where + ProjectsInstancesClustersDelete + where type Rs ProjectsInstancesClustersDelete = Empty type Scopes ProjectsInstancesClustersDelete = '["https://www.googleapis.com/auth/bigtable.admin", diff --git a/gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/Clusters/Get.hs b/gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/Clusters/Get.hs --- a/gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/Clusters/Get.hs +++ b/gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/Clusters/Get.hs @@ -59,15 +59,18 @@ -- | Gets information about a cluster. -- -- /See:/ 'projectsInstancesClustersGet' smart constructor. -data ProjectsInstancesClustersGet = ProjectsInstancesClustersGet' +data ProjectsInstancesClustersGet = + ProjectsInstancesClustersGet' { _picgXgafv :: !(Maybe Xgafv) , _picgUploadProtocol :: !(Maybe Text) , _picgAccessToken :: !(Maybe Text) , _picgUploadType :: !(Maybe Text) , _picgName :: !Text , _picgCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsInstancesClustersGet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -87,7 +90,7 @@ :: Text -- ^ 'picgName' -> ProjectsInstancesClustersGet projectsInstancesClustersGet pPicgName_ = - ProjectsInstancesClustersGet' + ProjectsInstancesClustersGet' { _picgXgafv = Nothing , _picgUploadProtocol = Nothing , _picgAccessToken = Nothing @@ -95,6 +98,7 @@ , _picgName = pPicgName_ , _picgCallback = Nothing } + -- | V1 error format. picgXgafv :: Lens' ProjectsInstancesClustersGet (Maybe Xgafv) diff --git a/gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/Clusters/List.hs b/gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/Clusters/List.hs --- a/gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/Clusters/List.hs +++ b/gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/Clusters/List.hs @@ -63,7 +63,8 @@ -- | Lists information about clusters in an instance. -- -- /See:/ 'projectsInstancesClustersList' smart constructor. -data ProjectsInstancesClustersList = ProjectsInstancesClustersList' +data ProjectsInstancesClustersList = + ProjectsInstancesClustersList' { _piclParent :: !Text , _piclXgafv :: !(Maybe Xgafv) , _piclUploadProtocol :: !(Maybe Text) @@ -71,8 +72,10 @@ , _piclUploadType :: !(Maybe Text) , _piclPageToken :: !(Maybe Text) , _piclCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsInstancesClustersList' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -94,7 +97,7 @@ :: Text -- ^ 'piclParent' -> ProjectsInstancesClustersList projectsInstancesClustersList pPiclParent_ = - ProjectsInstancesClustersList' + ProjectsInstancesClustersList' { _piclParent = pPiclParent_ , _piclXgafv = Nothing , _piclUploadProtocol = Nothing @@ -103,6 +106,7 @@ , _piclPageToken = Nothing , _piclCallback = Nothing } + -- | The unique name of the instance for which a list of clusters is -- requested. Values are of the form \`projects\/\/instances\/\`. Use \` = diff --git a/gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/Clusters/Update.hs b/gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/Clusters/Update.hs --- a/gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/Clusters/Update.hs +++ b/gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/Clusters/Update.hs @@ -61,7 +61,8 @@ -- | Updates a cluster within an instance. -- -- /See:/ 'projectsInstancesClustersUpdate' smart constructor. -data ProjectsInstancesClustersUpdate = ProjectsInstancesClustersUpdate' +data ProjectsInstancesClustersUpdate = + ProjectsInstancesClustersUpdate' { _picuXgafv :: !(Maybe Xgafv) , _picuUploadProtocol :: !(Maybe Text) , _picuAccessToken :: !(Maybe Text) @@ -69,8 +70,10 @@ , _picuPayload :: !Cluster , _picuName :: !Text , _picuCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsInstancesClustersUpdate' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -93,7 +96,7 @@ -> Text -- ^ 'picuName' -> ProjectsInstancesClustersUpdate projectsInstancesClustersUpdate pPicuPayload_ pPicuName_ = - ProjectsInstancesClustersUpdate' + ProjectsInstancesClustersUpdate' { _picuXgafv = Nothing , _picuUploadProtocol = Nothing , _picuAccessToken = Nothing @@ -103,6 +106,7 @@ , _picuCallback = Nothing } + -- | V1 error format. picuXgafv :: Lens' ProjectsInstancesClustersUpdate (Maybe Xgafv) picuXgafv @@ -142,7 +146,8 @@ = lens _picuCallback (\ s a -> s{_picuCallback = a}) instance GoogleRequest - ProjectsInstancesClustersUpdate where + ProjectsInstancesClustersUpdate + where type Rs ProjectsInstancesClustersUpdate = Operation type Scopes ProjectsInstancesClustersUpdate = '["https://www.googleapis.com/auth/bigtable.admin", diff --git a/gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/Create.hs b/gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/Create.hs --- a/gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/Create.hs +++ b/gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/Create.hs @@ -63,7 +63,8 @@ -- | Create an instance within a project. -- -- /See:/ 'projectsInstancesCreate' smart constructor. -data ProjectsInstancesCreate = ProjectsInstancesCreate' +data ProjectsInstancesCreate = + ProjectsInstancesCreate' { _picParent :: !Text , _picXgafv :: !(Maybe Xgafv) , _picUploadProtocol :: !(Maybe Text) @@ -71,8 +72,10 @@ , _picUploadType :: !(Maybe Text) , _picPayload :: !CreateInstanceRequest , _picCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsInstancesCreate' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -95,7 +98,7 @@ -> CreateInstanceRequest -- ^ 'picPayload' -> ProjectsInstancesCreate projectsInstancesCreate pPicParent_ pPicPayload_ = - ProjectsInstancesCreate' + ProjectsInstancesCreate' { _picParent = pPicParent_ , _picXgafv = Nothing , _picUploadProtocol = Nothing @@ -104,6 +107,7 @@ , _picPayload = pPicPayload_ , _picCallback = Nothing } + -- | The unique name of the project in which to create the new instance. -- Values are of the form \`projects\/\`. diff --git a/gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/Delete.hs b/gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/Delete.hs --- a/gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/Delete.hs +++ b/gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/Delete.hs @@ -59,15 +59,18 @@ -- | Delete an instance from a project. -- -- /See:/ 'projectsInstancesDelete' smart constructor. -data ProjectsInstancesDelete = ProjectsInstancesDelete' +data ProjectsInstancesDelete = + ProjectsInstancesDelete' { _pidXgafv :: !(Maybe Xgafv) , _pidUploadProtocol :: !(Maybe Text) , _pidAccessToken :: !(Maybe Text) , _pidUploadType :: !(Maybe Text) , _pidName :: !Text , _pidCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsInstancesDelete' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -87,7 +90,7 @@ :: Text -- ^ 'pidName' -> ProjectsInstancesDelete projectsInstancesDelete pPidName_ = - ProjectsInstancesDelete' + ProjectsInstancesDelete' { _pidXgafv = Nothing , _pidUploadProtocol = Nothing , _pidAccessToken = Nothing @@ -95,6 +98,7 @@ , _pidName = pPidName_ , _pidCallback = Nothing } + -- | V1 error format. pidXgafv :: Lens' ProjectsInstancesDelete (Maybe Xgafv) diff --git a/gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/Get.hs b/gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/Get.hs --- a/gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/Get.hs +++ b/gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/Get.hs @@ -59,15 +59,18 @@ -- | Gets information about an instance. -- -- /See:/ 'projectsInstancesGet' smart constructor. -data ProjectsInstancesGet = ProjectsInstancesGet' +data ProjectsInstancesGet = + ProjectsInstancesGet' { _pigXgafv :: !(Maybe Xgafv) , _pigUploadProtocol :: !(Maybe Text) , _pigAccessToken :: !(Maybe Text) , _pigUploadType :: !(Maybe Text) , _pigName :: !Text , _pigCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsInstancesGet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -87,7 +90,7 @@ :: Text -- ^ 'pigName' -> ProjectsInstancesGet projectsInstancesGet pPigName_ = - ProjectsInstancesGet' + ProjectsInstancesGet' { _pigXgafv = Nothing , _pigUploadProtocol = Nothing , _pigAccessToken = Nothing @@ -95,6 +98,7 @@ , _pigName = pPigName_ , _pigCallback = Nothing } + -- | V1 error format. pigXgafv :: Lens' ProjectsInstancesGet (Maybe Xgafv) diff --git a/gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/GetIAMPolicy.hs b/gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/GetIAMPolicy.hs --- a/gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/GetIAMPolicy.hs +++ b/gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/GetIAMPolicy.hs @@ -64,7 +64,8 @@ -- empty policy if an instance exists but does not have a policy set. -- -- /See:/ 'projectsInstancesGetIAMPolicy' smart constructor. -data ProjectsInstancesGetIAMPolicy = ProjectsInstancesGetIAMPolicy' +data ProjectsInstancesGetIAMPolicy = + ProjectsInstancesGetIAMPolicy' { _pigipXgafv :: !(Maybe Xgafv) , _pigipUploadProtocol :: !(Maybe Text) , _pigipAccessToken :: !(Maybe Text) @@ -72,8 +73,10 @@ , _pigipPayload :: !GetIAMPolicyRequest , _pigipResource :: !Text , _pigipCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsInstancesGetIAMPolicy' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -96,7 +99,7 @@ -> Text -- ^ 'pigipResource' -> ProjectsInstancesGetIAMPolicy projectsInstancesGetIAMPolicy pPigipPayload_ pPigipResource_ = - ProjectsInstancesGetIAMPolicy' + ProjectsInstancesGetIAMPolicy' { _pigipXgafv = Nothing , _pigipUploadProtocol = Nothing , _pigipAccessToken = Nothing @@ -105,6 +108,7 @@ , _pigipResource = pPigipResource_ , _pigipCallback = Nothing } + -- | V1 error format. pigipXgafv :: Lens' ProjectsInstancesGetIAMPolicy (Maybe Xgafv) diff --git a/gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/List.hs b/gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/List.hs --- a/gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/List.hs +++ b/gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/List.hs @@ -63,7 +63,8 @@ -- | Lists information about instances in a project. -- -- /See:/ 'projectsInstancesList' smart constructor. -data ProjectsInstancesList = ProjectsInstancesList' +data ProjectsInstancesList = + ProjectsInstancesList' { _pilParent :: !Text , _pilXgafv :: !(Maybe Xgafv) , _pilUploadProtocol :: !(Maybe Text) @@ -71,8 +72,10 @@ , _pilUploadType :: !(Maybe Text) , _pilPageToken :: !(Maybe Text) , _pilCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsInstancesList' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -94,7 +97,7 @@ :: Text -- ^ 'pilParent' -> ProjectsInstancesList projectsInstancesList pPilParent_ = - ProjectsInstancesList' + ProjectsInstancesList' { _pilParent = pPilParent_ , _pilXgafv = Nothing , _pilUploadProtocol = Nothing @@ -103,6 +106,7 @@ , _pilPageToken = Nothing , _pilCallback = Nothing } + -- | The unique name of the project for which a list of instances is -- requested. Values are of the form \`projects\/\`. diff --git a/gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/PartialUpdateInstance.hs b/gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/PartialUpdateInstance.hs --- a/gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/PartialUpdateInstance.hs +++ b/gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/PartialUpdateInstance.hs @@ -67,7 +67,8 @@ -- Instance. -- -- /See:/ 'projectsInstancesPartialUpdateInstance' smart constructor. -data ProjectsInstancesPartialUpdateInstance = ProjectsInstancesPartialUpdateInstance' +data ProjectsInstancesPartialUpdateInstance = + ProjectsInstancesPartialUpdateInstance' { _pipuiXgafv :: !(Maybe Xgafv) , _pipuiUploadProtocol :: !(Maybe Text) , _pipuiUpdateMask :: !(Maybe GFieldMask) @@ -76,8 +77,10 @@ , _pipuiPayload :: !Instance , _pipuiName :: !Text , _pipuiCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsInstancesPartialUpdateInstance' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -102,7 +105,7 @@ -> Text -- ^ 'pipuiName' -> ProjectsInstancesPartialUpdateInstance projectsInstancesPartialUpdateInstance pPipuiPayload_ pPipuiName_ = - ProjectsInstancesPartialUpdateInstance' + ProjectsInstancesPartialUpdateInstance' { _pipuiXgafv = Nothing , _pipuiUploadProtocol = Nothing , _pipuiUpdateMask = Nothing @@ -113,6 +116,7 @@ , _pipuiCallback = Nothing } + -- | V1 error format. pipuiXgafv :: Lens' ProjectsInstancesPartialUpdateInstance (Maybe Xgafv) pipuiXgafv @@ -161,7 +165,8 @@ (\ s a -> s{_pipuiCallback = a}) instance GoogleRequest - ProjectsInstancesPartialUpdateInstance where + ProjectsInstancesPartialUpdateInstance + where type Rs ProjectsInstancesPartialUpdateInstance = Operation type Scopes ProjectsInstancesPartialUpdateInstance = diff --git a/gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/SetIAMPolicy.hs b/gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/SetIAMPolicy.hs --- a/gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/SetIAMPolicy.hs +++ b/gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/SetIAMPolicy.hs @@ -64,7 +64,8 @@ -- existing policy. -- -- /See:/ 'projectsInstancesSetIAMPolicy' smart constructor. -data ProjectsInstancesSetIAMPolicy = ProjectsInstancesSetIAMPolicy' +data ProjectsInstancesSetIAMPolicy = + ProjectsInstancesSetIAMPolicy' { _pisipXgafv :: !(Maybe Xgafv) , _pisipUploadProtocol :: !(Maybe Text) , _pisipAccessToken :: !(Maybe Text) @@ -72,8 +73,10 @@ , _pisipPayload :: !SetIAMPolicyRequest , _pisipResource :: !Text , _pisipCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsInstancesSetIAMPolicy' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -96,7 +99,7 @@ -> Text -- ^ 'pisipResource' -> ProjectsInstancesSetIAMPolicy projectsInstancesSetIAMPolicy pPisipPayload_ pPisipResource_ = - ProjectsInstancesSetIAMPolicy' + ProjectsInstancesSetIAMPolicy' { _pisipXgafv = Nothing , _pisipUploadProtocol = Nothing , _pisipAccessToken = Nothing @@ -105,6 +108,7 @@ , _pisipResource = pPisipResource_ , _pisipCallback = Nothing } + -- | V1 error format. pisipXgafv :: Lens' ProjectsInstancesSetIAMPolicy (Maybe Xgafv) diff --git a/gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/Tables/CheckConsistency.hs b/gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/Tables/CheckConsistency.hs --- a/gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/Tables/CheckConsistency.hs +++ b/gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/Tables/CheckConsistency.hs @@ -67,7 +67,8 @@ -- and the check request. -- -- /See:/ 'projectsInstancesTablesCheckConsistency' smart constructor. -data ProjectsInstancesTablesCheckConsistency = ProjectsInstancesTablesCheckConsistency' +data ProjectsInstancesTablesCheckConsistency = + ProjectsInstancesTablesCheckConsistency' { _pitccXgafv :: !(Maybe Xgafv) , _pitccUploadProtocol :: !(Maybe Text) , _pitccAccessToken :: !(Maybe Text) @@ -75,8 +76,10 @@ , _pitccPayload :: !CheckConsistencyRequest , _pitccName :: !Text , _pitccCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsInstancesTablesCheckConsistency' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -99,7 +102,7 @@ -> Text -- ^ 'pitccName' -> ProjectsInstancesTablesCheckConsistency projectsInstancesTablesCheckConsistency pPitccPayload_ pPitccName_ = - ProjectsInstancesTablesCheckConsistency' + ProjectsInstancesTablesCheckConsistency' { _pitccXgafv = Nothing , _pitccUploadProtocol = Nothing , _pitccAccessToken = Nothing @@ -109,6 +112,7 @@ , _pitccCallback = Nothing } + -- | V1 error format. pitccXgafv :: Lens' ProjectsInstancesTablesCheckConsistency (Maybe Xgafv) pitccXgafv @@ -151,7 +155,8 @@ (\ s a -> s{_pitccCallback = a}) instance GoogleRequest - ProjectsInstancesTablesCheckConsistency where + ProjectsInstancesTablesCheckConsistency + where type Rs ProjectsInstancesTablesCheckConsistency = CheckConsistencyResponse type Scopes ProjectsInstancesTablesCheckConsistency = diff --git a/gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/Tables/Create.hs b/gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/Tables/Create.hs --- a/gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/Tables/Create.hs +++ b/gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/Tables/Create.hs @@ -65,7 +65,8 @@ -- with a full set of initial column families, specified in the request. -- -- /See:/ 'projectsInstancesTablesCreate' smart constructor. -data ProjectsInstancesTablesCreate = ProjectsInstancesTablesCreate' +data ProjectsInstancesTablesCreate = + ProjectsInstancesTablesCreate' { _pitcParent :: !Text , _pitcXgafv :: !(Maybe Xgafv) , _pitcUploadProtocol :: !(Maybe Text) @@ -73,8 +74,10 @@ , _pitcUploadType :: !(Maybe Text) , _pitcPayload :: !CreateTableRequest , _pitcCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsInstancesTablesCreate' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -97,7 +100,7 @@ -> CreateTableRequest -- ^ 'pitcPayload' -> ProjectsInstancesTablesCreate projectsInstancesTablesCreate pPitcParent_ pPitcPayload_ = - ProjectsInstancesTablesCreate' + ProjectsInstancesTablesCreate' { _pitcParent = pPitcParent_ , _pitcXgafv = Nothing , _pitcUploadProtocol = Nothing @@ -106,6 +109,7 @@ , _pitcPayload = pPitcPayload_ , _pitcCallback = Nothing } + -- | The unique name of the instance in which to create the table. Values are -- of the form \`projects\/\/instances\/\`. diff --git a/gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/Tables/Delete.hs b/gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/Tables/Delete.hs --- a/gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/Tables/Delete.hs +++ b/gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/Tables/Delete.hs @@ -59,15 +59,18 @@ -- | Permanently deletes a specified table and all of its data. -- -- /See:/ 'projectsInstancesTablesDelete' smart constructor. -data ProjectsInstancesTablesDelete = ProjectsInstancesTablesDelete' +data ProjectsInstancesTablesDelete = + ProjectsInstancesTablesDelete' { _pitdXgafv :: !(Maybe Xgafv) , _pitdUploadProtocol :: !(Maybe Text) , _pitdAccessToken :: !(Maybe Text) , _pitdUploadType :: !(Maybe Text) , _pitdName :: !Text , _pitdCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsInstancesTablesDelete' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -87,7 +90,7 @@ :: Text -- ^ 'pitdName' -> ProjectsInstancesTablesDelete projectsInstancesTablesDelete pPitdName_ = - ProjectsInstancesTablesDelete' + ProjectsInstancesTablesDelete' { _pitdXgafv = Nothing , _pitdUploadProtocol = Nothing , _pitdAccessToken = Nothing @@ -95,6 +98,7 @@ , _pitdName = pPitdName_ , _pitdCallback = Nothing } + -- | V1 error format. pitdXgafv :: Lens' ProjectsInstancesTablesDelete (Maybe Xgafv) diff --git a/gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/Tables/DropRowRange.hs b/gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/Tables/DropRowRange.hs --- a/gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/Tables/DropRowRange.hs +++ b/gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/Tables/DropRowRange.hs @@ -66,7 +66,8 @@ -- match a particular prefix. -- -- /See:/ 'projectsInstancesTablesDropRowRange' smart constructor. -data ProjectsInstancesTablesDropRowRange = ProjectsInstancesTablesDropRowRange' +data ProjectsInstancesTablesDropRowRange = + ProjectsInstancesTablesDropRowRange' { _pitdrrXgafv :: !(Maybe Xgafv) , _pitdrrUploadProtocol :: !(Maybe Text) , _pitdrrAccessToken :: !(Maybe Text) @@ -74,8 +75,10 @@ , _pitdrrPayload :: !DropRowRangeRequest , _pitdrrName :: !Text , _pitdrrCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsInstancesTablesDropRowRange' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -98,7 +101,7 @@ -> Text -- ^ 'pitdrrName' -> ProjectsInstancesTablesDropRowRange projectsInstancesTablesDropRowRange pPitdrrPayload_ pPitdrrName_ = - ProjectsInstancesTablesDropRowRange' + ProjectsInstancesTablesDropRowRange' { _pitdrrXgafv = Nothing , _pitdrrUploadProtocol = Nothing , _pitdrrAccessToken = Nothing @@ -108,6 +111,7 @@ , _pitdrrCallback = Nothing } + -- | V1 error format. pitdrrXgafv :: Lens' ProjectsInstancesTablesDropRowRange (Maybe Xgafv) pitdrrXgafv @@ -151,7 +155,8 @@ (\ s a -> s{_pitdrrCallback = a}) instance GoogleRequest - ProjectsInstancesTablesDropRowRange where + ProjectsInstancesTablesDropRowRange + where type Rs ProjectsInstancesTablesDropRowRange = Empty type Scopes ProjectsInstancesTablesDropRowRange = '["https://www.googleapis.com/auth/bigtable.admin", diff --git a/gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/Tables/GenerateConsistencyToken.hs b/gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/Tables/GenerateConsistencyToken.hs --- a/gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/Tables/GenerateConsistencyToken.hs +++ b/gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/Tables/GenerateConsistencyToken.hs @@ -69,7 +69,8 @@ -- available for 90 days. -- -- /See:/ 'projectsInstancesTablesGenerateConsistencyToken' smart constructor. -data ProjectsInstancesTablesGenerateConsistencyToken = ProjectsInstancesTablesGenerateConsistencyToken' +data ProjectsInstancesTablesGenerateConsistencyToken = + ProjectsInstancesTablesGenerateConsistencyToken' { _pitgctXgafv :: !(Maybe Xgafv) , _pitgctUploadProtocol :: !(Maybe Text) , _pitgctAccessToken :: !(Maybe Text) @@ -77,8 +78,10 @@ , _pitgctPayload :: !GenerateConsistencyTokenRequest , _pitgctName :: !Text , _pitgctCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsInstancesTablesGenerateConsistencyToken' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -101,7 +104,7 @@ -> Text -- ^ 'pitgctName' -> ProjectsInstancesTablesGenerateConsistencyToken projectsInstancesTablesGenerateConsistencyToken pPitgctPayload_ pPitgctName_ = - ProjectsInstancesTablesGenerateConsistencyToken' + ProjectsInstancesTablesGenerateConsistencyToken' { _pitgctXgafv = Nothing , _pitgctUploadProtocol = Nothing , _pitgctAccessToken = Nothing @@ -111,6 +114,7 @@ , _pitgctCallback = Nothing } + -- | V1 error format. pitgctXgafv :: Lens' ProjectsInstancesTablesGenerateConsistencyToken (Maybe Xgafv) pitgctXgafv @@ -154,7 +158,8 @@ (\ s a -> s{_pitgctCallback = a}) instance GoogleRequest - ProjectsInstancesTablesGenerateConsistencyToken where + ProjectsInstancesTablesGenerateConsistencyToken + where type Rs ProjectsInstancesTablesGenerateConsistencyToken = GenerateConsistencyTokenResponse diff --git a/gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/Tables/Get.hs b/gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/Tables/Get.hs --- a/gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/Tables/Get.hs +++ b/gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/Tables/Get.hs @@ -61,7 +61,8 @@ -- | Gets metadata information about the specified table. -- -- /See:/ 'projectsInstancesTablesGet' smart constructor. -data ProjectsInstancesTablesGet = ProjectsInstancesTablesGet' +data ProjectsInstancesTablesGet = + ProjectsInstancesTablesGet' { _pitgXgafv :: !(Maybe Xgafv) , _pitgUploadProtocol :: !(Maybe Text) , _pitgAccessToken :: !(Maybe Text) @@ -69,8 +70,10 @@ , _pitgName :: !Text , _pitgView :: !(Maybe Text) , _pitgCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsInstancesTablesGet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -92,7 +95,7 @@ :: Text -- ^ 'pitgName' -> ProjectsInstancesTablesGet projectsInstancesTablesGet pPitgName_ = - ProjectsInstancesTablesGet' + ProjectsInstancesTablesGet' { _pitgXgafv = Nothing , _pitgUploadProtocol = Nothing , _pitgAccessToken = Nothing @@ -101,6 +104,7 @@ , _pitgView = Nothing , _pitgCallback = Nothing } + -- | V1 error format. pitgXgafv :: Lens' ProjectsInstancesTablesGet (Maybe Xgafv) diff --git a/gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/Tables/GetIAMPolicy.hs b/gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/Tables/GetIAMPolicy.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/Tables/GetIAMPolicy.hs @@ -0,0 +1,179 @@ +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE DeriveDataTypeable #-} +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE TypeFamilies #-} +{-# LANGUAGE TypeOperators #-} + +{-# OPTIONS_GHC -fno-warn-duplicate-exports #-} +{-# OPTIONS_GHC -fno-warn-unused-binds #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- | +-- Module : Network.Google.Resource.BigtableAdmin.Projects.Instances.Tables.GetIAMPolicy +-- Copyright : (c) 2015-2016 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Gets the access control policy for an instance resource. Returns an +-- empty policy if an table exists but does not have a policy set. +-- +-- /See:/ for @bigtableadmin.projects.instances.tables.getIamPolicy@. +module Network.Google.Resource.BigtableAdmin.Projects.Instances.Tables.GetIAMPolicy + ( + -- * REST Resource + ProjectsInstancesTablesGetIAMPolicyResource + + -- * Creating a Request + , projectsInstancesTablesGetIAMPolicy + , ProjectsInstancesTablesGetIAMPolicy + + -- * Request Lenses + , pitgipXgafv + , pitgipUploadProtocol + , pitgipAccessToken + , pitgipUploadType + , pitgipPayload + , pitgipResource + , pitgipCallback + ) where + +import Network.Google.BigtableAdmin.Types +import Network.Google.Prelude + +-- | A resource alias for @bigtableadmin.projects.instances.tables.getIamPolicy@ method which the +-- 'ProjectsInstancesTablesGetIAMPolicy' request conforms to. +type ProjectsInstancesTablesGetIAMPolicyResource = + "v2" :> + CaptureMode "resource" "getIamPolicy" Text :> + QueryParam "$.xgafv" Xgafv :> + QueryParam "upload_protocol" Text :> + QueryParam "access_token" Text :> + QueryParam "uploadType" Text :> + QueryParam "callback" Text :> + QueryParam "alt" AltJSON :> + ReqBody '[JSON] GetIAMPolicyRequest :> + Post '[JSON] Policy + +-- | Gets the access control policy for an instance resource. Returns an +-- empty policy if an table exists but does not have a policy set. +-- +-- /See:/ 'projectsInstancesTablesGetIAMPolicy' smart constructor. +data ProjectsInstancesTablesGetIAMPolicy = + ProjectsInstancesTablesGetIAMPolicy' + { _pitgipXgafv :: !(Maybe Xgafv) + , _pitgipUploadProtocol :: !(Maybe Text) + , _pitgipAccessToken :: !(Maybe Text) + , _pitgipUploadType :: !(Maybe Text) + , _pitgipPayload :: !GetIAMPolicyRequest + , _pitgipResource :: !Text + , _pitgipCallback :: !(Maybe Text) + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'ProjectsInstancesTablesGetIAMPolicy' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'pitgipXgafv' +-- +-- * 'pitgipUploadProtocol' +-- +-- * 'pitgipAccessToken' +-- +-- * 'pitgipUploadType' +-- +-- * 'pitgipPayload' +-- +-- * 'pitgipResource' +-- +-- * 'pitgipCallback' +projectsInstancesTablesGetIAMPolicy + :: GetIAMPolicyRequest -- ^ 'pitgipPayload' + -> Text -- ^ 'pitgipResource' + -> ProjectsInstancesTablesGetIAMPolicy +projectsInstancesTablesGetIAMPolicy pPitgipPayload_ pPitgipResource_ = + ProjectsInstancesTablesGetIAMPolicy' + { _pitgipXgafv = Nothing + , _pitgipUploadProtocol = Nothing + , _pitgipAccessToken = Nothing + , _pitgipUploadType = Nothing + , _pitgipPayload = pPitgipPayload_ + , _pitgipResource = pPitgipResource_ + , _pitgipCallback = Nothing + } + + +-- | V1 error format. +pitgipXgafv :: Lens' ProjectsInstancesTablesGetIAMPolicy (Maybe Xgafv) +pitgipXgafv + = lens _pitgipXgafv (\ s a -> s{_pitgipXgafv = a}) + +-- | Upload protocol for media (e.g. \"raw\", \"multipart\"). +pitgipUploadProtocol :: Lens' ProjectsInstancesTablesGetIAMPolicy (Maybe Text) +pitgipUploadProtocol + = lens _pitgipUploadProtocol + (\ s a -> s{_pitgipUploadProtocol = a}) + +-- | OAuth access token. +pitgipAccessToken :: Lens' ProjectsInstancesTablesGetIAMPolicy (Maybe Text) +pitgipAccessToken + = lens _pitgipAccessToken + (\ s a -> s{_pitgipAccessToken = a}) + +-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\"). +pitgipUploadType :: Lens' ProjectsInstancesTablesGetIAMPolicy (Maybe Text) +pitgipUploadType + = lens _pitgipUploadType + (\ s a -> s{_pitgipUploadType = a}) + +-- | Multipart request metadata. +pitgipPayload :: Lens' ProjectsInstancesTablesGetIAMPolicy GetIAMPolicyRequest +pitgipPayload + = lens _pitgipPayload + (\ s a -> s{_pitgipPayload = a}) + +-- | REQUIRED: The resource for which the policy is being requested. See the +-- operation documentation for the appropriate value for this field. +pitgipResource :: Lens' ProjectsInstancesTablesGetIAMPolicy Text +pitgipResource + = lens _pitgipResource + (\ s a -> s{_pitgipResource = a}) + +-- | JSONP +pitgipCallback :: Lens' ProjectsInstancesTablesGetIAMPolicy (Maybe Text) +pitgipCallback + = lens _pitgipCallback + (\ s a -> s{_pitgipCallback = a}) + +instance GoogleRequest + ProjectsInstancesTablesGetIAMPolicy + where + type Rs ProjectsInstancesTablesGetIAMPolicy = Policy + type Scopes ProjectsInstancesTablesGetIAMPolicy = + '["https://www.googleapis.com/auth/bigtable.admin", + "https://www.googleapis.com/auth/bigtable.admin.table", + "https://www.googleapis.com/auth/cloud-bigtable.admin", + "https://www.googleapis.com/auth/cloud-bigtable.admin.table", + "https://www.googleapis.com/auth/cloud-platform"] + requestClient + ProjectsInstancesTablesGetIAMPolicy'{..} + = go _pitgipResource _pitgipXgafv + _pitgipUploadProtocol + _pitgipAccessToken + _pitgipUploadType + _pitgipCallback + (Just AltJSON) + _pitgipPayload + bigtableAdminService + where go + = buildClient + (Proxy :: + Proxy ProjectsInstancesTablesGetIAMPolicyResource) + mempty diff --git a/gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/Tables/List.hs b/gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/Tables/List.hs --- a/gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/Tables/List.hs +++ b/gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/Tables/List.hs @@ -67,7 +67,8 @@ -- | Lists all tables served from a specified instance. -- -- /See:/ 'projectsInstancesTablesList' smart constructor. -data ProjectsInstancesTablesList = ProjectsInstancesTablesList' +data ProjectsInstancesTablesList = + ProjectsInstancesTablesList' { _pitlParent :: !Text , _pitlXgafv :: !(Maybe Xgafv) , _pitlUploadProtocol :: !(Maybe Text) @@ -77,8 +78,10 @@ , _pitlPageToken :: !(Maybe Text) , _pitlPageSize :: !(Maybe (Textual Int32)) , _pitlCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsInstancesTablesList' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -104,7 +107,7 @@ :: Text -- ^ 'pitlParent' -> ProjectsInstancesTablesList projectsInstancesTablesList pPitlParent_ = - ProjectsInstancesTablesList' + ProjectsInstancesTablesList' { _pitlParent = pPitlParent_ , _pitlXgafv = Nothing , _pitlUploadProtocol = Nothing @@ -116,6 +119,7 @@ , _pitlCallback = Nothing } + -- | The unique name of the instance for which tables should be listed. -- Values are of the form \`projects\/\/instances\/\`. pitlParent :: Lens' ProjectsInstancesTablesList Text @@ -156,7 +160,13 @@ = lens _pitlPageToken (\ s a -> s{_pitlPageToken = a}) --- | Maximum number of results per page. CURRENTLY UNIMPLEMENTED AND IGNORED. +-- | Maximum number of results per page. A page_size of zero lets the server +-- choose the number of items to return. A page_size which is strictly +-- positive will return at most that many items. A negative page_size will +-- cause an error. Following the first request, subsequent paginated calls +-- are not required to pass a page_size. If a page_size is set in +-- subsequent calls, it must match the page_size given in the first +-- request. pitlPageSize :: Lens' ProjectsInstancesTablesList (Maybe Int32) pitlPageSize = lens _pitlPageSize (\ s a -> s{_pitlPageSize = a}) diff --git a/gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/Tables/ModifyColumnFamilies.hs b/gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/Tables/ModifyColumnFamilies.hs --- a/gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/Tables/ModifyColumnFamilies.hs +++ b/gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/Tables/ModifyColumnFamilies.hs @@ -69,7 +69,8 @@ -- where only some modifications have taken effect. -- -- /See:/ 'projectsInstancesTablesModifyColumnFamilies' smart constructor. -data ProjectsInstancesTablesModifyColumnFamilies = ProjectsInstancesTablesModifyColumnFamilies' +data ProjectsInstancesTablesModifyColumnFamilies = + ProjectsInstancesTablesModifyColumnFamilies' { _pitmcfXgafv :: !(Maybe Xgafv) , _pitmcfUploadProtocol :: !(Maybe Text) , _pitmcfAccessToken :: !(Maybe Text) @@ -77,8 +78,10 @@ , _pitmcfPayload :: !ModifyColumnFamiliesRequest , _pitmcfName :: !Text , _pitmcfCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsInstancesTablesModifyColumnFamilies' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -101,7 +104,7 @@ -> Text -- ^ 'pitmcfName' -> ProjectsInstancesTablesModifyColumnFamilies projectsInstancesTablesModifyColumnFamilies pPitmcfPayload_ pPitmcfName_ = - ProjectsInstancesTablesModifyColumnFamilies' + ProjectsInstancesTablesModifyColumnFamilies' { _pitmcfXgafv = Nothing , _pitmcfUploadProtocol = Nothing , _pitmcfAccessToken = Nothing @@ -111,6 +114,7 @@ , _pitmcfCallback = Nothing } + -- | V1 error format. pitmcfXgafv :: Lens' ProjectsInstancesTablesModifyColumnFamilies (Maybe Xgafv) pitmcfXgafv @@ -154,7 +158,8 @@ (\ s a -> s{_pitmcfCallback = a}) instance GoogleRequest - ProjectsInstancesTablesModifyColumnFamilies where + ProjectsInstancesTablesModifyColumnFamilies + where type Rs ProjectsInstancesTablesModifyColumnFamilies = Table type Scopes diff --git a/gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/Tables/SetIAMPolicy.hs b/gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/Tables/SetIAMPolicy.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/Tables/SetIAMPolicy.hs @@ -0,0 +1,179 @@ +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE DeriveDataTypeable #-} +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE TypeFamilies #-} +{-# LANGUAGE TypeOperators #-} + +{-# OPTIONS_GHC -fno-warn-duplicate-exports #-} +{-# OPTIONS_GHC -fno-warn-unused-binds #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- | +-- Module : Network.Google.Resource.BigtableAdmin.Projects.Instances.Tables.SetIAMPolicy +-- Copyright : (c) 2015-2016 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Sets the access control policy on a table resource. Replaces any +-- existing policy. +-- +-- /See:/ for @bigtableadmin.projects.instances.tables.setIamPolicy@. +module Network.Google.Resource.BigtableAdmin.Projects.Instances.Tables.SetIAMPolicy + ( + -- * REST Resource + ProjectsInstancesTablesSetIAMPolicyResource + + -- * Creating a Request + , projectsInstancesTablesSetIAMPolicy + , ProjectsInstancesTablesSetIAMPolicy + + -- * Request Lenses + , pitsipXgafv + , pitsipUploadProtocol + , pitsipAccessToken + , pitsipUploadType + , pitsipPayload + , pitsipResource + , pitsipCallback + ) where + +import Network.Google.BigtableAdmin.Types +import Network.Google.Prelude + +-- | A resource alias for @bigtableadmin.projects.instances.tables.setIamPolicy@ method which the +-- 'ProjectsInstancesTablesSetIAMPolicy' request conforms to. +type ProjectsInstancesTablesSetIAMPolicyResource = + "v2" :> + CaptureMode "resource" "setIamPolicy" Text :> + QueryParam "$.xgafv" Xgafv :> + QueryParam "upload_protocol" Text :> + QueryParam "access_token" Text :> + QueryParam "uploadType" Text :> + QueryParam "callback" Text :> + QueryParam "alt" AltJSON :> + ReqBody '[JSON] SetIAMPolicyRequest :> + Post '[JSON] Policy + +-- | Sets the access control policy on a table resource. Replaces any +-- existing policy. +-- +-- /See:/ 'projectsInstancesTablesSetIAMPolicy' smart constructor. +data ProjectsInstancesTablesSetIAMPolicy = + ProjectsInstancesTablesSetIAMPolicy' + { _pitsipXgafv :: !(Maybe Xgafv) + , _pitsipUploadProtocol :: !(Maybe Text) + , _pitsipAccessToken :: !(Maybe Text) + , _pitsipUploadType :: !(Maybe Text) + , _pitsipPayload :: !SetIAMPolicyRequest + , _pitsipResource :: !Text + , _pitsipCallback :: !(Maybe Text) + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'ProjectsInstancesTablesSetIAMPolicy' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'pitsipXgafv' +-- +-- * 'pitsipUploadProtocol' +-- +-- * 'pitsipAccessToken' +-- +-- * 'pitsipUploadType' +-- +-- * 'pitsipPayload' +-- +-- * 'pitsipResource' +-- +-- * 'pitsipCallback' +projectsInstancesTablesSetIAMPolicy + :: SetIAMPolicyRequest -- ^ 'pitsipPayload' + -> Text -- ^ 'pitsipResource' + -> ProjectsInstancesTablesSetIAMPolicy +projectsInstancesTablesSetIAMPolicy pPitsipPayload_ pPitsipResource_ = + ProjectsInstancesTablesSetIAMPolicy' + { _pitsipXgafv = Nothing + , _pitsipUploadProtocol = Nothing + , _pitsipAccessToken = Nothing + , _pitsipUploadType = Nothing + , _pitsipPayload = pPitsipPayload_ + , _pitsipResource = pPitsipResource_ + , _pitsipCallback = Nothing + } + + +-- | V1 error format. +pitsipXgafv :: Lens' ProjectsInstancesTablesSetIAMPolicy (Maybe Xgafv) +pitsipXgafv + = lens _pitsipXgafv (\ s a -> s{_pitsipXgafv = a}) + +-- | Upload protocol for media (e.g. \"raw\", \"multipart\"). +pitsipUploadProtocol :: Lens' ProjectsInstancesTablesSetIAMPolicy (Maybe Text) +pitsipUploadProtocol + = lens _pitsipUploadProtocol + (\ s a -> s{_pitsipUploadProtocol = a}) + +-- | OAuth access token. +pitsipAccessToken :: Lens' ProjectsInstancesTablesSetIAMPolicy (Maybe Text) +pitsipAccessToken + = lens _pitsipAccessToken + (\ s a -> s{_pitsipAccessToken = a}) + +-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\"). +pitsipUploadType :: Lens' ProjectsInstancesTablesSetIAMPolicy (Maybe Text) +pitsipUploadType + = lens _pitsipUploadType + (\ s a -> s{_pitsipUploadType = a}) + +-- | Multipart request metadata. +pitsipPayload :: Lens' ProjectsInstancesTablesSetIAMPolicy SetIAMPolicyRequest +pitsipPayload + = lens _pitsipPayload + (\ s a -> s{_pitsipPayload = a}) + +-- | REQUIRED: The resource for which the policy is being specified. See the +-- operation documentation for the appropriate value for this field. +pitsipResource :: Lens' ProjectsInstancesTablesSetIAMPolicy Text +pitsipResource + = lens _pitsipResource + (\ s a -> s{_pitsipResource = a}) + +-- | JSONP +pitsipCallback :: Lens' ProjectsInstancesTablesSetIAMPolicy (Maybe Text) +pitsipCallback + = lens _pitsipCallback + (\ s a -> s{_pitsipCallback = a}) + +instance GoogleRequest + ProjectsInstancesTablesSetIAMPolicy + where + type Rs ProjectsInstancesTablesSetIAMPolicy = Policy + type Scopes ProjectsInstancesTablesSetIAMPolicy = + '["https://www.googleapis.com/auth/bigtable.admin", + "https://www.googleapis.com/auth/bigtable.admin.table", + "https://www.googleapis.com/auth/cloud-bigtable.admin", + "https://www.googleapis.com/auth/cloud-bigtable.admin.table", + "https://www.googleapis.com/auth/cloud-platform"] + requestClient + ProjectsInstancesTablesSetIAMPolicy'{..} + = go _pitsipResource _pitsipXgafv + _pitsipUploadProtocol + _pitsipAccessToken + _pitsipUploadType + _pitsipCallback + (Just AltJSON) + _pitsipPayload + bigtableAdminService + where go + = buildClient + (Proxy :: + Proxy ProjectsInstancesTablesSetIAMPolicyResource) + mempty diff --git a/gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/Tables/TestIAMPermissions.hs b/gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/Tables/TestIAMPermissions.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/Tables/TestIAMPermissions.hs @@ -0,0 +1,182 @@ +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE DeriveDataTypeable #-} +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE TypeFamilies #-} +{-# LANGUAGE TypeOperators #-} + +{-# OPTIONS_GHC -fno-warn-duplicate-exports #-} +{-# OPTIONS_GHC -fno-warn-unused-binds #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- | +-- Module : Network.Google.Resource.BigtableAdmin.Projects.Instances.Tables.TestIAMPermissions +-- Copyright : (c) 2015-2016 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Returns permissions that the caller has on the specified table resource. +-- +-- /See:/ for @bigtableadmin.projects.instances.tables.testIamPermissions@. +module Network.Google.Resource.BigtableAdmin.Projects.Instances.Tables.TestIAMPermissions + ( + -- * REST Resource + ProjectsInstancesTablesTestIAMPermissionsResource + + -- * Creating a Request + , projectsInstancesTablesTestIAMPermissions + , ProjectsInstancesTablesTestIAMPermissions + + -- * Request Lenses + , pittipXgafv + , pittipUploadProtocol + , pittipAccessToken + , pittipUploadType + , pittipPayload + , pittipResource + , pittipCallback + ) where + +import Network.Google.BigtableAdmin.Types +import Network.Google.Prelude + +-- | A resource alias for @bigtableadmin.projects.instances.tables.testIamPermissions@ method which the +-- 'ProjectsInstancesTablesTestIAMPermissions' request conforms to. +type ProjectsInstancesTablesTestIAMPermissionsResource + = + "v2" :> + CaptureMode "resource" "testIamPermissions" Text :> + QueryParam "$.xgafv" Xgafv :> + QueryParam "upload_protocol" Text :> + QueryParam "access_token" Text :> + QueryParam "uploadType" Text :> + QueryParam "callback" Text :> + QueryParam "alt" AltJSON :> + ReqBody '[JSON] TestIAMPermissionsRequest :> + Post '[JSON] TestIAMPermissionsResponse + +-- | Returns permissions that the caller has on the specified table resource. +-- +-- /See:/ 'projectsInstancesTablesTestIAMPermissions' smart constructor. +data ProjectsInstancesTablesTestIAMPermissions = + ProjectsInstancesTablesTestIAMPermissions' + { _pittipXgafv :: !(Maybe Xgafv) + , _pittipUploadProtocol :: !(Maybe Text) + , _pittipAccessToken :: !(Maybe Text) + , _pittipUploadType :: !(Maybe Text) + , _pittipPayload :: !TestIAMPermissionsRequest + , _pittipResource :: !Text + , _pittipCallback :: !(Maybe Text) + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'ProjectsInstancesTablesTestIAMPermissions' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'pittipXgafv' +-- +-- * 'pittipUploadProtocol' +-- +-- * 'pittipAccessToken' +-- +-- * 'pittipUploadType' +-- +-- * 'pittipPayload' +-- +-- * 'pittipResource' +-- +-- * 'pittipCallback' +projectsInstancesTablesTestIAMPermissions + :: TestIAMPermissionsRequest -- ^ 'pittipPayload' + -> Text -- ^ 'pittipResource' + -> ProjectsInstancesTablesTestIAMPermissions +projectsInstancesTablesTestIAMPermissions pPittipPayload_ pPittipResource_ = + ProjectsInstancesTablesTestIAMPermissions' + { _pittipXgafv = Nothing + , _pittipUploadProtocol = Nothing + , _pittipAccessToken = Nothing + , _pittipUploadType = Nothing + , _pittipPayload = pPittipPayload_ + , _pittipResource = pPittipResource_ + , _pittipCallback = Nothing + } + + +-- | V1 error format. +pittipXgafv :: Lens' ProjectsInstancesTablesTestIAMPermissions (Maybe Xgafv) +pittipXgafv + = lens _pittipXgafv (\ s a -> s{_pittipXgafv = a}) + +-- | Upload protocol for media (e.g. \"raw\", \"multipart\"). +pittipUploadProtocol :: Lens' ProjectsInstancesTablesTestIAMPermissions (Maybe Text) +pittipUploadProtocol + = lens _pittipUploadProtocol + (\ s a -> s{_pittipUploadProtocol = a}) + +-- | OAuth access token. +pittipAccessToken :: Lens' ProjectsInstancesTablesTestIAMPermissions (Maybe Text) +pittipAccessToken + = lens _pittipAccessToken + (\ s a -> s{_pittipAccessToken = a}) + +-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\"). +pittipUploadType :: Lens' ProjectsInstancesTablesTestIAMPermissions (Maybe Text) +pittipUploadType + = lens _pittipUploadType + (\ s a -> s{_pittipUploadType = a}) + +-- | Multipart request metadata. +pittipPayload :: Lens' ProjectsInstancesTablesTestIAMPermissions TestIAMPermissionsRequest +pittipPayload + = lens _pittipPayload + (\ s a -> s{_pittipPayload = a}) + +-- | REQUIRED: The resource for which the policy detail is being requested. +-- See the operation documentation for the appropriate value for this +-- field. +pittipResource :: Lens' ProjectsInstancesTablesTestIAMPermissions Text +pittipResource + = lens _pittipResource + (\ s a -> s{_pittipResource = a}) + +-- | JSONP +pittipCallback :: Lens' ProjectsInstancesTablesTestIAMPermissions (Maybe Text) +pittipCallback + = lens _pittipCallback + (\ s a -> s{_pittipCallback = a}) + +instance GoogleRequest + ProjectsInstancesTablesTestIAMPermissions + where + type Rs ProjectsInstancesTablesTestIAMPermissions = + TestIAMPermissionsResponse + type Scopes ProjectsInstancesTablesTestIAMPermissions + = + '["https://www.googleapis.com/auth/bigtable.admin", + "https://www.googleapis.com/auth/bigtable.admin.table", + "https://www.googleapis.com/auth/cloud-bigtable.admin", + "https://www.googleapis.com/auth/cloud-bigtable.admin.table", + "https://www.googleapis.com/auth/cloud-platform"] + requestClient + ProjectsInstancesTablesTestIAMPermissions'{..} + = go _pittipResource _pittipXgafv + _pittipUploadProtocol + _pittipAccessToken + _pittipUploadType + _pittipCallback + (Just AltJSON) + _pittipPayload + bigtableAdminService + where go + = buildClient + (Proxy :: + Proxy + ProjectsInstancesTablesTestIAMPermissionsResource) + mempty diff --git a/gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/TestIAMPermissions.hs b/gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/TestIAMPermissions.hs --- a/gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/TestIAMPermissions.hs +++ b/gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/TestIAMPermissions.hs @@ -64,7 +64,8 @@ -- resource. -- -- /See:/ 'projectsInstancesTestIAMPermissions' smart constructor. -data ProjectsInstancesTestIAMPermissions = ProjectsInstancesTestIAMPermissions' +data ProjectsInstancesTestIAMPermissions = + ProjectsInstancesTestIAMPermissions' { _pitipXgafv :: !(Maybe Xgafv) , _pitipUploadProtocol :: !(Maybe Text) , _pitipAccessToken :: !(Maybe Text) @@ -72,8 +73,10 @@ , _pitipPayload :: !TestIAMPermissionsRequest , _pitipResource :: !Text , _pitipCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsInstancesTestIAMPermissions' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -96,7 +99,7 @@ -> Text -- ^ 'pitipResource' -> ProjectsInstancesTestIAMPermissions projectsInstancesTestIAMPermissions pPitipPayload_ pPitipResource_ = - ProjectsInstancesTestIAMPermissions' + ProjectsInstancesTestIAMPermissions' { _pitipXgafv = Nothing , _pitipUploadProtocol = Nothing , _pitipAccessToken = Nothing @@ -106,6 +109,7 @@ , _pitipCallback = Nothing } + -- | V1 error format. pitipXgafv :: Lens' ProjectsInstancesTestIAMPermissions (Maybe Xgafv) pitipXgafv @@ -149,7 +153,8 @@ (\ s a -> s{_pitipCallback = a}) instance GoogleRequest - ProjectsInstancesTestIAMPermissions where + ProjectsInstancesTestIAMPermissions + where type Rs ProjectsInstancesTestIAMPermissions = TestIAMPermissionsResponse type Scopes ProjectsInstancesTestIAMPermissions = diff --git a/gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/Update.hs b/gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/Update.hs --- a/gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/Update.hs +++ b/gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/Update.hs @@ -65,7 +65,8 @@ -- properties, such as labels, use PartialUpdateInstance. -- -- /See:/ 'projectsInstancesUpdate' smart constructor. -data ProjectsInstancesUpdate = ProjectsInstancesUpdate' +data ProjectsInstancesUpdate = + ProjectsInstancesUpdate' { _piuXgafv :: !(Maybe Xgafv) , _piuUploadProtocol :: !(Maybe Text) , _piuAccessToken :: !(Maybe Text) @@ -73,8 +74,10 @@ , _piuPayload :: !Instance , _piuName :: !Text , _piuCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsInstancesUpdate' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -97,7 +100,7 @@ -> Text -- ^ 'piuName' -> ProjectsInstancesUpdate projectsInstancesUpdate pPiuPayload_ pPiuName_ = - ProjectsInstancesUpdate' + ProjectsInstancesUpdate' { _piuXgafv = Nothing , _piuUploadProtocol = Nothing , _piuAccessToken = Nothing @@ -106,6 +109,7 @@ , _piuName = pPiuName_ , _piuCallback = Nothing } + -- | V1 error format. piuXgafv :: Lens' ProjectsInstancesUpdate (Maybe Xgafv) diff --git a/gogol-bigtableadmin.cabal b/gogol-bigtableadmin.cabal --- a/gogol-bigtableadmin.cabal +++ b/gogol-bigtableadmin.cabal @@ -1,5 +1,5 @@ name: gogol-bigtableadmin -version: 0.4.0 +version: 0.5.0 synopsis: Google Cloud Bigtable Admin SDK. homepage: https://github.com/brendanhay/gogol bug-reports: https://github.com/brendanhay/gogol/issues @@ -14,7 +14,7 @@ extra-source-files: README.md src/.gitkeep description: - + Administer your Cloud Bigtable tables and instances. . /Warning:/ This is an experimental prototype/preview release which is still under exploratory development and not intended for public use, caveat emptor! @@ -62,8 +62,11 @@ , Network.Google.Resource.BigtableAdmin.Projects.Instances.Tables.DropRowRange , Network.Google.Resource.BigtableAdmin.Projects.Instances.Tables.GenerateConsistencyToken , Network.Google.Resource.BigtableAdmin.Projects.Instances.Tables.Get + , Network.Google.Resource.BigtableAdmin.Projects.Instances.Tables.GetIAMPolicy , Network.Google.Resource.BigtableAdmin.Projects.Instances.Tables.List , Network.Google.Resource.BigtableAdmin.Projects.Instances.Tables.ModifyColumnFamilies + , Network.Google.Resource.BigtableAdmin.Projects.Instances.Tables.SetIAMPolicy + , Network.Google.Resource.BigtableAdmin.Projects.Instances.Tables.TestIAMPermissions , Network.Google.Resource.BigtableAdmin.Projects.Instances.TestIAMPermissions , Network.Google.Resource.BigtableAdmin.Projects.Instances.Update @@ -72,5 +75,5 @@ , Network.Google.BigtableAdmin.Types.Sum build-depends: - gogol-core == 0.4.0.* + gogol-core == 0.5.0.* , base >= 4.7 && < 5