diff --git a/README.md b/README.md --- a/README.md +++ b/README.md @@ -8,7 +8,7 @@ ## Version -`0.0.1` +`0.1.0` ## Description @@ -18,9 +18,9 @@ ## Contribute -For any problems, comments, or feedback please create an issue [here on GitHub](https://github.com/brendanhay/amazonka/issues). +For any problems, comments, or feedback please create an issue [here on GitHub](https://github.com/brendanhay/gogol/issues). -> _Note:_ this library is an auto-generated Haskell package. Please see `amazonka-gen` for more information. +> _Note:_ this library is an auto-generated Haskell package. Please see `gogol-gen` for more information. ## Licence diff --git a/gen/Network/Google/DoubleClickSearch.hs b/gen/Network/Google/DoubleClickSearch.hs --- a/gen/Network/Google/DoubleClickSearch.hs +++ b/gen/Network/Google/DoubleClickSearch.hs @@ -7,13 +7,13 @@ -- | -- Module : Network.Google.DoubleClickSearch --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- --- Report and modify your advertising data in DoubleClick Search (for +-- Reports and modifies your advertising data in DoubleClick Search (for -- example, campaigns, ad groups, keywords, and conversions). -- -- /See:/ @@ -21,6 +21,9 @@ ( -- * Service Configuration doubleClickSearchService + + -- * OAuth Scopes + , doubleClickSearchScope -- * API Declaration , DoubleClickSearchAPI diff --git a/gen/Network/Google/DoubleClickSearch/Types.hs b/gen/Network/Google/DoubleClickSearch/Types.hs --- a/gen/Network/Google/DoubleClickSearch/Types.hs +++ b/gen/Network/Google/DoubleClickSearch/Types.hs @@ -1,3 +1,4 @@ +{-# LANGUAGE DataKinds #-} {-# LANGUAGE DeriveDataTypeable #-} {-# LANGUAGE DeriveGeneric #-} {-# LANGUAGE NoImplicitPrelude #-} @@ -7,7 +8,7 @@ -- | -- Module : Network.Google.DoubleClickSearch.Types --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -19,7 +20,7 @@ doubleClickSearchService -- * OAuth Scopes - , doubleclicksearchScope + , doubleClickSearchScope -- * ReportRow , ReportRow @@ -203,11 +204,11 @@ import Network.Google.Prelude -- | Default request referring to version 'v2' of the DoubleClick Search API. This contains the host and root path used as a starting point for constructing service requests. -doubleClickSearchService :: Service +doubleClickSearchService :: ServiceConfig doubleClickSearchService = defaultService (ServiceId "doubleclicksearch:v2") "www.googleapis.com" -- | View and manage your advertising data in DoubleClick Search -doubleclicksearchScope :: OAuthScope -doubleclicksearchScope = "https://www.googleapis.com/auth/doubleclicksearch"; +doubleClickSearchScope :: Proxy '["https://www.googleapis.com/auth/doubleclicksearch"] +doubleClickSearchScope = Proxy; diff --git a/gen/Network/Google/DoubleClickSearch/Types/Product.hs b/gen/Network/Google/DoubleClickSearch/Types/Product.hs --- a/gen/Network/Google/DoubleClickSearch/Types/Product.hs +++ b/gen/Network/Google/DoubleClickSearch/Types/Product.hs @@ -9,7 +9,7 @@ -- | -- Module : Network.Google.DoubleClickSearch.Types.Product --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -23,7 +23,7 @@ -- | A row in a DoubleClick Search report. -- -- /See:/ 'reportRow' smart constructor. -newtype ReportRow = ReportRow +newtype ReportRow = ReportRow' { _rrAddtional :: HashMap Text JSONValue } deriving (Eq,Show,Data,Typeable,Generic) @@ -36,7 +36,7 @@ :: HashMap Text JSONValue -- ^ 'rrAddtional' -> ReportRow reportRow pRrAddtional_ = - ReportRow + ReportRow' { _rrAddtional = _Coerce # pRrAddtional_ } @@ -50,7 +50,7 @@ instance FromJSON ReportRow where parseJSON = withObject "ReportRow" - (\ o -> ReportRow <$> (parseJSONObject o)) + (\ o -> ReportRow' <$> (parseJSONObject o)) instance ToJSON ReportRow where toJSON = toJSON . _rrAddtional @@ -58,7 +58,7 @@ -- | A request object used to create a DoubleClick Search report. -- -- /See:/ 'reportRequest' smart constructor. -data ReportRequest = ReportRequest +data ReportRequest = ReportRequest' { _rrMaxRowsPerFile :: !(Maybe (Textual Int32)) , _rrReportScope :: !(Maybe ReportRequestReportScope) , _rrStatisticsCurrency :: !(Maybe Text) @@ -109,7 +109,7 @@ reportRequest :: ReportRequest reportRequest = - ReportRequest + ReportRequest' { _rrMaxRowsPerFile = Nothing , _rrReportScope = Nothing , _rrStatisticsCurrency = Nothing @@ -241,7 +241,7 @@ parseJSON = withObject "ReportRequest" (\ o -> - ReportRequest <$> + ReportRequest' <$> (o .:? "maxRowsPerFile") <*> (o .:? "reportScope") <*> (o .:? "statisticsCurrency") <*> (o .:? "timeRange") @@ -257,7 +257,7 @@ <*> (o .:? "rowCount" .!= 10000)) instance ToJSON ReportRequest where - toJSON ReportRequest{..} + toJSON ReportRequest'{..} = object (catMaybes [("maxRowsPerFile" .=) <$> _rrMaxRowsPerFile, @@ -282,7 +282,7 @@ -- -- /See:/ 'reportRequestOrderByItem' smart constructor. -data ReportRequestOrderByItem = ReportRequestOrderByItem +data ReportRequestOrderByItem = ReportRequestOrderByItem' { _rrobiSortOrder :: !(Maybe Text) , _rrobiColumn :: !(Maybe ReportAPIColumnSpec) } deriving (Eq,Show,Data,Typeable,Generic) @@ -297,7 +297,7 @@ reportRequestOrderByItem :: ReportRequestOrderByItem reportRequestOrderByItem = - ReportRequestOrderByItem + ReportRequestOrderByItem' { _rrobiSortOrder = Nothing , _rrobiColumn = Nothing } @@ -318,11 +318,11 @@ parseJSON = withObject "ReportRequestOrderByItem" (\ o -> - ReportRequestOrderByItem <$> + ReportRequestOrderByItem' <$> (o .:? "sortOrder") <*> (o .:? "column")) instance ToJSON ReportRequestOrderByItem where - toJSON ReportRequestOrderByItem{..} + toJSON ReportRequestOrderByItem'{..} = object (catMaybes [("sortOrder" .=) <$> _rrobiSortOrder, @@ -333,7 +333,7 @@ -- rows or report files. -- -- /See:/ 'report' smart constructor. -data Report = Report +data Report = Report' { _rKind :: !Text , _rRows :: !(Maybe [ReportRow]) , _rStatisticsCurrencyCode :: !(Maybe Text) @@ -369,7 +369,7 @@ report :: Report report = - Report + Report' { _rKind = "doubleclicksearch#report" , _rRows = Nothing , _rStatisticsCurrencyCode = Nothing @@ -442,7 +442,7 @@ parseJSON = withObject "Report" (\ o -> - Report <$> + Report' <$> (o .:? "kind" .!= "doubleclicksearch#report") <*> (o .:? "rows" .!= mempty) <*> (o .:? "statisticsCurrencyCode") @@ -454,7 +454,7 @@ <*> (o .:? "request")) instance ToJSON Report where - toJSON Report{..} + toJSON Report'{..} = object (catMaybes [Just ("kind" .= _rKind), ("rows" .=) <$> _rRows, @@ -468,7 +468,7 @@ -- -- /See:/ 'reportFilesItem' smart constructor. -data ReportFilesItem = ReportFilesItem +data ReportFilesItem = ReportFilesItem' { _rfiURL :: !(Maybe Text) , _rfiByteCount :: !(Maybe (Textual Int64)) } deriving (Eq,Show,Data,Typeable,Generic) @@ -483,7 +483,7 @@ reportFilesItem :: ReportFilesItem reportFilesItem = - ReportFilesItem + ReportFilesItem' { _rfiURL = Nothing , _rfiByteCount = Nothing } @@ -502,11 +502,11 @@ parseJSON = withObject "ReportFilesItem" (\ o -> - ReportFilesItem <$> + ReportFilesItem' <$> (o .:? "url") <*> (o .:? "byteCount")) instance ToJSON ReportFilesItem where - toJSON ReportFilesItem{..} + toJSON ReportFilesItem'{..} = object (catMaybes [("url" .=) <$> _rfiURL, @@ -514,7 +514,7 @@ -- -- /See:/ 'reportRequestFiltersItem' smart constructor. -data ReportRequestFiltersItem = ReportRequestFiltersItem +data ReportRequestFiltersItem = ReportRequestFiltersItem' { _rrfiOperator :: !(Maybe Text) , _rrfiValues :: !(Maybe [JSONValue]) , _rrfiColumn :: !(Maybe ReportAPIColumnSpec) @@ -532,7 +532,7 @@ reportRequestFiltersItem :: ReportRequestFiltersItem reportRequestFiltersItem = - ReportRequestFiltersItem + ReportRequestFiltersItem' { _rrfiOperator = Nothing , _rrfiValues = Nothing , _rrfiColumn = Nothing @@ -561,12 +561,12 @@ parseJSON = withObject "ReportRequestFiltersItem" (\ o -> - ReportRequestFiltersItem <$> + ReportRequestFiltersItem' <$> (o .:? "operator") <*> (o .:? "values" .!= mempty) <*> (o .:? "column")) instance ToJSON ReportRequestFiltersItem where - toJSON ReportRequestFiltersItem{..} + toJSON ReportRequestFiltersItem'{..} = object (catMaybes [("operator" .=) <$> _rrfiOperator, @@ -576,7 +576,7 @@ -- | A message containing availability data relevant to DoubleClick Search. -- -- /See:/ 'availability' smart constructor. -data Availability = Availability +data Availability = Availability' { _aAgencyId :: !(Maybe (Textual Int64)) , _aAdvertiserId :: !(Maybe (Textual Int64)) , _aSegmentationId :: !(Maybe (Textual Int64)) @@ -603,7 +603,7 @@ availability :: Availability availability = - Availability + Availability' { _aAgencyId = Nothing , _aAdvertiserId = Nothing , _aSegmentationId = Nothing @@ -659,7 +659,7 @@ parseJSON = withObject "Availability" (\ o -> - Availability <$> + Availability' <$> (o .:? "agencyId") <*> (o .:? "advertiserId") <*> (o .:? "segmentationId") <*> (o .:? "segmentationName") @@ -667,7 +667,7 @@ <*> (o .:? "segmentationType")) instance ToJSON Availability where - toJSON Availability{..} + toJSON Availability'{..} = object (catMaybes [("agencyId" .=) <$> _aAgencyId, @@ -681,7 +681,7 @@ -- | The request to update availability. -- -- /See:/ 'updateAvailabilityRequest' smart constructor. -newtype UpdateAvailabilityRequest = UpdateAvailabilityRequest +newtype UpdateAvailabilityRequest = UpdateAvailabilityRequest' { _uarAvailabilities :: Maybe [Availability] } deriving (Eq,Show,Data,Typeable,Generic) @@ -693,7 +693,7 @@ updateAvailabilityRequest :: UpdateAvailabilityRequest updateAvailabilityRequest = - UpdateAvailabilityRequest + UpdateAvailabilityRequest' { _uarAvailabilities = Nothing } @@ -709,11 +709,11 @@ parseJSON = withObject "UpdateAvailabilityRequest" (\ o -> - UpdateAvailabilityRequest <$> + UpdateAvailabilityRequest' <$> (o .:? "availabilities" .!= mempty)) instance ToJSON UpdateAvailabilityRequest where - toJSON UpdateAvailabilityRequest{..} + toJSON UpdateAvailabilityRequest'{..} = object (catMaybes [("availabilities" .=) <$> _uarAvailabilities]) @@ -721,7 +721,7 @@ -- | A message containing the custome metric. -- -- /See:/ 'customMetric' smart constructor. -data CustomMetric = CustomMetric +data CustomMetric = CustomMetric' { _cmValue :: !(Maybe (Textual Double)) , _cmName :: !(Maybe Text) } deriving (Eq,Show,Data,Typeable,Generic) @@ -736,7 +736,7 @@ customMetric :: CustomMetric customMetric = - CustomMetric + CustomMetric' { _cmValue = Nothing , _cmName = Nothing } @@ -755,10 +755,10 @@ parseJSON = withObject "CustomMetric" (\ o -> - CustomMetric <$> (o .:? "value") <*> (o .:? "name")) + CustomMetric' <$> (o .:? "value") <*> (o .:? "name")) instance ToJSON CustomMetric where - toJSON CustomMetric{..} + toJSON CustomMetric'{..} = object (catMaybes [("value" .=) <$> _cmValue, ("name" .=) <$> _cmName]) @@ -766,7 +766,7 @@ -- | A list of conversions. -- -- /See:/ 'conversionList' smart constructor. -data ConversionList = ConversionList +data ConversionList = ConversionList' { _clKind :: !Text , _clConversion :: !(Maybe [Conversion]) } deriving (Eq,Show,Data,Typeable,Generic) @@ -781,7 +781,7 @@ conversionList :: ConversionList conversionList = - ConversionList + ConversionList' { _clKind = "doubleclicksearch#conversionList" , _clConversion = Nothing } @@ -802,12 +802,12 @@ parseJSON = withObject "ConversionList" (\ o -> - ConversionList <$> + ConversionList' <$> (o .:? "kind" .!= "doubleclicksearch#conversionList") <*> (o .:? "conversion" .!= mempty)) instance ToJSON ConversionList where - toJSON ConversionList{..} + toJSON ConversionList'{..} = object (catMaybes [Just ("kind" .= _clKind), @@ -816,7 +816,7 @@ -- | A request object used to create a DoubleClick Search report. -- -- /See:/ 'reportAPIColumnSpec' smart constructor. -data ReportAPIColumnSpec = ReportAPIColumnSpec +data ReportAPIColumnSpec = ReportAPIColumnSpec' { _racsCustomDimensionName :: !(Maybe Text) , _racsSavedColumnName :: !(Maybe Text) , _racsGroupByColumn :: !Bool @@ -855,7 +855,7 @@ reportAPIColumnSpec :: ReportAPIColumnSpec reportAPIColumnSpec = - ReportAPIColumnSpec + ReportAPIColumnSpec' { _racsCustomDimensionName = Nothing , _racsSavedColumnName = Nothing , _racsGroupByColumn = False @@ -910,8 +910,10 @@ racsEndDate = lens _racsEndDate (\ s a -> s{_racsEndDate = a}) --- | Provide different source for product items. Acceptable values are --- \"advertised\" and \"sold\". +-- | Returns metrics only for a specific type of product activity. Accepted +-- values are: - \"sold\": returns metrics only for products that were sold +-- - \"advertised\": returns metrics only for products that were advertised +-- in a Shopping campaign, and that might or might not have been sold racsProductReportPerspective :: Lens' ReportAPIColumnSpec (Maybe Text) racsProductReportPerspective = lens _racsProductReportPerspective @@ -951,7 +953,7 @@ parseJSON = withObject "ReportAPIColumnSpec" (\ o -> - ReportAPIColumnSpec <$> + ReportAPIColumnSpec' <$> (o .:? "customDimensionName") <*> (o .:? "savedColumnName") <*> (o .:? "groupByColumn" .!= False) @@ -964,7 +966,7 @@ <*> (o .:? "columnName")) instance ToJSON ReportAPIColumnSpec where - toJSON ReportAPIColumnSpec{..} + toJSON ReportAPIColumnSpec'{..} = object (catMaybes [("customDimensionName" .=) <$> @@ -984,7 +986,7 @@ -- restrict the metrics to a specific time range. -- -- /See:/ 'reportRequestTimeRange' smart constructor. -data ReportRequestTimeRange = ReportRequestTimeRange +data ReportRequestTimeRange = ReportRequestTimeRange' { _rrtrEndDate :: !(Maybe Text) , _rrtrChangedAttributesSinceTimestamp :: !(Maybe DateTime') , _rrtrStartDate :: !(Maybe Text) @@ -1005,7 +1007,7 @@ reportRequestTimeRange :: ReportRequestTimeRange reportRequestTimeRange = - ReportRequestTimeRange + ReportRequestTimeRange' { _rrtrEndDate = Nothing , _rrtrChangedAttributesSinceTimestamp = Nothing , _rrtrStartDate = Nothing @@ -1044,14 +1046,14 @@ parseJSON = withObject "ReportRequestTimeRange" (\ o -> - ReportRequestTimeRange <$> + ReportRequestTimeRange' <$> (o .:? "endDate") <*> (o .:? "changedAttributesSinceTimestamp") <*> (o .:? "startDate") <*> (o .:? "changedMetricsSinceTimestamp")) instance ToJSON ReportRequestTimeRange where - toJSON ReportRequestTimeRange{..} + toJSON ReportRequestTimeRange'{..} = object (catMaybes [("endDate" .=) <$> _rrtrEndDate, @@ -1064,7 +1066,7 @@ -- | A conversion containing data relevant to DoubleClick Search. -- -- /See:/ 'conversion' smart constructor. -data Conversion = Conversion +data Conversion = Conversion' { _cAdGroupId :: !(Maybe (Textual Int64)) , _cConversionModifiedTimestamp :: !(Maybe (Textual Word64)) , _cState :: !(Maybe Text) @@ -1172,7 +1174,7 @@ conversion :: Conversion conversion = - Conversion + Conversion' { _cAdGroupId = Nothing , _cConversionModifiedTimestamp = Nothing , _cState = Nothing @@ -1258,12 +1260,11 @@ (\ s a -> s{_cDsConversionId = a}) . mapping _Coerce --- | For offline conversions, this is an ID provided by advertisers. --- Advertisers can use this property to specify an ID that is meaningful to --- them. If an advertiser doesn\'t specify a conversionId, DoubleClick --- Search generates one. For online conversions, DS copies the --- dsConversionId or floodlightOrderId into this property depending on the --- advertiser\'s Floodlight instructions. +-- | For offline conversions, this is an ID that advertisers are required to +-- provide. Advertisers can specify any ID that is meaningful to them. For +-- online conversions, DS copies the dsConversionId or floodlightOrderId +-- into this property depending on the advertiser\'s Floodlight +-- instructions. cConversionId :: Lens' Conversion (Maybe Text) cConversionId = lens _cConversionId @@ -1315,7 +1316,8 @@ (\ s a -> s{_cConversionTimestamp = a}) . mapping _Coerce --- | This field is ignored. +-- | Available to advertisers only after contacting DoubleClick Search +-- customer support. cAttributionModel :: Lens' Conversion (Maybe Text) cAttributionModel = lens _cAttributionModel @@ -1343,7 +1345,8 @@ . _Default . _Coerce --- | This field is ignored. +-- | Available to advertisers only after contacting DoubleClick Search +-- customer support. cCountMillis :: Lens' Conversion (Maybe Int64) cCountMillis = lens _cCountMillis (\ s a -> s{_cCountMillis = a}) @@ -1390,7 +1393,9 @@ = lens _cFloodlightOrderId (\ s a -> s{_cFloodlightOrderId = a}) --- | The revenue amount of this TRANSACTION conversion, in micros. +-- | The revenue amount of this TRANSACTION conversion, in micros (value +-- multiplied by 1000000, no decimal). For example, to specify a revenue +-- value of \"10\" enter \"10000000\" (10 million) in your request. cRevenueMicros :: Lens' Conversion (Maybe Int64) cRevenueMicros = lens _cRevenueMicros @@ -1431,7 +1436,7 @@ parseJSON = withObject "Conversion" (\ o -> - Conversion <$> + Conversion' <$> (o .:? "adGroupId") <*> (o .:? "conversionModifiedTimestamp") <*> (o .:? "state") @@ -1467,7 +1472,7 @@ <*> (o .:? "productGroupId")) instance ToJSON Conversion where - toJSON Conversion{..} + toJSON Conversion'{..} = object (catMaybes [("adGroupId" .=) <$> _cAdGroupId, @@ -1508,7 +1513,7 @@ -- | A saved column -- -- /See:/ 'savedColumn' smart constructor. -data SavedColumn = SavedColumn +data SavedColumn = SavedColumn' { _scSavedColumnName :: !(Maybe Text) , _scKind :: !Text , _scType :: !(Maybe Text) @@ -1526,7 +1531,7 @@ savedColumn :: SavedColumn savedColumn = - SavedColumn + SavedColumn' { _scSavedColumnName = Nothing , _scKind = "doubleclicksearch#savedColumn" , _scType = Nothing @@ -1551,13 +1556,13 @@ parseJSON = withObject "SavedColumn" (\ o -> - SavedColumn <$> + SavedColumn' <$> (o .:? "savedColumnName") <*> (o .:? "kind" .!= "doubleclicksearch#savedColumn") <*> (o .:? "type")) instance ToJSON SavedColumn where - toJSON SavedColumn{..} + toJSON SavedColumn'{..} = object (catMaybes [("savedColumnName" .=) <$> _scSavedColumnName, @@ -1566,7 +1571,7 @@ -- | A message containing the custome dimension. -- -- /See:/ 'customDimension' smart constructor. -data CustomDimension = CustomDimension +data CustomDimension = CustomDimension' { _cdValue :: !(Maybe Text) , _cdName :: !(Maybe Text) } deriving (Eq,Show,Data,Typeable,Generic) @@ -1581,7 +1586,7 @@ customDimension :: CustomDimension customDimension = - CustomDimension + CustomDimension' { _cdValue = Nothing , _cdName = Nothing } @@ -1598,11 +1603,11 @@ parseJSON = withObject "CustomDimension" (\ o -> - CustomDimension <$> + CustomDimension' <$> (o .:? "value") <*> (o .:? "name")) instance ToJSON CustomDimension where - toJSON CustomDimension{..} + toJSON CustomDimension'{..} = object (catMaybes [("value" .=) <$> _cdValue, ("name" .=) <$> _cdName]) @@ -1610,7 +1615,7 @@ -- | The response to a update availability request. -- -- /See:/ 'updateAvailabilityResponse' smart constructor. -newtype UpdateAvailabilityResponse = UpdateAvailabilityResponse +newtype UpdateAvailabilityResponse = UpdateAvailabilityResponse' { _uAvailabilities :: Maybe [Availability] } deriving (Eq,Show,Data,Typeable,Generic) @@ -1622,7 +1627,7 @@ updateAvailabilityResponse :: UpdateAvailabilityResponse updateAvailabilityResponse = - UpdateAvailabilityResponse + UpdateAvailabilityResponse' { _uAvailabilities = Nothing } @@ -1638,11 +1643,11 @@ parseJSON = withObject "UpdateAvailabilityResponse" (\ o -> - UpdateAvailabilityResponse <$> + UpdateAvailabilityResponse' <$> (o .:? "availabilities" .!= mempty)) instance ToJSON UpdateAvailabilityResponse where - toJSON UpdateAvailabilityResponse{..} + toJSON UpdateAvailabilityResponse'{..} = object (catMaybes [("availabilities" .=) <$> _uAvailabilities]) @@ -1652,7 +1657,7 @@ -- the lowest scoped level desired up through agency is required. -- -- /See:/ 'reportRequestReportScope' smart constructor. -data ReportRequestReportScope = ReportRequestReportScope +data ReportRequestReportScope = ReportRequestReportScope' { _rrrsKeywordId :: !(Maybe (Textual Int64)) , _rrrsAdGroupId :: !(Maybe (Textual Int64)) , _rrrsEngineAccountId :: !(Maybe (Textual Int64)) @@ -1682,7 +1687,7 @@ reportRequestReportScope :: ReportRequestReportScope reportRequestReportScope = - ReportRequestReportScope + ReportRequestReportScope' { _rrrsKeywordId = Nothing , _rrrsAdGroupId = Nothing , _rrrsEngineAccountId = Nothing @@ -1743,7 +1748,7 @@ parseJSON = withObject "ReportRequestReportScope" (\ o -> - ReportRequestReportScope <$> + ReportRequestReportScope' <$> (o .:? "keywordId") <*> (o .:? "adGroupId") <*> (o .:? "engineAccountId") <*> (o .:? "agencyId") @@ -1752,7 +1757,7 @@ <*> (o .:? "adId")) instance ToJSON ReportRequestReportScope where - toJSON ReportRequestReportScope{..} + toJSON ReportRequestReportScope'{..} = object (catMaybes [("keywordId" .=) <$> _rrrsKeywordId, @@ -1769,7 +1774,7 @@ -- that are available from this list. -- -- /See:/ 'savedColumnList' smart constructor. -data SavedColumnList = SavedColumnList +data SavedColumnList = SavedColumnList' { _sclKind :: !Text , _sclItems :: !(Maybe [SavedColumn]) } deriving (Eq,Show,Data,Typeable,Generic) @@ -1784,7 +1789,7 @@ savedColumnList :: SavedColumnList savedColumnList = - SavedColumnList + SavedColumnList' { _sclKind = "doubleclicksearch#savedColumnList" , _sclItems = Nothing } @@ -1805,13 +1810,13 @@ parseJSON = withObject "SavedColumnList" (\ o -> - SavedColumnList <$> + SavedColumnList' <$> (o .:? "kind" .!= "doubleclicksearch#savedColumnList") <*> (o .:? "items" .!= mempty)) instance ToJSON SavedColumnList where - toJSON SavedColumnList{..} + toJSON SavedColumnList'{..} = object (catMaybes [Just ("kind" .= _sclKind), diff --git a/gen/Network/Google/DoubleClickSearch/Types/Sum.hs b/gen/Network/Google/DoubleClickSearch/Types/Sum.hs --- a/gen/Network/Google/DoubleClickSearch/Types/Sum.hs +++ b/gen/Network/Google/DoubleClickSearch/Types/Sum.hs @@ -8,7 +8,7 @@ -- | -- Module : Network.Google.DoubleClickSearch.Types.Sum --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated diff --git a/gen/Network/Google/Resource/DoubleClickSearch/Conversion/Get.hs b/gen/Network/Google/Resource/DoubleClickSearch/Conversion/Get.hs --- a/gen/Network/Google/Resource/DoubleClickSearch/Conversion/Get.hs +++ b/gen/Network/Google/Resource/DoubleClickSearch/Conversion/Get.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.DoubleClickSearch.Conversion.Get --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -77,7 +77,7 @@ -- account. -- -- /See:/ 'conversionGet' smart constructor. -data ConversionGet = ConversionGet +data ConversionGet = ConversionGet' { _cgAdGroupId :: !(Maybe (Textual Int64)) , _cgEngineAccountId :: !(Textual Int64) , _cgAgencyId :: !(Textual Int64) @@ -126,7 +126,7 @@ -> Int32 -- ^ 'cgRowCount' -> ConversionGet conversionGet pCgEngineAccountId_ pCgAgencyId_ pCgAdvertiserId_ pCgEndDate_ pCgStartDate_ pCgStartRow_ pCgRowCount_ = - ConversionGet + ConversionGet' { _cgAdGroupId = Nothing , _cgEngineAccountId = _Coerce # pCgEngineAccountId_ , _cgAgencyId = _Coerce # pCgAgencyId_ @@ -213,7 +213,9 @@ instance GoogleRequest ConversionGet where type Rs ConversionGet = ConversionList - requestClient ConversionGet{..} + type Scopes ConversionGet = + '["https://www.googleapis.com/auth/doubleclicksearch"] + requestClient ConversionGet'{..} = go _cgAgencyId _cgAdvertiserId _cgEngineAccountId (Just _cgEndDate) (Just _cgRowCount) diff --git a/gen/Network/Google/Resource/DoubleClickSearch/Conversion/Insert.hs b/gen/Network/Google/Resource/DoubleClickSearch/Conversion/Insert.hs --- a/gen/Network/Google/Resource/DoubleClickSearch/Conversion/Insert.hs +++ b/gen/Network/Google/Resource/DoubleClickSearch/Conversion/Insert.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.DoubleClickSearch.Conversion.Insert --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -52,7 +52,7 @@ -- | Inserts a batch of new conversions into DoubleClick Search. -- -- /See:/ 'conversionInsert' smart constructor. -newtype ConversionInsert = ConversionInsert +newtype ConversionInsert = ConversionInsert' { _ciPayload :: ConversionList } deriving (Eq,Show,Data,Typeable,Generic) @@ -65,7 +65,7 @@ :: ConversionList -- ^ 'ciPayload' -> ConversionInsert conversionInsert pCiPayload_ = - ConversionInsert + ConversionInsert' { _ciPayload = pCiPayload_ } @@ -76,7 +76,9 @@ instance GoogleRequest ConversionInsert where type Rs ConversionInsert = ConversionList - requestClient ConversionInsert{..} + type Scopes ConversionInsert = + '["https://www.googleapis.com/auth/doubleclicksearch"] + requestClient ConversionInsert'{..} = go (Just AltJSON) _ciPayload doubleClickSearchService where go diff --git a/gen/Network/Google/Resource/DoubleClickSearch/Conversion/Patch.hs b/gen/Network/Google/Resource/DoubleClickSearch/Conversion/Patch.hs --- a/gen/Network/Google/Resource/DoubleClickSearch/Conversion/Patch.hs +++ b/gen/Network/Google/Resource/DoubleClickSearch/Conversion/Patch.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.DoubleClickSearch.Conversion.Patch --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -68,7 +68,7 @@ -- supports patch semantics. -- -- /See:/ 'conversionPatch' smart constructor. -data ConversionPatch = ConversionPatch +data ConversionPatch = ConversionPatch' { _cpEngineAccountId :: !(Textual Int64) , _cpAgencyId :: !(Textual Int64) , _cpAdvertiserId :: !(Textual Int64) @@ -109,7 +109,7 @@ -> Int32 -- ^ 'cpRowCount' -> ConversionPatch conversionPatch pCpEngineAccountId_ pCpAgencyId_ pCpAdvertiserId_ pCpEndDate_ pCpPayload_ pCpStartDate_ pCpStartRow_ pCpRowCount_ = - ConversionPatch + ConversionPatch' { _cpEngineAccountId = _Coerce # pCpEngineAccountId_ , _cpAgencyId = _Coerce # pCpAgencyId_ , _cpAdvertiserId = _Coerce # pCpAdvertiserId_ @@ -173,7 +173,9 @@ instance GoogleRequest ConversionPatch where type Rs ConversionPatch = ConversionList - requestClient ConversionPatch{..} + type Scopes ConversionPatch = + '["https://www.googleapis.com/auth/doubleclicksearch"] + requestClient ConversionPatch'{..} = go (Just _cpAdvertiserId) (Just _cpAgencyId) (Just _cpEndDate) (Just _cpEngineAccountId) diff --git a/gen/Network/Google/Resource/DoubleClickSearch/Conversion/Update.hs b/gen/Network/Google/Resource/DoubleClickSearch/Conversion/Update.hs --- a/gen/Network/Google/Resource/DoubleClickSearch/Conversion/Update.hs +++ b/gen/Network/Google/Resource/DoubleClickSearch/Conversion/Update.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.DoubleClickSearch.Conversion.Update --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -52,7 +52,7 @@ -- | Updates a batch of conversions in DoubleClick Search. -- -- /See:/ 'conversionUpdate' smart constructor. -newtype ConversionUpdate = ConversionUpdate +newtype ConversionUpdate = ConversionUpdate' { _cuPayload :: ConversionList } deriving (Eq,Show,Data,Typeable,Generic) @@ -65,7 +65,7 @@ :: ConversionList -- ^ 'cuPayload' -> ConversionUpdate conversionUpdate pCuPayload_ = - ConversionUpdate + ConversionUpdate' { _cuPayload = pCuPayload_ } @@ -76,7 +76,9 @@ instance GoogleRequest ConversionUpdate where type Rs ConversionUpdate = ConversionList - requestClient ConversionUpdate{..} + type Scopes ConversionUpdate = + '["https://www.googleapis.com/auth/doubleclicksearch"] + requestClient ConversionUpdate'{..} = go (Just AltJSON) _cuPayload doubleClickSearchService where go diff --git a/gen/Network/Google/Resource/DoubleClickSearch/Conversion/UpdateAvailability.hs b/gen/Network/Google/Resource/DoubleClickSearch/Conversion/UpdateAvailability.hs --- a/gen/Network/Google/Resource/DoubleClickSearch/Conversion/UpdateAvailability.hs +++ b/gen/Network/Google/Resource/DoubleClickSearch/Conversion/UpdateAvailability.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.DoubleClickSearch.Conversion.UpdateAvailability --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -55,7 +55,7 @@ -- DoubleClick Search. -- -- /See:/ 'conversionUpdateAvailability' smart constructor. -newtype ConversionUpdateAvailability = ConversionUpdateAvailability +newtype ConversionUpdateAvailability = ConversionUpdateAvailability' { _cuaPayload :: UpdateAvailabilityRequest } deriving (Eq,Show,Data,Typeable,Generic) @@ -68,7 +68,7 @@ :: UpdateAvailabilityRequest -- ^ 'cuaPayload' -> ConversionUpdateAvailability conversionUpdateAvailability pCuaPayload_ = - ConversionUpdateAvailability + ConversionUpdateAvailability' { _cuaPayload = pCuaPayload_ } @@ -81,7 +81,9 @@ where type Rs ConversionUpdateAvailability = UpdateAvailabilityResponse - requestClient ConversionUpdateAvailability{..} + type Scopes ConversionUpdateAvailability = + '["https://www.googleapis.com/auth/doubleclicksearch"] + requestClient ConversionUpdateAvailability'{..} = go (Just AltJSON) _cuaPayload doubleClickSearchService where go diff --git a/gen/Network/Google/Resource/DoubleClickSearch/Reports/Generate.hs b/gen/Network/Google/Resource/DoubleClickSearch/Reports/Generate.hs --- a/gen/Network/Google/Resource/DoubleClickSearch/Reports/Generate.hs +++ b/gen/Network/Google/Resource/DoubleClickSearch/Reports/Generate.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.DoubleClickSearch.Reports.Generate --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -52,7 +52,7 @@ -- | Generates and returns a report immediately. -- -- /See:/ 'reportsGenerate' smart constructor. -newtype ReportsGenerate = ReportsGenerate +newtype ReportsGenerate = ReportsGenerate' { _rgPayload :: ReportRequest } deriving (Eq,Show,Data,Typeable,Generic) @@ -65,7 +65,7 @@ :: ReportRequest -- ^ 'rgPayload' -> ReportsGenerate reportsGenerate pRgPayload_ = - ReportsGenerate + ReportsGenerate' { _rgPayload = pRgPayload_ } @@ -76,7 +76,9 @@ instance GoogleRequest ReportsGenerate where type Rs ReportsGenerate = Report - requestClient ReportsGenerate{..} + type Scopes ReportsGenerate = + '["https://www.googleapis.com/auth/doubleclicksearch"] + requestClient ReportsGenerate'{..} = go (Just AltJSON) _rgPayload doubleClickSearchService where go diff --git a/gen/Network/Google/Resource/DoubleClickSearch/Reports/Get.hs b/gen/Network/Google/Resource/DoubleClickSearch/Reports/Get.hs --- a/gen/Network/Google/Resource/DoubleClickSearch/Reports/Get.hs +++ b/gen/Network/Google/Resource/DoubleClickSearch/Reports/Get.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.DoubleClickSearch.Reports.Get --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -51,7 +51,7 @@ -- | Polls for the status of a report request. -- -- /See:/ 'reportsGet' smart constructor. -newtype ReportsGet = ReportsGet +newtype ReportsGet = ReportsGet' { _rgReportId :: Text } deriving (Eq,Show,Data,Typeable,Generic) @@ -64,7 +64,7 @@ :: Text -- ^ 'rgReportId' -> ReportsGet reportsGet pRgReportId_ = - ReportsGet + ReportsGet' { _rgReportId = pRgReportId_ } @@ -75,7 +75,9 @@ instance GoogleRequest ReportsGet where type Rs ReportsGet = Report - requestClient ReportsGet{..} + type Scopes ReportsGet = + '["https://www.googleapis.com/auth/doubleclicksearch"] + requestClient ReportsGet'{..} = go _rgReportId (Just AltJSON) doubleClickSearchService where go diff --git a/gen/Network/Google/Resource/DoubleClickSearch/Reports/GetFile.hs b/gen/Network/Google/Resource/DoubleClickSearch/Reports/GetFile.hs --- a/gen/Network/Google/Resource/DoubleClickSearch/Reports/GetFile.hs +++ b/gen/Network/Google/Resource/DoubleClickSearch/Reports/GetFile.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.DoubleClickSearch.Reports.GetFile --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -63,7 +63,7 @@ -- | Downloads a report file encoded in UTF-8. -- -- /See:/ 'reportsGetFile' smart constructor. -data ReportsGetFile = ReportsGetFile +data ReportsGetFile = ReportsGetFile' { _rgfReportId :: !Text , _rgfReportFragment :: !(Textual Int32) } deriving (Eq,Show,Data,Typeable,Generic) @@ -80,7 +80,7 @@ -> Int32 -- ^ 'rgfReportFragment' -> ReportsGetFile reportsGetFile pRgfReportId_ pRgfReportFragment_ = - ReportsGetFile + ReportsGetFile' { _rgfReportId = pRgfReportId_ , _rgfReportFragment = _Coerce # pRgfReportFragment_ } @@ -99,7 +99,9 @@ instance GoogleRequest ReportsGetFile where type Rs ReportsGetFile = () - requestClient ReportsGetFile{..} + type Scopes ReportsGetFile = + '["https://www.googleapis.com/auth/doubleclicksearch"] + requestClient ReportsGetFile'{..} = go _rgfReportId _rgfReportFragment (Just AltJSON) doubleClickSearchService where go :<|> _ @@ -109,7 +111,9 @@ instance GoogleRequest (MediaDownload ReportsGetFile) where type Rs (MediaDownload ReportsGetFile) = Stream - requestClient (MediaDownload ReportsGetFile{..}) + type Scopes (MediaDownload ReportsGetFile) = + Scopes ReportsGetFile + requestClient (MediaDownload ReportsGetFile'{..}) = go _rgfReportId _rgfReportFragment (Just AltMedia) doubleClickSearchService where _ :<|> go diff --git a/gen/Network/Google/Resource/DoubleClickSearch/Reports/Request.hs b/gen/Network/Google/Resource/DoubleClickSearch/Reports/Request.hs --- a/gen/Network/Google/Resource/DoubleClickSearch/Reports/Request.hs +++ b/gen/Network/Google/Resource/DoubleClickSearch/Reports/Request.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.DoubleClickSearch.Reports.Request --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -51,7 +51,7 @@ -- | Inserts a report request into the reporting system. -- -- /See:/ 'reportsRequest' smart constructor. -newtype ReportsRequest = ReportsRequest +newtype ReportsRequest = ReportsRequest' { _rrPayload :: ReportRequest } deriving (Eq,Show,Data,Typeable,Generic) @@ -64,7 +64,7 @@ :: ReportRequest -- ^ 'rrPayload' -> ReportsRequest reportsRequest pRrPayload_ = - ReportsRequest + ReportsRequest' { _rrPayload = pRrPayload_ } @@ -75,7 +75,9 @@ instance GoogleRequest ReportsRequest where type Rs ReportsRequest = Report - requestClient ReportsRequest{..} + type Scopes ReportsRequest = + '["https://www.googleapis.com/auth/doubleclicksearch"] + requestClient ReportsRequest'{..} = go (Just AltJSON) _rrPayload doubleClickSearchService where go diff --git a/gen/Network/Google/Resource/DoubleClickSearch/SavedColumns/List.hs b/gen/Network/Google/Resource/DoubleClickSearch/SavedColumns/List.hs --- a/gen/Network/Google/Resource/DoubleClickSearch/SavedColumns/List.hs +++ b/gen/Network/Google/Resource/DoubleClickSearch/SavedColumns/List.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.DoubleClickSearch.SavedColumns.List --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -56,7 +56,7 @@ -- | Retrieve the list of saved columns for a specified advertiser. -- -- /See:/ 'savedColumnsList' smart constructor. -data SavedColumnsList = SavedColumnsList +data SavedColumnsList = SavedColumnsList' { _sclAgencyId :: !(Textual Int64) , _sclAdvertiserId :: !(Textual Int64) } deriving (Eq,Show,Data,Typeable,Generic) @@ -73,7 +73,7 @@ -> Int64 -- ^ 'sclAdvertiserId' -> SavedColumnsList savedColumnsList pSclAgencyId_ pSclAdvertiserId_ = - SavedColumnsList + SavedColumnsList' { _sclAgencyId = _Coerce # pSclAgencyId_ , _sclAdvertiserId = _Coerce # pSclAdvertiserId_ } @@ -93,7 +93,9 @@ instance GoogleRequest SavedColumnsList where type Rs SavedColumnsList = SavedColumnList - requestClient SavedColumnsList{..} + type Scopes SavedColumnsList = + '["https://www.googleapis.com/auth/doubleclicksearch"] + requestClient SavedColumnsList'{..} = go _sclAgencyId _sclAdvertiserId (Just AltJSON) doubleClickSearchService where go diff --git a/gogol-doubleclick-search.cabal b/gogol-doubleclick-search.cabal --- a/gogol-doubleclick-search.cabal +++ b/gogol-doubleclick-search.cabal @@ -1,5 +1,5 @@ name: gogol-doubleclick-search -version: 0.0.1 +version: 0.1.0 synopsis: Google DoubleClick Search SDK. homepage: https://github.com/brendanhay/gogol bug-reports: https://github.com/brendanhay/gogol/issues @@ -7,14 +7,14 @@ license-file: LICENSE author: Brendan Hay maintainer: Brendan Hay -copyright: Copyright (c) 2015 Brendan Hay +copyright: Copyright (c) 2015-2016 Brendan Hay category: Network, Google, Cloud build-type: Simple cabal-version: >= 1.10 extra-source-files: README.md description: - Report and modify your advertising data in DoubleClick Search (for + Reports and modifies your advertising data in DoubleClick Search (for example, campaigns, ad groups, keywords, and conversions). . /Warning:/ This is an experimental prototype/preview release which is still @@ -52,5 +52,5 @@ , Network.Google.DoubleClickSearch.Types.Sum build-depends: - gogol-core == 0.0.1.* + gogol-core == 0.1.0.* , base >= 4.7 && < 5