diff --git a/README.md b/README.md --- a/README.md +++ b/README.md @@ -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 diff --git a/gen/Network/Google/AppsReseller.hs b/gen/Network/Google/AppsReseller.hs --- a/gen/Network/Google/AppsReseller.hs +++ b/gen/Network/Google/AppsReseller.hs @@ -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 -- 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:/ 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 diff --git a/gen/Network/Google/AppsReseller/Types.hs b/gen/Network/Google/AppsReseller/Types.hs --- a/gen/Network/Google/AppsReseller/Types.hs +++ b/gen/Network/Google/AppsReseller/Types.hs @@ -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 -- 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; diff --git a/gen/Network/Google/AppsReseller/Types/Product.hs b/gen/Network/Google/AppsReseller/Types/Product.hs --- a/gen/Network/Google/AppsReseller/Types/Product.hs +++ b/gen/Network/Google/AppsReseller/Types/Product.hs @@ -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 -- 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" .=) <$> diff --git a/gen/Network/Google/AppsReseller/Types/Sum.hs b/gen/Network/Google/AppsReseller/Types/Sum.hs --- a/gen/Network/Google/AppsReseller/Types/Sum.hs +++ b/gen/Network/Google/AppsReseller/Types/Sum.hs @@ -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 -- 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" diff --git a/gen/Network/Google/Resource/Reseller/Customers/Get.hs b/gen/Network/Google/Resource/Reseller/Customers/Get.hs --- a/gen/Network/Google/Resource/Reseller/Customers/Get.hs +++ b/gen/Network/Google/Resource/Reseller/Customers/Get.hs @@ -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 -- 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) diff --git a/gen/Network/Google/Resource/Reseller/Customers/Insert.hs b/gen/Network/Google/Resource/Reseller/Customers/Insert.hs --- a/gen/Network/Google/Resource/Reseller/Customers/Insert.hs +++ b/gen/Network/Google/Resource/Reseller/Customers/Insert.hs @@ -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 -- 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 diff --git a/gen/Network/Google/Resource/Reseller/Customers/Patch.hs b/gen/Network/Google/Resource/Reseller/Customers/Patch.hs --- a/gen/Network/Google/Resource/Reseller/Customers/Patch.hs +++ b/gen/Network/Google/Resource/Reseller/Customers/Patch.hs @@ -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 -- 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 diff --git a/gen/Network/Google/Resource/Reseller/Customers/Update.hs b/gen/Network/Google/Resource/Reseller/Customers/Update.hs --- a/gen/Network/Google/Resource/Reseller/Customers/Update.hs +++ b/gen/Network/Google/Resource/Reseller/Customers/Update.hs @@ -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 -- 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 diff --git a/gen/Network/Google/Resource/Reseller/Subscriptions/Activate.hs b/gen/Network/Google/Resource/Reseller/Subscriptions/Activate.hs --- a/gen/Network/Google/Resource/Reseller/Subscriptions/Activate.hs +++ b/gen/Network/Google/Resource/Reseller/Subscriptions/Activate.hs @@ -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 -- 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 diff --git a/gen/Network/Google/Resource/Reseller/Subscriptions/ChangePlan.hs b/gen/Network/Google/Resource/Reseller/Subscriptions/ChangePlan.hs --- a/gen/Network/Google/Resource/Reseller/Subscriptions/ChangePlan.hs +++ b/gen/Network/Google/Resource/Reseller/Subscriptions/ChangePlan.hs @@ -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 -- 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 diff --git a/gen/Network/Google/Resource/Reseller/Subscriptions/ChangeRenewalSettings.hs b/gen/Network/Google/Resource/Reseller/Subscriptions/ChangeRenewalSettings.hs --- a/gen/Network/Google/Resource/Reseller/Subscriptions/ChangeRenewalSettings.hs +++ b/gen/Network/Google/Resource/Reseller/Subscriptions/ChangeRenewalSettings.hs @@ -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 -- 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 diff --git a/gen/Network/Google/Resource/Reseller/Subscriptions/ChangeSeats.hs b/gen/Network/Google/Resource/Reseller/Subscriptions/ChangeSeats.hs --- a/gen/Network/Google/Resource/Reseller/Subscriptions/ChangeSeats.hs +++ b/gen/Network/Google/Resource/Reseller/Subscriptions/ChangeSeats.hs @@ -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 -- 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 diff --git a/gen/Network/Google/Resource/Reseller/Subscriptions/Delete.hs b/gen/Network/Google/Resource/Reseller/Subscriptions/Delete.hs --- a/gen/Network/Google/Resource/Reseller/Subscriptions/Delete.hs +++ b/gen/Network/Google/Resource/Reseller/Subscriptions/Delete.hs @@ -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 -- 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) diff --git a/gen/Network/Google/Resource/Reseller/Subscriptions/Get.hs b/gen/Network/Google/Resource/Reseller/Subscriptions/Get.hs --- a/gen/Network/Google/Resource/Reseller/Subscriptions/Get.hs +++ b/gen/Network/Google/Resource/Reseller/Subscriptions/Get.hs @@ -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 -- 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 diff --git a/gen/Network/Google/Resource/Reseller/Subscriptions/Insert.hs b/gen/Network/Google/Resource/Reseller/Subscriptions/Insert.hs --- a/gen/Network/Google/Resource/Reseller/Subscriptions/Insert.hs +++ b/gen/Network/Google/Resource/Reseller/Subscriptions/Insert.hs @@ -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 -- 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 diff --git a/gen/Network/Google/Resource/Reseller/Subscriptions/List.hs b/gen/Network/Google/Resource/Reseller/Subscriptions/List.hs --- a/gen/Network/Google/Resource/Reseller/Subscriptions/List.hs +++ b/gen/Network/Google/Resource/Reseller/Subscriptions/List.hs @@ -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 -- 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 diff --git a/gen/Network/Google/Resource/Reseller/Subscriptions/StartPaidService.hs b/gen/Network/Google/Resource/Reseller/Subscriptions/StartPaidService.hs --- a/gen/Network/Google/Resource/Reseller/Subscriptions/StartPaidService.hs +++ b/gen/Network/Google/Resource/Reseller/Subscriptions/StartPaidService.hs @@ -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 -- 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 diff --git a/gen/Network/Google/Resource/Reseller/Subscriptions/Suspend.hs b/gen/Network/Google/Resource/Reseller/Subscriptions/Suspend.hs --- a/gen/Network/Google/Resource/Reseller/Subscriptions/Suspend.hs +++ b/gen/Network/Google/Resource/Reseller/Subscriptions/Suspend.hs @@ -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 -- 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 diff --git a/gogol-apps-reseller.cabal b/gogol-apps-reseller.cabal --- a/gogol-apps-reseller.cabal +++ b/gogol-apps-reseller.cabal @@ -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 -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