gogol-bigtableadmin 0.4.0 → 0.5.0

raw patch · 40 files changed

+1405/−385 lines, 40 filesdep ~gogol-corePVP ok

version bump matches the API change (PVP)

Dependency ranges changed: gogol-core

API changes (from Hackage documentation)

Files

• README.md +1/−1
• gen/Network/Google/BigtableAdmin.hs +33/−1
• gen/Network/Google/BigtableAdmin/Types.hs +25/−9
• gen/Network/Google/BigtableAdmin/Types/Product.hs +500/−260
• gen/Network/Google/BigtableAdmin/Types/Sum.hs +46/−2
• gen/Network/Google/Resource/BigtableAdmin/Operations/Cancel.hs +7/−3
• gen/Network/Google/Resource/BigtableAdmin/Operations/Delete.hs +7/−3
• gen/Network/Google/Resource/BigtableAdmin/Operations/Get.hs +7/−3
• gen/Network/Google/Resource/BigtableAdmin/Operations/Projects/Operations/List.hs +9/−4
• gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/AppProFiles/Create.hs +9/−4
• gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/AppProFiles/Delete.hs +9/−4
• gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/AppProFiles/Get.hs +9/−4
• gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/AppProFiles/List.hs +9/−4
• gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/AppProFiles/Patch.hs +9/−4
• gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/Clusters/Create.hs +9/−4
• gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/Clusters/Delete.hs +9/−4
• gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/Clusters/Get.hs +7/−3
• gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/Clusters/List.hs +7/−3
• gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/Clusters/Update.hs +9/−4
• gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/Create.hs +7/−3
• gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/Delete.hs +7/−3
• gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/Get.hs +7/−3
• gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/GetIAMPolicy.hs +7/−3
• gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/List.hs +7/−3
• gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/PartialUpdateInstance.hs +9/−4
• gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/SetIAMPolicy.hs +7/−3
• gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/Tables/CheckConsistency.hs +9/−4
• gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/Tables/Create.hs +7/−3
• gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/Tables/Delete.hs +7/−3
• gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/Tables/DropRowRange.hs +9/−4
• gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/Tables/GenerateConsistencyToken.hs +9/−4
• gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/Tables/Get.hs +7/−3
• gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/Tables/GetIAMPolicy.hs +179/−0
• gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/Tables/List.hs +14/−4
• gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/Tables/ModifyColumnFamilies.hs +9/−4
• gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/Tables/SetIAMPolicy.hs +179/−0
• gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/Tables/TestIAMPermissions.hs +182/−0
• gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/TestIAMPermissions.hs +9/−4
• gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/Update.hs +7/−3
• gogol-bigtableadmin.cabal +6/−3

@@ -8,7 +8,7 @@  ## Version -`0.3.0`+`0.5.0`   ## Description

@@ -13,7 +13,7 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- -- |+-- Administer your Cloud Bigtable tables and instances. -- -- /See:/ <https://cloud.google.com/bigtable/ Cloud Bigtable Admin API Reference> 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

@@ -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

@@ -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)

@@ -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@

@@ -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)

@@ -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)

@@ -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)

@@ -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 =

@@ -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 =

@@ -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",

@@ -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",

@@ -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 =

@@ -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",

@@ -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",

@@ -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",

@@ -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)

@@ -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 \` =

@@ -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",

@@ -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\/\`.

@@ -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)

@@ -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)

@@ -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)

@@ -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\/\`.

@@ -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 =

@@ -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)

@@ -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 =

@@ -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\/\`.

@@ -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)

@@ -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",

@@ -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

@@ -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)

@@ -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 <brendan.g.hay@gmail.com>+-- 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:/ <https://cloud.google.com/bigtable/ Cloud Bigtable Admin API Reference> 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

@@ -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})

@@ -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

@@ -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 <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Sets the access control policy on a table resource. Replaces any+-- existing policy.+--+-- /See:/ <https://cloud.google.com/bigtable/ Cloud Bigtable Admin API Reference> 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

@@ -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 <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns permissions that the caller has on the specified table resource.+--+-- /See:/ <https://cloud.google.com/bigtable/ Cloud Bigtable Admin API Reference> 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

@@ -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 =

@@ -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)

@@ -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