gogol-file 0.4.0 → 0.5.0

raw patch · 17 files changed

+2231/−1068 lines, 17 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/File.hs +79/−0
• gen/Network/Google/File/Types.hs +82/−3
• gen/Network/Google/File/Types/Product.hs +1898/−993
• gen/Network/Google/File/Types/Sum.hs +68/−18
• gen/Network/Google/Resource/File/Projects/Locations/Get.hs +8/−4
• gen/Network/Google/Resource/File/Projects/Locations/Instances/Create.hs +10/−5
• gen/Network/Google/Resource/File/Projects/Locations/Instances/Delete.hs +10/−5
• gen/Network/Google/Resource/File/Projects/Locations/Instances/Get.hs +8/−4
• gen/Network/Google/Resource/File/Projects/Locations/Instances/List.hs +8/−4
• gen/Network/Google/Resource/File/Projects/Locations/Instances/Patch.hs +10/−5
• gen/Network/Google/Resource/File/Projects/Locations/List.hs +8/−4
• gen/Network/Google/Resource/File/Projects/Locations/Operations/Cancel.hs +10/−5
• gen/Network/Google/Resource/File/Projects/Locations/Operations/Delete.hs +10/−5
• gen/Network/Google/Resource/File/Projects/Locations/Operations/Get.hs +8/−4
• gen/Network/Google/Resource/File/Projects/Locations/Operations/List.hs +10/−5
• gogol-file.cabal +3/−3

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

@@ -82,6 +82,16 @@     , operationSchema     , osAddtional +    -- ** GoogleCloudSaasacceleratorManagementProvidersV1InstanceState+    , GoogleCloudSaasacceleratorManagementProvidersV1InstanceState (..)++    -- ** GoogleCloudSaasacceleratorManagementProvidersV1RolloutMetadata+    , GoogleCloudSaasacceleratorManagementProvidersV1RolloutMetadata+    , googleCloudSaasacceleratorManagementProvidersV1RolloutMetadata+    , gcsmpvrmRolloutName+    , gcsmpvrmNotification+    , gcsmpvrmReleaseName+     -- ** ListLocationsResponse     , ListLocationsResponse     , listLocationsResponse@@ -120,6 +130,22 @@     , Empty     , empty +    -- ** GoogleCloudSaasacceleratorManagementProvidersV1Instance+    , GoogleCloudSaasacceleratorManagementProvidersV1Instance+    , googleCloudSaasacceleratorManagementProvidersV1Instance+    , gcsmpviTenantProjectId+    , gcsmpviState+    , gcsmpviSoftwareVersions+    , gcsmpviProvisionedResources+    , gcsmpviUpdateTime+    , gcsmpviName+    , gcsmpviLabels+    , gcsmpviSloMetadata+    , gcsmpviProducerMetadata+    , gcsmpviRolloutMetadata+    , gcsmpviCreateTime+    , gcsmpviMaintenancePolicyNames+     -- ** InstanceTier     , InstanceTier (..) @@ -128,6 +154,19 @@     , statusDetailsItem     , sdiAddtional +    -- ** GoogleCloudSaasacceleratorManagementProvidersV1InstanceSoftwareVersions+    , GoogleCloudSaasacceleratorManagementProvidersV1InstanceSoftwareVersions+    , googleCloudSaasacceleratorManagementProvidersV1InstanceSoftwareVersions+    , gcsmpvisvAddtional++    -- ** GoogleCloudSaasacceleratorManagementProvidersV1NotificationMetadata+    , GoogleCloudSaasacceleratorManagementProvidersV1NotificationMetadata+    , googleCloudSaasacceleratorManagementProvidersV1NotificationMetadata+    , gcsmpvnmTargetRelease+    , gcsmpvnmScheduledEndTime+    , gcsmpvnmRescheduled+    , gcsmpvnmScheduledStartTime+     -- ** FileShareConfig     , FileShareConfig     , fileShareConfig@@ -142,9 +181,33 @@     , ncReservedIPRange     , ncIPAddresses +    -- ** GoogleCloudSaasacceleratorManagementProvidersV1SloMetadata+    , GoogleCloudSaasacceleratorManagementProvidersV1SloMetadata+    , googleCloudSaasacceleratorManagementProvidersV1SloMetadata+    , gcsmpvsmExclusions+    , gcsmpvsmTier+     -- ** Xgafv     , Xgafv (..) +    -- ** GoogleCloudSaasacceleratorManagementProvidersV1InstanceProducerMetadata+    , GoogleCloudSaasacceleratorManagementProvidersV1InstanceProducerMetadata+    , googleCloudSaasacceleratorManagementProvidersV1InstanceProducerMetadata+    , gcsmpvipmAddtional++    -- ** GoogleCloudSaasacceleratorManagementProvidersV1InstanceLabels+    , GoogleCloudSaasacceleratorManagementProvidersV1InstanceLabels+    , googleCloudSaasacceleratorManagementProvidersV1InstanceLabels+    , gcsmpvilAddtional++    -- ** GoogleCloudSaasacceleratorManagementProvidersV1SloExclusion+    , GoogleCloudSaasacceleratorManagementProvidersV1SloExclusion+    , googleCloudSaasacceleratorManagementProvidersV1SloExclusion+    , gcsmpvseExclusionDuration+    , gcsmpvseExclusionStartTime+    , gcsmpvseReason+    , gcsmpvseSloName+     -- ** LocationLabels     , LocationLabels     , locationLabels@@ -166,6 +229,12 @@     , omTarget     , omCreateTime +    -- ** GoogleCloudSaasacceleratorManagementProvidersV1ProvisionedResource+    , GoogleCloudSaasacceleratorManagementProvidersV1ProvisionedResource+    , googleCloudSaasacceleratorManagementProvidersV1ProvisionedResource+    , gcsmpvprResourceType+    , gcsmpvprResourceURL+     -- ** ListInstancesResponse     , ListInstancesResponse     , listInstancesResponse@@ -180,6 +249,16 @@     , OperationResponse     , operationResponse     , orAddtional++    -- ** GoogleCloudSaasacceleratorManagementProvidersV1InstanceRolloutMetadata+    , GoogleCloudSaasacceleratorManagementProvidersV1InstanceRolloutMetadata+    , googleCloudSaasacceleratorManagementProvidersV1InstanceRolloutMetadata+    , gcsmpvirmAddtional++    -- ** GoogleCloudSaasacceleratorManagementProvidersV1InstanceMaintenancePolicyNames+    , GoogleCloudSaasacceleratorManagementProvidersV1InstanceMaintenancePolicyNames+    , googleCloudSaasacceleratorManagementProvidersV1InstanceMaintenancePolicyNames+    , gcsmpvimpnAddtional      -- ** Instance     , Instance

@@ -39,6 +39,16 @@     , operationSchema     , osAddtional +    -- * GoogleCloudSaasacceleratorManagementProvidersV1InstanceState+    , GoogleCloudSaasacceleratorManagementProvidersV1InstanceState (..)++    -- * GoogleCloudSaasacceleratorManagementProvidersV1RolloutMetadata+    , GoogleCloudSaasacceleratorManagementProvidersV1RolloutMetadata+    , googleCloudSaasacceleratorManagementProvidersV1RolloutMetadata+    , gcsmpvrmRolloutName+    , gcsmpvrmNotification+    , gcsmpvrmReleaseName+     -- * ListLocationsResponse     , ListLocationsResponse     , listLocationsResponse@@ -77,6 +87,22 @@     , Empty     , empty +    -- * GoogleCloudSaasacceleratorManagementProvidersV1Instance+    , GoogleCloudSaasacceleratorManagementProvidersV1Instance+    , googleCloudSaasacceleratorManagementProvidersV1Instance+    , gcsmpviTenantProjectId+    , gcsmpviState+    , gcsmpviSoftwareVersions+    , gcsmpviProvisionedResources+    , gcsmpviUpdateTime+    , gcsmpviName+    , gcsmpviLabels+    , gcsmpviSloMetadata+    , gcsmpviProducerMetadata+    , gcsmpviRolloutMetadata+    , gcsmpviCreateTime+    , gcsmpviMaintenancePolicyNames+     -- * InstanceTier     , InstanceTier (..) @@ -85,6 +111,19 @@     , statusDetailsItem     , sdiAddtional +    -- * GoogleCloudSaasacceleratorManagementProvidersV1InstanceSoftwareVersions+    , GoogleCloudSaasacceleratorManagementProvidersV1InstanceSoftwareVersions+    , googleCloudSaasacceleratorManagementProvidersV1InstanceSoftwareVersions+    , gcsmpvisvAddtional++    -- * GoogleCloudSaasacceleratorManagementProvidersV1NotificationMetadata+    , GoogleCloudSaasacceleratorManagementProvidersV1NotificationMetadata+    , googleCloudSaasacceleratorManagementProvidersV1NotificationMetadata+    , gcsmpvnmTargetRelease+    , gcsmpvnmScheduledEndTime+    , gcsmpvnmRescheduled+    , gcsmpvnmScheduledStartTime+     -- * FileShareConfig     , FileShareConfig     , fileShareConfig@@ -99,9 +138,33 @@     , ncReservedIPRange     , ncIPAddresses +    -- * GoogleCloudSaasacceleratorManagementProvidersV1SloMetadata+    , GoogleCloudSaasacceleratorManagementProvidersV1SloMetadata+    , googleCloudSaasacceleratorManagementProvidersV1SloMetadata+    , gcsmpvsmExclusions+    , gcsmpvsmTier+     -- * Xgafv     , Xgafv (..) +    -- * GoogleCloudSaasacceleratorManagementProvidersV1InstanceProducerMetadata+    , GoogleCloudSaasacceleratorManagementProvidersV1InstanceProducerMetadata+    , googleCloudSaasacceleratorManagementProvidersV1InstanceProducerMetadata+    , gcsmpvipmAddtional++    -- * GoogleCloudSaasacceleratorManagementProvidersV1InstanceLabels+    , GoogleCloudSaasacceleratorManagementProvidersV1InstanceLabels+    , googleCloudSaasacceleratorManagementProvidersV1InstanceLabels+    , gcsmpvilAddtional++    -- * GoogleCloudSaasacceleratorManagementProvidersV1SloExclusion+    , GoogleCloudSaasacceleratorManagementProvidersV1SloExclusion+    , googleCloudSaasacceleratorManagementProvidersV1SloExclusion+    , gcsmpvseExclusionDuration+    , gcsmpvseExclusionStartTime+    , gcsmpvseReason+    , gcsmpvseSloName+     -- * LocationLabels     , LocationLabels     , locationLabels@@ -123,6 +186,12 @@     , omTarget     , omCreateTime +    -- * GoogleCloudSaasacceleratorManagementProvidersV1ProvisionedResource+    , GoogleCloudSaasacceleratorManagementProvidersV1ProvisionedResource+    , googleCloudSaasacceleratorManagementProvidersV1ProvisionedResource+    , gcsmpvprResourceType+    , gcsmpvprResourceURL+     -- * ListInstancesResponse     , ListInstancesResponse     , listInstancesResponse@@ -138,6 +207,16 @@     , operationResponse     , orAddtional +    -- * GoogleCloudSaasacceleratorManagementProvidersV1InstanceRolloutMetadata+    , GoogleCloudSaasacceleratorManagementProvidersV1InstanceRolloutMetadata+    , googleCloudSaasacceleratorManagementProvidersV1InstanceRolloutMetadata+    , gcsmpvirmAddtional++    -- * GoogleCloudSaasacceleratorManagementProvidersV1InstanceMaintenancePolicyNames+    , GoogleCloudSaasacceleratorManagementProvidersV1InstanceMaintenancePolicyNames+    , googleCloudSaasacceleratorManagementProvidersV1InstanceMaintenancePolicyNames+    , gcsmpvimpnAddtional+     -- * Instance     , Instance     , instance'@@ -157,12 +236,12 @@ import           Network.Google.File.Types.Sum import           Network.Google.Prelude --- | Default request referring to version 'v1beta1' of the Cloud Filestore API. This contains the host and root path used as a starting point for constructing service requests.+-- | Default request referring to version 'v1' of the Cloud Filestore API. This contains the host and root path used as a starting point for constructing service requests. fileService :: ServiceConfig fileService-  = defaultService (ServiceId "file:v1beta1")+  = defaultService (ServiceId "file:v1")       "file.googleapis.com"  -- | View and manage your data across Google Cloud Platform services cloudPlatformScope :: Proxy '["https://www.googleapis.com/auth/cloud-platform"]-cloudPlatformScope = Proxy;+cloudPlatformScope = Proxy

