diff --git a/README.md b/README.md --- a/README.md +++ b/README.md @@ -8,7 +8,7 @@ ## Version -`0.3.0` +`0.5.0` ## Description diff --git a/gen/Network/Google/BigQueryDataTransfer.hs b/gen/Network/Google/BigQueryDataTransfer.hs --- a/gen/Network/Google/BigQueryDataTransfer.hs +++ b/gen/Network/Google/BigQueryDataTransfer.hs @@ -13,8 +13,8 @@ -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- --- Transfers data from partner SaaS applications to Google BigQuery on a --- scheduled, managed basis. +-- Schedule queries or transfer external data from SaaS applications to +-- Google BigQuery on a regular basis. -- -- /See:/ module Network.Google.BigQueryDataTransfer @@ -86,6 +86,9 @@ -- ** bigquerydatatransfer.projects.locations.transferConfigs.scheduleRuns , module Network.Google.Resource.BigQueryDataTransfer.Projects.Locations.TransferConfigs.ScheduleRuns + -- ** bigquerydatatransfer.projects.locations.transferConfigs.startManualRuns + , module Network.Google.Resource.BigQueryDataTransfer.Projects.Locations.TransferConfigs.StartManualRuns + -- ** bigquerydatatransfer.projects.transferConfigs.create , module Network.Google.Resource.BigQueryDataTransfer.Projects.TransferConfigs.Create @@ -116,6 +119,9 @@ -- ** bigquerydatatransfer.projects.transferConfigs.scheduleRuns , module Network.Google.Resource.BigQueryDataTransfer.Projects.TransferConfigs.ScheduleRuns + -- ** bigquerydatatransfer.projects.transferConfigs.startManualRuns + , module Network.Google.Resource.BigQueryDataTransfer.Projects.TransferConfigs.StartManualRuns + -- * Types -- ** DataSourceParameterType @@ -134,22 +140,28 @@ , llrNextPageToken , llrLocations + -- ** TimeRange + , TimeRange + , timeRange + , trStartTime + , trEndTime + -- ** TransferRun , TransferRun , transferRun - , trRunTime - , trErrorStatus - , trState - , trSchedule - , trStartTime - , trScheduleTime - , trDataSourceId - , trParams - , trUserId - , trUpdateTime - , trName - , trEndTime - , trDestinationDataSetId + , tRunTime + , tErrorStatus + , tState + , tSchedule + , tStartTime + , tScheduleTime + , tDataSourceId + , tParams + , tUserId + , tUpdateTime + , tName + , tEndTime + , tDestinationDataSetId -- ** CheckValidCredsRequest , CheckValidCredsRequest @@ -179,6 +191,13 @@ , Empty , empty + -- ** ScheduleOptions + , ScheduleOptions + , scheduleOptions + , soStartTime + , soDisableAutoScheduling + , soEndTime + -- ** TransferRunState , TransferRunState (..) @@ -239,6 +258,12 @@ , ldsrNextPageToken , ldsrDataSources + -- ** StartManualTransferRunsRequest + , StartManualTransferRunsRequest + , startManualTransferRunsRequest + , smtrrRequestedRunTime + , smtrrRequestedTimeRange + -- ** Xgafv , Xgafv (..) @@ -285,6 +310,11 @@ , locationLabels , llAddtional + -- ** StartManualTransferRunsResponse + , StartManualTransferRunsResponse + , startManualTransferRunsResponse + , smtrrRuns + -- ** LocationMetadata , LocationMetadata , locationMetadata @@ -307,6 +337,7 @@ , transferConfig , tcState , tcSchedule + , tcScheduleOptions , tcDisabled , tcDataSourceId , tcParams @@ -340,6 +371,7 @@ import Network.Google.Resource.BigQueryDataTransfer.Projects.Locations.TransferConfigs.Runs.List import Network.Google.Resource.BigQueryDataTransfer.Projects.Locations.TransferConfigs.Runs.TransferLogs.List import Network.Google.Resource.BigQueryDataTransfer.Projects.Locations.TransferConfigs.ScheduleRuns +import Network.Google.Resource.BigQueryDataTransfer.Projects.Locations.TransferConfigs.StartManualRuns import Network.Google.Resource.BigQueryDataTransfer.Projects.TransferConfigs.Create import Network.Google.Resource.BigQueryDataTransfer.Projects.TransferConfigs.Delete import Network.Google.Resource.BigQueryDataTransfer.Projects.TransferConfigs.Get @@ -350,6 +382,7 @@ import Network.Google.Resource.BigQueryDataTransfer.Projects.TransferConfigs.Runs.List import Network.Google.Resource.BigQueryDataTransfer.Projects.TransferConfigs.Runs.TransferLogs.List import Network.Google.Resource.BigQueryDataTransfer.Projects.TransferConfigs.ScheduleRuns +import Network.Google.Resource.BigQueryDataTransfer.Projects.TransferConfigs.StartManualRuns {- $resources TODO @@ -367,6 +400,7 @@ :<|> ProjectsTransferConfigsRunsDeleteResource :<|> ProjectsTransferConfigsScheduleRunsResource :<|> ProjectsTransferConfigsListResource + :<|> ProjectsTransferConfigsStartManualRunsResource :<|> ProjectsTransferConfigsPatchResource :<|> ProjectsTransferConfigsGetResource :<|> ProjectsTransferConfigsCreateResource @@ -384,6 +418,8 @@ :<|> ProjectsLocationsTransferConfigsScheduleRunsResource :<|> ProjectsLocationsTransferConfigsListResource + :<|> + ProjectsLocationsTransferConfigsStartManualRunsResource :<|> ProjectsLocationsTransferConfigsPatchResource :<|> ProjectsLocationsTransferConfigsGetResource :<|> ProjectsLocationsTransferConfigsCreateResource diff --git a/gen/Network/Google/BigQueryDataTransfer/Types.hs b/gen/Network/Google/BigQueryDataTransfer/Types.hs --- a/gen/Network/Google/BigQueryDataTransfer/Types.hs +++ b/gen/Network/Google/BigQueryDataTransfer/Types.hs @@ -40,22 +40,28 @@ , llrNextPageToken , llrLocations + -- * TimeRange + , TimeRange + , timeRange + , trStartTime + , trEndTime + -- * TransferRun , TransferRun , transferRun - , trRunTime - , trErrorStatus - , trState - , trSchedule - , trStartTime - , trScheduleTime - , trDataSourceId - , trParams - , trUserId - , trUpdateTime - , trName - , trEndTime - , trDestinationDataSetId + , tRunTime + , tErrorStatus + , tState + , tSchedule + , tStartTime + , tScheduleTime + , tDataSourceId + , tParams + , tUserId + , tUpdateTime + , tName + , tEndTime + , tDestinationDataSetId -- * CheckValidCredsRequest , CheckValidCredsRequest @@ -85,6 +91,13 @@ , Empty , empty + -- * ScheduleOptions + , ScheduleOptions + , scheduleOptions + , soStartTime + , soDisableAutoScheduling + , soEndTime + -- * TransferRunState , TransferRunState (..) @@ -145,6 +158,12 @@ , ldsrNextPageToken , ldsrDataSources + -- * StartManualTransferRunsRequest + , StartManualTransferRunsRequest + , startManualTransferRunsRequest + , smtrrRequestedRunTime + , smtrrRequestedTimeRange + -- * Xgafv , Xgafv (..) @@ -191,6 +210,11 @@ , locationLabels , llAddtional + -- * StartManualTransferRunsResponse + , StartManualTransferRunsResponse + , startManualTransferRunsResponse + , smtrrRuns + -- * LocationMetadata , LocationMetadata , locationMetadata @@ -213,6 +237,7 @@ , transferConfig , tcState , tcSchedule + , tcScheduleOptions , tcDisabled , tcDataSourceId , tcParams @@ -239,12 +264,12 @@ -- | View your data across Google Cloud Platform services cloudPlatformReadOnlyScope :: Proxy '["https://www.googleapis.com/auth/cloud-platform.read-only"] -cloudPlatformReadOnlyScope = Proxy; +cloudPlatformReadOnlyScope = Proxy -- | View and manage your data across Google Cloud Platform services cloudPlatformScope :: Proxy '["https://www.googleapis.com/auth/cloud-platform"] -cloudPlatformScope = Proxy; +cloudPlatformScope = Proxy -- | View and manage your data in Google BigQuery bigQueryScope :: Proxy '["https://www.googleapis.com/auth/bigquery"] -bigQueryScope = Proxy; +bigQueryScope = Proxy diff --git a/gen/Network/Google/BigQueryDataTransfer/Types/Product.hs b/gen/Network/Google/BigQueryDataTransfer/Types/Product.hs --- a/gen/Network/Google/BigQueryDataTransfer/Types/Product.hs +++ b/gen/Network/Google/BigQueryDataTransfer/Types/Product.hs @@ -57,12 +57,15 @@ -- security\/privacy reasons. -- -- /See:/ 'status' smart constructor. -data Status = Status' +data Status = + Status' { _sDetails :: !(Maybe [StatusDetailsItem]) , _sCode :: !(Maybe (Textual Int32)) , _sMessage :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Status' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -74,13 +77,9 @@ -- * 'sMessage' status :: Status -status = - Status' - { _sDetails = Nothing - , _sCode = Nothing - , _sMessage = Nothing - } +status = Status' {_sDetails = Nothing, _sCode = Nothing, _sMessage = Nothing} + -- | A list of messages that carry the error details. There is a common set -- of message types for APIs to use. sDetails :: Lens' Status [StatusDetailsItem] @@ -120,11 +119,14 @@ -- | The response message for Locations.ListLocations. -- -- /See:/ 'listLocationsResponse' smart constructor. -data ListLocationsResponse = ListLocationsResponse' +data ListLocationsResponse = + ListLocationsResponse' { _llrNextPageToken :: !(Maybe Text) , _llrLocations :: !(Maybe [Location]) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListLocationsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -135,11 +137,9 @@ listLocationsResponse :: ListLocationsResponse listLocationsResponse = - ListLocationsResponse' - { _llrNextPageToken = Nothing - , _llrLocations = Nothing - } + ListLocationsResponse' {_llrNextPageToken = Nothing, _llrLocations = Nothing} + -- | The standard List next-page token. llrNextPageToken :: Lens' ListLocationsResponse (Maybe Text) llrNextPageToken @@ -168,153 +168,212 @@ [("nextPageToken" .=) <$> _llrNextPageToken, ("locations" .=) <$> _llrLocations]) +-- | A specification for a time range, this will request transfer runs with +-- run_time between start_time (inclusive) and end_time (exclusive). +-- +-- /See:/ 'timeRange' smart constructor. +data TimeRange = + TimeRange' + { _trStartTime :: !(Maybe DateTime') + , _trEndTime :: !(Maybe DateTime') + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'TimeRange' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'trStartTime' +-- +-- * 'trEndTime' +timeRange + :: TimeRange +timeRange = TimeRange' {_trStartTime = Nothing, _trEndTime = Nothing} + + +-- | Start time of the range of transfer runs. For example, +-- \`\"2017-05-25T00:00:00+00:00\"\`. The start_time must be strictly less +-- than the end_time. Creates transfer runs where run_time is in the range +-- betwen start_time (inclusive) and end_time (exlusive). +trStartTime :: Lens' TimeRange (Maybe UTCTime) +trStartTime + = lens _trStartTime (\ s a -> s{_trStartTime = a}) . + mapping _DateTime + +-- | End time of the range of transfer runs. For example, +-- \`\"2017-05-30T00:00:00+00:00\"\`. The end_time must not be in the +-- future. Creates transfer runs where run_time is in the range betwen +-- start_time (inclusive) and end_time (exlusive). +trEndTime :: Lens' TimeRange (Maybe UTCTime) +trEndTime + = lens _trEndTime (\ s a -> s{_trEndTime = a}) . + mapping _DateTime + +instance FromJSON TimeRange where + parseJSON + = withObject "TimeRange" + (\ o -> + TimeRange' <$> + (o .:? "startTime") <*> (o .:? "endTime")) + +instance ToJSON TimeRange where + toJSON TimeRange'{..} + = object + (catMaybes + [("startTime" .=) <$> _trStartTime, + ("endTime" .=) <$> _trEndTime]) + -- | Represents a data transfer run. -- -- /See:/ 'transferRun' smart constructor. -data TransferRun = TransferRun' - { _trRunTime :: !(Maybe DateTime') - , _trErrorStatus :: !(Maybe Status) - , _trState :: !(Maybe TransferRunState) - , _trSchedule :: !(Maybe Text) - , _trStartTime :: !(Maybe DateTime') - , _trScheduleTime :: !(Maybe DateTime') - , _trDataSourceId :: !(Maybe Text) - , _trParams :: !(Maybe TransferRunParams) - , _trUserId :: !(Maybe (Textual Int64)) - , _trUpdateTime :: !(Maybe DateTime') - , _trName :: !(Maybe Text) - , _trEndTime :: !(Maybe DateTime') - , _trDestinationDataSetId :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) +data TransferRun = + TransferRun' + { _tRunTime :: !(Maybe DateTime') + , _tErrorStatus :: !(Maybe Status) + , _tState :: !(Maybe TransferRunState) + , _tSchedule :: !(Maybe Text) + , _tStartTime :: !(Maybe DateTime') + , _tScheduleTime :: !(Maybe DateTime') + , _tDataSourceId :: !(Maybe Text) + , _tParams :: !(Maybe TransferRunParams) + , _tUserId :: !(Maybe (Textual Int64)) + , _tUpdateTime :: !(Maybe DateTime') + , _tName :: !(Maybe Text) + , _tEndTime :: !(Maybe DateTime') + , _tDestinationDataSetId :: !(Maybe Text) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'TransferRun' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'trRunTime' +-- * 'tRunTime' -- --- * 'trErrorStatus' +-- * 'tErrorStatus' -- --- * 'trState' +-- * 'tState' -- --- * 'trSchedule' +-- * 'tSchedule' -- --- * 'trStartTime' +-- * 'tStartTime' -- --- * 'trScheduleTime' +-- * 'tScheduleTime' -- --- * 'trDataSourceId' +-- * 'tDataSourceId' -- --- * 'trParams' +-- * 'tParams' -- --- * 'trUserId' +-- * 'tUserId' -- --- * 'trUpdateTime' +-- * 'tUpdateTime' -- --- * 'trName' +-- * 'tName' -- --- * 'trEndTime' +-- * 'tEndTime' -- --- * 'trDestinationDataSetId' +-- * 'tDestinationDataSetId' transferRun :: TransferRun transferRun = - TransferRun' - { _trRunTime = Nothing - , _trErrorStatus = Nothing - , _trState = Nothing - , _trSchedule = Nothing - , _trStartTime = Nothing - , _trScheduleTime = Nothing - , _trDataSourceId = Nothing - , _trParams = Nothing - , _trUserId = Nothing - , _trUpdateTime = Nothing - , _trName = Nothing - , _trEndTime = Nothing - , _trDestinationDataSetId = Nothing + TransferRun' + { _tRunTime = Nothing + , _tErrorStatus = Nothing + , _tState = Nothing + , _tSchedule = Nothing + , _tStartTime = Nothing + , _tScheduleTime = Nothing + , _tDataSourceId = Nothing + , _tParams = Nothing + , _tUserId = Nothing + , _tUpdateTime = Nothing + , _tName = Nothing + , _tEndTime = Nothing + , _tDestinationDataSetId = Nothing } + -- | For batch transfer runs, specifies the date and time that data should be -- ingested. -trRunTime :: Lens' TransferRun (Maybe UTCTime) -trRunTime - = lens _trRunTime (\ s a -> s{_trRunTime = a}) . +tRunTime :: Lens' TransferRun (Maybe UTCTime) +tRunTime + = lens _tRunTime (\ s a -> s{_tRunTime = a}) . mapping _DateTime -- | Status of the transfer run. -trErrorStatus :: Lens' TransferRun (Maybe Status) -trErrorStatus - = lens _trErrorStatus - (\ s a -> s{_trErrorStatus = a}) +tErrorStatus :: Lens' TransferRun (Maybe Status) +tErrorStatus + = lens _tErrorStatus (\ s a -> s{_tErrorStatus = a}) -- | Data transfer run state. Ignored for input requests. -trState :: Lens' TransferRun (Maybe TransferRunState) -trState = lens _trState (\ s a -> s{_trState = a}) +tState :: Lens' TransferRun (Maybe TransferRunState) +tState = lens _tState (\ s a -> s{_tState = a}) -- | Output only. Describes the schedule of this transfer run if it was -- created as part of a regular schedule. For batch transfer runs that are -- scheduled manually, this is empty. NOTE: the system might choose to -- delay the schedule depending on the current load, so \`schedule_time\` -- doesn\'t always match this. -trSchedule :: Lens' TransferRun (Maybe Text) -trSchedule - = lens _trSchedule (\ s a -> s{_trSchedule = a}) +tSchedule :: Lens' TransferRun (Maybe Text) +tSchedule + = lens _tSchedule (\ s a -> s{_tSchedule = a}) -- | Output only. Time when transfer run was started. Parameter ignored by -- server for input requests. -trStartTime :: Lens' TransferRun (Maybe UTCTime) -trStartTime - = lens _trStartTime (\ s a -> s{_trStartTime = a}) . +tStartTime :: Lens' TransferRun (Maybe UTCTime) +tStartTime + = lens _tStartTime (\ s a -> s{_tStartTime = a}) . mapping _DateTime -- | Minimum time after which a transfer run can be started. -trScheduleTime :: Lens' TransferRun (Maybe UTCTime) -trScheduleTime - = lens _trScheduleTime - (\ s a -> s{_trScheduleTime = a}) +tScheduleTime :: Lens' TransferRun (Maybe UTCTime) +tScheduleTime + = lens _tScheduleTime + (\ s a -> s{_tScheduleTime = a}) . mapping _DateTime -- | Output only. Data source id. -trDataSourceId :: Lens' TransferRun (Maybe Text) -trDataSourceId - = lens _trDataSourceId - (\ s a -> s{_trDataSourceId = a}) +tDataSourceId :: Lens' TransferRun (Maybe Text) +tDataSourceId + = lens _tDataSourceId + (\ s a -> s{_tDataSourceId = a}) -- | Output only. Data transfer specific parameters. -trParams :: Lens' TransferRun (Maybe TransferRunParams) -trParams = lens _trParams (\ s a -> s{_trParams = a}) +tParams :: Lens' TransferRun (Maybe TransferRunParams) +tParams = lens _tParams (\ s a -> s{_tParams = a}) -- | Deprecated. Unique ID of the user on whose behalf transfer is done. -trUserId :: Lens' TransferRun (Maybe Int64) -trUserId - = lens _trUserId (\ s a -> s{_trUserId = a}) . +tUserId :: Lens' TransferRun (Maybe Int64) +tUserId + = lens _tUserId (\ s a -> s{_tUserId = a}) . mapping _Coerce -- | Output only. Last time the data transfer run state was updated. -trUpdateTime :: Lens' TransferRun (Maybe UTCTime) -trUpdateTime - = lens _trUpdateTime (\ s a -> s{_trUpdateTime = a}) - . mapping _DateTime +tUpdateTime :: Lens' TransferRun (Maybe UTCTime) +tUpdateTime + = lens _tUpdateTime (\ s a -> s{_tUpdateTime = a}) . + mapping _DateTime -- | The resource name of the transfer run. Transfer run names have the form -- \`projects\/{project_id}\/locations\/{location}\/transferConfigs\/{config_id}\/runs\/{run_id}\`. -- The name is ignored when creating a transfer run. -trName :: Lens' TransferRun (Maybe Text) -trName = lens _trName (\ s a -> s{_trName = a}) +tName :: Lens' TransferRun (Maybe Text) +tName = lens _tName (\ s a -> s{_tName = a}) -- | Output only. Time when transfer run ended. Parameter ignored by server -- for input requests. -trEndTime :: Lens' TransferRun (Maybe UTCTime) -trEndTime - = lens _trEndTime (\ s a -> s{_trEndTime = a}) . +tEndTime :: Lens' TransferRun (Maybe UTCTime) +tEndTime + = lens _tEndTime (\ s a -> s{_tEndTime = a}) . mapping _DateTime -- | Output only. The BigQuery target dataset id. -trDestinationDataSetId :: Lens' TransferRun (Maybe Text) -trDestinationDataSetId - = lens _trDestinationDataSetId - (\ s a -> s{_trDestinationDataSetId = a}) +tDestinationDataSetId :: Lens' TransferRun (Maybe Text) +tDestinationDataSetId + = lens _tDestinationDataSetId + (\ s a -> s{_tDestinationDataSetId = a}) instance FromJSON TransferRun where parseJSON @@ -338,20 +397,19 @@ toJSON TransferRun'{..} = object (catMaybes - [("runTime" .=) <$> _trRunTime, - ("errorStatus" .=) <$> _trErrorStatus, - ("state" .=) <$> _trState, - ("schedule" .=) <$> _trSchedule, - ("startTime" .=) <$> _trStartTime, - ("scheduleTime" .=) <$> _trScheduleTime, - ("dataSourceId" .=) <$> _trDataSourceId, - ("params" .=) <$> _trParams, - ("userId" .=) <$> _trUserId, - ("updateTime" .=) <$> _trUpdateTime, - ("name" .=) <$> _trName, - ("endTime" .=) <$> _trEndTime, + [("runTime" .=) <$> _tRunTime, + ("errorStatus" .=) <$> _tErrorStatus, + ("state" .=) <$> _tState, + ("schedule" .=) <$> _tSchedule, + ("startTime" .=) <$> _tStartTime, + ("scheduleTime" .=) <$> _tScheduleTime, + ("dataSourceId" .=) <$> _tDataSourceId, + ("params" .=) <$> _tParams, + ("userId" .=) <$> _tUserId, + ("updateTime" .=) <$> _tUpdateTime, + ("name" .=) <$> _tName, ("endTime" .=) <$> _tEndTime, ("destinationDatasetId" .=) <$> - _trDestinationDataSetId]) + _tDestinationDataSetId]) -- | A request to determine whether the user has valid credentials. This -- method is used to limit the number of OAuth popups in the user @@ -362,15 +420,17 @@ -- -- /See:/ 'checkValidCredsRequest' smart constructor. data CheckValidCredsRequest = - CheckValidCredsRequest' - deriving (Eq,Show,Data,Typeable,Generic) + CheckValidCredsRequest' + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'CheckValidCredsRequest' with the minimum fields required to make a request. -- checkValidCredsRequest :: CheckValidCredsRequest checkValidCredsRequest = CheckValidCredsRequest' + instance FromJSON CheckValidCredsRequest where parseJSON = withObject "CheckValidCredsRequest" @@ -382,10 +442,13 @@ -- | Data transfer specific parameters. -- -- /See:/ 'transferConfigParams' smart constructor. -newtype TransferConfigParams = TransferConfigParams' +newtype TransferConfigParams = + TransferConfigParams' { _tcpAddtional :: HashMap Text JSONValue - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'TransferConfigParams' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -395,10 +458,9 @@ :: HashMap Text JSONValue -- ^ 'tcpAddtional' -> TransferConfigParams transferConfigParams pTcpAddtional_ = - TransferConfigParams' - { _tcpAddtional = _Coerce # pTcpAddtional_ - } + TransferConfigParams' {_tcpAddtional = _Coerce # pTcpAddtional_} + -- | Properties of the object. tcpAddtional :: Lens' TransferConfigParams (HashMap Text JSONValue) tcpAddtional @@ -417,11 +479,14 @@ -- | A request to schedule transfer runs for a time range. -- -- /See:/ 'scheduleTransferRunsRequest' smart constructor. -data ScheduleTransferRunsRequest = ScheduleTransferRunsRequest' +data ScheduleTransferRunsRequest = + ScheduleTransferRunsRequest' { _strrStartTime :: !(Maybe DateTime') , _strrEndTime :: !(Maybe DateTime') - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ScheduleTransferRunsRequest' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -432,11 +497,10 @@ scheduleTransferRunsRequest :: ScheduleTransferRunsRequest scheduleTransferRunsRequest = - ScheduleTransferRunsRequest' - { _strrStartTime = Nothing - , _strrEndTime = Nothing - } + ScheduleTransferRunsRequest' + {_strrStartTime = Nothing, _strrEndTime = Nothing} + -- | Start time of the range of transfer runs. For example, -- \`\"2017-05-25T00:00:00+00:00\"\`. strrStartTime :: Lens' ScheduleTransferRunsRequest (Maybe UTCTime) @@ -469,14 +533,17 @@ -- | A resource that represents Google Cloud Platform location. -- -- /See:/ 'location' smart constructor. -data Location = Location' +data Location = + Location' { _lName :: !(Maybe Text) , _lMetadata :: !(Maybe LocationMetadata) , _lDisplayName :: !(Maybe Text) , _lLabels :: !(Maybe LocationLabels) , _lLocationId :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Location' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -493,7 +560,7 @@ location :: Location location = - Location' + Location' { _lName = Nothing , _lMetadata = Nothing , _lDisplayName = Nothing @@ -501,6 +568,7 @@ , _lLocationId = Nothing } + -- | Resource name for the location, which may vary between implementations. -- For example: \`\"projects\/example-project\/locations\/us-east1\"\` lName :: Lens' Location (Maybe Text) @@ -556,29 +624,111 @@ -- -- /See:/ 'empty' smart constructor. data Empty = - Empty' - deriving (Eq,Show,Data,Typeable,Generic) + Empty' + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Empty' with the minimum fields required to make a request. -- empty :: Empty empty = Empty' + instance FromJSON Empty where parseJSON = withObject "Empty" (\ o -> pure Empty') instance ToJSON Empty where toJSON = const emptyObject +-- | Options customizing the data transfer schedule. +-- +-- /See:/ 'scheduleOptions' smart constructor. +data ScheduleOptions = + ScheduleOptions' + { _soStartTime :: !(Maybe DateTime') + , _soDisableAutoScheduling :: !(Maybe Bool) + , _soEndTime :: !(Maybe DateTime') + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'ScheduleOptions' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'soStartTime' +-- +-- * 'soDisableAutoScheduling' +-- +-- * 'soEndTime' +scheduleOptions + :: ScheduleOptions +scheduleOptions = + ScheduleOptions' + { _soStartTime = Nothing + , _soDisableAutoScheduling = Nothing + , _soEndTime = Nothing + } + + +-- | Specifies time to start scheduling transfer runs. The first run will be +-- scheduled at or after the start time according to a recurrence pattern +-- defined in the schedule string. The start time can be changed at any +-- moment. The time when a data transfer can be trigerred manually is not +-- limited by this option. +soStartTime :: Lens' ScheduleOptions (Maybe UTCTime) +soStartTime + = lens _soStartTime (\ s a -> s{_soStartTime = a}) . + mapping _DateTime + +-- | If true, automatic scheduling of data transfer runs for this +-- configuration will be disabled. The runs can be started on ad-hoc basis +-- using StartManualTransferRuns API. When automatic scheduling is +-- disabled, the TransferConfig.schedule field will be ignored. +soDisableAutoScheduling :: Lens' ScheduleOptions (Maybe Bool) +soDisableAutoScheduling + = lens _soDisableAutoScheduling + (\ s a -> s{_soDisableAutoScheduling = a}) + +-- | Defines time to stop scheduling transfer runs. A transfer run cannot be +-- scheduled at or after the end time. The end time can be changed at any +-- moment. The time when a data transfer can be trigerred manually is not +-- limited by this option. +soEndTime :: Lens' ScheduleOptions (Maybe UTCTime) +soEndTime + = lens _soEndTime (\ s a -> s{_soEndTime = a}) . + mapping _DateTime + +instance FromJSON ScheduleOptions where + parseJSON + = withObject "ScheduleOptions" + (\ o -> + ScheduleOptions' <$> + (o .:? "startTime") <*> + (o .:? "disableAutoScheduling") + <*> (o .:? "endTime")) + +instance ToJSON ScheduleOptions where + toJSON ScheduleOptions'{..} + = object + (catMaybes + [("startTime" .=) <$> _soStartTime, + ("disableAutoScheduling" .=) <$> + _soDisableAutoScheduling, + ("endTime" .=) <$> _soEndTime]) + -- | The returned list transfer run messages. -- -- /See:/ 'listTransferLogsResponse' smart constructor. -data ListTransferLogsResponse = ListTransferLogsResponse' +data ListTransferLogsResponse = + ListTransferLogsResponse' { _ltlrNextPageToken :: !(Maybe Text) , _ltlrTransferMessages :: !(Maybe [TransferMessage]) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListTransferLogsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -589,11 +739,10 @@ listTransferLogsResponse :: ListTransferLogsResponse listTransferLogsResponse = - ListTransferLogsResponse' - { _ltlrNextPageToken = Nothing - , _ltlrTransferMessages = Nothing - } + ListTransferLogsResponse' + {_ltlrNextPageToken = Nothing, _ltlrTransferMessages = Nothing} + -- | Output only. The next-pagination token. For multiple-page list results, -- this token can be used as the \`GetTransferRunLogRequest.page_token\` to -- request the next page of list results. @@ -628,10 +777,13 @@ -- | A response indicating whether the credentials exist and are valid. -- -- /See:/ 'checkValidCredsResponse' smart constructor. -newtype CheckValidCredsResponse = CheckValidCredsResponse' +newtype CheckValidCredsResponse = + CheckValidCredsResponse' { _cvcrHasValidCreds :: Maybe Bool - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'CheckValidCredsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -640,10 +792,9 @@ checkValidCredsResponse :: CheckValidCredsResponse checkValidCredsResponse = - CheckValidCredsResponse' - { _cvcrHasValidCreds = Nothing - } + CheckValidCredsResponse' {_cvcrHasValidCreds = Nothing} + -- | If set to \`true\`, the credentials exist and are valid. cvcrHasValidCreds :: Lens' CheckValidCredsResponse (Maybe Bool) cvcrHasValidCreds @@ -664,10 +815,13 @@ -- -- /See:/ 'statusDetailsItem' smart constructor. -newtype StatusDetailsItem = StatusDetailsItem' +newtype StatusDetailsItem = + StatusDetailsItem' { _sdiAddtional :: HashMap Text JSONValue - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'StatusDetailsItem' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -677,10 +831,9 @@ :: HashMap Text JSONValue -- ^ 'sdiAddtional' -> StatusDetailsItem statusDetailsItem pSdiAddtional_ = - StatusDetailsItem' - { _sdiAddtional = _Coerce # pSdiAddtional_ - } + StatusDetailsItem' {_sdiAddtional = _Coerce # pSdiAddtional_} + -- | Properties of the object. Contains field \'type with type URL. sdiAddtional :: Lens' StatusDetailsItem (HashMap Text JSONValue) sdiAddtional @@ -698,10 +851,13 @@ -- | Output only. Data transfer specific parameters. -- -- /See:/ 'transferRunParams' smart constructor. -newtype TransferRunParams = TransferRunParams' +newtype TransferRunParams = + TransferRunParams' { _trpAddtional :: HashMap Text JSONValue - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'TransferRunParams' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -711,10 +867,9 @@ :: HashMap Text JSONValue -- ^ 'trpAddtional' -> TransferRunParams transferRunParams pTrpAddtional_ = - TransferRunParams' - { _trpAddtional = _Coerce # pTrpAddtional_ - } + TransferRunParams' {_trpAddtional = _Coerce # pTrpAddtional_} + -- | Properties of the object. trpAddtional :: Lens' TransferRunParams (HashMap Text JSONValue) trpAddtional @@ -736,7 +891,8 @@ -- generate either generic ui, or custom data source specific forms. -- -- /See:/ 'dataSourceParameter' smart constructor. -data DataSourceParameter = DataSourceParameter' +data DataSourceParameter = + DataSourceParameter' { _dspMaxValue :: !(Maybe (Textual Double)) , _dspParamId :: !(Maybe Text) , _dspImmutable :: !(Maybe Bool) @@ -752,8 +908,10 @@ , _dspMinValue :: !(Maybe (Textual Double)) , _dspValidationHelpURL :: !(Maybe Text) , _dspFields :: !(Maybe [DataSourceParameter]) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'DataSourceParameter' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -790,7 +948,7 @@ dataSourceParameter :: DataSourceParameter dataSourceParameter = - DataSourceParameter' + DataSourceParameter' { _dspMaxValue = Nothing , _dspParamId = Nothing , _dspImmutable = Nothing @@ -808,6 +966,7 @@ , _dspFields = Nothing } + -- | For integer and double values specifies maxminum allowed value. dspMaxValue :: Lens' DataSourceParameter (Maybe Double) dspMaxValue @@ -939,10 +1098,13 @@ -- | A response to schedule transfer runs for a time range. -- -- /See:/ 'scheduleTransferRunsResponse' smart constructor. -newtype ScheduleTransferRunsResponse = ScheduleTransferRunsResponse' +newtype ScheduleTransferRunsResponse = + ScheduleTransferRunsResponse' { _strrRuns :: Maybe [TransferRun] - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ScheduleTransferRunsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -951,10 +1113,9 @@ scheduleTransferRunsResponse :: ScheduleTransferRunsResponse scheduleTransferRunsResponse = - ScheduleTransferRunsResponse' - { _strrRuns = Nothing - } + ScheduleTransferRunsResponse' {_strrRuns = Nothing} + -- | The transfer runs that were scheduled. strrRuns :: Lens' ScheduleTransferRunsResponse [TransferRun] strrRuns @@ -976,11 +1137,14 @@ -- | Returns list of supported data sources and their metadata. -- -- /See:/ 'listDataSourcesResponse' smart constructor. -data ListDataSourcesResponse = ListDataSourcesResponse' +data ListDataSourcesResponse = + ListDataSourcesResponse' { _ldsrNextPageToken :: !(Maybe Text) , _ldsrDataSources :: !(Maybe [DataSource]) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListDataSourcesResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -991,11 +1155,10 @@ listDataSourcesResponse :: ListDataSourcesResponse listDataSourcesResponse = - ListDataSourcesResponse' - { _ldsrNextPageToken = Nothing - , _ldsrDataSources = Nothing - } + ListDataSourcesResponse' + {_ldsrNextPageToken = Nothing, _ldsrDataSources = Nothing} + -- | Output only. The next-pagination token. For multiple-page list results, -- this token can be used as the \`ListDataSourcesRequest.page_token\` to -- request the next page of list results. @@ -1027,11 +1190,68 @@ [("nextPageToken" .=) <$> _ldsrNextPageToken, ("dataSources" .=) <$> _ldsrDataSources]) +-- | A request to start manual transfer runs. +-- +-- /See:/ 'startManualTransferRunsRequest' smart constructor. +data StartManualTransferRunsRequest = + StartManualTransferRunsRequest' + { _smtrrRequestedRunTime :: !(Maybe DateTime') + , _smtrrRequestedTimeRange :: !(Maybe TimeRange) + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'StartManualTransferRunsRequest' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'smtrrRequestedRunTime' +-- +-- * 'smtrrRequestedTimeRange' +startManualTransferRunsRequest + :: StartManualTransferRunsRequest +startManualTransferRunsRequest = + StartManualTransferRunsRequest' + {_smtrrRequestedRunTime = Nothing, _smtrrRequestedTimeRange = Nothing} + + +-- | Specific run_time for a transfer run to be started. The +-- requested_run_time must not be in the future. +smtrrRequestedRunTime :: Lens' StartManualTransferRunsRequest (Maybe UTCTime) +smtrrRequestedRunTime + = lens _smtrrRequestedRunTime + (\ s a -> s{_smtrrRequestedRunTime = a}) + . mapping _DateTime + +-- | Time range for the transfer runs that should be started. +smtrrRequestedTimeRange :: Lens' StartManualTransferRunsRequest (Maybe TimeRange) +smtrrRequestedTimeRange + = lens _smtrrRequestedTimeRange + (\ s a -> s{_smtrrRequestedTimeRange = a}) + +instance FromJSON StartManualTransferRunsRequest + where + parseJSON + = withObject "StartManualTransferRunsRequest" + (\ o -> + StartManualTransferRunsRequest' <$> + (o .:? "requestedRunTime") <*> + (o .:? "requestedTimeRange")) + +instance ToJSON StartManualTransferRunsRequest where + toJSON StartManualTransferRunsRequest'{..} + = object + (catMaybes + [("requestedRunTime" .=) <$> _smtrrRequestedRunTime, + ("requestedTimeRange" .=) <$> + _smtrrRequestedTimeRange]) + -- | Represents data source metadata. Metadata is sufficient to render UI and -- request proper OAuth tokens. -- -- /See:/ 'dataSource' smart constructor. -data DataSource = DataSource' +data DataSource = + DataSource' { _dsClientId :: !(Maybe Text) , _dsMinimumScheduleInterval :: !(Maybe GDuration) , _dsSupportsCustomSchedule :: !(Maybe Bool) @@ -1050,8 +1270,10 @@ , _dsAuthorizationType :: !(Maybe DataSourceAuthorizationType) , _dsDefaultSchedule :: !(Maybe Text) , _dsDescription :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'DataSource' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -1094,7 +1316,7 @@ dataSource :: DataSource dataSource = - DataSource' + DataSource' { _dsClientId = Nothing , _dsMinimumScheduleInterval = Nothing , _dsSupportsCustomSchedule = Nothing @@ -1115,6 +1337,7 @@ , _dsDescription = Nothing } + -- | Data source client id which should be used to receive refresh token. dsClientId :: Lens' DataSource (Maybe Text) dsClientId @@ -1290,11 +1513,14 @@ -- | The returned list of pipelines in the project. -- -- /See:/ 'listTransferRunsResponse' smart constructor. -data ListTransferRunsResponse = ListTransferRunsResponse' +data ListTransferRunsResponse = + ListTransferRunsResponse' { _ltrrNextPageToken :: !(Maybe Text) , _ltrrTransferRuns :: !(Maybe [TransferRun]) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListTransferRunsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -1305,11 +1531,10 @@ listTransferRunsResponse :: ListTransferRunsResponse listTransferRunsResponse = - ListTransferRunsResponse' - { _ltrrNextPageToken = Nothing - , _ltrrTransferRuns = Nothing - } + ListTransferRunsResponse' + {_ltrrNextPageToken = Nothing, _ltrrTransferRuns = Nothing} + -- | Output only. The next-pagination token. For multiple-page list results, -- this token can be used as the \`ListTransferRunsRequest.page_token\` to -- request the next page of list results. @@ -1344,12 +1569,15 @@ -- | Represents a user facing message for a particular data transfer run. -- -- /See:/ 'transferMessage' smart constructor. -data TransferMessage = TransferMessage' +data TransferMessage = + TransferMessage' { _tmSeverity :: !(Maybe TransferMessageSeverity) , _tmMessageTime :: !(Maybe DateTime') , _tmMessageText :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'TransferMessage' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -1362,12 +1590,10 @@ transferMessage :: TransferMessage transferMessage = - TransferMessage' - { _tmSeverity = Nothing - , _tmMessageTime = Nothing - , _tmMessageText = Nothing - } + TransferMessage' + {_tmSeverity = Nothing, _tmMessageTime = Nothing, _tmMessageText = Nothing} + -- | Message severity. tmSeverity :: Lens' TransferMessage (Maybe TransferMessageSeverity) tmSeverity @@ -1406,10 +1632,13 @@ -- {\"cloud.googleapis.com\/region\": \"us-east1\"} -- -- /See:/ 'locationLabels' smart constructor. -newtype LocationLabels = LocationLabels' +newtype LocationLabels = + LocationLabels' { _llAddtional :: HashMap Text Text - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'LocationLabels' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -1419,10 +1648,9 @@ :: HashMap Text Text -- ^ 'llAddtional' -> LocationLabels locationLabels pLlAddtional_ = - LocationLabels' - { _llAddtional = _Coerce # pLlAddtional_ - } + LocationLabels' {_llAddtional = _Coerce # pLlAddtional_} + llAddtional :: Lens' LocationLabels (HashMap Text Text) llAddtional = lens _llAddtional (\ s a -> s{_llAddtional = a}) . @@ -1436,14 +1664,57 @@ instance ToJSON LocationLabels where toJSON = toJSON . _llAddtional +-- | A response to start manual transfer runs. +-- +-- /See:/ 'startManualTransferRunsResponse' smart constructor. +newtype StartManualTransferRunsResponse = + StartManualTransferRunsResponse' + { _smtrrRuns :: Maybe [TransferRun] + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'StartManualTransferRunsResponse' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'smtrrRuns' +startManualTransferRunsResponse + :: StartManualTransferRunsResponse +startManualTransferRunsResponse = + StartManualTransferRunsResponse' {_smtrrRuns = Nothing} + + +-- | The transfer runs that were created. +smtrrRuns :: Lens' StartManualTransferRunsResponse [TransferRun] +smtrrRuns + = lens _smtrrRuns (\ s a -> s{_smtrrRuns = a}) . + _Default + . _Coerce + +instance FromJSON StartManualTransferRunsResponse + where + parseJSON + = withObject "StartManualTransferRunsResponse" + (\ o -> + StartManualTransferRunsResponse' <$> + (o .:? "runs" .!= mempty)) + +instance ToJSON StartManualTransferRunsResponse where + toJSON StartManualTransferRunsResponse'{..} + = object (catMaybes [("runs" .=) <$> _smtrrRuns]) + -- | Service-specific metadata. For example the available capacity at the -- given location. -- -- /See:/ 'locationMetadata' smart constructor. -newtype LocationMetadata = LocationMetadata' +newtype LocationMetadata = + LocationMetadata' { _lmAddtional :: HashMap Text JSONValue - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'LocationMetadata' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -1453,10 +1724,9 @@ :: HashMap Text JSONValue -- ^ 'lmAddtional' -> LocationMetadata locationMetadata pLmAddtional_ = - LocationMetadata' - { _lmAddtional = _Coerce # pLmAddtional_ - } + LocationMetadata' {_lmAddtional = _Coerce # pLmAddtional_} + -- | Properties of the object. Contains field \'type with type URL. lmAddtional :: Lens' LocationMetadata (HashMap Text JSONValue) lmAddtional @@ -1474,11 +1744,14 @@ -- | The returned list of pipelines in the project. -- -- /See:/ 'listTransferConfigsResponse' smart constructor. -data ListTransferConfigsResponse = ListTransferConfigsResponse' +data ListTransferConfigsResponse = + ListTransferConfigsResponse' { _ltcrNextPageToken :: !(Maybe Text) , _ltcrTransferConfigs :: !(Maybe [TransferConfig]) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListTransferConfigsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -1489,11 +1762,10 @@ listTransferConfigsResponse :: ListTransferConfigsResponse listTransferConfigsResponse = - ListTransferConfigsResponse' - { _ltcrNextPageToken = Nothing - , _ltcrTransferConfigs = Nothing - } + ListTransferConfigsResponse' + {_ltcrNextPageToken = Nothing, _ltcrTransferConfigs = Nothing} + -- | Output only. The next-pagination token. For multiple-page list results, -- this token can be used as the \`ListTransferConfigsRequest.page_token\` -- to request the next page of list results. @@ -1533,9 +1805,11 @@ -- appropriate data source service account. -- -- /See:/ 'transferConfig' smart constructor. -data TransferConfig = TransferConfig' +data TransferConfig = + TransferConfig' { _tcState :: !(Maybe TransferConfigState) , _tcSchedule :: !(Maybe Text) + , _tcScheduleOptions :: !(Maybe ScheduleOptions) , _tcDisabled :: !(Maybe Bool) , _tcDataSourceId :: !(Maybe Text) , _tcParams :: !(Maybe TransferConfigParams) @@ -1547,8 +1821,10 @@ , _tcNextRunTime :: !(Maybe DateTime') , _tcDestinationDataSetId :: !(Maybe Text) , _tcDataRefreshWindowDays :: !(Maybe (Textual Int32)) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'TransferConfig' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -1557,6 +1833,8 @@ -- -- * 'tcSchedule' -- +-- * 'tcScheduleOptions' +-- -- * 'tcDisabled' -- -- * 'tcDataSourceId' @@ -1581,9 +1859,10 @@ transferConfig :: TransferConfig transferConfig = - TransferConfig' + TransferConfig' { _tcState = Nothing , _tcSchedule = Nothing + , _tcScheduleOptions = Nothing , _tcDisabled = Nothing , _tcDataSourceId = Nothing , _tcParams = Nothing @@ -1597,6 +1876,7 @@ , _tcDataRefreshWindowDays = Nothing } + -- | Output only. State of the most recently updated transfer run. tcState :: Lens' TransferConfig (Maybe TransferConfigState) tcState = lens _tcState (\ s a -> s{_tcState = a}) @@ -1613,6 +1893,12 @@ tcSchedule = lens _tcSchedule (\ s a -> s{_tcSchedule = a}) +-- | Options customizing the data transfer schedule. +tcScheduleOptions :: Lens' TransferConfig (Maybe ScheduleOptions) +tcScheduleOptions + = lens _tcScheduleOptions + (\ s a -> s{_tcScheduleOptions = a}) + -- | Is this config disabled. When set to true, no runs are scheduled for a -- given transfer. tcDisabled :: Lens' TransferConfig (Maybe Bool) @@ -1694,7 +1980,8 @@ (\ o -> TransferConfig' <$> (o .:? "state") <*> (o .:? "schedule") <*> - (o .:? "disabled") + (o .:? "scheduleOptions") + <*> (o .:? "disabled") <*> (o .:? "dataSourceId") <*> (o .:? "params") <*> (o .:? "userId") @@ -1712,6 +1999,7 @@ (catMaybes [("state" .=) <$> _tcState, ("schedule" .=) <$> _tcSchedule, + ("scheduleOptions" .=) <$> _tcScheduleOptions, ("disabled" .=) <$> _tcDisabled, ("dataSourceId" .=) <$> _tcDataSourceId, ("params" .=) <$> _tcParams, diff --git a/gen/Network/Google/Resource/BigQueryDataTransfer/Projects/DataSources/CheckValidCreds.hs b/gen/Network/Google/Resource/BigQueryDataTransfer/Projects/DataSources/CheckValidCreds.hs --- a/gen/Network/Google/Resource/BigQueryDataTransfer/Projects/DataSources/CheckValidCreds.hs +++ b/gen/Network/Google/Resource/BigQueryDataTransfer/Projects/DataSources/CheckValidCreds.hs @@ -70,7 +70,8 @@ -- pre-requisite before user can create a transfer config. -- -- /See:/ 'projectsDataSourcesCheckValidCreds' smart constructor. -data ProjectsDataSourcesCheckValidCreds = ProjectsDataSourcesCheckValidCreds' +data ProjectsDataSourcesCheckValidCreds = + ProjectsDataSourcesCheckValidCreds' { _pdscvcXgafv :: !(Maybe Xgafv) , _pdscvcUploadProtocol :: !(Maybe Text) , _pdscvcAccessToken :: !(Maybe Text) @@ -78,8 +79,10 @@ , _pdscvcPayload :: !CheckValidCredsRequest , _pdscvcName :: !Text , _pdscvcCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsDataSourcesCheckValidCreds' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -102,7 +105,7 @@ -> Text -- ^ 'pdscvcName' -> ProjectsDataSourcesCheckValidCreds projectsDataSourcesCheckValidCreds pPdscvcPayload_ pPdscvcName_ = - ProjectsDataSourcesCheckValidCreds' + ProjectsDataSourcesCheckValidCreds' { _pdscvcXgafv = Nothing , _pdscvcUploadProtocol = Nothing , _pdscvcAccessToken = Nothing @@ -112,6 +115,7 @@ , _pdscvcCallback = Nothing } + -- | V1 error format. pdscvcXgafv :: Lens' ProjectsDataSourcesCheckValidCreds (Maybe Xgafv) pdscvcXgafv @@ -154,7 +158,8 @@ (\ s a -> s{_pdscvcCallback = a}) instance GoogleRequest - ProjectsDataSourcesCheckValidCreds where + ProjectsDataSourcesCheckValidCreds + where type Rs ProjectsDataSourcesCheckValidCreds = CheckValidCredsResponse type Scopes ProjectsDataSourcesCheckValidCreds = diff --git a/gen/Network/Google/Resource/BigQueryDataTransfer/Projects/DataSources/Get.hs b/gen/Network/Google/Resource/BigQueryDataTransfer/Projects/DataSources/Get.hs --- a/gen/Network/Google/Resource/BigQueryDataTransfer/Projects/DataSources/Get.hs +++ b/gen/Network/Google/Resource/BigQueryDataTransfer/Projects/DataSources/Get.hs @@ -61,15 +61,18 @@ -- used for UI rendering. -- -- /See:/ 'projectsDataSourcesGet' smart constructor. -data ProjectsDataSourcesGet = ProjectsDataSourcesGet' +data ProjectsDataSourcesGet = + ProjectsDataSourcesGet' { _pdsgXgafv :: !(Maybe Xgafv) , _pdsgUploadProtocol :: !(Maybe Text) , _pdsgAccessToken :: !(Maybe Text) , _pdsgUploadType :: !(Maybe Text) , _pdsgName :: !Text , _pdsgCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsDataSourcesGet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -89,7 +92,7 @@ :: Text -- ^ 'pdsgName' -> ProjectsDataSourcesGet projectsDataSourcesGet pPdsgName_ = - ProjectsDataSourcesGet' + ProjectsDataSourcesGet' { _pdsgXgafv = Nothing , _pdsgUploadProtocol = Nothing , _pdsgAccessToken = Nothing @@ -97,6 +100,7 @@ , _pdsgName = pPdsgName_ , _pdsgCallback = Nothing } + -- | V1 error format. pdsgXgafv :: Lens' ProjectsDataSourcesGet (Maybe Xgafv) diff --git a/gen/Network/Google/Resource/BigQueryDataTransfer/Projects/DataSources/List.hs b/gen/Network/Google/Resource/BigQueryDataTransfer/Projects/DataSources/List.hs --- a/gen/Network/Google/Resource/BigQueryDataTransfer/Projects/DataSources/List.hs +++ b/gen/Network/Google/Resource/BigQueryDataTransfer/Projects/DataSources/List.hs @@ -67,7 +67,8 @@ -- used for UI rendering. -- -- /See:/ 'projectsDataSourcesList' smart constructor. -data ProjectsDataSourcesList = ProjectsDataSourcesList' +data ProjectsDataSourcesList = + ProjectsDataSourcesList' { _pdslParent :: !Text , _pdslXgafv :: !(Maybe Xgafv) , _pdslUploadProtocol :: !(Maybe Text) @@ -76,8 +77,10 @@ , _pdslPageToken :: !(Maybe Text) , _pdslPageSize :: !(Maybe (Textual Int32)) , _pdslCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsDataSourcesList' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -101,7 +104,7 @@ :: Text -- ^ 'pdslParent' -> ProjectsDataSourcesList projectsDataSourcesList pPdslParent_ = - ProjectsDataSourcesList' + ProjectsDataSourcesList' { _pdslParent = pPdslParent_ , _pdslXgafv = Nothing , _pdslUploadProtocol = Nothing @@ -111,6 +114,7 @@ , _pdslPageSize = Nothing , _pdslCallback = Nothing } + -- | The BigQuery project id for which data sources should be returned. Must -- be in the form: \`projects\/{project_id}\` diff --git a/gen/Network/Google/Resource/BigQueryDataTransfer/Projects/Locations/DataSources/CheckValidCreds.hs b/gen/Network/Google/Resource/BigQueryDataTransfer/Projects/Locations/DataSources/CheckValidCreds.hs --- a/gen/Network/Google/Resource/BigQueryDataTransfer/Projects/Locations/DataSources/CheckValidCreds.hs +++ b/gen/Network/Google/Resource/BigQueryDataTransfer/Projects/Locations/DataSources/CheckValidCreds.hs @@ -71,7 +71,8 @@ -- pre-requisite before user can create a transfer config. -- -- /See:/ 'projectsLocationsDataSourcesCheckValidCreds' smart constructor. -data ProjectsLocationsDataSourcesCheckValidCreds = ProjectsLocationsDataSourcesCheckValidCreds' +data ProjectsLocationsDataSourcesCheckValidCreds = + ProjectsLocationsDataSourcesCheckValidCreds' { _pldscvcXgafv :: !(Maybe Xgafv) , _pldscvcUploadProtocol :: !(Maybe Text) , _pldscvcAccessToken :: !(Maybe Text) @@ -79,8 +80,10 @@ , _pldscvcPayload :: !CheckValidCredsRequest , _pldscvcName :: !Text , _pldscvcCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsLocationsDataSourcesCheckValidCreds' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -103,7 +106,7 @@ -> Text -- ^ 'pldscvcName' -> ProjectsLocationsDataSourcesCheckValidCreds projectsLocationsDataSourcesCheckValidCreds pPldscvcPayload_ pPldscvcName_ = - ProjectsLocationsDataSourcesCheckValidCreds' + ProjectsLocationsDataSourcesCheckValidCreds' { _pldscvcXgafv = Nothing , _pldscvcUploadProtocol = Nothing , _pldscvcAccessToken = Nothing @@ -113,6 +116,7 @@ , _pldscvcCallback = Nothing } + -- | V1 error format. pldscvcXgafv :: Lens' ProjectsLocationsDataSourcesCheckValidCreds (Maybe Xgafv) pldscvcXgafv @@ -155,7 +159,8 @@ (\ s a -> s{_pldscvcCallback = a}) instance GoogleRequest - ProjectsLocationsDataSourcesCheckValidCreds where + ProjectsLocationsDataSourcesCheckValidCreds + where type Rs ProjectsLocationsDataSourcesCheckValidCreds = CheckValidCredsResponse type Scopes diff --git a/gen/Network/Google/Resource/BigQueryDataTransfer/Projects/Locations/DataSources/Get.hs b/gen/Network/Google/Resource/BigQueryDataTransfer/Projects/Locations/DataSources/Get.hs --- a/gen/Network/Google/Resource/BigQueryDataTransfer/Projects/Locations/DataSources/Get.hs +++ b/gen/Network/Google/Resource/BigQueryDataTransfer/Projects/Locations/DataSources/Get.hs @@ -61,15 +61,18 @@ -- used for UI rendering. -- -- /See:/ 'projectsLocationsDataSourcesGet' smart constructor. -data ProjectsLocationsDataSourcesGet = ProjectsLocationsDataSourcesGet' +data ProjectsLocationsDataSourcesGet = + ProjectsLocationsDataSourcesGet' { _pldsgXgafv :: !(Maybe Xgafv) , _pldsgUploadProtocol :: !(Maybe Text) , _pldsgAccessToken :: !(Maybe Text) , _pldsgUploadType :: !(Maybe Text) , _pldsgName :: !Text , _pldsgCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsLocationsDataSourcesGet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -89,7 +92,7 @@ :: Text -- ^ 'pldsgName' -> ProjectsLocationsDataSourcesGet projectsLocationsDataSourcesGet pPldsgName_ = - ProjectsLocationsDataSourcesGet' + ProjectsLocationsDataSourcesGet' { _pldsgXgafv = Nothing , _pldsgUploadProtocol = Nothing , _pldsgAccessToken = Nothing @@ -98,6 +101,7 @@ , _pldsgCallback = Nothing } + -- | V1 error format. pldsgXgafv :: Lens' ProjectsLocationsDataSourcesGet (Maybe Xgafv) pldsgXgafv @@ -134,7 +138,8 @@ (\ s a -> s{_pldsgCallback = a}) instance GoogleRequest - ProjectsLocationsDataSourcesGet where + ProjectsLocationsDataSourcesGet + where type Rs ProjectsLocationsDataSourcesGet = DataSource type Scopes ProjectsLocationsDataSourcesGet = '["https://www.googleapis.com/auth/bigquery", diff --git a/gen/Network/Google/Resource/BigQueryDataTransfer/Projects/Locations/DataSources/List.hs b/gen/Network/Google/Resource/BigQueryDataTransfer/Projects/Locations/DataSources/List.hs --- a/gen/Network/Google/Resource/BigQueryDataTransfer/Projects/Locations/DataSources/List.hs +++ b/gen/Network/Google/Resource/BigQueryDataTransfer/Projects/Locations/DataSources/List.hs @@ -67,7 +67,8 @@ -- used for UI rendering. -- -- /See:/ 'projectsLocationsDataSourcesList' smart constructor. -data ProjectsLocationsDataSourcesList = ProjectsLocationsDataSourcesList' +data ProjectsLocationsDataSourcesList = + ProjectsLocationsDataSourcesList' { _pldslParent :: !Text , _pldslXgafv :: !(Maybe Xgafv) , _pldslUploadProtocol :: !(Maybe Text) @@ -76,8 +77,10 @@ , _pldslPageToken :: !(Maybe Text) , _pldslPageSize :: !(Maybe (Textual Int32)) , _pldslCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsLocationsDataSourcesList' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -101,7 +104,7 @@ :: Text -- ^ 'pldslParent' -> ProjectsLocationsDataSourcesList projectsLocationsDataSourcesList pPldslParent_ = - ProjectsLocationsDataSourcesList' + ProjectsLocationsDataSourcesList' { _pldslParent = pPldslParent_ , _pldslXgafv = Nothing , _pldslUploadProtocol = Nothing @@ -112,6 +115,7 @@ , _pldslCallback = Nothing } + -- | The BigQuery project id for which data sources should be returned. Must -- be in the form: \`projects\/{project_id}\` pldslParent :: Lens' ProjectsLocationsDataSourcesList Text @@ -165,7 +169,8 @@ (\ s a -> s{_pldslCallback = a}) instance GoogleRequest - ProjectsLocationsDataSourcesList where + ProjectsLocationsDataSourcesList + where type Rs ProjectsLocationsDataSourcesList = ListDataSourcesResponse type Scopes ProjectsLocationsDataSourcesList = diff --git a/gen/Network/Google/Resource/BigQueryDataTransfer/Projects/Locations/Get.hs b/gen/Network/Google/Resource/BigQueryDataTransfer/Projects/Locations/Get.hs --- a/gen/Network/Google/Resource/BigQueryDataTransfer/Projects/Locations/Get.hs +++ b/gen/Network/Google/Resource/BigQueryDataTransfer/Projects/Locations/Get.hs @@ -59,15 +59,18 @@ -- | Gets information about a location. -- -- /See:/ 'projectsLocationsGet' smart constructor. -data ProjectsLocationsGet = ProjectsLocationsGet' +data ProjectsLocationsGet = + ProjectsLocationsGet' { _plgXgafv :: !(Maybe Xgafv) , _plgUploadProtocol :: !(Maybe Text) , _plgAccessToken :: !(Maybe Text) , _plgUploadType :: !(Maybe Text) , _plgName :: !Text , _plgCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsLocationsGet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -87,7 +90,7 @@ :: Text -- ^ 'plgName' -> ProjectsLocationsGet projectsLocationsGet pPlgName_ = - ProjectsLocationsGet' + ProjectsLocationsGet' { _plgXgafv = Nothing , _plgUploadProtocol = Nothing , _plgAccessToken = Nothing @@ -95,6 +98,7 @@ , _plgName = pPlgName_ , _plgCallback = Nothing } + -- | V1 error format. plgXgafv :: Lens' ProjectsLocationsGet (Maybe Xgafv) diff --git a/gen/Network/Google/Resource/BigQueryDataTransfer/Projects/Locations/List.hs b/gen/Network/Google/Resource/BigQueryDataTransfer/Projects/Locations/List.hs --- a/gen/Network/Google/Resource/BigQueryDataTransfer/Projects/Locations/List.hs +++ b/gen/Network/Google/Resource/BigQueryDataTransfer/Projects/Locations/List.hs @@ -67,7 +67,8 @@ -- | Lists information about the supported locations for this service. -- -- /See:/ 'projectsLocationsList' smart constructor. -data ProjectsLocationsList = ProjectsLocationsList' +data ProjectsLocationsList = + ProjectsLocationsList' { _pllXgafv :: !(Maybe Xgafv) , _pllUploadProtocol :: !(Maybe Text) , _pllAccessToken :: !(Maybe Text) @@ -77,8 +78,10 @@ , _pllPageToken :: !(Maybe Text) , _pllPageSize :: !(Maybe (Textual Int32)) , _pllCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsLocationsList' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -104,7 +107,7 @@ :: Text -- ^ 'pllName' -> ProjectsLocationsList projectsLocationsList pPllName_ = - ProjectsLocationsList' + ProjectsLocationsList' { _pllXgafv = Nothing , _pllUploadProtocol = Nothing , _pllAccessToken = Nothing @@ -115,6 +118,7 @@ , _pllPageSize = Nothing , _pllCallback = Nothing } + -- | V1 error format. pllXgafv :: Lens' ProjectsLocationsList (Maybe Xgafv) diff --git a/gen/Network/Google/Resource/BigQueryDataTransfer/Projects/Locations/TransferConfigs/Create.hs b/gen/Network/Google/Resource/BigQueryDataTransfer/Projects/Locations/TransferConfigs/Create.hs --- a/gen/Network/Google/Resource/BigQueryDataTransfer/Projects/Locations/TransferConfigs/Create.hs +++ b/gen/Network/Google/Resource/BigQueryDataTransfer/Projects/Locations/TransferConfigs/Create.hs @@ -40,6 +40,7 @@ , pltccUploadType , pltccAuthorizationCode , pltccPayload + , pltccVersionInfo , pltccCallback ) where @@ -57,15 +58,17 @@ QueryParam "access_token" Text :> QueryParam "uploadType" Text :> QueryParam "authorizationCode" Text :> - QueryParam "callback" Text :> - QueryParam "alt" AltJSON :> - ReqBody '[JSON] TransferConfig :> - Post '[JSON] TransferConfig + QueryParam "versionInfo" Text :> + QueryParam "callback" Text :> + QueryParam "alt" AltJSON :> + ReqBody '[JSON] TransferConfig :> + Post '[JSON] TransferConfig -- | Creates a new data transfer configuration. -- -- /See:/ 'projectsLocationsTransferConfigsCreate' smart constructor. -data ProjectsLocationsTransferConfigsCreate = ProjectsLocationsTransferConfigsCreate' +data ProjectsLocationsTransferConfigsCreate = + ProjectsLocationsTransferConfigsCreate' { _pltccParent :: !Text , _pltccXgafv :: !(Maybe Xgafv) , _pltccUploadProtocol :: !(Maybe Text) @@ -73,9 +76,12 @@ , _pltccUploadType :: !(Maybe Text) , _pltccAuthorizationCode :: !(Maybe Text) , _pltccPayload :: !TransferConfig + , _pltccVersionInfo :: !(Maybe Text) , _pltccCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsLocationsTransferConfigsCreate' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -94,13 +100,15 @@ -- -- * 'pltccPayload' -- +-- * 'pltccVersionInfo' +-- -- * 'pltccCallback' projectsLocationsTransferConfigsCreate :: Text -- ^ 'pltccParent' -> TransferConfig -- ^ 'pltccPayload' -> ProjectsLocationsTransferConfigsCreate projectsLocationsTransferConfigsCreate pPltccParent_ pPltccPayload_ = - ProjectsLocationsTransferConfigsCreate' + ProjectsLocationsTransferConfigsCreate' { _pltccParent = pPltccParent_ , _pltccXgafv = Nothing , _pltccUploadProtocol = Nothing @@ -108,9 +116,11 @@ , _pltccUploadType = Nothing , _pltccAuthorizationCode = Nothing , _pltccPayload = pPltccPayload_ + , _pltccVersionInfo = Nothing , _pltccCallback = Nothing } + -- | The BigQuery project id where the transfer configuration should be -- created. Must be in the format -- projects\/{project_id}\/locations\/{location_id} If specified location @@ -167,6 +177,17 @@ pltccPayload = lens _pltccPayload (\ s a -> s{_pltccPayload = a}) +-- | Optional version info. If users want to find a very recent access token, +-- that is, immediately after approving access, users have to set the +-- version_info claim in the token request. To obtain the version_info, +-- users must use the “none+gsession” response type. which be return a +-- version_info back in the authorization response which be be put in a JWT +-- claim in the token request. +pltccVersionInfo :: Lens' ProjectsLocationsTransferConfigsCreate (Maybe Text) +pltccVersionInfo + = lens _pltccVersionInfo + (\ s a -> s{_pltccVersionInfo = a}) + -- | JSONP pltccCallback :: Lens' ProjectsLocationsTransferConfigsCreate (Maybe Text) pltccCallback @@ -174,7 +195,8 @@ (\ s a -> s{_pltccCallback = a}) instance GoogleRequest - ProjectsLocationsTransferConfigsCreate where + ProjectsLocationsTransferConfigsCreate + where type Rs ProjectsLocationsTransferConfigsCreate = TransferConfig type Scopes ProjectsLocationsTransferConfigsCreate = @@ -185,6 +207,7 @@ _pltccAccessToken _pltccUploadType _pltccAuthorizationCode + _pltccVersionInfo _pltccCallback (Just AltJSON) _pltccPayload diff --git a/gen/Network/Google/Resource/BigQueryDataTransfer/Projects/Locations/TransferConfigs/Delete.hs b/gen/Network/Google/Resource/BigQueryDataTransfer/Projects/Locations/TransferConfigs/Delete.hs --- a/gen/Network/Google/Resource/BigQueryDataTransfer/Projects/Locations/TransferConfigs/Delete.hs +++ b/gen/Network/Google/Resource/BigQueryDataTransfer/Projects/Locations/TransferConfigs/Delete.hs @@ -61,15 +61,18 @@ -- runs and logs. -- -- /See:/ 'projectsLocationsTransferConfigsDelete' smart constructor. -data ProjectsLocationsTransferConfigsDelete = ProjectsLocationsTransferConfigsDelete' +data ProjectsLocationsTransferConfigsDelete = + ProjectsLocationsTransferConfigsDelete' { _pltcdXgafv :: !(Maybe Xgafv) , _pltcdUploadProtocol :: !(Maybe Text) , _pltcdAccessToken :: !(Maybe Text) , _pltcdUploadType :: !(Maybe Text) , _pltcdName :: !Text , _pltcdCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsLocationsTransferConfigsDelete' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -89,7 +92,7 @@ :: Text -- ^ 'pltcdName' -> ProjectsLocationsTransferConfigsDelete projectsLocationsTransferConfigsDelete pPltcdName_ = - ProjectsLocationsTransferConfigsDelete' + ProjectsLocationsTransferConfigsDelete' { _pltcdXgafv = Nothing , _pltcdUploadProtocol = Nothing , _pltcdAccessToken = Nothing @@ -98,6 +101,7 @@ , _pltcdCallback = Nothing } + -- | V1 error format. pltcdXgafv :: Lens' ProjectsLocationsTransferConfigsDelete (Maybe Xgafv) pltcdXgafv @@ -134,7 +138,8 @@ (\ s a -> s{_pltcdCallback = a}) instance GoogleRequest - ProjectsLocationsTransferConfigsDelete where + ProjectsLocationsTransferConfigsDelete + where type Rs ProjectsLocationsTransferConfigsDelete = Empty type Scopes ProjectsLocationsTransferConfigsDelete = diff --git a/gen/Network/Google/Resource/BigQueryDataTransfer/Projects/Locations/TransferConfigs/Get.hs b/gen/Network/Google/Resource/BigQueryDataTransfer/Projects/Locations/TransferConfigs/Get.hs --- a/gen/Network/Google/Resource/BigQueryDataTransfer/Projects/Locations/TransferConfigs/Get.hs +++ b/gen/Network/Google/Resource/BigQueryDataTransfer/Projects/Locations/TransferConfigs/Get.hs @@ -60,15 +60,18 @@ -- | Returns information about a data transfer config. -- -- /See:/ 'projectsLocationsTransferConfigsGet' smart constructor. -data ProjectsLocationsTransferConfigsGet = ProjectsLocationsTransferConfigsGet' +data ProjectsLocationsTransferConfigsGet = + ProjectsLocationsTransferConfigsGet' { _pltcgXgafv :: !(Maybe Xgafv) , _pltcgUploadProtocol :: !(Maybe Text) , _pltcgAccessToken :: !(Maybe Text) , _pltcgUploadType :: !(Maybe Text) , _pltcgName :: !Text , _pltcgCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsLocationsTransferConfigsGet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -88,7 +91,7 @@ :: Text -- ^ 'pltcgName' -> ProjectsLocationsTransferConfigsGet projectsLocationsTransferConfigsGet pPltcgName_ = - ProjectsLocationsTransferConfigsGet' + ProjectsLocationsTransferConfigsGet' { _pltcgXgafv = Nothing , _pltcgUploadProtocol = Nothing , _pltcgAccessToken = Nothing @@ -97,6 +100,7 @@ , _pltcgCallback = Nothing } + -- | V1 error format. pltcgXgafv :: Lens' ProjectsLocationsTransferConfigsGet (Maybe Xgafv) pltcgXgafv @@ -133,7 +137,8 @@ (\ s a -> s{_pltcgCallback = a}) instance GoogleRequest - ProjectsLocationsTransferConfigsGet where + ProjectsLocationsTransferConfigsGet + where type Rs ProjectsLocationsTransferConfigsGet = TransferConfig type Scopes ProjectsLocationsTransferConfigsGet = diff --git a/gen/Network/Google/Resource/BigQueryDataTransfer/Projects/Locations/TransferConfigs/List.hs b/gen/Network/Google/Resource/BigQueryDataTransfer/Projects/Locations/TransferConfigs/List.hs --- a/gen/Network/Google/Resource/BigQueryDataTransfer/Projects/Locations/TransferConfigs/List.hs +++ b/gen/Network/Google/Resource/BigQueryDataTransfer/Projects/Locations/TransferConfigs/List.hs @@ -67,7 +67,8 @@ -- | Returns information about all data transfers in the project. -- -- /See:/ 'projectsLocationsTransferConfigsList' smart constructor. -data ProjectsLocationsTransferConfigsList = ProjectsLocationsTransferConfigsList' +data ProjectsLocationsTransferConfigsList = + ProjectsLocationsTransferConfigsList' { _pltclParent :: !Text , _pltclXgafv :: !(Maybe Xgafv) , _pltclUploadProtocol :: !(Maybe Text) @@ -77,8 +78,10 @@ , _pltclDataSourceIds :: !(Maybe [Text]) , _pltclPageSize :: !(Maybe (Textual Int32)) , _pltclCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsLocationsTransferConfigsList' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -104,7 +107,7 @@ :: Text -- ^ 'pltclParent' -> ProjectsLocationsTransferConfigsList projectsLocationsTransferConfigsList pPltclParent_ = - ProjectsLocationsTransferConfigsList' + ProjectsLocationsTransferConfigsList' { _pltclParent = pPltclParent_ , _pltclXgafv = Nothing , _pltclUploadProtocol = Nothing @@ -116,6 +119,7 @@ , _pltclCallback = Nothing } + -- | The BigQuery project id for which data sources should be returned: -- \`projects\/{project_id}\`. pltclParent :: Lens' ProjectsLocationsTransferConfigsList Text @@ -178,7 +182,8 @@ (\ s a -> s{_pltclCallback = a}) instance GoogleRequest - ProjectsLocationsTransferConfigsList where + ProjectsLocationsTransferConfigsList + where type Rs ProjectsLocationsTransferConfigsList = ListTransferConfigsResponse type Scopes ProjectsLocationsTransferConfigsList = diff --git a/gen/Network/Google/Resource/BigQueryDataTransfer/Projects/Locations/TransferConfigs/Patch.hs b/gen/Network/Google/Resource/BigQueryDataTransfer/Projects/Locations/TransferConfigs/Patch.hs --- a/gen/Network/Google/Resource/BigQueryDataTransfer/Projects/Locations/TransferConfigs/Patch.hs +++ b/gen/Network/Google/Resource/BigQueryDataTransfer/Projects/Locations/TransferConfigs/Patch.hs @@ -41,6 +41,7 @@ , pltcpUploadType , pltcpAuthorizationCode , pltcpPayload + , pltcpVersionInfo , pltcpName , pltcpCallback ) where @@ -59,16 +60,18 @@ QueryParam "access_token" Text :> QueryParam "uploadType" Text :> QueryParam "authorizationCode" Text :> - QueryParam "callback" Text :> - QueryParam "alt" AltJSON :> - ReqBody '[JSON] TransferConfig :> - Patch '[JSON] TransferConfig + QueryParam "versionInfo" Text :> + QueryParam "callback" Text :> + QueryParam "alt" AltJSON :> + ReqBody '[JSON] TransferConfig :> + Patch '[JSON] TransferConfig -- | Updates a data transfer configuration. All fields must be set, even if -- they are not updated. -- -- /See:/ 'projectsLocationsTransferConfigsPatch' smart constructor. -data ProjectsLocationsTransferConfigsPatch = ProjectsLocationsTransferConfigsPatch' +data ProjectsLocationsTransferConfigsPatch = + ProjectsLocationsTransferConfigsPatch' { _pltcpXgafv :: !(Maybe Xgafv) , _pltcpUploadProtocol :: !(Maybe Text) , _pltcpUpdateMask :: !(Maybe GFieldMask) @@ -76,10 +79,13 @@ , _pltcpUploadType :: !(Maybe Text) , _pltcpAuthorizationCode :: !(Maybe Text) , _pltcpPayload :: !TransferConfig + , _pltcpVersionInfo :: !(Maybe Text) , _pltcpName :: !Text , _pltcpCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsLocationsTransferConfigsPatch' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -98,6 +104,8 @@ -- -- * 'pltcpPayload' -- +-- * 'pltcpVersionInfo' +-- -- * 'pltcpName' -- -- * 'pltcpCallback' @@ -106,7 +114,7 @@ -> Text -- ^ 'pltcpName' -> ProjectsLocationsTransferConfigsPatch projectsLocationsTransferConfigsPatch pPltcpPayload_ pPltcpName_ = - ProjectsLocationsTransferConfigsPatch' + ProjectsLocationsTransferConfigsPatch' { _pltcpXgafv = Nothing , _pltcpUploadProtocol = Nothing , _pltcpUpdateMask = Nothing @@ -114,10 +122,12 @@ , _pltcpUploadType = Nothing , _pltcpAuthorizationCode = Nothing , _pltcpPayload = pPltcpPayload_ + , _pltcpVersionInfo = Nothing , _pltcpName = pPltcpName_ , _pltcpCallback = Nothing } + -- | V1 error format. pltcpXgafv :: Lens' ProjectsLocationsTransferConfigsPatch (Maybe Xgafv) pltcpXgafv @@ -171,6 +181,17 @@ pltcpPayload = lens _pltcpPayload (\ s a -> s{_pltcpPayload = a}) +-- | Optional version info. If users want to find a very recent access token, +-- that is, immediately after approving access, users have to set the +-- version_info claim in the token request. To obtain the version_info, +-- users must use the “none+gsession” response type. which be return a +-- version_info back in the authorization response which be be put in a JWT +-- claim in the token request. +pltcpVersionInfo :: Lens' ProjectsLocationsTransferConfigsPatch (Maybe Text) +pltcpVersionInfo + = lens _pltcpVersionInfo + (\ s a -> s{_pltcpVersionInfo = a}) + -- | The resource name of the transfer config. Transfer config names have the -- form of -- \`projects\/{project_id}\/locations\/{region}\/transferConfigs\/{config_id}\`. @@ -189,7 +210,8 @@ (\ s a -> s{_pltcpCallback = a}) instance GoogleRequest - ProjectsLocationsTransferConfigsPatch where + ProjectsLocationsTransferConfigsPatch + where type Rs ProjectsLocationsTransferConfigsPatch = TransferConfig type Scopes ProjectsLocationsTransferConfigsPatch = @@ -201,6 +223,7 @@ _pltcpAccessToken _pltcpUploadType _pltcpAuthorizationCode + _pltcpVersionInfo _pltcpCallback (Just AltJSON) _pltcpPayload diff --git a/gen/Network/Google/Resource/BigQueryDataTransfer/Projects/Locations/TransferConfigs/Runs/Delete.hs b/gen/Network/Google/Resource/BigQueryDataTransfer/Projects/Locations/TransferConfigs/Runs/Delete.hs --- a/gen/Network/Google/Resource/BigQueryDataTransfer/Projects/Locations/TransferConfigs/Runs/Delete.hs +++ b/gen/Network/Google/Resource/BigQueryDataTransfer/Projects/Locations/TransferConfigs/Runs/Delete.hs @@ -60,15 +60,18 @@ -- | Deletes the specified transfer run. -- -- /See:/ 'projectsLocationsTransferConfigsRunsDelete' smart constructor. -data ProjectsLocationsTransferConfigsRunsDelete = ProjectsLocationsTransferConfigsRunsDelete' +data ProjectsLocationsTransferConfigsRunsDelete = + ProjectsLocationsTransferConfigsRunsDelete' { _pltcrdXgafv :: !(Maybe Xgafv) , _pltcrdUploadProtocol :: !(Maybe Text) , _pltcrdAccessToken :: !(Maybe Text) , _pltcrdUploadType :: !(Maybe Text) , _pltcrdName :: !Text , _pltcrdCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsLocationsTransferConfigsRunsDelete' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -88,7 +91,7 @@ :: Text -- ^ 'pltcrdName' -> ProjectsLocationsTransferConfigsRunsDelete projectsLocationsTransferConfigsRunsDelete pPltcrdName_ = - ProjectsLocationsTransferConfigsRunsDelete' + ProjectsLocationsTransferConfigsRunsDelete' { _pltcrdXgafv = Nothing , _pltcrdUploadProtocol = Nothing , _pltcrdAccessToken = Nothing @@ -97,6 +100,7 @@ , _pltcrdCallback = Nothing } + -- | V1 error format. pltcrdXgafv :: Lens' ProjectsLocationsTransferConfigsRunsDelete (Maybe Xgafv) pltcrdXgafv @@ -133,7 +137,8 @@ (\ s a -> s{_pltcrdCallback = a}) instance GoogleRequest - ProjectsLocationsTransferConfigsRunsDelete where + ProjectsLocationsTransferConfigsRunsDelete + where type Rs ProjectsLocationsTransferConfigsRunsDelete = Empty type Scopes diff --git a/gen/Network/Google/Resource/BigQueryDataTransfer/Projects/Locations/TransferConfigs/Runs/Get.hs b/gen/Network/Google/Resource/BigQueryDataTransfer/Projects/Locations/TransferConfigs/Runs/Get.hs --- a/gen/Network/Google/Resource/BigQueryDataTransfer/Projects/Locations/TransferConfigs/Runs/Get.hs +++ b/gen/Network/Google/Resource/BigQueryDataTransfer/Projects/Locations/TransferConfigs/Runs/Get.hs @@ -60,15 +60,18 @@ -- | Returns information about the particular transfer run. -- -- /See:/ 'projectsLocationsTransferConfigsRunsGet' smart constructor. -data ProjectsLocationsTransferConfigsRunsGet = ProjectsLocationsTransferConfigsRunsGet' +data ProjectsLocationsTransferConfigsRunsGet = + ProjectsLocationsTransferConfigsRunsGet' { _pltcrgXgafv :: !(Maybe Xgafv) , _pltcrgUploadProtocol :: !(Maybe Text) , _pltcrgAccessToken :: !(Maybe Text) , _pltcrgUploadType :: !(Maybe Text) , _pltcrgName :: !Text , _pltcrgCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsLocationsTransferConfigsRunsGet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -88,7 +91,7 @@ :: Text -- ^ 'pltcrgName' -> ProjectsLocationsTransferConfigsRunsGet projectsLocationsTransferConfigsRunsGet pPltcrgName_ = - ProjectsLocationsTransferConfigsRunsGet' + ProjectsLocationsTransferConfigsRunsGet' { _pltcrgXgafv = Nothing , _pltcrgUploadProtocol = Nothing , _pltcrgAccessToken = Nothing @@ -97,6 +100,7 @@ , _pltcrgCallback = Nothing } + -- | V1 error format. pltcrgXgafv :: Lens' ProjectsLocationsTransferConfigsRunsGet (Maybe Xgafv) pltcrgXgafv @@ -133,7 +137,8 @@ (\ s a -> s{_pltcrgCallback = a}) instance GoogleRequest - ProjectsLocationsTransferConfigsRunsGet where + ProjectsLocationsTransferConfigsRunsGet + where type Rs ProjectsLocationsTransferConfigsRunsGet = TransferRun type Scopes ProjectsLocationsTransferConfigsRunsGet = diff --git a/gen/Network/Google/Resource/BigQueryDataTransfer/Projects/Locations/TransferConfigs/Runs/List.hs b/gen/Network/Google/Resource/BigQueryDataTransfer/Projects/Locations/TransferConfigs/Runs/List.hs --- a/gen/Network/Google/Resource/BigQueryDataTransfer/Projects/Locations/TransferConfigs/Runs/List.hs +++ b/gen/Network/Google/Resource/BigQueryDataTransfer/Projects/Locations/TransferConfigs/Runs/List.hs @@ -70,7 +70,8 @@ -- | Returns information about running and completed jobs. -- -- /See:/ 'projectsLocationsTransferConfigsRunsList' smart constructor. -data ProjectsLocationsTransferConfigsRunsList = ProjectsLocationsTransferConfigsRunsList' +data ProjectsLocationsTransferConfigsRunsList = + ProjectsLocationsTransferConfigsRunsList' { _pltcrlRunAttempt :: !(Maybe Text) , _pltcrlParent :: !Text , _pltcrlStates :: !(Maybe [Text]) @@ -81,8 +82,10 @@ , _pltcrlPageToken :: !(Maybe Text) , _pltcrlPageSize :: !(Maybe (Textual Int32)) , _pltcrlCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsLocationsTransferConfigsRunsList' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -110,7 +113,7 @@ :: Text -- ^ 'pltcrlParent' -> ProjectsLocationsTransferConfigsRunsList projectsLocationsTransferConfigsRunsList pPltcrlParent_ = - ProjectsLocationsTransferConfigsRunsList' + ProjectsLocationsTransferConfigsRunsList' { _pltcrlRunAttempt = Nothing , _pltcrlParent = pPltcrlParent_ , _pltcrlStates = Nothing @@ -123,6 +126,7 @@ , _pltcrlCallback = Nothing } + -- | Indicates how run attempts are to be pulled. pltcrlRunAttempt :: Lens' ProjectsLocationsTransferConfigsRunsList (Maybe Text) pltcrlRunAttempt @@ -190,7 +194,8 @@ (\ s a -> s{_pltcrlCallback = a}) instance GoogleRequest - ProjectsLocationsTransferConfigsRunsList where + ProjectsLocationsTransferConfigsRunsList + where type Rs ProjectsLocationsTransferConfigsRunsList = ListTransferRunsResponse type Scopes ProjectsLocationsTransferConfigsRunsList diff --git a/gen/Network/Google/Resource/BigQueryDataTransfer/Projects/Locations/TransferConfigs/Runs/TransferLogs/List.hs b/gen/Network/Google/Resource/BigQueryDataTransfer/Projects/Locations/TransferConfigs/Runs/TransferLogs/List.hs --- a/gen/Network/Google/Resource/BigQueryDataTransfer/Projects/Locations/TransferConfigs/Runs/TransferLogs/List.hs +++ b/gen/Network/Google/Resource/BigQueryDataTransfer/Projects/Locations/TransferConfigs/Runs/TransferLogs/List.hs @@ -68,7 +68,8 @@ -- | Returns user facing log messages for the data transfer run. -- -- /See:/ 'projectsLocationsTransferConfigsRunsTransferLogsList' smart constructor. -data ProjectsLocationsTransferConfigsRunsTransferLogsList = ProjectsLocationsTransferConfigsRunsTransferLogsList' +data ProjectsLocationsTransferConfigsRunsTransferLogsList = + ProjectsLocationsTransferConfigsRunsTransferLogsList' { _pltcrtllParent :: !Text , _pltcrtllXgafv :: !(Maybe Xgafv) , _pltcrtllUploadProtocol :: !(Maybe Text) @@ -78,8 +79,10 @@ , _pltcrtllPageToken :: !(Maybe Text) , _pltcrtllPageSize :: !(Maybe (Textual Int32)) , _pltcrtllCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsLocationsTransferConfigsRunsTransferLogsList' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -105,7 +108,7 @@ :: Text -- ^ 'pltcrtllParent' -> ProjectsLocationsTransferConfigsRunsTransferLogsList projectsLocationsTransferConfigsRunsTransferLogsList pPltcrtllParent_ = - ProjectsLocationsTransferConfigsRunsTransferLogsList' + ProjectsLocationsTransferConfigsRunsTransferLogsList' { _pltcrtllParent = pPltcrtllParent_ , _pltcrtllXgafv = Nothing , _pltcrtllUploadProtocol = Nothing @@ -117,6 +120,7 @@ , _pltcrtllCallback = Nothing } + -- | Transfer run name in the form: -- \`projects\/{project_id}\/transferConfigs\/{config_Id}\/runs\/{run_id}\`. pltcrtllParent :: Lens' ProjectsLocationsTransferConfigsRunsTransferLogsList Text @@ -181,7 +185,7 @@ (\ s a -> s{_pltcrtllCallback = a}) instance GoogleRequest - ProjectsLocationsTransferConfigsRunsTransferLogsList + ProjectsLocationsTransferConfigsRunsTransferLogsList where type Rs ProjectsLocationsTransferConfigsRunsTransferLogsList diff --git a/gen/Network/Google/Resource/BigQueryDataTransfer/Projects/Locations/TransferConfigs/ScheduleRuns.hs b/gen/Network/Google/Resource/BigQueryDataTransfer/Projects/Locations/TransferConfigs/ScheduleRuns.hs --- a/gen/Network/Google/Resource/BigQueryDataTransfer/Projects/Locations/TransferConfigs/ScheduleRuns.hs +++ b/gen/Network/Google/Resource/BigQueryDataTransfer/Projects/Locations/TransferConfigs/ScheduleRuns.hs @@ -23,7 +23,7 @@ -- Creates transfer runs for a time range [start_time, end_time]. For each -- date - or whatever granularity the data source supports - in the range, -- one transfer run is created. Note that runs are created per UTC time in --- the time range. +-- the time range. DEPRECATED: use StartManualTransferRuns instead. -- -- /See:/ for @bigquerydatatransfer.projects.locations.transferConfigs.scheduleRuns@. module Network.Google.Resource.BigQueryDataTransfer.Projects.Locations.TransferConfigs.ScheduleRuns @@ -66,10 +66,11 @@ -- | Creates transfer runs for a time range [start_time, end_time]. For each -- date - or whatever granularity the data source supports - in the range, -- one transfer run is created. Note that runs are created per UTC time in --- the time range. +-- the time range. DEPRECATED: use StartManualTransferRuns instead. -- -- /See:/ 'projectsLocationsTransferConfigsScheduleRuns' smart constructor. -data ProjectsLocationsTransferConfigsScheduleRuns = ProjectsLocationsTransferConfigsScheduleRuns' +data ProjectsLocationsTransferConfigsScheduleRuns = + ProjectsLocationsTransferConfigsScheduleRuns' { _pltcsrParent :: !Text , _pltcsrXgafv :: !(Maybe Xgafv) , _pltcsrUploadProtocol :: !(Maybe Text) @@ -77,8 +78,10 @@ , _pltcsrUploadType :: !(Maybe Text) , _pltcsrPayload :: !ScheduleTransferRunsRequest , _pltcsrCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsLocationsTransferConfigsScheduleRuns' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -101,7 +104,7 @@ -> ScheduleTransferRunsRequest -- ^ 'pltcsrPayload' -> ProjectsLocationsTransferConfigsScheduleRuns projectsLocationsTransferConfigsScheduleRuns pPltcsrParent_ pPltcsrPayload_ = - ProjectsLocationsTransferConfigsScheduleRuns' + ProjectsLocationsTransferConfigsScheduleRuns' { _pltcsrParent = pPltcsrParent_ , _pltcsrXgafv = Nothing , _pltcsrUploadProtocol = Nothing @@ -111,6 +114,7 @@ , _pltcsrCallback = Nothing } + -- | Transfer configuration name in the form: -- \`projects\/{project_id}\/transferConfigs\/{config_id}\`. pltcsrParent :: Lens' ProjectsLocationsTransferConfigsScheduleRuns Text @@ -153,7 +157,8 @@ (\ s a -> s{_pltcsrCallback = a}) instance GoogleRequest - ProjectsLocationsTransferConfigsScheduleRuns where + ProjectsLocationsTransferConfigsScheduleRuns + where type Rs ProjectsLocationsTransferConfigsScheduleRuns = ScheduleTransferRunsResponse type Scopes diff --git a/gen/Network/Google/Resource/BigQueryDataTransfer/Projects/Locations/TransferConfigs/StartManualRuns.hs b/gen/Network/Google/Resource/BigQueryDataTransfer/Projects/Locations/TransferConfigs/StartManualRuns.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/BigQueryDataTransfer/Projects/Locations/TransferConfigs/StartManualRuns.hs @@ -0,0 +1,186 @@ +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE DeriveDataTypeable #-} +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE TypeFamilies #-} +{-# LANGUAGE TypeOperators #-} + +{-# OPTIONS_GHC -fno-warn-duplicate-exports #-} +{-# OPTIONS_GHC -fno-warn-unused-binds #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- | +-- Module : Network.Google.Resource.BigQueryDataTransfer.Projects.Locations.TransferConfigs.StartManualRuns +-- Copyright : (c) 2015-2016 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Start manual transfer runs to be executed now with schedule_time equal +-- to current time. The transfer runs can be created for a time range where +-- the run_time is between start_time (inclusive) and end_time (exclusive), +-- or for a specific run_time. +-- +-- /See:/ for @bigquerydatatransfer.projects.locations.transferConfigs.startManualRuns@. +module Network.Google.Resource.BigQueryDataTransfer.Projects.Locations.TransferConfigs.StartManualRuns + ( + -- * REST Resource + ProjectsLocationsTransferConfigsStartManualRunsResource + + -- * Creating a Request + , projectsLocationsTransferConfigsStartManualRuns + , ProjectsLocationsTransferConfigsStartManualRuns + + -- * Request Lenses + , pltcsmrParent + , pltcsmrXgafv + , pltcsmrUploadProtocol + , pltcsmrAccessToken + , pltcsmrUploadType + , pltcsmrPayload + , pltcsmrCallback + ) where + +import Network.Google.BigQueryDataTransfer.Types +import Network.Google.Prelude + +-- | A resource alias for @bigquerydatatransfer.projects.locations.transferConfigs.startManualRuns@ method which the +-- 'ProjectsLocationsTransferConfigsStartManualRuns' request conforms to. +type ProjectsLocationsTransferConfigsStartManualRunsResource + = + "v1" :> + CaptureMode "parent" "startManualRuns" Text :> + QueryParam "$.xgafv" Xgafv :> + QueryParam "upload_protocol" Text :> + QueryParam "access_token" Text :> + QueryParam "uploadType" Text :> + QueryParam "callback" Text :> + QueryParam "alt" AltJSON :> + ReqBody '[JSON] StartManualTransferRunsRequest :> + Post '[JSON] StartManualTransferRunsResponse + +-- | Start manual transfer runs to be executed now with schedule_time equal +-- to current time. The transfer runs can be created for a time range where +-- the run_time is between start_time (inclusive) and end_time (exclusive), +-- or for a specific run_time. +-- +-- /See:/ 'projectsLocationsTransferConfigsStartManualRuns' smart constructor. +data ProjectsLocationsTransferConfigsStartManualRuns = + ProjectsLocationsTransferConfigsStartManualRuns' + { _pltcsmrParent :: !Text + , _pltcsmrXgafv :: !(Maybe Xgafv) + , _pltcsmrUploadProtocol :: !(Maybe Text) + , _pltcsmrAccessToken :: !(Maybe Text) + , _pltcsmrUploadType :: !(Maybe Text) + , _pltcsmrPayload :: !StartManualTransferRunsRequest + , _pltcsmrCallback :: !(Maybe Text) + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'ProjectsLocationsTransferConfigsStartManualRuns' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'pltcsmrParent' +-- +-- * 'pltcsmrXgafv' +-- +-- * 'pltcsmrUploadProtocol' +-- +-- * 'pltcsmrAccessToken' +-- +-- * 'pltcsmrUploadType' +-- +-- * 'pltcsmrPayload' +-- +-- * 'pltcsmrCallback' +projectsLocationsTransferConfigsStartManualRuns + :: Text -- ^ 'pltcsmrParent' + -> StartManualTransferRunsRequest -- ^ 'pltcsmrPayload' + -> ProjectsLocationsTransferConfigsStartManualRuns +projectsLocationsTransferConfigsStartManualRuns pPltcsmrParent_ pPltcsmrPayload_ = + ProjectsLocationsTransferConfigsStartManualRuns' + { _pltcsmrParent = pPltcsmrParent_ + , _pltcsmrXgafv = Nothing + , _pltcsmrUploadProtocol = Nothing + , _pltcsmrAccessToken = Nothing + , _pltcsmrUploadType = Nothing + , _pltcsmrPayload = pPltcsmrPayload_ + , _pltcsmrCallback = Nothing + } + + +-- | Transfer configuration name in the form: +-- \`projects\/{project_id}\/transferConfigs\/{config_id}\`. +pltcsmrParent :: Lens' ProjectsLocationsTransferConfigsStartManualRuns Text +pltcsmrParent + = lens _pltcsmrParent + (\ s a -> s{_pltcsmrParent = a}) + +-- | V1 error format. +pltcsmrXgafv :: Lens' ProjectsLocationsTransferConfigsStartManualRuns (Maybe Xgafv) +pltcsmrXgafv + = lens _pltcsmrXgafv (\ s a -> s{_pltcsmrXgafv = a}) + +-- | Upload protocol for media (e.g. \"raw\", \"multipart\"). +pltcsmrUploadProtocol :: Lens' ProjectsLocationsTransferConfigsStartManualRuns (Maybe Text) +pltcsmrUploadProtocol + = lens _pltcsmrUploadProtocol + (\ s a -> s{_pltcsmrUploadProtocol = a}) + +-- | OAuth access token. +pltcsmrAccessToken :: Lens' ProjectsLocationsTransferConfigsStartManualRuns (Maybe Text) +pltcsmrAccessToken + = lens _pltcsmrAccessToken + (\ s a -> s{_pltcsmrAccessToken = a}) + +-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\"). +pltcsmrUploadType :: Lens' ProjectsLocationsTransferConfigsStartManualRuns (Maybe Text) +pltcsmrUploadType + = lens _pltcsmrUploadType + (\ s a -> s{_pltcsmrUploadType = a}) + +-- | Multipart request metadata. +pltcsmrPayload :: Lens' ProjectsLocationsTransferConfigsStartManualRuns StartManualTransferRunsRequest +pltcsmrPayload + = lens _pltcsmrPayload + (\ s a -> s{_pltcsmrPayload = a}) + +-- | JSONP +pltcsmrCallback :: Lens' ProjectsLocationsTransferConfigsStartManualRuns (Maybe Text) +pltcsmrCallback + = lens _pltcsmrCallback + (\ s a -> s{_pltcsmrCallback = a}) + +instance GoogleRequest + ProjectsLocationsTransferConfigsStartManualRuns + where + type Rs + ProjectsLocationsTransferConfigsStartManualRuns + = StartManualTransferRunsResponse + type Scopes + ProjectsLocationsTransferConfigsStartManualRuns + = + '["https://www.googleapis.com/auth/bigquery", + "https://www.googleapis.com/auth/cloud-platform"] + requestClient + ProjectsLocationsTransferConfigsStartManualRuns'{..} + = go _pltcsmrParent _pltcsmrXgafv + _pltcsmrUploadProtocol + _pltcsmrAccessToken + _pltcsmrUploadType + _pltcsmrCallback + (Just AltJSON) + _pltcsmrPayload + bigQueryDataTransferService + where go + = buildClient + (Proxy :: + Proxy + ProjectsLocationsTransferConfigsStartManualRunsResource) + mempty diff --git a/gen/Network/Google/Resource/BigQueryDataTransfer/Projects/TransferConfigs/Create.hs b/gen/Network/Google/Resource/BigQueryDataTransfer/Projects/TransferConfigs/Create.hs --- a/gen/Network/Google/Resource/BigQueryDataTransfer/Projects/TransferConfigs/Create.hs +++ b/gen/Network/Google/Resource/BigQueryDataTransfer/Projects/TransferConfigs/Create.hs @@ -40,6 +40,7 @@ , ptccUploadType , ptccAuthorizationCode , ptccPayload + , ptccVersionInfo , ptccCallback ) where @@ -57,15 +58,17 @@ QueryParam "access_token" Text :> QueryParam "uploadType" Text :> QueryParam "authorizationCode" Text :> - QueryParam "callback" Text :> - QueryParam "alt" AltJSON :> - ReqBody '[JSON] TransferConfig :> - Post '[JSON] TransferConfig + QueryParam "versionInfo" Text :> + QueryParam "callback" Text :> + QueryParam "alt" AltJSON :> + ReqBody '[JSON] TransferConfig :> + Post '[JSON] TransferConfig -- | Creates a new data transfer configuration. -- -- /See:/ 'projectsTransferConfigsCreate' smart constructor. -data ProjectsTransferConfigsCreate = ProjectsTransferConfigsCreate' +data ProjectsTransferConfigsCreate = + ProjectsTransferConfigsCreate' { _ptccParent :: !Text , _ptccXgafv :: !(Maybe Xgafv) , _ptccUploadProtocol :: !(Maybe Text) @@ -73,9 +76,12 @@ , _ptccUploadType :: !(Maybe Text) , _ptccAuthorizationCode :: !(Maybe Text) , _ptccPayload :: !TransferConfig + , _ptccVersionInfo :: !(Maybe Text) , _ptccCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsTransferConfigsCreate' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -94,13 +100,15 @@ -- -- * 'ptccPayload' -- +-- * 'ptccVersionInfo' +-- -- * 'ptccCallback' projectsTransferConfigsCreate :: Text -- ^ 'ptccParent' -> TransferConfig -- ^ 'ptccPayload' -> ProjectsTransferConfigsCreate projectsTransferConfigsCreate pPtccParent_ pPtccPayload_ = - ProjectsTransferConfigsCreate' + ProjectsTransferConfigsCreate' { _ptccParent = pPtccParent_ , _ptccXgafv = Nothing , _ptccUploadProtocol = Nothing @@ -108,9 +116,11 @@ , _ptccUploadType = Nothing , _ptccAuthorizationCode = Nothing , _ptccPayload = pPtccPayload_ + , _ptccVersionInfo = Nothing , _ptccCallback = Nothing } + -- | The BigQuery project id where the transfer configuration should be -- created. Must be in the format -- projects\/{project_id}\/locations\/{location_id} If specified location @@ -167,6 +177,17 @@ ptccPayload = lens _ptccPayload (\ s a -> s{_ptccPayload = a}) +-- | Optional version info. If users want to find a very recent access token, +-- that is, immediately after approving access, users have to set the +-- version_info claim in the token request. To obtain the version_info, +-- users must use the “none+gsession” response type. which be return a +-- version_info back in the authorization response which be be put in a JWT +-- claim in the token request. +ptccVersionInfo :: Lens' ProjectsTransferConfigsCreate (Maybe Text) +ptccVersionInfo + = lens _ptccVersionInfo + (\ s a -> s{_ptccVersionInfo = a}) + -- | JSONP ptccCallback :: Lens' ProjectsTransferConfigsCreate (Maybe Text) ptccCallback @@ -183,6 +204,7 @@ _ptccAccessToken _ptccUploadType _ptccAuthorizationCode + _ptccVersionInfo _ptccCallback (Just AltJSON) _ptccPayload diff --git a/gen/Network/Google/Resource/BigQueryDataTransfer/Projects/TransferConfigs/Delete.hs b/gen/Network/Google/Resource/BigQueryDataTransfer/Projects/TransferConfigs/Delete.hs --- a/gen/Network/Google/Resource/BigQueryDataTransfer/Projects/TransferConfigs/Delete.hs +++ b/gen/Network/Google/Resource/BigQueryDataTransfer/Projects/TransferConfigs/Delete.hs @@ -61,15 +61,18 @@ -- runs and logs. -- -- /See:/ 'projectsTransferConfigsDelete' smart constructor. -data ProjectsTransferConfigsDelete = ProjectsTransferConfigsDelete' +data ProjectsTransferConfigsDelete = + ProjectsTransferConfigsDelete' { _ptcdXgafv :: !(Maybe Xgafv) , _ptcdUploadProtocol :: !(Maybe Text) , _ptcdAccessToken :: !(Maybe Text) , _ptcdUploadType :: !(Maybe Text) , _ptcdName :: !Text , _ptcdCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsTransferConfigsDelete' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -89,7 +92,7 @@ :: Text -- ^ 'ptcdName' -> ProjectsTransferConfigsDelete projectsTransferConfigsDelete pPtcdName_ = - ProjectsTransferConfigsDelete' + ProjectsTransferConfigsDelete' { _ptcdXgafv = Nothing , _ptcdUploadProtocol = Nothing , _ptcdAccessToken = Nothing @@ -97,6 +100,7 @@ , _ptcdName = pPtcdName_ , _ptcdCallback = Nothing } + -- | V1 error format. ptcdXgafv :: Lens' ProjectsTransferConfigsDelete (Maybe Xgafv) diff --git a/gen/Network/Google/Resource/BigQueryDataTransfer/Projects/TransferConfigs/Get.hs b/gen/Network/Google/Resource/BigQueryDataTransfer/Projects/TransferConfigs/Get.hs --- a/gen/Network/Google/Resource/BigQueryDataTransfer/Projects/TransferConfigs/Get.hs +++ b/gen/Network/Google/Resource/BigQueryDataTransfer/Projects/TransferConfigs/Get.hs @@ -60,15 +60,18 @@ -- | Returns information about a data transfer config. -- -- /See:/ 'projectsTransferConfigsGet' smart constructor. -data ProjectsTransferConfigsGet = ProjectsTransferConfigsGet' +data ProjectsTransferConfigsGet = + ProjectsTransferConfigsGet' { _ptcgXgafv :: !(Maybe Xgafv) , _ptcgUploadProtocol :: !(Maybe Text) , _ptcgAccessToken :: !(Maybe Text) , _ptcgUploadType :: !(Maybe Text) , _ptcgName :: !Text , _ptcgCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsTransferConfigsGet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -88,7 +91,7 @@ :: Text -- ^ 'ptcgName' -> ProjectsTransferConfigsGet projectsTransferConfigsGet pPtcgName_ = - ProjectsTransferConfigsGet' + ProjectsTransferConfigsGet' { _ptcgXgafv = Nothing , _ptcgUploadProtocol = Nothing , _ptcgAccessToken = Nothing @@ -96,6 +99,7 @@ , _ptcgName = pPtcgName_ , _ptcgCallback = Nothing } + -- | V1 error format. ptcgXgafv :: Lens' ProjectsTransferConfigsGet (Maybe Xgafv) diff --git a/gen/Network/Google/Resource/BigQueryDataTransfer/Projects/TransferConfigs/List.hs b/gen/Network/Google/Resource/BigQueryDataTransfer/Projects/TransferConfigs/List.hs --- a/gen/Network/Google/Resource/BigQueryDataTransfer/Projects/TransferConfigs/List.hs +++ b/gen/Network/Google/Resource/BigQueryDataTransfer/Projects/TransferConfigs/List.hs @@ -67,7 +67,8 @@ -- | Returns information about all data transfers in the project. -- -- /See:/ 'projectsTransferConfigsList' smart constructor. -data ProjectsTransferConfigsList = ProjectsTransferConfigsList' +data ProjectsTransferConfigsList = + ProjectsTransferConfigsList' { _ptclParent :: !Text , _ptclXgafv :: !(Maybe Xgafv) , _ptclUploadProtocol :: !(Maybe Text) @@ -77,8 +78,10 @@ , _ptclDataSourceIds :: !(Maybe [Text]) , _ptclPageSize :: !(Maybe (Textual Int32)) , _ptclCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsTransferConfigsList' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -104,7 +107,7 @@ :: Text -- ^ 'ptclParent' -> ProjectsTransferConfigsList projectsTransferConfigsList pPtclParent_ = - ProjectsTransferConfigsList' + ProjectsTransferConfigsList' { _ptclParent = pPtclParent_ , _ptclXgafv = Nothing , _ptclUploadProtocol = Nothing @@ -115,6 +118,7 @@ , _ptclPageSize = Nothing , _ptclCallback = Nothing } + -- | The BigQuery project id for which data sources should be returned: -- \`projects\/{project_id}\`. diff --git a/gen/Network/Google/Resource/BigQueryDataTransfer/Projects/TransferConfigs/Patch.hs b/gen/Network/Google/Resource/BigQueryDataTransfer/Projects/TransferConfigs/Patch.hs --- a/gen/Network/Google/Resource/BigQueryDataTransfer/Projects/TransferConfigs/Patch.hs +++ b/gen/Network/Google/Resource/BigQueryDataTransfer/Projects/TransferConfigs/Patch.hs @@ -41,6 +41,7 @@ , ptcpUploadType , ptcpAuthorizationCode , ptcpPayload + , ptcpVersionInfo , ptcpName , ptcpCallback ) where @@ -59,16 +60,18 @@ QueryParam "access_token" Text :> QueryParam "uploadType" Text :> QueryParam "authorizationCode" Text :> - QueryParam "callback" Text :> - QueryParam "alt" AltJSON :> - ReqBody '[JSON] TransferConfig :> - Patch '[JSON] TransferConfig + QueryParam "versionInfo" Text :> + QueryParam "callback" Text :> + QueryParam "alt" AltJSON :> + ReqBody '[JSON] TransferConfig :> + Patch '[JSON] TransferConfig -- | Updates a data transfer configuration. All fields must be set, even if -- they are not updated. -- -- /See:/ 'projectsTransferConfigsPatch' smart constructor. -data ProjectsTransferConfigsPatch = ProjectsTransferConfigsPatch' +data ProjectsTransferConfigsPatch = + ProjectsTransferConfigsPatch' { _ptcpXgafv :: !(Maybe Xgafv) , _ptcpUploadProtocol :: !(Maybe Text) , _ptcpUpdateMask :: !(Maybe GFieldMask) @@ -76,10 +79,13 @@ , _ptcpUploadType :: !(Maybe Text) , _ptcpAuthorizationCode :: !(Maybe Text) , _ptcpPayload :: !TransferConfig + , _ptcpVersionInfo :: !(Maybe Text) , _ptcpName :: !Text , _ptcpCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsTransferConfigsPatch' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -98,6 +104,8 @@ -- -- * 'ptcpPayload' -- +-- * 'ptcpVersionInfo' +-- -- * 'ptcpName' -- -- * 'ptcpCallback' @@ -106,7 +114,7 @@ -> Text -- ^ 'ptcpName' -> ProjectsTransferConfigsPatch projectsTransferConfigsPatch pPtcpPayload_ pPtcpName_ = - ProjectsTransferConfigsPatch' + ProjectsTransferConfigsPatch' { _ptcpXgafv = Nothing , _ptcpUploadProtocol = Nothing , _ptcpUpdateMask = Nothing @@ -114,10 +122,12 @@ , _ptcpUploadType = Nothing , _ptcpAuthorizationCode = Nothing , _ptcpPayload = pPtcpPayload_ + , _ptcpVersionInfo = Nothing , _ptcpName = pPtcpName_ , _ptcpCallback = Nothing } + -- | V1 error format. ptcpXgafv :: Lens' ProjectsTransferConfigsPatch (Maybe Xgafv) ptcpXgafv @@ -171,6 +181,17 @@ ptcpPayload = lens _ptcpPayload (\ s a -> s{_ptcpPayload = a}) +-- | Optional version info. If users want to find a very recent access token, +-- that is, immediately after approving access, users have to set the +-- version_info claim in the token request. To obtain the version_info, +-- users must use the “none+gsession” response type. which be return a +-- version_info back in the authorization response which be be put in a JWT +-- claim in the token request. +ptcpVersionInfo :: Lens' ProjectsTransferConfigsPatch (Maybe Text) +ptcpVersionInfo + = lens _ptcpVersionInfo + (\ s a -> s{_ptcpVersionInfo = a}) + -- | The resource name of the transfer config. Transfer config names have the -- form of -- \`projects\/{project_id}\/locations\/{region}\/transferConfigs\/{config_id}\`. @@ -197,6 +218,7 @@ _ptcpAccessToken _ptcpUploadType _ptcpAuthorizationCode + _ptcpVersionInfo _ptcpCallback (Just AltJSON) _ptcpPayload diff --git a/gen/Network/Google/Resource/BigQueryDataTransfer/Projects/TransferConfigs/Runs/Delete.hs b/gen/Network/Google/Resource/BigQueryDataTransfer/Projects/TransferConfigs/Runs/Delete.hs --- a/gen/Network/Google/Resource/BigQueryDataTransfer/Projects/TransferConfigs/Runs/Delete.hs +++ b/gen/Network/Google/Resource/BigQueryDataTransfer/Projects/TransferConfigs/Runs/Delete.hs @@ -59,15 +59,18 @@ -- | Deletes the specified transfer run. -- -- /See:/ 'projectsTransferConfigsRunsDelete' smart constructor. -data ProjectsTransferConfigsRunsDelete = ProjectsTransferConfigsRunsDelete' +data ProjectsTransferConfigsRunsDelete = + ProjectsTransferConfigsRunsDelete' { _ptcrdXgafv :: !(Maybe Xgafv) , _ptcrdUploadProtocol :: !(Maybe Text) , _ptcrdAccessToken :: !(Maybe Text) , _ptcrdUploadType :: !(Maybe Text) , _ptcrdName :: !Text , _ptcrdCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsTransferConfigsRunsDelete' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -87,7 +90,7 @@ :: Text -- ^ 'ptcrdName' -> ProjectsTransferConfigsRunsDelete projectsTransferConfigsRunsDelete pPtcrdName_ = - ProjectsTransferConfigsRunsDelete' + ProjectsTransferConfigsRunsDelete' { _ptcrdXgafv = Nothing , _ptcrdUploadProtocol = Nothing , _ptcrdAccessToken = Nothing @@ -96,6 +99,7 @@ , _ptcrdCallback = Nothing } + -- | V1 error format. ptcrdXgafv :: Lens' ProjectsTransferConfigsRunsDelete (Maybe Xgafv) ptcrdXgafv @@ -132,7 +136,8 @@ (\ s a -> s{_ptcrdCallback = a}) instance GoogleRequest - ProjectsTransferConfigsRunsDelete where + ProjectsTransferConfigsRunsDelete + where type Rs ProjectsTransferConfigsRunsDelete = Empty type Scopes ProjectsTransferConfigsRunsDelete = '["https://www.googleapis.com/auth/bigquery", diff --git a/gen/Network/Google/Resource/BigQueryDataTransfer/Projects/TransferConfigs/Runs/Get.hs b/gen/Network/Google/Resource/BigQueryDataTransfer/Projects/TransferConfigs/Runs/Get.hs --- a/gen/Network/Google/Resource/BigQueryDataTransfer/Projects/TransferConfigs/Runs/Get.hs +++ b/gen/Network/Google/Resource/BigQueryDataTransfer/Projects/TransferConfigs/Runs/Get.hs @@ -59,15 +59,18 @@ -- | Returns information about the particular transfer run. -- -- /See:/ 'projectsTransferConfigsRunsGet' smart constructor. -data ProjectsTransferConfigsRunsGet = ProjectsTransferConfigsRunsGet' +data ProjectsTransferConfigsRunsGet = + ProjectsTransferConfigsRunsGet' { _ptcrgXgafv :: !(Maybe Xgafv) , _ptcrgUploadProtocol :: !(Maybe Text) , _ptcrgAccessToken :: !(Maybe Text) , _ptcrgUploadType :: !(Maybe Text) , _ptcrgName :: !Text , _ptcrgCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsTransferConfigsRunsGet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -87,7 +90,7 @@ :: Text -- ^ 'ptcrgName' -> ProjectsTransferConfigsRunsGet projectsTransferConfigsRunsGet pPtcrgName_ = - ProjectsTransferConfigsRunsGet' + ProjectsTransferConfigsRunsGet' { _ptcrgXgafv = Nothing , _ptcrgUploadProtocol = Nothing , _ptcrgAccessToken = Nothing @@ -95,6 +98,7 @@ , _ptcrgName = pPtcrgName_ , _ptcrgCallback = Nothing } + -- | V1 error format. ptcrgXgafv :: Lens' ProjectsTransferConfigsRunsGet (Maybe Xgafv) diff --git a/gen/Network/Google/Resource/BigQueryDataTransfer/Projects/TransferConfigs/Runs/List.hs b/gen/Network/Google/Resource/BigQueryDataTransfer/Projects/TransferConfigs/Runs/List.hs --- a/gen/Network/Google/Resource/BigQueryDataTransfer/Projects/TransferConfigs/Runs/List.hs +++ b/gen/Network/Google/Resource/BigQueryDataTransfer/Projects/TransferConfigs/Runs/List.hs @@ -69,7 +69,8 @@ -- | Returns information about running and completed jobs. -- -- /See:/ 'projectsTransferConfigsRunsList' smart constructor. -data ProjectsTransferConfigsRunsList = ProjectsTransferConfigsRunsList' +data ProjectsTransferConfigsRunsList = + ProjectsTransferConfigsRunsList' { _ptcrlRunAttempt :: !(Maybe Text) , _ptcrlParent :: !Text , _ptcrlStates :: !(Maybe [Text]) @@ -80,8 +81,10 @@ , _ptcrlPageToken :: !(Maybe Text) , _ptcrlPageSize :: !(Maybe (Textual Int32)) , _ptcrlCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsTransferConfigsRunsList' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -109,7 +112,7 @@ :: Text -- ^ 'ptcrlParent' -> ProjectsTransferConfigsRunsList projectsTransferConfigsRunsList pPtcrlParent_ = - ProjectsTransferConfigsRunsList' + ProjectsTransferConfigsRunsList' { _ptcrlRunAttempt = Nothing , _ptcrlParent = pPtcrlParent_ , _ptcrlStates = Nothing @@ -122,6 +125,7 @@ , _ptcrlCallback = Nothing } + -- | Indicates how run attempts are to be pulled. ptcrlRunAttempt :: Lens' ProjectsTransferConfigsRunsList (Maybe Text) ptcrlRunAttempt @@ -189,7 +193,8 @@ (\ s a -> s{_ptcrlCallback = a}) instance GoogleRequest - ProjectsTransferConfigsRunsList where + ProjectsTransferConfigsRunsList + where type Rs ProjectsTransferConfigsRunsList = ListTransferRunsResponse type Scopes ProjectsTransferConfigsRunsList = diff --git a/gen/Network/Google/Resource/BigQueryDataTransfer/Projects/TransferConfigs/Runs/TransferLogs/List.hs b/gen/Network/Google/Resource/BigQueryDataTransfer/Projects/TransferConfigs/Runs/TransferLogs/List.hs --- a/gen/Network/Google/Resource/BigQueryDataTransfer/Projects/TransferConfigs/Runs/TransferLogs/List.hs +++ b/gen/Network/Google/Resource/BigQueryDataTransfer/Projects/TransferConfigs/Runs/TransferLogs/List.hs @@ -68,7 +68,8 @@ -- | Returns user facing log messages for the data transfer run. -- -- /See:/ 'projectsTransferConfigsRunsTransferLogsList' smart constructor. -data ProjectsTransferConfigsRunsTransferLogsList = ProjectsTransferConfigsRunsTransferLogsList' +data ProjectsTransferConfigsRunsTransferLogsList = + ProjectsTransferConfigsRunsTransferLogsList' { _ptcrtllParent :: !Text , _ptcrtllXgafv :: !(Maybe Xgafv) , _ptcrtllUploadProtocol :: !(Maybe Text) @@ -78,8 +79,10 @@ , _ptcrtllPageToken :: !(Maybe Text) , _ptcrtllPageSize :: !(Maybe (Textual Int32)) , _ptcrtllCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsTransferConfigsRunsTransferLogsList' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -105,7 +108,7 @@ :: Text -- ^ 'ptcrtllParent' -> ProjectsTransferConfigsRunsTransferLogsList projectsTransferConfigsRunsTransferLogsList pPtcrtllParent_ = - ProjectsTransferConfigsRunsTransferLogsList' + ProjectsTransferConfigsRunsTransferLogsList' { _ptcrtllParent = pPtcrtllParent_ , _ptcrtllXgafv = Nothing , _ptcrtllUploadProtocol = Nothing @@ -117,6 +120,7 @@ , _ptcrtllCallback = Nothing } + -- | Transfer run name in the form: -- \`projects\/{project_id}\/transferConfigs\/{config_Id}\/runs\/{run_id}\`. ptcrtllParent :: Lens' ProjectsTransferConfigsRunsTransferLogsList Text @@ -180,7 +184,8 @@ (\ s a -> s{_ptcrtllCallback = a}) instance GoogleRequest - ProjectsTransferConfigsRunsTransferLogsList where + ProjectsTransferConfigsRunsTransferLogsList + where type Rs ProjectsTransferConfigsRunsTransferLogsList = ListTransferLogsResponse type Scopes diff --git a/gen/Network/Google/Resource/BigQueryDataTransfer/Projects/TransferConfigs/ScheduleRuns.hs b/gen/Network/Google/Resource/BigQueryDataTransfer/Projects/TransferConfigs/ScheduleRuns.hs --- a/gen/Network/Google/Resource/BigQueryDataTransfer/Projects/TransferConfigs/ScheduleRuns.hs +++ b/gen/Network/Google/Resource/BigQueryDataTransfer/Projects/TransferConfigs/ScheduleRuns.hs @@ -23,7 +23,7 @@ -- Creates transfer runs for a time range [start_time, end_time]. For each -- date - or whatever granularity the data source supports - in the range, -- one transfer run is created. Note that runs are created per UTC time in --- the time range. +-- the time range. DEPRECATED: use StartManualTransferRuns instead. -- -- /See:/ for @bigquerydatatransfer.projects.transferConfigs.scheduleRuns@. module Network.Google.Resource.BigQueryDataTransfer.Projects.TransferConfigs.ScheduleRuns @@ -65,10 +65,11 @@ -- | Creates transfer runs for a time range [start_time, end_time]. For each -- date - or whatever granularity the data source supports - in the range, -- one transfer run is created. Note that runs are created per UTC time in --- the time range. +-- the time range. DEPRECATED: use StartManualTransferRuns instead. -- -- /See:/ 'projectsTransferConfigsScheduleRuns' smart constructor. -data ProjectsTransferConfigsScheduleRuns = ProjectsTransferConfigsScheduleRuns' +data ProjectsTransferConfigsScheduleRuns = + ProjectsTransferConfigsScheduleRuns' { _ptcsrParent :: !Text , _ptcsrXgafv :: !(Maybe Xgafv) , _ptcsrUploadProtocol :: !(Maybe Text) @@ -76,8 +77,10 @@ , _ptcsrUploadType :: !(Maybe Text) , _ptcsrPayload :: !ScheduleTransferRunsRequest , _ptcsrCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsTransferConfigsScheduleRuns' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -100,7 +103,7 @@ -> ScheduleTransferRunsRequest -- ^ 'ptcsrPayload' -> ProjectsTransferConfigsScheduleRuns projectsTransferConfigsScheduleRuns pPtcsrParent_ pPtcsrPayload_ = - ProjectsTransferConfigsScheduleRuns' + ProjectsTransferConfigsScheduleRuns' { _ptcsrParent = pPtcsrParent_ , _ptcsrXgafv = Nothing , _ptcsrUploadProtocol = Nothing @@ -110,6 +113,7 @@ , _ptcsrCallback = Nothing } + -- | Transfer configuration name in the form: -- \`projects\/{project_id}\/transferConfigs\/{config_id}\`. ptcsrParent :: Lens' ProjectsTransferConfigsScheduleRuns Text @@ -151,7 +155,8 @@ (\ s a -> s{_ptcsrCallback = a}) instance GoogleRequest - ProjectsTransferConfigsScheduleRuns where + ProjectsTransferConfigsScheduleRuns + where type Rs ProjectsTransferConfigsScheduleRuns = ScheduleTransferRunsResponse type Scopes ProjectsTransferConfigsScheduleRuns = diff --git a/gen/Network/Google/Resource/BigQueryDataTransfer/Projects/TransferConfigs/StartManualRuns.hs b/gen/Network/Google/Resource/BigQueryDataTransfer/Projects/TransferConfigs/StartManualRuns.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/BigQueryDataTransfer/Projects/TransferConfigs/StartManualRuns.hs @@ -0,0 +1,179 @@ +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE DeriveDataTypeable #-} +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE TypeFamilies #-} +{-# LANGUAGE TypeOperators #-} + +{-# OPTIONS_GHC -fno-warn-duplicate-exports #-} +{-# OPTIONS_GHC -fno-warn-unused-binds #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- | +-- Module : Network.Google.Resource.BigQueryDataTransfer.Projects.TransferConfigs.StartManualRuns +-- Copyright : (c) 2015-2016 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Start manual transfer runs to be executed now with schedule_time equal +-- to current time. The transfer runs can be created for a time range where +-- the run_time is between start_time (inclusive) and end_time (exclusive), +-- or for a specific run_time. +-- +-- /See:/ for @bigquerydatatransfer.projects.transferConfigs.startManualRuns@. +module Network.Google.Resource.BigQueryDataTransfer.Projects.TransferConfigs.StartManualRuns + ( + -- * REST Resource + ProjectsTransferConfigsStartManualRunsResource + + -- * Creating a Request + , projectsTransferConfigsStartManualRuns + , ProjectsTransferConfigsStartManualRuns + + -- * Request Lenses + , ptcsmrParent + , ptcsmrXgafv + , ptcsmrUploadProtocol + , ptcsmrAccessToken + , ptcsmrUploadType + , ptcsmrPayload + , ptcsmrCallback + ) where + +import Network.Google.BigQueryDataTransfer.Types +import Network.Google.Prelude + +-- | A resource alias for @bigquerydatatransfer.projects.transferConfigs.startManualRuns@ method which the +-- 'ProjectsTransferConfigsStartManualRuns' request conforms to. +type ProjectsTransferConfigsStartManualRunsResource = + "v1" :> + CaptureMode "parent" "startManualRuns" Text :> + QueryParam "$.xgafv" Xgafv :> + QueryParam "upload_protocol" Text :> + QueryParam "access_token" Text :> + QueryParam "uploadType" Text :> + QueryParam "callback" Text :> + QueryParam "alt" AltJSON :> + ReqBody '[JSON] StartManualTransferRunsRequest :> + Post '[JSON] StartManualTransferRunsResponse + +-- | Start manual transfer runs to be executed now with schedule_time equal +-- to current time. The transfer runs can be created for a time range where +-- the run_time is between start_time (inclusive) and end_time (exclusive), +-- or for a specific run_time. +-- +-- /See:/ 'projectsTransferConfigsStartManualRuns' smart constructor. +data ProjectsTransferConfigsStartManualRuns = + ProjectsTransferConfigsStartManualRuns' + { _ptcsmrParent :: !Text + , _ptcsmrXgafv :: !(Maybe Xgafv) + , _ptcsmrUploadProtocol :: !(Maybe Text) + , _ptcsmrAccessToken :: !(Maybe Text) + , _ptcsmrUploadType :: !(Maybe Text) + , _ptcsmrPayload :: !StartManualTransferRunsRequest + , _ptcsmrCallback :: !(Maybe Text) + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'ProjectsTransferConfigsStartManualRuns' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'ptcsmrParent' +-- +-- * 'ptcsmrXgafv' +-- +-- * 'ptcsmrUploadProtocol' +-- +-- * 'ptcsmrAccessToken' +-- +-- * 'ptcsmrUploadType' +-- +-- * 'ptcsmrPayload' +-- +-- * 'ptcsmrCallback' +projectsTransferConfigsStartManualRuns + :: Text -- ^ 'ptcsmrParent' + -> StartManualTransferRunsRequest -- ^ 'ptcsmrPayload' + -> ProjectsTransferConfigsStartManualRuns +projectsTransferConfigsStartManualRuns pPtcsmrParent_ pPtcsmrPayload_ = + ProjectsTransferConfigsStartManualRuns' + { _ptcsmrParent = pPtcsmrParent_ + , _ptcsmrXgafv = Nothing + , _ptcsmrUploadProtocol = Nothing + , _ptcsmrAccessToken = Nothing + , _ptcsmrUploadType = Nothing + , _ptcsmrPayload = pPtcsmrPayload_ + , _ptcsmrCallback = Nothing + } + + +-- | Transfer configuration name in the form: +-- \`projects\/{project_id}\/transferConfigs\/{config_id}\`. +ptcsmrParent :: Lens' ProjectsTransferConfigsStartManualRuns Text +ptcsmrParent + = lens _ptcsmrParent (\ s a -> s{_ptcsmrParent = a}) + +-- | V1 error format. +ptcsmrXgafv :: Lens' ProjectsTransferConfigsStartManualRuns (Maybe Xgafv) +ptcsmrXgafv + = lens _ptcsmrXgafv (\ s a -> s{_ptcsmrXgafv = a}) + +-- | Upload protocol for media (e.g. \"raw\", \"multipart\"). +ptcsmrUploadProtocol :: Lens' ProjectsTransferConfigsStartManualRuns (Maybe Text) +ptcsmrUploadProtocol + = lens _ptcsmrUploadProtocol + (\ s a -> s{_ptcsmrUploadProtocol = a}) + +-- | OAuth access token. +ptcsmrAccessToken :: Lens' ProjectsTransferConfigsStartManualRuns (Maybe Text) +ptcsmrAccessToken + = lens _ptcsmrAccessToken + (\ s a -> s{_ptcsmrAccessToken = a}) + +-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\"). +ptcsmrUploadType :: Lens' ProjectsTransferConfigsStartManualRuns (Maybe Text) +ptcsmrUploadType + = lens _ptcsmrUploadType + (\ s a -> s{_ptcsmrUploadType = a}) + +-- | Multipart request metadata. +ptcsmrPayload :: Lens' ProjectsTransferConfigsStartManualRuns StartManualTransferRunsRequest +ptcsmrPayload + = lens _ptcsmrPayload + (\ s a -> s{_ptcsmrPayload = a}) + +-- | JSONP +ptcsmrCallback :: Lens' ProjectsTransferConfigsStartManualRuns (Maybe Text) +ptcsmrCallback + = lens _ptcsmrCallback + (\ s a -> s{_ptcsmrCallback = a}) + +instance GoogleRequest + ProjectsTransferConfigsStartManualRuns + where + type Rs ProjectsTransferConfigsStartManualRuns = + StartManualTransferRunsResponse + type Scopes ProjectsTransferConfigsStartManualRuns = + '["https://www.googleapis.com/auth/bigquery", + "https://www.googleapis.com/auth/cloud-platform"] + requestClient + ProjectsTransferConfigsStartManualRuns'{..} + = go _ptcsmrParent _ptcsmrXgafv _ptcsmrUploadProtocol + _ptcsmrAccessToken + _ptcsmrUploadType + _ptcsmrCallback + (Just AltJSON) + _ptcsmrPayload + bigQueryDataTransferService + where go + = buildClient + (Proxy :: + Proxy ProjectsTransferConfigsStartManualRunsResource) + mempty diff --git a/gogol-bigquerydatatransfer.cabal b/gogol-bigquerydatatransfer.cabal --- a/gogol-bigquerydatatransfer.cabal +++ b/gogol-bigquerydatatransfer.cabal @@ -1,5 +1,5 @@ name: gogol-bigquerydatatransfer -version: 0.4.0 +version: 0.5.0 synopsis: Google BigQuery Data Transfer SDK. homepage: https://github.com/brendanhay/gogol bug-reports: https://github.com/brendanhay/gogol/issues @@ -14,8 +14,8 @@ extra-source-files: README.md src/.gitkeep description: - Transfers data from partner SaaS applications to Google BigQuery on a - scheduled, managed basis. + Schedule queries or transfer external data from SaaS applications to + Google BigQuery on a regular basis. . /Warning:/ This is an experimental prototype/preview release which is still under exploratory development and not intended for public use, caveat emptor! @@ -54,6 +54,7 @@ , Network.Google.Resource.BigQueryDataTransfer.Projects.Locations.TransferConfigs.Runs.List , Network.Google.Resource.BigQueryDataTransfer.Projects.Locations.TransferConfigs.Runs.TransferLogs.List , Network.Google.Resource.BigQueryDataTransfer.Projects.Locations.TransferConfigs.ScheduleRuns + , Network.Google.Resource.BigQueryDataTransfer.Projects.Locations.TransferConfigs.StartManualRuns , Network.Google.Resource.BigQueryDataTransfer.Projects.TransferConfigs.Create , Network.Google.Resource.BigQueryDataTransfer.Projects.TransferConfigs.Delete , Network.Google.Resource.BigQueryDataTransfer.Projects.TransferConfigs.Get @@ -64,11 +65,12 @@ , Network.Google.Resource.BigQueryDataTransfer.Projects.TransferConfigs.Runs.List , Network.Google.Resource.BigQueryDataTransfer.Projects.TransferConfigs.Runs.TransferLogs.List , Network.Google.Resource.BigQueryDataTransfer.Projects.TransferConfigs.ScheduleRuns + , Network.Google.Resource.BigQueryDataTransfer.Projects.TransferConfigs.StartManualRuns other-modules: Network.Google.BigQueryDataTransfer.Types.Product , Network.Google.BigQueryDataTransfer.Types.Sum build-depends: - gogol-core == 0.4.0.* + gogol-core == 0.5.0.* , base >= 4.7 && < 5