gogol-admin-datatransfer 0.0.1 → 0.1.0
raw patch · 11 files changed
+85/−68 lines, 11 filesdep ~gogol-core
Dependency ranges changed: gogol-core
Files
- README.md +3/−3
- gen/Network/Google/DataTransfer.hs +6/−3
- gen/Network/Google/DataTransfer/Types.hs +9/−8
- gen/Network/Google/DataTransfer/Types/Product.hs +25/−25
- gen/Network/Google/DataTransfer/Types/Sum.hs +1/−1
- gen/Network/Google/Resource/DataTransfer/Applications/Get.hs +7/−4
- gen/Network/Google/Resource/DataTransfer/Applications/List.hs +10/−7
- gen/Network/Google/Resource/DataTransfer/Transfers/Get.hs +7/−4
- gen/Network/Google/Resource/DataTransfer/Transfers/Insert.hs +6/−4
- gen/Network/Google/Resource/DataTransfer/Transfers/List.hs +7/−4
- gogol-admin-datatransfer.cabal +4/−5
README.md view
@@ -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
gen/Network/Google/DataTransfer.hs view
@@ -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 <brendan.g.hay@gmail.com> -- 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:/ <https://developers.google.com/admin-sdk/data-transfer/ Admin Data Transfer API Reference> module Network.Google.DataTransfer ( -- * Service Configuration dataTransferService++ -- * OAuth Scopes+ , adminDataTransferReadOnlyScope+ , adminDataTransferScope -- * API Declaration , DataTransferAPI
gen/Network/Google/DataTransfer/Types.hs view
@@ -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 <brendan.g.hay@gmail.com> -- 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;
gen/Network/Google/DataTransfer/Types/Product.hs view
@@ -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 <brendan.g.hay@gmail.com> -- 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" .=) <$>
gen/Network/Google/DataTransfer/Types/Sum.hs view
@@ -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 <brendan.g.hay@gmail.com> -- Stability : auto-generated
gen/Network/Google/Resource/DataTransfer/Applications/Get.hs view
@@ -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 <brendan.g.hay@gmail.com> -- 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
gen/Network/Google/Resource/DataTransfer/Applications/List.hs view
@@ -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 <brendan.g.hay@gmail.com> -- 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
gen/Network/Google/Resource/DataTransfer/Transfers/Get.hs view
@@ -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 <brendan.g.hay@gmail.com> -- 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
gen/Network/Google/Resource/DataTransfer/Transfers/Insert.hs view
@@ -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 <brendan.g.hay@gmail.com> -- 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
gen/Network/Google/Resource/DataTransfer/Transfers/List.hs view
@@ -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 <brendan.g.hay@gmail.com> -- 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
gogol-admin-datatransfer.cabal view
@@ -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 <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:- 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