gogol-apps-reseller 0.4.0 → 0.5.0

raw patch · 22 files changed

+266/−213 lines, 22 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/AppsReseller/Types.hs +2/−2
• gen/Network/Google/AppsReseller/Types/Product.hs +138/−104
• gen/Network/Google/AppsReseller/Types/Sum.hs +0/−26
• gen/Network/Google/Resource/Reseller/Customers/Get.hs +7/−6
• gen/Network/Google/Resource/Reseller/Customers/Insert.hs +7/−6
• gen/Network/Google/Resource/Reseller/Customers/Patch.hs +7/−6
• gen/Network/Google/Resource/Reseller/Customers/Update.hs +7/−6
• gen/Network/Google/Resource/Reseller/Resellernotify/Getwatchdetails.hs +4/−2
• gen/Network/Google/Resource/Reseller/Resellernotify/Register.hs +7/−5
• gen/Network/Google/Resource/Reseller/Resellernotify/Unregister.hs +7/−5
• gen/Network/Google/Resource/Reseller/Subscriptions/Activate.hs +8/−6
• gen/Network/Google/Resource/Reseller/Subscriptions/ChangePlan.hs +7/−3
• gen/Network/Google/Resource/Reseller/Subscriptions/ChangeRenewalSettings.hs +9/−4
• gen/Network/Google/Resource/Reseller/Subscriptions/ChangeSeats.hs +7/−3
• gen/Network/Google/Resource/Reseller/Subscriptions/Delete.hs +9/−5
• gen/Network/Google/Resource/Reseller/Subscriptions/Get.hs +8/−6
• gen/Network/Google/Resource/Reseller/Subscriptions/Insert.hs +7/−3
• gen/Network/Google/Resource/Reseller/Subscriptions/List.hs +7/−3
• gen/Network/Google/Resource/Reseller/Subscriptions/StartPaidService.hs +7/−3
• gen/Network/Google/Resource/Reseller/Subscriptions/Suspend.hs +8/−6
• gogol-apps-reseller.cabal +2/−2

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

@@ -153,8 +153,8 @@  -- | Manage users on your domain appsOrderReadOnlyScope :: Proxy '["https://www.googleapis.com/auth/apps.order.readonly"]-appsOrderReadOnlyScope = Proxy;+appsOrderReadOnlyScope = Proxy  -- | Manage users on your domain appsOrderScope :: Proxy '["https://www.googleapis.com/auth/apps.order"]-appsOrderScope = Proxy;+appsOrderScope = Proxy

