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/Affiliates.hs b/gen/Network/Google/Affiliates.hs --- a/gen/Network/Google/Affiliates.hs +++ b/gen/Network/Google/Affiliates.hs @@ -7,7 +7,7 @@ -- | -- Module : Network.Google.Affiliates --- 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/Affiliates/Types.hs b/gen/Network/Google/Affiliates/Types.hs --- a/gen/Network/Google/Affiliates/Types.hs +++ b/gen/Network/Google/Affiliates/Types.hs @@ -1,3 +1,4 @@ +{-# LANGUAGE DataKinds #-} {-# LANGUAGE DeriveDataTypeable #-} {-# LANGUAGE DeriveGeneric #-} {-# LANGUAGE NoImplicitPrelude #-} @@ -7,7 +8,7 @@ -- | -- Module : Network.Google.Affiliates.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 @@ -345,7 +346,7 @@ import Network.Google.Prelude -- | Default request referring to version 'v1beta1' of the Google Affiliate Network API. This contains the host and root path used as a starting point for constructing service requests. -affiliatesService :: Service +affiliatesService :: ServiceConfig affiliatesService = defaultService (ServiceId "gan:v1beta1") "www.googleapis.com" diff --git a/gen/Network/Google/Affiliates/Types/Product.hs b/gen/Network/Google/Affiliates/Types/Product.hs --- a/gen/Network/Google/Affiliates/Types/Product.hs +++ b/gen/Network/Google/Affiliates/Types/Product.hs @@ -9,7 +9,7 @@ -- | -- Module : Network.Google.Affiliates.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 @@ -- | An EventResource. -- -- /See:/ 'event' smart constructor. -data Event = Event +data Event = Event' { _eModifyDate :: !(Maybe DateTime') , _eStatus :: !(Maybe Text) , _eCommissionableSales :: !(Maybe Money) @@ -86,7 +86,7 @@ event :: Event event = - Event + Event' { _eModifyDate = Nothing , _eStatus = Nothing , _eCommissionableSales = Nothing @@ -214,7 +214,7 @@ parseJSON = withObject "Event" (\ o -> - Event <$> + Event' <$> (o .:? "modifyDate") <*> (o .:? "status") <*> (o .:? "commissionableSales") <*> (o .:? "chargeId") @@ -234,7 +234,7 @@ <*> (o .:? "publisherName")) instance ToJSON Event where - toJSON Event{..} + toJSON Event'{..} = object (catMaybes [("modifyDate" .=) <$> _eModifyDate, @@ -258,7 +258,7 @@ -- | An ApiMoneyProto. -- -- /See:/ 'money' smart constructor. -data Money = Money +data Money = Money' { _mAmount :: !(Maybe (Textual Double)) , _mCurrencyCode :: !(Maybe Text) } deriving (Eq,Show,Data,Typeable,Generic) @@ -273,7 +273,7 @@ money :: Money money = - Money + Money' { _mAmount = Nothing , _mCurrencyCode = Nothing } @@ -294,11 +294,11 @@ parseJSON = withObject "Money" (\ o -> - Money <$> + Money' <$> (o .:? "amount") <*> (o .:? "currencyCode")) instance ToJSON Money where - toJSON Money{..} + toJSON Money'{..} = object (catMaybes [("amount" .=) <$> _mAmount, @@ -307,7 +307,7 @@ -- | A LinkResource. -- -- /See:/ 'link' smart constructor. -data Link = Link +data Link = Link' { _lAuthorship :: !(Maybe Text) , _lDestinationURL :: !(Maybe Text) , _lClickTrackingURL :: !(Maybe Text) @@ -379,7 +379,7 @@ link :: Link link = - Link + Link' { _lAuthorship = Nothing , _lDestinationURL = Nothing , _lClickTrackingURL = Nothing @@ -528,7 +528,7 @@ parseJSON = withObject "Link" (\ o -> - Link <$> + Link' <$> (o .:? "authorship") <*> (o .:? "destinationUrl") <*> (o .:? "clickTrackingUrl") <*> (o .:? "createDate") @@ -551,7 +551,7 @@ <*> (o .:? "description")) instance ToJSON Link where - toJSON Link{..} + toJSON Link'{..} = object (catMaybes [("authorship" .=) <$> _lAuthorship, @@ -579,7 +579,7 @@ -- -- /See:/ 'ccOffers' smart constructor. -data CcOffers = CcOffers +data CcOffers = CcOffers' { _coKind :: !Text , _coItems :: !(Maybe [CcOffer]) } deriving (Eq,Show,Data,Typeable,Generic) @@ -594,7 +594,7 @@ ccOffers :: CcOffers ccOffers = - CcOffers + CcOffers' { _coKind = "gan#ccOffers" , _coItems = Nothing } @@ -613,12 +613,12 @@ parseJSON = withObject "CcOffers" (\ o -> - CcOffers <$> + CcOffers' <$> (o .:? "kind" .!= "gan#ccOffers") <*> (o .:? "items" .!= mempty)) instance ToJSON CcOffers where - toJSON CcOffers{..} + toJSON CcOffers'{..} = object (catMaybes [Just ("kind" .= _coKind), @@ -626,7 +626,7 @@ -- -- /See:/ 'ccOfferDefaultFeesItem' smart constructor. -data CcOfferDefaultFeesItem = CcOfferDefaultFeesItem +data CcOfferDefaultFeesItem = CcOfferDefaultFeesItem' { _codfiRateType :: !(Maybe Text) , _codfiMinRate :: !(Maybe (Textual Double)) , _codfiCategory :: !(Maybe Text) @@ -647,7 +647,7 @@ ccOfferDefaultFeesItem :: CcOfferDefaultFeesItem ccOfferDefaultFeesItem = - CcOfferDefaultFeesItem + CcOfferDefaultFeesItem' { _codfiRateType = Nothing , _codfiMinRate = Nothing , _codfiCategory = Nothing @@ -684,13 +684,13 @@ parseJSON = withObject "CcOfferDefaultFeesItem" (\ o -> - CcOfferDefaultFeesItem <$> + CcOfferDefaultFeesItem' <$> (o .:? "rateType") <*> (o .:? "minRate") <*> (o .:? "category") <*> (o .:? "maxRate")) instance ToJSON CcOfferDefaultFeesItem where - toJSON CcOfferDefaultFeesItem{..} + toJSON CcOfferDefaultFeesItem'{..} = object (catMaybes [("rateType" .=) <$> _codfiRateType, @@ -702,7 +702,7 @@ -- advertiser or publisher. -- -- /See:/ 'report' smart constructor. -data Report = Report +data Report = Report' { _rEndDate :: !(Maybe Text) , _rTotalsRows :: !(Maybe [[JSONValue]]) , _rKind :: !Text @@ -735,7 +735,7 @@ report :: Report report = - Report + Report' { _rEndDate = Nothing , _rTotalsRows = Nothing , _rKind = "gan#report" @@ -794,7 +794,7 @@ parseJSON = withObject "Report" (\ o -> - Report <$> + Report' <$> (o .:? "end_date") <*> (o .:? "totals_rows" .!= mempty) <*> (o .:? "kind" .!= "gan#report") @@ -805,7 +805,7 @@ <*> (o .:? "type")) instance ToJSON Report where - toJSON Report{..} + toJSON Report'{..} = object (catMaybes [("end_date" .=) <$> _rEndDate, @@ -819,7 +819,7 @@ -- -- /See:/ 'advertisers' smart constructor. -data Advertisers = Advertisers +data Advertisers = Advertisers' { _aNextPageToken :: !(Maybe Text) , _aKind :: !Text , _aItems :: !(Maybe [Advertiser]) @@ -837,7 +837,7 @@ advertisers :: Advertisers advertisers = - Advertisers + Advertisers' { _aNextPageToken = Nothing , _aKind = "gan#advertisers" , _aItems = Nothing @@ -864,13 +864,13 @@ parseJSON = withObject "Advertisers" (\ o -> - Advertisers <$> + Advertisers' <$> (o .:? "nextPageToken") <*> (o .:? "kind" .!= "gan#advertisers") <*> (o .:? "items" .!= mempty)) instance ToJSON Advertisers where - toJSON Advertisers{..} + toJSON Advertisers'{..} = object (catMaybes [("nextPageToken" .=) <$> _aNextPageToken, @@ -878,7 +878,7 @@ -- -- /See:/ 'eventProductsItem' smart constructor. -data EventProductsItem = EventProductsItem +data EventProductsItem = EventProductsItem' { _epiSKUName :: !(Maybe Text) , _epiNetworkFee :: !(Maybe Money) , _epiQuantity :: !(Maybe (Textual Int64)) @@ -914,7 +914,7 @@ eventProductsItem :: EventProductsItem eventProductsItem = - EventProductsItem + EventProductsItem' { _epiSKUName = Nothing , _epiNetworkFee = Nothing , _epiQuantity = Nothing @@ -980,7 +980,7 @@ parseJSON = withObject "EventProductsItem" (\ o -> - EventProductsItem <$> + EventProductsItem' <$> (o .:? "skuName") <*> (o .:? "networkFee") <*> (o .:? "quantity") <*> (o .:? "categoryName") @@ -991,7 +991,7 @@ <*> (o .:? "earnings")) instance ToJSON EventProductsItem where - toJSON EventProductsItem{..} + toJSON EventProductsItem'{..} = object (catMaybes [("skuName" .=) <$> _epiSKUName, @@ -1006,7 +1006,7 @@ -- -- /See:/ 'ccOfferBonusRewardsItem' smart constructor. -data CcOfferBonusRewardsItem = CcOfferBonusRewardsItem +data CcOfferBonusRewardsItem = CcOfferBonusRewardsItem' { _cobriAmount :: !(Maybe (Textual Double)) , _cobriDetails :: !(Maybe Text) } deriving (Eq,Show,Data,Typeable,Generic) @@ -1021,7 +1021,7 @@ ccOfferBonusRewardsItem :: CcOfferBonusRewardsItem ccOfferBonusRewardsItem = - CcOfferBonusRewardsItem + CcOfferBonusRewardsItem' { _cobriAmount = Nothing , _cobriDetails = Nothing } @@ -1042,11 +1042,11 @@ parseJSON = withObject "CcOfferBonusRewardsItem" (\ o -> - CcOfferBonusRewardsItem <$> + CcOfferBonusRewardsItem' <$> (o .:? "amount") <*> (o .:? "details")) instance ToJSON CcOfferBonusRewardsItem where - toJSON CcOfferBonusRewardsItem{..} + toJSON CcOfferBonusRewardsItem'{..} = object (catMaybes [("amount" .=) <$> _cobriAmount, @@ -1054,7 +1054,7 @@ -- -- /See:/ 'events' smart constructor. -data Events = Events +data Events = Events' { _eveNextPageToken :: !(Maybe Text) , _eveKind :: !Text , _eveItems :: !(Maybe [Event]) @@ -1072,7 +1072,7 @@ events :: Events events = - Events + Events' { _eveNextPageToken = Nothing , _eveKind = "gan#events" , _eveItems = Nothing @@ -1100,13 +1100,13 @@ parseJSON = withObject "Events" (\ o -> - Events <$> + Events' <$> (o .:? "nextPageToken") <*> (o .:? "kind" .!= "gan#events") <*> (o .:? "items" .!= mempty)) instance ToJSON Events where - toJSON Events{..} + toJSON Events'{..} = object (catMaybes [("nextPageToken" .=) <$> _eveNextPageToken, @@ -1116,7 +1116,7 @@ -- | Special offers on the link. -- -- /See:/ 'linkSpecialOffers' smart constructor. -data LinkSpecialOffers = LinkSpecialOffers +data LinkSpecialOffers = LinkSpecialOffers' { _lsoFreeShippingMin :: !(Maybe Money) , _lsoPercentOff :: !(Maybe (Textual Double)) , _lsoPriceCut :: !(Maybe Money) @@ -1149,7 +1149,7 @@ linkSpecialOffers :: LinkSpecialOffers linkSpecialOffers = - LinkSpecialOffers + LinkSpecialOffers' { _lsoFreeShippingMin = Nothing , _lsoPercentOff = Nothing , _lsoPriceCut = Nothing @@ -1213,7 +1213,7 @@ parseJSON = withObject "LinkSpecialOffers" (\ o -> - LinkSpecialOffers <$> + LinkSpecialOffers' <$> (o .:? "freeShippingMin") <*> (o .:? "percentOff") <*> (o .:? "priceCut") <*> (o .:? "priceCutMin") @@ -1223,7 +1223,7 @@ <*> (o .:? "freeGift")) instance ToJSON LinkSpecialOffers where - toJSON LinkSpecialOffers{..} + toJSON LinkSpecialOffers'{..} = object (catMaybes [("freeShippingMin" .=) <$> _lsoFreeShippingMin, @@ -1237,7 +1237,7 @@ -- -- /See:/ 'publishers' smart constructor. -data Publishers = Publishers +data Publishers = Publishers' { _pNextPageToken :: !(Maybe Text) , _pKind :: !Text , _pItems :: !(Maybe [Publisher]) @@ -1255,7 +1255,7 @@ publishers :: Publishers publishers = - Publishers + Publishers' { _pNextPageToken = Nothing , _pKind = "gan#publishers" , _pItems = Nothing @@ -1282,13 +1282,13 @@ parseJSON = withObject "Publishers" (\ o -> - Publishers <$> + Publishers' <$> (o .:? "nextPageToken") <*> (o .:? "kind" .!= "gan#publishers") <*> (o .:? "items" .!= mempty)) instance ToJSON Publishers where - toJSON Publishers{..} + toJSON Publishers'{..} = object (catMaybes [("nextPageToken" .=) <$> _pNextPageToken, @@ -1297,7 +1297,7 @@ -- | An AdvertiserResource. -- -- /See:/ 'advertiser' smart constructor. -data Advertiser = Advertiser +data Advertiser = Advertiser' { _advAllowPublisherCreatedLinks :: !(Maybe Bool) , _advContactPhone :: !(Maybe Text) , _advContactEmail :: !(Maybe Text) @@ -1369,7 +1369,7 @@ advertiser :: Advertiser advertiser = - Advertiser + Advertiser' { _advAllowPublisherCreatedLinks = Nothing , _advContactPhone = Nothing , _advContactEmail = Nothing @@ -1529,7 +1529,7 @@ parseJSON = withObject "Advertiser" (\ o -> - Advertiser <$> + Advertiser' <$> (o .:? "allowPublisherCreatedLinks") <*> (o .:? "contactPhone") <*> (o .:? "contactEmail") @@ -1553,7 +1553,7 @@ <*> (o .:? "description")) instance ToJSON Advertiser where - toJSON Advertiser{..} + toJSON Advertiser'{..} = object (catMaybes [("allowPublisherCreatedLinks" .=) <$> @@ -1588,7 +1588,7 @@ -- descriptions. -- -- /See:/ 'ccOffer' smart constructor. -data CcOffer = CcOffer +data CcOffer = CcOffer' { _cMinimumFinanceCharge :: !(Maybe Text) , _cTrackingURL :: !(Maybe Text) , _cProhibitedCategories :: !(Maybe [Text]) @@ -1786,7 +1786,7 @@ ccOffer :: CcOffer ccOffer = - CcOffer + CcOffer' { _cMinimumFinanceCharge = Nothing , _cTrackingURL = Nothing , _cProhibitedCategories = Nothing @@ -2271,7 +2271,7 @@ parseJSON = withObject "CcOffer" (\ o -> - CcOffer <$> + CcOffer' <$> (o .:? "minimumFinanceCharge") <*> (o .:? "trackingUrl") <*> (o .:? "prohibitedCategories" .!= mempty) @@ -2337,7 +2337,7 @@ <*> (o .:? "purchaseRateType")) instance ToJSON CcOffer where - toJSON CcOffer{..} + toJSON CcOffer'{..} = object (catMaybes [("minimumFinanceCharge" .=) <$> @@ -2423,7 +2423,7 @@ -- -- /See:/ 'links' smart constructor. -data Links = Links +data Links = Links' { _linNextPageToken :: !(Maybe Text) , _linKind :: !Text , _linItems :: !(Maybe [Link]) @@ -2441,7 +2441,7 @@ links :: Links links = - Links + Links' { _linNextPageToken = Nothing , _linKind = "gan#links" , _linItems = Nothing @@ -2468,13 +2468,13 @@ parseJSON = withObject "Links" (\ o -> - Links <$> + Links' <$> (o .:? "nextPageToken") <*> (o .:? "kind" .!= "gan#links") <*> (o .:? "items" .!= mempty)) instance ToJSON Links where - toJSON Links{..} + toJSON Links'{..} = object (catMaybes [("nextPageToken" .=) <$> _linNextPageToken, @@ -2484,7 +2484,7 @@ -- | A PublisherResource. -- -- /See:/ 'publisher' smart constructor. -data Publisher = Publisher +data Publisher = Publisher' { _pubStatus :: !(Maybe Text) , _pubKind :: !Text , _pubPayoutRank :: !(Maybe Text) @@ -2526,7 +2526,7 @@ publisher :: Publisher publisher = - Publisher + Publisher' { _pubStatus = Nothing , _pubKind = "gan#publisher" , _pubPayoutRank = Nothing @@ -2614,7 +2614,7 @@ parseJSON = withObject "Publisher" (\ o -> - Publisher <$> + Publisher' <$> (o .:? "status") <*> (o .:? "kind" .!= "gan#publisher") <*> (o .:? "payoutRank") @@ -2628,7 +2628,7 @@ <*> (o .:? "sites" .!= mempty)) instance ToJSON Publisher where - toJSON Publisher{..} + toJSON Publisher'{..} = object (catMaybes [("status" .=) <$> _pubStatus, @@ -2645,7 +2645,7 @@ -- -- /See:/ 'ccOfferRewardsItem' smart constructor. -data CcOfferRewardsItem = CcOfferRewardsItem +data CcOfferRewardsItem = CcOfferRewardsItem' { _coriAmount :: !(Maybe (Textual Double)) , _coriExpirationMonths :: !(Maybe (Textual Double)) , _coriCategory :: !(Maybe Text) @@ -2672,7 +2672,7 @@ ccOfferRewardsItem :: CcOfferRewardsItem ccOfferRewardsItem = - CcOfferRewardsItem + CcOfferRewardsItem' { _coriAmount = Nothing , _coriExpirationMonths = Nothing , _coriCategory = Nothing @@ -2726,7 +2726,7 @@ parseJSON = withObject "CcOfferRewardsItem" (\ o -> - CcOfferRewardsItem <$> + CcOfferRewardsItem' <$> (o .:? "amount") <*> (o .:? "expirationMonths") <*> (o .:? "category") <*> (o .:? "additionalDetails") @@ -2734,7 +2734,7 @@ <*> (o .:? "minRewardTier")) instance ToJSON CcOfferRewardsItem where - toJSON CcOfferRewardsItem{..} + toJSON CcOfferRewardsItem'{..} = object (catMaybes [("amount" .=) <$> _coriAmount, diff --git a/gen/Network/Google/Affiliates/Types/Sum.hs b/gen/Network/Google/Affiliates/Types/Sum.hs --- a/gen/Network/Google/Affiliates/Types/Sum.hs +++ b/gen/Network/Google/Affiliates/Types/Sum.hs @@ -8,7 +8,7 @@ -- | -- Module : Network.Google.Affiliates.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 @@ -27,18 +27,18 @@ | PGRPublishers -- ^ @publishers@ -- The requester is requesting as a publisher. - deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic) + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) instance Hashable PublishersGetRole -instance FromText PublishersGetRole where - fromText = \case - "advertisers" -> Just PGRAdvertisers - "publishers" -> Just PGRPublishers - _ -> Nothing +instance FromHttpApiData PublishersGetRole where + parseQueryParam = \case + "advertisers" -> Right PGRAdvertisers + "publishers" -> Right PGRPublishers + x -> Left ("Unable to parse PublishersGetRole from: " <> x) -instance ToText PublishersGetRole where - toText = \case +instance ToHttpApiData PublishersGetRole where + toQueryParam = \case PGRAdvertisers -> "advertisers" PGRPublishers -> "publishers" @@ -60,19 +60,19 @@ | Transaction -- ^ @transaction@ -- Event type is transaction. - deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic) + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) instance Hashable ReportsGetEventType -instance FromText ReportsGetEventType where - fromText = \case - "action" -> Just Action - "charge" -> Just Charge - "transaction" -> Just Transaction - _ -> Nothing +instance FromHttpApiData ReportsGetEventType where + parseQueryParam = \case + "action" -> Right Action + "charge" -> Right Charge + "transaction" -> Right Transaction + x -> Left ("Unable to parse ReportsGetEventType from: " <> x) -instance ToText ReportsGetEventType where - toText = \case +instance ToHttpApiData ReportsGetEventType where + toQueryParam = \case Action -> "action" Charge -> "charge" Transaction -> "transaction" @@ -95,19 +95,19 @@ | Invalid -- ^ @invalid@ -- Event is currently invalid. - deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic) + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) instance Hashable ReportsGetStatus -instance FromText ReportsGetStatus where - fromText = \case - "active" -> Just Active - "canceled" -> Just Canceled - "invalid" -> Just Invalid - _ -> Nothing +instance FromHttpApiData ReportsGetStatus where + parseQueryParam = \case + "active" -> Right Active + "canceled" -> Right Canceled + "invalid" -> Right Invalid + x -> Left ("Unable to parse ReportsGetStatus from: " <> x) -instance ToText ReportsGetStatus where - toText = \case +instance ToHttpApiData ReportsGetStatus where + toQueryParam = \case Active -> "active" Canceled -> "canceled" Invalid -> "invalid" @@ -130,21 +130,21 @@ -- ^ @percent_off@ | PriceCut -- ^ @price_cut@ - deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic) + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) instance Hashable LinksListPromotionType -instance FromText LinksListPromotionType where - fromText = \case - "coupon" -> Just Coupon - "free_gift" -> Just FreeGift - "free_shipping" -> Just FreeShipping - "percent_off" -> Just PercentOff - "price_cut" -> Just PriceCut - _ -> Nothing +instance FromHttpApiData LinksListPromotionType where + parseQueryParam = \case + "coupon" -> Right Coupon + "free_gift" -> Right FreeGift + "free_shipping" -> Right FreeShipping + "percent_off" -> Right PercentOff + "price_cut" -> Right PriceCut + x -> Left ("Unable to parse LinksListPromotionType from: " <> x) -instance ToText LinksListPromotionType where - toText = \case +instance ToHttpApiData LinksListPromotionType where + toQueryParam = \case Coupon -> "coupon" FreeGift -> "free_gift" FreeShipping -> "free_shipping" @@ -174,19 +174,19 @@ -- A conversion event, typically an e-commerce transaction. Some -- advertisers use a transaction to record other types of events, such as -- magazine subscriptions. - deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic) + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) instance Hashable EventsListType -instance FromText EventsListType where - fromText = \case - "action" -> Just ELTAction - "charge" -> Just ELTCharge - "transaction" -> Just ELTTransaction - _ -> Nothing +instance FromHttpApiData EventsListType where + parseQueryParam = \case + "action" -> Right ELTAction + "charge" -> Right ELTCharge + "transaction" -> Right ELTTransaction + x -> Left ("Unable to parse EventsListType from: " <> x) -instance ToText EventsListType where - toText = \case +instance ToHttpApiData EventsListType where + toQueryParam = \case ELTAction -> "action" ELTCharge -> "charge" ELTTransaction -> "transaction" @@ -206,18 +206,18 @@ | LLRPublishers -- ^ @publishers@ -- The requester is requesting as a publisher. - deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic) + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) instance Hashable LinksListRole -instance FromText LinksListRole where - fromText = \case - "advertisers" -> Just LLRAdvertisers - "publishers" -> Just LLRPublishers - _ -> Nothing +instance FromHttpApiData LinksListRole where + parseQueryParam = \case + "advertisers" -> Right LLRAdvertisers + "publishers" -> Right LLRPublishers + x -> Left ("Unable to parse LinksListRole from: " <> x) -instance ToText LinksListRole where - toText = \case +instance ToHttpApiData LinksListRole where + toQueryParam = \case LLRAdvertisers -> "advertisers" LLRPublishers -> "publishers" @@ -233,17 +233,17 @@ = OrderDelta -- ^ @order_delta@ -- The order delta report type. - deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic) + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) instance Hashable ReportsGetReportType -instance FromText ReportsGetReportType where - fromText = \case - "order_delta" -> Just OrderDelta - _ -> Nothing +instance FromHttpApiData ReportsGetReportType where + parseQueryParam = \case + "order_delta" -> Right OrderDelta + x -> Left ("Unable to parse ReportsGetReportType from: " <> x) -instance ToText ReportsGetReportType where - toText = \case +instance ToHttpApiData ReportsGetReportType where + toQueryParam = \case OrderDelta -> "order_delta" instance FromJSON ReportsGetReportType where @@ -261,18 +261,18 @@ | ALRPublishers -- ^ @publishers@ -- The requester is requesting as a publisher. - deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic) + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) instance Hashable AdvertisersListRole -instance FromText AdvertisersListRole where - fromText = \case - "advertisers" -> Just ALRAdvertisers - "publishers" -> Just ALRPublishers - _ -> Nothing +instance FromHttpApiData AdvertisersListRole where + parseQueryParam = \case + "advertisers" -> Right ALRAdvertisers + "publishers" -> Right ALRPublishers + x -> Left ("Unable to parse AdvertisersListRole from: " <> x) -instance ToText AdvertisersListRole where - toText = \case +instance ToHttpApiData AdvertisersListRole where + toQueryParam = \case ALRAdvertisers -> "advertisers" ALRPublishers -> "publishers" @@ -291,18 +291,18 @@ | LIRPublishers -- ^ @publishers@ -- The requester is requesting as a publisher. - deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic) + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) instance Hashable LinksInsertRole -instance FromText LinksInsertRole where - fromText = \case - "advertisers" -> Just LIRAdvertisers - "publishers" -> Just LIRPublishers - _ -> Nothing +instance FromHttpApiData LinksInsertRole where + parseQueryParam = \case + "advertisers" -> Right LIRAdvertisers + "publishers" -> Right LIRPublishers + x -> Left ("Unable to parse LinksInsertRole from: " <> x) -instance ToText LinksInsertRole where - toText = \case +instance ToHttpApiData LinksInsertRole where + toQueryParam = \case LIRAdvertisers -> "advertisers" LIRPublishers -> "publishers" @@ -321,18 +321,18 @@ | PLRPublishers -- ^ @publishers@ -- The requester is requesting as a publisher. - deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic) + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) instance Hashable PublishersListRole -instance FromText PublishersListRole where - fromText = \case - "advertisers" -> Just PLRAdvertisers - "publishers" -> Just PLRPublishers - _ -> Nothing +instance FromHttpApiData PublishersListRole where + parseQueryParam = \case + "advertisers" -> Right PLRAdvertisers + "publishers" -> Right PLRPublishers + x -> Left ("Unable to parse PublishersListRole from: " <> x) -instance ToText PublishersListRole where - toText = \case +instance ToHttpApiData PublishersListRole where + toQueryParam = \case PLRAdvertisers -> "advertisers" PLRPublishers -> "publishers" @@ -348,18 +348,18 @@ -- ^ @advertiser@ | LLAPublisher -- ^ @publisher@ - deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic) + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) instance Hashable LinksListAuthorship -instance FromText LinksListAuthorship where - fromText = \case - "advertiser" -> Just LLAAdvertiser - "publisher" -> Just LLAPublisher - _ -> Nothing +instance FromHttpApiData LinksListAuthorship where + parseQueryParam = \case + "advertiser" -> Right LLAAdvertiser + "publisher" -> Right LLAPublisher + x -> Left ("Unable to parse LinksListAuthorship from: " <> x) -instance ToText LinksListAuthorship where - toText = \case +instance ToHttpApiData LinksListAuthorship where + toQueryParam = \case LLAAdvertiser -> "advertiser" LLAPublisher -> "publisher" @@ -378,18 +378,18 @@ | LGRPublishers -- ^ @publishers@ -- The requester is requesting as a publisher. - deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic) + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) instance Hashable LinksGetRole -instance FromText LinksGetRole where - fromText = \case - "advertisers" -> Just LGRAdvertisers - "publishers" -> Just LGRPublishers - _ -> Nothing +instance FromHttpApiData LinksGetRole where + parseQueryParam = \case + "advertisers" -> Right LGRAdvertisers + "publishers" -> Right LGRPublishers + x -> Left ("Unable to parse LinksGetRole from: " <> x) -instance ToText LinksGetRole where - toText = \case +instance ToHttpApiData LinksGetRole where + toQueryParam = \case LGRAdvertisers -> "advertisers" LGRPublishers -> "publishers" @@ -405,18 +405,18 @@ -- ^ @banner@ | Text -- ^ @text@ - deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic) + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) instance Hashable LinksListLinkType -instance FromText LinksListLinkType where - fromText = \case - "banner" -> Just Banner - "text" -> Just Text - _ -> Nothing +instance FromHttpApiData LinksListLinkType where + parseQueryParam = \case + "banner" -> Right Banner + "text" -> Right Text + x -> Left ("Unable to parse LinksListLinkType from: " <> x) -instance ToText LinksListLinkType where - toText = \case +instance ToHttpApiData LinksListLinkType where + toQueryParam = \case Banner -> "banner" Text -> "text" @@ -435,18 +435,18 @@ | ELRPublishers -- ^ @publishers@ -- The requester is requesting as a publisher. - deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic) + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) instance Hashable EventsListRole -instance FromText EventsListRole where - fromText = \case - "advertisers" -> Just ELRAdvertisers - "publishers" -> Just ELRPublishers - _ -> Nothing +instance FromHttpApiData EventsListRole where + parseQueryParam = \case + "advertisers" -> Right ELRAdvertisers + "publishers" -> Right ELRPublishers + x -> Left ("Unable to parse EventsListRole from: " <> x) -instance ToText EventsListRole where - toText = \case +instance ToHttpApiData EventsListRole where + toQueryParam = \case ELRAdvertisers -> "advertisers" ELRPublishers -> "publishers" @@ -477,21 +477,21 @@ -- ^ @pending@ -- An advertiser program that you\'ve already applied to, but they haven\'t -- yet decided to approve or decline your application. - deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic) + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) instance Hashable AdvertisersListRelationshipStatus -instance FromText AdvertisersListRelationshipStatus where - fromText = \case - "approved" -> Just Approved - "available" -> Just Available - "deactivated" -> Just Deactivated - "declined" -> Just Declined - "pending" -> Just Pending - _ -> Nothing +instance FromHttpApiData AdvertisersListRelationshipStatus where + parseQueryParam = \case + "approved" -> Right Approved + "available" -> Right Available + "deactivated" -> Right Deactivated + "declined" -> Right Declined + "pending" -> Right Pending + x -> Left ("Unable to parse AdvertisersListRelationshipStatus from: " <> x) -instance ToText AdvertisersListRelationshipStatus where - toText = \case +instance ToHttpApiData AdvertisersListRelationshipStatus where + toQueryParam = \case Approved -> "approved" Available -> "available" Deactivated -> "deactivated" @@ -512,18 +512,18 @@ | Summary -- ^ @summary@ -- Include only the basic fields needed to display an offer. - deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic) + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) instance Hashable CcOffersListProjection -instance FromText CcOffersListProjection where - fromText = \case - "full" -> Just Full - "summary" -> Just Summary - _ -> Nothing +instance FromHttpApiData CcOffersListProjection where + parseQueryParam = \case + "full" -> Right Full + "summary" -> Right Summary + x -> Left ("Unable to parse CcOffersListProjection from: " <> x) -instance ToText CcOffersListProjection where - toText = \case +instance ToHttpApiData CcOffersListProjection where + toQueryParam = \case Full -> "full" Summary -> "summary" @@ -542,18 +542,18 @@ | AGRPublishers -- ^ @publishers@ -- The requester is requesting as a publisher. - deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic) + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) instance Hashable AdvertisersGetRole -instance FromText AdvertisersGetRole where - fromText = \case - "advertisers" -> Just AGRAdvertisers - "publishers" -> Just AGRPublishers - _ -> Nothing +instance FromHttpApiData AdvertisersGetRole where + parseQueryParam = \case + "advertisers" -> Right AGRAdvertisers + "publishers" -> Right AGRPublishers + x -> Left ("Unable to parse AdvertisersGetRole from: " <> x) -instance ToText AdvertisersGetRole where - toText = \case +instance ToHttpApiData AdvertisersGetRole where + toQueryParam = \case AGRAdvertisers -> "advertisers" AGRPublishers -> "publishers" @@ -589,22 +589,22 @@ -- ^ @tier_bonus@ -- A payment from an advertiser to a publisher for the publisher -- maintaining a high tier level - deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic) + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) instance Hashable EventsListChargeType -instance FromText EventsListChargeType where - fromText = \case - "credit" -> Just Credit - "debit" -> Just Debit - "monthly_minimum" -> Just MonthlyMinimum - "other" -> Just Other - "slotting_fee" -> Just SlottingFee - "tier_bonus" -> Just TierBonus - _ -> Nothing +instance FromHttpApiData EventsListChargeType where + parseQueryParam = \case + "credit" -> Right Credit + "debit" -> Right Debit + "monthly_minimum" -> Right MonthlyMinimum + "other" -> Right Other + "slotting_fee" -> Right SlottingFee + "tier_bonus" -> Right TierBonus + x -> Left ("Unable to parse EventsListChargeType from: " <> x) -instance ToText EventsListChargeType where - toText = \case +instance ToHttpApiData EventsListChargeType where + toQueryParam = \case Credit -> "credit" Debit -> "debit" MonthlyMinimum -> "monthly_minimum" @@ -638,21 +638,21 @@ -- ^ @pending@ -- Publishers that have applied to your program. We recommend reviewing and -- deciding on pending publishers on a weekly basis. - deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic) + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) instance Hashable PublishersListRelationshipStatus -instance FromText PublishersListRelationshipStatus where - fromText = \case - "approved" -> Just PLRSApproved - "available" -> Just PLRSAvailable - "deactivated" -> Just PLRSDeactivated - "declined" -> Just PLRSDeclined - "pending" -> Just PLRSPending - _ -> Nothing +instance FromHttpApiData PublishersListRelationshipStatus where + parseQueryParam = \case + "approved" -> Right PLRSApproved + "available" -> Right PLRSAvailable + "deactivated" -> Right PLRSDeactivated + "declined" -> Right PLRSDeclined + "pending" -> Right PLRSPending + x -> Left ("Unable to parse PublishersListRelationshipStatus from: " <> x) -instance ToText PublishersListRelationshipStatus where - toText = \case +instance ToHttpApiData PublishersListRelationshipStatus where + toQueryParam = \case PLRSApproved -> "approved" PLRSAvailable -> "available" PLRSDeactivated -> "deactivated" @@ -674,18 +674,18 @@ | RGRPublishers -- ^ @publishers@ -- The requester is requesting as a publisher. - deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic) + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) instance Hashable ReportsGetRole -instance FromText ReportsGetRole where - fromText = \case - "advertisers" -> Just RGRAdvertisers - "publishers" -> Just RGRPublishers - _ -> Nothing +instance FromHttpApiData ReportsGetRole where + parseQueryParam = \case + "advertisers" -> Right RGRAdvertisers + "publishers" -> Right RGRPublishers + x -> Left ("Unable to parse ReportsGetRole from: " <> x) -instance ToText ReportsGetRole where - toText = \case +instance ToHttpApiData ReportsGetRole where + toQueryParam = \case RGRAdvertisers -> "advertisers" RGRPublishers -> "publishers" @@ -701,18 +701,18 @@ -- ^ @approved@ | LLRSAvailable -- ^ @available@ - deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic) + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) instance Hashable LinksListRelationshipStatus -instance FromText LinksListRelationshipStatus where - fromText = \case - "approved" -> Just LLRSApproved - "available" -> Just LLRSAvailable - _ -> Nothing +instance FromHttpApiData LinksListRelationshipStatus where + parseQueryParam = \case + "approved" -> Right LLRSApproved + "available" -> Right LLRSAvailable + x -> Left ("Unable to parse LinksListRelationshipStatus from: " <> x) -instance ToText LinksListRelationshipStatus where - toText = \case +instance ToHttpApiData LinksListRelationshipStatus where + toQueryParam = \case LLRSApproved -> "approved" LLRSAvailable -> "available" @@ -731,18 +731,18 @@ | ELSCanceled -- ^ @canceled@ -- Event is currently canceled. - deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic) + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) instance Hashable EventsListStatus -instance FromText EventsListStatus where - fromText = \case - "active" -> Just ELSActive - "canceled" -> Just ELSCanceled - _ -> Nothing +instance FromHttpApiData EventsListStatus where + parseQueryParam = \case + "active" -> Right ELSActive + "canceled" -> Right ELSCanceled + x -> Left ("Unable to parse EventsListStatus from: " <> x) -instance ToText EventsListStatus where - toText = \case +instance ToHttpApiData EventsListStatus where + toQueryParam = \case ELSActive -> "active" ELSCanceled -> "canceled" diff --git a/gen/Network/Google/Resource/GAN/Advertisers/Get.hs b/gen/Network/Google/Resource/GAN/Advertisers/Get.hs --- a/gen/Network/Google/Resource/GAN/Advertisers/Get.hs +++ b/gen/Network/Google/Resource/GAN/Advertisers/Get.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.GAN.Advertisers.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 @@ -61,7 +61,7 @@ -- omitting the advertiserId query parameter. -- -- /See:/ 'advertisersGet' smart constructor. -data AdvertisersGet = AdvertisersGet +data AdvertisersGet = AdvertisersGet' { _agAdvertiserId :: !(Maybe Text) , _agRoleId :: !Text , _agRole :: !AdvertisersGetRole @@ -81,7 +81,7 @@ -> AdvertisersGetRole -- ^ 'agRole' -> AdvertisersGet advertisersGet pAgRoleId_ pAgRole_ = - AdvertisersGet + AdvertisersGet' { _agAdvertiserId = Nothing , _agRoleId = pAgRoleId_ , _agRole = pAgRole_ @@ -104,7 +104,8 @@ instance GoogleRequest AdvertisersGet where type Rs AdvertisersGet = Advertiser - requestClient AdvertisersGet{..} + type Scopes AdvertisersGet = '[] + requestClient AdvertisersGet'{..} = go _agRole _agRoleId _agAdvertiserId (Just AltJSON) affiliatesService where go diff --git a/gen/Network/Google/Resource/GAN/Advertisers/List.hs b/gen/Network/Google/Resource/GAN/Advertisers/List.hs --- a/gen/Network/Google/Resource/GAN/Advertisers/List.hs +++ b/gen/Network/Google/Resource/GAN/Advertisers/List.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.GAN.Advertisers.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 @@ -71,7 +71,7 @@ -- advertiser\/publisher has access to. -- -- /See:/ 'advertisersList' smart constructor. -data AdvertisersList = AdvertisersList +data AdvertisersList = AdvertisersList' { _alRelationshipStatus :: !(Maybe AdvertisersListRelationshipStatus) , _alMinSevenDayEpc :: !(Maybe (Textual Double)) , _alRoleId :: !Text @@ -109,7 +109,7 @@ -> AdvertisersListRole -- ^ 'alRole' -> AdvertisersList advertisersList pAlRoleId_ pAlRole_ = - AdvertisersList + AdvertisersList' { _alRelationshipStatus = Nothing , _alMinSevenDayEpc = Nothing , _alRoleId = pAlRoleId_ @@ -187,7 +187,8 @@ instance GoogleRequest AdvertisersList where type Rs AdvertisersList = Advertisers - requestClient AdvertisersList{..} + type Scopes AdvertisersList = '[] + requestClient AdvertisersList'{..} = go _alRole _alRoleId _alRelationshipStatus _alMinSevenDayEpc _alMinNinetyDayEpc diff --git a/gen/Network/Google/Resource/GAN/CcOffers/List.hs b/gen/Network/Google/Resource/GAN/CcOffers/List.hs --- a/gen/Network/Google/Resource/GAN/CcOffers/List.hs +++ b/gen/Network/Google/Resource/GAN/CcOffers/List.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.GAN.CcOffers.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 @@ -- | Retrieves credit card offers for the given publisher. -- -- /See:/ 'ccOffersList' smart constructor. -data CcOffersList = CcOffersList +data CcOffersList = CcOffersList' { _colAdvertiser :: !(Maybe [Text]) , _colProjection :: !(Maybe CcOffersListProjection) , _colPublisher :: !Text @@ -75,7 +75,7 @@ :: Text -- ^ 'colPublisher' -> CcOffersList ccOffersList pColPublisher_ = - CcOffersList + CcOffersList' { _colAdvertiser = Nothing , _colProjection = Nothing , _colPublisher = pColPublisher_ @@ -103,7 +103,8 @@ instance GoogleRequest CcOffersList where type Rs CcOffersList = CcOffers - requestClient CcOffersList{..} + type Scopes CcOffersList = '[] + requestClient CcOffersList'{..} = go _colPublisher (_colAdvertiser ^. _Default) _colProjection (Just AltJSON) diff --git a/gen/Network/Google/Resource/GAN/Events/List.hs b/gen/Network/Google/Resource/GAN/Events/List.hs --- a/gen/Network/Google/Resource/GAN/Events/List.hs +++ b/gen/Network/Google/Resource/GAN/Events/List.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.GAN.Events.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 @@ -88,7 +88,7 @@ -- | Retrieves event data for a given advertiser\/publisher. -- -- /See:/ 'eventsList' smart constructor. -data EventsList = EventsList +data EventsList = EventsList' { _elStatus :: !(Maybe EventsListStatus) , _elEventDateMin :: !(Maybe Text) , _elChargeType :: !(Maybe EventsListChargeType) @@ -153,7 +153,7 @@ -> EventsListRole -- ^ 'elRole' -> EventsList eventsList pElRoleId_ pElRole_ = - EventsList + EventsList' { _elStatus = Nothing , _elEventDateMin = Nothing , _elChargeType = Nothing @@ -289,7 +289,8 @@ instance GoogleRequest EventsList where type Rs EventsList = Events - requestClient EventsList{..} + type Scopes EventsList = '[] + requestClient EventsList'{..} = go _elRole _elRoleId _elStatus _elEventDateMin _elChargeType _elMemberId diff --git a/gen/Network/Google/Resource/GAN/Links/Get.hs b/gen/Network/Google/Resource/GAN/Links/Get.hs --- a/gen/Network/Google/Resource/GAN/Links/Get.hs +++ b/gen/Network/Google/Resource/GAN/Links/Get.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.GAN.Links.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 @@ -61,7 +61,7 @@ -- advertisers they are in a relationship with. -- -- /See:/ 'linksGet' smart constructor. -data LinksGet = LinksGet +data LinksGet = LinksGet' { _lgRoleId :: !Text , _lgRole :: !LinksGetRole , _lgLinkId :: !(Textual Int64) @@ -82,7 +82,7 @@ -> Int64 -- ^ 'lgLinkId' -> LinksGet linksGet pLgRoleId_ pLgRole_ pLgLinkId_ = - LinksGet + LinksGet' { _lgRoleId = pLgRoleId_ , _lgRole = pLgRole_ , _lgLinkId = _Coerce # pLgLinkId_ @@ -105,7 +105,8 @@ instance GoogleRequest LinksGet where type Rs LinksGet = Link - requestClient LinksGet{..} + type Scopes LinksGet = '[] + requestClient LinksGet'{..} = go _lgRole _lgRoleId _lgLinkId (Just AltJSON) affiliatesService where go diff --git a/gen/Network/Google/Resource/GAN/Links/Insert.hs b/gen/Network/Google/Resource/GAN/Links/Insert.hs --- a/gen/Network/Google/Resource/GAN/Links/Insert.hs +++ b/gen/Network/Google/Resource/GAN/Links/Insert.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.GAN.Links.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 @@ -55,7 +55,7 @@ -- | Inserts a new link. -- -- /See:/ 'linksInsert' smart constructor. -data LinksInsert = LinksInsert +data LinksInsert = LinksInsert' { _liPayload :: !Link , _liRoleId :: !Text , _liRole :: !LinksInsertRole @@ -76,7 +76,7 @@ -> LinksInsertRole -- ^ 'liRole' -> LinksInsert linksInsert pLiPayload_ pLiRoleId_ pLiRole_ = - LinksInsert + LinksInsert' { _liPayload = pLiPayload_ , _liRoleId = pLiRoleId_ , _liRole = pLiRole_ @@ -98,7 +98,8 @@ instance GoogleRequest LinksInsert where type Rs LinksInsert = Link - requestClient LinksInsert{..} + type Scopes LinksInsert = '[] + requestClient LinksInsert'{..} = go _liRole _liRoleId (Just AltJSON) _liPayload affiliatesService where go diff --git a/gen/Network/Google/Resource/GAN/Links/List.hs b/gen/Network/Google/Resource/GAN/Links/List.hs --- a/gen/Network/Google/Resource/GAN/Links/List.hs +++ b/gen/Network/Google/Resource/GAN/Links/List.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.GAN.Links.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 @@ -83,7 +83,7 @@ -- | Retrieves all links that match the query parameters. -- -- /See:/ 'linksList' smart constructor. -data LinksList = LinksList +data LinksList = LinksList' { _llCreateDateMax :: !(Maybe Text) , _llAuthorship :: !(Maybe LinksListAuthorship) , _llAssetSize :: !(Maybe [Text]) @@ -139,7 +139,7 @@ -> LinksListRole -- ^ 'llRole' -> LinksList linksList pLlRoleId_ pLlRole_ = - LinksList + LinksList' { _llCreateDateMax = Nothing , _llAuthorship = Nothing , _llAssetSize = Nothing @@ -249,7 +249,8 @@ instance GoogleRequest LinksList where type Rs LinksList = Links - requestClient LinksList{..} + type Scopes LinksList = '[] + requestClient LinksList'{..} = go _llRole _llRoleId _llCreateDateMax _llAuthorship (_llAssetSize ^. _Default) _llRelationshipStatus diff --git a/gen/Network/Google/Resource/GAN/Publishers/Get.hs b/gen/Network/Google/Resource/GAN/Publishers/Get.hs --- a/gen/Network/Google/Resource/GAN/Publishers/Get.hs +++ b/gen/Network/Google/Resource/GAN/Publishers/Get.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.GAN.Publishers.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 @@ -61,7 +61,7 @@ -- omitting the publisherId query parameter. -- -- /See:/ 'publishersGet' smart constructor. -data PublishersGet = PublishersGet +data PublishersGet = PublishersGet' { _pgRoleId :: !Text , _pgRole :: !PublishersGetRole , _pgPublisherId :: !(Maybe Text) @@ -81,7 +81,7 @@ -> PublishersGetRole -- ^ 'pgRole' -> PublishersGet publishersGet pPgRoleId_ pPgRole_ = - PublishersGet + PublishersGet' { _pgRoleId = pPgRoleId_ , _pgRole = pPgRole_ , _pgPublisherId = Nothing @@ -104,7 +104,8 @@ instance GoogleRequest PublishersGet where type Rs PublishersGet = Publisher - requestClient PublishersGet{..} + type Scopes PublishersGet = '[] + requestClient PublishersGet'{..} = go _pgRole _pgRoleId _pgPublisherId (Just AltJSON) affiliatesService where go diff --git a/gen/Network/Google/Resource/GAN/Publishers/List.hs b/gen/Network/Google/Resource/GAN/Publishers/List.hs --- a/gen/Network/Google/Resource/GAN/Publishers/List.hs +++ b/gen/Network/Google/Resource/GAN/Publishers/List.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.GAN.Publishers.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 @@ -71,7 +71,7 @@ -- advertiser\/publisher has access to. -- -- /See:/ 'publishersList' smart constructor. -data PublishersList = PublishersList +data PublishersList = PublishersList' { _plRelationshipStatus :: !(Maybe PublishersListRelationshipStatus) , _plMinSevenDayEpc :: !(Maybe (Textual Double)) , _plRoleId :: !Text @@ -109,7 +109,7 @@ -> PublishersListRole -- ^ 'plRole' -> PublishersList publishersList pPlRoleId_ pPlRole_ = - PublishersList + PublishersList' { _plRelationshipStatus = Nothing , _plMinSevenDayEpc = Nothing , _plRoleId = pPlRoleId_ @@ -186,7 +186,8 @@ instance GoogleRequest PublishersList where type Rs PublishersList = Publishers - requestClient PublishersList{..} + type Scopes PublishersList = '[] + requestClient PublishersList'{..} = go _plRole _plRoleId _plRelationshipStatus _plMinSevenDayEpc _plMinNinetyDayEpc diff --git a/gen/Network/Google/Resource/GAN/Reports/Get.hs b/gen/Network/Google/Resource/GAN/Reports/Get.hs --- a/gen/Network/Google/Resource/GAN/Reports/Get.hs +++ b/gen/Network/Google/Resource/GAN/Reports/Get.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.GAN.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 @@ -78,7 +78,7 @@ -- | Retrieves a report of the specified type. -- -- /See:/ 'reportsGet' smart constructor. -data ReportsGet = ReportsGet +data ReportsGet = ReportsGet' { _rgStatus :: !(Maybe ReportsGetStatus) , _rgAdvertiserId :: !(Maybe [Text]) , _rgEndDate :: !(Maybe Text) @@ -132,7 +132,7 @@ -> ReportsGetReportType -- ^ 'rgReportType' -> ReportsGet reportsGet pRgRoleId_ pRgRole_ pRgReportType_ = - ReportsGet + ReportsGet' { _rgStatus = Nothing , _rgAdvertiserId = Nothing , _rgEndDate = Nothing @@ -240,7 +240,8 @@ instance GoogleRequest ReportsGet where type Rs ReportsGet = Report - requestClient ReportsGet{..} + type Scopes ReportsGet = '[] + requestClient ReportsGet'{..} = go _rgRole _rgRoleId _rgReportType _rgStatus (_rgAdvertiserId ^. _Default) _rgEndDate diff --git a/gogol-affiliates.cabal b/gogol-affiliates.cabal --- a/gogol-affiliates.cabal +++ b/gogol-affiliates.cabal @@ -1,5 +1,5 @@ name: gogol-affiliates -version: 0.0.1 +version: 0.1.0 synopsis: Google Affiliate Network SDK. homepage: https://github.com/brendanhay/gogol bug-reports: https://github.com/brendanhay/gogol/issues @@ -7,7 +7,7 @@ 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 @@ -51,5 +51,5 @@ , Network.Google.Affiliates.Types.Sum build-depends: - gogol-core == 0.0.1.* + gogol-core == 0.1.0.* , base >= 4.7 && < 5