@@ -23,999 +23,1904 @@ -- | Resource labels to represent user provided metadata. -- -- /See:/ 'instanceLabels' smart constructor.-newtype InstanceLabels = InstanceLabels'-    { _ilAddtional :: HashMap Text Text-    } 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:------ * 'ilAddtional'-instanceLabels-    :: HashMap Text Text -- ^ 'ilAddtional'-    -> InstanceLabels-instanceLabels pIlAddtional_ =-    InstanceLabels'-    { _ilAddtional = _Coerce # pIlAddtional_-    }--ilAddtional :: Lens' InstanceLabels (HashMap Text Text)-ilAddtional-  = lens _ilAddtional (\ s a -> s{_ilAddtional = a}) .-      _Coerce--instance FromJSON InstanceLabels where-        parseJSON-          = withObject "InstanceLabels"-              (\ o -> InstanceLabels' <$> (parseJSONObject o))--instance ToJSON InstanceLabels where-        toJSON = toJSON . _ilAddtional---- | The \`Status\` type defines a logical error model that is suitable for--- different programming environments, including REST APIs and RPC APIs. It--- is used by [gRPC](https:\/\/github.com\/grpc). The error model is--- designed to be: - Simple to use and understand for most users - Flexible--- enough to meet unexpected needs # Overview The \`Status\` message--- contains three pieces of data: error code, error message, and error--- details. The error code should be an enum value of google.rpc.Code, but--- it may accept additional error codes if needed. The error message should--- be a developer-facing English message that helps developers *understand*--- and *resolve* the error. If a localized user-facing error message is--- needed, put the localized message in the error details or localize it in--- the client. The optional error details may contain arbitrary information--- about the error. There is a predefined set of error detail types in the--- package \`google.rpc\` that can be used for common error conditions. #--- Language mapping The \`Status\` message is the logical representation of--- the error model, but it is not necessarily the actual wire format. When--- the \`Status\` message is exposed in different client libraries and--- different wire protocols, it can be mapped differently. For example, it--- will likely be mapped to some exceptions in Java, but more likely mapped--- to some error codes in C. # Other uses The error model and the--- \`Status\` message can be used in a variety of environments, either with--- or without APIs, to provide a consistent developer experience across--- different environments. Example uses of this error model include: ---- Partial errors. If a service needs to return partial errors to the--- client, it may embed the \`Status\` in the normal response to indicate--- the partial errors. - Workflow errors. A typical workflow has multiple--- steps. Each step may have a \`Status\` message for error reporting. ---- Batch operations. If a client uses batch request and batch response, the--- \`Status\` message should be used directly inside batch response, one--- for each error sub-response. - Asynchronous operations. If an API call--- embeds asynchronous operation results in its response, the status of--- those operations should be represented directly using the \`Status\`--- message. - Logging. If some API errors are stored in logs, the message--- \`Status\` could be used directly after any stripping needed for--- security\/privacy reasons.------ /See:/ 'status' smart constructor.-data Status = Status'-    { _sDetails :: !(Maybe [StatusDetailsItem])-    , _sCode    :: !(Maybe (Textual Int32))-    , _sMessage :: !(Maybe Text)-    } 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:------ * 'sDetails'------ * 'sCode'------ * 'sMessage'-status-    :: Status-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]-sDetails-  = lens _sDetails (\ s a -> s{_sDetails = a}) .-      _Default-      . _Coerce---- | The status code, which should be an enum value of google.rpc.Code.-sCode :: Lens' Status (Maybe Int32)-sCode-  = lens _sCode (\ s a -> s{_sCode = a}) .-      mapping _Coerce---- | A developer-facing error message, which should be in English. Any--- user-facing error message should be localized and sent in the--- google.rpc.Status.details field, or localized by the client.-sMessage :: Lens' Status (Maybe Text)-sMessage = lens _sMessage (\ s a -> s{_sMessage = a})--instance FromJSON Status where-        parseJSON-          = withObject "Status"-              (\ o ->-                 Status' <$>-                   (o .:? "details" .!= mempty) <*> (o .:? "code") <*>-                     (o .:? "message"))--instance ToJSON Status where-        toJSON Status'{..}-          = object-              (catMaybes-                 [("details" .=) <$> _sDetails,-                  ("code" .=) <$> _sCode,-                  ("message" .=) <$> _sMessage])---- | Service-specific metadata associated with the operation. It typically--- contains progress information and common metadata such as create time.--- Some services might not provide such metadata. Any method that returns a--- long-running operation should document the metadata type, if any.------ /See:/ 'operationSchema' smart constructor.-newtype OperationSchema = OperationSchema'-    { _osAddtional :: HashMap Text JSONValue-    } deriving (Eq,Show,Data,Typeable,Generic)---- | Creates a value of 'OperationSchema' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'osAddtional'-operationSchema-    :: HashMap Text JSONValue -- ^ 'osAddtional'-    -> OperationSchema-operationSchema pOsAddtional_ =-    OperationSchema'-    { _osAddtional = _Coerce # pOsAddtional_-    }---- | Properties of the object. Contains field \'type with type URL.-osAddtional :: Lens' OperationSchema (HashMap Text JSONValue)-osAddtional-  = lens _osAddtional (\ s a -> s{_osAddtional = a}) .-      _Coerce--instance FromJSON OperationSchema where-        parseJSON-          = withObject "OperationSchema"-              (\ o -> OperationSchema' <$> (parseJSONObject o))--instance ToJSON OperationSchema where-        toJSON = toJSON . _osAddtional---- | The response message for Locations.ListLocations.------ /See:/ 'listLocationsResponse' smart constructor.-data ListLocationsResponse = ListLocationsResponse'-    { _llrNextPageToken :: !(Maybe Text)-    , _llrLocations     :: !(Maybe [Location])-    } deriving (Eq,Show,Data,Typeable,Generic)---- | Creates a value of 'ListLocationsResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'llrNextPageToken'------ * 'llrLocations'-listLocationsResponse-    :: ListLocationsResponse-listLocationsResponse =-    ListLocationsResponse'-    { _llrNextPageToken = Nothing-    , _llrLocations = Nothing-    }---- | The standard List next-page token.-llrNextPageToken :: Lens' ListLocationsResponse (Maybe Text)-llrNextPageToken-  = lens _llrNextPageToken-      (\ s a -> s{_llrNextPageToken = a})---- | A list of locations that matches the specified filter in the request.-llrLocations :: Lens' ListLocationsResponse [Location]-llrLocations-  = lens _llrLocations (\ s a -> s{_llrLocations = a})-      . _Default-      . _Coerce--instance FromJSON ListLocationsResponse where-        parseJSON-          = withObject "ListLocationsResponse"-              (\ o ->-                 ListLocationsResponse' <$>-                   (o .:? "nextPageToken") <*>-                     (o .:? "locations" .!= mempty))--instance ToJSON ListLocationsResponse where-        toJSON ListLocationsResponse'{..}-          = object-              (catMaybes-                 [("nextPageToken" .=) <$> _llrNextPageToken,-                  ("locations" .=) <$> _llrLocations])---- | The response message for Operations.ListOperations.------ /See:/ 'listOperationsResponse' smart constructor.-data ListOperationsResponse = ListOperationsResponse'-    { _lorNextPageToken :: !(Maybe Text)-    , _lorOperations    :: !(Maybe [Operation])-    } 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:------ * 'lorNextPageToken'------ * 'lorOperations'-listOperationsResponse-    :: ListOperationsResponse-listOperationsResponse =-    ListOperationsResponse'-    { _lorNextPageToken = Nothing-    , _lorOperations = Nothing-    }---- | The standard List next-page token.-lorNextPageToken :: Lens' ListOperationsResponse (Maybe Text)-lorNextPageToken-  = lens _lorNextPageToken-      (\ s a -> s{_lorNextPageToken = a})---- | A list of operations that matches the specified filter in the request.-lorOperations :: Lens' ListOperationsResponse [Operation]-lorOperations-  = lens _lorOperations-      (\ s a -> s{_lorOperations = a})-      . _Default-      . _Coerce--instance FromJSON ListOperationsResponse where-        parseJSON-          = withObject "ListOperationsResponse"-              (\ o ->-                 ListOperationsResponse' <$>-                   (o .:? "nextPageToken") <*>-                     (o .:? "operations" .!= mempty))--instance ToJSON ListOperationsResponse where-        toJSON ListOperationsResponse'{..}-          = object-              (catMaybes-                 [("nextPageToken" .=) <$> _lorNextPageToken,-                  ("operations" .=) <$> _lorOperations])---- | The request message for Operations.CancelOperation.------ /See:/ 'cancelOperationRequest' smart constructor.-data CancelOperationRequest =-    CancelOperationRequest'-    deriving (Eq,Show,Data,Typeable,Generic)---- | Creates a value of 'CancelOperationRequest' with the minimum fields required to make a request.----cancelOperationRequest-    :: CancelOperationRequest-cancelOperationRequest = CancelOperationRequest'--instance FromJSON CancelOperationRequest where-        parseJSON-          = withObject "CancelOperationRequest"-              (\ o -> pure CancelOperationRequest')--instance ToJSON CancelOperationRequest where-        toJSON = const emptyObject---- | A resource that represents Google Cloud Platform location.------ /See:/ 'location' smart constructor.-data Location = Location'-    { _lName        :: !(Maybe Text)-    , _lMetadata    :: !(Maybe LocationMetadata)-    , _lDisplayName :: !(Maybe Text)-    , _lLabels      :: !(Maybe LocationLabels)-    , _lLocationId  :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)---- | Creates a value of 'Location' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'lName'------ * 'lMetadata'------ * 'lDisplayName'------ * 'lLabels'------ * 'lLocationId'-location-    :: Location-location =-    Location'-    { _lName = Nothing-    , _lMetadata = Nothing-    , _lDisplayName = Nothing-    , _lLabels = Nothing-    , _lLocationId = Nothing-    }---- | Resource name for the location, which may vary between implementations.--- For example: \`\"projects\/example-project\/locations\/us-east1\"\`-lName :: Lens' Location (Maybe Text)-lName = lens _lName (\ s a -> s{_lName = a})---- | Service-specific metadata. For example the available capacity at the--- given location.-lMetadata :: Lens' Location (Maybe LocationMetadata)-lMetadata-  = lens _lMetadata (\ s a -> s{_lMetadata = a})---- | The friendly name for this location, typically a nearby city name. For--- example, \"Tokyo\".-lDisplayName :: Lens' Location (Maybe Text)-lDisplayName-  = lens _lDisplayName (\ s a -> s{_lDisplayName = a})---- | Cross-service attributes for the location. For example--- {\"cloud.googleapis.com\/region\": \"us-east1\"}-lLabels :: Lens' Location (Maybe LocationLabels)-lLabels = lens _lLabels (\ s a -> s{_lLabels = a})---- | The canonical id for this location. For example: \`\"us-east1\"\`.-lLocationId :: Lens' Location (Maybe Text)-lLocationId-  = lens _lLocationId (\ s a -> s{_lLocationId = a})--instance FromJSON Location where-        parseJSON-          = withObject "Location"-              (\ o ->-                 Location' <$>-                   (o .:? "name") <*> (o .:? "metadata") <*>-                     (o .:? "displayName")-                     <*> (o .:? "labels")-                     <*> (o .:? "locationId"))--instance ToJSON Location where-        toJSON Location'{..}-          = object-              (catMaybes-                 [("name" .=) <$> _lName,-                  ("metadata" .=) <$> _lMetadata,-                  ("displayName" .=) <$> _lDisplayName,-                  ("labels" .=) <$> _lLabels,-                  ("locationId" .=) <$> _lLocationId])---- | This resource represents a long-running operation that is the result of--- a network API call.------ /See:/ 'operation' smart constructor.-data Operation = Operation'-    { _oDone     :: !(Maybe Bool)-    , _oError    :: !(Maybe Status)-    , _oResponse :: !(Maybe OperationResponse)-    , _oName     :: !(Maybe Text)-    , _oMetadata :: !(Maybe OperationSchema)-    } 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:------ * 'oDone'------ * 'oError'------ * 'oResponse'------ * 'oName'------ * 'oMetadata'-operation-    :: Operation-operation =-    Operation'-    { _oDone = Nothing-    , _oError = Nothing-    , _oResponse = Nothing-    , _oName = Nothing-    , _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.-oDone :: Lens' Operation (Maybe Bool)-oDone = lens _oDone (\ s a -> s{_oDone = a})---- | The error result of the operation in case of failure or cancellation.-oError :: Lens' Operation (Maybe Status)-oError = lens _oError (\ s a -> s{_oError = a})---- | The normal response of the operation in case of success. If the original--- method returns no data on success, such as \`Delete\`, the response is--- \`google.protobuf.Empty\`. If the original method is standard--- \`Get\`\/\`Create\`\/\`Update\`, the response should be the resource.--- For other methods, the response should have the type \`XxxResponse\`,--- where \`Xxx\` is the original method name. For example, if the original--- method name is \`TakeSnapshot()\`, the inferred response type is--- \`TakeSnapshotResponse\`.-oResponse :: Lens' Operation (Maybe OperationResponse)-oResponse-  = lens _oResponse (\ s a -> s{_oResponse = a})---- | The server-assigned name, which is only unique within the same service--- that originally returns it. If you use the default HTTP mapping, the--- \`name\` should have the format of \`operations\/some\/unique\/name\`.-oName :: Lens' Operation (Maybe Text)-oName = lens _oName (\ s a -> s{_oName = a})---- | Service-specific metadata associated with the operation. It typically--- contains progress information and common metadata such as create time.--- Some services might not provide such metadata. Any method that returns a--- long-running operation should document the metadata type, if any.-oMetadata :: Lens' Operation (Maybe OperationSchema)-oMetadata-  = lens _oMetadata (\ s a -> s{_oMetadata = a})--instance FromJSON Operation where-        parseJSON-          = withObject "Operation"-              (\ o ->-                 Operation' <$>-                   (o .:? "done") <*> (o .:? "error") <*>-                     (o .:? "response")-                     <*> (o .:? "name")-                     <*> (o .:? "metadata"))--instance ToJSON Operation where-        toJSON Operation'{..}-          = object-              (catMaybes-                 [("done" .=) <$> _oDone, ("error" .=) <$> _oError,-                  ("response" .=) <$> _oResponse,-                  ("name" .=) <$> _oName,-                  ("metadata" .=) <$> _oMetadata])---- | A generic empty message that you can re-use to avoid defining duplicated--- empty messages in your APIs. A typical example is to use it as the--- request or the response type of an API method. For instance: service Foo--- { rpc Bar(google.protobuf.Empty) returns (google.protobuf.Empty); } The--- JSON representation for \`Empty\` is empty JSON object \`{}\`.------ /See:/ 'empty' smart constructor.-data Empty =-    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')--instance ToJSON Empty where-        toJSON = const emptyObject------- /See:/ 'statusDetailsItem' smart constructor.-newtype StatusDetailsItem = StatusDetailsItem'-    { _sdiAddtional :: HashMap Text JSONValue-    } 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:------ * 'sdiAddtional'-statusDetailsItem-    :: HashMap Text JSONValue -- ^ 'sdiAddtional'-    -> StatusDetailsItem-statusDetailsItem pSdiAddtional_ =-    StatusDetailsItem'-    { _sdiAddtional = _Coerce # pSdiAddtional_-    }---- | Properties of the object. Contains field \'type with type URL.-sdiAddtional :: Lens' StatusDetailsItem (HashMap Text JSONValue)-sdiAddtional-  = lens _sdiAddtional (\ s a -> s{_sdiAddtional = a})-      . _Coerce--instance FromJSON StatusDetailsItem where-        parseJSON-          = withObject "StatusDetailsItem"-              (\ o -> StatusDetailsItem' <$> (parseJSONObject o))--instance ToJSON StatusDetailsItem where-        toJSON = toJSON . _sdiAddtional---- | File share configuration for the instance.------ /See:/ 'fileShareConfig' smart constructor.-data FileShareConfig = FileShareConfig'-    { _fscName       :: !(Maybe Text)-    , _fscCapacityGb :: !(Maybe (Textual Int64))-    } deriving (Eq,Show,Data,Typeable,Generic)---- | Creates a value of 'FileShareConfig' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'fscName'------ * 'fscCapacityGb'-fileShareConfig-    :: FileShareConfig-fileShareConfig =-    FileShareConfig'-    { _fscName = Nothing-    , _fscCapacityGb = Nothing-    }---- | The name of the file share (must be 16 characters or less).-fscName :: Lens' FileShareConfig (Maybe Text)-fscName = lens _fscName (\ s a -> s{_fscName = a})---- | File share capacity in gigabytes (GB). Cloud Filestore defines 1 GB as--- 1024^3 bytes.-fscCapacityGb :: Lens' FileShareConfig (Maybe Int64)-fscCapacityGb-  = lens _fscCapacityGb-      (\ s a -> s{_fscCapacityGb = a})-      . mapping _Coerce--instance FromJSON FileShareConfig where-        parseJSON-          = withObject "FileShareConfig"-              (\ o ->-                 FileShareConfig' <$>-                   (o .:? "name") <*> (o .:? "capacityGb"))--instance ToJSON FileShareConfig where-        toJSON FileShareConfig'{..}-          = object-              (catMaybes-                 [("name" .=) <$> _fscName,-                  ("capacityGb" .=) <$> _fscCapacityGb])---- | Network configuration for the instance.------ /See:/ 'networkConfig' smart constructor.-data NetworkConfig = NetworkConfig'-    { _ncModes           :: !(Maybe [Text])-    , _ncNetwork         :: !(Maybe Text)-    , _ncReservedIPRange :: !(Maybe Text)-    , _ncIPAddresses     :: !(Maybe [Text])-    } deriving (Eq,Show,Data,Typeable,Generic)---- | Creates a value of 'NetworkConfig' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ncModes'------ * 'ncNetwork'------ * 'ncReservedIPRange'------ * 'ncIPAddresses'-networkConfig-    :: NetworkConfig-networkConfig =-    NetworkConfig'-    { _ncModes = Nothing-    , _ncNetwork = Nothing-    , _ncReservedIPRange = Nothing-    , _ncIPAddresses = Nothing-    }---- | Internet protocol versions for which the instance has IP addresses--- assigned. For this version, only MODE_IPV4 is supported.-ncModes :: Lens' NetworkConfig [Text]-ncModes-  = lens _ncModes (\ s a -> s{_ncModes = a}) . _Default-      . _Coerce---- | The name of the Google Compute Engine [VPC--- network](\/compute\/docs\/networks-and-firewalls#networks) to which the--- instance is connected.-ncNetwork :: Lens' NetworkConfig (Maybe Text)-ncNetwork-  = lens _ncNetwork (\ s a -> s{_ncNetwork = a})---- | A \/29 CIDR block in one of the [internal IP address--- ranges](https:\/\/www.arin.net\/knowledge\/address_filters.html) that--- identifies the range of IP addresses reserved for this instance. For--- example, 10.0.0.0\/29 or 192.168.0.0\/29. The range you specify can\'t--- overlap with either existing subnets or assigned IP address ranges for--- other Cloud Filestore instances in the selected VPC network.-ncReservedIPRange :: Lens' NetworkConfig (Maybe Text)-ncReservedIPRange-  = lens _ncReservedIPRange-      (\ s a -> s{_ncReservedIPRange = a})---- | Output only. IPv4 addresses in the format {octet 1}.{octet 2}.{octet--- 3}.{octet 4} or IPv6 addresses in the format {block 1}:{block 2}:{block--- 3}:{block 4}:{block 5}:{block 6}:{block 7}:{block 8}.-ncIPAddresses :: Lens' NetworkConfig [Text]-ncIPAddresses-  = lens _ncIPAddresses-      (\ s a -> s{_ncIPAddresses = a})-      . _Default-      . _Coerce--instance FromJSON NetworkConfig where-        parseJSON-          = withObject "NetworkConfig"-              (\ o ->-                 NetworkConfig' <$>-                   (o .:? "modes" .!= mempty) <*> (o .:? "network") <*>-                     (o .:? "reservedIpRange")-                     <*> (o .:? "ipAddresses" .!= mempty))--instance ToJSON NetworkConfig where-        toJSON NetworkConfig'{..}-          = object-              (catMaybes-                 [("modes" .=) <$> _ncModes,-                  ("network" .=) <$> _ncNetwork,-                  ("reservedIpRange" .=) <$> _ncReservedIPRange,-                  ("ipAddresses" .=) <$> _ncIPAddresses])---- | Cross-service attributes for the location. For example--- {\"cloud.googleapis.com\/region\": \"us-east1\"}------ /See:/ 'locationLabels' smart constructor.-newtype LocationLabels = LocationLabels'-    { _llAddtional :: HashMap Text Text-    } deriving (Eq,Show,Data,Typeable,Generic)---- | Creates a value of 'LocationLabels' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'llAddtional'-locationLabels-    :: HashMap Text Text -- ^ 'llAddtional'-    -> LocationLabels-locationLabels pLlAddtional_ =-    LocationLabels'-    { _llAddtional = _Coerce # pLlAddtional_-    }--llAddtional :: Lens' LocationLabels (HashMap Text Text)-llAddtional-  = lens _llAddtional (\ s a -> s{_llAddtional = a}) .-      _Coerce--instance FromJSON LocationLabels where-        parseJSON-          = withObject "LocationLabels"-              (\ o -> LocationLabels' <$> (parseJSONObject o))--instance ToJSON LocationLabels where-        toJSON = toJSON . _llAddtional---- | Service-specific metadata. For example the available capacity at the--- given location.------ /See:/ 'locationMetadata' smart constructor.-newtype LocationMetadata = LocationMetadata'-    { _lmAddtional :: HashMap Text JSONValue-    } deriving (Eq,Show,Data,Typeable,Generic)---- | Creates a value of 'LocationMetadata' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'lmAddtional'-locationMetadata-    :: HashMap Text JSONValue -- ^ 'lmAddtional'-    -> LocationMetadata-locationMetadata pLmAddtional_ =-    LocationMetadata'-    { _lmAddtional = _Coerce # pLmAddtional_-    }---- | Properties of the object. Contains field \'type with type URL.-lmAddtional :: Lens' LocationMetadata (HashMap Text JSONValue)-lmAddtional-  = lens _lmAddtional (\ s a -> s{_lmAddtional = a}) .-      _Coerce--instance FromJSON LocationMetadata where-        parseJSON-          = withObject "LocationMetadata"-              (\ o -> LocationMetadata' <$> (parseJSONObject o))--instance ToJSON LocationMetadata where-        toJSON = toJSON . _lmAddtional---- | Represents the metadata of the long-running operation.------ /See:/ 'operationMetadata' smart constructor.-data OperationMetadata = OperationMetadata'-    { _omAPIVersion      :: !(Maybe Text)-    , _omEndTime         :: !(Maybe DateTime')-    , _omStatusDetail    :: !(Maybe Text)-    , _omVerb            :: !(Maybe Text)-    , _omCancelRequested :: !(Maybe Bool)-    , _omTarget          :: !(Maybe Text)-    , _omCreateTime      :: !(Maybe DateTime')-    } 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:------ * 'omAPIVersion'------ * 'omEndTime'------ * 'omStatusDetail'------ * 'omVerb'------ * 'omCancelRequested'------ * 'omTarget'------ * 'omCreateTime'-operationMetadata-    :: OperationMetadata-operationMetadata =-    OperationMetadata'-    { _omAPIVersion = Nothing-    , _omEndTime = Nothing-    , _omStatusDetail = Nothing-    , _omVerb = Nothing-    , _omCancelRequested = Nothing-    , _omTarget = Nothing-    , _omCreateTime = Nothing-    }---- | [Output only] API version used to start the operation.-omAPIVersion :: Lens' OperationMetadata (Maybe Text)-omAPIVersion-  = lens _omAPIVersion (\ s a -> s{_omAPIVersion = a})---- | [Output only] The time the operation finished running.-omEndTime :: Lens' OperationMetadata (Maybe UTCTime)-omEndTime-  = lens _omEndTime (\ s a -> s{_omEndTime = a}) .-      mapping _DateTime---- | [Output only] Human-readable status of the operation, if any.-omStatusDetail :: Lens' OperationMetadata (Maybe Text)-omStatusDetail-  = lens _omStatusDetail-      (\ s a -> s{_omStatusDetail = a})---- | [Output only] Name of the verb executed by the operation.-omVerb :: Lens' OperationMetadata (Maybe Text)-omVerb = lens _omVerb (\ s a -> s{_omVerb = a})---- | [Output only] Identifies whether the user has requested cancellation of--- the operation. Operations that have successfully been cancelled have--- Operation.error value with a google.rpc.Status.code of 1, corresponding--- to \`Code.CANCELLED\`.-omCancelRequested :: Lens' OperationMetadata (Maybe Bool)-omCancelRequested-  = lens _omCancelRequested-      (\ s a -> s{_omCancelRequested = a})---- | [Output only] Server-defined resource path for the target of the--- operation.-omTarget :: Lens' OperationMetadata (Maybe Text)-omTarget = lens _omTarget (\ s a -> s{_omTarget = a})---- | [Output only] The time the operation was created.-omCreateTime :: Lens' OperationMetadata (Maybe UTCTime)-omCreateTime-  = lens _omCreateTime (\ s a -> s{_omCreateTime = a})-      . mapping _DateTime--instance FromJSON OperationMetadata where-        parseJSON-          = withObject "OperationMetadata"-              (\ o ->-                 OperationMetadata' <$>-                   (o .:? "apiVersion") <*> (o .:? "endTime") <*>-                     (o .:? "statusDetail")-                     <*> (o .:? "verb")-                     <*> (o .:? "cancelRequested")-                     <*> (o .:? "target")-                     <*> (o .:? "createTime"))--instance ToJSON OperationMetadata where-        toJSON OperationMetadata'{..}-          = object-              (catMaybes-                 [("apiVersion" .=) <$> _omAPIVersion,-                  ("endTime" .=) <$> _omEndTime,-                  ("statusDetail" .=) <$> _omStatusDetail,-                  ("verb" .=) <$> _omVerb,-                  ("cancelRequested" .=) <$> _omCancelRequested,-                  ("target" .=) <$> _omTarget,-                  ("createTime" .=) <$> _omCreateTime])---- | ListInstancesResponse is the result of ListInstancesRequest.------ /See:/ 'listInstancesResponse' smart constructor.-data ListInstancesResponse = ListInstancesResponse'-    { _lirNextPageToken :: !(Maybe Text)-    , _lirUnreachable   :: !(Maybe [Text])-    , _lirInstances     :: !(Maybe [Instance])-    } 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:------ * 'lirNextPageToken'------ * 'lirUnreachable'------ * 'lirInstances'-listInstancesResponse-    :: ListInstancesResponse-listInstancesResponse =-    ListInstancesResponse'-    { _lirNextPageToken = Nothing-    , _lirUnreachable = Nothing-    , _lirInstances = Nothing-    }---- | The token you can use to retrieve the next page of results. Not returned--- if there are no more results in the list.-lirNextPageToken :: Lens' ListInstancesResponse (Maybe Text)-lirNextPageToken-  = lens _lirNextPageToken-      (\ s a -> s{_lirNextPageToken = a})---- | Locations that could not be reached.-lirUnreachable :: Lens' ListInstancesResponse [Text]-lirUnreachable-  = lens _lirUnreachable-      (\ s a -> s{_lirUnreachable = a})-      . _Default-      . _Coerce---- | A list of instances in the project for the specified location. If the--- {location} value in the request is \"-\", the response contains a list--- of instances from all locations. If any location is unreachable, the--- response will only return instances in reachable locations and the--- \"unreachable\" field will be populated with a list of unreachable--- locations.-lirInstances :: Lens' ListInstancesResponse [Instance]-lirInstances-  = lens _lirInstances (\ s a -> s{_lirInstances = a})-      . _Default-      . _Coerce--instance FromJSON ListInstancesResponse where-        parseJSON-          = withObject "ListInstancesResponse"-              (\ o ->-                 ListInstancesResponse' <$>-                   (o .:? "nextPageToken") <*>-                     (o .:? "unreachable" .!= mempty)-                     <*> (o .:? "instances" .!= mempty))--instance ToJSON ListInstancesResponse where-        toJSON ListInstancesResponse'{..}-          = object-              (catMaybes-                 [("nextPageToken" .=) <$> _lirNextPageToken,-                  ("unreachable" .=) <$> _lirUnreachable,-                  ("instances" .=) <$> _lirInstances])---- | The normal response of the operation in case of success. If the original--- method returns no data on success, such as \`Delete\`, the response is--- \`google.protobuf.Empty\`. If the original method is standard--- \`Get\`\/\`Create\`\/\`Update\`, the response should be the resource.--- For other methods, the response should have the type \`XxxResponse\`,--- where \`Xxx\` is the original method name. For example, if the original--- method name is \`TakeSnapshot()\`, the inferred response type is--- \`TakeSnapshotResponse\`.------ /See:/ 'operationResponse' smart constructor.-newtype OperationResponse = OperationResponse'-    { _orAddtional :: HashMap Text JSONValue-    } 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:------ * 'orAddtional'-operationResponse-    :: HashMap Text JSONValue -- ^ 'orAddtional'-    -> OperationResponse-operationResponse pOrAddtional_ =-    OperationResponse'-    { _orAddtional = _Coerce # pOrAddtional_-    }---- | Properties of the object. Contains field \'type with type URL.-orAddtional :: Lens' OperationResponse (HashMap Text JSONValue)-orAddtional-  = lens _orAddtional (\ s a -> s{_orAddtional = a}) .-      _Coerce--instance FromJSON OperationResponse where-        parseJSON-          = withObject "OperationResponse"-              (\ o -> OperationResponse' <$> (parseJSONObject o))--instance ToJSON OperationResponse where-        toJSON = toJSON . _orAddtional---- | A Cloud Filestore instance.------ /See:/ 'instance'' smart constructor.-data Instance = Instance'-    { _iEtag          :: !(Maybe Text)-    , _iState         :: !(Maybe InstanceState)-    , _iNetworks      :: !(Maybe [NetworkConfig])-    , _iFileShares    :: !(Maybe [FileShareConfig])-    , _iName          :: !(Maybe Text)-    , _iStatusMessage :: !(Maybe Text)-    , _iTier          :: !(Maybe InstanceTier)-    , _iLabels        :: !(Maybe InstanceLabels)-    , _iDescription   :: !(Maybe Text)-    , _iCreateTime    :: !(Maybe DateTime')-    } 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:------ * 'iEtag'------ * 'iState'------ * 'iNetworks'------ * 'iFileShares'------ * 'iName'------ * 'iStatusMessage'------ * 'iTier'------ * 'iLabels'------ * 'iDescription'------ * 'iCreateTime'-instance'-    :: Instance-instance' =-    Instance'-    { _iEtag = Nothing-    , _iState = Nothing-    , _iNetworks = Nothing-    , _iFileShares = Nothing-    , _iName = Nothing-    , _iStatusMessage = Nothing-    , _iTier = Nothing-    , _iLabels = Nothing-    , _iDescription = Nothing-    , _iCreateTime = Nothing-    }+newtype InstanceLabels =+  InstanceLabels'+    { _ilAddtional :: HashMap Text Text+    }+  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:+--+-- * 'ilAddtional'+instanceLabels+    :: HashMap Text Text -- ^ 'ilAddtional'+    -> InstanceLabels+instanceLabels pIlAddtional_ =+  InstanceLabels' {_ilAddtional = _Coerce # pIlAddtional_}+++ilAddtional :: Lens' InstanceLabels (HashMap Text Text)+ilAddtional+  = lens _ilAddtional (\ s a -> s{_ilAddtional = a}) .+      _Coerce++instance FromJSON InstanceLabels where+        parseJSON+          = withObject "InstanceLabels"+              (\ o -> InstanceLabels' <$> (parseJSONObject o))++instance ToJSON InstanceLabels where+        toJSON = toJSON . _ilAddtional++-- | The \`Status\` type defines a logical error model that is suitable for+-- different programming environments, including REST APIs and RPC APIs. It+-- is used by [gRPC](https:\/\/github.com\/grpc). The error model is+-- designed to be: - Simple to use and understand for most users - Flexible+-- enough to meet unexpected needs # Overview The \`Status\` message+-- contains three pieces of data: error code, error message, and error+-- details. The error code should be an enum value of google.rpc.Code, but+-- it may accept additional error codes if needed. The error message should+-- be a developer-facing English message that helps developers *understand*+-- and *resolve* the error. If a localized user-facing error message is+-- needed, put the localized message in the error details or localize it in+-- the client. The optional error details may contain arbitrary information+-- about the error. There is a predefined set of error detail types in the+-- package \`google.rpc\` that can be used for common error conditions. #+-- Language mapping The \`Status\` message is the logical representation of+-- the error model, but it is not necessarily the actual wire format. When+-- the \`Status\` message is exposed in different client libraries and+-- different wire protocols, it can be mapped differently. For example, it+-- will likely be mapped to some exceptions in Java, but more likely mapped+-- to some error codes in C. # Other uses The error model and the+-- \`Status\` message can be used in a variety of environments, either with+-- or without APIs, to provide a consistent developer experience across+-- different environments. Example uses of this error model include: -+-- Partial errors. If a service needs to return partial errors to the+-- client, it may embed the \`Status\` in the normal response to indicate+-- the partial errors. - Workflow errors. A typical workflow has multiple+-- steps. Each step may have a \`Status\` message for error reporting. -+-- Batch operations. If a client uses batch request and batch response, the+-- \`Status\` message should be used directly inside batch response, one+-- for each error sub-response. - Asynchronous operations. If an API call+-- embeds asynchronous operation results in its response, the status of+-- those operations should be represented directly using the \`Status\`+-- message. - Logging. If some API errors are stored in logs, the message+-- \`Status\` could be used directly after any stripping needed for+-- security\/privacy reasons.+--+-- /See:/ 'status' smart constructor.+data Status =+  Status'+    { _sDetails :: !(Maybe [StatusDetailsItem])+    , _sCode    :: !(Maybe (Textual Int32))+    , _sMessage :: !(Maybe Text)+    }+  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:+--+-- * 'sDetails'+--+-- * 'sCode'+--+-- * 'sMessage'+status+    :: Status+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]+sDetails+  = lens _sDetails (\ s a -> s{_sDetails = a}) .+      _Default+      . _Coerce++-- | The status code, which should be an enum value of google.rpc.Code.+sCode :: Lens' Status (Maybe Int32)+sCode+  = lens _sCode (\ s a -> s{_sCode = a}) .+      mapping _Coerce++-- | A developer-facing error message, which should be in English. Any+-- user-facing error message should be localized and sent in the+-- google.rpc.Status.details field, or localized by the client.+sMessage :: Lens' Status (Maybe Text)+sMessage = lens _sMessage (\ s a -> s{_sMessage = a})++instance FromJSON Status where+        parseJSON+          = withObject "Status"+              (\ o ->+                 Status' <$>+                   (o .:? "details" .!= mempty) <*> (o .:? "code") <*>+                     (o .:? "message"))++instance ToJSON Status where+        toJSON Status'{..}+          = object+              (catMaybes+                 [("details" .=) <$> _sDetails,+                  ("code" .=) <$> _sCode,+                  ("message" .=) <$> _sMessage])++-- | Service-specific metadata associated with the operation. It typically+-- contains progress information and common metadata such as create time.+-- Some services might not provide such metadata. Any method that returns a+-- long-running operation should document the metadata type, if any.+--+-- /See:/ 'operationSchema' smart constructor.+newtype OperationSchema =+  OperationSchema'+    { _osAddtional :: HashMap Text JSONValue+    }+  deriving (Eq, Show, Data, Typeable, Generic)+++-- | Creates a value of 'OperationSchema' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'osAddtional'+operationSchema+    :: HashMap Text JSONValue -- ^ 'osAddtional'+    -> OperationSchema+operationSchema pOsAddtional_ =+  OperationSchema' {_osAddtional = _Coerce # pOsAddtional_}+++-- | Properties of the object. Contains field \'type with type URL.+osAddtional :: Lens' OperationSchema (HashMap Text JSONValue)+osAddtional+  = lens _osAddtional (\ s a -> s{_osAddtional = a}) .+      _Coerce++instance FromJSON OperationSchema where+        parseJSON+          = withObject "OperationSchema"+              (\ o -> OperationSchema' <$> (parseJSONObject o))++instance ToJSON OperationSchema where+        toJSON = toJSON . _osAddtional++-- | RolloutMetadata for an actuation instance. It maps to a single+-- RolloutType.+--+-- /See:/ 'googleCloudSaasacceleratorManagementProvidersV1RolloutMetadata' smart constructor.+data GoogleCloudSaasacceleratorManagementProvidersV1RolloutMetadata =+  GoogleCloudSaasacceleratorManagementProvidersV1RolloutMetadata'+    { _gcsmpvrmRolloutName  :: !(Maybe Text)+    , _gcsmpvrmNotification :: !(Maybe GoogleCloudSaasacceleratorManagementProvidersV1NotificationMetadata)+    , _gcsmpvrmReleaseName  :: !(Maybe Text)+    }+  deriving (Eq, Show, Data, Typeable, Generic)+++-- | Creates a value of 'GoogleCloudSaasacceleratorManagementProvidersV1RolloutMetadata' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'gcsmpvrmRolloutName'+--+-- * 'gcsmpvrmNotification'+--+-- * 'gcsmpvrmReleaseName'+googleCloudSaasacceleratorManagementProvidersV1RolloutMetadata+    :: GoogleCloudSaasacceleratorManagementProvidersV1RolloutMetadata+googleCloudSaasacceleratorManagementProvidersV1RolloutMetadata =+  GoogleCloudSaasacceleratorManagementProvidersV1RolloutMetadata'+    { _gcsmpvrmRolloutName = Nothing+    , _gcsmpvrmNotification = Nothing+    , _gcsmpvrmReleaseName = Nothing+    }+++-- | The last rollout that has been applied to the instance.+gcsmpvrmRolloutName :: Lens' GoogleCloudSaasacceleratorManagementProvidersV1RolloutMetadata (Maybe Text)+gcsmpvrmRolloutName+  = lens _gcsmpvrmRolloutName+      (\ s a -> s{_gcsmpvrmRolloutName = a})++-- | Instance level notification metadata.+gcsmpvrmNotification :: Lens' GoogleCloudSaasacceleratorManagementProvidersV1RolloutMetadata (Maybe GoogleCloudSaasacceleratorManagementProvidersV1NotificationMetadata)+gcsmpvrmNotification+  = lens _gcsmpvrmNotification+      (\ s a -> s{_gcsmpvrmNotification = a})++-- | The last Release that has been applied to the instance.+gcsmpvrmReleaseName :: Lens' GoogleCloudSaasacceleratorManagementProvidersV1RolloutMetadata (Maybe Text)+gcsmpvrmReleaseName+  = lens _gcsmpvrmReleaseName+      (\ s a -> s{_gcsmpvrmReleaseName = a})++instance FromJSON+           GoogleCloudSaasacceleratorManagementProvidersV1RolloutMetadata+         where+        parseJSON+          = withObject+              "GoogleCloudSaasacceleratorManagementProvidersV1RolloutMetadata"+              (\ o ->+                 GoogleCloudSaasacceleratorManagementProvidersV1RolloutMetadata'+                   <$>+                   (o .:? "rolloutName") <*> (o .:? "notification") <*>+                     (o .:? "releaseName"))++instance ToJSON+           GoogleCloudSaasacceleratorManagementProvidersV1RolloutMetadata+         where+        toJSON+          GoogleCloudSaasacceleratorManagementProvidersV1RolloutMetadata'{..}+          = object+              (catMaybes+                 [("rolloutName" .=) <$> _gcsmpvrmRolloutName,+                  ("notification" .=) <$> _gcsmpvrmNotification,+                  ("releaseName" .=) <$> _gcsmpvrmReleaseName])++-- | The response message for Locations.ListLocations.+--+-- /See:/ 'listLocationsResponse' smart constructor.+data ListLocationsResponse =+  ListLocationsResponse'+    { _llrNextPageToken :: !(Maybe Text)+    , _llrLocations     :: !(Maybe [Location])+    }+  deriving (Eq, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ListLocationsResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'llrNextPageToken'+--+-- * 'llrLocations'+listLocationsResponse+    :: ListLocationsResponse+listLocationsResponse =+  ListLocationsResponse' {_llrNextPageToken = Nothing, _llrLocations = Nothing}+++-- | The standard List next-page token.+llrNextPageToken :: Lens' ListLocationsResponse (Maybe Text)+llrNextPageToken+  = lens _llrNextPageToken+      (\ s a -> s{_llrNextPageToken = a})++-- | A list of locations that matches the specified filter in the request.+llrLocations :: Lens' ListLocationsResponse [Location]+llrLocations+  = lens _llrLocations (\ s a -> s{_llrLocations = a})+      . _Default+      . _Coerce++instance FromJSON ListLocationsResponse where+        parseJSON+          = withObject "ListLocationsResponse"+              (\ o ->+                 ListLocationsResponse' <$>+                   (o .:? "nextPageToken") <*>+                     (o .:? "locations" .!= mempty))++instance ToJSON ListLocationsResponse where+        toJSON ListLocationsResponse'{..}+          = object+              (catMaybes+                 [("nextPageToken" .=) <$> _llrNextPageToken,+                  ("locations" .=) <$> _llrLocations])++-- | The response message for Operations.ListOperations.+--+-- /See:/ 'listOperationsResponse' smart constructor.+data ListOperationsResponse =+  ListOperationsResponse'+    { _lorNextPageToken :: !(Maybe Text)+    , _lorOperations    :: !(Maybe [Operation])+    }+  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:+--+-- * 'lorNextPageToken'+--+-- * 'lorOperations'+listOperationsResponse+    :: ListOperationsResponse+listOperationsResponse =+  ListOperationsResponse'+    {_lorNextPageToken = Nothing, _lorOperations = Nothing}+++-- | The standard List next-page token.+lorNextPageToken :: Lens' ListOperationsResponse (Maybe Text)+lorNextPageToken+  = lens _lorNextPageToken+      (\ s a -> s{_lorNextPageToken = a})++-- | A list of operations that matches the specified filter in the request.+lorOperations :: Lens' ListOperationsResponse [Operation]+lorOperations+  = lens _lorOperations+      (\ s a -> s{_lorOperations = a})+      . _Default+      . _Coerce++instance FromJSON ListOperationsResponse where+        parseJSON+          = withObject "ListOperationsResponse"+              (\ o ->+                 ListOperationsResponse' <$>+                   (o .:? "nextPageToken") <*>+                     (o .:? "operations" .!= mempty))++instance ToJSON ListOperationsResponse where+        toJSON ListOperationsResponse'{..}+          = object+              (catMaybes+                 [("nextPageToken" .=) <$> _lorNextPageToken,+                  ("operations" .=) <$> _lorOperations])++-- | The request message for Operations.CancelOperation.+--+-- /See:/ 'cancelOperationRequest' smart constructor.+data CancelOperationRequest =+  CancelOperationRequest'+  deriving (Eq, Show, Data, Typeable, Generic)+++-- | Creates a value of 'CancelOperationRequest' with the minimum fields required to make a request.+--+cancelOperationRequest+    :: CancelOperationRequest+cancelOperationRequest = CancelOperationRequest'+++instance FromJSON CancelOperationRequest where+        parseJSON+          = withObject "CancelOperationRequest"+              (\ o -> pure CancelOperationRequest')++instance ToJSON CancelOperationRequest where+        toJSON = const emptyObject++-- | A resource that represents Google Cloud Platform location.+--+-- /See:/ 'location' smart constructor.+data Location =+  Location'+    { _lName        :: !(Maybe Text)+    , _lMetadata    :: !(Maybe LocationMetadata)+    , _lDisplayName :: !(Maybe Text)+    , _lLabels      :: !(Maybe LocationLabels)+    , _lLocationId  :: !(Maybe Text)+    }+  deriving (Eq, Show, Data, Typeable, Generic)+++-- | Creates a value of 'Location' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'lName'+--+-- * 'lMetadata'+--+-- * 'lDisplayName'+--+-- * 'lLabels'+--+-- * 'lLocationId'+location+    :: Location+location =+  Location'+    { _lName = Nothing+    , _lMetadata = Nothing+    , _lDisplayName = Nothing+    , _lLabels = Nothing+    , _lLocationId = Nothing+    }+++-- | Resource name for the location, which may vary between implementations.+-- For example: \`\"projects\/example-project\/locations\/us-east1\"\`+lName :: Lens' Location (Maybe Text)+lName = lens _lName (\ s a -> s{_lName = a})++-- | Service-specific metadata. For example the available capacity at the+-- given location.+lMetadata :: Lens' Location (Maybe LocationMetadata)+lMetadata+  = lens _lMetadata (\ s a -> s{_lMetadata = a})++-- | The friendly name for this location, typically a nearby city name. For+-- example, \"Tokyo\".+lDisplayName :: Lens' Location (Maybe Text)+lDisplayName+  = lens _lDisplayName (\ s a -> s{_lDisplayName = a})++-- | Cross-service attributes for the location. For example+-- {\"cloud.googleapis.com\/region\": \"us-east1\"}+lLabels :: Lens' Location (Maybe LocationLabels)+lLabels = lens _lLabels (\ s a -> s{_lLabels = a})++-- | The canonical id for this location. For example: \`\"us-east1\"\`.+lLocationId :: Lens' Location (Maybe Text)+lLocationId+  = lens _lLocationId (\ s a -> s{_lLocationId = a})++instance FromJSON Location where+        parseJSON+          = withObject "Location"+              (\ o ->+                 Location' <$>+                   (o .:? "name") <*> (o .:? "metadata") <*>+                     (o .:? "displayName")+                     <*> (o .:? "labels")+                     <*> (o .:? "locationId"))++instance ToJSON Location where+        toJSON Location'{..}+          = object+              (catMaybes+                 [("name" .=) <$> _lName,+                  ("metadata" .=) <$> _lMetadata,+                  ("displayName" .=) <$> _lDisplayName,+                  ("labels" .=) <$> _lLabels,+                  ("locationId" .=) <$> _lLocationId])++-- | This resource represents a long-running operation that is the result of+-- a network API call.+--+-- /See:/ 'operation' smart constructor.+data Operation =+  Operation'+    { _oDone     :: !(Maybe Bool)+    , _oError    :: !(Maybe Status)+    , _oResponse :: !(Maybe OperationResponse)+    , _oName     :: !(Maybe Text)+    , _oMetadata :: !(Maybe OperationSchema)+    }+  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:+--+-- * 'oDone'+--+-- * 'oError'+--+-- * 'oResponse'+--+-- * 'oName'+--+-- * 'oMetadata'+operation+    :: Operation+operation =+  Operation'+    { _oDone = Nothing+    , _oError = Nothing+    , _oResponse = Nothing+    , _oName = Nothing+    , _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.+oDone :: Lens' Operation (Maybe Bool)+oDone = lens _oDone (\ s a -> s{_oDone = a})++-- | The error result of the operation in case of failure or cancellation.+oError :: Lens' Operation (Maybe Status)+oError = lens _oError (\ s a -> s{_oError = a})++-- | The normal response of the operation in case of success. If the original+-- method returns no data on success, such as \`Delete\`, the response is+-- \`google.protobuf.Empty\`. If the original method is standard+-- \`Get\`\/\`Create\`\/\`Update\`, the response should be the resource.+-- For other methods, the response should have the type \`XxxResponse\`,+-- where \`Xxx\` is the original method name. For example, if the original+-- method name is \`TakeSnapshot()\`, the inferred response type is+-- \`TakeSnapshotResponse\`.+oResponse :: Lens' Operation (Maybe OperationResponse)+oResponse+  = lens _oResponse (\ s a -> s{_oResponse = a})++-- | The server-assigned name, which is only unique within the same service+-- that originally returns it. If you use the default HTTP mapping, the+-- \`name\` should have the format of \`operations\/some\/unique\/name\`.+oName :: Lens' Operation (Maybe Text)+oName = lens _oName (\ s a -> s{_oName = a})++-- | Service-specific metadata associated with the operation. It typically+-- contains progress information and common metadata such as create time.+-- Some services might not provide such metadata. Any method that returns a+-- long-running operation should document the metadata type, if any.+oMetadata :: Lens' Operation (Maybe OperationSchema)+oMetadata+  = lens _oMetadata (\ s a -> s{_oMetadata = a})++instance FromJSON Operation where+        parseJSON+          = withObject "Operation"+              (\ o ->+                 Operation' <$>+                   (o .:? "done") <*> (o .:? "error") <*>+                     (o .:? "response")+                     <*> (o .:? "name")+                     <*> (o .:? "metadata"))++instance ToJSON Operation where+        toJSON Operation'{..}+          = object+              (catMaybes+                 [("done" .=) <$> _oDone, ("error" .=) <$> _oError,+                  ("response" .=) <$> _oResponse,+                  ("name" .=) <$> _oName,+                  ("metadata" .=) <$> _oMetadata])++-- | A generic empty message that you can re-use to avoid defining duplicated+-- empty messages in your APIs. A typical example is to use it as the+-- request or the response type of an API method. For instance: service Foo+-- { rpc Bar(google.protobuf.Empty) returns (google.protobuf.Empty); } The+-- JSON representation for \`Empty\` is empty JSON object \`{}\`.+--+-- /See:/ 'empty' smart constructor.+data Empty =+  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')++instance ToJSON Empty where+        toJSON = const emptyObject++-- | Instance represents the interface for SLM services to actuate the state+-- of control plane resources. Example Instance in JSON, where+-- consumer-project=snapchat, producer-project=cloud-sql: \`\`\`json+-- Instance: { \"name\":+-- \"projects\/snapchat\/locations\/us-east1\/instances\/prod-instance\",+-- \"create_time\": { \"seconds\": 1526406431, }, \"labels\": { \"env\":+-- \"prod\", \"foo\": \"bar\" }, \"state\": READY, \"software_version\":+-- \"cloud-sql-09-28-2018\", \"maintenance_policy_names\": {+-- \"UpdatePolicy\":+-- \"projects\/snapchat\/locations\/us-east1\/maintenancePolicies\/prod-update-policy\",+-- } \"rollout_metadata\": {+-- \"projects\/cloud-sql\/locations\/global\/rolloutTypes\/software_update\":+-- { \"release\":+-- \"projects\/cloud-sql\/locations\/global\/releases\/cloud-sql-09-28-2018\",+-- \"rollout\":+-- \"projects\/cloud-sql\/locations\/us-east1\/rollouts\/cloud-sql-09-28-2018-canary\",+-- }+-- \"projects\/cloud-sql\/locations\/global\/rolloutTypes\/instance_restart\":+-- { \"release\":+-- \"projects\/cloud-sql\/locations\/global\/releases\/cloud-sql-09-20-repair\",+-- \"rollout\":+-- \"projects\/cloud-sql\/locations\/us-east1\/rollouts\/cloud-sql-09-20-repair-100-percent\",+-- } } \"tenant_project_id\": \"cloud-sql-test-tenant\",+-- \"producer_metadata\": { \"cloud-sql-tier\": \"basic\",+-- \"cloud-sql-instance-size\": \"1G\", }, \"provisioned_resources\": [ {+-- \"resource-type\": \"compute-instance\", \"resource-url\":+-- \"https:\/\/www.googleapis.com\/compute\/v1\/projects\/cloud-sql\/zones\/us-east1-b\/instances\/vm-1\",+-- } ], } \`\`\`+--+-- /See:/ 'googleCloudSaasacceleratorManagementProvidersV1Instance' smart constructor.+data GoogleCloudSaasacceleratorManagementProvidersV1Instance =+  GoogleCloudSaasacceleratorManagementProvidersV1Instance'+    { _gcsmpviTenantProjectId        :: !(Maybe Text)+    , _gcsmpviState                  :: !(Maybe GoogleCloudSaasacceleratorManagementProvidersV1InstanceState)+    , _gcsmpviSoftwareVersions       :: !(Maybe GoogleCloudSaasacceleratorManagementProvidersV1InstanceSoftwareVersions)+    , _gcsmpviProvisionedResources   :: !(Maybe [GoogleCloudSaasacceleratorManagementProvidersV1ProvisionedResource])+    , _gcsmpviUpdateTime             :: !(Maybe DateTime')+    , _gcsmpviName                   :: !(Maybe Text)+    , _gcsmpviLabels                 :: !(Maybe GoogleCloudSaasacceleratorManagementProvidersV1InstanceLabels)+    , _gcsmpviSloMetadata            :: !(Maybe GoogleCloudSaasacceleratorManagementProvidersV1SloMetadata)+    , _gcsmpviProducerMetadata       :: !(Maybe GoogleCloudSaasacceleratorManagementProvidersV1InstanceProducerMetadata)+    , _gcsmpviRolloutMetadata        :: !(Maybe GoogleCloudSaasacceleratorManagementProvidersV1InstanceRolloutMetadata)+    , _gcsmpviCreateTime             :: !(Maybe DateTime')+    , _gcsmpviMaintenancePolicyNames :: !(Maybe GoogleCloudSaasacceleratorManagementProvidersV1InstanceMaintenancePolicyNames)+    }+  deriving (Eq, Show, Data, Typeable, Generic)+++-- | Creates a value of 'GoogleCloudSaasacceleratorManagementProvidersV1Instance' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'gcsmpviTenantProjectId'+--+-- * 'gcsmpviState'+--+-- * 'gcsmpviSoftwareVersions'+--+-- * 'gcsmpviProvisionedResources'+--+-- * 'gcsmpviUpdateTime'+--+-- * 'gcsmpviName'+--+-- * 'gcsmpviLabels'+--+-- * 'gcsmpviSloMetadata'+--+-- * 'gcsmpviProducerMetadata'+--+-- * 'gcsmpviRolloutMetadata'+--+-- * 'gcsmpviCreateTime'+--+-- * 'gcsmpviMaintenancePolicyNames'+googleCloudSaasacceleratorManagementProvidersV1Instance+    :: GoogleCloudSaasacceleratorManagementProvidersV1Instance+googleCloudSaasacceleratorManagementProvidersV1Instance =+  GoogleCloudSaasacceleratorManagementProvidersV1Instance'+    { _gcsmpviTenantProjectId = Nothing+    , _gcsmpviState = Nothing+    , _gcsmpviSoftwareVersions = Nothing+    , _gcsmpviProvisionedResources = Nothing+    , _gcsmpviUpdateTime = Nothing+    , _gcsmpviName = Nothing+    , _gcsmpviLabels = Nothing+    , _gcsmpviSloMetadata = Nothing+    , _gcsmpviProducerMetadata = Nothing+    , _gcsmpviRolloutMetadata = Nothing+    , _gcsmpviCreateTime = Nothing+    , _gcsmpviMaintenancePolicyNames = Nothing+    }+++-- | Output only. ID of the associated GCP tenant project. See+-- go\/get-instance-metadata.+gcsmpviTenantProjectId :: Lens' GoogleCloudSaasacceleratorManagementProvidersV1Instance (Maybe Text)+gcsmpviTenantProjectId+  = lens _gcsmpviTenantProjectId+      (\ s a -> s{_gcsmpviTenantProjectId = a})++-- | Output only. Current lifecycle state of the resource (e.g. if it\'s+-- being created or ready to use).+gcsmpviState :: Lens' GoogleCloudSaasacceleratorManagementProvidersV1Instance (Maybe GoogleCloudSaasacceleratorManagementProvidersV1InstanceState)+gcsmpviState+  = lens _gcsmpviState (\ s a -> s{_gcsmpviState = a})++-- | Software versions that are used to deploy this instance. This can be+-- mutated by rollout services.+gcsmpviSoftwareVersions :: Lens' GoogleCloudSaasacceleratorManagementProvidersV1Instance (Maybe GoogleCloudSaasacceleratorManagementProvidersV1InstanceSoftwareVersions)+gcsmpviSoftwareVersions+  = lens _gcsmpviSoftwareVersions+      (\ s a -> s{_gcsmpviSoftwareVersions = a})++-- | Output only. The list of data plane resources provisioned for this+-- instance, e.g. compute VMs. See go\/get-instance-metadata.+gcsmpviProvisionedResources :: Lens' GoogleCloudSaasacceleratorManagementProvidersV1Instance [GoogleCloudSaasacceleratorManagementProvidersV1ProvisionedResource]+gcsmpviProvisionedResources+  = lens _gcsmpviProvisionedResources+      (\ s a -> s{_gcsmpviProvisionedResources = a})+      . _Default+      . _Coerce++-- | Output only. Timestamp when the resource was last modified.+gcsmpviUpdateTime :: Lens' GoogleCloudSaasacceleratorManagementProvidersV1Instance (Maybe UTCTime)+gcsmpviUpdateTime+  = lens _gcsmpviUpdateTime+      (\ s a -> s{_gcsmpviUpdateTime = a})+      . mapping _DateTime++-- | Unique name of the resource. It uses the form:+-- \`projects\/{project_id}\/locations\/{location_id}\/instances\/{instance_id}\`+gcsmpviName :: Lens' GoogleCloudSaasacceleratorManagementProvidersV1Instance (Maybe Text)+gcsmpviName+  = lens _gcsmpviName (\ s a -> s{_gcsmpviName = a})++-- | Optional. Resource labels to represent user provided metadata. Each+-- label is a key-value pair, where both the key and the value are+-- arbitrary strings provided by the user.+gcsmpviLabels :: Lens' GoogleCloudSaasacceleratorManagementProvidersV1Instance (Maybe GoogleCloudSaasacceleratorManagementProvidersV1InstanceLabels)+gcsmpviLabels+  = lens _gcsmpviLabels+      (\ s a -> s{_gcsmpviLabels = a})++-- | Output only. SLO metadata for instance classification in the+-- Standardized dataplane SLO platform. See go\/cloud-ssa-standard-slo for+-- feature description.+gcsmpviSloMetadata :: Lens' GoogleCloudSaasacceleratorManagementProvidersV1Instance (Maybe GoogleCloudSaasacceleratorManagementProvidersV1SloMetadata)+gcsmpviSloMetadata+  = lens _gcsmpviSloMetadata+      (\ s a -> s{_gcsmpviSloMetadata = a})++-- | Output only. Custom string attributes used primarily to expose+-- producer-specific information in monitoring dashboards. See+-- go\/get-instance-metadata.+gcsmpviProducerMetadata :: Lens' GoogleCloudSaasacceleratorManagementProvidersV1Instance (Maybe GoogleCloudSaasacceleratorManagementProvidersV1InstanceProducerMetadata)+gcsmpviProducerMetadata+  = lens _gcsmpviProducerMetadata+      (\ s a -> s{_gcsmpviProducerMetadata = a})++-- | The map between RolloutType and the corresponding RolloutMetadata. This+-- is only mutated by rollout service. For actuation implementation, this+-- information is pass-through for Rollout management. Producer shall not+-- modify by itself. For update of a single entry in this map, the update+-- field mask shall follow this sementics: go\/advanced-field-masks+gcsmpviRolloutMetadata :: Lens' GoogleCloudSaasacceleratorManagementProvidersV1Instance (Maybe GoogleCloudSaasacceleratorManagementProvidersV1InstanceRolloutMetadata)+gcsmpviRolloutMetadata+  = lens _gcsmpviRolloutMetadata+      (\ s a -> s{_gcsmpviRolloutMetadata = a})++-- | Output only. Timestamp when the resource was created.+gcsmpviCreateTime :: Lens' GoogleCloudSaasacceleratorManagementProvidersV1Instance (Maybe UTCTime)+gcsmpviCreateTime+  = lens _gcsmpviCreateTime+      (\ s a -> s{_gcsmpviCreateTime = a})+      . mapping _DateTime++-- | The MaintenancePolicies that have been attached to the instance. The key+-- must be of the type name of the oneof policy name defined in+-- MaintenancePolicy, and the referenced policy must define the same policy+-- type. For complete details of MaintenancePolicy, please refer to+-- \/\/depot\/google3\/google\/cloud\/saasaccelerator\/maintenancepolicy\/api\/v1\/maintenance_policy_resources.proto+gcsmpviMaintenancePolicyNames :: Lens' GoogleCloudSaasacceleratorManagementProvidersV1Instance (Maybe GoogleCloudSaasacceleratorManagementProvidersV1InstanceMaintenancePolicyNames)+gcsmpviMaintenancePolicyNames+  = lens _gcsmpviMaintenancePolicyNames+      (\ s a -> s{_gcsmpviMaintenancePolicyNames = a})++instance FromJSON+           GoogleCloudSaasacceleratorManagementProvidersV1Instance+         where+        parseJSON+          = withObject+              "GoogleCloudSaasacceleratorManagementProvidersV1Instance"+              (\ o ->+                 GoogleCloudSaasacceleratorManagementProvidersV1Instance'+                   <$>+                   (o .:? "tenantProjectId") <*> (o .:? "state") <*>+                     (o .:? "softwareVersions")+                     <*> (o .:? "provisionedResources" .!= mempty)+                     <*> (o .:? "updateTime")+                     <*> (o .:? "name")+                     <*> (o .:? "labels")+                     <*> (o .:? "sloMetadata")+                     <*> (o .:? "producerMetadata")+                     <*> (o .:? "rolloutMetadata")+                     <*> (o .:? "createTime")+                     <*> (o .:? "maintenancePolicyNames"))++instance ToJSON+           GoogleCloudSaasacceleratorManagementProvidersV1Instance+         where+        toJSON+          GoogleCloudSaasacceleratorManagementProvidersV1Instance'{..}+          = object+              (catMaybes+                 [("tenantProjectId" .=) <$> _gcsmpviTenantProjectId,+                  ("state" .=) <$> _gcsmpviState,+                  ("softwareVersions" .=) <$> _gcsmpviSoftwareVersions,+                  ("provisionedResources" .=) <$>+                    _gcsmpviProvisionedResources,+                  ("updateTime" .=) <$> _gcsmpviUpdateTime,+                  ("name" .=) <$> _gcsmpviName,+                  ("labels" .=) <$> _gcsmpviLabels,+                  ("sloMetadata" .=) <$> _gcsmpviSloMetadata,+                  ("producerMetadata" .=) <$> _gcsmpviProducerMetadata,+                  ("rolloutMetadata" .=) <$> _gcsmpviRolloutMetadata,+                  ("createTime" .=) <$> _gcsmpviCreateTime,+                  ("maintenancePolicyNames" .=) <$>+                    _gcsmpviMaintenancePolicyNames])++--+-- /See:/ 'statusDetailsItem' smart constructor.+newtype StatusDetailsItem =+  StatusDetailsItem'+    { _sdiAddtional :: HashMap Text JSONValue+    }+  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:+--+-- * 'sdiAddtional'+statusDetailsItem+    :: HashMap Text JSONValue -- ^ 'sdiAddtional'+    -> StatusDetailsItem+statusDetailsItem pSdiAddtional_ =+  StatusDetailsItem' {_sdiAddtional = _Coerce # pSdiAddtional_}+++-- | Properties of the object. Contains field \'type with type URL.+sdiAddtional :: Lens' StatusDetailsItem (HashMap Text JSONValue)+sdiAddtional+  = lens _sdiAddtional (\ s a -> s{_sdiAddtional = a})+      . _Coerce++instance FromJSON StatusDetailsItem where+        parseJSON+          = withObject "StatusDetailsItem"+              (\ o -> StatusDetailsItem' <$> (parseJSONObject o))++instance ToJSON StatusDetailsItem where+        toJSON = toJSON . _sdiAddtional++-- | Software versions that are used to deploy this instance. This can be+-- mutated by rollout services.+--+-- /See:/ 'googleCloudSaasacceleratorManagementProvidersV1InstanceSoftwareVersions' smart constructor.+newtype GoogleCloudSaasacceleratorManagementProvidersV1InstanceSoftwareVersions =+  GoogleCloudSaasacceleratorManagementProvidersV1InstanceSoftwareVersions'+    { _gcsmpvisvAddtional :: HashMap Text Text+    }+  deriving (Eq, Show, Data, Typeable, Generic)+++-- | Creates a value of 'GoogleCloudSaasacceleratorManagementProvidersV1InstanceSoftwareVersions' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'gcsmpvisvAddtional'+googleCloudSaasacceleratorManagementProvidersV1InstanceSoftwareVersions+    :: HashMap Text Text -- ^ 'gcsmpvisvAddtional'+    -> GoogleCloudSaasacceleratorManagementProvidersV1InstanceSoftwareVersions+googleCloudSaasacceleratorManagementProvidersV1InstanceSoftwareVersions pGcsmpvisvAddtional_ =+  GoogleCloudSaasacceleratorManagementProvidersV1InstanceSoftwareVersions'+    {_gcsmpvisvAddtional = _Coerce # pGcsmpvisvAddtional_}+++gcsmpvisvAddtional :: Lens' GoogleCloudSaasacceleratorManagementProvidersV1InstanceSoftwareVersions (HashMap Text Text)+gcsmpvisvAddtional+  = lens _gcsmpvisvAddtional+      (\ s a -> s{_gcsmpvisvAddtional = a})+      . _Coerce++instance FromJSON+           GoogleCloudSaasacceleratorManagementProvidersV1InstanceSoftwareVersions+         where+        parseJSON+          = withObject+              "GoogleCloudSaasacceleratorManagementProvidersV1InstanceSoftwareVersions"+              (\ o ->+                 GoogleCloudSaasacceleratorManagementProvidersV1InstanceSoftwareVersions'+                   <$> (parseJSONObject o))++instance ToJSON+           GoogleCloudSaasacceleratorManagementProvidersV1InstanceSoftwareVersions+         where+        toJSON = toJSON . _gcsmpvisvAddtional++-- | NotificationMetadata is the notification state for an instance.+--+-- /See:/ 'googleCloudSaasacceleratorManagementProvidersV1NotificationMetadata' smart constructor.+data GoogleCloudSaasacceleratorManagementProvidersV1NotificationMetadata =+  GoogleCloudSaasacceleratorManagementProvidersV1NotificationMetadata'+    { _gcsmpvnmTargetRelease      :: !(Maybe Text)+    , _gcsmpvnmScheduledEndTime   :: !(Maybe DateTime')+    , _gcsmpvnmRescheduled        :: !(Maybe Bool)+    , _gcsmpvnmScheduledStartTime :: !(Maybe DateTime')+    }+  deriving (Eq, Show, Data, Typeable, Generic)+++-- | Creates a value of 'GoogleCloudSaasacceleratorManagementProvidersV1NotificationMetadata' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'gcsmpvnmTargetRelease'+--+-- * 'gcsmpvnmScheduledEndTime'+--+-- * 'gcsmpvnmRescheduled'+--+-- * 'gcsmpvnmScheduledStartTime'+googleCloudSaasacceleratorManagementProvidersV1NotificationMetadata+    :: GoogleCloudSaasacceleratorManagementProvidersV1NotificationMetadata+googleCloudSaasacceleratorManagementProvidersV1NotificationMetadata =+  GoogleCloudSaasacceleratorManagementProvidersV1NotificationMetadata'+    { _gcsmpvnmTargetRelease = Nothing+    , _gcsmpvnmScheduledEndTime = Nothing+    , _gcsmpvnmRescheduled = Nothing+    , _gcsmpvnmScheduledStartTime = Nothing+    }+++-- | The target release to be applied to the instance.+gcsmpvnmTargetRelease :: Lens' GoogleCloudSaasacceleratorManagementProvidersV1NotificationMetadata (Maybe Text)+gcsmpvnmTargetRelease+  = lens _gcsmpvnmTargetRelease+      (\ s a -> s{_gcsmpvnmTargetRelease = a})++-- | The scheduled end time for the maintenance window during which update+-- can be performed on the instance.+gcsmpvnmScheduledEndTime :: Lens' GoogleCloudSaasacceleratorManagementProvidersV1NotificationMetadata (Maybe UTCTime)+gcsmpvnmScheduledEndTime+  = lens _gcsmpvnmScheduledEndTime+      (\ s a -> s{_gcsmpvnmScheduledEndTime = a})+      . mapping _DateTime++-- | Whether the instance update has been rescheduled.+gcsmpvnmRescheduled :: Lens' GoogleCloudSaasacceleratorManagementProvidersV1NotificationMetadata (Maybe Bool)+gcsmpvnmRescheduled+  = lens _gcsmpvnmRescheduled+      (\ s a -> s{_gcsmpvnmRescheduled = a})++-- | The scheduled start time for the maintenance window during which update+-- can be performed on the instance.+gcsmpvnmScheduledStartTime :: Lens' GoogleCloudSaasacceleratorManagementProvidersV1NotificationMetadata (Maybe UTCTime)+gcsmpvnmScheduledStartTime+  = lens _gcsmpvnmScheduledStartTime+      (\ s a -> s{_gcsmpvnmScheduledStartTime = a})+      . mapping _DateTime++instance FromJSON+           GoogleCloudSaasacceleratorManagementProvidersV1NotificationMetadata+         where+        parseJSON+          = withObject+              "GoogleCloudSaasacceleratorManagementProvidersV1NotificationMetadata"+              (\ o ->+                 GoogleCloudSaasacceleratorManagementProvidersV1NotificationMetadata'+                   <$>+                   (o .:? "targetRelease") <*>+                     (o .:? "scheduledEndTime")+                     <*> (o .:? "rescheduled")+                     <*> (o .:? "scheduledStartTime"))++instance ToJSON+           GoogleCloudSaasacceleratorManagementProvidersV1NotificationMetadata+         where+        toJSON+          GoogleCloudSaasacceleratorManagementProvidersV1NotificationMetadata'{..}+          = object+              (catMaybes+                 [("targetRelease" .=) <$> _gcsmpvnmTargetRelease,+                  ("scheduledEndTime" .=) <$>+                    _gcsmpvnmScheduledEndTime,+                  ("rescheduled" .=) <$> _gcsmpvnmRescheduled,+                  ("scheduledStartTime" .=) <$>+                    _gcsmpvnmScheduledStartTime])++-- | File share configuration for the instance.+--+-- /See:/ 'fileShareConfig' smart constructor.+data FileShareConfig =+  FileShareConfig'+    { _fscName       :: !(Maybe Text)+    , _fscCapacityGb :: !(Maybe (Textual Int64))+    }+  deriving (Eq, Show, Data, Typeable, Generic)+++-- | Creates a value of 'FileShareConfig' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'fscName'+--+-- * 'fscCapacityGb'+fileShareConfig+    :: FileShareConfig+fileShareConfig =+  FileShareConfig' {_fscName = Nothing, _fscCapacityGb = Nothing}+++-- | The name of the file share (must be 16 characters or less).+fscName :: Lens' FileShareConfig (Maybe Text)+fscName = lens _fscName (\ s a -> s{_fscName = a})++-- | File share capacity in gigabytes (GB). Cloud Filestore defines 1 GB as+-- 1024^3 bytes.+fscCapacityGb :: Lens' FileShareConfig (Maybe Int64)+fscCapacityGb+  = lens _fscCapacityGb+      (\ s a -> s{_fscCapacityGb = a})+      . mapping _Coerce++instance FromJSON FileShareConfig where+        parseJSON+          = withObject "FileShareConfig"+              (\ o ->+                 FileShareConfig' <$>+                   (o .:? "name") <*> (o .:? "capacityGb"))++instance ToJSON FileShareConfig where+        toJSON FileShareConfig'{..}+          = object+              (catMaybes+                 [("name" .=) <$> _fscName,+                  ("capacityGb" .=) <$> _fscCapacityGb])++-- | Network configuration for the instance.+--+-- /See:/ 'networkConfig' smart constructor.+data NetworkConfig =+  NetworkConfig'+    { _ncModes           :: !(Maybe [Text])+    , _ncNetwork         :: !(Maybe Text)+    , _ncReservedIPRange :: !(Maybe Text)+    , _ncIPAddresses     :: !(Maybe [Text])+    }+  deriving (Eq, Show, Data, Typeable, Generic)+++-- | Creates a value of 'NetworkConfig' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ncModes'+--+-- * 'ncNetwork'+--+-- * 'ncReservedIPRange'+--+-- * 'ncIPAddresses'+networkConfig+    :: NetworkConfig+networkConfig =+  NetworkConfig'+    { _ncModes = Nothing+    , _ncNetwork = Nothing+    , _ncReservedIPRange = Nothing+    , _ncIPAddresses = Nothing+    }+++-- | Internet protocol versions for which the instance has IP addresses+-- assigned. For this version, only MODE_IPV4 is supported.+ncModes :: Lens' NetworkConfig [Text]+ncModes+  = lens _ncModes (\ s a -> s{_ncModes = a}) . _Default+      . _Coerce++-- | The name of the Google Compute Engine [VPC+-- network](\/compute\/docs\/networks-and-firewalls#networks) to which the+-- instance is connected.+ncNetwork :: Lens' NetworkConfig (Maybe Text)+ncNetwork+  = lens _ncNetwork (\ s a -> s{_ncNetwork = a})++-- | A \/29 CIDR block in one of the [internal IP address+-- ranges](https:\/\/www.arin.net\/knowledge\/address_filters.html) that+-- identifies the range of IP addresses reserved for this instance. For+-- example, 10.0.0.0\/29 or 192.168.0.0\/29. The range you specify can\'t+-- overlap with either existing subnets or assigned IP address ranges for+-- other Cloud Filestore instances in the selected VPC network.+ncReservedIPRange :: Lens' NetworkConfig (Maybe Text)+ncReservedIPRange+  = lens _ncReservedIPRange+      (\ s a -> s{_ncReservedIPRange = a})++-- | Output only. IPv4 addresses in the format {octet 1}.{octet 2}.{octet+-- 3}.{octet 4} or IPv6 addresses in the format {block 1}:{block 2}:{block+-- 3}:{block 4}:{block 5}:{block 6}:{block 7}:{block 8}.+ncIPAddresses :: Lens' NetworkConfig [Text]+ncIPAddresses+  = lens _ncIPAddresses+      (\ s a -> s{_ncIPAddresses = a})+      . _Default+      . _Coerce++instance FromJSON NetworkConfig where+        parseJSON+          = withObject "NetworkConfig"+              (\ o ->+                 NetworkConfig' <$>+                   (o .:? "modes" .!= mempty) <*> (o .:? "network") <*>+                     (o .:? "reservedIpRange")+                     <*> (o .:? "ipAddresses" .!= mempty))++instance ToJSON NetworkConfig where+        toJSON NetworkConfig'{..}+          = object+              (catMaybes+                 [("modes" .=) <$> _ncModes,+                  ("network" .=) <$> _ncNetwork,+                  ("reservedIpRange" .=) <$> _ncReservedIPRange,+                  ("ipAddresses" .=) <$> _ncIPAddresses])++-- | SloMetadata contains resources required for proper SLO classification of+-- the instance.+--+-- /See:/ 'googleCloudSaasacceleratorManagementProvidersV1SloMetadata' smart constructor.+data GoogleCloudSaasacceleratorManagementProvidersV1SloMetadata =+  GoogleCloudSaasacceleratorManagementProvidersV1SloMetadata'+    { _gcsmpvsmExclusions :: !(Maybe [GoogleCloudSaasacceleratorManagementProvidersV1SloExclusion])+    , _gcsmpvsmTier       :: !(Maybe Text)+    }+  deriving (Eq, Show, Data, Typeable, Generic)+++-- | Creates a value of 'GoogleCloudSaasacceleratorManagementProvidersV1SloMetadata' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'gcsmpvsmExclusions'+--+-- * 'gcsmpvsmTier'+googleCloudSaasacceleratorManagementProvidersV1SloMetadata+    :: GoogleCloudSaasacceleratorManagementProvidersV1SloMetadata+googleCloudSaasacceleratorManagementProvidersV1SloMetadata =+  GoogleCloudSaasacceleratorManagementProvidersV1SloMetadata'+    {_gcsmpvsmExclusions = Nothing, _gcsmpvsmTier = Nothing}+++-- | List of SLO exclusion windows. When multiple entries in the list match+-- (matching the exclusion time-window against current time point) the+-- exclusion reason used in the first matching entry will be published. It+-- is not needed to include expired exclusion in this list, as only the+-- currently applicable exclusions are taken into account by the+-- eligibility exporting subsystem (the historical state of exclusions will+-- be reflected in the historically produced timeseries regardless of the+-- current state). This field can be used to mark the instance as temporary+-- ineligible for the purpose of SLO calculation. For permanent instance+-- SLO exclusion, a dedicated tier name can be used that does not have+-- targets specified in the service SLO configuration.+gcsmpvsmExclusions :: Lens' GoogleCloudSaasacceleratorManagementProvidersV1SloMetadata [GoogleCloudSaasacceleratorManagementProvidersV1SloExclusion]+gcsmpvsmExclusions+  = lens _gcsmpvsmExclusions+      (\ s a -> s{_gcsmpvsmExclusions = a})+      . _Default+      . _Coerce++-- | Name of the SLO tier the Instance belongs to. This name will be expected+-- to match the tiers specified in the service SLO configuration. Field is+-- mandatory and must not be empty.+gcsmpvsmTier :: Lens' GoogleCloudSaasacceleratorManagementProvidersV1SloMetadata (Maybe Text)+gcsmpvsmTier+  = lens _gcsmpvsmTier (\ s a -> s{_gcsmpvsmTier = a})++instance FromJSON+           GoogleCloudSaasacceleratorManagementProvidersV1SloMetadata+         where+        parseJSON+          = withObject+              "GoogleCloudSaasacceleratorManagementProvidersV1SloMetadata"+              (\ o ->+                 GoogleCloudSaasacceleratorManagementProvidersV1SloMetadata'+                   <$>+                   (o .:? "exclusions" .!= mempty) <*> (o .:? "tier"))++instance ToJSON+           GoogleCloudSaasacceleratorManagementProvidersV1SloMetadata+         where+        toJSON+          GoogleCloudSaasacceleratorManagementProvidersV1SloMetadata'{..}+          = object+              (catMaybes+                 [("exclusions" .=) <$> _gcsmpvsmExclusions,+                  ("tier" .=) <$> _gcsmpvsmTier])++-- | Output only. Custom string attributes used primarily to expose+-- producer-specific information in monitoring dashboards. See+-- go\/get-instance-metadata.+--+-- /See:/ 'googleCloudSaasacceleratorManagementProvidersV1InstanceProducerMetadata' smart constructor.+newtype GoogleCloudSaasacceleratorManagementProvidersV1InstanceProducerMetadata =+  GoogleCloudSaasacceleratorManagementProvidersV1InstanceProducerMetadata'+    { _gcsmpvipmAddtional :: HashMap Text Text+    }+  deriving (Eq, Show, Data, Typeable, Generic)+++-- | Creates a value of 'GoogleCloudSaasacceleratorManagementProvidersV1InstanceProducerMetadata' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'gcsmpvipmAddtional'+googleCloudSaasacceleratorManagementProvidersV1InstanceProducerMetadata+    :: HashMap Text Text -- ^ 'gcsmpvipmAddtional'+    -> GoogleCloudSaasacceleratorManagementProvidersV1InstanceProducerMetadata+googleCloudSaasacceleratorManagementProvidersV1InstanceProducerMetadata pGcsmpvipmAddtional_ =+  GoogleCloudSaasacceleratorManagementProvidersV1InstanceProducerMetadata'+    {_gcsmpvipmAddtional = _Coerce # pGcsmpvipmAddtional_}+++gcsmpvipmAddtional :: Lens' GoogleCloudSaasacceleratorManagementProvidersV1InstanceProducerMetadata (HashMap Text Text)+gcsmpvipmAddtional+  = lens _gcsmpvipmAddtional+      (\ s a -> s{_gcsmpvipmAddtional = a})+      . _Coerce++instance FromJSON+           GoogleCloudSaasacceleratorManagementProvidersV1InstanceProducerMetadata+         where+        parseJSON+          = withObject+              "GoogleCloudSaasacceleratorManagementProvidersV1InstanceProducerMetadata"+              (\ o ->+                 GoogleCloudSaasacceleratorManagementProvidersV1InstanceProducerMetadata'+                   <$> (parseJSONObject o))++instance ToJSON+           GoogleCloudSaasacceleratorManagementProvidersV1InstanceProducerMetadata+         where+        toJSON = toJSON . _gcsmpvipmAddtional++-- | Optional. Resource labels to represent user provided metadata. Each+-- label is a key-value pair, where both the key and the value are+-- arbitrary strings provided by the user.+--+-- /See:/ 'googleCloudSaasacceleratorManagementProvidersV1InstanceLabels' smart constructor.+newtype GoogleCloudSaasacceleratorManagementProvidersV1InstanceLabels =+  GoogleCloudSaasacceleratorManagementProvidersV1InstanceLabels'+    { _gcsmpvilAddtional :: HashMap Text Text+    }+  deriving (Eq, Show, Data, Typeable, Generic)+++-- | Creates a value of 'GoogleCloudSaasacceleratorManagementProvidersV1InstanceLabels' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'gcsmpvilAddtional'+googleCloudSaasacceleratorManagementProvidersV1InstanceLabels+    :: HashMap Text Text -- ^ 'gcsmpvilAddtional'+    -> GoogleCloudSaasacceleratorManagementProvidersV1InstanceLabels+googleCloudSaasacceleratorManagementProvidersV1InstanceLabels pGcsmpvilAddtional_ =+  GoogleCloudSaasacceleratorManagementProvidersV1InstanceLabels'+    {_gcsmpvilAddtional = _Coerce # pGcsmpvilAddtional_}+++gcsmpvilAddtional :: Lens' GoogleCloudSaasacceleratorManagementProvidersV1InstanceLabels (HashMap Text Text)+gcsmpvilAddtional+  = lens _gcsmpvilAddtional+      (\ s a -> s{_gcsmpvilAddtional = a})+      . _Coerce++instance FromJSON+           GoogleCloudSaasacceleratorManagementProvidersV1InstanceLabels+         where+        parseJSON+          = withObject+              "GoogleCloudSaasacceleratorManagementProvidersV1InstanceLabels"+              (\ o ->+                 GoogleCloudSaasacceleratorManagementProvidersV1InstanceLabels'+                   <$> (parseJSONObject o))++instance ToJSON+           GoogleCloudSaasacceleratorManagementProvidersV1InstanceLabels+         where+        toJSON = toJSON . _gcsmpvilAddtional++-- | A temporal SLO exclusion specification.+--+-- /See:/ 'googleCloudSaasacceleratorManagementProvidersV1SloExclusion' smart constructor.+data GoogleCloudSaasacceleratorManagementProvidersV1SloExclusion =+  GoogleCloudSaasacceleratorManagementProvidersV1SloExclusion'+    { _gcsmpvseExclusionDuration  :: !(Maybe GDuration)+    , _gcsmpvseExclusionStartTime :: !(Maybe DateTime')+    , _gcsmpvseReason             :: !(Maybe Text)+    , _gcsmpvseSloName            :: !(Maybe Text)+    }+  deriving (Eq, Show, Data, Typeable, Generic)+++-- | Creates a value of 'GoogleCloudSaasacceleratorManagementProvidersV1SloExclusion' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'gcsmpvseExclusionDuration'+--+-- * 'gcsmpvseExclusionStartTime'+--+-- * 'gcsmpvseReason'+--+-- * 'gcsmpvseSloName'+googleCloudSaasacceleratorManagementProvidersV1SloExclusion+    :: GoogleCloudSaasacceleratorManagementProvidersV1SloExclusion+googleCloudSaasacceleratorManagementProvidersV1SloExclusion =+  GoogleCloudSaasacceleratorManagementProvidersV1SloExclusion'+    { _gcsmpvseExclusionDuration = Nothing+    , _gcsmpvseExclusionStartTime = Nothing+    , _gcsmpvseReason = Nothing+    , _gcsmpvseSloName = Nothing+    }+++-- | Exclusion duration. No restrictions on the possible values. When an+-- ongoing operation is taking longer than initially expected, an existing+-- entry in the exclusion list can be updated by extending the duration.+-- This is supported by the subsystem exporting eligibility data as long as+-- such extension is committed at least 10 minutes before the original+-- exclusion expiration - otherwise it is possible that there will be+-- \"gaps\" in the exclusion application in the exported timeseries.+gcsmpvseExclusionDuration :: Lens' GoogleCloudSaasacceleratorManagementProvidersV1SloExclusion (Maybe Scientific)+gcsmpvseExclusionDuration+  = lens _gcsmpvseExclusionDuration+      (\ s a -> s{_gcsmpvseExclusionDuration = a})+      . mapping _GDuration++-- | Start time of the exclusion. No alignment (e.g. to a full minute)+-- needed.+gcsmpvseExclusionStartTime :: Lens' GoogleCloudSaasacceleratorManagementProvidersV1SloExclusion (Maybe UTCTime)+gcsmpvseExclusionStartTime+  = lens _gcsmpvseExclusionStartTime+      (\ s a -> s{_gcsmpvseExclusionStartTime = a})+      . mapping _DateTime++-- | Human-readable reason for the exclusion. This should be a static string+-- (e.g. \"Disruptive update in progress\") and should not contain+-- dynamically generated data (e.g. instance name). Can be left empty.+gcsmpvseReason :: Lens' GoogleCloudSaasacceleratorManagementProvidersV1SloExclusion (Maybe Text)+gcsmpvseReason+  = lens _gcsmpvseReason+      (\ s a -> s{_gcsmpvseReason = a})++-- | Name of an SLI\/SLO that this exclusion applies to. Can be left empty,+-- signaling that the instance should be excluded from all SLI\/SLOs+-- defined in the service SLO configuration.+gcsmpvseSloName :: Lens' GoogleCloudSaasacceleratorManagementProvidersV1SloExclusion (Maybe Text)+gcsmpvseSloName+  = lens _gcsmpvseSloName+      (\ s a -> s{_gcsmpvseSloName = a})++instance FromJSON+           GoogleCloudSaasacceleratorManagementProvidersV1SloExclusion+         where+        parseJSON+          = withObject+              "GoogleCloudSaasacceleratorManagementProvidersV1SloExclusion"+              (\ o ->+                 GoogleCloudSaasacceleratorManagementProvidersV1SloExclusion'+                   <$>+                   (o .:? "exclusionDuration") <*>+                     (o .:? "exclusionStartTime")+                     <*> (o .:? "reason")+                     <*> (o .:? "sloName"))++instance ToJSON+           GoogleCloudSaasacceleratorManagementProvidersV1SloExclusion+         where+        toJSON+          GoogleCloudSaasacceleratorManagementProvidersV1SloExclusion'{..}+          = object+              (catMaybes+                 [("exclusionDuration" .=) <$>+                    _gcsmpvseExclusionDuration,+                  ("exclusionStartTime" .=) <$>+                    _gcsmpvseExclusionStartTime,+                  ("reason" .=) <$> _gcsmpvseReason,+                  ("sloName" .=) <$> _gcsmpvseSloName])++-- | Cross-service attributes for the location. For example+-- {\"cloud.googleapis.com\/region\": \"us-east1\"}+--+-- /See:/ 'locationLabels' smart constructor.+newtype LocationLabels =+  LocationLabels'+    { _llAddtional :: HashMap Text Text+    }+  deriving (Eq, Show, Data, Typeable, Generic)+++-- | Creates a value of 'LocationLabels' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'llAddtional'+locationLabels+    :: HashMap Text Text -- ^ 'llAddtional'+    -> LocationLabels+locationLabels pLlAddtional_ =+  LocationLabels' {_llAddtional = _Coerce # pLlAddtional_}+++llAddtional :: Lens' LocationLabels (HashMap Text Text)+llAddtional+  = lens _llAddtional (\ s a -> s{_llAddtional = a}) .+      _Coerce++instance FromJSON LocationLabels where+        parseJSON+          = withObject "LocationLabels"+              (\ o -> LocationLabels' <$> (parseJSONObject o))++instance ToJSON LocationLabels where+        toJSON = toJSON . _llAddtional++-- | Service-specific metadata. For example the available capacity at the+-- given location.+--+-- /See:/ 'locationMetadata' smart constructor.+newtype LocationMetadata =+  LocationMetadata'+    { _lmAddtional :: HashMap Text JSONValue+    }+  deriving (Eq, Show, Data, Typeable, Generic)+++-- | Creates a value of 'LocationMetadata' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'lmAddtional'+locationMetadata+    :: HashMap Text JSONValue -- ^ 'lmAddtional'+    -> LocationMetadata+locationMetadata pLmAddtional_ =+  LocationMetadata' {_lmAddtional = _Coerce # pLmAddtional_}+++-- | Properties of the object. Contains field \'type with type URL.+lmAddtional :: Lens' LocationMetadata (HashMap Text JSONValue)+lmAddtional+  = lens _lmAddtional (\ s a -> s{_lmAddtional = a}) .+      _Coerce++instance FromJSON LocationMetadata where+        parseJSON+          = withObject "LocationMetadata"+              (\ o -> LocationMetadata' <$> (parseJSONObject o))++instance ToJSON LocationMetadata where+        toJSON = toJSON . _lmAddtional++-- | Represents the metadata of the long-running operation.+--+-- /See:/ 'operationMetadata' smart constructor.+data OperationMetadata =+  OperationMetadata'+    { _omAPIVersion      :: !(Maybe Text)+    , _omEndTime         :: !(Maybe DateTime')+    , _omStatusDetail    :: !(Maybe Text)+    , _omVerb            :: !(Maybe Text)+    , _omCancelRequested :: !(Maybe Bool)+    , _omTarget          :: !(Maybe Text)+    , _omCreateTime      :: !(Maybe DateTime')+    }+  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:+--+-- * 'omAPIVersion'+--+-- * 'omEndTime'+--+-- * 'omStatusDetail'+--+-- * 'omVerb'+--+-- * 'omCancelRequested'+--+-- * 'omTarget'+--+-- * 'omCreateTime'+operationMetadata+    :: OperationMetadata+operationMetadata =+  OperationMetadata'+    { _omAPIVersion = Nothing+    , _omEndTime = Nothing+    , _omStatusDetail = Nothing+    , _omVerb = Nothing+    , _omCancelRequested = Nothing+    , _omTarget = Nothing+    , _omCreateTime = Nothing+    }+++-- | [Output only] API version used to start the operation.+omAPIVersion :: Lens' OperationMetadata (Maybe Text)+omAPIVersion+  = lens _omAPIVersion (\ s a -> s{_omAPIVersion = a})++-- | [Output only] The time the operation finished running.+omEndTime :: Lens' OperationMetadata (Maybe UTCTime)+omEndTime+  = lens _omEndTime (\ s a -> s{_omEndTime = a}) .+      mapping _DateTime++-- | [Output only] Human-readable status of the operation, if any.+omStatusDetail :: Lens' OperationMetadata (Maybe Text)+omStatusDetail+  = lens _omStatusDetail+      (\ s a -> s{_omStatusDetail = a})++-- | [Output only] Name of the verb executed by the operation.+omVerb :: Lens' OperationMetadata (Maybe Text)+omVerb = lens _omVerb (\ s a -> s{_omVerb = a})++-- | [Output only] Identifies whether the user has requested cancellation of+-- the operation. Operations that have successfully been cancelled have+-- Operation.error value with a google.rpc.Status.code of 1, corresponding+-- to \`Code.CANCELLED\`.+omCancelRequested :: Lens' OperationMetadata (Maybe Bool)+omCancelRequested+  = lens _omCancelRequested+      (\ s a -> s{_omCancelRequested = a})++-- | [Output only] Server-defined resource path for the target of the+-- operation.+omTarget :: Lens' OperationMetadata (Maybe Text)+omTarget = lens _omTarget (\ s a -> s{_omTarget = a})++-- | [Output only] The time the operation was created.+omCreateTime :: Lens' OperationMetadata (Maybe UTCTime)+omCreateTime+  = lens _omCreateTime (\ s a -> s{_omCreateTime = a})+      . mapping _DateTime++instance FromJSON OperationMetadata where+        parseJSON+          = withObject "OperationMetadata"+              (\ o ->+                 OperationMetadata' <$>+                   (o .:? "apiVersion") <*> (o .:? "endTime") <*>+                     (o .:? "statusDetail")+                     <*> (o .:? "verb")+                     <*> (o .:? "cancelRequested")+                     <*> (o .:? "target")+                     <*> (o .:? "createTime"))++instance ToJSON OperationMetadata where+        toJSON OperationMetadata'{..}+          = object+              (catMaybes+                 [("apiVersion" .=) <$> _omAPIVersion,+                  ("endTime" .=) <$> _omEndTime,+                  ("statusDetail" .=) <$> _omStatusDetail,+                  ("verb" .=) <$> _omVerb,+                  ("cancelRequested" .=) <$> _omCancelRequested,+                  ("target" .=) <$> _omTarget,+                  ("createTime" .=) <$> _omCreateTime])++-- | Describes provisioned dataplane resources.+--+-- /See:/ 'googleCloudSaasacceleratorManagementProvidersV1ProvisionedResource' smart constructor.+data GoogleCloudSaasacceleratorManagementProvidersV1ProvisionedResource =+  GoogleCloudSaasacceleratorManagementProvidersV1ProvisionedResource'+    { _gcsmpvprResourceType :: !(Maybe Text)+    , _gcsmpvprResourceURL  :: !(Maybe Text)+    }+  deriving (Eq, Show, Data, Typeable, Generic)+++-- | Creates a value of 'GoogleCloudSaasacceleratorManagementProvidersV1ProvisionedResource' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'gcsmpvprResourceType'+--+-- * 'gcsmpvprResourceURL'+googleCloudSaasacceleratorManagementProvidersV1ProvisionedResource+    :: GoogleCloudSaasacceleratorManagementProvidersV1ProvisionedResource+googleCloudSaasacceleratorManagementProvidersV1ProvisionedResource =+  GoogleCloudSaasacceleratorManagementProvidersV1ProvisionedResource'+    {_gcsmpvprResourceType = Nothing, _gcsmpvprResourceURL = Nothing}+++-- | Type of the resource. This can be either a GCP resource or a custom one+-- (e.g. another cloud provider\'s VM). For GCP compute resources use+-- singular form of the names listed in GCP compute API documentation+-- (https:\/\/cloud.google.com\/compute\/docs\/reference\/rest\/v1\/),+-- prefixed with \'compute-\', for example: \'compute-instance\',+-- \'compute-disk\', \'compute-autoscaler\'.+gcsmpvprResourceType :: Lens' GoogleCloudSaasacceleratorManagementProvidersV1ProvisionedResource (Maybe Text)+gcsmpvprResourceType+  = lens _gcsmpvprResourceType+      (\ s a -> s{_gcsmpvprResourceType = a})++-- | URL identifying the resource, e.g.+-- \"https:\/\/www.googleapis.com\/compute\/v1\/projects\/...)\".+gcsmpvprResourceURL :: Lens' GoogleCloudSaasacceleratorManagementProvidersV1ProvisionedResource (Maybe Text)+gcsmpvprResourceURL+  = lens _gcsmpvprResourceURL+      (\ s a -> s{_gcsmpvprResourceURL = a})++instance FromJSON+           GoogleCloudSaasacceleratorManagementProvidersV1ProvisionedResource+         where+        parseJSON+          = withObject+              "GoogleCloudSaasacceleratorManagementProvidersV1ProvisionedResource"+              (\ o ->+                 GoogleCloudSaasacceleratorManagementProvidersV1ProvisionedResource'+                   <$> (o .:? "resourceType") <*> (o .:? "resourceUrl"))++instance ToJSON+           GoogleCloudSaasacceleratorManagementProvidersV1ProvisionedResource+         where+        toJSON+          GoogleCloudSaasacceleratorManagementProvidersV1ProvisionedResource'{..}+          = object+              (catMaybes+                 [("resourceType" .=) <$> _gcsmpvprResourceType,+                  ("resourceUrl" .=) <$> _gcsmpvprResourceURL])++-- | ListInstancesResponse is the result of ListInstancesRequest.+--+-- /See:/ 'listInstancesResponse' smart constructor.+data ListInstancesResponse =+  ListInstancesResponse'+    { _lirNextPageToken :: !(Maybe Text)+    , _lirUnreachable   :: !(Maybe [Text])+    , _lirInstances     :: !(Maybe [Instance])+    }+  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:+--+-- * 'lirNextPageToken'+--+-- * 'lirUnreachable'+--+-- * 'lirInstances'+listInstancesResponse+    :: ListInstancesResponse+listInstancesResponse =+  ListInstancesResponse'+    { _lirNextPageToken = Nothing+    , _lirUnreachable = Nothing+    , _lirInstances = Nothing+    }+++-- | The token you can use to retrieve the next page of results. Not returned+-- if there are no more results in the list.+lirNextPageToken :: Lens' ListInstancesResponse (Maybe Text)+lirNextPageToken+  = lens _lirNextPageToken+      (\ s a -> s{_lirNextPageToken = a})++-- | Locations that could not be reached.+lirUnreachable :: Lens' ListInstancesResponse [Text]+lirUnreachable+  = lens _lirUnreachable+      (\ s a -> s{_lirUnreachable = a})+      . _Default+      . _Coerce++-- | A list of instances in the project for the specified location. If the+-- {location} value in the request is \"-\", the response contains a list+-- of instances from all locations. If any location is unreachable, the+-- response will only return instances in reachable locations and the+-- \"unreachable\" field will be populated with a list of unreachable+-- locations.+lirInstances :: Lens' ListInstancesResponse [Instance]+lirInstances+  = lens _lirInstances (\ s a -> s{_lirInstances = a})+      . _Default+      . _Coerce++instance FromJSON ListInstancesResponse where+        parseJSON+          = withObject "ListInstancesResponse"+              (\ o ->+                 ListInstancesResponse' <$>+                   (o .:? "nextPageToken") <*>+                     (o .:? "unreachable" .!= mempty)+                     <*> (o .:? "instances" .!= mempty))++instance ToJSON ListInstancesResponse where+        toJSON ListInstancesResponse'{..}+          = object+              (catMaybes+                 [("nextPageToken" .=) <$> _lirNextPageToken,+                  ("unreachable" .=) <$> _lirUnreachable,+                  ("instances" .=) <$> _lirInstances])++-- | The normal response of the operation in case of success. If the original+-- method returns no data on success, such as \`Delete\`, the response is+-- \`google.protobuf.Empty\`. If the original method is standard+-- \`Get\`\/\`Create\`\/\`Update\`, the response should be the resource.+-- For other methods, the response should have the type \`XxxResponse\`,+-- where \`Xxx\` is the original method name. For example, if the original+-- method name is \`TakeSnapshot()\`, the inferred response type is+-- \`TakeSnapshotResponse\`.+--+-- /See:/ 'operationResponse' smart constructor.+newtype OperationResponse =+  OperationResponse'+    { _orAddtional :: HashMap Text JSONValue+    }+  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:+--+-- * 'orAddtional'+operationResponse+    :: HashMap Text JSONValue -- ^ 'orAddtional'+    -> OperationResponse+operationResponse pOrAddtional_ =+  OperationResponse' {_orAddtional = _Coerce # pOrAddtional_}+++-- | Properties of the object. Contains field \'type with type URL.+orAddtional :: Lens' OperationResponse (HashMap Text JSONValue)+orAddtional+  = lens _orAddtional (\ s a -> s{_orAddtional = a}) .+      _Coerce++instance FromJSON OperationResponse where+        parseJSON+          = withObject "OperationResponse"+              (\ o -> OperationResponse' <$> (parseJSONObject o))++instance ToJSON OperationResponse where+        toJSON = toJSON . _orAddtional++-- | The map between RolloutType and the corresponding RolloutMetadata. This+-- is only mutated by rollout service. For actuation implementation, this+-- information is pass-through for Rollout management. Producer shall not+-- modify by itself. For update of a single entry in this map, the update+-- field mask shall follow this sementics: go\/advanced-field-masks+--+-- /See:/ 'googleCloudSaasacceleratorManagementProvidersV1InstanceRolloutMetadata' smart constructor.+newtype GoogleCloudSaasacceleratorManagementProvidersV1InstanceRolloutMetadata =+  GoogleCloudSaasacceleratorManagementProvidersV1InstanceRolloutMetadata'+    { _gcsmpvirmAddtional :: HashMap Text GoogleCloudSaasacceleratorManagementProvidersV1RolloutMetadata+    }+  deriving (Eq, Show, Data, Typeable, Generic)+++-- | Creates a value of 'GoogleCloudSaasacceleratorManagementProvidersV1InstanceRolloutMetadata' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'gcsmpvirmAddtional'+googleCloudSaasacceleratorManagementProvidersV1InstanceRolloutMetadata+    :: HashMap Text GoogleCloudSaasacceleratorManagementProvidersV1RolloutMetadata -- ^ 'gcsmpvirmAddtional'+    -> GoogleCloudSaasacceleratorManagementProvidersV1InstanceRolloutMetadata+googleCloudSaasacceleratorManagementProvidersV1InstanceRolloutMetadata pGcsmpvirmAddtional_ =+  GoogleCloudSaasacceleratorManagementProvidersV1InstanceRolloutMetadata'+    {_gcsmpvirmAddtional = _Coerce # pGcsmpvirmAddtional_}+++gcsmpvirmAddtional :: Lens' GoogleCloudSaasacceleratorManagementProvidersV1InstanceRolloutMetadata (HashMap Text GoogleCloudSaasacceleratorManagementProvidersV1RolloutMetadata)+gcsmpvirmAddtional+  = lens _gcsmpvirmAddtional+      (\ s a -> s{_gcsmpvirmAddtional = a})+      . _Coerce++instance FromJSON+           GoogleCloudSaasacceleratorManagementProvidersV1InstanceRolloutMetadata+         where+        parseJSON+          = withObject+              "GoogleCloudSaasacceleratorManagementProvidersV1InstanceRolloutMetadata"+              (\ o ->+                 GoogleCloudSaasacceleratorManagementProvidersV1InstanceRolloutMetadata'+                   <$> (parseJSONObject o))++instance ToJSON+           GoogleCloudSaasacceleratorManagementProvidersV1InstanceRolloutMetadata+         where+        toJSON = toJSON . _gcsmpvirmAddtional++-- | The MaintenancePolicies that have been attached to the instance. The key+-- must be of the type name of the oneof policy name defined in+-- MaintenancePolicy, and the referenced policy must define the same policy+-- type. For complete details of MaintenancePolicy, please refer to+-- \/\/depot\/google3\/google\/cloud\/saasaccelerator\/maintenancepolicy\/api\/v1\/maintenance_policy_resources.proto+--+-- /See:/ 'googleCloudSaasacceleratorManagementProvidersV1InstanceMaintenancePolicyNames' smart constructor.+newtype GoogleCloudSaasacceleratorManagementProvidersV1InstanceMaintenancePolicyNames =+  GoogleCloudSaasacceleratorManagementProvidersV1InstanceMaintenancePolicyNames'+    { _gcsmpvimpnAddtional :: HashMap Text Text+    }+  deriving (Eq, Show, Data, Typeable, Generic)+++-- | Creates a value of 'GoogleCloudSaasacceleratorManagementProvidersV1InstanceMaintenancePolicyNames' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'gcsmpvimpnAddtional'+googleCloudSaasacceleratorManagementProvidersV1InstanceMaintenancePolicyNames+    :: HashMap Text Text -- ^ 'gcsmpvimpnAddtional'+    -> GoogleCloudSaasacceleratorManagementProvidersV1InstanceMaintenancePolicyNames+googleCloudSaasacceleratorManagementProvidersV1InstanceMaintenancePolicyNames pGcsmpvimpnAddtional_ =+  GoogleCloudSaasacceleratorManagementProvidersV1InstanceMaintenancePolicyNames'+    {_gcsmpvimpnAddtional = _Coerce # pGcsmpvimpnAddtional_}+++gcsmpvimpnAddtional :: Lens' GoogleCloudSaasacceleratorManagementProvidersV1InstanceMaintenancePolicyNames (HashMap Text Text)+gcsmpvimpnAddtional+  = lens _gcsmpvimpnAddtional+      (\ s a -> s{_gcsmpvimpnAddtional = a})+      . _Coerce++instance FromJSON+           GoogleCloudSaasacceleratorManagementProvidersV1InstanceMaintenancePolicyNames+         where+        parseJSON+          = withObject+              "GoogleCloudSaasacceleratorManagementProvidersV1InstanceMaintenancePolicyNames"+              (\ o ->+                 GoogleCloudSaasacceleratorManagementProvidersV1InstanceMaintenancePolicyNames'+                   <$> (parseJSONObject o))++instance ToJSON+           GoogleCloudSaasacceleratorManagementProvidersV1InstanceMaintenancePolicyNames+         where+        toJSON = toJSON . _gcsmpvimpnAddtional++-- | A Cloud Filestore instance.+--+-- /See:/ 'instance'' smart constructor.+data Instance =+  Instance'+    { _iEtag          :: !(Maybe Text)+    , _iState         :: !(Maybe InstanceState)+    , _iNetworks      :: !(Maybe [NetworkConfig])+    , _iFileShares    :: !(Maybe [FileShareConfig])+    , _iName          :: !(Maybe Text)+    , _iStatusMessage :: !(Maybe Text)+    , _iTier          :: !(Maybe InstanceTier)+    , _iLabels        :: !(Maybe InstanceLabels)+    , _iDescription   :: !(Maybe Text)+    , _iCreateTime    :: !(Maybe DateTime')+    }+  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:+--+-- * 'iEtag'+--+-- * 'iState'+--+-- * 'iNetworks'+--+-- * 'iFileShares'+--+-- * 'iName'+--+-- * 'iStatusMessage'+--+-- * 'iTier'+--+-- * 'iLabels'+--+-- * 'iDescription'+--+-- * 'iCreateTime'+instance'+    :: Instance+instance' =+  Instance'+    { _iEtag = Nothing+    , _iState = Nothing+    , _iNetworks = Nothing+    , _iFileShares = Nothing+    , _iName = Nothing+    , _iStatusMessage = Nothing+    , _iTier = Nothing+    , _iLabels = Nothing+    , _iDescription = Nothing+    , _iCreateTime = Nothing+    }+  -- | Server-specified ETag for the instance resource to prevent simultaneous -- updates from overwriting each other.

@@ -18,6 +18,56 @@  import           Network.Google.Prelude hiding (Bytes) +-- | Output only. Current lifecycle state of the resource (e.g. if it\'s+-- being created or ready to use).+data GoogleCloudSaasacceleratorManagementProvidersV1InstanceState+    = StateUnspecified+      -- ^ @STATE_UNSPECIFIED@+      -- Unspecified state.+    | Creating+      -- ^ @CREATING@+      -- Instance is being created.+    | Ready+      -- ^ @READY@+      -- Instance has been created and is ready to use.+    | Updating+      -- ^ @UPDATING@+      -- Instance is being updated.+    | Repairing+      -- ^ @REPAIRING@+      -- Instance is unheathy and under repair.+    | Deleting+      -- ^ @DELETING@+      -- Instance is being deleted.+      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)++instance Hashable GoogleCloudSaasacceleratorManagementProvidersV1InstanceState++instance FromHttpApiData GoogleCloudSaasacceleratorManagementProvidersV1InstanceState where+    parseQueryParam = \case+        "STATE_UNSPECIFIED" -> Right StateUnspecified+        "CREATING" -> Right Creating+        "READY" -> Right Ready+        "UPDATING" -> Right Updating+        "REPAIRING" -> Right Repairing+        "DELETING" -> Right Deleting+        x -> Left ("Unable to parse GoogleCloudSaasacceleratorManagementProvidersV1InstanceState from: " <> x)++instance ToHttpApiData GoogleCloudSaasacceleratorManagementProvidersV1InstanceState where+    toQueryParam = \case+        StateUnspecified -> "STATE_UNSPECIFIED"+        Creating -> "CREATING"+        Ready -> "READY"+        Updating -> "UPDATING"+        Repairing -> "REPAIRING"+        Deleting -> "DELETING"++instance FromJSON GoogleCloudSaasacceleratorManagementProvidersV1InstanceState where+    parseJSON = parseJSONText "GoogleCloudSaasacceleratorManagementProvidersV1InstanceState"++instance ToJSON GoogleCloudSaasacceleratorManagementProvidersV1InstanceState where+    toJSON = toJSONText+ -- | The service tier of the instance. data InstanceTier     = TierUnspecified@@ -83,23 +133,23 @@  -- | Output only. The instance state. data InstanceState-    = StateUnspecified+    = ISStateUnspecified       -- ^ @STATE_UNSPECIFIED@       -- State not set.-    | Creating+    | ISCreating       -- ^ @CREATING@       -- The instance is being created.-    | Ready+    | ISReady       -- ^ @READY@       -- The instance is available for use.-    | Repairing+    | ISRepairing       -- ^ @REPAIRING@       -- Work is being done on the instance. You can get further details from the       -- \`statusMessage\` field of the \`Instance\` resource.-    | Deleting+    | ISDeleting       -- ^ @DELETING@       -- The instance is shutting down.-    | Error'+    | ISError'       -- ^ @ERROR@       -- The instance is experiencing an issue and might be unusable. You can get       -- further details from the \`statusMessage\` field of the \`Instance\`@@ -110,22 +160,22 @@  instance FromHttpApiData InstanceState where     parseQueryParam = \case-        "STATE_UNSPECIFIED" -> Right StateUnspecified-        "CREATING" -> Right Creating-        "READY" -> Right Ready-        "REPAIRING" -> Right Repairing-        "DELETING" -> Right Deleting-        "ERROR" -> Right Error'+        "STATE_UNSPECIFIED" -> Right ISStateUnspecified+        "CREATING" -> Right ISCreating+        "READY" -> Right ISReady+        "REPAIRING" -> Right ISRepairing+        "DELETING" -> Right ISDeleting+        "ERROR" -> Right ISError'         x -> Left ("Unable to parse InstanceState from: " <> x)  instance ToHttpApiData InstanceState where     toQueryParam = \case-        StateUnspecified -> "STATE_UNSPECIFIED"-        Creating -> "CREATING"-        Ready -> "READY"-        Repairing -> "REPAIRING"-        Deleting -> "DELETING"-        Error' -> "ERROR"+        ISStateUnspecified -> "STATE_UNSPECIFIED"+        ISCreating -> "CREATING"+        ISReady -> "READY"+        ISRepairing -> "REPAIRING"+        ISDeleting -> "DELETING"+        ISError' -> "ERROR"  instance FromJSON InstanceState where     parseJSON = parseJSONText "InstanceState"

@@ -47,7 +47,7 @@ -- | A resource alias for @file.projects.locations.get@ method which the -- 'ProjectsLocationsGet' request conforms to. type ProjectsLocationsGetResource =-     "v1beta1" :>+     "v1" :>        Capture "name" Text :>          QueryParam "$.xgafv" Xgafv :>            QueryParam "upload_protocol" Text :>@@ -59,15 +59,18 @@ -- | Gets information about a location. -- -- /See:/ 'projectsLocationsGet' smart constructor.-data ProjectsLocationsGet = ProjectsLocationsGet'+data ProjectsLocationsGet =+  ProjectsLocationsGet'     { _plgXgafv          :: !(Maybe Xgafv)     , _plgUploadProtocol :: !(Maybe Text)     , _plgAccessToken    :: !(Maybe Text)     , _plgUploadType     :: !(Maybe Text)     , _plgName           :: !Text     , _plgCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsLocationsGet' 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 -- ^ 'plgName'     -> ProjectsLocationsGet projectsLocationsGet pPlgName_ =-    ProjectsLocationsGet'+  ProjectsLocationsGet'     { _plgXgafv = Nothing     , _plgUploadProtocol = Nothing     , _plgAccessToken = Nothing@@ -95,6 +98,7 @@     , _plgName = pPlgName_     , _plgCallback = Nothing     }+  -- | V1 error format. plgXgafv :: Lens' ProjectsLocationsGet (Maybe Xgafv)

@@ -49,7 +49,7 @@ -- | A resource alias for @file.projects.locations.instances.create@ method which the -- 'ProjectsLocationsInstancesCreate' request conforms to. type ProjectsLocationsInstancesCreateResource =-     "v1beta1" :>+     "v1" :>        Capture "parent" Text :>          "instances" :>            QueryParam "instanceId" Text :>@@ -64,7 +64,8 @@ -- | Creates an instance. -- -- /See:/ 'projectsLocationsInstancesCreate' smart constructor.-data ProjectsLocationsInstancesCreate = ProjectsLocationsInstancesCreate'+data ProjectsLocationsInstancesCreate =+  ProjectsLocationsInstancesCreate'     { _plicParent         :: !Text     , _plicInstanceId     :: !(Maybe Text)     , _plicXgafv          :: !(Maybe Xgafv)@@ -73,8 +74,10 @@     , _plicUploadType     :: !(Maybe Text)     , _plicPayload        :: !Instance     , _plicCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsLocationsInstancesCreate' 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 @@     -> Instance -- ^ 'plicPayload'     -> ProjectsLocationsInstancesCreate projectsLocationsInstancesCreate pPlicParent_ pPlicPayload_ =-    ProjectsLocationsInstancesCreate'+  ProjectsLocationsInstancesCreate'     { _plicParent = pPlicParent_     , _plicInstanceId = Nothing     , _plicXgafv = Nothing@@ -110,6 +113,7 @@     , _plicCallback = Nothing     } + -- | The instance\'s project and location, in the format -- projects\/{project_id}\/locations\/{location}. In Cloud Filestore, -- locations map to GCP zones, for example **us-west1-b**.@@ -158,7 +162,8 @@   = lens _plicCallback (\ s a -> s{_plicCallback = a})  instance GoogleRequest-         ProjectsLocationsInstancesCreate where+           ProjectsLocationsInstancesCreate+         where         type Rs ProjectsLocationsInstancesCreate = Operation         type Scopes ProjectsLocationsInstancesCreate =              '["https://www.googleapis.com/auth/cloud-platform"]

@@ -47,7 +47,7 @@ -- | A resource alias for @file.projects.locations.instances.delete@ method which the -- 'ProjectsLocationsInstancesDelete' request conforms to. type ProjectsLocationsInstancesDeleteResource =-     "v1beta1" :>+     "v1" :>        Capture "name" Text :>          QueryParam "$.xgafv" Xgafv :>            QueryParam "upload_protocol" Text :>@@ -59,15 +59,18 @@ -- | Deletes an instance. -- -- /See:/ 'projectsLocationsInstancesDelete' smart constructor.-data ProjectsLocationsInstancesDelete = ProjectsLocationsInstancesDelete'+data ProjectsLocationsInstancesDelete =+  ProjectsLocationsInstancesDelete'     { _plidXgafv          :: !(Maybe Xgafv)     , _plidUploadProtocol :: !(Maybe Text)     , _plidAccessToken    :: !(Maybe Text)     , _plidUploadType     :: !(Maybe Text)     , _plidName           :: !Text     , _plidCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsLocationsInstancesDelete' 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 -- ^ 'plidName'     -> ProjectsLocationsInstancesDelete projectsLocationsInstancesDelete pPlidName_ =-    ProjectsLocationsInstancesDelete'+  ProjectsLocationsInstancesDelete'     { _plidXgafv = Nothing     , _plidUploadProtocol = Nothing     , _plidAccessToken = Nothing@@ -96,6 +99,7 @@     , _plidCallback = Nothing     } + -- | V1 error format. plidXgafv :: Lens' ProjectsLocationsInstancesDelete (Maybe Xgafv) plidXgafv@@ -130,7 +134,8 @@   = lens _plidCallback (\ s a -> s{_plidCallback = a})  instance GoogleRequest-         ProjectsLocationsInstancesDelete where+           ProjectsLocationsInstancesDelete+         where         type Rs ProjectsLocationsInstancesDelete = Operation         type Scopes ProjectsLocationsInstancesDelete =              '["https://www.googleapis.com/auth/cloud-platform"]

@@ -47,7 +47,7 @@ -- | A resource alias for @file.projects.locations.instances.get@ method which the -- 'ProjectsLocationsInstancesGet' request conforms to. type ProjectsLocationsInstancesGetResource =-     "v1beta1" :>+     "v1" :>        Capture "name" Text :>          QueryParam "$.xgafv" Xgafv :>            QueryParam "upload_protocol" Text :>@@ -59,15 +59,18 @@ -- | Gets the details of a specific instance. -- -- /See:/ 'projectsLocationsInstancesGet' smart constructor.-data ProjectsLocationsInstancesGet = ProjectsLocationsInstancesGet'+data ProjectsLocationsInstancesGet =+  ProjectsLocationsInstancesGet'     { _pligXgafv          :: !(Maybe Xgafv)     , _pligUploadProtocol :: !(Maybe Text)     , _pligAccessToken    :: !(Maybe Text)     , _pligUploadType     :: !(Maybe Text)     , _pligName           :: !Text     , _pligCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsLocationsInstancesGet' 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 -- ^ 'pligName'     -> ProjectsLocationsInstancesGet projectsLocationsInstancesGet pPligName_ =-    ProjectsLocationsInstancesGet'+  ProjectsLocationsInstancesGet'     { _pligXgafv = Nothing     , _pligUploadProtocol = Nothing     , _pligAccessToken = Nothing@@ -95,6 +98,7 @@     , _pligName = pPligName_     , _pligCallback = Nothing     }+  -- | V1 error format. pligXgafv :: Lens' ProjectsLocationsInstancesGet (Maybe Xgafv)

@@ -52,7 +52,7 @@ -- | A resource alias for @file.projects.locations.instances.list@ method which the -- 'ProjectsLocationsInstancesList' request conforms to. type ProjectsLocationsInstancesListResource =-     "v1beta1" :>+     "v1" :>        Capture "parent" Text :>          "instances" :>            QueryParam "$.xgafv" Xgafv :>@@ -71,7 +71,8 @@ -- all locations. -- -- /See:/ 'projectsLocationsInstancesList' smart constructor.-data ProjectsLocationsInstancesList = ProjectsLocationsInstancesList'+data ProjectsLocationsInstancesList =+  ProjectsLocationsInstancesList'     { _plilParent         :: !Text     , _plilXgafv          :: !(Maybe Xgafv)     , _plilUploadProtocol :: !(Maybe Text)@@ -82,8 +83,10 @@     , _plilPageToken      :: !(Maybe Text)     , _plilPageSize       :: !(Maybe (Textual Int32))     , _plilCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsLocationsInstancesList' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -111,7 +114,7 @@     :: Text -- ^ 'plilParent'     -> ProjectsLocationsInstancesList projectsLocationsInstancesList pPlilParent_ =-    ProjectsLocationsInstancesList'+  ProjectsLocationsInstancesList'     { _plilParent = pPlilParent_     , _plilXgafv = Nothing     , _plilUploadProtocol = Nothing@@ -123,6 +126,7 @@     , _plilPageSize = Nothing     , _plilCallback = Nothing     }+  -- | The project and location for which to retrieve instance information, in -- the format projects\/{project_id}\/locations\/{location}. In Cloud

@@ -49,7 +49,7 @@ -- | A resource alias for @file.projects.locations.instances.patch@ method which the -- 'ProjectsLocationsInstancesPatch' request conforms to. type ProjectsLocationsInstancesPatchResource =-     "v1beta1" :>+     "v1" :>        Capture "name" Text :>          QueryParam "$.xgafv" Xgafv :>            QueryParam "upload_protocol" Text :>@@ -63,7 +63,8 @@ -- | Updates the settings of a specific instance. -- -- /See:/ 'projectsLocationsInstancesPatch' smart constructor.-data ProjectsLocationsInstancesPatch = ProjectsLocationsInstancesPatch'+data ProjectsLocationsInstancesPatch =+  ProjectsLocationsInstancesPatch'     { _plipXgafv          :: !(Maybe Xgafv)     , _plipUploadProtocol :: !(Maybe Text)     , _plipUpdateMask     :: !(Maybe GFieldMask)@@ -72,8 +73,10 @@     , _plipPayload        :: !Instance     , _plipName           :: !Text     , _plipCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsLocationsInstancesPatch' 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 -- ^ 'plipName'     -> ProjectsLocationsInstancesPatch projectsLocationsInstancesPatch pPlipPayload_ pPlipName_ =-    ProjectsLocationsInstancesPatch'+  ProjectsLocationsInstancesPatch'     { _plipXgafv = Nothing     , _plipUploadProtocol = Nothing     , _plipUpdateMask = Nothing@@ -109,6 +112,7 @@     , _plipCallback = Nothing     } + -- | V1 error format. plipXgafv :: Lens' ProjectsLocationsInstancesPatch (Maybe Xgafv) plipXgafv@@ -156,7 +160,8 @@   = lens _plipCallback (\ s a -> s{_plipCallback = a})  instance GoogleRequest-         ProjectsLocationsInstancesPatch where+           ProjectsLocationsInstancesPatch+         where         type Rs ProjectsLocationsInstancesPatch = Operation         type Scopes ProjectsLocationsInstancesPatch =              '["https://www.googleapis.com/auth/cloud-platform"]

@@ -50,7 +50,7 @@ -- | A resource alias for @file.projects.locations.list@ method which the -- 'ProjectsLocationsList' request conforms to. type ProjectsLocationsListResource =-     "v1beta1" :>+     "v1" :>        Capture "name" Text :>          "locations" :>            QueryParam "$.xgafv" Xgafv :>@@ -67,7 +67,8 @@ -- | Lists information about the supported locations for this service. -- -- /See:/ 'projectsLocationsList' smart constructor.-data ProjectsLocationsList = ProjectsLocationsList'+data ProjectsLocationsList =+  ProjectsLocationsList'     { _pllXgafv          :: !(Maybe Xgafv)     , _pllUploadProtocol :: !(Maybe Text)     , _pllAccessToken    :: !(Maybe Text)@@ -77,8 +78,10 @@     , _pllPageToken      :: !(Maybe Text)     , _pllPageSize       :: !(Maybe (Textual Int32))     , _pllCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsLocationsList' 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 -- ^ 'pllName'     -> ProjectsLocationsList projectsLocationsList pPllName_ =-    ProjectsLocationsList'+  ProjectsLocationsList'     { _pllXgafv = Nothing     , _pllUploadProtocol = Nothing     , _pllAccessToken = Nothing@@ -115,6 +118,7 @@     , _pllPageSize = Nothing     , _pllCallback = Nothing     }+  -- | V1 error format. pllXgafv :: Lens' ProjectsLocationsList (Maybe Xgafv)

@@ -56,7 +56,7 @@ -- | A resource alias for @file.projects.locations.operations.cancel@ method which the -- 'ProjectsLocationsOperationsCancel' request conforms to. type ProjectsLocationsOperationsCancelResource =-     "v1beta1" :>+     "v1" :>        CaptureMode "name" "cancel" Text :>          QueryParam "$.xgafv" Xgafv :>            QueryParam "upload_protocol" Text :>@@ -78,7 +78,8 @@ -- google.rpc.Status.code of 1, corresponding to \`Code.CANCELLED\`. -- -- /See:/ 'projectsLocationsOperationsCancel' smart constructor.-data ProjectsLocationsOperationsCancel = ProjectsLocationsOperationsCancel'+data ProjectsLocationsOperationsCancel =+  ProjectsLocationsOperationsCancel'     { _plocXgafv          :: !(Maybe Xgafv)     , _plocUploadProtocol :: !(Maybe Text)     , _plocAccessToken    :: !(Maybe Text)@@ -86,8 +87,10 @@     , _plocPayload        :: !CancelOperationRequest     , _plocName           :: !Text     , _plocCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsLocationsOperationsCancel' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -110,7 +113,7 @@     -> Text -- ^ 'plocName'     -> ProjectsLocationsOperationsCancel projectsLocationsOperationsCancel pPlocPayload_ pPlocName_ =-    ProjectsLocationsOperationsCancel'+  ProjectsLocationsOperationsCancel'     { _plocXgafv = Nothing     , _plocUploadProtocol = Nothing     , _plocAccessToken = Nothing@@ -120,6 +123,7 @@     , _plocCallback = Nothing     } + -- | V1 error format. plocXgafv :: Lens' ProjectsLocationsOperationsCancel (Maybe Xgafv) plocXgafv@@ -158,7 +162,8 @@   = lens _plocCallback (\ s a -> s{_plocCallback = a})  instance GoogleRequest-         ProjectsLocationsOperationsCancel where+           ProjectsLocationsOperationsCancel+         where         type Rs ProjectsLocationsOperationsCancel = Empty         type Scopes ProjectsLocationsOperationsCancel =              '["https://www.googleapis.com/auth/cloud-platform"]

@@ -50,7 +50,7 @@ -- | A resource alias for @file.projects.locations.operations.delete@ method which the -- 'ProjectsLocationsOperationsDelete' request conforms to. type ProjectsLocationsOperationsDeleteResource =-     "v1beta1" :>+     "v1" :>        Capture "name" Text :>          QueryParam "$.xgafv" Xgafv :>            QueryParam "upload_protocol" Text :>@@ -65,15 +65,18 @@ -- \`google.rpc.Code.UNIMPLEMENTED\`. -- -- /See:/ 'projectsLocationsOperationsDelete' smart constructor.-data ProjectsLocationsOperationsDelete = ProjectsLocationsOperationsDelete'+data ProjectsLocationsOperationsDelete =+  ProjectsLocationsOperationsDelete'     { _plodXgafv          :: !(Maybe Xgafv)     , _plodUploadProtocol :: !(Maybe Text)     , _plodAccessToken    :: !(Maybe Text)     , _plodUploadType     :: !(Maybe Text)     , _plodName           :: !Text     , _plodCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsLocationsOperationsDelete' 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 -- ^ 'plodName'     -> ProjectsLocationsOperationsDelete projectsLocationsOperationsDelete pPlodName_ =-    ProjectsLocationsOperationsDelete'+  ProjectsLocationsOperationsDelete'     { _plodXgafv = Nothing     , _plodUploadProtocol = Nothing     , _plodAccessToken = Nothing@@ -102,6 +105,7 @@     , _plodCallback = Nothing     } + -- | V1 error format. plodXgafv :: Lens' ProjectsLocationsOperationsDelete (Maybe Xgafv) plodXgafv@@ -135,7 +139,8 @@   = lens _plodCallback (\ s a -> s{_plodCallback = a})  instance GoogleRequest-         ProjectsLocationsOperationsDelete where+           ProjectsLocationsOperationsDelete+         where         type Rs ProjectsLocationsOperationsDelete = Empty         type Scopes ProjectsLocationsOperationsDelete =              '["https://www.googleapis.com/auth/cloud-platform"]

@@ -49,7 +49,7 @@ -- | A resource alias for @file.projects.locations.operations.get@ method which the -- 'ProjectsLocationsOperationsGet' request conforms to. type ProjectsLocationsOperationsGetResource =-     "v1beta1" :>+     "v1" :>        Capture "name" Text :>          QueryParam "$.xgafv" Xgafv :>            QueryParam "upload_protocol" Text :>@@ -63,15 +63,18 @@ -- API service. -- -- /See:/ 'projectsLocationsOperationsGet' smart constructor.-data ProjectsLocationsOperationsGet = ProjectsLocationsOperationsGet'+data ProjectsLocationsOperationsGet =+  ProjectsLocationsOperationsGet'     { _plogXgafv          :: !(Maybe Xgafv)     , _plogUploadProtocol :: !(Maybe Text)     , _plogAccessToken    :: !(Maybe Text)     , _plogUploadType     :: !(Maybe Text)     , _plogName           :: !Text     , _plogCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsLocationsOperationsGet' 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 -- ^ 'plogName'     -> ProjectsLocationsOperationsGet projectsLocationsOperationsGet pPlogName_ =-    ProjectsLocationsOperationsGet'+  ProjectsLocationsOperationsGet'     { _plogXgafv = Nothing     , _plogUploadProtocol = Nothing     , _plogAccessToken = Nothing@@ -99,6 +102,7 @@     , _plogName = pPlogName_     , _plogCallback = Nothing     }+  -- | V1 error format. plogXgafv :: Lens' ProjectsLocationsOperationsGet (Maybe Xgafv)

@@ -59,7 +59,7 @@ -- | A resource alias for @file.projects.locations.operations.list@ method which the -- 'ProjectsLocationsOperationsList' request conforms to. type ProjectsLocationsOperationsListResource =-     "v1beta1" :>+     "v1" :>        Capture "name" Text :>          "operations" :>            QueryParam "$.xgafv" Xgafv :>@@ -85,7 +85,8 @@ -- id. -- -- /See:/ 'projectsLocationsOperationsList' smart constructor.-data ProjectsLocationsOperationsList = ProjectsLocationsOperationsList'+data ProjectsLocationsOperationsList =+  ProjectsLocationsOperationsList'     { _plolXgafv          :: !(Maybe Xgafv)     , _plolUploadProtocol :: !(Maybe Text)     , _plolAccessToken    :: !(Maybe Text)@@ -95,8 +96,10 @@     , _plolPageToken      :: !(Maybe Text)     , _plolPageSize       :: !(Maybe (Textual Int32))     , _plolCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsLocationsOperationsList' 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 -- ^ 'plolName'     -> ProjectsLocationsOperationsList projectsLocationsOperationsList pPlolName_ =-    ProjectsLocationsOperationsList'+  ProjectsLocationsOperationsList'     { _plolXgafv = Nothing     , _plolUploadProtocol = Nothing     , _plolAccessToken = Nothing@@ -134,6 +137,7 @@     , _plolCallback = Nothing     } + -- | V1 error format. plolXgafv :: Lens' ProjectsLocationsOperationsList (Maybe Xgafv) plolXgafv@@ -184,7 +188,8 @@   = lens _plolCallback (\ s a -> s{_plolCallback = a})  instance GoogleRequest-         ProjectsLocationsOperationsList where+           ProjectsLocationsOperationsList+         where         type Rs ProjectsLocationsOperationsList =              ListOperationsResponse         type Scopes ProjectsLocationsOperationsList =

@@ -1,5 +1,5 @@ name:                  gogol-file-version:               0.4.0+version:               0.5.0 synopsis:              Google Cloud Filestore SDK. homepage:              https://github.com/brendanhay/gogol bug-reports:           https://github.com/brendanhay/gogol/issues@@ -20,7 +20,7 @@     /Warning:/ This is an experimental prototype/preview release which is still     under exploratory development and not intended for public use, caveat emptor!     .-    This library is compatible with version @v1beta1@+    This library is compatible with version @v1@     of the API.  source-repository head@@ -53,5 +53,5 @@         , Network.Google.File.Types.Sum      build-depends:-          gogol-core == 0.4.0.*+          gogol-core == 0.5.0.*         , base       >= 4.7 && < 5