@@ -24,11 +24,14 @@ -- 30-day free trial. For more information, see the API concepts. -- -- /See:/ 'subscriptionTrialSettings' smart constructor.-data SubscriptionTrialSettings = SubscriptionTrialSettings'+data SubscriptionTrialSettings =+  SubscriptionTrialSettings'     { _stsIsInTrial    :: !(Maybe Bool)     , _stsTrialEndTime :: !(Maybe (Textual Int64))-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'SubscriptionTrialSettings' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -39,11 +42,10 @@ subscriptionTrialSettings     :: SubscriptionTrialSettings subscriptionTrialSettings =-    SubscriptionTrialSettings'-    { _stsIsInTrial = Nothing-    , _stsTrialEndTime = Nothing-    }+  SubscriptionTrialSettings'+    {_stsIsInTrial = Nothing, _stsTrialEndTime = Nothing} + -- | Determines if a subscription\'s plan is in a 30-day free trial or not: - -- true — The plan is in trial. - false — The plan is not in trial. stsIsInTrial :: Lens' SubscriptionTrialSettings (Maybe Bool)@@ -75,10 +77,13 @@ -- | JSON template for resellernotify response. -- -- /See:/ 'resellernotifyResource' smart constructor.-newtype ResellernotifyResource = ResellernotifyResource'+newtype ResellernotifyResource =+  ResellernotifyResource'     { _rrTopicName :: Maybe Text-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ResellernotifyResource' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -86,11 +91,9 @@ -- * 'rrTopicName' resellernotifyResource     :: ResellernotifyResource-resellernotifyResource =-    ResellernotifyResource'-    { _rrTopicName = Nothing-    }+resellernotifyResource = ResellernotifyResource' {_rrTopicName = Nothing} + -- | Topic name of the PubSub rrTopicName :: Lens' ResellernotifyResource (Maybe Text) rrTopicName@@ -110,11 +113,14 @@ -- | JSON template for resellernotify getwatchdetails response. -- -- /See:/ 'resellernotifyGetwatchdetailsResponse' smart constructor.-data ResellernotifyGetwatchdetailsResponse = ResellernotifyGetwatchdetailsResponse'+data ResellernotifyGetwatchdetailsResponse =+  ResellernotifyGetwatchdetailsResponse'     { _rgrTopicName                    :: !(Maybe Text)     , _rgrServiceAccountEmailAddresses :: !(Maybe [Text])-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ResellernotifyGetwatchdetailsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -125,11 +131,10 @@ resellernotifyGetwatchdetailsResponse     :: ResellernotifyGetwatchdetailsResponse resellernotifyGetwatchdetailsResponse =-    ResellernotifyGetwatchdetailsResponse'-    { _rgrTopicName = Nothing-    , _rgrServiceAccountEmailAddresses = Nothing-    }+  ResellernotifyGetwatchdetailsResponse'+    {_rgrTopicName = Nothing, _rgrServiceAccountEmailAddresses = Nothing} + -- | Topic name of the PubSub rgrTopicName :: Lens' ResellernotifyGetwatchdetailsResponse (Maybe Text) rgrTopicName@@ -144,7 +149,8 @@       . _Coerce  instance FromJSON-         ResellernotifyGetwatchdetailsResponse where+           ResellernotifyGetwatchdetailsResponse+         where         parseJSON           = withObject "ResellernotifyGetwatchdetailsResponse"               (\ o ->@@ -164,7 +170,8 @@ -- | JSON template for address of a customer. -- -- /See:/ 'address' smart constructor.-data Address = Address'+data Address =+  Address'     { _aOrganizationName :: !(Maybe Text)     , _aKind             :: !Text     , _aPostalCode       :: !(Maybe Text)@@ -175,8 +182,10 @@     , _aCountryCode      :: !(Maybe Text)     , _aRegion           :: !(Maybe Text)     , _aAddressLine3     :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Address' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -203,7 +212,7 @@ address     :: Address address =-    Address'+  Address'     { _aOrganizationName = Nothing     , _aKind = "customers#address"     , _aPostalCode = Nothing@@ -216,6 +225,7 @@     , _aAddressLine3 = Nothing     } + -- | The company or company division name. This is required. aOrganizationName :: Lens' Address (Maybe Text) aOrganizationName@@ -306,7 +316,8 @@ -- | JSON template for a customer. -- -- /See:/ 'customer' smart constructor.-data Customer = Customer'+data Customer =+  Customer'     { _cCustomerDomainVerified :: !(Maybe Bool)     , _cResourceUiURL          :: !(Maybe Text)     , _cKind                   :: !Text@@ -315,8 +326,10 @@     , _cCustomerDomain         :: !(Maybe Text)     , _cPhoneNumber            :: !(Maybe Text)     , _cPostalAddress          :: !(Maybe Address)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Customer' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -339,7 +352,7 @@ customer     :: Customer customer =-    Customer'+  Customer'     { _cCustomerDomainVerified = Nothing     , _cResourceUiURL = Nothing     , _cKind = "reseller#customer"@@ -350,6 +363,7 @@     , _cPostalAddress = Nothing     } + -- | Whether the customer\'s primary domain has been verified. cCustomerDomainVerified :: Lens' Customer (Maybe Bool) cCustomerDomainVerified@@ -393,9 +407,11 @@   = lens _cCustomerDomain       (\ s a -> s{_cCustomerDomain = a}) --- | Customer contact phone number. This can be continuous numbers, with--- spaces, etc. But it must be a real phone number and not, for example,--- \"123\". See phone local format conventions.+-- | Customer contact phone number. Must start with \"+\" followed by the+-- country code. The rest of the number can be contiguous numbers or+-- respect the phone local format conventions, but it must be a real phone+-- number and not, for example, \"123\". This field is silently ignored if+-- invalid. cPhoneNumber :: Lens' Customer (Maybe Text) cPhoneNumber   = lens _cPhoneNumber (\ s a -> s{_cPhoneNumber = a})@@ -438,14 +454,17 @@ -- | JSON template for the ChangePlan rpc request. -- -- /See:/ 'changePlanRequest' smart constructor.-data ChangePlanRequest = ChangePlanRequest'+data ChangePlanRequest =+  ChangePlanRequest'     { _cprKind            :: !Text     , _cprDealCode        :: !(Maybe Text)     , _cprPlanName        :: !(Maybe Text)     , _cprPurchaseOrderId :: !(Maybe Text)     , _cprSeats           :: !(Maybe Seats)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ChangePlanRequest' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -462,7 +481,7 @@ changePlanRequest     :: ChangePlanRequest changePlanRequest =-    ChangePlanRequest'+  ChangePlanRequest'     { _cprKind = "subscriptions#changePlanRequest"     , _cprDealCode = Nothing     , _cprPlanName = Nothing@@ -470,6 +489,7 @@     , _cprSeats = Nothing     } + -- | Identifies the resource as a subscription change plan request. Value: -- subscriptions#changePlanRequest cprKind :: Lens' ChangePlanRequest Text@@ -490,8 +510,9 @@ -- | The planName property is required. This is the name of the -- subscription\'s payment plan. For more information about the Google -- payment plans, see API concepts. Possible values are: ---- ANNUAL_MONTHLY_PAY - The annual commitment plan with monthly payments ---- ANNUAL_YEARLY_PAY - The annual commitment plan with yearly payments -+-- ANNUAL_MONTHLY_PAY - The annual commitment plan with monthly payments+-- Caution: ANNUAL_MONTHLY_PAY is returned as ANNUAL in all API responses.+-- - ANNUAL_YEARLY_PAY - The annual commitment plan with yearly payments - -- FLEXIBLE - The flexible plan - TRIAL - The 30-day free trial plan cprPlanName :: Lens' ChangePlanRequest (Maybe Text) cprPlanName@@ -533,14 +554,18 @@                   ("seats" .=) <$> _cprSeats])  -- | In this version of the API, annual commitment plan\'s interval is one--- year.+-- year. Note: When billingMethod value is OFFLINE, the subscription+-- property object plan.commitmentInterval is omitted in all API responses. -- -- /See:/ 'subscriptionPlanCommitmentInterval' smart constructor.-data SubscriptionPlanCommitmentInterval = SubscriptionPlanCommitmentInterval'+data SubscriptionPlanCommitmentInterval =+  SubscriptionPlanCommitmentInterval'     { _spciStartTime :: !(Maybe (Textual Int64))     , _spciEndTime   :: !(Maybe (Textual Int64))-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'SubscriptionPlanCommitmentInterval' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -551,11 +576,10 @@ subscriptionPlanCommitmentInterval     :: SubscriptionPlanCommitmentInterval subscriptionPlanCommitmentInterval =-    SubscriptionPlanCommitmentInterval'-    { _spciStartTime = Nothing-    , _spciEndTime = Nothing-    }+  SubscriptionPlanCommitmentInterval'+    {_spciStartTime = Nothing, _spciEndTime = Nothing} + -- | An annual commitment plan\'s interval\'s startTime in milliseconds using -- UNIX Epoch format. See an example Epoch converter. spciStartTime :: Lens' SubscriptionPlanCommitmentInterval (Maybe Int64)@@ -593,12 +617,15 @@ -- API concepts. -- -- /See:/ 'subscriptionPlan' smart constructor.-data SubscriptionPlan = SubscriptionPlan'+data SubscriptionPlan =+  SubscriptionPlan'     { _spCommitmentInterval :: !(Maybe SubscriptionPlanCommitmentInterval)     , _spIsCommitmentPlan   :: !(Maybe Bool)     , _spPlanName           :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'SubscriptionPlan' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -611,14 +638,16 @@ subscriptionPlan     :: SubscriptionPlan subscriptionPlan =-    SubscriptionPlan'+  SubscriptionPlan'     { _spCommitmentInterval = Nothing     , _spIsCommitmentPlan = Nothing     , _spPlanName = Nothing     } + -- | In this version of the API, annual commitment plan\'s interval is one--- year.+-- year. Note: When billingMethod value is OFFLINE, the subscription+-- property object plan.commitmentInterval is omitted in all API responses. spCommitmentInterval :: Lens' SubscriptionPlan (Maybe SubscriptionPlanCommitmentInterval) spCommitmentInterval   = lens _spCommitmentInterval@@ -635,14 +664,16 @@ -- | The planName property is required. This is the name of the -- subscription\'s plan. For more information about the Google payment -- plans, see the API concepts. Possible values are: - ANNUAL_MONTHLY_PAY —--- The annual commitment plan with monthly payments - ANNUAL_YEARLY_PAY —--- The annual commitment plan with yearly payments - FLEXIBLE — The--- flexible plan - TRIAL — The 30-day free trial plan. A subscription in--- trial will be suspended after the 30th free day if no payment plan is--- assigned. Calling changePlan will assign a payment plan to a trial but--- will not activate the plan. A trial will automatically begin its--- assigned payment plan after its 30th free day or immediately after--- calling startPaidService.+-- The annual commitment plan with monthly payments. Caution:+-- ANNUAL_MONTHLY_PAY is returned as ANNUAL in all API responses. -+-- ANNUAL_YEARLY_PAY — The annual commitment plan with yearly payments -+-- FLEXIBLE — The flexible plan - TRIAL — The 30-day free trial plan. A+-- subscription in trial will be suspended after the 30th free day if no+-- payment plan is assigned. Calling changePlan will assign a payment plan+-- to a trial but will not activate the plan. A trial will automatically+-- begin its assigned payment plan after its 30th free day or immediately+-- after calling startPaidService. - FREE — The free plan is exclusive to+-- the Cloud Identity SKU and does not incur any billing. spPlanName :: Lens' SubscriptionPlan (Maybe Text) spPlanName   = lens _spPlanName (\ s a -> s{_spPlanName = a})@@ -667,12 +698,15 @@ -- | JSON template for a subscription list. -- -- /See:/ 'subscriptions' smart constructor.-data Subscriptions = Subscriptions'+data Subscriptions =+  Subscriptions'     { _sNextPageToken :: !(Maybe Text)     , _sKind          :: !Text     , _sSubscriptions :: !(Maybe [Subscription])-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Subscriptions' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -685,12 +719,13 @@ subscriptions     :: Subscriptions subscriptions =-    Subscriptions'+  Subscriptions'     { _sNextPageToken = Nothing     , _sKind = "reseller#subscriptions"     , _sSubscriptions = Nothing     } + -- | The continuation token, used to page through large result sets. Provide -- this value in a subsequent request to return the next page of results. sNextPageToken :: Lens' Subscriptions (Maybe Text)@@ -731,13 +766,16 @@ -- | JSON template for subscription seats. -- -- /See:/ 'seats' smart constructor.-data Seats = Seats'+data Seats =+  Seats'     { _seaNumberOfSeats         :: !(Maybe (Textual Int32))     , _seaMaximumNumberOfSeats  :: !(Maybe (Textual Int32))     , _seaLicensedNumberOfSeats :: !(Maybe (Textual Int32))     , _seaKind                  :: !Text-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Seats' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -752,65 +790,51 @@ seats     :: Seats seats =-    Seats'+  Seats'     { _seaNumberOfSeats = Nothing     , _seaMaximumNumberOfSeats = Nothing     , _seaLicensedNumberOfSeats = Nothing     , _seaKind = "subscriptions#seats"     } --- | The numberOfSeats property holds the customer\'s number of user--- licenses. How a user\'s licenses are managed depends on the--- subscription\'s plan: - annual commitment plan (with monthly or yearly--- pay) — For this plan, a reseller is invoiced on the number of user--- licenses in the numberOfSeats property. This is the maximum number of--- user licenses that a reseller\'s customer can create. The reseller can--- add more licenses, but once set, the numberOfSeats can not be reduced--- until renewal. The reseller is invoiced based on the numberOfSeats value--- regardless of how many of these user licenses are provisioned users. ---- flexible plan — For this plan, a reseller is invoiced on the actual--- number of users which is capped by the maximumNumberOfSeats. The--- numberOfSeats property is not used in the request or response for--- flexible plan customers. - 30-day free trial plan — The numberOfSeats--- property is not used in the request or response for an account in a--- 30-day trial.++-- | This is a required property and is exclusive to subscriptions with+-- ANNUAL_MONTHLY_PAY and ANNUAL_YEARLY_PAY plans. This property sets the+-- maximum number of licenses assignable to users on a subscription. The+-- reseller can add more licenses, but once set, the numberOfSeats cannot+-- be reduced until renewal. The reseller is invoiced based on the+-- numberOfSeats value regardless of how many of these user licenses are+-- assigned. Note: G Suite subscriptions automatically assign a license to+-- every user. seaNumberOfSeats :: Lens' Seats (Maybe Int32) seaNumberOfSeats   = lens _seaNumberOfSeats       (\ s a -> s{_seaNumberOfSeats = a})       . mapping _Coerce --- | The maximumNumberOfSeats property is the maximum number of licenses that--- the customer can purchase. This property applies to plans other than the--- annual commitment plan. How a user\'s licenses are managed depends on--- the subscription\'s payment plan: - annual commitment plan (with monthly--- or yearly payments) — For this plan, a reseller is invoiced on the--- number of user licenses in the numberOfSeats property. The--- maximumNumberOfSeats property is a read-only property in the API\'s--- response. - flexible plan — For this plan, a reseller is invoiced on the--- actual number of users which is capped by the maximumNumberOfSeats. This--- is the maximum number of user licenses a customer has for user license--- provisioning. This quantity can be increased up to the maximum limit--- defined in the reseller\'s contract. And the minimum quantity is the--- current number of users in the customer account. - 30-day free trial--- plan — A subscription in a 30-day free trial is restricted to maximum 10--- seats.+-- | This is a required property and is exclusive to subscriptions with+-- FLEXIBLE or TRIAL plans. This property sets the maximum number of+-- licensed users allowed on a subscription. This quantity can be increased+-- up to the maximum limit defined in the reseller\'s contract. The minimum+-- quantity is the current number of users in the customer account. Note: G+-- Suite subscriptions automatically assign a license to every user. seaMaximumNumberOfSeats :: Lens' Seats (Maybe Int32) seaMaximumNumberOfSeats   = lens _seaMaximumNumberOfSeats       (\ s a -> s{_seaMaximumNumberOfSeats = a})       . mapping _Coerce --- | Read-only field containing the current number of licensed seats for--- FLEXIBLE Google-Apps subscriptions and secondary subscriptions such as--- Google-Vault and Drive-storage.+-- | Read-only field containing the current number of users that are assigned+-- a license for the product defined in skuId. This field\'s value is+-- equivalent to the numerical count of users returned by the Enterprise+-- License Manager API method: listForProductAndSku seaLicensedNumberOfSeats :: Lens' Seats (Maybe Int32) seaLicensedNumberOfSeats   = lens _seaLicensedNumberOfSeats       (\ s a -> s{_seaLicensedNumberOfSeats = a})       . mapping _Coerce --- | Identifies the resource as a subscription change plan request. Value:+-- | Identifies the resource as a subscription seat setting. Value: -- subscriptions#seats seaKind :: Lens' Seats Text seaKind = lens _seaKind (\ s a -> s{_seaKind = a})@@ -839,11 +863,14 @@ -- | JSON template for a subscription renewal settings. -- -- /See:/ 'renewalSettings' smart constructor.-data RenewalSettings = RenewalSettings'+data RenewalSettings =+  RenewalSettings'     { _rsKind        :: !Text     , _rsRenewalType :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'RenewalSettings' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -854,11 +881,10 @@ renewalSettings     :: RenewalSettings renewalSettings =-    RenewalSettings'-    { _rsKind = "subscriptions#renewalSettings"-    , _rsRenewalType = Nothing-    }+  RenewalSettings'+    {_rsKind = "subscriptions#renewalSettings", _rsRenewalType = Nothing} + -- | Identifies the resource as a subscription renewal setting. Value: -- subscriptions#renewalSettings rsKind :: Lens' RenewalSettings Text@@ -890,7 +916,8 @@ -- | JSON template for a subscription. -- -- /See:/ 'subscription' smart constructor.-data Subscription = Subscription'+data Subscription =+  Subscription'     { _subCreationTime      :: !(Maybe (Textual Int64))     , _subBillingMethod     :: !(Maybe Text)     , _subStatus            :: !(Maybe Text)@@ -909,8 +936,10 @@     , _subSeats             :: !(Maybe Seats)     , _subRenewalSettings   :: !(Maybe RenewalSettings)     , _subSubscriptionId    :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Subscription' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -953,7 +982,7 @@ subscription     :: Subscription subscription =-    Subscription'+  Subscription'     { _subCreationTime = Nothing     , _subBillingMethod = Nothing     , _subStatus = Nothing@@ -974,6 +1003,7 @@     , _subSubscriptionId = Nothing     } + -- | The creationTime property is the date when subscription was created. It -- is in milliseconds using the Epoch format. See an example Epoch -- converter.@@ -1163,11 +1193,14 @@ -- information, see retrieve transferable subscriptions for a customer. -- -- /See:/ 'subscriptionTransferInfo' smart constructor.-data SubscriptionTransferInfo = SubscriptionTransferInfo'+data SubscriptionTransferInfo =+  SubscriptionTransferInfo'     { _stiTransferabilityExpirationTime :: !(Maybe (Textual Int64))     , _stiMinimumTransferableSeats      :: !(Maybe (Textual Int32))-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'SubscriptionTransferInfo' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1178,10 +1211,11 @@ subscriptionTransferInfo     :: SubscriptionTransferInfo subscriptionTransferInfo =-    SubscriptionTransferInfo'+  SubscriptionTransferInfo'     { _stiTransferabilityExpirationTime = Nothing     , _stiMinimumTransferableSeats = Nothing     }+  -- | The time when transfer token or intent to transfer will expire. The time -- is in milliseconds using UNIX Epoch format.

@@ -25,28 +25,6 @@       -- ^ @cancel@       -- Cancels the subscription immediately. This does not apply to a G Suite       -- subscription.-    | Downgrade-      -- ^ @downgrade@-      -- Downgrades a G Suite subscription to a Google Apps Free edition-      -- subscription only if the customer was initially subscribed to a Google-      -- Apps Free edition (also known as the Standard edition). Once downgraded,-      -- the customer no longer has access to the previous G Suite subscription-      -- and is no longer managed by the reseller. A G Suite subscription\'s-      -- downgrade cannot be invoked if an active or suspended Google Drive or-      -- Google Vault subscription is present. The Google Drive or Google Vault-      -- subscription must be cancelled before the G Suite subscription\'s-      -- downgrade is invoked. The downgrade deletionType does not apply to other-      -- products or G Suite SKUs.-    | Suspend-      -- ^ @suspend@-      -- (DEPRECATED) The G Suite account is suspended for four days and then-      -- cancelled. Once suspended, an administrator has access to the suspended-      -- account, but the account users can not access their services. A-      -- suspension can be lifted, using the reseller tools. A G Suite-      -- subscription\'s suspension can not be invoked if an active or suspended-      -- Google Drive or Google Vault subscription is present. The Google Drive-      -- or Google Vault subscription must be cancelled before the G Suite-      -- subscription\'s suspension is invoked.     | TransferToDirect       -- ^ @transfer_to_direct@       -- Transfers a subscription directly to Google.  The customer is@@ -61,16 +39,12 @@ instance FromHttpApiData SubscriptionsDeleteDeletionType where     parseQueryParam = \case         "cancel" -> Right Cancel-        "downgrade" -> Right Downgrade-        "suspend" -> Right Suspend         "transfer_to_direct" -> Right TransferToDirect         x -> Left ("Unable to parse SubscriptionsDeleteDeletionType from: " <> x)  instance ToHttpApiData SubscriptionsDeleteDeletionType where     toQueryParam = \case         Cancel -> "cancel"-        Downgrade -> "downgrade"-        Suspend -> "suspend"         TransferToDirect -> "transfer_to_direct"  instance FromJSON SubscriptionsDeleteDeletionType where

@@ -52,10 +52,13 @@ -- | Get a customer account. -- -- /See:/ 'customersGet' smart constructor.-newtype CustomersGet = CustomersGet'+newtype CustomersGet =+  CustomersGet'     { _cgCustomerId :: Text-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'CustomersGet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -64,10 +67,8 @@ customersGet     :: Text -- ^ 'cgCustomerId'     -> CustomersGet-customersGet pCgCustomerId_ =-    CustomersGet'-    { _cgCustomerId = pCgCustomerId_-    }+customersGet pCgCustomerId_ = CustomersGet' {_cgCustomerId = pCgCustomerId_}+  -- | Either the customer\'s primary domain name or the customer\'s unique -- identifier. If using the domain name, we do not recommend using a

@@ -54,11 +54,14 @@ -- | Order a new customer\'s account. -- -- /See:/ 'customersInsert' smart constructor.-data CustomersInsert = CustomersInsert'+data CustomersInsert =+  CustomersInsert'     { _ciPayload           :: !Customer     , _ciCustomerAuthToken :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'CustomersInsert' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -70,10 +73,8 @@     :: Customer -- ^ 'ciPayload'     -> CustomersInsert customersInsert pCiPayload_ =-    CustomersInsert'-    { _ciPayload = pCiPayload_-    , _ciCustomerAuthToken = Nothing-    }+  CustomersInsert' {_ciPayload = pCiPayload_, _ciCustomerAuthToken = Nothing}+  -- | Multipart request metadata. ciPayload :: Lens' CustomersInsert Customer

@@ -56,11 +56,14 @@ -- semantics. -- -- /See:/ 'customersPatch' smart constructor.-data CustomersPatch = CustomersPatch'+data CustomersPatch =+  CustomersPatch'     { _cpPayload    :: !Customer     , _cpCustomerId :: !Text-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'CustomersPatch' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -73,10 +76,8 @@     -> Text -- ^ 'cpCustomerId'     -> CustomersPatch customersPatch pCpPayload_ pCpCustomerId_ =-    CustomersPatch'-    { _cpPayload = pCpPayload_-    , _cpCustomerId = pCpCustomerId_-    }+  CustomersPatch' {_cpPayload = pCpPayload_, _cpCustomerId = pCpCustomerId_}+  -- | Multipart request metadata. cpPayload :: Lens' CustomersPatch Customer

@@ -54,11 +54,14 @@ -- | Update a customer account\'s settings. -- -- /See:/ 'customersUpdate' smart constructor.-data CustomersUpdate = CustomersUpdate'+data CustomersUpdate =+  CustomersUpdate'     { _cuPayload    :: !Customer     , _cuCustomerId :: !Text-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'CustomersUpdate' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -71,10 +74,8 @@     -> Text -- ^ 'cuCustomerId'     -> CustomersUpdate customersUpdate pCuPayload_ pCuCustomerId_ =-    CustomersUpdate'-    { _cuPayload = pCuPayload_-    , _cuCustomerId = pCuCustomerId_-    }+  CustomersUpdate' {_cuPayload = pCuPayload_, _cuCustomerId = pCuCustomerId_}+  -- | Multipart request metadata. cuPayload :: Lens' CustomersUpdate Customer

@@ -52,14 +52,16 @@ -- -- /See:/ 'resellernotifyGetwatchdetails' smart constructor. data ResellernotifyGetwatchdetails =-    ResellernotifyGetwatchdetails'-    deriving (Eq,Show,Data,Typeable,Generic)+  ResellernotifyGetwatchdetails'+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ResellernotifyGetwatchdetails' with the minimum fields required to make a request. -- resellernotifyGetwatchdetails     :: ResellernotifyGetwatchdetails resellernotifyGetwatchdetails = ResellernotifyGetwatchdetails'+  instance GoogleRequest ResellernotifyGetwatchdetails          where

@@ -54,10 +54,13 @@ -- | Registers a Reseller for receiving notifications. -- -- /See:/ 'resellernotifyRegister' smart constructor.-newtype ResellernotifyRegister = ResellernotifyRegister'+newtype ResellernotifyRegister =+  ResellernotifyRegister'     { _rrServiceAccountEmailAddress :: Maybe Text-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ResellernotifyRegister' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -66,9 +69,8 @@ resellernotifyRegister     :: ResellernotifyRegister resellernotifyRegister =-    ResellernotifyRegister'-    { _rrServiceAccountEmailAddress = Nothing-    }+  ResellernotifyRegister' {_rrServiceAccountEmailAddress = Nothing}+  -- | The service account which will own the created Cloud-PubSub topic. rrServiceAccountEmailAddress :: Lens' ResellernotifyRegister (Maybe Text)

@@ -54,10 +54,13 @@ -- | Unregisters a Reseller for receiving notifications. -- -- /See:/ 'resellernotifyUnregister' smart constructor.-newtype ResellernotifyUnregister = ResellernotifyUnregister'+newtype ResellernotifyUnregister =+  ResellernotifyUnregister'     { _ruServiceAccountEmailAddress :: Maybe Text-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ResellernotifyUnregister' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -66,9 +69,8 @@ resellernotifyUnregister     :: ResellernotifyUnregister resellernotifyUnregister =-    ResellernotifyUnregister'-    { _ruServiceAccountEmailAddress = Nothing-    }+  ResellernotifyUnregister' {_ruServiceAccountEmailAddress = Nothing}+  -- | The service account which owns the Cloud-PubSub topic. ruServiceAccountEmailAddress :: Lens' ResellernotifyUnregister (Maybe Text)

@@ -56,11 +56,14 @@ -- | Activates a subscription previously suspended by the reseller -- -- /See:/ 'subscriptionsActivate' smart constructor.-data SubscriptionsActivate = SubscriptionsActivate'+data SubscriptionsActivate =+  SubscriptionsActivate'     { _saCustomerId     :: !Text     , _saSubscriptionId :: !Text-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'SubscriptionsActivate' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -73,10 +76,9 @@     -> Text -- ^ 'saSubscriptionId'     -> SubscriptionsActivate subscriptionsActivate pSaCustomerId_ pSaSubscriptionId_ =-    SubscriptionsActivate'-    { _saCustomerId = pSaCustomerId_-    , _saSubscriptionId = pSaSubscriptionId_-    }+  SubscriptionsActivate'+    {_saCustomerId = pSaCustomerId_, _saSubscriptionId = pSaSubscriptionId_}+  -- | Either the customer\'s primary domain name or the customer\'s unique -- identifier. If using the domain name, we do not recommend using a

@@ -63,12 +63,15 @@ -- plan with monthly or yearly payments. -- -- /See:/ 'subscriptionsChangePlan' smart constructor.-data SubscriptionsChangePlan = SubscriptionsChangePlan'+data SubscriptionsChangePlan =+  SubscriptionsChangePlan'     { _scpPayload        :: !ChangePlanRequest     , _scpCustomerId     :: !Text     , _scpSubscriptionId :: !Text-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'SubscriptionsChangePlan' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -84,11 +87,12 @@     -> Text -- ^ 'scpSubscriptionId'     -> SubscriptionsChangePlan subscriptionsChangePlan pScpPayload_ pScpCustomerId_ pScpSubscriptionId_ =-    SubscriptionsChangePlan'+  SubscriptionsChangePlan'     { _scpPayload = pScpPayload_     , _scpCustomerId = pScpCustomerId_     , _scpSubscriptionId = pScpSubscriptionId_     }+  -- | Multipart request metadata. scpPayload :: Lens' SubscriptionsChangePlan ChangePlanRequest

@@ -61,12 +61,15 @@ -- accounts with annual commitment plans only. -- -- /See:/ 'subscriptionsChangeRenewalSettings' smart constructor.-data SubscriptionsChangeRenewalSettings = SubscriptionsChangeRenewalSettings'+data SubscriptionsChangeRenewalSettings =+  SubscriptionsChangeRenewalSettings'     { _scrsPayload        :: !RenewalSettings     , _scrsCustomerId     :: !Text     , _scrsSubscriptionId :: !Text-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'SubscriptionsChangeRenewalSettings' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -82,12 +85,13 @@     -> Text -- ^ 'scrsSubscriptionId'     -> SubscriptionsChangeRenewalSettings subscriptionsChangeRenewalSettings pScrsPayload_ pScrsCustomerId_ pScrsSubscriptionId_ =-    SubscriptionsChangeRenewalSettings'+  SubscriptionsChangeRenewalSettings'     { _scrsPayload = pScrsPayload_     , _scrsCustomerId = pScrsCustomerId_     , _scrsSubscriptionId = pScrsSubscriptionId_     } + -- | Multipart request metadata. scrsPayload :: Lens' SubscriptionsChangeRenewalSettings RenewalSettings scrsPayload@@ -113,7 +117,8 @@       (\ s a -> s{_scrsSubscriptionId = a})  instance GoogleRequest-         SubscriptionsChangeRenewalSettings where+           SubscriptionsChangeRenewalSettings+         where         type Rs SubscriptionsChangeRenewalSettings =              Subscription         type Scopes SubscriptionsChangeRenewalSettings =

@@ -58,12 +58,15 @@ -- | Update a subscription\'s user license settings. -- -- /See:/ 'subscriptionsChangeSeats' smart constructor.-data SubscriptionsChangeSeats = SubscriptionsChangeSeats'+data SubscriptionsChangeSeats =+  SubscriptionsChangeSeats'     { _scsPayload        :: !Seats     , _scsCustomerId     :: !Text     , _scsSubscriptionId :: !Text-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'SubscriptionsChangeSeats' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -79,11 +82,12 @@     -> Text -- ^ 'scsSubscriptionId'     -> SubscriptionsChangeSeats subscriptionsChangeSeats pScsPayload_ pScsCustomerId_ pScsSubscriptionId_ =-    SubscriptionsChangeSeats'+  SubscriptionsChangeSeats'     { _scsPayload = pScsPayload_     , _scsCustomerId = pScsCustomerId_     , _scsSubscriptionId = pScsSubscriptionId_     }+  -- | Multipart request metadata. scsPayload :: Lens' SubscriptionsChangeSeats Seats

@@ -20,7 +20,7 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Cancel, suspend or transfer a subscription to direct.+-- Cancel or transfer a subscription to direct. -- -- /See:/ <https://developers.google.com/google-apps/reseller/ Enterprise Apps Reseller API Reference> for @reseller.subscriptions.delete@. module Network.Google.Resource.Reseller.Subscriptions.Delete@@ -55,15 +55,18 @@                      SubscriptionsDeleteDeletionType                      :> QueryParam "alt" AltJSON :> Delete '[JSON] () --- | Cancel, suspend or transfer a subscription to direct.+-- | Cancel or transfer a subscription to direct. -- -- /See:/ 'subscriptionsDelete' smart constructor.-data SubscriptionsDelete = SubscriptionsDelete'+data SubscriptionsDelete =+  SubscriptionsDelete'     { _sdCustomerId     :: !Text     , _sdDeletionType   :: !SubscriptionsDeleteDeletionType     , _sdSubscriptionId :: !Text-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'SubscriptionsDelete' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -79,11 +82,12 @@     -> Text -- ^ 'sdSubscriptionId'     -> SubscriptionsDelete subscriptionsDelete pSdCustomerId_ pSdDeletionType_ pSdSubscriptionId_ =-    SubscriptionsDelete'+  SubscriptionsDelete'     { _sdCustomerId = pSdCustomerId_     , _sdDeletionType = pSdDeletionType_     , _sdSubscriptionId = pSdSubscriptionId_     }+  -- | Either the customer\'s primary domain name or the customer\'s unique -- identifier. If using the domain name, we do not recommend using a

@@ -55,11 +55,14 @@ -- | Get a specific subscription. -- -- /See:/ 'subscriptionsGet' smart constructor.-data SubscriptionsGet = SubscriptionsGet'+data SubscriptionsGet =+  SubscriptionsGet'     { _sgCustomerId     :: !Text     , _sgSubscriptionId :: !Text-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'SubscriptionsGet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -72,10 +75,9 @@     -> Text -- ^ 'sgSubscriptionId'     -> SubscriptionsGet subscriptionsGet pSgCustomerId_ pSgSubscriptionId_ =-    SubscriptionsGet'-    { _sgCustomerId = pSgCustomerId_-    , _sgSubscriptionId = pSgSubscriptionId_-    }+  SubscriptionsGet'+    {_sgCustomerId = pSgCustomerId_, _sgSubscriptionId = pSgSubscriptionId_}+  -- | Either the customer\'s primary domain name or the customer\'s unique -- identifier. If using the domain name, we do not recommend using a

@@ -58,12 +58,15 @@ -- | Create or transfer a subscription. -- -- /See:/ 'subscriptionsInsert' smart constructor.-data SubscriptionsInsert = SubscriptionsInsert'+data SubscriptionsInsert =+  SubscriptionsInsert'     { _siPayload           :: !Subscription     , _siCustomerId        :: !Text     , _siCustomerAuthToken :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'SubscriptionsInsert' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -78,11 +81,12 @@     -> Text -- ^ 'siCustomerId'     -> SubscriptionsInsert subscriptionsInsert pSiPayload_ pSiCustomerId_ =-    SubscriptionsInsert'+  SubscriptionsInsert'     { _siPayload = pSiPayload_     , _siCustomerId = pSiCustomerId_     , _siCustomerAuthToken = Nothing     }+  -- | Multipart request metadata. siPayload :: Lens' SubscriptionsInsert Subscription

@@ -64,14 +64,17 @@ -- customer\'s transferable subscriptions. -- -- /See:/ 'subscriptionsList' smart constructor.-data SubscriptionsList = SubscriptionsList'+data SubscriptionsList =+  SubscriptionsList'     { _slCustomerNamePrefix :: !(Maybe Text)     , _slCustomerId         :: !(Maybe Text)     , _slCustomerAuthToken  :: !(Maybe Text)     , _slPageToken          :: !(Maybe Text)     , _slMaxResults         :: !(Maybe (Textual Word32))-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'SubscriptionsList' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -88,13 +91,14 @@ subscriptionsList     :: SubscriptionsList subscriptionsList =-    SubscriptionsList'+  SubscriptionsList'     { _slCustomerNamePrefix = Nothing     , _slCustomerId = Nothing     , _slCustomerAuthToken = Nothing     , _slPageToken = Nothing     , _slMaxResults = Nothing     }+  -- | When retrieving all of your subscriptions and filtering for specific -- customers, you can enter a prefix for a customer name. Using an example

@@ -58,11 +58,14 @@ -- subscription. -- -- /See:/ 'subscriptionsStartPaidService' smart constructor.-data SubscriptionsStartPaidService = SubscriptionsStartPaidService'+data SubscriptionsStartPaidService =+  SubscriptionsStartPaidService'     { _sspsCustomerId     :: !Text     , _sspsSubscriptionId :: !Text-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'SubscriptionsStartPaidService' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -75,10 +78,11 @@     -> Text -- ^ 'sspsSubscriptionId'     -> SubscriptionsStartPaidService subscriptionsStartPaidService pSspsCustomerId_ pSspsSubscriptionId_ =-    SubscriptionsStartPaidService'+  SubscriptionsStartPaidService'     { _sspsCustomerId = pSspsCustomerId_     , _sspsSubscriptionId = pSspsSubscriptionId_     }+  -- | Either the customer\'s primary domain name or the customer\'s unique -- identifier. If using the domain name, we do not recommend using a

@@ -56,11 +56,14 @@ -- | Suspends an active subscription. -- -- /See:/ 'subscriptionsSuspend' smart constructor.-data SubscriptionsSuspend = SubscriptionsSuspend'+data SubscriptionsSuspend =+  SubscriptionsSuspend'     { _ssCustomerId     :: !Text     , _ssSubscriptionId :: !Text-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'SubscriptionsSuspend' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -73,10 +76,9 @@     -> Text -- ^ 'ssSubscriptionId'     -> SubscriptionsSuspend subscriptionsSuspend pSsCustomerId_ pSsSubscriptionId_ =-    SubscriptionsSuspend'-    { _ssCustomerId = pSsCustomerId_-    , _ssSubscriptionId = pSsSubscriptionId_-    }+  SubscriptionsSuspend'+    {_ssCustomerId = pSsCustomerId_, _ssSubscriptionId = pSsSubscriptionId_}+  -- | Either the customer\'s primary domain name or the customer\'s unique -- identifier. If using the domain name, we do not recommend using a

@@ -1,5 +1,5 @@ name:                  gogol-apps-reseller-version:               0.4.0+version:               0.5.0 synopsis:              Google Enterprise Apps Reseller SDK. homepage:              https://github.com/brendanhay/gogol bug-reports:           https://github.com/brendanhay/gogol/issues@@ -62,5 +62,5 @@         , Network.Google.AppsReseller.Types.Sum      build-depends:-          gogol-core == 0.4.0.*+          gogol-core == 0.5.0.*         , base       >= 4.7 && < 5