gogol-apps-reseller 0.0.1 → 0.1.0

raw patch · 20 files changed

+245/−142 lines, 20 filesdep ~gogol-corePVP ok

version bump matches the API change (PVP)

Dependency ranges changed: gogol-core

API changes (from Hackage documentation)

Files

• README.md +3/−3
• gen/Network/Google/AppsReseller.hs +10/−2
• gen/Network/Google/AppsReseller/Types.hs +12/−7
• gen/Network/Google/AppsReseller/Types/Product.hs +116/−57
• gen/Network/Google/AppsReseller/Types/Sum.hs +11/−11
• gen/Network/Google/Resource/Reseller/Customers/Get.hs +7/−4
• gen/Network/Google/Resource/Reseller/Customers/Insert.hs +8/−6
• gen/Network/Google/Resource/Reseller/Customers/Patch.hs +6/−4
• gen/Network/Google/Resource/Reseller/Customers/Update.hs +6/−4
• gen/Network/Google/Resource/Reseller/Subscriptions/Activate.hs +6/−4
• gen/Network/Google/Resource/Reseller/Subscriptions/ChangePlan.hs +6/−4
• gen/Network/Google/Resource/Reseller/Subscriptions/ChangeRenewalSettings.hs +6/−4
• gen/Network/Google/Resource/Reseller/Subscriptions/ChangeSeats.hs +6/−4
• gen/Network/Google/Resource/Reseller/Subscriptions/Delete.hs +6/−4
• gen/Network/Google/Resource/Reseller/Subscriptions/Get.hs +7/−4
• gen/Network/Google/Resource/Reseller/Subscriptions/Insert.hs +6/−4
• gen/Network/Google/Resource/Reseller/Subscriptions/List.hs +7/−4
• gen/Network/Google/Resource/Reseller/Subscriptions/StartPaidService.hs +6/−4
• gen/Network/Google/Resource/Reseller/Subscriptions/Suspend.hs +6/−4
• gogol-apps-reseller.cabal +4/−4

@@ -8,7 +8,7 @@  ## Version -`0.0.1`+`0.1.0`   ## Description@@ -18,9 +18,9 @@  ## Contribute -For any problems, comments, or feedback please create an issue [here on GitHub](https://github.com/brendanhay/amazonka/issues).+For any problems, comments, or feedback please create an issue [here on GitHub](https://github.com/brendanhay/gogol/issues). -> _Note:_ this library is an auto-generated Haskell package. Please see `amazonka-gen` for more information.+> _Note:_ this library is an auto-generated Haskell package. Please see `gogol-gen` for more information.   ## Licence

@@ -7,13 +7,13 @@  -- | -- Module      : Network.Google.AppsReseller--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Lets you create and manage your customers and their subscriptions.+-- Creates and manages your customers and their subscriptions. -- -- /See:/ <https://developers.google.com/google-apps/reseller/ Enterprise Apps Reseller API Reference> module Network.Google.AppsReseller@@ -21,6 +21,10 @@     -- * Service Configuration       appsResellerService +    -- * OAuth Scopes+    , appsOrderReadOnlyScope+    , appsOrderScope+     -- * API Declaration     , AppsResellerAPI @@ -93,6 +97,7 @@     -- ** Customer     , Customer     , customer+    , cCustomerDomainVerified     , cResourceUiURL     , cKind     , cCustomerId@@ -105,6 +110,7 @@     , ChangePlanRequest     , changePlanRequest     , cprKind+    , cprDealCode     , cprPlanName     , cprPurchaseOrderId     , cprSeats@@ -157,7 +163,9 @@     , subKind     , subSKUId     , subPlan+    , subDealCode     , subCustomerId+    , subCustomerDomain     , subSuspensionReasons     , subTransferInfo     , subPurchaseOrderId

