packages feed

gogol-billing 0.4.0 → 0.5.0

raw patch · 17 files changed

+273/−159 lines, 17 filesdep ~gogol-corePVP ok

version bump matches the API change (PVP)

Dependency ranges changed: gogol-core

API changes (from Hackage documentation)

+ Network.Google.Billing: sBusinessEntityName :: Lens' Service (Maybe Text)
+ Network.Google.Billing.Types: sBusinessEntityName :: Lens' Service (Maybe Text)

Files

README.md view
@@ -8,7 +8,7 @@  ## Version -`0.3.0`+`0.5.0`   ## Description
gen/Network/Google/Billing.hs view
@@ -99,6 +99,7 @@     -- ** Service     , Service     , service+    , sBusinessEntityName     , sName     , sDisplayName     , sServiceId
gen/Network/Google/Billing/Types.hs view
@@ -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
gen/Network/Google/Billing/Types/Product.hs view
@@ -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})
gen/Network/Google/Resource/CloudBilling/BillingAccounts/Create.hs view
@@ -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)
gen/Network/Google/Resource/CloudBilling/BillingAccounts/Get.hs view
@@ -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)
gen/Network/Google/Resource/CloudBilling/BillingAccounts/GetIAMPolicy.hs view
@@ -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)
gen/Network/Google/Resource/CloudBilling/BillingAccounts/List.hs view
@@ -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)
gen/Network/Google/Resource/CloudBilling/BillingAccounts/Patch.hs view
@@ -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)
gen/Network/Google/Resource/CloudBilling/BillingAccounts/Projects/List.hs view
@@ -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)
gen/Network/Google/Resource/CloudBilling/BillingAccounts/SetIAMPolicy.hs view
@@ -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)
gen/Network/Google/Resource/CloudBilling/BillingAccounts/TestIAMPermissions.hs view
@@ -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 =
gen/Network/Google/Resource/CloudBilling/Projects/GetBillingInfo.hs view
@@ -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)
gen/Network/Google/Resource/CloudBilling/Projects/UpdateBillingInfo.hs view
@@ -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)
gen/Network/Google/Resource/CloudBilling/Services/List.hs view
@@ -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)
gen/Network/Google/Resource/CloudBilling/Services/SKUs/List.hs view
@@ -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
gogol-billing.cabal view
@@ -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