@@ -292,8 +292,8 @@ tocEmail = lens _tocEmail (\ s a -> s{_tocEmail = a})
292292-- | If set, this indicates the user explicitly chose to opt in or out of
293293-- providing marketing rights to the merchant. If unset, this indicates the
294294-- user has already made this choice in a previous purchase, and was thus
295−-- not shown the marketing right opt in\/out checkbox during the Purchases
296−-- on Google checkout flow. Optional.
295+-- not shown the marketing right opt in\/out checkbox during the checkout
296+-- flow. Optional.
297297tocExplicitMarketingPreference :: Lens' TestOrderCustomer (Maybe Bool)
298298tocExplicitMarketingPreference
299299 = lens _tocExplicitMarketingPreference
@@ -4760,11 +4760,11 @@ aaWebsiteURL :: Lens' Account (Maybe Text)
47604760aaWebsiteURL
47614761 = lens _aaWebsiteURL (\ s a -> s{_aaWebsiteURL = a})
47624762
4763−-- | List of linked AdWords accounts, active or pending approval. To create a
4764−-- new link request, add a new link with status active to the list. It will
4765−-- remain is state pending until approved or rejected in the AdWords
4766−-- interface. To delete an active link or to cancel a link request, remove
4767−-- it from the list.
4763+-- | List of linked AdWords accounts that are active or pending approval. To
4764+-- create a new link request, add a new link with status active to the
4765+-- list. It will remain in a pending state until approved or rejected
4766+-- either in the AdWords interface or through the AdWords API. To delete an
4767+-- active link, or to cancel a link request, remove it from the list.
47684768aaAdwordsLinks :: Lens' Account [AccountAdwordsLink]
47694769aaAdwordsLinks
47704770 = lens _aaAdwordsLinks
@@ -4814,6 +4814,7 @@ data InventorySetRequest = InventorySetRequest'
48144814 , _isrInstallment :: !(Maybe Installment)
48154815 , _isrSalePrice :: !(Maybe Price)
48164816 , _isrAvailability :: !(Maybe Text)
4817+ , _isrPickup :: !(Maybe InventoryPickup)
48174818 , _isrSalePriceEffectiveDate :: !(Maybe Text)
48184819 , _isrSellOnGoogleQuantity :: !(Maybe (Textual Word32))
48194820 , _isrPrice :: !(Maybe Price)
@@ -4833,6 +4834,8 @@ data InventorySetRequest = InventorySetRequest'
48334834--
48344835-- * 'isrAvailability'
48354836--
4837+-- * 'isrPickup'
4838+--
48364839-- * 'isrSalePriceEffectiveDate'
48374840--
48384841-- * 'isrSellOnGoogleQuantity'
@@ -4847,6 +4850,7 @@ inventorySetRequest =
48474850 , _isrInstallment = Nothing
48484851 , _isrSalePrice = Nothing
48494852 , _isrAvailability = Nothing
4853+ , _isrPickup = Nothing
48504854 , _isrSalePriceEffectiveDate = Nothing
48514855 , _isrSellOnGoogleQuantity = Nothing
48524856 , _isrPrice = Nothing
@@ -4883,6 +4887,15 @@ isrAvailability
48834887 = lens _isrAvailability
48844888 (\ s a -> s{_isrAvailability = a})
48854889
4890+-- | Store pickup information. Only supported for local inventory. Not
4891+-- setting pickup means \"don\'t update\" while setting it to the empty
4892+-- value ({} in JSON) means \"delete\". Otherwise, pickupMethod and
4893+-- pickupSla must be set together, unless pickupMethod is \"not
4894+-- supported\".
4895+isrPickup :: Lens' InventorySetRequest (Maybe InventoryPickup)
4896+isrPickup
4897+ = lens _isrPickup (\ s a -> s{_isrPickup = a})
4898+
48864899-- | A date range represented by a pair of ISO 8601 dates separated by a
48874900-- space, comma, or slash. Both dates might be specified as \'null\' if
48884901-- undecided.
@@ -4912,6 +4925,7 @@ instance FromJSON InventorySetRequest where
49124925 (o .:? "installment")
49134926 <*> (o .:? "salePrice")
49144927 <*> (o .:? "availability")
4928+ <*> (o .:? "pickup")
49154929 <*> (o .:? "salePriceEffectiveDate")
49164930 <*> (o .:? "sellOnGoogleQuantity")
49174931 <*> (o .:? "price"))
@@ -4925,6 +4939,7 @@ instance ToJSON InventorySetRequest where
49254939 ("installment" .=) <$> _isrInstallment,
49264940 ("salePrice" .=) <$> _isrSalePrice,
49274941 ("availability" .=) <$> _isrAvailability,
4942+ ("pickup" .=) <$> _isrPickup,
49284943 ("salePriceEffectiveDate" .=) <$>
49294944 _isrSalePriceEffectiveDate,
49304945 ("sellOnGoogleQuantity" .=) <$>
@@ -7171,8 +7186,8 @@ ocEmail = lens _ocEmail (\ s a -> s{_ocEmail = a})
71717186-- | If set, this indicates the user explicitly chose to opt in or out of
71727187-- providing marketing rights to the merchant. If unset, this indicates the
71737188-- user has already made this choice in a previous purchase, and was thus
7174−-- not shown the marketing right opt in\/out checkbox during the Purchases
7175−-- on Google checkout flow.
7189+-- not shown the marketing right opt in\/out checkbox during the checkout
7190+-- flow.
71767191ocExplicitMarketingPreference :: Lens' OrderCustomer (Maybe Bool)
71777192ocExplicitMarketingPreference
71787193 = lens _ocExplicitMarketingPreference
@@ -7404,6 +7419,7 @@ data Inventory = Inventory'
74047419 , _iInstallment :: !(Maybe Installment)
74057420 , _iSalePrice :: !(Maybe Price)
74067421 , _iAvailability :: !(Maybe Text)
7422+ , _iPickup :: !(Maybe InventoryPickup)
74077423 , _iSalePriceEffectiveDate :: !(Maybe Text)
74087424 , _iSellOnGoogleQuantity :: !(Maybe (Textual Word32))
74097425 , _iPrice :: !(Maybe Price)
@@ -7425,6 +7441,8 @@ data Inventory = Inventory'
74257441--
74267442-- * 'iAvailability'
74277443--
7444+-- * 'iPickup'
7445+--
74287446-- * 'iSalePriceEffectiveDate'
74297447--
74307448-- * 'iSellOnGoogleQuantity'
@@ -7440,6 +7458,7 @@ inventory =
74407458 , _iInstallment = Nothing
74417459 , _iSalePrice = Nothing
74427460 , _iAvailability = Nothing
7461+ , _iPickup = Nothing
74437462 , _iSalePriceEffectiveDate = Nothing
74447463 , _iSellOnGoogleQuantity = Nothing
74457464 , _iPrice = Nothing
@@ -7480,6 +7499,14 @@ iAvailability
74807499 = lens _iAvailability
74817500 (\ s a -> s{_iAvailability = a})
74827501
7502+-- | Store pickup information. Only supported for local inventory. Not
7503+-- setting pickup means \"don\'t update\" while setting it to the empty
7504+-- value ({} in JSON) means \"delete\". Otherwise, pickupMethod and
7505+-- pickupSla must be set together, unless pickupMethod is \"not
7506+-- supported\".
7507+iPickup :: Lens' Inventory (Maybe InventoryPickup)
7508+iPickup = lens _iPickup (\ s a -> s{_iPickup = a})
7509+
74837510-- | A date range represented by a pair of ISO 8601 dates separated by a
74847511-- space, comma, or slash. Both dates might be specified as \'null\' if
74857512-- undecided.
@@ -7511,6 +7538,7 @@ instance FromJSON Inventory where
75117538 <*> (o .:? "installment")
75127539 <*> (o .:? "salePrice")
75137540 <*> (o .:? "availability")
7541+ <*> (o .:? "pickup")
75147542 <*> (o .:? "salePriceEffectiveDate")
75157543 <*> (o .:? "sellOnGoogleQuantity")
75167544 <*> (o .:? "price"))
@@ -7525,6 +7553,7 @@ instance ToJSON Inventory where
75257553 ("installment" .=) <$> _iInstallment,
75267554 ("salePrice" .=) <$> _iSalePrice,
75277555 ("availability" .=) <$> _iAvailability,
7556+ ("pickup" .=) <$> _iPickup,
75287557 ("salePriceEffectiveDate" .=) <$>
75297558 _iSalePriceEffectiveDate,
75307559 ("sellOnGoogleQuantity" .=) <$>
@@ -11143,6 +11172,58 @@ instance ToJSON OrdersUpdateMerchantOrderIdResponse
1114311172 [Just ("kind" .= _oumoirKind),
1114411173 ("executionStatus" .=) <$> _oumoirExecutionStatus])
1114511174
11175+--
11176+-- /See:/ 'inventoryPickup' smart constructor.
11177+data InventoryPickup = InventoryPickup'
11178+ { _ipPickupSla :: !(Maybe Text)
11179+ , _ipPickupMethod :: !(Maybe Text)
11180+ } deriving (Eq,Show,Data,Typeable,Generic)
11181+
11182+-- | Creates a value of 'InventoryPickup' with the minimum fields required to make a request.
11183+--
11184+-- Use one of the following lenses to modify other fields as desired:
11185+--
11186+-- * 'ipPickupSla'
11187+--
11188+-- * 'ipPickupMethod'
11189+inventoryPickup
11190+ :: InventoryPickup
11191+inventoryPickup =
11192+ InventoryPickup'
11193+ { _ipPickupSla = Nothing
11194+ , _ipPickupMethod = Nothing
11195+ }
11196+
11197+-- | The expected date that an order will be ready for pickup, relative to
11198+-- when the order is placed. Only supported for local inventory. Must be
11199+-- submitted together with pickupMethod.
11200+ipPickupSla :: Lens' InventoryPickup (Maybe Text)
11201+ipPickupSla
11202+ = lens _ipPickupSla (\ s a -> s{_ipPickupSla = a})
11203+
11204+-- | Whether store pickup is available for this offer and whether the pickup
11205+-- option should be shown as buy, reserve, or not supported. Only supported
11206+-- for local inventory. Unless the value is \"not supported\", must be
11207+-- submitted together with pickupSla.
11208+ipPickupMethod :: Lens' InventoryPickup (Maybe Text)
11209+ipPickupMethod
11210+ = lens _ipPickupMethod
11211+ (\ s a -> s{_ipPickupMethod = a})
11212+
11213+instance FromJSON InventoryPickup where
11214+ parseJSON
11215+ = withObject "InventoryPickup"
11216+ (\ o ->
11217+ InventoryPickup' <$>
11218+ (o .:? "pickupSla") <*> (o .:? "pickupMethod"))
11219+
11220+instance ToJSON InventoryPickup where
11221+ toJSON InventoryPickup'{..}
11222+ = object
11223+ (catMaybes
11224+ [("pickupSla" .=) <$> _ipPickupSla,
11225+ ("pickupMethod" .=) <$> _ipPickupMethod])
11226+
1114611227-- | An example occurrence for a particular error.
1114711228--
1114811229-- /See:/ 'datafeedStatusExample' smart constructor.