@@ -1,3 +1,4 @@+{-# LANGUAGE DataKinds          #-} {-# LANGUAGE DeriveDataTypeable #-} {-# LANGUAGE DeriveGeneric      #-} {-# LANGUAGE NoImplicitPrelude  #-}@@ -7,7 +8,7 @@  -- | -- Module      : Network.Google.AppsReseller.Types--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -19,7 +20,7 @@       appsResellerService      -- * OAuth Scopes-    , appsOrderReadonlyScope+    , appsOrderReadOnlyScope     , appsOrderScope      -- * SubscriptionTrialSettings@@ -45,6 +46,7 @@     -- * Customer     , Customer     , customer+    , cCustomerDomainVerified     , cResourceUiURL     , cKind     , cCustomerId@@ -57,6 +59,7 @@     , ChangePlanRequest     , changePlanRequest     , cprKind+    , cprDealCode     , cprPlanName     , cprPurchaseOrderId     , cprSeats@@ -109,7 +112,9 @@     , subKind     , subSKUId     , subPlan+    , subDealCode     , subCustomerId+    , subCustomerDomain     , subSuspensionReasons     , subTransferInfo     , subPurchaseOrderId@@ -129,15 +134,15 @@ import           Network.Google.Prelude  -- | Default request referring to version 'v1' of the Enterprise Apps Reseller API. This contains the host and root path used as a starting point for constructing service requests.-appsResellerService :: Service+appsResellerService :: ServiceConfig appsResellerService   = defaultService (ServiceId "reseller:v1")       "www.googleapis.com"  -- | Manage users on your domain-appsOrderReadonlyScope :: OAuthScope-appsOrderReadonlyScope = "https://www.googleapis.com/auth/apps.order.readonly";+appsOrderReadOnlyScope :: Proxy '["https://www.googleapis.com/auth/apps.order.readonly"]+appsOrderReadOnlyScope = Proxy;  -- | Manage users on your domain-appsOrderScope :: OAuthScope-appsOrderScope = "https://www.googleapis.com/auth/apps.order";+appsOrderScope :: Proxy '["https://www.googleapis.com/auth/apps.order"]+appsOrderScope = Proxy;

@@ -9,7 +9,7 @@  -- | -- Module      : Network.Google.AppsReseller.Types.Product--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -23,7 +23,7 @@ -- | Trial Settings of the subscription. -- -- /See:/ 'subscriptionTrialSettings' smart constructor.-data SubscriptionTrialSettings = SubscriptionTrialSettings+data SubscriptionTrialSettings = SubscriptionTrialSettings'     { _stsIsInTrial    :: !(Maybe Bool)     , _stsTrialEndTime :: !(Maybe (Textual Int64))     } deriving (Eq,Show,Data,Typeable,Generic)@@ -38,7 +38,7 @@ subscriptionTrialSettings     :: SubscriptionTrialSettings subscriptionTrialSettings =-    SubscriptionTrialSettings+    SubscriptionTrialSettings'     { _stsIsInTrial = Nothing     , _stsTrialEndTime = Nothing     }@@ -59,11 +59,11 @@         parseJSON           = withObject "SubscriptionTrialSettings"               (\ o ->-                 SubscriptionTrialSettings <$>+                 SubscriptionTrialSettings' <$>                    (o .:? "isInTrial") <*> (o .:? "trialEndTime"))  instance ToJSON SubscriptionTrialSettings where-        toJSON SubscriptionTrialSettings{..}+        toJSON SubscriptionTrialSettings'{..}           = object               (catMaybes                  [("isInTrial" .=) <$> _stsIsInTrial,@@ -72,7 +72,7 @@ -- | 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)@@ -111,7 +111,7 @@ address     :: Address address =-    Address+    Address'     { _aOrganizationName = Nothing     , _aKind = "customers#address"     , _aPostalCode = Nothing@@ -183,7 +183,7 @@         parseJSON           = withObject "Address"               (\ o ->-                 Address <$>+                 Address' <$>                    (o .:? "organizationName") <*>                      (o .:? "kind" .!= "customers#address")                      <*> (o .:? "postalCode")@@ -196,7 +196,7 @@                      <*> (o .:? "addressLine3"))  instance ToJSON Address where-        toJSON Address{..}+        toJSON Address'{..}           = object               (catMaybes                  [("organizationName" .=) <$> _aOrganizationName,@@ -213,20 +213,23 @@ -- | JSON template for a customer. -- -- /See:/ 'customer' smart constructor.-data Customer = Customer-    { _cResourceUiURL  :: !(Maybe Text)-    , _cKind           :: !Text-    , _cCustomerId     :: !(Maybe Text)-    , _cAlternateEmail :: !(Maybe Text)-    , _cCustomerDomain :: !(Maybe Text)-    , _cPhoneNumber    :: !(Maybe Text)-    , _cPostalAddress  :: !(Maybe Address)+data Customer = Customer'+    { _cCustomerDomainVerified :: !(Maybe Bool)+    , _cResourceUiURL          :: !(Maybe Text)+    , _cKind                   :: !Text+    , _cCustomerId             :: !(Maybe Text)+    , _cAlternateEmail         :: !(Maybe Text)+    , _cCustomerDomain         :: !(Maybe Text)+    , _cPhoneNumber            :: !(Maybe Text)+    , _cPostalAddress          :: !(Maybe Address)     } 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: --+-- * 'cCustomerDomainVerified'+-- -- * 'cResourceUiURL' -- -- * 'cKind'@@ -243,8 +246,9 @@ customer     :: Customer customer =-    Customer-    { _cResourceUiURL = Nothing+    Customer'+    { _cCustomerDomainVerified = Nothing+    , _cResourceUiURL = Nothing     , _cKind = "reseller#customer"     , _cCustomerId = Nothing     , _cAlternateEmail = Nothing@@ -253,6 +257,12 @@     , _cPostalAddress = Nothing     } +-- | Whether the customer\'s primary domain has been verified.+cCustomerDomainVerified :: Lens' Customer (Maybe Bool)+cCustomerDomainVerified+  = lens _cCustomerDomainVerified+      (\ s a -> s{_cCustomerDomainVerified = a})+ -- | Ui url for customer resource. cResourceUiURL :: Lens' Customer (Maybe Text) cResourceUiURL@@ -295,9 +305,10 @@         parseJSON           = withObject "Customer"               (\ o ->-                 Customer <$>-                   (o .:? "resourceUiUrl") <*>-                     (o .:? "kind" .!= "reseller#customer")+                 Customer' <$>+                   (o .:? "customerDomainVerified") <*>+                     (o .:? "resourceUiUrl")+                     <*> (o .:? "kind" .!= "reseller#customer")                      <*> (o .:? "customerId")                      <*> (o .:? "alternateEmail")                      <*> (o .:? "customerDomain")@@ -305,10 +316,12 @@                      <*> (o .:? "postalAddress"))  instance ToJSON Customer where-        toJSON Customer{..}+        toJSON Customer'{..}           = object               (catMaybes-                 [("resourceUiUrl" .=) <$> _cResourceUiURL,+                 [("customerDomainVerified" .=) <$>+                    _cCustomerDomainVerified,+                  ("resourceUiUrl" .=) <$> _cResourceUiURL,                   Just ("kind" .= _cKind),                   ("customerId" .=) <$> _cCustomerId,                   ("alternateEmail" .=) <$> _cAlternateEmail,@@ -319,8 +332,9 @@ -- | 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)@@ -332,6 +346,8 @@ -- -- * 'cprKind' --+-- * 'cprDealCode'+-- -- * 'cprPlanName' -- -- * 'cprPurchaseOrderId'@@ -340,8 +356,9 @@ changePlanRequest     :: ChangePlanRequest changePlanRequest =-    ChangePlanRequest+    ChangePlanRequest'     { _cprKind = "subscriptions#changePlanRequest"+    , _cprDealCode = Nothing     , _cprPlanName = Nothing     , _cprPurchaseOrderId = Nothing     , _cprSeats = Nothing@@ -351,6 +368,12 @@ cprKind :: Lens' ChangePlanRequest Text cprKind = lens _cprKind (\ s a -> s{_cprKind = a}) +-- | External name of the deal code applicable for the subscription. This+-- field is optional. If missing, the deal price plan won\'t be used.+cprDealCode :: Lens' ChangePlanRequest (Maybe Text)+cprDealCode+  = lens _cprDealCode (\ s a -> s{_cprDealCode = a})+ -- | Name of the plan to change to. cprPlanName :: Lens' ChangePlanRequest (Maybe Text) cprPlanName@@ -370,17 +393,19 @@         parseJSON           = withObject "ChangePlanRequest"               (\ o ->-                 ChangePlanRequest <$>+                 ChangePlanRequest' <$>                    (o .:? "kind" .!= "subscriptions#changePlanRequest")+                     <*> (o .:? "dealCode")                      <*> (o .:? "planName")                      <*> (o .:? "purchaseOrderId")                      <*> (o .:? "seats"))  instance ToJSON ChangePlanRequest where-        toJSON ChangePlanRequest{..}+        toJSON ChangePlanRequest'{..}           = object               (catMaybes                  [Just ("kind" .= _cprKind),+                  ("dealCode" .=) <$> _cprDealCode,                   ("planName" .=) <$> _cprPlanName,                   ("purchaseOrderId" .=) <$> _cprPurchaseOrderId,                   ("seats" .=) <$> _cprSeats])@@ -388,7 +413,7 @@ -- | Interval of the commitment if it is a commitment plan. -- -- /See:/ 'subscriptionPlanCommitmentInterval' smart constructor.-data SubscriptionPlanCommitmentInterval = SubscriptionPlanCommitmentInterval+data SubscriptionPlanCommitmentInterval = SubscriptionPlanCommitmentInterval'     { _spciStartTime :: !(Maybe (Textual Int64))     , _spciEndTime   :: !(Maybe (Textual Int64))     } deriving (Eq,Show,Data,Typeable,Generic)@@ -403,7 +428,7 @@ subscriptionPlanCommitmentInterval     :: SubscriptionPlanCommitmentInterval subscriptionPlanCommitmentInterval =-    SubscriptionPlanCommitmentInterval+    SubscriptionPlanCommitmentInterval'     { _spciStartTime = Nothing     , _spciEndTime = Nothing     }@@ -426,12 +451,12 @@         parseJSON           = withObject "SubscriptionPlanCommitmentInterval"               (\ o ->-                 SubscriptionPlanCommitmentInterval <$>+                 SubscriptionPlanCommitmentInterval' <$>                    (o .:? "startTime") <*> (o .:? "endTime"))  instance ToJSON SubscriptionPlanCommitmentInterval          where-        toJSON SubscriptionPlanCommitmentInterval{..}+        toJSON SubscriptionPlanCommitmentInterval'{..}           = object               (catMaybes                  [("startTime" .=) <$> _spciStartTime,@@ -440,7 +465,7 @@ -- | Plan details of the subscription -- -- /See:/ 'subscriptionPlan' smart constructor.-data SubscriptionPlan = SubscriptionPlan+data SubscriptionPlan = SubscriptionPlan'     { _spCommitmentInterval :: !(Maybe SubscriptionPlanCommitmentInterval)     , _spIsCommitmentPlan   :: !(Maybe Bool)     , _spPlanName           :: !(Maybe Text)@@ -458,7 +483,7 @@ subscriptionPlan     :: SubscriptionPlan subscriptionPlan =-    SubscriptionPlan+    SubscriptionPlan'     { _spCommitmentInterval = Nothing     , _spIsCommitmentPlan = Nothing     , _spPlanName = Nothing@@ -485,13 +510,13 @@         parseJSON           = withObject "SubscriptionPlan"               (\ o ->-                 SubscriptionPlan <$>+                 SubscriptionPlan' <$>                    (o .:? "commitmentInterval") <*>                      (o .:? "isCommitmentPlan")                      <*> (o .:? "planName"))  instance ToJSON SubscriptionPlan where-        toJSON SubscriptionPlan{..}+        toJSON SubscriptionPlan'{..}           = object               (catMaybes                  [("commitmentInterval" .=) <$> _spCommitmentInterval,@@ -501,7 +526,7 @@ -- | JSON template for a subscription list. -- -- /See:/ 'subscriptions' smart constructor.-data Subscriptions = Subscriptions+data Subscriptions = Subscriptions'     { _sNextPageToken :: !(Maybe Text)     , _sKind          :: !Text     , _sSubscriptions :: !(Maybe [Subscription])@@ -519,7 +544,7 @@ subscriptions     :: Subscriptions subscriptions =-    Subscriptions+    Subscriptions'     { _sNextPageToken = Nothing     , _sKind = "reseller#subscriptions"     , _sSubscriptions = Nothing@@ -548,13 +573,13 @@         parseJSON           = withObject "Subscriptions"               (\ o ->-                 Subscriptions <$>+                 Subscriptions' <$>                    (o .:? "nextPageToken") <*>                      (o .:? "kind" .!= "reseller#subscriptions")                      <*> (o .:? "subscriptions" .!= mempty))  instance ToJSON Subscriptions where-        toJSON Subscriptions{..}+        toJSON Subscriptions'{..}           = object               (catMaybes                  [("nextPageToken" .=) <$> _sNextPageToken,@@ -564,7 +589,7 @@ -- | 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))@@ -585,7 +610,7 @@ seats     :: Seats seats =-    Seats+    Seats'     { _seaNumberOfSeats = Nothing     , _seaMaximumNumberOfSeats = Nothing     , _seaLicensedNumberOfSeats = Nothing@@ -626,14 +651,14 @@         parseJSON           = withObject "Seats"               (\ o ->-                 Seats <$>+                 Seats' <$>                    (o .:? "numberOfSeats") <*>                      (o .:? "maximumNumberOfSeats")                      <*> (o .:? "licensedNumberOfSeats")                      <*> (o .:? "kind" .!= "subscriptions#seats"))  instance ToJSON Seats where-        toJSON Seats{..}+        toJSON Seats'{..}           = object               (catMaybes                  [("numberOfSeats" .=) <$> _seaNumberOfSeats,@@ -646,7 +671,7 @@ -- | 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)@@ -661,7 +686,7 @@ renewalSettings     :: RenewalSettings renewalSettings =-    RenewalSettings+    RenewalSettings'     { _rsKind = "subscriptions#renewalSettings"     , _rsRenewalType = Nothing     }@@ -680,12 +705,12 @@         parseJSON           = withObject "RenewalSettings"               (\ o ->-                 RenewalSettings <$>+                 RenewalSettings' <$>                    (o .:? "kind" .!= "subscriptions#renewalSettings")                      <*> (o .:? "renewalType"))  instance ToJSON RenewalSettings where-        toJSON RenewalSettings{..}+        toJSON RenewalSettings'{..}           = object               (catMaybes                  [Just ("kind" .= _rsKind),@@ -694,7 +719,7 @@ -- | 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)@@ -703,7 +728,9 @@     , _subKind              :: !Text     , _subSKUId             :: !(Maybe Text)     , _subPlan              :: !(Maybe SubscriptionPlan)+    , _subDealCode          :: !(Maybe Text)     , _subCustomerId        :: !(Maybe Text)+    , _subCustomerDomain    :: !(Maybe Text)     , _subSuspensionReasons :: !(Maybe [Text])     , _subTransferInfo      :: !(Maybe SubscriptionTransferInfo)     , _subPurchaseOrderId   :: !(Maybe Text)@@ -732,8 +759,12 @@ -- -- * 'subPlan' --+-- * 'subDealCode'+-- -- * 'subCustomerId' --+-- * 'subCustomerDomain'+-- -- * 'subSuspensionReasons' -- -- * 'subTransferInfo'@@ -748,7 +779,7 @@ subscription     :: Subscription subscription =-    Subscription+    Subscription'     { _subCreationTime = Nothing     , _subBillingMethod = Nothing     , _subStatus = Nothing@@ -757,7 +788,9 @@     , _subKind = "reseller#subscription"     , _subSKUId = Nothing     , _subPlan = Nothing+    , _subDealCode = Nothing     , _subCustomerId = Nothing+    , _subCustomerDomain = Nothing     , _subSuspensionReasons = Nothing     , _subTransferInfo = Nothing     , _subPurchaseOrderId = Nothing@@ -808,13 +841,35 @@ subPlan :: Lens' Subscription (Maybe SubscriptionPlan) subPlan = lens _subPlan (\ s a -> s{_subPlan = a}) +-- | External name of the deal, if this subscription was provisioned under+-- one. Otherwise this field will be empty.+subDealCode :: Lens' Subscription (Maybe Text)+subDealCode+  = lens _subDealCode (\ s a -> s{_subDealCode = a})+ -- | The id of the customer to whom the subscription belongs. subCustomerId :: Lens' Subscription (Maybe Text) subCustomerId   = lens _subCustomerId       (\ s a -> s{_subCustomerId = a}) --- | Suspension Reasons+-- | Primary domain name of the customer+subCustomerDomain :: Lens' Subscription (Maybe Text)+subCustomerDomain+  = lens _subCustomerDomain+      (\ s a -> s{_subCustomerDomain = a})++-- | Read-only field containing an enumerable of all the current suspension+-- reasons for a subscription. It is possible for a subscription to have+-- many concurrent, overlapping suspension reasons. A subscription\'s+-- STATUS is SUSPENDED until all pending suspensions are removed. Possible+-- options include: - PENDING_TOS_ACCEPTANCE - The customer has not logged+-- in and accepted the Google Apps Resold Terms of Services. -+-- RENEWAL_WITH_TYPE_CANCEL - The customer\'s commitment ended and their+-- service was cancelled at the end of their term. - RESELLER_INITIATED - A+-- manual suspension invoked by a Reseller. - TRIAL_ENDED - The customer\'s+-- trial expired without a plan selected. - OTHER - The customer is+-- suspended for an internal Google reason (e.g. abuse or otherwise). subSuspensionReasons :: Lens' Subscription [Text] subSuspensionReasons   = lens _subSuspensionReasons@@ -854,7 +909,7 @@         parseJSON           = withObject "Subscription"               (\ o ->-                 Subscription <$>+                 Subscription' <$>                    (o .:? "creationTime") <*> (o .:? "billingMethod")                      <*> (o .:? "status")                      <*> (o .:? "trialSettings")@@ -862,7 +917,9 @@                      <*> (o .:? "kind" .!= "reseller#subscription")                      <*> (o .:? "skuId")                      <*> (o .:? "plan")+                     <*> (o .:? "dealCode")                      <*> (o .:? "customerId")+                     <*> (o .:? "customerDomain")                      <*> (o .:? "suspensionReasons" .!= mempty)                      <*> (o .:? "transferInfo")                      <*> (o .:? "purchaseOrderId")@@ -871,7 +928,7 @@                      <*> (o .:? "subscriptionId"))  instance ToJSON Subscription where-        toJSON Subscription{..}+        toJSON Subscription'{..}           = object               (catMaybes                  [("creationTime" .=) <$> _subCreationTime,@@ -881,7 +938,9 @@                   ("resourceUiUrl" .=) <$> _subResourceUiURL,                   Just ("kind" .= _subKind),                   ("skuId" .=) <$> _subSKUId, ("plan" .=) <$> _subPlan,+                  ("dealCode" .=) <$> _subDealCode,                   ("customerId" .=) <$> _subCustomerId,+                  ("customerDomain" .=) <$> _subCustomerDomain,                   ("suspensionReasons" .=) <$> _subSuspensionReasons,                   ("transferInfo" .=) <$> _subTransferInfo,                   ("purchaseOrderId" .=) <$> _subPurchaseOrderId,@@ -892,7 +951,7 @@ -- | Transfer related information for the subscription. -- -- /See:/ 'subscriptionTransferInfo' smart constructor.-data SubscriptionTransferInfo = SubscriptionTransferInfo+data SubscriptionTransferInfo = SubscriptionTransferInfo'     { _stiTransferabilityExpirationTime :: !(Maybe (Textual Int64))     , _stiMinimumTransferableSeats      :: !(Maybe (Textual Int32))     } deriving (Eq,Show,Data,Typeable,Generic)@@ -907,7 +966,7 @@ subscriptionTransferInfo     :: SubscriptionTransferInfo subscriptionTransferInfo =-    SubscriptionTransferInfo+    SubscriptionTransferInfo'     { _stiTransferabilityExpirationTime = Nothing     , _stiMinimumTransferableSeats = Nothing     }@@ -929,12 +988,12 @@         parseJSON           = withObject "SubscriptionTransferInfo"               (\ o ->-                 SubscriptionTransferInfo <$>+                 SubscriptionTransferInfo' <$>                    (o .:? "transferabilityExpirationTime") <*>                      (o .:? "minimumTransferableSeats"))  instance ToJSON SubscriptionTransferInfo where-        toJSON SubscriptionTransferInfo{..}+        toJSON SubscriptionTransferInfo'{..}           = object               (catMaybes                  [("transferabilityExpirationTime" .=) <$>

@@ -8,7 +8,7 @@  -- | -- Module      : Network.Google.AppsReseller.Types.Sum--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -32,20 +32,20 @@     | TransferToDirect       -- ^ @transfer_to_direct@       -- Transfers a subscription directly to Google-      deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)+      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)  instance Hashable SubscriptionsDeleteDeletionType -instance FromText SubscriptionsDeleteDeletionType where-    fromText = \case-        "cancel" -> Just Cancel-        "downgrade" -> Just Downgrade-        "suspend" -> Just Suspend-        "transfer_to_direct" -> Just TransferToDirect-        _ -> Nothing+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 ToText SubscriptionsDeleteDeletionType where-    toText = \case+instance ToHttpApiData SubscriptionsDeleteDeletionType where+    toQueryParam = \case         Cancel -> "cancel"         Downgrade -> "downgrade"         Suspend -> "suspend"

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Reseller.Customers.Get--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -52,7 +52,7 @@ -- | Gets a customer resource if one exists and is owned by the reseller. -- -- /See:/ 'customersGet' smart constructor.-newtype CustomersGet = CustomersGet+newtype CustomersGet = CustomersGet'     { _cgCustomerId :: Text     } deriving (Eq,Show,Data,Typeable,Generic) @@ -65,7 +65,7 @@     :: Text -- ^ 'cgCustomerId'     -> CustomersGet customersGet pCgCustomerId_ =-    CustomersGet+    CustomersGet'     { _cgCustomerId = pCgCustomerId_     } @@ -76,7 +76,10 @@  instance GoogleRequest CustomersGet where         type Rs CustomersGet = Customer-        requestClient CustomersGet{..}+        type Scopes CustomersGet =+             '["https://www.googleapis.com/auth/apps.order",+               "https://www.googleapis.com/auth/apps.order.readonly"]+        requestClient CustomersGet'{..}           = go _cgCustomerId (Just AltJSON) appsResellerService           where go                   = buildClient (Proxy :: Proxy CustomersGetResource)

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Reseller.Customers.Insert--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -54,7 +54,7 @@ -- | Creates a customer resource if one does not already exist. -- -- /See:/ 'customersInsert' smart constructor.-data CustomersInsert = CustomersInsert+data CustomersInsert = CustomersInsert'     { _ciPayload           :: !Customer     , _ciCustomerAuthToken :: !(Maybe Text)     } deriving (Eq,Show,Data,Typeable,Generic)@@ -70,7 +70,7 @@     :: Customer -- ^ 'ciPayload'     -> CustomersInsert customersInsert pCiPayload_ =-    CustomersInsert+    CustomersInsert'     { _ciPayload = pCiPayload_     , _ciCustomerAuthToken = Nothing     }@@ -81,8 +81,8 @@   = lens _ciPayload (\ s a -> s{_ciPayload = a})  -- | An auth token needed for inserting a customer for which domain already--- exists. Can be generated at--- https:\/\/www.google.com\/a\/cpanel\/\/TransferToken. Optional.+-- exists. Can be generated at https:\/\/admin.google.com\/TransferToken.+-- Optional. ciCustomerAuthToken :: Lens' CustomersInsert (Maybe Text) ciCustomerAuthToken   = lens _ciCustomerAuthToken@@ -90,7 +90,9 @@  instance GoogleRequest CustomersInsert where         type Rs CustomersInsert = Customer-        requestClient CustomersInsert{..}+        type Scopes CustomersInsert =+             '["https://www.googleapis.com/auth/apps.order"]+        requestClient CustomersInsert'{..}           = go _ciCustomerAuthToken (Just AltJSON) _ciPayload               appsResellerService           where go

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Reseller.Customers.Patch--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -56,7 +56,7 @@ -- reseller. This method supports patch semantics. -- -- /See:/ 'customersPatch' smart constructor.-data CustomersPatch = CustomersPatch+data CustomersPatch = CustomersPatch'     { _cpPayload    :: !Customer     , _cpCustomerId :: !Text     } deriving (Eq,Show,Data,Typeable,Generic)@@ -73,7 +73,7 @@     -> Text -- ^ 'cpCustomerId'     -> CustomersPatch customersPatch pCpPayload_ pCpCustomerId_ =-    CustomersPatch+    CustomersPatch'     { _cpPayload = pCpPayload_     , _cpCustomerId = pCpCustomerId_     }@@ -90,7 +90,9 @@  instance GoogleRequest CustomersPatch where         type Rs CustomersPatch = Customer-        requestClient CustomersPatch{..}+        type Scopes CustomersPatch =+             '["https://www.googleapis.com/auth/apps.order"]+        requestClient CustomersPatch'{..}           = go _cpCustomerId (Just AltJSON) _cpPayload               appsResellerService           where go

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Reseller.Customers.Update--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -56,7 +56,7 @@ -- reseller. -- -- /See:/ 'customersUpdate' smart constructor.-data CustomersUpdate = CustomersUpdate+data CustomersUpdate = CustomersUpdate'     { _cuPayload    :: !Customer     , _cuCustomerId :: !Text     } deriving (Eq,Show,Data,Typeable,Generic)@@ -73,7 +73,7 @@     -> Text -- ^ 'cuCustomerId'     -> CustomersUpdate customersUpdate pCuPayload_ pCuCustomerId_ =-    CustomersUpdate+    CustomersUpdate'     { _cuPayload = pCuPayload_     , _cuCustomerId = pCuCustomerId_     }@@ -90,7 +90,9 @@  instance GoogleRequest CustomersUpdate where         type Rs CustomersUpdate = Customer-        requestClient CustomersUpdate{..}+        type Scopes CustomersUpdate =+             '["https://www.googleapis.com/auth/apps.order"]+        requestClient CustomersUpdate'{..}           = go _cuCustomerId (Just AltJSON) _cuPayload               appsResellerService           where go

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Reseller.Subscriptions.Activate--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -56,7 +56,7 @@ -- | 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)@@ -73,7 +73,7 @@     -> Text -- ^ 'saSubscriptionId'     -> SubscriptionsActivate subscriptionsActivate pSaCustomerId_ pSaSubscriptionId_ =-    SubscriptionsActivate+    SubscriptionsActivate'     { _saCustomerId = pSaCustomerId_     , _saSubscriptionId = pSaSubscriptionId_     }@@ -91,7 +91,9 @@  instance GoogleRequest SubscriptionsActivate where         type Rs SubscriptionsActivate = Subscription-        requestClient SubscriptionsActivate{..}+        type Scopes SubscriptionsActivate =+             '["https://www.googleapis.com/auth/apps.order"]+        requestClient SubscriptionsActivate'{..}           = go _saCustomerId _saSubscriptionId (Just AltJSON)               appsResellerService           where go

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Reseller.Subscriptions.ChangePlan--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -59,7 +59,7 @@ -- | Changes the plan of a subscription -- -- /See:/ 'subscriptionsChangePlan' smart constructor.-data SubscriptionsChangePlan = SubscriptionsChangePlan+data SubscriptionsChangePlan = SubscriptionsChangePlan'     { _scpPayload        :: !ChangePlanRequest     , _scpCustomerId     :: !Text     , _scpSubscriptionId :: !Text@@ -80,7 +80,7 @@     -> Text -- ^ 'scpSubscriptionId'     -> SubscriptionsChangePlan subscriptionsChangePlan pScpPayload_ pScpCustomerId_ pScpSubscriptionId_ =-    SubscriptionsChangePlan+    SubscriptionsChangePlan'     { _scpPayload = pScpPayload_     , _scpCustomerId = pScpCustomerId_     , _scpSubscriptionId = pScpSubscriptionId_@@ -105,7 +105,9 @@  instance GoogleRequest SubscriptionsChangePlan where         type Rs SubscriptionsChangePlan = Subscription-        requestClient SubscriptionsChangePlan{..}+        type Scopes SubscriptionsChangePlan =+             '["https://www.googleapis.com/auth/apps.order"]+        requestClient SubscriptionsChangePlan'{..}           = go _scpCustomerId _scpSubscriptionId (Just AltJSON)               _scpPayload               appsResellerService

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Reseller.Subscriptions.ChangeRenewalSettings--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -59,7 +59,7 @@ -- | Changes the renewal settings of a subscription -- -- /See:/ 'subscriptionsChangeRenewalSettings' smart constructor.-data SubscriptionsChangeRenewalSettings = SubscriptionsChangeRenewalSettings+data SubscriptionsChangeRenewalSettings = SubscriptionsChangeRenewalSettings'     { _scrsPayload        :: !RenewalSettings     , _scrsCustomerId     :: !Text     , _scrsSubscriptionId :: !Text@@ -80,7 +80,7 @@     -> Text -- ^ 'scrsSubscriptionId'     -> SubscriptionsChangeRenewalSettings subscriptionsChangeRenewalSettings pScrsPayload_ pScrsCustomerId_ pScrsSubscriptionId_ =-    SubscriptionsChangeRenewalSettings+    SubscriptionsChangeRenewalSettings'     { _scrsPayload = pScrsPayload_     , _scrsCustomerId = pScrsCustomerId_     , _scrsSubscriptionId = pScrsSubscriptionId_@@ -107,7 +107,9 @@          SubscriptionsChangeRenewalSettings where         type Rs SubscriptionsChangeRenewalSettings =              Subscription-        requestClient SubscriptionsChangeRenewalSettings{..}+        type Scopes SubscriptionsChangeRenewalSettings =+             '["https://www.googleapis.com/auth/apps.order"]+        requestClient SubscriptionsChangeRenewalSettings'{..}           = go _scrsCustomerId _scrsSubscriptionId               (Just AltJSON)               _scrsPayload

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Reseller.Subscriptions.ChangeSeats--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -58,7 +58,7 @@ -- | Changes the seats configuration of a subscription -- -- /See:/ 'subscriptionsChangeSeats' smart constructor.-data SubscriptionsChangeSeats = SubscriptionsChangeSeats+data SubscriptionsChangeSeats = SubscriptionsChangeSeats'     { _scsPayload        :: !Seats     , _scsCustomerId     :: !Text     , _scsSubscriptionId :: !Text@@ -79,7 +79,7 @@     -> Text -- ^ 'scsSubscriptionId'     -> SubscriptionsChangeSeats subscriptionsChangeSeats pScsPayload_ pScsCustomerId_ pScsSubscriptionId_ =-    SubscriptionsChangeSeats+    SubscriptionsChangeSeats'     { _scsPayload = pScsPayload_     , _scsCustomerId = pScsCustomerId_     , _scsSubscriptionId = pScsSubscriptionId_@@ -104,7 +104,9 @@  instance GoogleRequest SubscriptionsChangeSeats where         type Rs SubscriptionsChangeSeats = Subscription-        requestClient SubscriptionsChangeSeats{..}+        type Scopes SubscriptionsChangeSeats =+             '["https://www.googleapis.com/auth/apps.order"]+        requestClient SubscriptionsChangeSeats'{..}           = go _scsCustomerId _scsSubscriptionId (Just AltJSON)               _scsPayload               appsResellerService

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Reseller.Subscriptions.Delete--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -58,7 +58,7 @@ -- | Cancels\/Downgrades a subscription. -- -- /See:/ 'subscriptionsDelete' smart constructor.-data SubscriptionsDelete = SubscriptionsDelete+data SubscriptionsDelete = SubscriptionsDelete'     { _sdCustomerId     :: !Text     , _sdDeletionType   :: !SubscriptionsDeleteDeletionType     , _sdSubscriptionId :: !Text@@ -79,7 +79,7 @@     -> Text -- ^ 'sdSubscriptionId'     -> SubscriptionsDelete subscriptionsDelete pSdCustomerId_ pSdDeletionType_ pSdSubscriptionId_ =-    SubscriptionsDelete+    SubscriptionsDelete'     { _sdCustomerId = pSdCustomerId_     , _sdDeletionType = pSdDeletionType_     , _sdSubscriptionId = pSdSubscriptionId_@@ -104,7 +104,9 @@  instance GoogleRequest SubscriptionsDelete where         type Rs SubscriptionsDelete = ()-        requestClient SubscriptionsDelete{..}+        type Scopes SubscriptionsDelete =+             '["https://www.googleapis.com/auth/apps.order"]+        requestClient SubscriptionsDelete'{..}           = go _sdCustomerId _sdSubscriptionId               (Just _sdDeletionType)               (Just AltJSON)

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Reseller.Subscriptions.Get--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -55,7 +55,7 @@ -- | Gets a subscription of the customer. -- -- /See:/ 'subscriptionsGet' smart constructor.-data SubscriptionsGet = SubscriptionsGet+data SubscriptionsGet = SubscriptionsGet'     { _sgCustomerId     :: !Text     , _sgSubscriptionId :: !Text     } deriving (Eq,Show,Data,Typeable,Generic)@@ -72,7 +72,7 @@     -> Text -- ^ 'sgSubscriptionId'     -> SubscriptionsGet subscriptionsGet pSgCustomerId_ pSgSubscriptionId_ =-    SubscriptionsGet+    SubscriptionsGet'     { _sgCustomerId = pSgCustomerId_     , _sgSubscriptionId = pSgSubscriptionId_     }@@ -90,7 +90,10 @@  instance GoogleRequest SubscriptionsGet where         type Rs SubscriptionsGet = Subscription-        requestClient SubscriptionsGet{..}+        type Scopes SubscriptionsGet =+             '["https://www.googleapis.com/auth/apps.order",+               "https://www.googleapis.com/auth/apps.order.readonly"]+        requestClient SubscriptionsGet'{..}           = go _sgCustomerId _sgSubscriptionId (Just AltJSON)               appsResellerService           where go

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Reseller.Subscriptions.Insert--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -58,7 +58,7 @@ -- | Creates\/Transfers a subscription for the customer. -- -- /See:/ 'subscriptionsInsert' smart constructor.-data SubscriptionsInsert = SubscriptionsInsert+data SubscriptionsInsert = SubscriptionsInsert'     { _siPayload           :: !Subscription     , _siCustomerId        :: !Text     , _siCustomerAuthToken :: !(Maybe Text)@@ -78,7 +78,7 @@     -> Text -- ^ 'siCustomerId'     -> SubscriptionsInsert subscriptionsInsert pSiPayload_ pSiCustomerId_ =-    SubscriptionsInsert+    SubscriptionsInsert'     { _siPayload = pSiPayload_     , _siCustomerId = pSiCustomerId_     , _siCustomerAuthToken = Nothing@@ -104,7 +104,9 @@  instance GoogleRequest SubscriptionsInsert where         type Rs SubscriptionsInsert = Subscription-        requestClient SubscriptionsInsert{..}+        type Scopes SubscriptionsInsert =+             '["https://www.googleapis.com/auth/apps.order"]+        requestClient SubscriptionsInsert'{..}           = go _siCustomerId _siCustomerAuthToken               (Just AltJSON)               _siPayload

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Reseller.Subscriptions.List--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -62,7 +62,7 @@ -- name prefix. -- -- /See:/ 'subscriptionsList' smart constructor.-data SubscriptionsList = SubscriptionsList+data SubscriptionsList = SubscriptionsList'     { _slCustomerNamePrefix :: !(Maybe Text)     , _slCustomerId         :: !(Maybe Text)     , _slCustomerAuthToken  :: !(Maybe Text)@@ -86,7 +86,7 @@ subscriptionsList     :: SubscriptionsList subscriptionsList =-    SubscriptionsList+    SubscriptionsList'     { _slCustomerNamePrefix = Nothing     , _slCustomerId = Nothing     , _slCustomerAuthToken = Nothing@@ -127,7 +127,10 @@  instance GoogleRequest SubscriptionsList where         type Rs SubscriptionsList = Subscriptions-        requestClient SubscriptionsList{..}+        type Scopes SubscriptionsList =+             '["https://www.googleapis.com/auth/apps.order",+               "https://www.googleapis.com/auth/apps.order.readonly"]+        requestClient SubscriptionsList'{..}           = go _slCustomerNamePrefix _slCustomerId               _slCustomerAuthToken               _slPageToken

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Reseller.Subscriptions.StartPaidService--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -56,7 +56,7 @@ -- | Starts paid service of a trial subscription -- -- /See:/ 'subscriptionsStartPaidService' smart constructor.-data SubscriptionsStartPaidService = SubscriptionsStartPaidService+data SubscriptionsStartPaidService = SubscriptionsStartPaidService'     { _sspsCustomerId     :: !Text     , _sspsSubscriptionId :: !Text     } deriving (Eq,Show,Data,Typeable,Generic)@@ -73,7 +73,7 @@     -> Text -- ^ 'sspsSubscriptionId'     -> SubscriptionsStartPaidService subscriptionsStartPaidService pSspsCustomerId_ pSspsSubscriptionId_ =-    SubscriptionsStartPaidService+    SubscriptionsStartPaidService'     { _sspsCustomerId = pSspsCustomerId_     , _sspsSubscriptionId = pSspsSubscriptionId_     }@@ -93,7 +93,9 @@ instance GoogleRequest SubscriptionsStartPaidService          where         type Rs SubscriptionsStartPaidService = Subscription-        requestClient SubscriptionsStartPaidService{..}+        type Scopes SubscriptionsStartPaidService =+             '["https://www.googleapis.com/auth/apps.order"]+        requestClient SubscriptionsStartPaidService'{..}           = go _sspsCustomerId _sspsSubscriptionId               (Just AltJSON)               appsResellerService

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Reseller.Subscriptions.Suspend--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -56,7 +56,7 @@ -- | Suspends an active subscription -- -- /See:/ 'subscriptionsSuspend' smart constructor.-data SubscriptionsSuspend = SubscriptionsSuspend+data SubscriptionsSuspend = SubscriptionsSuspend'     { _ssCustomerId     :: !Text     , _ssSubscriptionId :: !Text     } deriving (Eq,Show,Data,Typeable,Generic)@@ -73,7 +73,7 @@     -> Text -- ^ 'ssSubscriptionId'     -> SubscriptionsSuspend subscriptionsSuspend pSsCustomerId_ pSsSubscriptionId_ =-    SubscriptionsSuspend+    SubscriptionsSuspend'     { _ssCustomerId = pSsCustomerId_     , _ssSubscriptionId = pSsSubscriptionId_     }@@ -91,7 +91,9 @@  instance GoogleRequest SubscriptionsSuspend where         type Rs SubscriptionsSuspend = Subscription-        requestClient SubscriptionsSuspend{..}+        type Scopes SubscriptionsSuspend =+             '["https://www.googleapis.com/auth/apps.order"]+        requestClient SubscriptionsSuspend'{..}           = go _ssCustomerId _ssSubscriptionId (Just AltJSON)               appsResellerService           where go

@@ -1,5 +1,5 @@ name:                  gogol-apps-reseller-version:               0.0.1+version:               0.1.0 synopsis:              Google Enterprise Apps Reseller SDK. homepage:              https://github.com/brendanhay/gogol bug-reports:           https://github.com/brendanhay/gogol/issues@@ -7,14 +7,14 @@ license-file:          LICENSE author:                Brendan Hay maintainer:            Brendan Hay <brendan.g.hay@gmail.com>-copyright:             Copyright (c) 2015 Brendan Hay+copyright:             Copyright (c) 2015-2016 Brendan Hay category:              Network, Google, Cloud build-type:            Simple cabal-version:         >= 1.10 extra-source-files:    README.md  description:-    Lets you create and manage your customers and their subscriptions.+    Creates and manages your customers and their subscriptions.     .     /Warning:/ This is an experimental prototype/preview release which is still     under exploratory development and not intended for public use, caveat emptor!@@ -59,5 +59,5 @@         , Network.Google.AppsReseller.Types.Sum      build-depends:-          gogol-core == 0.0.1.*+          gogol-core == 0.1.0.*         , base       >= 4.7 && < 5