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/DataTransfer.hs b/gen/Network/Google/DataTransfer.hs --- a/gen/Network/Google/DataTransfer.hs +++ b/gen/Network/Google/DataTransfer.hs @@ -7,20 +7,23 @@ -- | -- Module : Network.Google.DataTransfer --- 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) -- --- Admin Data Transfer API lets you transfer user data from one user to --- another. +-- Transfers user data from one user to another. -- -- /See:/ module Network.Google.DataTransfer ( -- * Service Configuration dataTransferService + + -- * OAuth Scopes + , adminDataTransferReadOnlyScope + , adminDataTransferScope -- * API Declaration , DataTransferAPI diff --git a/gen/Network/Google/DataTransfer/Types.hs b/gen/Network/Google/DataTransfer/Types.hs --- a/gen/Network/Google/DataTransfer/Types.hs +++ b/gen/Network/Google/DataTransfer/Types.hs @@ -1,3 +1,4 @@ +{-# LANGUAGE DataKinds #-} {-# LANGUAGE DeriveDataTypeable #-} {-# LANGUAGE DeriveGeneric #-} {-# LANGUAGE NoImplicitPrelude #-} @@ -7,7 +8,7 @@ -- | -- Module : Network.Google.DataTransfer.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,8 +20,8 @@ dataTransferService -- * OAuth Scopes - , adminDatatransferReadonlyScope - , adminDatatransferScope + , adminDataTransferReadOnlyScope + , adminDataTransferScope -- * Application , Application @@ -78,15 +79,15 @@ import Network.Google.Prelude -- | Default request referring to version 'datatransfer_v1' of the Admin Data Transfer API. This contains the host and root path used as a starting point for constructing service requests. -dataTransferService :: Service +dataTransferService :: ServiceConfig dataTransferService = defaultService (ServiceId "admin:datatransfer_v1") "www.googleapis.com" -- | View data transfers between users in your organization -adminDatatransferReadonlyScope :: OAuthScope -adminDatatransferReadonlyScope = "https://www.googleapis.com/auth/admin.datatransfer.readonly"; +adminDataTransferReadOnlyScope :: Proxy '["https://www.googleapis.com/auth/admin.datatransfer.readonly"] +adminDataTransferReadOnlyScope = Proxy; -- | View and manage data transfers between users in your organization -adminDatatransferScope :: OAuthScope -adminDatatransferScope = "https://www.googleapis.com/auth/admin.datatransfer"; +adminDataTransferScope :: Proxy '["https://www.googleapis.com/auth/admin.datatransfer"] +adminDataTransferScope = Proxy; diff --git a/gen/Network/Google/DataTransfer/Types/Product.hs b/gen/Network/Google/DataTransfer/Types/Product.hs --- a/gen/Network/Google/DataTransfer/Types/Product.hs +++ b/gen/Network/Google/DataTransfer/Types/Product.hs @@ -9,7 +9,7 @@ -- | -- Module : Network.Google.DataTransfer.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 @@ -- | The JSON template for an Application resource. -- -- /See:/ 'application' smart constructor. -data Application = Application +data Application = Application' { _aTransferParams :: !(Maybe [ApplicationTransferParam]) , _aEtag :: !(Maybe Text) , _aKind :: !Text @@ -47,7 +47,7 @@ application :: Application application = - Application + Application' { _aTransferParams = Nothing , _aEtag = Nothing , _aKind = "admin#datatransfer#ApplicationResource" @@ -86,7 +86,7 @@ parseJSON = withObject "Application" (\ o -> - Application <$> + Application' <$> (o .:? "transferParams" .!= mempty) <*> (o .:? "etag") <*> @@ -96,7 +96,7 @@ <*> (o .:? "id")) instance ToJSON Application where - toJSON Application{..} + toJSON Application'{..} = object (catMaybes [("transferParams" .=) <$> _aTransferParams, @@ -106,7 +106,7 @@ -- | Template for application transfer parameters. -- -- /See:/ 'applicationTransferParam' smart constructor. -data ApplicationTransferParam = ApplicationTransferParam +data ApplicationTransferParam = ApplicationTransferParam' { _atpValue :: !(Maybe [Text]) , _atpKey :: !(Maybe Text) } deriving (Eq,Show,Data,Typeable,Generic) @@ -121,7 +121,7 @@ applicationTransferParam :: ApplicationTransferParam applicationTransferParam = - ApplicationTransferParam + ApplicationTransferParam' { _atpValue = Nothing , _atpKey = Nothing } @@ -142,11 +142,11 @@ parseJSON = withObject "ApplicationTransferParam" (\ o -> - ApplicationTransferParam <$> + ApplicationTransferParam' <$> (o .:? "value" .!= mempty) <*> (o .:? "key")) instance ToJSON ApplicationTransferParam where - toJSON ApplicationTransferParam{..} + toJSON ApplicationTransferParam'{..} = object (catMaybes [("value" .=) <$> _atpValue, ("key" .=) <$> _atpKey]) @@ -154,7 +154,7 @@ -- | Template for a collection of Applications. -- -- /See:/ 'applicationsListResponse' smart constructor. -data ApplicationsListResponse = ApplicationsListResponse +data ApplicationsListResponse = ApplicationsListResponse' { _alrEtag :: !(Maybe Text) , _alrNextPageToken :: !(Maybe Text) , _alrKind :: !Text @@ -175,7 +175,7 @@ applicationsListResponse :: ApplicationsListResponse applicationsListResponse = - ApplicationsListResponse + ApplicationsListResponse' { _alrEtag = Nothing , _alrNextPageToken = Nothing , _alrKind = "admin#datatransfer#applicationsList" @@ -209,14 +209,14 @@ parseJSON = withObject "ApplicationsListResponse" (\ o -> - ApplicationsListResponse <$> + ApplicationsListResponse' <$> (o .:? "etag") <*> (o .:? "nextPageToken") <*> (o .:? "kind" .!= "admin#datatransfer#applicationsList") <*> (o .:? "applications" .!= mempty)) instance ToJSON ApplicationsListResponse where - toJSON ApplicationsListResponse{..} + toJSON ApplicationsListResponse'{..} = object (catMaybes [("etag" .=) <$> _alrEtag, @@ -227,7 +227,7 @@ -- | The JSON template for a DataTransfer resource. -- -- /See:/ 'dataTransfer' smart constructor. -data DataTransfer = DataTransfer +data DataTransfer = DataTransfer' { _dtEtag :: !(Maybe Text) , _dtOldOwnerUserId :: !(Maybe Text) , _dtKind :: !Text @@ -260,7 +260,7 @@ dataTransfer :: DataTransfer dataTransfer = - DataTransfer + DataTransfer' { _dtEtag = Nothing , _dtOldOwnerUserId = Nothing , _dtKind = "admin#datatransfer#DataTransfer" @@ -324,7 +324,7 @@ parseJSON = withObject "DataTransfer" (\ o -> - DataTransfer <$> + DataTransfer' <$> (o .:? "etag") <*> (o .:? "oldOwnerUserId") <*> (o .:? "kind" .!= "admin#datatransfer#DataTransfer") <*> (o .:? "newOwnerUserId") @@ -334,7 +334,7 @@ <*> (o .:? "overallTransferStatusCode")) instance ToJSON DataTransfer where - toJSON DataTransfer{..} + toJSON DataTransfer'{..} = object (catMaybes [("etag" .=) <$> _dtEtag, @@ -351,7 +351,7 @@ -- | Template for a collection of DataTransfer resources. -- -- /See:/ 'dataTransfersListResponse' smart constructor. -data DataTransfersListResponse = DataTransfersListResponse +data DataTransfersListResponse = DataTransfersListResponse' { _dtlrEtag :: !(Maybe Text) , _dtlrNextPageToken :: !(Maybe Text) , _dtlrKind :: !Text @@ -372,7 +372,7 @@ dataTransfersListResponse :: DataTransfersListResponse dataTransfersListResponse = - DataTransfersListResponse + DataTransfersListResponse' { _dtlrEtag = Nothing , _dtlrNextPageToken = Nothing , _dtlrKind = "admin#datatransfer#dataTransfersList" @@ -405,14 +405,14 @@ parseJSON = withObject "DataTransfersListResponse" (\ o -> - DataTransfersListResponse <$> + DataTransfersListResponse' <$> (o .:? "etag") <*> (o .:? "nextPageToken") <*> (o .:? "kind" .!= "admin#datatransfer#dataTransfersList") <*> (o .:? "dataTransfers" .!= mempty)) instance ToJSON DataTransfersListResponse where - toJSON DataTransfersListResponse{..} + toJSON DataTransfersListResponse'{..} = object (catMaybes [("etag" .=) <$> _dtlrEtag, @@ -423,7 +423,7 @@ -- | Template to map fields of ApplicationDataTransfer resource. -- -- /See:/ 'applicationDataTransfer' smart constructor. -data ApplicationDataTransfer = ApplicationDataTransfer +data ApplicationDataTransfer = ApplicationDataTransfer' { _adtApplicationTransferParams :: !(Maybe [ApplicationTransferParam]) , _adtApplicationId :: !(Maybe (Textual Int64)) , _adtApplicationTransferStatus :: !(Maybe Text) @@ -441,7 +441,7 @@ applicationDataTransfer :: ApplicationDataTransfer applicationDataTransfer = - ApplicationDataTransfer + ApplicationDataTransfer' { _adtApplicationTransferParams = Nothing , _adtApplicationId = Nothing , _adtApplicationTransferStatus = Nothing @@ -474,13 +474,13 @@ parseJSON = withObject "ApplicationDataTransfer" (\ o -> - ApplicationDataTransfer <$> + ApplicationDataTransfer' <$> (o .:? "applicationTransferParams" .!= mempty) <*> (o .:? "applicationId") <*> (o .:? "applicationTransferStatus")) instance ToJSON ApplicationDataTransfer where - toJSON ApplicationDataTransfer{..} + toJSON ApplicationDataTransfer'{..} = object (catMaybes [("applicationTransferParams" .=) <$> diff --git a/gen/Network/Google/DataTransfer/Types/Sum.hs b/gen/Network/Google/DataTransfer/Types/Sum.hs --- a/gen/Network/Google/DataTransfer/Types/Sum.hs +++ b/gen/Network/Google/DataTransfer/Types/Sum.hs @@ -8,7 +8,7 @@ -- | -- Module : Network.Google.DataTransfer.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/DataTransfer/Applications/Get.hs b/gen/Network/Google/Resource/DataTransfer/Applications/Get.hs --- a/gen/Network/Google/Resource/DataTransfer/Applications/Get.hs +++ b/gen/Network/Google/Resource/DataTransfer/Applications/Get.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.DataTransfer.Applications.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 @@ -- | Retrieves information about an application for the given application ID. -- -- /See:/ 'applicationsGet' smart constructor. -newtype ApplicationsGet = ApplicationsGet +newtype ApplicationsGet = ApplicationsGet' { _agApplicationId :: Textual Int64 } deriving (Eq,Show,Data,Typeable,Generic) @@ -65,7 +65,7 @@ :: Int64 -- ^ 'agApplicationId' -> ApplicationsGet applicationsGet pAgApplicationId_ = - ApplicationsGet + ApplicationsGet' { _agApplicationId = _Coerce # pAgApplicationId_ } @@ -78,7 +78,10 @@ instance GoogleRequest ApplicationsGet where type Rs ApplicationsGet = Application - requestClient ApplicationsGet{..} + type Scopes ApplicationsGet = + '["https://www.googleapis.com/auth/admin.datatransfer", + "https://www.googleapis.com/auth/admin.datatransfer.readonly"] + requestClient ApplicationsGet'{..} = go _agApplicationId (Just AltJSON) dataTransferService where go diff --git a/gen/Network/Google/Resource/DataTransfer/Applications/List.hs b/gen/Network/Google/Resource/DataTransfer/Applications/List.hs --- a/gen/Network/Google/Resource/DataTransfer/Applications/List.hs +++ b/gen/Network/Google/Resource/DataTransfer/Applications/List.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.DataTransfer.Applications.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 @@ -50,17 +50,17 @@ "applications" :> QueryParam "customerId" Text :> QueryParam "pageToken" Text :> - QueryParam "maxResults" (Textual Word32) :> + QueryParam "maxResults" (Textual Int32) :> QueryParam "alt" AltJSON :> Get '[JSON] ApplicationsListResponse -- | Lists the applications available for data transfer for a customer. -- -- /See:/ 'applicationsList' smart constructor. -data ApplicationsList = ApplicationsList +data ApplicationsList = ApplicationsList' { _alCustomerId :: !(Maybe Text) , _alPageToken :: !(Maybe Text) - , _alMaxResults :: !(Maybe (Textual Word32)) + , _alMaxResults :: !(Maybe (Textual Int32)) } deriving (Eq,Show,Data,Typeable,Generic) -- | Creates a value of 'ApplicationsList' with the minimum fields required to make a request. @@ -75,7 +75,7 @@ applicationsList :: ApplicationsList applicationsList = - ApplicationsList + ApplicationsList' { _alCustomerId = Nothing , _alPageToken = Nothing , _alMaxResults = Nothing @@ -92,14 +92,17 @@ = lens _alPageToken (\ s a -> s{_alPageToken = a}) -- | Maximum number of results to return. Default is 100. -alMaxResults :: Lens' ApplicationsList (Maybe Word32) +alMaxResults :: Lens' ApplicationsList (Maybe Int32) alMaxResults = lens _alMaxResults (\ s a -> s{_alMaxResults = a}) . mapping _Coerce instance GoogleRequest ApplicationsList where type Rs ApplicationsList = ApplicationsListResponse - requestClient ApplicationsList{..} + type Scopes ApplicationsList = + '["https://www.googleapis.com/auth/admin.datatransfer", + "https://www.googleapis.com/auth/admin.datatransfer.readonly"] + requestClient ApplicationsList'{..} = go _alCustomerId _alPageToken _alMaxResults (Just AltJSON) dataTransferService diff --git a/gen/Network/Google/Resource/DataTransfer/Transfers/Get.hs b/gen/Network/Google/Resource/DataTransfer/Transfers/Get.hs --- a/gen/Network/Google/Resource/DataTransfer/Transfers/Get.hs +++ b/gen/Network/Google/Resource/DataTransfer/Transfers/Get.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.DataTransfer.Transfers.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 @@ -- | Retrieves a data transfer request by its resource ID. -- -- /See:/ 'transfersGet' smart constructor. -newtype TransfersGet = TransfersGet +newtype TransfersGet = TransfersGet' { _tgDataTransferId :: Text } deriving (Eq,Show,Data,Typeable,Generic) @@ -65,7 +65,7 @@ :: Text -- ^ 'tgDataTransferId' -> TransfersGet transfersGet pTgDataTransferId_ = - TransfersGet + TransfersGet' { _tgDataTransferId = pTgDataTransferId_ } @@ -78,7 +78,10 @@ instance GoogleRequest TransfersGet where type Rs TransfersGet = DataTransfer - requestClient TransfersGet{..} + type Scopes TransfersGet = + '["https://www.googleapis.com/auth/admin.datatransfer", + "https://www.googleapis.com/auth/admin.datatransfer.readonly"] + requestClient TransfersGet'{..} = go _tgDataTransferId (Just AltJSON) dataTransferService where go diff --git a/gen/Network/Google/Resource/DataTransfer/Transfers/Insert.hs b/gen/Network/Google/Resource/DataTransfer/Transfers/Insert.hs --- a/gen/Network/Google/Resource/DataTransfer/Transfers/Insert.hs +++ b/gen/Network/Google/Resource/DataTransfer/Transfers/Insert.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.DataTransfer.Transfers.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 @@ -53,7 +53,7 @@ -- | Inserts a data transfer request. -- -- /See:/ 'transfersInsert' smart constructor. -newtype TransfersInsert = TransfersInsert +newtype TransfersInsert = TransfersInsert' { _tiPayload :: DataTransfer } deriving (Eq,Show,Data,Typeable,Generic) @@ -66,7 +66,7 @@ :: DataTransfer -- ^ 'tiPayload' -> TransfersInsert transfersInsert pTiPayload_ = - TransfersInsert + TransfersInsert' { _tiPayload = pTiPayload_ } @@ -77,7 +77,9 @@ instance GoogleRequest TransfersInsert where type Rs TransfersInsert = DataTransfer - requestClient TransfersInsert{..} + type Scopes TransfersInsert = + '["https://www.googleapis.com/auth/admin.datatransfer"] + requestClient TransfersInsert'{..} = go (Just AltJSON) _tiPayload dataTransferService where go = buildClient diff --git a/gen/Network/Google/Resource/DataTransfer/Transfers/List.hs b/gen/Network/Google/Resource/DataTransfer/Transfers/List.hs --- a/gen/Network/Google/Resource/DataTransfer/Transfers/List.hs +++ b/gen/Network/Google/Resource/DataTransfer/Transfers/List.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.DataTransfer.Transfers.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 @@ -65,7 +65,7 @@ -- status. -- -- /See:/ 'transfersList' smart constructor. -data TransfersList = TransfersList +data TransfersList = TransfersList' { _tlStatus :: !(Maybe Text) , _tlOldOwnerUserId :: !(Maybe Text) , _tlNewOwnerUserId :: !(Maybe Text) @@ -92,7 +92,7 @@ transfersList :: TransfersList transfersList = - TransfersList + TransfersList' { _tlStatus = Nothing , _tlOldOwnerUserId = Nothing , _tlNewOwnerUserId = Nothing @@ -135,7 +135,10 @@ instance GoogleRequest TransfersList where type Rs TransfersList = DataTransfersListResponse - requestClient TransfersList{..} + type Scopes TransfersList = + '["https://www.googleapis.com/auth/admin.datatransfer", + "https://www.googleapis.com/auth/admin.datatransfer.readonly"] + requestClient TransfersList'{..} = go _tlStatus _tlOldOwnerUserId _tlNewOwnerUserId _tlCustomerId _tlPageToken diff --git a/gogol-admin-datatransfer.cabal b/gogol-admin-datatransfer.cabal --- a/gogol-admin-datatransfer.cabal +++ b/gogol-admin-datatransfer.cabal @@ -1,5 +1,5 @@ name: gogol-admin-datatransfer -version: 0.0.1 +version: 0.1.0 synopsis: Google Admin Data Transfer SDK. homepage: https://github.com/brendanhay/gogol bug-reports: https://github.com/brendanhay/gogol/issues @@ -7,15 +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: - Admin Data Transfer API lets you transfer user data from one user to - another. + Transfers user data from one user to another. . /Warning:/ This is an experimental prototype/preview release which is still under exploratory development and not intended for public use, caveat emptor! @@ -47,5 +46,5 @@ , Network.Google.DataTransfer.Types.Sum build-depends: - gogol-core == 0.0.1.* + gogol-core == 0.1.0.* , base >= 4.7 && < 5