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/Billing.hs b/gen/Network/Google/Billing.hs --- a/gen/Network/Google/Billing.hs +++ b/gen/Network/Google/Billing.hs @@ -99,6 +99,7 @@ -- ** Service , Service , service + , sBusinessEntityName , sName , sDisplayName , sServiceId diff --git a/gen/Network/Google/Billing/Types.hs b/gen/Network/Google/Billing/Types.hs --- a/gen/Network/Google/Billing/Types.hs +++ b/gen/Network/Google/Billing/Types.hs @@ -53,6 +53,7 @@ -- * Service , Service , service + , sBusinessEntityName , sName , sDisplayName , sServiceId @@ -204,4 +205,4 @@ -- | 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/Billing/Types/Product.hs b/gen/Network/Google/Billing/Types/Product.hs --- a/gen/Network/Google/Billing/Types/Product.hs +++ b/gen/Network/Google/Billing/Types/Product.hs @@ -39,11 +39,14 @@ -- DATA_WRITE logging. -- -- /See:/ 'auditConfig' smart constructor. -data AuditConfig = AuditConfig' +data AuditConfig = + AuditConfig' { _acService :: !(Maybe Text) , _acAuditLogConfigs :: !(Maybe [AuditLogConfig]) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'AuditConfig' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -53,12 +56,9 @@ -- * 'acAuditLogConfigs' auditConfig :: AuditConfig -auditConfig = - AuditConfig' - { _acService = Nothing - , _acAuditLogConfigs = Nothing - } +auditConfig = AuditConfig' {_acService = Nothing, _acAuditLogConfigs = Nothing} + -- | Specifies a service that will be enabled for audit logging. For example, -- \`storage.googleapis.com\`, \`cloudsql.googleapis.com\`. \`allServices\` -- is a special value that covers all services. @@ -92,11 +92,14 @@ -- | Response message for \`ListServices\`. -- -- /See:/ 'listServicesResponse' smart constructor. -data ListServicesResponse = ListServicesResponse' +data ListServicesResponse = + ListServicesResponse' { _lsrNextPageToken :: !(Maybe Text) , _lsrServices :: !(Maybe [Service]) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListServicesResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -107,11 +110,9 @@ listServicesResponse :: ListServicesResponse listServicesResponse = - ListServicesResponse' - { _lsrNextPageToken = Nothing - , _lsrServices = Nothing - } + ListServicesResponse' {_lsrNextPageToken = Nothing, _lsrServices = Nothing} + -- | A token to retrieve the next page of results. To retrieve the next page, -- call \`ListServices\` again with the \`page_token\` field set to this -- value. This field is empty if there are no more results to retrieve. @@ -147,13 +148,16 @@ -- expression: \"size(request.user) > 0\" -- -- /See:/ 'expr' smart constructor. -data Expr = Expr' +data Expr = + Expr' { _eLocation :: !(Maybe Text) , _eExpression :: !(Maybe Text) , _eTitle :: !(Maybe Text) , _eDescription :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Expr' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -168,13 +172,14 @@ expr :: Expr expr = - Expr' + Expr' { _eLocation = Nothing , _eExpression = Nothing , _eTitle = Nothing , _eDescription = Nothing } + -- | An optional string indicating the location of the expression for error -- reporting, e.g. a file name and a position in the file. eLocation :: Lens' Expr (Maybe Text) @@ -223,13 +228,16 @@ -- account to one or more projects. -- -- /See:/ 'billingAccount' smart constructor. -data BillingAccount = BillingAccount' +data BillingAccount = + BillingAccount' { _baMasterBillingAccount :: !(Maybe Text) , _baOpen :: !(Maybe Bool) , _baName :: !(Maybe Text) , _baDisplayName :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'BillingAccount' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -244,13 +252,14 @@ billingAccount :: BillingAccount billingAccount = - BillingAccount' + BillingAccount' { _baMasterBillingAccount = Nothing , _baOpen = Nothing , _baName = Nothing , _baDisplayName = Nothing } + -- | If this account is a -- [subaccount](https:\/\/cloud.google.com\/billing\/docs\/concepts), then -- this will be the resource name of the master billing account that it is @@ -302,16 +311,22 @@ -- | Encapsulates a single service in Google Cloud Platform. -- -- /See:/ 'service' smart constructor. -data Service = Service' - { _sName :: !(Maybe Text) - , _sDisplayName :: !(Maybe Text) - , _sServiceId :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) +data Service = + Service' + { _sBusinessEntityName :: !(Maybe Text) + , _sName :: !(Maybe Text) + , _sDisplayName :: !(Maybe Text) + , _sServiceId :: !(Maybe Text) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Service' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- +-- * 'sBusinessEntityName' +-- -- * 'sName' -- -- * 'sDisplayName' @@ -320,12 +335,21 @@ service :: Service service = - Service' - { _sName = Nothing + Service' + { _sBusinessEntityName = Nothing + , _sName = Nothing , _sDisplayName = Nothing , _sServiceId = Nothing } + +-- | The business under which the service is offered. Ex. +-- \"businessEntities\/GCP\", \"businessEntities\/Maps\" +sBusinessEntityName :: Lens' Service (Maybe Text) +sBusinessEntityName + = lens _sBusinessEntityName + (\ s a -> s{_sBusinessEntityName = a}) + -- | The resource name for the service. Example: \"services\/DA34-426B-A397\" sName :: Lens' Service (Maybe Text) sName = lens _sName (\ s a -> s{_sName = a}) @@ -345,14 +369,16 @@ = withObject "Service" (\ o -> Service' <$> - (o .:? "name") <*> (o .:? "displayName") <*> - (o .:? "serviceId")) + (o .:? "businessEntityName") <*> (o .:? "name") <*> + (o .:? "displayName") + <*> (o .:? "serviceId")) instance ToJSON Service where toJSON Service'{..} = object (catMaybes - [("name" .=) <$> _sName, + [("businessEntityName" .=) <$> _sBusinessEntityName, + ("name" .=) <$> _sName, ("displayName" .=) <$> _sDisplayName, ("serviceId" .=) <$> _sServiceId]) @@ -361,13 +387,16 @@ -- billing account can be assigned to multiple projects). -- -- /See:/ 'projectBillingInfo' smart constructor. -data ProjectBillingInfo = ProjectBillingInfo' +data ProjectBillingInfo = + ProjectBillingInfo' { _pbiName :: !(Maybe Text) , _pbiBillingAccountName :: !(Maybe Text) , _pbiProjectId :: !(Maybe Text) , _pbiBillingEnabled :: !(Maybe Bool) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectBillingInfo' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -382,13 +411,14 @@ projectBillingInfo :: ProjectBillingInfo projectBillingInfo = - ProjectBillingInfo' + ProjectBillingInfo' { _pbiName = Nothing , _pbiBillingAccountName = Nothing , _pbiProjectId = Nothing , _pbiBillingEnabled = Nothing } + -- | The resource name for the \`ProjectBillingInfo\`; has the form -- \`projects\/{project_id}\/billingInfo\`. For example, the resource name -- for the billing information for project \`tokyo-rain-123\` would be @@ -441,11 +471,14 @@ -- | The price rate indicating starting usage and its corresponding price. -- -- /See:/ 'tierRate' smart constructor. -data TierRate = TierRate' +data TierRate = + TierRate' { _trUnitPrice :: !(Maybe Money) , _trStartUsageAmount :: !(Maybe (Textual Double)) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'TierRate' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -455,12 +488,9 @@ -- * 'trStartUsageAmount' tierRate :: TierRate -tierRate = - TierRate' - { _trUnitPrice = Nothing - , _trStartUsageAmount = Nothing - } +tierRate = TierRate' {_trUnitPrice = Nothing, _trStartUsageAmount = Nothing} + -- | The price per unit of usage. Example: unit_price of amount $10 indicates -- that each unit will cost $10. trUnitPrice :: Lens' TierRate (Maybe Money) @@ -493,12 +523,15 @@ -- | Represents an amount of money with its currency type. -- -- /See:/ 'money' smart constructor. -data Money = Money' +data Money = + Money' { _mCurrencyCode :: !(Maybe Text) , _mNanos :: !(Maybe (Textual Int32)) , _mUnits :: !(Maybe (Textual Int64)) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Money' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -510,13 +543,9 @@ -- * 'mUnits' money :: Money -money = - Money' - { _mCurrencyCode = Nothing - , _mNanos = Nothing - , _mUnits = Nothing - } +money = Money' {_mCurrencyCode = Nothing, _mNanos = Nothing, _mUnits = Nothing} + -- | The 3-letter currency code defined in ISO 4217. mCurrencyCode :: Lens' Money (Maybe Text) mCurrencyCode @@ -559,13 +588,16 @@ -- | Represents the category hierarchy of a SKU. -- -- /See:/ 'category' smart constructor. -data Category = Category' +data Category = + Category' { _cResourceFamily :: !(Maybe Text) , _cUsageType :: !(Maybe Text) , _cServiceDisplayName :: !(Maybe Text) , _cResourceGroup :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Category' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -580,13 +612,14 @@ category :: Category category = - Category' + Category' { _cResourceFamily = Nothing , _cUsageType = Nothing , _cServiceDisplayName = Nothing , _cResourceGroup = Nothing } + -- | The type of product the SKU refers to. Example: \"Compute\", -- \"Storage\", \"Network\", \"ApplicationServices\" etc. cResourceFamily :: Lens' Category (Maybe Text) @@ -634,11 +667,14 @@ -- | Request message for \`SetIamPolicy\` method. -- -- /See:/ 'setIAMPolicyRequest' smart constructor. -data SetIAMPolicyRequest = SetIAMPolicyRequest' +data SetIAMPolicyRequest = + SetIAMPolicyRequest' { _siprUpdateMask :: !(Maybe GFieldMask) , _siprPolicy :: !(Maybe Policy) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'SetIAMPolicyRequest' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -649,11 +685,9 @@ setIAMPolicyRequest :: SetIAMPolicyRequest setIAMPolicyRequest = - SetIAMPolicyRequest' - { _siprUpdateMask = Nothing - , _siprPolicy = Nothing - } + SetIAMPolicyRequest' {_siprUpdateMask = Nothing, _siprPolicy = Nothing} + -- | OPTIONAL: A FieldMask specifying which fields of the policy to modify. -- Only the fields in the mask will be modified. If no mask is provided, -- the following default mask is used: paths: \"bindings, etag\" This field @@ -688,11 +722,14 @@ -- | Request message for \`ListProjectBillingInfoResponse\`. -- -- /See:/ 'listProjectBillingInfoResponse' smart constructor. -data ListProjectBillingInfoResponse = ListProjectBillingInfoResponse' +data ListProjectBillingInfoResponse = + ListProjectBillingInfoResponse' { _lpbirNextPageToken :: !(Maybe Text) , _lpbirProjectBillingInfo :: !(Maybe [ProjectBillingInfo]) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListProjectBillingInfoResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -703,11 +740,10 @@ listProjectBillingInfoResponse :: ListProjectBillingInfoResponse listProjectBillingInfoResponse = - ListProjectBillingInfoResponse' - { _lpbirNextPageToken = Nothing - , _lpbirProjectBillingInfo = Nothing - } + ListProjectBillingInfoResponse' + {_lpbirNextPageToken = Nothing, _lpbirProjectBillingInfo = Nothing} + -- | A token to retrieve the next page of results. To retrieve the next page, -- call \`ListProjectBillingInfo\` again with the \`page_token\` field set -- to this value. This field is empty if there are no more results to @@ -746,11 +782,14 @@ -- | Response message for \`ListSkus\`. -- -- /See:/ 'listSKUsResponse' smart constructor. -data ListSKUsResponse = ListSKUsResponse' +data ListSKUsResponse = + ListSKUsResponse' { _lskurNextPageToken :: !(Maybe Text) , _lskurSKUs :: !(Maybe [SKU]) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListSKUsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -761,11 +800,9 @@ listSKUsResponse :: ListSKUsResponse listSKUsResponse = - ListSKUsResponse' - { _lskurNextPageToken = Nothing - , _lskurSKUs = Nothing - } + ListSKUsResponse' {_lskurNextPageToken = Nothing, _lskurSKUs = Nothing} + -- | A token to retrieve the next page of results. To retrieve the next page, -- call \`ListSkus\` again with the \`page_token\` field set to this value. -- This field is empty if there are no more results to retrieve. @@ -803,7 +840,8 @@ -- $10 per GB followed by $5 per GB for additional usage. -- -- /See:/ 'pricingExpression' smart constructor. -data PricingExpression = PricingExpression' +data PricingExpression = + PricingExpression' { _peUsageUnitDescription :: !(Maybe Text) , _peBaseUnit :: !(Maybe Text) , _peBaseUnitConversionFactor :: !(Maybe (Textual Double)) @@ -811,8 +849,10 @@ , _peTieredRates :: !(Maybe [TierRate]) , _peBaseUnitDescription :: !(Maybe Text) , _peUsageUnit :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'PricingExpression' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -833,7 +873,7 @@ pricingExpression :: PricingExpression pricingExpression = - PricingExpression' + PricingExpression' { _peUsageUnitDescription = Nothing , _peBaseUnit = Nothing , _peBaseUnitConversionFactor = Nothing @@ -843,6 +883,7 @@ , _peUsageUnit = Nothing } + -- | The unit of usage in human readable form. Example: \"gibi byte\". peUsageUnitDescription :: Lens' PricingExpression (Maybe Text) peUsageUnitDescription @@ -931,10 +972,13 @@ -- | Request message for \`TestIamPermissions\` method. -- -- /See:/ 'testIAMPermissionsRequest' smart constructor. -newtype TestIAMPermissionsRequest = TestIAMPermissionsRequest' +newtype TestIAMPermissionsRequest = + TestIAMPermissionsRequest' { _tiprPermissions :: Maybe [Text] - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'TestIAMPermissionsRequest' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -943,10 +987,9 @@ testIAMPermissionsRequest :: TestIAMPermissionsRequest testIAMPermissionsRequest = - TestIAMPermissionsRequest' - { _tiprPermissions = Nothing - } + TestIAMPermissionsRequest' {_tiprPermissions = Nothing} + -- | The set of permissions to check for the \`resource\`. Permissions with -- wildcards (such as \'*\' or \'storage.*\') are not allowed. For more -- information see [IAM @@ -974,12 +1017,15 @@ -- SKU. -- -- /See:/ 'aggregationInfo' smart constructor. -data AggregationInfo = AggregationInfo' +data AggregationInfo = + AggregationInfo' { _aiAggregationInterval :: !(Maybe AggregationInfoAggregationInterval) , _aiAggregationCount :: !(Maybe (Textual Int32)) , _aiAggregationLevel :: !(Maybe AggregationInfoAggregationLevel) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'AggregationInfo' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -992,12 +1038,13 @@ aggregationInfo :: AggregationInfo aggregationInfo = - AggregationInfo' + AggregationInfo' { _aiAggregationInterval = Nothing , _aiAggregationCount = Nothing , _aiAggregationLevel = Nothing } + aiAggregationInterval :: Lens' AggregationInfo (Maybe AggregationInfoAggregationInterval) aiAggregationInterval = lens _aiAggregationInterval @@ -1038,7 +1085,8 @@ -- | Encapsulates a single SKU in Google Cloud Platform -- -- /See:/ 'sKU' smart constructor. -data SKU = SKU' +data SKU = + SKU' { _skukCategory :: !(Maybe Category) , _skukSKUId :: !(Maybe Text) , _skukServiceProviderName :: !(Maybe Text) @@ -1046,8 +1094,10 @@ , _skukName :: !(Maybe Text) , _skukPricingInfo :: !(Maybe [PricingInfo]) , _skukDescription :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'SKU' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -1068,7 +1118,7 @@ sKU :: SKU sKU = - SKU' + SKU' { _skukCategory = Nothing , _skukSKUId = Nothing , _skukServiceProviderName = Nothing @@ -1078,6 +1128,7 @@ , _skukDescription = Nothing } + -- | The category hierarchy of this SKU, purely for organizational purpose. skukCategory :: Lens' SKU (Maybe Category) skukCategory @@ -1153,10 +1204,13 @@ -- | Response message for \`TestIamPermissions\` method. -- -- /See:/ 'testIAMPermissionsResponse' smart constructor. -newtype TestIAMPermissionsResponse = TestIAMPermissionsResponse' +newtype TestIAMPermissionsResponse = + TestIAMPermissionsResponse' { _tiamprPermissions :: Maybe [Text] - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'TestIAMPermissionsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -1165,10 +1219,9 @@ testIAMPermissionsResponse :: TestIAMPermissionsResponse testIAMPermissionsResponse = - TestIAMPermissionsResponse' - { _tiamprPermissions = Nothing - } + TestIAMPermissionsResponse' {_tiamprPermissions = Nothing} + -- | A subset of \`TestPermissionsRequest.permissions\` that the caller is -- allowed. tiamprPermissions :: Lens' TestIAMPermissionsResponse [Text] @@ -1210,13 +1263,16 @@ -- guide](https:\/\/cloud.google.com\/iam\/docs). -- -- /See:/ 'policy' smart constructor. -data Policy = Policy' +data Policy = + Policy' { _pAuditConfigs :: !(Maybe [AuditConfig]) , _pEtag :: !(Maybe Bytes) , _pVersion :: !(Maybe (Textual Int32)) , _pBindings :: !(Maybe [Binding]) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Policy' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -1231,13 +1287,14 @@ policy :: Policy policy = - Policy' + Policy' { _pAuditConfigs = Nothing , _pEtag = Nothing , _pVersion = Nothing , _pBindings = Nothing } + -- | Specifies cloud audit logging configuration for this policy. pAuditConfigs :: Lens' Policy [AuditConfig] pAuditConfigs @@ -1294,11 +1351,14 @@ -- | Response message for \`ListBillingAccounts\`. -- -- /See:/ 'listBillingAccountsResponse' smart constructor. -data ListBillingAccountsResponse = ListBillingAccountsResponse' +data ListBillingAccountsResponse = + ListBillingAccountsResponse' { _lbarNextPageToken :: !(Maybe Text) , _lbarBillingAccounts :: !(Maybe [BillingAccount]) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListBillingAccountsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -1309,11 +1369,10 @@ listBillingAccountsResponse :: ListBillingAccountsResponse listBillingAccountsResponse = - ListBillingAccountsResponse' - { _lbarNextPageToken = Nothing - , _lbarBillingAccounts = Nothing - } + ListBillingAccountsResponse' + {_lbarNextPageToken = Nothing, _lbarBillingAccounts = Nothing} + -- | A token to retrieve the next page of results. To retrieve the next page, -- call \`ListBillingAccounts\` again with the \`page_token\` field set to -- this value. This field is empty if there are no more results to @@ -1353,11 +1412,14 @@ -- logging, while exempting foo\'gmail.com from DATA_READ logging. -- -- /See:/ 'auditLogConfig' smart constructor. -data AuditLogConfig = AuditLogConfig' +data AuditLogConfig = + AuditLogConfig' { _alcLogType :: !(Maybe AuditLogConfigLogType) , _alcExemptedMembers :: !(Maybe [Text]) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'AuditLogConfig' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -1368,11 +1430,9 @@ auditLogConfig :: AuditLogConfig auditLogConfig = - AuditLogConfig' - { _alcLogType = Nothing - , _alcExemptedMembers = Nothing - } + AuditLogConfig' {_alcLogType = Nothing, _alcExemptedMembers = Nothing} + -- | The log type that this config enables. alcLogType :: Lens' AuditLogConfig (Maybe AuditLogConfigLogType) alcLogType @@ -1405,14 +1465,17 @@ -- | Represents the pricing information for a SKU at a single point of time. -- -- /See:/ 'pricingInfo' smart constructor. -data PricingInfo = PricingInfo' +data PricingInfo = + PricingInfo' { _piSummary :: !(Maybe Text) , _piAggregationInfo :: !(Maybe AggregationInfo) , _piPricingExpression :: !(Maybe PricingExpression) , _piCurrencyConversionRate :: !(Maybe (Textual Double)) , _piEffectiveTime :: !(Maybe DateTime') - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'PricingInfo' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -1429,7 +1492,7 @@ pricingInfo :: PricingInfo pricingInfo = - PricingInfo' + PricingInfo' { _piSummary = Nothing , _piAggregationInfo = Nothing , _piPricingExpression = Nothing @@ -1437,6 +1500,7 @@ , _piEffectiveTime = Nothing } + -- | An optional human readable summary of the pricing information, has a -- maximum length of 256 characters. piSummary :: Lens' PricingInfo (Maybe Text) @@ -1503,12 +1567,15 @@ -- | Associates \`members\` with a \`role\`. -- -- /See:/ 'binding' smart constructor. -data Binding = Binding' +data Binding = + Binding' { _bMembers :: !(Maybe [Text]) , _bRole :: !(Maybe Text) , _bCondition :: !(Maybe Expr) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Binding' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -1521,12 +1588,9 @@ binding :: Binding binding = - Binding' - { _bMembers = Nothing - , _bRole = Nothing - , _bCondition = Nothing - } + Binding' {_bMembers = Nothing, _bRole = Nothing, _bCondition = Nothing} + -- | Specifies the identities requesting access for a Cloud Platform -- resource. \`members\` can have the following values: * \`allUsers\`: A -- special identifier that represents anyone who is on the internet; with @@ -1538,8 +1602,8 @@ -- that represents a service account. For example, -- \`my-other-app\'appspot.gserviceaccount.com\`. * \`group:{emailid}\`: An -- email address that represents a Google group. For example, --- \`admins\'example.com\`. * \`domain:{domain}\`: A Google Apps domain --- name that represents all the users of that domain. For example, +-- \`admins\'example.com\`. * \`domain:{domain}\`: The G Suite domain +-- (primary) that represents all the users of that domain. For example, -- \`google.com\` or \`example.com\`. bMembers :: Lens' Binding [Text] bMembers @@ -1552,10 +1616,9 @@ bRole :: Lens' Binding (Maybe Text) bRole = lens _bRole (\ s a -> s{_bRole = a}) --- | Unimplemented. The condition that is associated with this binding. NOTE: --- an unsatisfied condition will not allow user access via current binding. --- Different bindings, including their conditions, are examined --- independently. +-- | The condition that is associated with this binding. NOTE: An unsatisfied +-- condition will not allow user access via current binding. Different +-- bindings, including their conditions, are examined independently. bCondition :: Lens' Binding (Maybe Expr) bCondition = lens _bCondition (\ s a -> s{_bCondition = a}) diff --git a/gen/Network/Google/Resource/CloudBilling/BillingAccounts/Create.hs b/gen/Network/Google/Resource/CloudBilling/BillingAccounts/Create.hs --- a/gen/Network/Google/Resource/CloudBilling/BillingAccounts/Create.hs +++ b/gen/Network/Google/Resource/CloudBilling/BillingAccounts/Create.hs @@ -77,15 +77,18 @@ -- provisioned as a reseller account. -- -- /See:/ 'billingAccountsCreate' smart constructor. -data BillingAccountsCreate = BillingAccountsCreate' +data BillingAccountsCreate = + BillingAccountsCreate' { _bacXgafv :: !(Maybe Xgafv) , _bacUploadProtocol :: !(Maybe Text) , _bacAccessToken :: !(Maybe Text) , _bacUploadType :: !(Maybe Text) , _bacPayload :: !BillingAccount , _bacCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'BillingAccountsCreate' 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 @@ :: BillingAccount -- ^ 'bacPayload' -> BillingAccountsCreate billingAccountsCreate pBacPayload_ = - BillingAccountsCreate' + BillingAccountsCreate' { _bacXgafv = Nothing , _bacUploadProtocol = Nothing , _bacAccessToken = Nothing @@ -113,6 +116,7 @@ , _bacPayload = pBacPayload_ , _bacCallback = Nothing } + -- | V1 error format. bacXgafv :: Lens' BillingAccountsCreate (Maybe Xgafv) diff --git a/gen/Network/Google/Resource/CloudBilling/BillingAccounts/Get.hs b/gen/Network/Google/Resource/CloudBilling/BillingAccounts/Get.hs --- a/gen/Network/Google/Resource/CloudBilling/BillingAccounts/Get.hs +++ b/gen/Network/Google/Resource/CloudBilling/BillingAccounts/Get.hs @@ -64,15 +64,18 @@ -- account](https:\/\/cloud.google.com\/billing\/docs\/how-to\/billing-access). -- -- /See:/ 'billingAccountsGet' smart constructor. -data BillingAccountsGet = BillingAccountsGet' +data BillingAccountsGet = + BillingAccountsGet' { _bagXgafv :: !(Maybe Xgafv) , _bagUploadProtocol :: !(Maybe Text) , _bagAccessToken :: !(Maybe Text) , _bagUploadType :: !(Maybe Text) , _bagName :: !Text , _bagCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'BillingAccountsGet' 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 -- ^ 'bagName' -> BillingAccountsGet billingAccountsGet pBagName_ = - BillingAccountsGet' + BillingAccountsGet' { _bagXgafv = Nothing , _bagUploadProtocol = Nothing , _bagAccessToken = Nothing @@ -100,6 +103,7 @@ , _bagName = pBagName_ , _bagCallback = Nothing } + -- | V1 error format. bagXgafv :: Lens' BillingAccountsGet (Maybe Xgafv) diff --git a/gen/Network/Google/Resource/CloudBilling/BillingAccounts/GetIAMPolicy.hs b/gen/Network/Google/Resource/CloudBilling/BillingAccounts/GetIAMPolicy.hs --- a/gen/Network/Google/Resource/CloudBilling/BillingAccounts/GetIAMPolicy.hs +++ b/gen/Network/Google/Resource/CloudBilling/BillingAccounts/GetIAMPolicy.hs @@ -65,15 +65,18 @@ -- [viewers](https:\/\/cloud.google.com\/billing\/docs\/how-to\/billing-access). -- -- /See:/ 'billingAccountsGetIAMPolicy' smart constructor. -data BillingAccountsGetIAMPolicy = BillingAccountsGetIAMPolicy' +data BillingAccountsGetIAMPolicy = + BillingAccountsGetIAMPolicy' { _bagipXgafv :: !(Maybe Xgafv) , _bagipUploadProtocol :: !(Maybe Text) , _bagipAccessToken :: !(Maybe Text) , _bagipUploadType :: !(Maybe Text) , _bagipResource :: !Text , _bagipCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'BillingAccountsGetIAMPolicy' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -93,7 +96,7 @@ :: Text -- ^ 'bagipResource' -> BillingAccountsGetIAMPolicy billingAccountsGetIAMPolicy pBagipResource_ = - BillingAccountsGetIAMPolicy' + BillingAccountsGetIAMPolicy' { _bagipXgafv = Nothing , _bagipUploadProtocol = Nothing , _bagipAccessToken = Nothing @@ -101,6 +104,7 @@ , _bagipResource = pBagipResource_ , _bagipCallback = Nothing } + -- | V1 error format. bagipXgafv :: Lens' BillingAccountsGetIAMPolicy (Maybe Xgafv) diff --git a/gen/Network/Google/Resource/CloudBilling/BillingAccounts/List.hs b/gen/Network/Google/Resource/CloudBilling/BillingAccounts/List.hs --- a/gen/Network/Google/Resource/CloudBilling/BillingAccounts/List.hs +++ b/gen/Network/Google/Resource/CloudBilling/BillingAccounts/List.hs @@ -69,7 +69,8 @@ -- [view](https:\/\/cloud.google.com\/billing\/docs\/how-to\/billing-access). -- -- /See:/ 'billingAccountsList' smart constructor. -data BillingAccountsList = BillingAccountsList' +data BillingAccountsList = + BillingAccountsList' { _balXgafv :: !(Maybe Xgafv) , _balUploadProtocol :: !(Maybe Text) , _balAccessToken :: !(Maybe Text) @@ -78,8 +79,10 @@ , _balPageToken :: !(Maybe Text) , _balPageSize :: !(Maybe (Textual Int32)) , _balCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'BillingAccountsList' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -102,7 +105,7 @@ billingAccountsList :: BillingAccountsList billingAccountsList = - BillingAccountsList' + BillingAccountsList' { _balXgafv = Nothing , _balUploadProtocol = Nothing , _balAccessToken = Nothing @@ -112,6 +115,7 @@ , _balPageSize = Nothing , _balCallback = Nothing } + -- | V1 error format. balXgafv :: Lens' BillingAccountsList (Maybe Xgafv) diff --git a/gen/Network/Google/Resource/CloudBilling/BillingAccounts/Patch.hs b/gen/Network/Google/Resource/CloudBilling/BillingAccounts/Patch.hs --- a/gen/Network/Google/Resource/CloudBilling/BillingAccounts/Patch.hs +++ b/gen/Network/Google/Resource/CloudBilling/BillingAccounts/Patch.hs @@ -74,7 +74,8 @@ -- of the billing account. -- -- /See:/ 'billingAccountsPatch' smart constructor. -data BillingAccountsPatch = BillingAccountsPatch' +data BillingAccountsPatch = + BillingAccountsPatch' { _bapXgafv :: !(Maybe Xgafv) , _bapUploadProtocol :: !(Maybe Text) , _bapUpdateMask :: !(Maybe GFieldMask) @@ -83,8 +84,10 @@ , _bapPayload :: !BillingAccount , _bapName :: !Text , _bapCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'BillingAccountsPatch' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -109,7 +112,7 @@ -> Text -- ^ 'bapName' -> BillingAccountsPatch billingAccountsPatch pBapPayload_ pBapName_ = - BillingAccountsPatch' + BillingAccountsPatch' { _bapXgafv = Nothing , _bapUploadProtocol = Nothing , _bapUpdateMask = Nothing @@ -119,6 +122,7 @@ , _bapName = pBapName_ , _bapCallback = Nothing } + -- | V1 error format. bapXgafv :: Lens' BillingAccountsPatch (Maybe Xgafv) diff --git a/gen/Network/Google/Resource/CloudBilling/BillingAccounts/Projects/List.hs b/gen/Network/Google/Resource/CloudBilling/BillingAccounts/Projects/List.hs --- a/gen/Network/Google/Resource/CloudBilling/BillingAccounts/Projects/List.hs +++ b/gen/Network/Google/Resource/CloudBilling/BillingAccounts/Projects/List.hs @@ -71,7 +71,8 @@ -- [viewers](https:\/\/cloud.google.com\/billing\/docs\/how-to\/billing-access). -- -- /See:/ 'billingAccountsProjectsList' smart constructor. -data BillingAccountsProjectsList = BillingAccountsProjectsList' +data BillingAccountsProjectsList = + BillingAccountsProjectsList' { _baplXgafv :: !(Maybe Xgafv) , _baplUploadProtocol :: !(Maybe Text) , _baplAccessToken :: !(Maybe Text) @@ -80,8 +81,10 @@ , _baplPageToken :: !(Maybe Text) , _baplPageSize :: !(Maybe (Textual Int32)) , _baplCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'BillingAccountsProjectsList' 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 -- ^ 'baplName' -> BillingAccountsProjectsList billingAccountsProjectsList pBaplName_ = - BillingAccountsProjectsList' + BillingAccountsProjectsList' { _baplXgafv = Nothing , _baplUploadProtocol = Nothing , _baplAccessToken = Nothing @@ -115,6 +118,7 @@ , _baplPageSize = Nothing , _baplCallback = Nothing } + -- | V1 error format. baplXgafv :: Lens' BillingAccountsProjectsList (Maybe Xgafv) diff --git a/gen/Network/Google/Resource/CloudBilling/BillingAccounts/SetIAMPolicy.hs b/gen/Network/Google/Resource/CloudBilling/BillingAccounts/SetIAMPolicy.hs --- a/gen/Network/Google/Resource/CloudBilling/BillingAccounts/SetIAMPolicy.hs +++ b/gen/Network/Google/Resource/CloudBilling/BillingAccounts/SetIAMPolicy.hs @@ -70,7 +70,8 @@ -- [administrators](https:\/\/cloud.google.com\/billing\/docs\/how-to\/billing-access). -- -- /See:/ 'billingAccountsSetIAMPolicy' smart constructor. -data BillingAccountsSetIAMPolicy = BillingAccountsSetIAMPolicy' +data BillingAccountsSetIAMPolicy = + BillingAccountsSetIAMPolicy' { _basipXgafv :: !(Maybe Xgafv) , _basipUploadProtocol :: !(Maybe Text) , _basipAccessToken :: !(Maybe Text) @@ -78,8 +79,10 @@ , _basipPayload :: !SetIAMPolicyRequest , _basipResource :: !Text , _basipCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'BillingAccountsSetIAMPolicy' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -102,7 +105,7 @@ -> Text -- ^ 'basipResource' -> BillingAccountsSetIAMPolicy billingAccountsSetIAMPolicy pBasipPayload_ pBasipResource_ = - BillingAccountsSetIAMPolicy' + BillingAccountsSetIAMPolicy' { _basipXgafv = Nothing , _basipUploadProtocol = Nothing , _basipAccessToken = Nothing @@ -111,6 +114,7 @@ , _basipResource = pBasipResource_ , _basipCallback = Nothing } + -- | V1 error format. basipXgafv :: Lens' BillingAccountsSetIAMPolicy (Maybe Xgafv) diff --git a/gen/Network/Google/Resource/CloudBilling/BillingAccounts/TestIAMPermissions.hs b/gen/Network/Google/Resource/CloudBilling/BillingAccounts/TestIAMPermissions.hs --- a/gen/Network/Google/Resource/CloudBilling/BillingAccounts/TestIAMPermissions.hs +++ b/gen/Network/Google/Resource/CloudBilling/BillingAccounts/TestIAMPermissions.hs @@ -66,7 +66,8 @@ -- the input permissions that the caller is allowed for that resource. -- -- /See:/ 'billingAccountsTestIAMPermissions' smart constructor. -data BillingAccountsTestIAMPermissions = BillingAccountsTestIAMPermissions' +data BillingAccountsTestIAMPermissions = + BillingAccountsTestIAMPermissions' { _batipXgafv :: !(Maybe Xgafv) , _batipUploadProtocol :: !(Maybe Text) , _batipAccessToken :: !(Maybe Text) @@ -74,8 +75,10 @@ , _batipPayload :: !TestIAMPermissionsRequest , _batipResource :: !Text , _batipCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'BillingAccountsTestIAMPermissions' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -98,7 +101,7 @@ -> Text -- ^ 'batipResource' -> BillingAccountsTestIAMPermissions billingAccountsTestIAMPermissions pBatipPayload_ pBatipResource_ = - BillingAccountsTestIAMPermissions' + BillingAccountsTestIAMPermissions' { _batipXgafv = Nothing , _batipUploadProtocol = Nothing , _batipAccessToken = Nothing @@ -108,6 +111,7 @@ , _batipCallback = Nothing } + -- | V1 error format. batipXgafv :: Lens' BillingAccountsTestIAMPermissions (Maybe Xgafv) batipXgafv @@ -151,7 +155,8 @@ (\ s a -> s{_batipCallback = a}) instance GoogleRequest - BillingAccountsTestIAMPermissions where + BillingAccountsTestIAMPermissions + where type Rs BillingAccountsTestIAMPermissions = TestIAMPermissionsResponse type Scopes BillingAccountsTestIAMPermissions = diff --git a/gen/Network/Google/Resource/CloudBilling/Projects/GetBillingInfo.hs b/gen/Network/Google/Resource/CloudBilling/Projects/GetBillingInfo.hs --- a/gen/Network/Google/Resource/CloudBilling/Projects/GetBillingInfo.hs +++ b/gen/Network/Google/Resource/CloudBilling/Projects/GetBillingInfo.hs @@ -67,15 +67,18 @@ -- ). -- -- /See:/ 'projectsGetBillingInfo' smart constructor. -data ProjectsGetBillingInfo = ProjectsGetBillingInfo' +data ProjectsGetBillingInfo = + ProjectsGetBillingInfo' { _pgbiXgafv :: !(Maybe Xgafv) , _pgbiUploadProtocol :: !(Maybe Text) , _pgbiAccessToken :: !(Maybe Text) , _pgbiUploadType :: !(Maybe Text) , _pgbiName :: !Text , _pgbiCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsGetBillingInfo' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -95,7 +98,7 @@ :: Text -- ^ 'pgbiName' -> ProjectsGetBillingInfo projectsGetBillingInfo pPgbiName_ = - ProjectsGetBillingInfo' + ProjectsGetBillingInfo' { _pgbiXgafv = Nothing , _pgbiUploadProtocol = Nothing , _pgbiAccessToken = Nothing @@ -103,6 +106,7 @@ , _pgbiName = pPgbiName_ , _pgbiCallback = Nothing } + -- | V1 error format. pgbiXgafv :: Lens' ProjectsGetBillingInfo (Maybe Xgafv) diff --git a/gen/Network/Google/Resource/CloudBilling/Projects/UpdateBillingInfo.hs b/gen/Network/Google/Resource/CloudBilling/Projects/UpdateBillingInfo.hs --- a/gen/Network/Google/Resource/CloudBilling/Projects/UpdateBillingInfo.hs +++ b/gen/Network/Google/Resource/CloudBilling/Projects/UpdateBillingInfo.hs @@ -113,7 +113,8 @@ -- with the name of an *open* billing account. -- -- /See:/ 'projectsUpdateBillingInfo' smart constructor. -data ProjectsUpdateBillingInfo = ProjectsUpdateBillingInfo' +data ProjectsUpdateBillingInfo = + ProjectsUpdateBillingInfo' { _pubiXgafv :: !(Maybe Xgafv) , _pubiUploadProtocol :: !(Maybe Text) , _pubiAccessToken :: !(Maybe Text) @@ -121,8 +122,10 @@ , _pubiPayload :: !ProjectBillingInfo , _pubiName :: !Text , _pubiCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsUpdateBillingInfo' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -145,7 +148,7 @@ -> Text -- ^ 'pubiName' -> ProjectsUpdateBillingInfo projectsUpdateBillingInfo pPubiPayload_ pPubiName_ = - ProjectsUpdateBillingInfo' + ProjectsUpdateBillingInfo' { _pubiXgafv = Nothing , _pubiUploadProtocol = Nothing , _pubiAccessToken = Nothing @@ -154,6 +157,7 @@ , _pubiName = pPubiName_ , _pubiCallback = Nothing } + -- | V1 error format. pubiXgafv :: Lens' ProjectsUpdateBillingInfo (Maybe Xgafv) diff --git a/gen/Network/Google/Resource/CloudBilling/Services/List.hs b/gen/Network/Google/Resource/CloudBilling/Services/List.hs --- a/gen/Network/Google/Resource/CloudBilling/Services/List.hs +++ b/gen/Network/Google/Resource/CloudBilling/Services/List.hs @@ -63,7 +63,8 @@ -- | Lists all public cloud services. -- -- /See:/ 'servicesList' smart constructor. -data ServicesList = ServicesList' +data ServicesList = + ServicesList' { _slXgafv :: !(Maybe Xgafv) , _slUploadProtocol :: !(Maybe Text) , _slAccessToken :: !(Maybe Text) @@ -71,8 +72,10 @@ , _slPageToken :: !(Maybe Text) , _slPageSize :: !(Maybe (Textual Int32)) , _slCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ServicesList' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -93,7 +96,7 @@ servicesList :: ServicesList servicesList = - ServicesList' + ServicesList' { _slXgafv = Nothing , _slUploadProtocol = Nothing , _slAccessToken = Nothing @@ -102,6 +105,7 @@ , _slPageSize = Nothing , _slCallback = Nothing } + -- | V1 error format. slXgafv :: Lens' ServicesList (Maybe Xgafv) diff --git a/gen/Network/Google/Resource/CloudBilling/Services/SKUs/List.hs b/gen/Network/Google/Resource/CloudBilling/Services/SKUs/List.hs --- a/gen/Network/Google/Resource/CloudBilling/Services/SKUs/List.hs +++ b/gen/Network/Google/Resource/CloudBilling/Services/SKUs/List.hs @@ -71,7 +71,8 @@ -- | Lists all publicly available SKUs for a given cloud service. -- -- /See:/ 'servicesSKUsList' smart constructor. -data ServicesSKUsList = ServicesSKUsList' +data ServicesSKUsList = + ServicesSKUsList' { _sskulParent :: !Text , _sskulXgafv :: !(Maybe Xgafv) , _sskulCurrencyCode :: !(Maybe Text) @@ -83,8 +84,10 @@ , _sskulPageToken :: !(Maybe Text) , _sskulPageSize :: !(Maybe (Textual Int32)) , _sskulCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ServicesSKUsList' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -114,7 +117,7 @@ :: Text -- ^ 'sskulParent' -> ServicesSKUsList servicesSKUsList pSskulParent_ = - ServicesSKUsList' + ServicesSKUsList' { _sskulParent = pSskulParent_ , _sskulXgafv = Nothing , _sskulCurrencyCode = Nothing @@ -127,6 +130,7 @@ , _sskulPageSize = Nothing , _sskulCallback = Nothing } + -- | The name of the service. Example: \"services\/DA34-426B-A397\" sskulParent :: Lens' ServicesSKUsList Text diff --git a/gogol-billing.cabal b/gogol-billing.cabal --- a/gogol-billing.cabal +++ b/gogol-billing.cabal @@ -1,5 +1,5 @@ name: gogol-billing -version: 0.4.0 +version: 0.5.0 synopsis: Google Cloud Billing SDK. homepage: https://github.com/brendanhay/gogol bug-reports: https://github.com/brendanhay/gogol/issues @@ -54,5 +54,5 @@ , Network.Google.Billing.Types.Sum build-depends: - gogol-core == 0.4.0.* + gogol-core == 0.5.0.* , base >= 4.7 && < 5