gogol-accesscontextmanager 0.4.0 → 0.5.0

raw patch · 25 files changed

+1035/−223 lines, 25 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/AccessContextManager.hs +33/−1
• gen/Network/Google/AccessContextManager/Types.hs +21/−4
• gen/Network/Google/AccessContextManager/Types/Product.hs +297/−129
• gen/Network/Google/AccessContextManager/Types/Sum.hs +2/−13
• gen/Network/Google/Resource/AccessContextManager/AccessPolicies/AccessLevels/Create.hs +10/−5
• gen/Network/Google/Resource/AccessContextManager/AccessPolicies/AccessLevels/Delete.hs +10/−5
• gen/Network/Google/Resource/AccessContextManager/AccessPolicies/AccessLevels/Get.hs +8/−4
• gen/Network/Google/Resource/AccessContextManager/AccessPolicies/AccessLevels/List.hs +8/−4
• gen/Network/Google/Resource/AccessContextManager/AccessPolicies/AccessLevels/Patch.hs +10/−5
• gen/Network/Google/Resource/AccessContextManager/AccessPolicies/Create.hs +8/−4
• gen/Network/Google/Resource/AccessContextManager/AccessPolicies/Delete.hs +8/−4
• gen/Network/Google/Resource/AccessContextManager/AccessPolicies/Get.hs +8/−4
• gen/Network/Google/Resource/AccessContextManager/AccessPolicies/List.hs +8/−4
• gen/Network/Google/Resource/AccessContextManager/AccessPolicies/Patch.hs +8/−4
• gen/Network/Google/Resource/AccessContextManager/AccessPolicies/ServicePerimeters/Create.hs +10/−5
• gen/Network/Google/Resource/AccessContextManager/AccessPolicies/ServicePerimeters/Delete.hs +10/−5
• gen/Network/Google/Resource/AccessContextManager/AccessPolicies/ServicePerimeters/Get.hs +10/−5
• gen/Network/Google/Resource/AccessContextManager/AccessPolicies/ServicePerimeters/List.hs +10/−5
• gen/Network/Google/Resource/AccessContextManager/AccessPolicies/ServicePerimeters/Patch.hs +10/−5
• gen/Network/Google/Resource/AccessContextManager/Operations/Cancel.hs +177/−0
• gen/Network/Google/Resource/AccessContextManager/Operations/Delete.hs +153/−0
• gen/Network/Google/Resource/AccessContextManager/Operations/Get.hs +8/−4
• gen/Network/Google/Resource/AccessContextManager/Operations/List.hs +201/−0
• gogol-accesscontextmanager.cabal +6/−3

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

@@ -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 <brendan.g.hay@gmail.com>+-- 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:/ <https://cloud.google.com/access-context-manager/docs/reference/rest/ Access Context Manager API Reference> 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

@@ -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 <brendan.g.hay@gmail.com>+-- 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:/ <https://cloud.google.com/access-context-manager/docs/reference/rest/ Access Context Manager API Reference> 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

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

@@ -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 <brendan.g.hay@gmail.com>+-- 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:/ <https://cloud.google.com/access-context-manager/docs/reference/rest/ Access Context Manager API Reference> 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

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