gogol-admin-datatransfer 0.4.0 → 0.5.0

raw patch · 9 files changed

+83/−52 lines, 9 filesdep ~gogol-corePVP ok

version bump matches the API change (PVP)

Dependency ranges changed: gogol-core

API changes (from Hackage documentation)

Files

• README.md +1/−1
• gen/Network/Google/DataTransfer/Types.hs +2/−2
• gen/Network/Google/DataTransfer/Types/Product.hs +42/−21
• gen/Network/Google/Resource/DataTransfer/Applications/Get.hs +7/−5
• gen/Network/Google/Resource/DataTransfer/Applications/List.hs +8/−7
• gen/Network/Google/Resource/DataTransfer/Transfers/Get.hs +7/−5
• gen/Network/Google/Resource/DataTransfer/Transfers/Insert.hs +7/−6
• gen/Network/Google/Resource/DataTransfer/Transfers/List.hs +7/−3
• gogol-admin-datatransfer.cabal +2/−2

@@ -8,7 +8,7 @@  ## Version -`0.3.0`+`0.5.0`   ## Description

@@ -86,8 +86,8 @@  -- | View data transfers between users in your organization adminDataTransferReadOnlyScope :: Proxy '["https://www.googleapis.com/auth/admin.datatransfer.readonly"]-adminDataTransferReadOnlyScope = Proxy;+adminDataTransferReadOnlyScope = Proxy  -- | View and manage data transfers between users in your organization adminDataTransferScope :: Proxy '["https://www.googleapis.com/auth/admin.datatransfer"]-adminDataTransferScope = Proxy;+adminDataTransferScope = Proxy

@@ -23,14 +23,17 @@ -- | 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     , _aName           :: !(Maybe Text)     , _aId             :: !(Maybe (Textual Int64))-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Application' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -47,7 +50,7 @@ application     :: Application application =-    Application'+  Application'     { _aTransferParams = Nothing     , _aEtag = Nothing     , _aKind = "admin#datatransfer#ApplicationResource"@@ -55,6 +58,7 @@     , _aId = Nothing     } + -- | The list of all possible transfer parameters for this application. These -- parameters can be used to select the data of the user in this -- application to be transfered.@@ -106,11 +110,14 @@ -- | 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)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ApplicationTransferParam' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -121,11 +128,9 @@ applicationTransferParam     :: ApplicationTransferParam applicationTransferParam =-    ApplicationTransferParam'-    { _atpValue = Nothing-    , _atpKey = Nothing-    }+  ApplicationTransferParam' {_atpValue = Nothing, _atpKey = Nothing} + -- | The value of the coressponding transfer parameter. eg: \'PRIVATE\' or -- \'SHARED\' atpValue :: Lens' ApplicationTransferParam [Text]@@ -154,13 +159,16 @@ -- | Template for a collection of Applications. -- -- /See:/ 'applicationsListResponse' smart constructor.-data ApplicationsListResponse = ApplicationsListResponse'+data ApplicationsListResponse =+  ApplicationsListResponse'     { _alrEtag          :: !(Maybe Text)     , _alrNextPageToken :: !(Maybe Text)     , _alrKind          :: !Text     , _alrApplications  :: !(Maybe [Application])-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ApplicationsListResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -175,13 +183,14 @@ applicationsListResponse     :: ApplicationsListResponse applicationsListResponse =-    ApplicationsListResponse'+  ApplicationsListResponse'     { _alrEtag = Nothing     , _alrNextPageToken = Nothing     , _alrKind = "admin#datatransfer#applicationsList"     , _alrApplications = Nothing     } + -- | ETag of the resource. alrEtag :: Lens' ApplicationsListResponse (Maybe Text) alrEtag = lens _alrEtag (\ s a -> s{_alrEtag = a})@@ -227,7 +236,8 @@ -- | 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@@ -236,8 +246,10 @@     , _dtApplicationDataTransfers  :: !(Maybe [ApplicationDataTransfer])     , _dtId                        :: !(Maybe Text)     , _dtOverallTransferStatusCode :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'DataTransfer' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -260,7 +272,7 @@ dataTransfer     :: DataTransfer dataTransfer =-    DataTransfer'+  DataTransfer'     { _dtEtag = Nothing     , _dtOldOwnerUserId = Nothing     , _dtKind = "admin#datatransfer#DataTransfer"@@ -271,6 +283,7 @@     , _dtOverallTransferStatusCode = Nothing     } + -- | ETag of the resource. dtEtag :: Lens' DataTransfer (Maybe Text) dtEtag = lens _dtEtag (\ s a -> s{_dtEtag = a})@@ -351,13 +364,16 @@ -- | 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     , _dtlrDataTransfers :: !(Maybe [DataTransfer])-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'DataTransfersListResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -372,13 +388,14 @@ dataTransfersListResponse     :: DataTransfersListResponse dataTransfersListResponse =-    DataTransfersListResponse'+  DataTransfersListResponse'     { _dtlrEtag = Nothing     , _dtlrNextPageToken = Nothing     , _dtlrKind = "admin#datatransfer#dataTransfersList"     , _dtlrDataTransfers = Nothing     } + -- | ETag of the resource. dtlrEtag :: Lens' DataTransfersListResponse (Maybe Text) dtlrEtag = lens _dtlrEtag (\ s a -> s{_dtlrEtag = a})@@ -423,12 +440,15 @@ -- | 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)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ApplicationDataTransfer' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -441,11 +461,12 @@ applicationDataTransfer     :: ApplicationDataTransfer applicationDataTransfer =-    ApplicationDataTransfer'+  ApplicationDataTransfer'     { _adtApplicationTransferParams = Nothing     , _adtApplicationId = Nothing     , _adtApplicationTransferStatus = Nothing     }+  -- | The transfer parameters for the application. These parameters are used -- to select the data which will get transfered in context of this

