diff --git a/README.md b/README.md --- a/README.md +++ b/README.md @@ -8,7 +8,7 @@ ## Version -`0.3.0` +`0.5.0` ## Description diff --git a/gen/Network/Google/AccessContextManager.hs b/gen/Network/Google/AccessContextManager.hs --- a/gen/Network/Google/AccessContextManager.hs +++ b/gen/Network/Google/AccessContextManager.hs @@ -75,9 +75,18 @@ -- ** accesscontextmanager.accessPolicies.servicePerimeters.patch , module Network.Google.Resource.AccessContextManager.AccessPolicies.ServicePerimeters.Patch + -- ** accesscontextmanager.operations.cancel + , module Network.Google.Resource.AccessContextManager.Operations.Cancel + + -- ** accesscontextmanager.operations.delete + , module Network.Google.Resource.AccessContextManager.Operations.Delete + -- ** accesscontextmanager.operations.get , module Network.Google.Resource.AccessContextManager.Operations.Get + -- ** accesscontextmanager.operations.list + , module Network.Google.Resource.AccessContextManager.Operations.List + -- * Types -- ** Status @@ -93,6 +102,16 @@ , blConditions , blCombiningFunction + -- ** ListOperationsResponse + , ListOperationsResponse + , listOperationsResponse + , lorNextPageToken + , lorOperations + + -- ** CancelOperationRequest + , CancelOperationRequest + , cancelOperationRequest + -- ** AccessLevel , AccessLevel , accessLevel @@ -109,7 +128,6 @@ -- ** ServicePerimeterConfig , ServicePerimeterConfig , servicePerimeterConfig - , spcUnrestrictedServices , spcResources , spcRestrictedServices , spcAccessLevels @@ -126,6 +144,10 @@ -- ** ServicePerimeterPerimeterType , ServicePerimeterPerimeterType (..) + -- ** Empty + , Empty + , empty + -- ** OSConstraintOSType , OSConstraintOSType (..) @@ -156,6 +178,7 @@ , osConstraint , ocOSType , ocMinimumVersion + , ocRequireVerifiedChromeOS -- ** AccessPolicy , AccessPolicy @@ -190,6 +213,8 @@ , DevicePolicy , devicePolicy , dpOSConstraints + , dpRequireAdminApproval + , dpRequireCorpOwned , dpRequireScreenlock , dpAllowedEncryptionStatuses , dpAllowedDeviceManagementLevels @@ -198,6 +223,7 @@ , Condition , condition , cMembers + , cRegions , cNegate , cIPSubnetworks , cDevicePolicy @@ -226,7 +252,10 @@ import Network.Google.Resource.AccessContextManager.AccessPolicies.ServicePerimeters.Get import Network.Google.Resource.AccessContextManager.AccessPolicies.ServicePerimeters.List import Network.Google.Resource.AccessContextManager.AccessPolicies.ServicePerimeters.Patch +import Network.Google.Resource.AccessContextManager.Operations.Cancel +import Network.Google.Resource.AccessContextManager.Operations.Delete import Network.Google.Resource.AccessContextManager.Operations.Get +import Network.Google.Resource.AccessContextManager.Operations.List {- $resources TODO @@ -249,4 +278,7 @@ :<|> AccessPoliciesGetResource :<|> AccessPoliciesCreateResource :<|> AccessPoliciesDeleteResource + :<|> OperationsListResource :<|> OperationsGetResource + :<|> OperationsCancelResource + :<|> OperationsDeleteResource diff --git a/gen/Network/Google/AccessContextManager/Types.hs b/gen/Network/Google/AccessContextManager/Types.hs --- a/gen/Network/Google/AccessContextManager/Types.hs +++ b/gen/Network/Google/AccessContextManager/Types.hs @@ -35,6 +35,16 @@ , blConditions , blCombiningFunction + -- * ListOperationsResponse + , ListOperationsResponse + , listOperationsResponse + , lorNextPageToken + , lorOperations + + -- * CancelOperationRequest + , CancelOperationRequest + , cancelOperationRequest + -- * AccessLevel , AccessLevel , accessLevel @@ -51,7 +61,6 @@ -- * ServicePerimeterConfig , ServicePerimeterConfig , servicePerimeterConfig - , spcUnrestrictedServices , spcResources , spcRestrictedServices , spcAccessLevels @@ -68,6 +77,10 @@ -- * ServicePerimeterPerimeterType , ServicePerimeterPerimeterType (..) + -- * Empty + , Empty + , empty + -- * OSConstraintOSType , OSConstraintOSType (..) @@ -98,6 +111,7 @@ , osConstraint , ocOSType , ocMinimumVersion + , ocRequireVerifiedChromeOS -- * AccessPolicy , AccessPolicy @@ -132,6 +146,8 @@ , DevicePolicy , devicePolicy , dpOSConstraints + , dpRequireAdminApproval + , dpRequireCorpOwned , dpRequireScreenlock , dpAllowedEncryptionStatuses , dpAllowedDeviceManagementLevels @@ -140,6 +156,7 @@ , Condition , condition , cMembers + , cRegions , cNegate , cIPSubnetworks , cDevicePolicy @@ -155,13 +172,13 @@ import Network.Google.AccessContextManager.Types.Sum import Network.Google.Prelude --- | Default request referring to version 'v1beta' of the Access Context Manager 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 Access Context Manager API. This contains the host and root path used as a starting point for constructing service requests. accessContextManagerService :: ServiceConfig accessContextManagerService = defaultService - (ServiceId "accesscontextmanager:v1beta") + (ServiceId "accesscontextmanager:v1") "accesscontextmanager.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 diff --git a/gen/Network/Google/AccessContextManager/Types/Product.hs b/gen/Network/Google/AccessContextManager/Types/Product.hs --- a/gen/Network/Google/AccessContextManager/Types/Product.hs +++ b/gen/Network/Google/AccessContextManager/Types/Product.hs @@ -57,12 +57,15 @@ -- security\/privacy reasons. -- -- /See:/ 'status' smart constructor. -data Status = Status' +data Status = + Status' { _sDetails :: !(Maybe [StatusDetailsItem]) , _sCode :: !(Maybe (Textual Int32)) , _sMessage :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Status' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -74,13 +77,9 @@ -- * 'sMessage' status :: Status -status = - Status' - { _sDetails = Nothing - , _sCode = Nothing - , _sMessage = Nothing - } +status = Status' {_sDetails = Nothing, _sCode = Nothing, _sMessage = Nothing} + -- | A list of messages that carry the error details. There is a common set -- of message types for APIs to use. sDetails :: Lens' Status [StatusDetailsItem] @@ -121,11 +120,14 @@ -- features. -- -- /See:/ 'basicLevel' smart constructor. -data BasicLevel = BasicLevel' +data BasicLevel = + BasicLevel' { _blConditions :: !(Maybe [Condition]) , _blCombiningFunction :: !(Maybe BasicLevelCombiningFunction) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'BasicLevel' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -136,11 +138,9 @@ basicLevel :: BasicLevel basicLevel = - BasicLevel' - { _blConditions = Nothing - , _blCombiningFunction = Nothing - } + BasicLevel' {_blConditions = Nothing, _blCombiningFunction = Nothing} + -- | Required. A list of requirements for the \`AccessLevel\` to be granted. blConditions :: Lens' BasicLevel [Condition] blConditions @@ -174,20 +174,100 @@ [("conditions" .=) <$> _blConditions, ("combiningFunction" .=) <$> _blCombiningFunction]) +-- | 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 + -- | An \`AccessLevel\` is a label that can be applied to requests to GCP -- services, along with a list of requirements necessary for the label to -- be applied. -- -- /See:/ 'accessLevel' smart constructor. -data AccessLevel = AccessLevel' +data AccessLevel = + AccessLevel' { _alBasic :: !(Maybe BasicLevel) , _alUpdateTime :: !(Maybe DateTime') , _alName :: !(Maybe Text) , _alTitle :: !(Maybe Text) , _alDescription :: !(Maybe Text) , _alCreateTime :: !(Maybe DateTime') - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'AccessLevel' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -206,7 +286,7 @@ accessLevel :: AccessLevel accessLevel = - AccessLevel' + AccessLevel' { _alBasic = Nothing , _alUpdateTime = Nothing , _alName = Nothing @@ -215,6 +295,7 @@ , _alCreateTime = Nothing } + -- | A \`BasicLevel\` composed of \`Conditions\`. alBasic :: Lens' AccessLevel (Maybe BasicLevel) alBasic = lens _alBasic (\ s a -> s{_alBasic = a}) @@ -274,19 +355,19 @@ -- describe specific Service Perimeter configuration. -- -- /See:/ 'servicePerimeterConfig' smart constructor. -data ServicePerimeterConfig = ServicePerimeterConfig' - { _spcUnrestrictedServices :: !(Maybe [Text]) - , _spcResources :: !(Maybe [Text]) - , _spcRestrictedServices :: !(Maybe [Text]) - , _spcAccessLevels :: !(Maybe [Text]) - } deriving (Eq,Show,Data,Typeable,Generic) +data ServicePerimeterConfig = + ServicePerimeterConfig' + { _spcResources :: !(Maybe [Text]) + , _spcRestrictedServices :: !(Maybe [Text]) + , _spcAccessLevels :: !(Maybe [Text]) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ServicePerimeterConfig' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'spcUnrestrictedServices' --- -- * 'spcResources' -- -- * 'spcRestrictedServices' @@ -295,31 +376,12 @@ servicePerimeterConfig :: ServicePerimeterConfig servicePerimeterConfig = - ServicePerimeterConfig' - { _spcUnrestrictedServices = Nothing - , _spcResources = Nothing + ServicePerimeterConfig' + { _spcResources = Nothing , _spcRestrictedServices = Nothing , _spcAccessLevels = Nothing } --- | GCP services that are not subject to the Service Perimeter restrictions. --- May contain a list of services or a single wildcard \"*\". For example, --- if \`logging.googleapis.com\` is unrestricted, users can access logs --- inside the perimeter as if the perimeter doesn\'t exist, and it also --- means VMs inside the perimeter can access logs outside the perimeter. --- The wildcard means that unless explicitly specified by --- \"restricted_services\" list, any service is treated as unrestricted. --- One of the fields \"restricted_services\", \"unrestricted_services\" --- must contain a wildcard \"*\", otherwise the Service Perimeter --- specification is invalid. It also means that both field being empty is --- invalid as well. \"unrestricted_services\" can be empty if and only if --- \"restricted_services\" list contains a \"*\" wildcard. -spcUnrestrictedServices :: Lens' ServicePerimeterConfig [Text] -spcUnrestrictedServices - = lens _spcUnrestrictedServices - (\ s a -> s{_spcUnrestrictedServices = a}) - . _Default - . _Coerce -- | A list of GCP resources that are inside of the service perimeter. -- Currently only projects are allowed. Format: @@ -330,17 +392,10 @@ . _Default . _Coerce --- | GCP services that are subject to the Service Perimeter restrictions. May --- contain a list of services or a single wildcard \"*\". For example, if --- \`storage.googleapis.com\` is specified, access to the storage buckets --- inside the perimeter must meet the perimeter\'s access restrictions. --- Wildcard means that unless explicitly specified by --- \"unrestricted_services\" list, any service is treated as restricted. --- One of the fields \"restricted_services\", \"unrestricted_services\" --- must contain a wildcard \"*\", otherwise the Service Perimeter --- specification is invalid. It also means that both field being empty is --- invalid as well. \"restricted_services\" can be empty if and only if --- \"unrestricted_services\" list contains a \"*\" wildcard. +-- | GCP services that are subject to the Service Perimeter restrictions. For +-- example, if \`storage.googleapis.com\` is specified, access to the +-- storage buckets inside the perimeter must meet the perimeter\'s access +-- restrictions. spcRestrictedServices :: Lens' ServicePerimeterConfig [Text] spcRestrictedServices = lens _spcRestrictedServices @@ -369,18 +424,15 @@ = withObject "ServicePerimeterConfig" (\ o -> ServicePerimeterConfig' <$> - (o .:? "unrestrictedServices" .!= mempty) <*> - (o .:? "resources" .!= mempty) - <*> (o .:? "restrictedServices" .!= mempty) + (o .:? "resources" .!= mempty) <*> + (o .:? "restrictedServices" .!= mempty) <*> (o .:? "accessLevels" .!= mempty)) instance ToJSON ServicePerimeterConfig where toJSON ServicePerimeterConfig'{..} = object (catMaybes - [("unrestrictedServices" .=) <$> - _spcUnrestrictedServices, - ("resources" .=) <$> _spcResources, + [("resources" .=) <$> _spcResources, ("restrictedServices" .=) <$> _spcRestrictedServices, ("accessLevels" .=) <$> _spcAccessLevels]) @@ -388,14 +440,17 @@ -- a network API call. -- -- /See:/ 'operation' smart constructor. -data Operation = Operation' +data Operation = + Operation' { _oDone :: !(Maybe Bool) , _oError :: !(Maybe Status) , _oResponse :: !(Maybe OperationResponse) , _oName :: !(Maybe Text) , _oMetadata :: !(Maybe OperationMetadata) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Operation' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -412,7 +467,7 @@ operation :: Operation operation = - Operation' + Operation' { _oDone = Nothing , _oError = Nothing , _oResponse = Nothing @@ -420,6 +475,7 @@ , _oMetadata = Nothing } + -- | If the value is \`false\`, it means the operation is still in progress. -- If \`true\`, the operation is completed, and either \`error\` or -- \`response\` is available. @@ -475,6 +531,31 @@ ("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 + -- | \`ServicePerimeter\` describes a set of GCP resources which can freely -- import and export data amongst themselves, but not export outside of the -- \`ServicePerimeter\`. If a request with a source within this @@ -487,7 +568,8 @@ -- multiple Service Perimeter Bridges. -- -- /See:/ 'servicePerimeter' smart constructor. -data ServicePerimeter = ServicePerimeter' +data ServicePerimeter = + ServicePerimeter' { _spStatus :: !(Maybe ServicePerimeterConfig) , _spPerimeterType :: !(Maybe ServicePerimeterPerimeterType) , _spUpdateTime :: !(Maybe DateTime') @@ -495,8 +577,10 @@ , _spTitle :: !(Maybe Text) , _spDescription :: !(Maybe Text) , _spCreateTime :: !(Maybe DateTime') - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ServicePerimeter' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -517,7 +601,7 @@ servicePerimeter :: ServicePerimeter servicePerimeter = - ServicePerimeter' + ServicePerimeter' { _spStatus = Nothing , _spPerimeterType = Nothing , _spUpdateTime = Nothing @@ -527,18 +611,18 @@ , _spCreateTime = Nothing } + -- | Current ServicePerimeter configuration. Specifies sets of resources, --- restricted\/unrestricted services and access levels that determine --- perimeter content and boundaries. +-- restricted services and access levels that determine perimeter content +-- and boundaries. spStatus :: Lens' ServicePerimeter (Maybe ServicePerimeterConfig) spStatus = lens _spStatus (\ s a -> s{_spStatus = a}) -- | Perimeter type indicator. A single project is allowed to be a member of -- single regular perimeter, but multiple service perimeter bridges. A -- project cannot be a included in a perimeter bridge without being --- included in regular perimeter. For perimeter bridges, --- restricted\/unrestricted service lists as well as access lists must be --- empty. +-- included in regular perimeter. For perimeter bridges, the restricted +-- service list as well as access level lists must be empty. spPerimeterType :: Lens' ServicePerimeter (Maybe ServicePerimeterPerimeterType) spPerimeterType = lens _spPerimeterType @@ -600,11 +684,14 @@ -- | A response to \`ListAccessPoliciesRequest\`. -- -- /See:/ 'listAccessPoliciesResponse' smart constructor. -data ListAccessPoliciesResponse = ListAccessPoliciesResponse' +data ListAccessPoliciesResponse = + ListAccessPoliciesResponse' { _laprNextPageToken :: !(Maybe Text) , _laprAccessPolicies :: !(Maybe [AccessPolicy]) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListAccessPoliciesResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -615,11 +702,10 @@ listAccessPoliciesResponse :: ListAccessPoliciesResponse listAccessPoliciesResponse = - ListAccessPoliciesResponse' - { _laprNextPageToken = Nothing - , _laprAccessPolicies = Nothing - } + ListAccessPoliciesResponse' + {_laprNextPageToken = Nothing, _laprAccessPolicies = Nothing} + -- | The pagination token to retrieve the next page of results. If the value -- is empty, no further results remain. laprNextPageToken :: Lens' ListAccessPoliciesResponse (Maybe Text) @@ -652,10 +738,13 @@ -- -- /See:/ 'statusDetailsItem' smart constructor. -newtype StatusDetailsItem = StatusDetailsItem' +newtype StatusDetailsItem = + StatusDetailsItem' { _sdiAddtional :: HashMap Text JSONValue - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'StatusDetailsItem' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -665,10 +754,9 @@ :: HashMap Text JSONValue -- ^ 'sdiAddtional' -> StatusDetailsItem statusDetailsItem pSdiAddtional_ = - StatusDetailsItem' - { _sdiAddtional = _Coerce # pSdiAddtional_ - } + StatusDetailsItem' {_sdiAddtional = _Coerce # pSdiAddtional_} + -- | Properties of the object. Contains field \'type with type URL. sdiAddtional :: Lens' StatusDetailsItem (HashMap Text JSONValue) sdiAddtional @@ -686,11 +774,15 @@ -- | A restriction on the OS type and version of devices making requests. -- -- /See:/ 'osConstraint' smart constructor. -data OSConstraint = OSConstraint' - { _ocOSType :: !(Maybe OSConstraintOSType) - , _ocMinimumVersion :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) +data OSConstraint = + OSConstraint' + { _ocOSType :: !(Maybe OSConstraintOSType) + , _ocMinimumVersion :: !(Maybe Text) + , _ocRequireVerifiedChromeOS :: !(Maybe Bool) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'OSConstraint' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -698,14 +790,18 @@ -- * 'ocOSType' -- -- * 'ocMinimumVersion' +-- +-- * 'ocRequireVerifiedChromeOS' osConstraint :: OSConstraint osConstraint = - OSConstraint' + OSConstraint' { _ocOSType = Nothing , _ocMinimumVersion = Nothing + , _ocRequireVerifiedChromeOS = Nothing } + -- | Required. The allowed OS type. ocOSType :: Lens' OSConstraint (Maybe OSConstraintOSType) ocOSType = lens _ocOSType (\ s a -> s{_ocOSType = a}) @@ -718,19 +814,31 @@ = lens _ocMinimumVersion (\ s a -> s{_ocMinimumVersion = a}) +-- | Only allows requests from devices with a verified Chrome OS. +-- Verifications includes requirements that the device is +-- enterprise-managed, conformant to Dasher domain policies, and the caller +-- has permission to call the API targeted by the request. +ocRequireVerifiedChromeOS :: Lens' OSConstraint (Maybe Bool) +ocRequireVerifiedChromeOS + = lens _ocRequireVerifiedChromeOS + (\ s a -> s{_ocRequireVerifiedChromeOS = a}) + instance FromJSON OSConstraint where parseJSON = withObject "OSConstraint" (\ o -> OSConstraint' <$> - (o .:? "osType") <*> (o .:? "minimumVersion")) + (o .:? "osType") <*> (o .:? "minimumVersion") <*> + (o .:? "requireVerifiedChromeOs")) instance ToJSON OSConstraint where toJSON OSConstraint'{..} = object (catMaybes [("osType" .=) <$> _ocOSType, - ("minimumVersion" .=) <$> _ocMinimumVersion]) + ("minimumVersion" .=) <$> _ocMinimumVersion, + ("requireVerifiedChromeOs" .=) <$> + _ocRequireVerifiedChromeOS]) -- | \`AccessPolicy\` is a container for \`AccessLevels\` (which define the -- necessary attributes to use GCP services) and \`ServicePerimeters\` @@ -740,14 +848,17 @@ -- organization. -- -- /See:/ 'accessPolicy' smart constructor. -data AccessPolicy = AccessPolicy' +data AccessPolicy = + AccessPolicy' { _apParent :: !(Maybe Text) , _apUpdateTime :: !(Maybe DateTime') , _apName :: !(Maybe Text) , _apTitle :: !(Maybe Text) , _apCreateTime :: !(Maybe DateTime') - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'AccessPolicy' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -764,7 +875,7 @@ accessPolicy :: AccessPolicy accessPolicy = - AccessPolicy' + AccessPolicy' { _apParent = Nothing , _apUpdateTime = Nothing , _apName = Nothing @@ -772,6 +883,7 @@ , _apCreateTime = Nothing } + -- | Required. The parent of this \`AccessPolicy\` in the Cloud Resource -- Hierarchy. Currently immutable once created. Format: -- \`organizations\/{organization_id}\` @@ -821,11 +933,14 @@ -- | A response to \`ListServicePerimetersRequest\`. -- -- /See:/ 'listServicePerimetersResponse' smart constructor. -data ListServicePerimetersResponse = ListServicePerimetersResponse' +data ListServicePerimetersResponse = + ListServicePerimetersResponse' { _lsprNextPageToken :: !(Maybe Text) , _lsprServicePerimeters :: !(Maybe [ServicePerimeter]) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListServicePerimetersResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -836,11 +951,10 @@ listServicePerimetersResponse :: ListServicePerimetersResponse listServicePerimetersResponse = - ListServicePerimetersResponse' - { _lsprNextPageToken = Nothing - , _lsprServicePerimeters = Nothing - } + ListServicePerimetersResponse' + {_lsprNextPageToken = Nothing, _lsprServicePerimeters = Nothing} + -- | The pagination token to retrieve the next page of results. If the value -- is empty, no further results remain. lsprNextPageToken :: Lens' ListServicePerimetersResponse (Maybe Text) @@ -874,11 +988,14 @@ -- | A response to \`ListAccessLevelsRequest\`. -- -- /See:/ 'listAccessLevelsResponse' smart constructor. -data ListAccessLevelsResponse = ListAccessLevelsResponse' +data ListAccessLevelsResponse = + ListAccessLevelsResponse' { _lalrNextPageToken :: !(Maybe Text) , _lalrAccessLevels :: !(Maybe [AccessLevel]) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListAccessLevelsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -889,11 +1006,10 @@ listAccessLevelsResponse :: ListAccessLevelsResponse listAccessLevelsResponse = - ListAccessLevelsResponse' - { _lalrNextPageToken = Nothing - , _lalrAccessLevels = Nothing - } + ListAccessLevelsResponse' + {_lalrNextPageToken = Nothing, _lalrAccessLevels = Nothing} + -- | The pagination token to retrieve the next page of results. If the value -- is empty, no further results remain. lalrNextPageToken :: Lens' ListAccessLevelsResponse (Maybe Text) @@ -930,10 +1046,13 @@ -- long-running operation should document the metadata type, if any. -- -- /See:/ 'operationMetadata' smart constructor. -newtype OperationMetadata = OperationMetadata' +newtype OperationMetadata = + OperationMetadata' { _omAddtional :: HashMap Text JSONValue - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'OperationMetadata' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -943,10 +1062,9 @@ :: HashMap Text JSONValue -- ^ 'omAddtional' -> OperationMetadata operationMetadata pOmAddtional_ = - OperationMetadata' - { _omAddtional = _Coerce # pOmAddtional_ - } + OperationMetadata' {_omAddtional = _Coerce # pOmAddtional_} + -- | Properties of the object. Contains field \'type with type URL. omAddtional :: Lens' OperationMetadata (HashMap Text JSONValue) omAddtional @@ -972,19 +1090,28 @@ -- encrypted Linux desktops and encrypted Windows desktops. -- -- /See:/ 'devicePolicy' smart constructor. -data DevicePolicy = DevicePolicy' +data DevicePolicy = + DevicePolicy' { _dpOSConstraints :: !(Maybe [OSConstraint]) + , _dpRequireAdminApproval :: !(Maybe Bool) + , _dpRequireCorpOwned :: !(Maybe Bool) , _dpRequireScreenlock :: !(Maybe Bool) , _dpAllowedEncryptionStatuses :: !(Maybe [Text]) , _dpAllowedDeviceManagementLevels :: !(Maybe [Text]) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'DevicePolicy' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'dpOSConstraints' -- +-- * 'dpRequireAdminApproval' +-- +-- * 'dpRequireCorpOwned' +-- -- * 'dpRequireScreenlock' -- -- * 'dpAllowedEncryptionStatuses' @@ -993,13 +1120,16 @@ devicePolicy :: DevicePolicy devicePolicy = - DevicePolicy' + DevicePolicy' { _dpOSConstraints = Nothing + , _dpRequireAdminApproval = Nothing + , _dpRequireCorpOwned = Nothing , _dpRequireScreenlock = Nothing , _dpAllowedEncryptionStatuses = Nothing , _dpAllowedDeviceManagementLevels = Nothing } + -- | Allowed OS versions, an empty list allows all types and all versions. dpOSConstraints :: Lens' DevicePolicy [OSConstraint] dpOSConstraints @@ -1008,6 +1138,18 @@ . _Default . _Coerce +-- | Whether the device needs to be approved by the customer admin. +dpRequireAdminApproval :: Lens' DevicePolicy (Maybe Bool) +dpRequireAdminApproval + = lens _dpRequireAdminApproval + (\ s a -> s{_dpRequireAdminApproval = a}) + +-- | Whether the device needs to be corp owned. +dpRequireCorpOwned :: Lens' DevicePolicy (Maybe Bool) +dpRequireCorpOwned + = lens _dpRequireCorpOwned + (\ s a -> s{_dpRequireCorpOwned = a}) + -- | Whether or not screenlock is required for the DevicePolicy to be true. -- Defaults to \`false\`. dpRequireScreenlock :: Lens' DevicePolicy (Maybe Bool) @@ -1038,7 +1180,9 @@ (\ o -> DevicePolicy' <$> (o .:? "osConstraints" .!= mempty) <*> - (o .:? "requireScreenlock") + (o .:? "requireAdminApproval") + <*> (o .:? "requireCorpOwned") + <*> (o .:? "requireScreenlock") <*> (o .:? "allowedEncryptionStatuses" .!= mempty) <*> (o .:? "allowedDeviceManagementLevels" .!= mempty)) @@ -1048,6 +1192,9 @@ = object (catMaybes [("osConstraints" .=) <$> _dpOSConstraints, + ("requireAdminApproval" .=) <$> + _dpRequireAdminApproval, + ("requireCorpOwned" .=) <$> _dpRequireCorpOwned, ("requireScreenlock" .=) <$> _dpRequireScreenlock, ("allowedEncryptionStatuses" .=) <$> _dpAllowedEncryptionStatuses, @@ -1062,20 +1209,26 @@ -- DateTimeRestriction. -- -- /See:/ 'condition' smart constructor. -data Condition = Condition' +data Condition = + Condition' { _cMembers :: !(Maybe [Text]) + , _cRegions :: !(Maybe [Text]) , _cNegate :: !(Maybe Bool) , _cIPSubnetworks :: !(Maybe [Text]) , _cDevicePolicy :: !(Maybe DevicePolicy) , _cRequiredAccessLevels :: !(Maybe [Text]) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Condition' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'cMembers' -- +-- * 'cRegions' +-- -- * 'cNegate' -- -- * 'cIPSubnetworks' @@ -1086,24 +1239,34 @@ condition :: Condition condition = - Condition' + Condition' { _cMembers = Nothing + , _cRegions = Nothing , _cNegate = Nothing , _cIPSubnetworks = Nothing , _cDevicePolicy = Nothing , _cRequiredAccessLevels = Nothing } --- | The signed-in user originating the request must be a part of one of the --- provided members. Syntax: \`user:{emailid}\` \`group:{emailid}\` + +-- | The request must be made by one of the provided user or service +-- accounts. Groups are not supported. Syntax: \`user:{emailid}\` -- \`serviceAccount:{emailid}\` If not specified, a request may come from --- any user (logged in\/not logged in, not present in any groups, etc.). +-- any user. cMembers :: Lens' Condition [Text] cMembers = lens _cMembers (\ s a -> s{_cMembers = a}) . _Default . _Coerce +-- | The request must originate from one of the provided countries\/regions. +-- Must be valid ISO 3166-1 alpha-2 codes. +cRegions :: Lens' Condition [Text] +cRegions + = lens _cRegions (\ s a -> s{_cRegions = a}) . + _Default + . _Coerce + -- | Whether to negate the Condition. If true, the Condition becomes a NAND -- over its non-empty fields, each field must be false for the Condition -- overall to be satisfied. Defaults to false. @@ -1149,8 +1312,10 @@ = withObject "Condition" (\ o -> Condition' <$> - (o .:? "members" .!= mempty) <*> (o .:? "negate") <*> - (o .:? "ipSubnetworks" .!= mempty) + (o .:? "members" .!= mempty) <*> + (o .:? "regions" .!= mempty) + <*> (o .:? "negate") + <*> (o .:? "ipSubnetworks" .!= mempty) <*> (o .:? "devicePolicy") <*> (o .:? "requiredAccessLevels" .!= mempty)) @@ -1159,6 +1324,7 @@ = object (catMaybes [("members" .=) <$> _cMembers, + ("regions" .=) <$> _cRegions, ("negate" .=) <$> _cNegate, ("ipSubnetworks" .=) <$> _cIPSubnetworks, ("devicePolicy" .=) <$> _cDevicePolicy, @@ -1175,10 +1341,13 @@ -- \`TakeSnapshotResponse\`. -- -- /See:/ 'operationResponse' smart constructor. -newtype OperationResponse = OperationResponse' +newtype OperationResponse = + OperationResponse' { _orAddtional :: HashMap Text JSONValue - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'OperationResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -1188,9 +1357,8 @@ :: HashMap Text JSONValue -- ^ 'orAddtional' -> OperationResponse operationResponse pOrAddtional_ = - OperationResponse' - { _orAddtional = _Coerce # pOrAddtional_ - } + OperationResponse' {_orAddtional = _Coerce # pOrAddtional_} + -- | Properties of the object. Contains field \'type with type URL. orAddtional :: Lens' OperationResponse (HashMap Text JSONValue) diff --git a/gen/Network/Google/AccessContextManager/Types/Sum.hs b/gen/Network/Google/AccessContextManager/Types/Sum.hs --- a/gen/Network/Google/AccessContextManager/Types/Sum.hs +++ b/gen/Network/Google/AccessContextManager/Types/Sum.hs @@ -55,9 +55,8 @@ -- | Perimeter type indicator. A single project is allowed to be a member of -- single regular perimeter, but multiple service perimeter bridges. A -- project cannot be a included in a perimeter bridge without being --- included in regular perimeter. For perimeter bridges, --- restricted\/unrestricted service lists as well as access lists must be --- empty. +-- included in regular perimeter. For perimeter bridges, the restricted +-- service list as well as access level lists must be empty. data ServicePerimeterPerimeterType = PerimeterTypeRegular -- ^ @PERIMETER_TYPE_REGULAR@ @@ -103,12 +102,6 @@ | DesktopChromeOS -- ^ @DESKTOP_CHROME_OS@ -- A desktop ChromeOS operating system. - | Android - -- ^ @ANDROID@ - -- An Android operating system. - | Ios - -- ^ @IOS@ - -- An iOS operating system. deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) instance Hashable OSConstraintOSType @@ -120,8 +113,6 @@ "DESKTOP_WINDOWS" -> Right DesktopWindows "DESKTOP_LINUX" -> Right DesktopLinux "DESKTOP_CHROME_OS" -> Right DesktopChromeOS - "ANDROID" -> Right Android - "IOS" -> Right Ios x -> Left ("Unable to parse OSConstraintOSType from: " <> x) instance ToHttpApiData OSConstraintOSType where @@ -131,8 +122,6 @@ DesktopWindows -> "DESKTOP_WINDOWS" DesktopLinux -> "DESKTOP_LINUX" DesktopChromeOS -> "DESKTOP_CHROME_OS" - Android -> "ANDROID" - Ios -> "IOS" instance FromJSON OSConstraintOSType where parseJSON = parseJSONText "OSConstraintOSType" diff --git a/gen/Network/Google/Resource/AccessContextManager/AccessPolicies/AccessLevels/Create.hs b/gen/Network/Google/Resource/AccessContextManager/AccessPolicies/AccessLevels/Create.hs --- a/gen/Network/Google/Resource/AccessContextManager/AccessPolicies/AccessLevels/Create.hs +++ b/gen/Network/Google/Resource/AccessContextManager/AccessPolicies/AccessLevels/Create.hs @@ -51,7 +51,7 @@ -- | A resource alias for @accesscontextmanager.accessPolicies.accessLevels.create@ method which the -- 'AccessPoliciesAccessLevelsCreate' request conforms to. type AccessPoliciesAccessLevelsCreateResource = - "v1beta" :> + "v1" :> Capture "parent" Text :> "accessLevels" :> QueryParam "$.xgafv" Xgafv :> @@ -68,7 +68,8 @@ -- error response for the first error encountered. -- -- /See:/ 'accessPoliciesAccessLevelsCreate' smart constructor. -data AccessPoliciesAccessLevelsCreate = AccessPoliciesAccessLevelsCreate' +data AccessPoliciesAccessLevelsCreate = + AccessPoliciesAccessLevelsCreate' { _apalcParent :: !Text , _apalcXgafv :: !(Maybe Xgafv) , _apalcUploadProtocol :: !(Maybe Text) @@ -76,8 +77,10 @@ , _apalcUploadType :: !(Maybe Text) , _apalcPayload :: !AccessLevel , _apalcCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'AccessPoliciesAccessLevelsCreate' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -100,7 +103,7 @@ -> AccessLevel -- ^ 'apalcPayload' -> AccessPoliciesAccessLevelsCreate accessPoliciesAccessLevelsCreate pApalcParent_ pApalcPayload_ = - AccessPoliciesAccessLevelsCreate' + AccessPoliciesAccessLevelsCreate' { _apalcParent = pApalcParent_ , _apalcXgafv = Nothing , _apalcUploadProtocol = Nothing @@ -110,6 +113,7 @@ , _apalcCallback = Nothing } + -- | Required. Resource name for the access policy which owns this Access -- Level. Format: \`accessPolicies\/{policy_id}\` apalcParent :: Lens' AccessPoliciesAccessLevelsCreate Text @@ -151,7 +155,8 @@ (\ s a -> s{_apalcCallback = a}) instance GoogleRequest - AccessPoliciesAccessLevelsCreate where + AccessPoliciesAccessLevelsCreate + where type Rs AccessPoliciesAccessLevelsCreate = Operation type Scopes AccessPoliciesAccessLevelsCreate = '["https://www.googleapis.com/auth/cloud-platform"] diff --git a/gen/Network/Google/Resource/AccessContextManager/AccessPolicies/AccessLevels/Delete.hs b/gen/Network/Google/Resource/AccessContextManager/AccessPolicies/AccessLevels/Delete.hs --- a/gen/Network/Google/Resource/AccessContextManager/AccessPolicies/AccessLevels/Delete.hs +++ b/gen/Network/Google/Resource/AccessContextManager/AccessPolicies/AccessLevels/Delete.hs @@ -49,7 +49,7 @@ -- | A resource alias for @accesscontextmanager.accessPolicies.accessLevels.delete@ method which the -- 'AccessPoliciesAccessLevelsDelete' request conforms to. type AccessPoliciesAccessLevelsDeleteResource = - "v1beta" :> + "v1" :> Capture "name" Text :> QueryParam "$.xgafv" Xgafv :> QueryParam "upload_protocol" Text :> @@ -63,15 +63,18 @@ -- removed from long-lasting storage. -- -- /See:/ 'accessPoliciesAccessLevelsDelete' smart constructor. -data AccessPoliciesAccessLevelsDelete = AccessPoliciesAccessLevelsDelete' +data AccessPoliciesAccessLevelsDelete = + AccessPoliciesAccessLevelsDelete' { _apaldXgafv :: !(Maybe Xgafv) , _apaldUploadProtocol :: !(Maybe Text) , _apaldAccessToken :: !(Maybe Text) , _apaldUploadType :: !(Maybe Text) , _apaldName :: !Text , _apaldCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'AccessPoliciesAccessLevelsDelete' 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 -- ^ 'apaldName' -> AccessPoliciesAccessLevelsDelete accessPoliciesAccessLevelsDelete pApaldName_ = - AccessPoliciesAccessLevelsDelete' + AccessPoliciesAccessLevelsDelete' { _apaldXgafv = Nothing , _apaldUploadProtocol = Nothing , _apaldAccessToken = Nothing @@ -100,6 +103,7 @@ , _apaldCallback = Nothing } + -- | V1 error format. apaldXgafv :: Lens' AccessPoliciesAccessLevelsDelete (Maybe Xgafv) apaldXgafv @@ -136,7 +140,8 @@ (\ s a -> s{_apaldCallback = a}) instance GoogleRequest - AccessPoliciesAccessLevelsDelete where + AccessPoliciesAccessLevelsDelete + where type Rs AccessPoliciesAccessLevelsDelete = Operation type Scopes AccessPoliciesAccessLevelsDelete = '["https://www.googleapis.com/auth/cloud-platform"] diff --git a/gen/Network/Google/Resource/AccessContextManager/AccessPolicies/AccessLevels/Get.hs b/gen/Network/Google/Resource/AccessContextManager/AccessPolicies/AccessLevels/Get.hs --- a/gen/Network/Google/Resource/AccessContextManager/AccessPolicies/AccessLevels/Get.hs +++ b/gen/Network/Google/Resource/AccessContextManager/AccessPolicies/AccessLevels/Get.hs @@ -48,7 +48,7 @@ -- | A resource alias for @accesscontextmanager.accessPolicies.accessLevels.get@ method which the -- 'AccessPoliciesAccessLevelsGet' request conforms to. type AccessPoliciesAccessLevelsGetResource = - "v1beta" :> + "v1" :> Capture "name" Text :> QueryParam "$.xgafv" Xgafv :> QueryParam "upload_protocol" Text :> @@ -61,7 +61,8 @@ -- | Get an Access Level by resource name. -- -- /See:/ 'accessPoliciesAccessLevelsGet' smart constructor. -data AccessPoliciesAccessLevelsGet = AccessPoliciesAccessLevelsGet' +data AccessPoliciesAccessLevelsGet = + AccessPoliciesAccessLevelsGet' { _apalgXgafv :: !(Maybe Xgafv) , _apalgUploadProtocol :: !(Maybe Text) , _apalgAccessToken :: !(Maybe Text) @@ -69,8 +70,10 @@ , _apalgAccessLevelFormat :: !(Maybe Text) , _apalgName :: !Text , _apalgCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'AccessPoliciesAccessLevelsGet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -92,7 +95,7 @@ :: Text -- ^ 'apalgName' -> AccessPoliciesAccessLevelsGet accessPoliciesAccessLevelsGet pApalgName_ = - AccessPoliciesAccessLevelsGet' + AccessPoliciesAccessLevelsGet' { _apalgXgafv = Nothing , _apalgUploadProtocol = Nothing , _apalgAccessToken = Nothing @@ -101,6 +104,7 @@ , _apalgName = pApalgName_ , _apalgCallback = Nothing } + -- | V1 error format. apalgXgafv :: Lens' AccessPoliciesAccessLevelsGet (Maybe Xgafv) diff --git a/gen/Network/Google/Resource/AccessContextManager/AccessPolicies/AccessLevels/List.hs b/gen/Network/Google/Resource/AccessContextManager/AccessPolicies/AccessLevels/List.hs --- a/gen/Network/Google/Resource/AccessContextManager/AccessPolicies/AccessLevels/List.hs +++ b/gen/Network/Google/Resource/AccessContextManager/AccessPolicies/AccessLevels/List.hs @@ -50,7 +50,7 @@ -- | A resource alias for @accesscontextmanager.accessPolicies.accessLevels.list@ method which the -- 'AccessPoliciesAccessLevelsList' request conforms to. type AccessPoliciesAccessLevelsListResource = - "v1beta" :> + "v1" :> Capture "parent" Text :> "accessLevels" :> QueryParam "$.xgafv" Xgafv :> @@ -67,7 +67,8 @@ -- | List all Access Levels for an access policy. -- -- /See:/ 'accessPoliciesAccessLevelsList' smart constructor. -data AccessPoliciesAccessLevelsList = AccessPoliciesAccessLevelsList' +data AccessPoliciesAccessLevelsList = + AccessPoliciesAccessLevelsList' { _apallParent :: !Text , _apallXgafv :: !(Maybe Xgafv) , _apallUploadProtocol :: !(Maybe Text) @@ -77,8 +78,10 @@ , _apallPageToken :: !(Maybe Text) , _apallPageSize :: !(Maybe (Textual Int32)) , _apallCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'AccessPoliciesAccessLevelsList' 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 -- ^ 'apallParent' -> AccessPoliciesAccessLevelsList accessPoliciesAccessLevelsList pApallParent_ = - AccessPoliciesAccessLevelsList' + AccessPoliciesAccessLevelsList' { _apallParent = pApallParent_ , _apallXgafv = Nothing , _apallUploadProtocol = Nothing @@ -115,6 +118,7 @@ , _apallPageSize = Nothing , _apallCallback = Nothing } + -- | Required. Resource name for the access policy to list Access Levels -- from. Format: \`accessPolicies\/{policy_id}\` diff --git a/gen/Network/Google/Resource/AccessContextManager/AccessPolicies/AccessLevels/Patch.hs b/gen/Network/Google/Resource/AccessContextManager/AccessPolicies/AccessLevels/Patch.hs --- a/gen/Network/Google/Resource/AccessContextManager/AccessPolicies/AccessLevels/Patch.hs +++ b/gen/Network/Google/Resource/AccessContextManager/AccessPolicies/AccessLevels/Patch.hs @@ -52,7 +52,7 @@ -- | A resource alias for @accesscontextmanager.accessPolicies.accessLevels.patch@ method which the -- 'AccessPoliciesAccessLevelsPatch' request conforms to. type AccessPoliciesAccessLevelsPatchResource = - "v1beta" :> + "v1" :> Capture "name" Text :> QueryParam "$.xgafv" Xgafv :> QueryParam "upload_protocol" Text :> @@ -70,7 +70,8 @@ -- result in an error response for the first error encountered. -- -- /See:/ 'accessPoliciesAccessLevelsPatch' smart constructor. -data AccessPoliciesAccessLevelsPatch = AccessPoliciesAccessLevelsPatch' +data AccessPoliciesAccessLevelsPatch = + AccessPoliciesAccessLevelsPatch' { _apalpXgafv :: !(Maybe Xgafv) , _apalpUploadProtocol :: !(Maybe Text) , _apalpUpdateMask :: !(Maybe GFieldMask) @@ -79,8 +80,10 @@ , _apalpPayload :: !AccessLevel , _apalpName :: !Text , _apalpCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'AccessPoliciesAccessLevelsPatch' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -105,7 +108,7 @@ -> Text -- ^ 'apalpName' -> AccessPoliciesAccessLevelsPatch accessPoliciesAccessLevelsPatch pApalpPayload_ pApalpName_ = - AccessPoliciesAccessLevelsPatch' + AccessPoliciesAccessLevelsPatch' { _apalpXgafv = Nothing , _apalpUploadProtocol = Nothing , _apalpUpdateMask = Nothing @@ -116,6 +119,7 @@ , _apalpCallback = Nothing } + -- | V1 error format. apalpXgafv :: Lens' AccessPoliciesAccessLevelsPatch (Maybe Xgafv) apalpXgafv @@ -165,7 +169,8 @@ (\ s a -> s{_apalpCallback = a}) instance GoogleRequest - AccessPoliciesAccessLevelsPatch where + AccessPoliciesAccessLevelsPatch + where type Rs AccessPoliciesAccessLevelsPatch = Operation type Scopes AccessPoliciesAccessLevelsPatch = '["https://www.googleapis.com/auth/cloud-platform"] diff --git a/gen/Network/Google/Resource/AccessContextManager/AccessPolicies/Create.hs b/gen/Network/Google/Resource/AccessContextManager/AccessPolicies/Create.hs --- a/gen/Network/Google/Resource/AccessContextManager/AccessPolicies/Create.hs +++ b/gen/Network/Google/Resource/AccessContextManager/AccessPolicies/Create.hs @@ -51,7 +51,7 @@ -- | A resource alias for @accesscontextmanager.accessPolicies.create@ method which the -- 'AccessPoliciesCreate' request conforms to. type AccessPoliciesCreateResource = - "v1beta" :> + "v1" :> "accessPolicies" :> QueryParam "$.xgafv" Xgafv :> QueryParam "upload_protocol" Text :> @@ -69,15 +69,18 @@ -- a BadRequest proto. -- -- /See:/ 'accessPoliciesCreate' smart constructor. -data AccessPoliciesCreate = AccessPoliciesCreate' +data AccessPoliciesCreate = + AccessPoliciesCreate' { _apcXgafv :: !(Maybe Xgafv) , _apcUploadProtocol :: !(Maybe Text) , _apcAccessToken :: !(Maybe Text) , _apcUploadType :: !(Maybe Text) , _apcPayload :: !AccessPolicy , _apcCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'AccessPoliciesCreate' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -97,7 +100,7 @@ :: AccessPolicy -- ^ 'apcPayload' -> AccessPoliciesCreate accessPoliciesCreate pApcPayload_ = - AccessPoliciesCreate' + AccessPoliciesCreate' { _apcXgafv = Nothing , _apcUploadProtocol = Nothing , _apcAccessToken = Nothing @@ -105,6 +108,7 @@ , _apcPayload = pApcPayload_ , _apcCallback = Nothing } + -- | V1 error format. apcXgafv :: Lens' AccessPoliciesCreate (Maybe Xgafv) diff --git a/gen/Network/Google/Resource/AccessContextManager/AccessPolicies/Delete.hs b/gen/Network/Google/Resource/AccessContextManager/AccessPolicies/Delete.hs --- a/gen/Network/Google/Resource/AccessContextManager/AccessPolicies/Delete.hs +++ b/gen/Network/Google/Resource/AccessContextManager/AccessPolicies/Delete.hs @@ -49,7 +49,7 @@ -- | A resource alias for @accesscontextmanager.accessPolicies.delete@ method which the -- 'AccessPoliciesDelete' request conforms to. type AccessPoliciesDeleteResource = - "v1beta" :> + "v1" :> Capture "name" Text :> QueryParam "$.xgafv" Xgafv :> QueryParam "upload_protocol" Text :> @@ -63,15 +63,18 @@ -- long-lasting storage. -- -- /See:/ 'accessPoliciesDelete' smart constructor. -data AccessPoliciesDelete = AccessPoliciesDelete' +data AccessPoliciesDelete = + AccessPoliciesDelete' { _apdXgafv :: !(Maybe Xgafv) , _apdUploadProtocol :: !(Maybe Text) , _apdAccessToken :: !(Maybe Text) , _apdUploadType :: !(Maybe Text) , _apdName :: !Text , _apdCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'AccessPoliciesDelete' 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 -- ^ 'apdName' -> AccessPoliciesDelete accessPoliciesDelete pApdName_ = - AccessPoliciesDelete' + AccessPoliciesDelete' { _apdXgafv = Nothing , _apdUploadProtocol = Nothing , _apdAccessToken = Nothing @@ -99,6 +102,7 @@ , _apdName = pApdName_ , _apdCallback = Nothing } + -- | V1 error format. apdXgafv :: Lens' AccessPoliciesDelete (Maybe Xgafv) diff --git a/gen/Network/Google/Resource/AccessContextManager/AccessPolicies/Get.hs b/gen/Network/Google/Resource/AccessContextManager/AccessPolicies/Get.hs --- a/gen/Network/Google/Resource/AccessContextManager/AccessPolicies/Get.hs +++ b/gen/Network/Google/Resource/AccessContextManager/AccessPolicies/Get.hs @@ -47,7 +47,7 @@ -- | A resource alias for @accesscontextmanager.accessPolicies.get@ method which the -- 'AccessPoliciesGet' request conforms to. type AccessPoliciesGetResource = - "v1beta" :> + "v1" :> Capture "name" Text :> QueryParam "$.xgafv" Xgafv :> QueryParam "upload_protocol" Text :> @@ -59,15 +59,18 @@ -- | Get an AccessPolicy by name. -- -- /See:/ 'accessPoliciesGet' smart constructor. -data AccessPoliciesGet = AccessPoliciesGet' +data AccessPoliciesGet = + AccessPoliciesGet' { _apgXgafv :: !(Maybe Xgafv) , _apgUploadProtocol :: !(Maybe Text) , _apgAccessToken :: !(Maybe Text) , _apgUploadType :: !(Maybe Text) , _apgName :: !Text , _apgCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'AccessPoliciesGet' 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 -- ^ 'apgName' -> AccessPoliciesGet accessPoliciesGet pApgName_ = - AccessPoliciesGet' + AccessPoliciesGet' { _apgXgafv = Nothing , _apgUploadProtocol = Nothing , _apgAccessToken = Nothing @@ -95,6 +98,7 @@ , _apgName = pApgName_ , _apgCallback = Nothing } + -- | V1 error format. apgXgafv :: Lens' AccessPoliciesGet (Maybe Xgafv) diff --git a/gen/Network/Google/Resource/AccessContextManager/AccessPolicies/List.hs b/gen/Network/Google/Resource/AccessContextManager/AccessPolicies/List.hs --- a/gen/Network/Google/Resource/AccessContextManager/AccessPolicies/List.hs +++ b/gen/Network/Google/Resource/AccessContextManager/AccessPolicies/List.hs @@ -49,7 +49,7 @@ -- | A resource alias for @accesscontextmanager.accessPolicies.list@ method which the -- 'AccessPoliciesList' request conforms to. type AccessPoliciesListResource = - "v1beta" :> + "v1" :> "accessPolicies" :> QueryParam "parent" Text :> QueryParam "$.xgafv" Xgafv :> @@ -65,7 +65,8 @@ -- | List all AccessPolicies under a container. -- -- /See:/ 'accessPoliciesList' smart constructor. -data AccessPoliciesList = AccessPoliciesList' +data AccessPoliciesList = + AccessPoliciesList' { _aplParent :: !(Maybe Text) , _aplXgafv :: !(Maybe Xgafv) , _aplUploadProtocol :: !(Maybe Text) @@ -74,8 +75,10 @@ , _aplPageToken :: !(Maybe Text) , _aplPageSize :: !(Maybe (Textual Int32)) , _aplCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'AccessPoliciesList' 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 @@ accessPoliciesList :: AccessPoliciesList accessPoliciesList = - AccessPoliciesList' + AccessPoliciesList' { _aplParent = Nothing , _aplXgafv = Nothing , _aplUploadProtocol = Nothing @@ -108,6 +111,7 @@ , _aplPageSize = Nothing , _aplCallback = Nothing } + -- | Required. Resource name for the container to list AccessPolicy instances -- from. Format: \`organizations\/{org_id}\` diff --git a/gen/Network/Google/Resource/AccessContextManager/AccessPolicies/Patch.hs b/gen/Network/Google/Resource/AccessContextManager/AccessPolicies/Patch.hs --- a/gen/Network/Google/Resource/AccessContextManager/AccessPolicies/Patch.hs +++ b/gen/Network/Google/Resource/AccessContextManager/AccessPolicies/Patch.hs @@ -52,7 +52,7 @@ -- | A resource alias for @accesscontextmanager.accessPolicies.patch@ method which the -- 'AccessPoliciesPatch' request conforms to. type AccessPoliciesPatchResource = - "v1beta" :> + "v1" :> Capture "name" Text :> QueryParam "$.xgafv" Xgafv :> QueryParam "upload_protocol" Text :> @@ -70,7 +70,8 @@ -- will be returned in \`metadata\` as a BadRequest proto. -- -- /See:/ 'accessPoliciesPatch' smart constructor. -data AccessPoliciesPatch = AccessPoliciesPatch' +data AccessPoliciesPatch = + AccessPoliciesPatch' { _appXgafv :: !(Maybe Xgafv) , _appUploadProtocol :: !(Maybe Text) , _appUpdateMask :: !(Maybe GFieldMask) @@ -79,8 +80,10 @@ , _appPayload :: !AccessPolicy , _appName :: !Text , _appCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'AccessPoliciesPatch' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -105,7 +108,7 @@ -> Text -- ^ 'appName' -> AccessPoliciesPatch accessPoliciesPatch pAppPayload_ pAppName_ = - AccessPoliciesPatch' + AccessPoliciesPatch' { _appXgafv = Nothing , _appUploadProtocol = Nothing , _appUpdateMask = Nothing @@ -115,6 +118,7 @@ , _appName = pAppName_ , _appCallback = Nothing } + -- | V1 error format. appXgafv :: Lens' AccessPoliciesPatch (Maybe Xgafv) diff --git a/gen/Network/Google/Resource/AccessContextManager/AccessPolicies/ServicePerimeters/Create.hs b/gen/Network/Google/Resource/AccessContextManager/AccessPolicies/ServicePerimeters/Create.hs --- a/gen/Network/Google/Resource/AccessContextManager/AccessPolicies/ServicePerimeters/Create.hs +++ b/gen/Network/Google/Resource/AccessContextManager/AccessPolicies/ServicePerimeters/Create.hs @@ -51,7 +51,7 @@ -- | A resource alias for @accesscontextmanager.accessPolicies.servicePerimeters.create@ method which the -- 'AccessPoliciesServicePerimetersCreate' request conforms to. type AccessPoliciesServicePerimetersCreateResource = - "v1beta" :> + "v1" :> Capture "parent" Text :> "servicePerimeters" :> QueryParam "$.xgafv" Xgafv :> @@ -69,7 +69,8 @@ -- result in an error response for the first error encountered. -- -- /See:/ 'accessPoliciesServicePerimetersCreate' smart constructor. -data AccessPoliciesServicePerimetersCreate = AccessPoliciesServicePerimetersCreate' +data AccessPoliciesServicePerimetersCreate = + AccessPoliciesServicePerimetersCreate' { _apspcParent :: !Text , _apspcXgafv :: !(Maybe Xgafv) , _apspcUploadProtocol :: !(Maybe Text) @@ -77,8 +78,10 @@ , _apspcUploadType :: !(Maybe Text) , _apspcPayload :: !ServicePerimeter , _apspcCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'AccessPoliciesServicePerimetersCreate' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -101,7 +104,7 @@ -> ServicePerimeter -- ^ 'apspcPayload' -> AccessPoliciesServicePerimetersCreate accessPoliciesServicePerimetersCreate pApspcParent_ pApspcPayload_ = - AccessPoliciesServicePerimetersCreate' + AccessPoliciesServicePerimetersCreate' { _apspcParent = pApspcParent_ , _apspcXgafv = Nothing , _apspcUploadProtocol = Nothing @@ -111,6 +114,7 @@ , _apspcCallback = Nothing } + -- | Required. Resource name for the access policy which owns this Service -- Perimeter. Format: \`accessPolicies\/{policy_id}\` apspcParent :: Lens' AccessPoliciesServicePerimetersCreate Text @@ -152,7 +156,8 @@ (\ s a -> s{_apspcCallback = a}) instance GoogleRequest - AccessPoliciesServicePerimetersCreate where + AccessPoliciesServicePerimetersCreate + where type Rs AccessPoliciesServicePerimetersCreate = Operation type Scopes AccessPoliciesServicePerimetersCreate = diff --git a/gen/Network/Google/Resource/AccessContextManager/AccessPolicies/ServicePerimeters/Delete.hs b/gen/Network/Google/Resource/AccessContextManager/AccessPolicies/ServicePerimeters/Delete.hs --- a/gen/Network/Google/Resource/AccessContextManager/AccessPolicies/ServicePerimeters/Delete.hs +++ b/gen/Network/Google/Resource/AccessContextManager/AccessPolicies/ServicePerimeters/Delete.hs @@ -49,7 +49,7 @@ -- | A resource alias for @accesscontextmanager.accessPolicies.servicePerimeters.delete@ method which the -- 'AccessPoliciesServicePerimetersDelete' request conforms to. type AccessPoliciesServicePerimetersDeleteResource = - "v1beta" :> + "v1" :> Capture "name" Text :> QueryParam "$.xgafv" Xgafv :> QueryParam "upload_protocol" Text :> @@ -63,15 +63,18 @@ -- has been removed from long-lasting storage. -- -- /See:/ 'accessPoliciesServicePerimetersDelete' smart constructor. -data AccessPoliciesServicePerimetersDelete = AccessPoliciesServicePerimetersDelete' +data AccessPoliciesServicePerimetersDelete = + AccessPoliciesServicePerimetersDelete' { _apspdXgafv :: !(Maybe Xgafv) , _apspdUploadProtocol :: !(Maybe Text) , _apspdAccessToken :: !(Maybe Text) , _apspdUploadType :: !(Maybe Text) , _apspdName :: !Text , _apspdCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'AccessPoliciesServicePerimetersDelete' 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 -- ^ 'apspdName' -> AccessPoliciesServicePerimetersDelete accessPoliciesServicePerimetersDelete pApspdName_ = - AccessPoliciesServicePerimetersDelete' + AccessPoliciesServicePerimetersDelete' { _apspdXgafv = Nothing , _apspdUploadProtocol = Nothing , _apspdAccessToken = Nothing @@ -100,6 +103,7 @@ , _apspdCallback = Nothing } + -- | V1 error format. apspdXgafv :: Lens' AccessPoliciesServicePerimetersDelete (Maybe Xgafv) apspdXgafv @@ -136,7 +140,8 @@ (\ s a -> s{_apspdCallback = a}) instance GoogleRequest - AccessPoliciesServicePerimetersDelete where + AccessPoliciesServicePerimetersDelete + where type Rs AccessPoliciesServicePerimetersDelete = Operation type Scopes AccessPoliciesServicePerimetersDelete = diff --git a/gen/Network/Google/Resource/AccessContextManager/AccessPolicies/ServicePerimeters/Get.hs b/gen/Network/Google/Resource/AccessContextManager/AccessPolicies/ServicePerimeters/Get.hs --- a/gen/Network/Google/Resource/AccessContextManager/AccessPolicies/ServicePerimeters/Get.hs +++ b/gen/Network/Google/Resource/AccessContextManager/AccessPolicies/ServicePerimeters/Get.hs @@ -47,7 +47,7 @@ -- | A resource alias for @accesscontextmanager.accessPolicies.servicePerimeters.get@ method which the -- 'AccessPoliciesServicePerimetersGet' request conforms to. type AccessPoliciesServicePerimetersGetResource = - "v1beta" :> + "v1" :> Capture "name" Text :> QueryParam "$.xgafv" Xgafv :> QueryParam "upload_protocol" Text :> @@ -60,15 +60,18 @@ -- | Get an Service Perimeter by resource name. -- -- /See:/ 'accessPoliciesServicePerimetersGet' smart constructor. -data AccessPoliciesServicePerimetersGet = AccessPoliciesServicePerimetersGet' +data AccessPoliciesServicePerimetersGet = + AccessPoliciesServicePerimetersGet' { _apspgXgafv :: !(Maybe Xgafv) , _apspgUploadProtocol :: !(Maybe Text) , _apspgAccessToken :: !(Maybe Text) , _apspgUploadType :: !(Maybe Text) , _apspgName :: !Text , _apspgCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'AccessPoliciesServicePerimetersGet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -88,7 +91,7 @@ :: Text -- ^ 'apspgName' -> AccessPoliciesServicePerimetersGet accessPoliciesServicePerimetersGet pApspgName_ = - AccessPoliciesServicePerimetersGet' + AccessPoliciesServicePerimetersGet' { _apspgXgafv = Nothing , _apspgUploadProtocol = Nothing , _apspgAccessToken = Nothing @@ -97,6 +100,7 @@ , _apspgCallback = Nothing } + -- | V1 error format. apspgXgafv :: Lens' AccessPoliciesServicePerimetersGet (Maybe Xgafv) apspgXgafv @@ -133,7 +137,8 @@ (\ s a -> s{_apspgCallback = a}) instance GoogleRequest - AccessPoliciesServicePerimetersGet where + AccessPoliciesServicePerimetersGet + where type Rs AccessPoliciesServicePerimetersGet = ServicePerimeter type Scopes AccessPoliciesServicePerimetersGet = diff --git a/gen/Network/Google/Resource/AccessContextManager/AccessPolicies/ServicePerimeters/List.hs b/gen/Network/Google/Resource/AccessContextManager/AccessPolicies/ServicePerimeters/List.hs --- a/gen/Network/Google/Resource/AccessContextManager/AccessPolicies/ServicePerimeters/List.hs +++ b/gen/Network/Google/Resource/AccessContextManager/AccessPolicies/ServicePerimeters/List.hs @@ -49,7 +49,7 @@ -- | A resource alias for @accesscontextmanager.accessPolicies.servicePerimeters.list@ method which the -- 'AccessPoliciesServicePerimetersList' request conforms to. type AccessPoliciesServicePerimetersListResource = - "v1beta" :> + "v1" :> Capture "parent" Text :> "servicePerimeters" :> QueryParam "$.xgafv" Xgafv :> @@ -65,7 +65,8 @@ -- | List all Service Perimeters for an access policy. -- -- /See:/ 'accessPoliciesServicePerimetersList' smart constructor. -data AccessPoliciesServicePerimetersList = AccessPoliciesServicePerimetersList' +data AccessPoliciesServicePerimetersList = + AccessPoliciesServicePerimetersList' { _apsplParent :: !Text , _apsplXgafv :: !(Maybe Xgafv) , _apsplUploadProtocol :: !(Maybe Text) @@ -74,8 +75,10 @@ , _apsplPageToken :: !(Maybe Text) , _apsplPageSize :: !(Maybe (Textual Int32)) , _apsplCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'AccessPoliciesServicePerimetersList' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -99,7 +102,7 @@ :: Text -- ^ 'apsplParent' -> AccessPoliciesServicePerimetersList accessPoliciesServicePerimetersList pApsplParent_ = - AccessPoliciesServicePerimetersList' + AccessPoliciesServicePerimetersList' { _apsplParent = pApsplParent_ , _apsplXgafv = Nothing , _apsplUploadProtocol = Nothing @@ -110,6 +113,7 @@ , _apsplCallback = Nothing } + -- | Required. Resource name for the access policy to list Service Perimeters -- from. Format: \`accessPolicies\/{policy_id}\` apsplParent :: Lens' AccessPoliciesServicePerimetersList Text @@ -160,7 +164,8 @@ (\ s a -> s{_apsplCallback = a}) instance GoogleRequest - AccessPoliciesServicePerimetersList where + AccessPoliciesServicePerimetersList + where type Rs AccessPoliciesServicePerimetersList = ListServicePerimetersResponse type Scopes AccessPoliciesServicePerimetersList = diff --git a/gen/Network/Google/Resource/AccessContextManager/AccessPolicies/ServicePerimeters/Patch.hs b/gen/Network/Google/Resource/AccessContextManager/AccessPolicies/ServicePerimeters/Patch.hs --- a/gen/Network/Google/Resource/AccessContextManager/AccessPolicies/ServicePerimeters/Patch.hs +++ b/gen/Network/Google/Resource/AccessContextManager/AccessPolicies/ServicePerimeters/Patch.hs @@ -52,7 +52,7 @@ -- | A resource alias for @accesscontextmanager.accessPolicies.servicePerimeters.patch@ method which the -- 'AccessPoliciesServicePerimetersPatch' request conforms to. type AccessPoliciesServicePerimetersPatchResource = - "v1beta" :> + "v1" :> Capture "name" Text :> QueryParam "$.xgafv" Xgafv :> QueryParam "upload_protocol" Text :> @@ -70,7 +70,8 @@ -- errors will result in an error response for the first error encountered. -- -- /See:/ 'accessPoliciesServicePerimetersPatch' smart constructor. -data AccessPoliciesServicePerimetersPatch = AccessPoliciesServicePerimetersPatch' +data AccessPoliciesServicePerimetersPatch = + AccessPoliciesServicePerimetersPatch' { _apsppXgafv :: !(Maybe Xgafv) , _apsppUploadProtocol :: !(Maybe Text) , _apsppUpdateMask :: !(Maybe GFieldMask) @@ -79,8 +80,10 @@ , _apsppPayload :: !ServicePerimeter , _apsppName :: !Text , _apsppCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'AccessPoliciesServicePerimetersPatch' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -105,7 +108,7 @@ -> Text -- ^ 'apsppName' -> AccessPoliciesServicePerimetersPatch accessPoliciesServicePerimetersPatch pApsppPayload_ pApsppName_ = - AccessPoliciesServicePerimetersPatch' + AccessPoliciesServicePerimetersPatch' { _apsppXgafv = Nothing , _apsppUploadProtocol = Nothing , _apsppUpdateMask = Nothing @@ -116,6 +119,7 @@ , _apsppCallback = Nothing } + -- | V1 error format. apsppXgafv :: Lens' AccessPoliciesServicePerimetersPatch (Maybe Xgafv) apsppXgafv @@ -165,7 +169,8 @@ (\ s a -> s{_apsppCallback = a}) instance GoogleRequest - AccessPoliciesServicePerimetersPatch where + AccessPoliciesServicePerimetersPatch + where type Rs AccessPoliciesServicePerimetersPatch = Operation type Scopes AccessPoliciesServicePerimetersPatch = diff --git a/gen/Network/Google/Resource/AccessContextManager/Operations/Cancel.hs b/gen/Network/Google/Resource/AccessContextManager/Operations/Cancel.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/AccessContextManager/Operations/Cancel.hs @@ -0,0 +1,177 @@ +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE DeriveDataTypeable #-} +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE TypeFamilies #-} +{-# LANGUAGE TypeOperators #-} + +{-# OPTIONS_GHC -fno-warn-duplicate-exports #-} +{-# OPTIONS_GHC -fno-warn-unused-binds #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- | +-- Module : Network.Google.Resource.AccessContextManager.Operations.Cancel +-- Copyright : (c) 2015-2016 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Starts asynchronous cancellation on a long-running operation. The server +-- makes a best effort to cancel the operation, but success is not +-- guaranteed. If the server doesn\'t support this method, it returns +-- \`google.rpc.Code.UNIMPLEMENTED\`. Clients can use +-- Operations.GetOperation or other methods to check whether the +-- cancellation succeeded or whether the operation completed despite +-- cancellation. On successful cancellation, the operation is not deleted; +-- instead, it becomes an operation with an Operation.error value with a +-- google.rpc.Status.code of 1, corresponding to \`Code.CANCELLED\`. +-- +-- /See:/ for @accesscontextmanager.operations.cancel@. +module Network.Google.Resource.AccessContextManager.Operations.Cancel + ( + -- * REST Resource + OperationsCancelResource + + -- * Creating a Request + , operationsCancel + , OperationsCancel + + -- * Request Lenses + , ocXgafv + , ocUploadProtocol + , ocAccessToken + , ocUploadType + , ocPayload + , ocName + , ocCallback + ) where + +import Network.Google.AccessContextManager.Types +import Network.Google.Prelude + +-- | A resource alias for @accesscontextmanager.operations.cancel@ method which the +-- 'OperationsCancel' request conforms to. +type OperationsCancelResource = + "v1" :> + CaptureMode "name" "cancel" Text :> + QueryParam "$.xgafv" Xgafv :> + QueryParam "upload_protocol" Text :> + QueryParam "access_token" Text :> + QueryParam "uploadType" Text :> + QueryParam "callback" Text :> + QueryParam "alt" AltJSON :> + ReqBody '[JSON] CancelOperationRequest :> + Post '[JSON] Empty + +-- | Starts asynchronous cancellation on a long-running operation. The server +-- makes a best effort to cancel the operation, but success is not +-- guaranteed. If the server doesn\'t support this method, it returns +-- \`google.rpc.Code.UNIMPLEMENTED\`. Clients can use +-- Operations.GetOperation or other methods to check whether the +-- cancellation succeeded or whether the operation completed despite +-- cancellation. On successful cancellation, the operation is not deleted; +-- instead, it becomes an operation with an Operation.error value with a +-- google.rpc.Status.code of 1, corresponding to \`Code.CANCELLED\`. +-- +-- /See:/ 'operationsCancel' smart constructor. +data OperationsCancel = + OperationsCancel' + { _ocXgafv :: !(Maybe Xgafv) + , _ocUploadProtocol :: !(Maybe Text) + , _ocAccessToken :: !(Maybe Text) + , _ocUploadType :: !(Maybe Text) + , _ocPayload :: !CancelOperationRequest + , _ocName :: !Text + , _ocCallback :: !(Maybe Text) + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'OperationsCancel' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'ocXgafv' +-- +-- * 'ocUploadProtocol' +-- +-- * 'ocAccessToken' +-- +-- * 'ocUploadType' +-- +-- * 'ocPayload' +-- +-- * 'ocName' +-- +-- * 'ocCallback' +operationsCancel + :: CancelOperationRequest -- ^ 'ocPayload' + -> Text -- ^ 'ocName' + -> OperationsCancel +operationsCancel pOcPayload_ pOcName_ = + OperationsCancel' + { _ocXgafv = Nothing + , _ocUploadProtocol = Nothing + , _ocAccessToken = Nothing + , _ocUploadType = Nothing + , _ocPayload = pOcPayload_ + , _ocName = pOcName_ + , _ocCallback = Nothing + } + + +-- | V1 error format. +ocXgafv :: Lens' OperationsCancel (Maybe Xgafv) +ocXgafv = lens _ocXgafv (\ s a -> s{_ocXgafv = a}) + +-- | Upload protocol for media (e.g. \"raw\", \"multipart\"). +ocUploadProtocol :: Lens' OperationsCancel (Maybe Text) +ocUploadProtocol + = lens _ocUploadProtocol + (\ s a -> s{_ocUploadProtocol = a}) + +-- | OAuth access token. +ocAccessToken :: Lens' OperationsCancel (Maybe Text) +ocAccessToken + = lens _ocAccessToken + (\ s a -> s{_ocAccessToken = a}) + +-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\"). +ocUploadType :: Lens' OperationsCancel (Maybe Text) +ocUploadType + = lens _ocUploadType (\ s a -> s{_ocUploadType = a}) + +-- | Multipart request metadata. +ocPayload :: Lens' OperationsCancel CancelOperationRequest +ocPayload + = lens _ocPayload (\ s a -> s{_ocPayload = a}) + +-- | The name of the operation resource to be cancelled. +ocName :: Lens' OperationsCancel Text +ocName = lens _ocName (\ s a -> s{_ocName = a}) + +-- | JSONP +ocCallback :: Lens' OperationsCancel (Maybe Text) +ocCallback + = lens _ocCallback (\ s a -> s{_ocCallback = a}) + +instance GoogleRequest OperationsCancel where + type Rs OperationsCancel = Empty + type Scopes OperationsCancel = + '["https://www.googleapis.com/auth/cloud-platform"] + requestClient OperationsCancel'{..} + = go _ocName _ocXgafv _ocUploadProtocol + _ocAccessToken + _ocUploadType + _ocCallback + (Just AltJSON) + _ocPayload + accessContextManagerService + where go + = buildClient + (Proxy :: Proxy OperationsCancelResource) + mempty diff --git a/gen/Network/Google/Resource/AccessContextManager/Operations/Delete.hs b/gen/Network/Google/Resource/AccessContextManager/Operations/Delete.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/AccessContextManager/Operations/Delete.hs @@ -0,0 +1,153 @@ +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE DeriveDataTypeable #-} +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE TypeFamilies #-} +{-# LANGUAGE TypeOperators #-} + +{-# OPTIONS_GHC -fno-warn-duplicate-exports #-} +{-# OPTIONS_GHC -fno-warn-unused-binds #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- | +-- Module : Network.Google.Resource.AccessContextManager.Operations.Delete +-- Copyright : (c) 2015-2016 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Deletes a long-running operation. This method indicates that the client +-- is no longer interested in the operation result. It does not cancel the +-- operation. If the server doesn\'t support this method, it returns +-- \`google.rpc.Code.UNIMPLEMENTED\`. +-- +-- /See:/ for @accesscontextmanager.operations.delete@. +module Network.Google.Resource.AccessContextManager.Operations.Delete + ( + -- * REST Resource + OperationsDeleteResource + + -- * Creating a Request + , operationsDelete + , OperationsDelete + + -- * Request Lenses + , odXgafv + , odUploadProtocol + , odAccessToken + , odUploadType + , odName + , odCallback + ) where + +import Network.Google.AccessContextManager.Types +import Network.Google.Prelude + +-- | A resource alias for @accesscontextmanager.operations.delete@ method which the +-- 'OperationsDelete' request conforms to. +type OperationsDeleteResource = + "v1" :> + Capture "name" Text :> + QueryParam "$.xgafv" Xgafv :> + QueryParam "upload_protocol" Text :> + QueryParam "access_token" Text :> + QueryParam "uploadType" Text :> + QueryParam "callback" Text :> + QueryParam "alt" AltJSON :> Delete '[JSON] Empty + +-- | Deletes a long-running operation. This method indicates that the client +-- is no longer interested in the operation result. It does not cancel the +-- operation. If the server doesn\'t support this method, it returns +-- \`google.rpc.Code.UNIMPLEMENTED\`. +-- +-- /See:/ 'operationsDelete' smart constructor. +data OperationsDelete = + OperationsDelete' + { _odXgafv :: !(Maybe Xgafv) + , _odUploadProtocol :: !(Maybe Text) + , _odAccessToken :: !(Maybe Text) + , _odUploadType :: !(Maybe Text) + , _odName :: !Text + , _odCallback :: !(Maybe Text) + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'OperationsDelete' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'odXgafv' +-- +-- * 'odUploadProtocol' +-- +-- * 'odAccessToken' +-- +-- * 'odUploadType' +-- +-- * 'odName' +-- +-- * 'odCallback' +operationsDelete + :: Text -- ^ 'odName' + -> OperationsDelete +operationsDelete pOdName_ = + OperationsDelete' + { _odXgafv = Nothing + , _odUploadProtocol = Nothing + , _odAccessToken = Nothing + , _odUploadType = Nothing + , _odName = pOdName_ + , _odCallback = Nothing + } + + +-- | V1 error format. +odXgafv :: Lens' OperationsDelete (Maybe Xgafv) +odXgafv = lens _odXgafv (\ s a -> s{_odXgafv = a}) + +-- | Upload protocol for media (e.g. \"raw\", \"multipart\"). +odUploadProtocol :: Lens' OperationsDelete (Maybe Text) +odUploadProtocol + = lens _odUploadProtocol + (\ s a -> s{_odUploadProtocol = a}) + +-- | OAuth access token. +odAccessToken :: Lens' OperationsDelete (Maybe Text) +odAccessToken + = lens _odAccessToken + (\ s a -> s{_odAccessToken = a}) + +-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\"). +odUploadType :: Lens' OperationsDelete (Maybe Text) +odUploadType + = lens _odUploadType (\ s a -> s{_odUploadType = a}) + +-- | The name of the operation resource to be deleted. +odName :: Lens' OperationsDelete Text +odName = lens _odName (\ s a -> s{_odName = a}) + +-- | JSONP +odCallback :: Lens' OperationsDelete (Maybe Text) +odCallback + = lens _odCallback (\ s a -> s{_odCallback = a}) + +instance GoogleRequest OperationsDelete where + type Rs OperationsDelete = Empty + type Scopes OperationsDelete = + '["https://www.googleapis.com/auth/cloud-platform"] + requestClient OperationsDelete'{..} + = go _odName _odXgafv _odUploadProtocol + _odAccessToken + _odUploadType + _odCallback + (Just AltJSON) + accessContextManagerService + where go + = buildClient + (Proxy :: Proxy OperationsDeleteResource) + mempty diff --git a/gen/Network/Google/Resource/AccessContextManager/Operations/Get.hs b/gen/Network/Google/Resource/AccessContextManager/Operations/Get.hs --- a/gen/Network/Google/Resource/AccessContextManager/Operations/Get.hs +++ b/gen/Network/Google/Resource/AccessContextManager/Operations/Get.hs @@ -49,7 +49,7 @@ -- | A resource alias for @accesscontextmanager.operations.get@ method which the -- 'OperationsGet' request conforms to. type OperationsGetResource = - "v1beta" :> + "v1" :> Capture "name" Text :> QueryParam "$.xgafv" Xgafv :> QueryParam "upload_protocol" Text :> @@ -63,15 +63,18 @@ -- API service. -- -- /See:/ 'operationsGet' smart constructor. -data OperationsGet = OperationsGet' +data OperationsGet = + OperationsGet' { _ogXgafv :: !(Maybe Xgafv) , _ogUploadProtocol :: !(Maybe Text) , _ogAccessToken :: !(Maybe Text) , _ogUploadType :: !(Maybe Text) , _ogName :: !Text , _ogCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'OperationsGet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -91,7 +94,7 @@ :: Text -- ^ 'ogName' -> OperationsGet operationsGet pOgName_ = - OperationsGet' + OperationsGet' { _ogXgafv = Nothing , _ogUploadProtocol = Nothing , _ogAccessToken = Nothing @@ -99,6 +102,7 @@ , _ogName = pOgName_ , _ogCallback = Nothing } + -- | V1 error format. ogXgafv :: Lens' OperationsGet (Maybe Xgafv) diff --git a/gen/Network/Google/Resource/AccessContextManager/Operations/List.hs b/gen/Network/Google/Resource/AccessContextManager/Operations/List.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/AccessContextManager/Operations/List.hs @@ -0,0 +1,201 @@ +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE DeriveDataTypeable #-} +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE TypeFamilies #-} +{-# LANGUAGE TypeOperators #-} + +{-# OPTIONS_GHC -fno-warn-duplicate-exports #-} +{-# OPTIONS_GHC -fno-warn-unused-binds #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- | +-- Module : Network.Google.Resource.AccessContextManager.Operations.List +-- Copyright : (c) 2015-2016 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Lists operations that match the specified filter in the request. If the +-- server doesn\'t support this method, it returns \`UNIMPLEMENTED\`. NOTE: +-- the \`name\` binding allows API services to override the binding to use +-- different resource name schemes, such as \`users\/*\/operations\`. To +-- override the binding, API services can add a binding such as +-- \`\"\/v1\/{name=users\/*}\/operations\"\` to their service +-- configuration. For backwards compatibility, the default name includes +-- the operations collection id, however overriding users must ensure the +-- name binding is the parent resource, without the operations collection +-- id. +-- +-- /See:/ for @accesscontextmanager.operations.list@. +module Network.Google.Resource.AccessContextManager.Operations.List + ( + -- * REST Resource + OperationsListResource + + -- * Creating a Request + , operationsList + , OperationsList + + -- * Request Lenses + , olXgafv + , olUploadProtocol + , olAccessToken + , olUploadType + , olName + , olFilter + , olPageToken + , olPageSize + , olCallback + ) where + +import Network.Google.AccessContextManager.Types +import Network.Google.Prelude + +-- | A resource alias for @accesscontextmanager.operations.list@ method which the +-- 'OperationsList' request conforms to. +type OperationsListResource = + "v1" :> + Capture "name" Text :> + QueryParam "$.xgafv" Xgafv :> + QueryParam "upload_protocol" Text :> + QueryParam "access_token" Text :> + QueryParam "uploadType" Text :> + QueryParam "filter" Text :> + QueryParam "pageToken" Text :> + QueryParam "pageSize" (Textual Int32) :> + QueryParam "callback" Text :> + QueryParam "alt" AltJSON :> + Get '[JSON] ListOperationsResponse + +-- | Lists operations that match the specified filter in the request. If the +-- server doesn\'t support this method, it returns \`UNIMPLEMENTED\`. NOTE: +-- the \`name\` binding allows API services to override the binding to use +-- different resource name schemes, such as \`users\/*\/operations\`. To +-- override the binding, API services can add a binding such as +-- \`\"\/v1\/{name=users\/*}\/operations\"\` to their service +-- configuration. For backwards compatibility, the default name includes +-- the operations collection id, however overriding users must ensure the +-- name binding is the parent resource, without the operations collection +-- id. +-- +-- /See:/ 'operationsList' smart constructor. +data OperationsList = + OperationsList' + { _olXgafv :: !(Maybe Xgafv) + , _olUploadProtocol :: !(Maybe Text) + , _olAccessToken :: !(Maybe Text) + , _olUploadType :: !(Maybe Text) + , _olName :: !Text + , _olFilter :: !(Maybe Text) + , _olPageToken :: !(Maybe Text) + , _olPageSize :: !(Maybe (Textual Int32)) + , _olCallback :: !(Maybe Text) + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'OperationsList' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'olXgafv' +-- +-- * 'olUploadProtocol' +-- +-- * 'olAccessToken' +-- +-- * 'olUploadType' +-- +-- * 'olName' +-- +-- * 'olFilter' +-- +-- * 'olPageToken' +-- +-- * 'olPageSize' +-- +-- * 'olCallback' +operationsList + :: Text -- ^ 'olName' + -> OperationsList +operationsList pOlName_ = + OperationsList' + { _olXgafv = Nothing + , _olUploadProtocol = Nothing + , _olAccessToken = Nothing + , _olUploadType = Nothing + , _olName = pOlName_ + , _olFilter = Nothing + , _olPageToken = Nothing + , _olPageSize = Nothing + , _olCallback = Nothing + } + + +-- | V1 error format. +olXgafv :: Lens' OperationsList (Maybe Xgafv) +olXgafv = lens _olXgafv (\ s a -> s{_olXgafv = a}) + +-- | Upload protocol for media (e.g. \"raw\", \"multipart\"). +olUploadProtocol :: Lens' OperationsList (Maybe Text) +olUploadProtocol + = lens _olUploadProtocol + (\ s a -> s{_olUploadProtocol = a}) + +-- | OAuth access token. +olAccessToken :: Lens' OperationsList (Maybe Text) +olAccessToken + = lens _olAccessToken + (\ s a -> s{_olAccessToken = a}) + +-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\"). +olUploadType :: Lens' OperationsList (Maybe Text) +olUploadType + = lens _olUploadType (\ s a -> s{_olUploadType = a}) + +-- | The name of the operation\'s parent resource. +olName :: Lens' OperationsList Text +olName = lens _olName (\ s a -> s{_olName = a}) + +-- | The standard list filter. +olFilter :: Lens' OperationsList (Maybe Text) +olFilter = lens _olFilter (\ s a -> s{_olFilter = a}) + +-- | The standard list page token. +olPageToken :: Lens' OperationsList (Maybe Text) +olPageToken + = lens _olPageToken (\ s a -> s{_olPageToken = a}) + +-- | The standard list page size. +olPageSize :: Lens' OperationsList (Maybe Int32) +olPageSize + = lens _olPageSize (\ s a -> s{_olPageSize = a}) . + mapping _Coerce + +-- | JSONP +olCallback :: Lens' OperationsList (Maybe Text) +olCallback + = lens _olCallback (\ s a -> s{_olCallback = a}) + +instance GoogleRequest OperationsList where + type Rs OperationsList = ListOperationsResponse + type Scopes OperationsList = + '["https://www.googleapis.com/auth/cloud-platform"] + requestClient OperationsList'{..} + = go _olName _olXgafv _olUploadProtocol + _olAccessToken + _olUploadType + _olFilter + _olPageToken + _olPageSize + _olCallback + (Just AltJSON) + accessContextManagerService + where go + = buildClient (Proxy :: Proxy OperationsListResource) + mempty diff --git a/gogol-accesscontextmanager.cabal b/gogol-accesscontextmanager.cabal --- a/gogol-accesscontextmanager.cabal +++ b/gogol-accesscontextmanager.cabal @@ -1,5 +1,5 @@ name: gogol-accesscontextmanager -version: 0.4.0 +version: 0.5.0 synopsis: Google Access Context Manager 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 @v1beta@ + This library is compatible with version @v1@ of the API. source-repository head @@ -51,12 +51,15 @@ , Network.Google.Resource.AccessContextManager.AccessPolicies.ServicePerimeters.Get , Network.Google.Resource.AccessContextManager.AccessPolicies.ServicePerimeters.List , Network.Google.Resource.AccessContextManager.AccessPolicies.ServicePerimeters.Patch + , Network.Google.Resource.AccessContextManager.Operations.Cancel + , Network.Google.Resource.AccessContextManager.Operations.Delete , Network.Google.Resource.AccessContextManager.Operations.Get + , Network.Google.Resource.AccessContextManager.Operations.List other-modules: Network.Google.AccessContextManager.Types.Product , Network.Google.AccessContextManager.Types.Sum build-depends: - gogol-core == 0.4.0.* + gogol-core == 0.5.0.* , base >= 4.7 && < 5