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/AppsLicensing.hs b/gen/Network/Google/AppsLicensing.hs --- a/gen/Network/Google/AppsLicensing.hs +++ b/gen/Network/Google/AppsLicensing.hs @@ -7,7 +7,7 @@ -- | -- Module : Network.Google.AppsLicensing --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -20,6 +20,9 @@ ( -- * Service Configuration appsLicensingService + + -- * OAuth Scopes + , appsLicensingScope -- * API Declaration , AppsLicensingAPI diff --git a/gen/Network/Google/AppsLicensing/Types.hs b/gen/Network/Google/AppsLicensing/Types.hs --- a/gen/Network/Google/AppsLicensing/Types.hs +++ b/gen/Network/Google/AppsLicensing/Types.hs @@ -1,3 +1,4 @@ +{-# LANGUAGE DataKinds #-} {-# LANGUAGE DeriveDataTypeable #-} {-# LANGUAGE DeriveGeneric #-} {-# LANGUAGE NoImplicitPrelude #-} @@ -7,7 +8,7 @@ -- | -- Module : Network.Google.AppsLicensing.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 @@ -50,11 +51,11 @@ import Network.Google.Prelude -- | Default request referring to version 'v1' of the Enterprise License Manager API. This contains the host and root path used as a starting point for constructing service requests. -appsLicensingService :: Service +appsLicensingService :: ServiceConfig appsLicensingService = defaultService (ServiceId "licensing:v1") "www.googleapis.com" -- | View and manage Google Apps licenses for your domain -appsLicensingScope :: OAuthScope -appsLicensingScope = "https://www.googleapis.com/auth/apps.licensing"; +appsLicensingScope :: Proxy '["https://www.googleapis.com/auth/apps.licensing"] +appsLicensingScope = Proxy; diff --git a/gen/Network/Google/AppsLicensing/Types/Product.hs b/gen/Network/Google/AppsLicensing/Types/Product.hs --- a/gen/Network/Google/AppsLicensing/Types/Product.hs +++ b/gen/Network/Google/AppsLicensing/Types/Product.hs @@ -9,7 +9,7 @@ -- | -- Module : Network.Google.AppsLicensing.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 @@ -- | Template for LicenseAssignment Insert request -- -- /See:/ 'licenseAssignmentInsert' smart constructor. -newtype LicenseAssignmentInsert = LicenseAssignmentInsert +newtype LicenseAssignmentInsert = LicenseAssignmentInsert' { _laiUserId :: Maybe Text } deriving (Eq,Show,Data,Typeable,Generic) @@ -35,7 +35,7 @@ licenseAssignmentInsert :: LicenseAssignmentInsert licenseAssignmentInsert = - LicenseAssignmentInsert + LicenseAssignmentInsert' { _laiUserId = Nothing } @@ -47,16 +47,17 @@ instance FromJSON LicenseAssignmentInsert where parseJSON = withObject "LicenseAssignmentInsert" - (\ o -> LicenseAssignmentInsert <$> (o .:? "userId")) + (\ o -> + LicenseAssignmentInsert' <$> (o .:? "userId")) instance ToJSON LicenseAssignmentInsert where - toJSON LicenseAssignmentInsert{..} + toJSON LicenseAssignmentInsert'{..} = object (catMaybes [("userId" .=) <$> _laiUserId]) -- | LicesnseAssignment List for a given product\/sku for a customer. -- -- /See:/ 'licenseAssignmentList' smart constructor. -data LicenseAssignmentList = LicenseAssignmentList +data LicenseAssignmentList = LicenseAssignmentList' { _lalEtag :: !(Maybe Text) , _lalNextPageToken :: !(Maybe Text) , _lalKind :: !Text @@ -77,7 +78,7 @@ licenseAssignmentList :: LicenseAssignmentList licenseAssignmentList = - LicenseAssignmentList + LicenseAssignmentList' { _lalEtag = Nothing , _lalNextPageToken = Nothing , _lalKind = "licensing#licenseAssignmentList" @@ -110,13 +111,13 @@ parseJSON = withObject "LicenseAssignmentList" (\ o -> - LicenseAssignmentList <$> + LicenseAssignmentList' <$> (o .:? "etag") <*> (o .:? "nextPageToken") <*> (o .:? "kind" .!= "licensing#licenseAssignmentList") <*> (o .:? "items" .!= mempty)) instance ToJSON LicenseAssignmentList where - toJSON LicenseAssignmentList{..} + toJSON LicenseAssignmentList'{..} = object (catMaybes [("etag" .=) <$> _lalEtag, @@ -127,7 +128,7 @@ -- | Template for LiscenseAssignment Resource -- -- /See:/ 'licenseAssignment' smart constructor. -data LicenseAssignment = LicenseAssignment +data LicenseAssignment = LicenseAssignment' { _laEtags :: !(Maybe Text) , _laKind :: !Text , _laSKUId :: !(Maybe Text) @@ -154,7 +155,7 @@ licenseAssignment :: LicenseAssignment licenseAssignment = - LicenseAssignment + LicenseAssignment' { _laEtags = Nothing , _laKind = "licensing#licenseAssignment" , _laSKUId = Nothing @@ -193,7 +194,7 @@ parseJSON = withObject "LicenseAssignment" (\ o -> - LicenseAssignment <$> + LicenseAssignment' <$> (o .:? "etags") <*> (o .:? "kind" .!= "licensing#licenseAssignment") <*> (o .:? "skuId") @@ -202,7 +203,7 @@ <*> (o .:? "productId")) instance ToJSON LicenseAssignment where - toJSON LicenseAssignment{..} + toJSON LicenseAssignment'{..} = object (catMaybes [("etags" .=) <$> _laEtags, Just ("kind" .= _laKind), diff --git a/gen/Network/Google/AppsLicensing/Types/Sum.hs b/gen/Network/Google/AppsLicensing/Types/Sum.hs --- a/gen/Network/Google/AppsLicensing/Types/Sum.hs +++ b/gen/Network/Google/AppsLicensing/Types/Sum.hs @@ -8,7 +8,7 @@ -- | -- Module : Network.Google.AppsLicensing.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 diff --git a/gen/Network/Google/Resource/Licensing/LicenseAssignments/Delete.hs b/gen/Network/Google/Resource/Licensing/LicenseAssignments/Delete.hs --- a/gen/Network/Google/Resource/Licensing/LicenseAssignments/Delete.hs +++ b/gen/Network/Google/Resource/Licensing/LicenseAssignments/Delete.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.Licensing.LicenseAssignments.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 @@ -- | Revoke License. -- -- /See:/ 'licenseAssignmentsDelete' smart constructor. -data LicenseAssignmentsDelete = LicenseAssignmentsDelete +data LicenseAssignmentsDelete = LicenseAssignmentsDelete' { _ladSKUId :: !Text , _ladUserId :: !Text , _ladProductId :: !Text @@ -79,7 +79,7 @@ -> Text -- ^ 'ladProductId' -> LicenseAssignmentsDelete licenseAssignmentsDelete pLadSKUId_ pLadUserId_ pLadProductId_ = - LicenseAssignmentsDelete + LicenseAssignmentsDelete' { _ladSKUId = pLadSKUId_ , _ladUserId = pLadUserId_ , _ladProductId = pLadProductId_ @@ -101,7 +101,9 @@ instance GoogleRequest LicenseAssignmentsDelete where type Rs LicenseAssignmentsDelete = () - requestClient LicenseAssignmentsDelete{..} + type Scopes LicenseAssignmentsDelete = + '["https://www.googleapis.com/auth/apps.licensing"] + requestClient LicenseAssignmentsDelete'{..} = go _ladProductId _ladSKUId _ladUserId (Just AltJSON) appsLicensingService diff --git a/gen/Network/Google/Resource/Licensing/LicenseAssignments/Get.hs b/gen/Network/Google/Resource/Licensing/LicenseAssignments/Get.hs --- a/gen/Network/Google/Resource/Licensing/LicenseAssignments/Get.hs +++ b/gen/Network/Google/Resource/Licensing/LicenseAssignments/Get.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.Licensing.LicenseAssignments.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 @@ -59,7 +59,7 @@ -- | Get license assignment of a particular product and sku for a user -- -- /See:/ 'licenseAssignmentsGet' smart constructor. -data LicenseAssignmentsGet = LicenseAssignmentsGet +data LicenseAssignmentsGet = LicenseAssignmentsGet' { _lagSKUId :: !Text , _lagUserId :: !Text , _lagProductId :: !Text @@ -80,7 +80,7 @@ -> Text -- ^ 'lagProductId' -> LicenseAssignmentsGet licenseAssignmentsGet pLagSKUId_ pLagUserId_ pLagProductId_ = - LicenseAssignmentsGet + LicenseAssignmentsGet' { _lagSKUId = pLagSKUId_ , _lagUserId = pLagUserId_ , _lagProductId = pLagProductId_ @@ -102,7 +102,9 @@ instance GoogleRequest LicenseAssignmentsGet where type Rs LicenseAssignmentsGet = LicenseAssignment - requestClient LicenseAssignmentsGet{..} + type Scopes LicenseAssignmentsGet = + '["https://www.googleapis.com/auth/apps.licensing"] + requestClient LicenseAssignmentsGet'{..} = go _lagProductId _lagSKUId _lagUserId (Just AltJSON) appsLicensingService diff --git a/gen/Network/Google/Resource/Licensing/LicenseAssignments/Insert.hs b/gen/Network/Google/Resource/Licensing/LicenseAssignments/Insert.hs --- a/gen/Network/Google/Resource/Licensing/LicenseAssignments/Insert.hs +++ b/gen/Network/Google/Resource/Licensing/LicenseAssignments/Insert.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.Licensing.LicenseAssignments.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 @@ -59,7 +59,7 @@ -- | Assign License. -- -- /See:/ 'licenseAssignmentsInsert' smart constructor. -data LicenseAssignmentsInsert = LicenseAssignmentsInsert +data LicenseAssignmentsInsert = LicenseAssignmentsInsert' { _laiSKUId :: !Text , _laiPayload :: !LicenseAssignmentInsert , _laiProductId :: !Text @@ -80,7 +80,7 @@ -> Text -- ^ 'laiProductId' -> LicenseAssignmentsInsert licenseAssignmentsInsert pLaiSKUId_ pLaiPayload_ pLaiProductId_ = - LicenseAssignmentsInsert + LicenseAssignmentsInsert' { _laiSKUId = pLaiSKUId_ , _laiPayload = pLaiPayload_ , _laiProductId = pLaiProductId_ @@ -102,7 +102,9 @@ instance GoogleRequest LicenseAssignmentsInsert where type Rs LicenseAssignmentsInsert = LicenseAssignment - requestClient LicenseAssignmentsInsert{..} + type Scopes LicenseAssignmentsInsert = + '["https://www.googleapis.com/auth/apps.licensing"] + requestClient LicenseAssignmentsInsert'{..} = go _laiProductId _laiSKUId (Just AltJSON) _laiPayload appsLicensingService diff --git a/gen/Network/Google/Resource/Licensing/LicenseAssignments/ListForProduct.hs b/gen/Network/Google/Resource/Licensing/LicenseAssignments/ListForProduct.hs --- a/gen/Network/Google/Resource/Licensing/LicenseAssignments/ListForProduct.hs +++ b/gen/Network/Google/Resource/Licensing/LicenseAssignments/ListForProduct.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.Licensing.LicenseAssignments.ListForProduct --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -60,7 +60,7 @@ -- | List license assignments for given product of the customer. -- -- /See:/ 'licenseAssignmentsListForProduct' smart constructor. -data LicenseAssignmentsListForProduct = LicenseAssignmentsListForProduct +data LicenseAssignmentsListForProduct = LicenseAssignmentsListForProduct' { _lalfpCustomerId :: !Text , _lalfpPageToken :: !Text , _lalfpProductId :: !Text @@ -83,7 +83,7 @@ -> Text -- ^ 'lalfpProductId' -> LicenseAssignmentsListForProduct licenseAssignmentsListForProduct pLalfpCustomerId_ pLalfpProductId_ = - LicenseAssignmentsListForProduct + LicenseAssignmentsListForProduct' { _lalfpCustomerId = pLalfpCustomerId_ , _lalfpPageToken = "" , _lalfpProductId = pLalfpProductId_ @@ -122,7 +122,9 @@ LicenseAssignmentsListForProduct where type Rs LicenseAssignmentsListForProduct = LicenseAssignmentList - requestClient LicenseAssignmentsListForProduct{..} + type Scopes LicenseAssignmentsListForProduct = + '["https://www.googleapis.com/auth/apps.licensing"] + requestClient LicenseAssignmentsListForProduct'{..} = go _lalfpProductId (Just _lalfpCustomerId) (Just _lalfpPageToken) (Just _lalfpMaxResults) diff --git a/gen/Network/Google/Resource/Licensing/LicenseAssignments/ListForProductAndSKU.hs b/gen/Network/Google/Resource/Licensing/LicenseAssignments/ListForProductAndSKU.hs --- a/gen/Network/Google/Resource/Licensing/LicenseAssignments/ListForProductAndSKU.hs +++ b/gen/Network/Google/Resource/Licensing/LicenseAssignments/ListForProductAndSKU.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.Licensing.LicenseAssignments.ListForProductAndSKU --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -63,7 +63,7 @@ -- | List license assignments for given product and sku of the customer. -- -- /See:/ 'licenseAssignmentsListForProductAndSKU' smart constructor. -data LicenseAssignmentsListForProductAndSKU = LicenseAssignmentsListForProductAndSKU +data LicenseAssignmentsListForProductAndSKU = LicenseAssignmentsListForProductAndSKU' { _lalfpaskuSKUId :: !Text , _lalfpaskuCustomerId :: !Text , _lalfpaskuPageToken :: !Text @@ -90,7 +90,7 @@ -> Text -- ^ 'lalfpaskuProductId' -> LicenseAssignmentsListForProductAndSKU licenseAssignmentsListForProductAndSKU pLalfpaskuSKUId_ pLalfpaskuCustomerId_ pLalfpaskuProductId_ = - LicenseAssignmentsListForProductAndSKU + LicenseAssignmentsListForProductAndSKU' { _lalfpaskuSKUId = pLalfpaskuSKUId_ , _lalfpaskuCustomerId = pLalfpaskuCustomerId_ , _lalfpaskuPageToken = "" @@ -136,8 +136,10 @@ LicenseAssignmentsListForProductAndSKU where type Rs LicenseAssignmentsListForProductAndSKU = LicenseAssignmentList + type Scopes LicenseAssignmentsListForProductAndSKU = + '["https://www.googleapis.com/auth/apps.licensing"] requestClient - LicenseAssignmentsListForProductAndSKU{..} + LicenseAssignmentsListForProductAndSKU'{..} = go _lalfpaskuProductId _lalfpaskuSKUId (Just _lalfpaskuCustomerId) (Just _lalfpaskuPageToken) diff --git a/gen/Network/Google/Resource/Licensing/LicenseAssignments/Patch.hs b/gen/Network/Google/Resource/Licensing/LicenseAssignments/Patch.hs --- a/gen/Network/Google/Resource/Licensing/LicenseAssignments/Patch.hs +++ b/gen/Network/Google/Resource/Licensing/LicenseAssignments/Patch.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.Licensing.LicenseAssignments.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 @@ -61,7 +61,7 @@ -- | Assign License. This method supports patch semantics. -- -- /See:/ 'licenseAssignmentsPatch' smart constructor. -data LicenseAssignmentsPatch = LicenseAssignmentsPatch +data LicenseAssignmentsPatch = LicenseAssignmentsPatch' { _lapSKUId :: !Text , _lapPayload :: !LicenseAssignment , _lapUserId :: !Text @@ -86,7 +86,7 @@ -> Text -- ^ 'lapProductId' -> LicenseAssignmentsPatch licenseAssignmentsPatch pLapSKUId_ pLapPayload_ pLapUserId_ pLapProductId_ = - LicenseAssignmentsPatch + LicenseAssignmentsPatch' { _lapSKUId = pLapSKUId_ , _lapPayload = pLapPayload_ , _lapUserId = pLapUserId_ @@ -114,7 +114,9 @@ instance GoogleRequest LicenseAssignmentsPatch where type Rs LicenseAssignmentsPatch = LicenseAssignment - requestClient LicenseAssignmentsPatch{..} + type Scopes LicenseAssignmentsPatch = + '["https://www.googleapis.com/auth/apps.licensing"] + requestClient LicenseAssignmentsPatch'{..} = go _lapProductId _lapSKUId _lapUserId (Just AltJSON) _lapPayload diff --git a/gen/Network/Google/Resource/Licensing/LicenseAssignments/Update.hs b/gen/Network/Google/Resource/Licensing/LicenseAssignments/Update.hs --- a/gen/Network/Google/Resource/Licensing/LicenseAssignments/Update.hs +++ b/gen/Network/Google/Resource/Licensing/LicenseAssignments/Update.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.Licensing.LicenseAssignments.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 @@ -61,7 +61,7 @@ -- | Assign License. -- -- /See:/ 'licenseAssignmentsUpdate' smart constructor. -data LicenseAssignmentsUpdate = LicenseAssignmentsUpdate +data LicenseAssignmentsUpdate = LicenseAssignmentsUpdate' { _lauSKUId :: !Text , _lauPayload :: !LicenseAssignment , _lauUserId :: !Text @@ -86,7 +86,7 @@ -> Text -- ^ 'lauProductId' -> LicenseAssignmentsUpdate licenseAssignmentsUpdate pLauSKUId_ pLauPayload_ pLauUserId_ pLauProductId_ = - LicenseAssignmentsUpdate + LicenseAssignmentsUpdate' { _lauSKUId = pLauSKUId_ , _lauPayload = pLauPayload_ , _lauUserId = pLauUserId_ @@ -114,7 +114,9 @@ instance GoogleRequest LicenseAssignmentsUpdate where type Rs LicenseAssignmentsUpdate = LicenseAssignment - requestClient LicenseAssignmentsUpdate{..} + type Scopes LicenseAssignmentsUpdate = + '["https://www.googleapis.com/auth/apps.licensing"] + requestClient LicenseAssignmentsUpdate'{..} = go _lauProductId _lauSKUId _lauUserId (Just AltJSON) _lauPayload diff --git a/gogol-apps-licensing.cabal b/gogol-apps-licensing.cabal --- a/gogol-apps-licensing.cabal +++ b/gogol-apps-licensing.cabal @@ -1,5 +1,5 @@ name: gogol-apps-licensing -version: 0.0.1 +version: 0.1.0 synopsis: Google Enterprise License Manager SDK. homepage: https://github.com/brendanhay/gogol bug-reports: https://github.com/brendanhay/gogol/issues @@ -7,7 +7,7 @@ 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 @@ -48,5 +48,5 @@ , Network.Google.AppsLicensing.Types.Sum build-depends: - gogol-core == 0.0.1.* + gogol-core == 0.1.0.* , base >= 4.7 && < 5