@@ -52,10 +52,13 @@ -- | 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)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ApplicationsGet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -65,9 +68,8 @@     :: Int64 -- ^ 'agApplicationId'     -> ApplicationsGet applicationsGet pAgApplicationId_ =-    ApplicationsGet'-    { _agApplicationId = _Coerce # pAgApplicationId_-    }+  ApplicationsGet' {_agApplicationId = _Coerce # pAgApplicationId_}+  -- | ID of the application resource to be retrieved. agApplicationId :: Lens' ApplicationsGet Int64

@@ -57,12 +57,15 @@ -- | 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 Int32))-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ApplicationsList' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -75,11 +78,9 @@ applicationsList     :: ApplicationsList applicationsList =-    ApplicationsList'-    { _alCustomerId = Nothing-    , _alPageToken = Nothing-    , _alMaxResults = Nothing-    }+  ApplicationsList'+    {_alCustomerId = Nothing, _alPageToken = Nothing, _alMaxResults = Nothing}+  -- | Immutable ID of the Google Apps account. alCustomerId :: Lens' ApplicationsList (Maybe Text)

@@ -52,10 +52,13 @@ -- | 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)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'TransfersGet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -65,9 +68,8 @@     :: Text -- ^ 'tgDataTransferId'     -> TransfersGet transfersGet pTgDataTransferId_ =-    TransfersGet'-    { _tgDataTransferId = pTgDataTransferId_-    }+  TransfersGet' {_tgDataTransferId = pTgDataTransferId_}+  -- | ID of the resource to be retrieved. This is returned in the response -- from the insert method.

@@ -53,10 +53,13 @@ -- | Inserts a data transfer request. -- -- /See:/ 'transfersInsert' smart constructor.-newtype TransfersInsert = TransfersInsert'+newtype TransfersInsert =+  TransfersInsert'     { _tiPayload :: DataTransfer-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'TransfersInsert' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -65,10 +68,8 @@ transfersInsert     :: DataTransfer -- ^ 'tiPayload'     -> TransfersInsert-transfersInsert pTiPayload_ =-    TransfersInsert'-    { _tiPayload = pTiPayload_-    }+transfersInsert pTiPayload_ = TransfersInsert' {_tiPayload = pTiPayload_}+  -- | Multipart request metadata. tiPayload :: Lens' TransfersInsert DataTransfer

@@ -65,15 +65,18 @@ -- status. -- -- /See:/ 'transfersList' smart constructor.-data TransfersList = TransfersList'+data TransfersList =+  TransfersList'     { _tlStatus         :: !(Maybe Text)     , _tlOldOwnerUserId :: !(Maybe Text)     , _tlNewOwnerUserId :: !(Maybe Text)     , _tlCustomerId     :: !(Maybe Text)     , _tlPageToken      :: !(Maybe Text)     , _tlMaxResults     :: !(Maybe (Textual Int32))-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'TransfersList' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -92,7 +95,7 @@ transfersList     :: TransfersList transfersList =-    TransfersList'+  TransfersList'     { _tlStatus = Nothing     , _tlOldOwnerUserId = Nothing     , _tlNewOwnerUserId = Nothing@@ -100,6 +103,7 @@     , _tlPageToken = Nothing     , _tlMaxResults = Nothing     }+  -- | Status of the transfer. tlStatus :: Lens' TransfersList (Maybe Text)

@@ -1,5 +1,5 @@ name:                  gogol-admin-datatransfer-version:               0.4.0+version:               0.5.0 synopsis:              Google Admin Data Transfer SDK. homepage:              https://github.com/brendanhay/gogol bug-reports:           https://github.com/brendanhay/gogol/issues@@ -46,5 +46,5 @@         , Network.Google.DataTransfer.Types.Sum      build-depends:-          gogol-core == 0.4.0.*+          gogol-core == 0.5.0.*         , base       >= 4.7 && < 5