gogol-affiliates 0.0.1 → 0.1.0

raw patch · 16 files changed

+321/−310 lines, 16 filesdep ~gogol-corePVP ok

version bump matches the API change (PVP)

Dependency ranges changed: gogol-core

API changes (from Hackage documentation)

Files

• README.md +3/−3
• gen/Network/Google/Affiliates.hs +1/−1
• gen/Network/Google/Affiliates/Types.hs +3/−2
• gen/Network/Google/Affiliates/Types/Product.hs +69/−69
• gen/Network/Google/Affiliates/Types/Sum.hs +192/−192
• gen/Network/Google/Resource/GAN/Advertisers/Get.hs +5/−4
• gen/Network/Google/Resource/GAN/Advertisers/List.hs +5/−4
• gen/Network/Google/Resource/GAN/CcOffers/List.hs +5/−4
• gen/Network/Google/Resource/GAN/Events/List.hs +5/−4
• gen/Network/Google/Resource/GAN/Links/Get.hs +5/−4
• gen/Network/Google/Resource/GAN/Links/Insert.hs +5/−4
• gen/Network/Google/Resource/GAN/Links/List.hs +5/−4
• gen/Network/Google/Resource/GAN/Publishers/Get.hs +5/−4
• gen/Network/Google/Resource/GAN/Publishers/List.hs +5/−4
• gen/Network/Google/Resource/GAN/Reports/Get.hs +5/−4
• gogol-affiliates.cabal +3/−3

@@ -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

@@ -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 <brendan.g.hay@gmail.com> -- Stability   : auto-generated

@@ -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 <brendan.g.hay@gmail.com> -- 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"

@@ -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 <brendan.g.hay@gmail.com> -- 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,

@@ -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 <brendan.g.hay@gmail.com> -- 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" 

@@ -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 <brendan.g.hay@gmail.com> -- 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

@@ -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 <brendan.g.hay@gmail.com> -- 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

@@ -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 <brendan.g.hay@gmail.com> -- 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)

@@ -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 <brendan.g.hay@gmail.com> -- 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

@@ -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 <brendan.g.hay@gmail.com> -- 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

@@ -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 <brendan.g.hay@gmail.com> -- 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

@@ -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 <brendan.g.hay@gmail.com> -- 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

@@ -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 <brendan.g.hay@gmail.com> -- 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

@@ -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 <brendan.g.hay@gmail.com> -- 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

@@ -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 <brendan.g.hay@gmail.com> -- 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

@@ -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 <brendan.g.hay@gmail.com>-copyright:             Copyright (c) 2015 Brendan Hay+copyright:             Copyright (c) 2015-2016 Brendan Hay category:              Network, Google, Cloud build-type:            Simple cabal-version:         >= 1.10@@ -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