@@ -764,6 +764,67 @@ instance ToJSON AccountTaxTaxRule where
764764 ("locationId" .=) <$> _attrLocationId,
765765 ("ratePercent" .=) <$> _attrRatePercent])
766766
767+--
768+-- /See:/ 'postalCodeGroup' smart constructor.
769+data PostalCodeGroup = PostalCodeGroup'
770+ { _pcgCountry :: !(Maybe Text)
771+ , _pcgPostalCodeRanges :: !(Maybe [PostalCodeRange])
772+ , _pcgName :: !(Maybe Text)
773+ } deriving (Eq,Show,Data,Typeable,Generic)
774+
775+-- | Creates a value of 'PostalCodeGroup' with the minimum fields required to make a request.
776+--
777+-- Use one of the following lenses to modify other fields as desired:
778+--
779+-- * 'pcgCountry'
780+--
781+-- * 'pcgPostalCodeRanges'
782+--
783+-- * 'pcgName'
784+postalCodeGroup
785+ :: PostalCodeGroup
786+postalCodeGroup =
787+ PostalCodeGroup'
788+ { _pcgCountry = Nothing
789+ , _pcgPostalCodeRanges = Nothing
790+ , _pcgName = Nothing
791+ }
792+
793+-- | The CLDR territory code of the country the postal code group applies to.
794+-- Required.
795+pcgCountry :: Lens' PostalCodeGroup (Maybe Text)
796+pcgCountry
797+ = lens _pcgCountry (\ s a -> s{_pcgCountry = a})
798+
799+-- | A range of postal codes. Required.
800+pcgPostalCodeRanges :: Lens' PostalCodeGroup [PostalCodeRange]
801+pcgPostalCodeRanges
802+ = lens _pcgPostalCodeRanges
803+ (\ s a -> s{_pcgPostalCodeRanges = a})
804+ . _Default
805+ . _Coerce
806+
807+-- | The name of the postal code group, referred to in headers. Required.
808+pcgName :: Lens' PostalCodeGroup (Maybe Text)
809+pcgName = lens _pcgName (\ s a -> s{_pcgName = a})
810+
811+instance FromJSON PostalCodeGroup where
812+ parseJSON
813+ = withObject "PostalCodeGroup"
814+ (\ o ->
815+ PostalCodeGroup' <$>
816+ (o .:? "country") <*>
817+ (o .:? "postalCodeRanges" .!= mempty)
818+ <*> (o .:? "name"))
819+
820+instance ToJSON PostalCodeGroup where
821+ toJSON PostalCodeGroup'{..}
822+ = object
823+ (catMaybes
824+ [("country" .=) <$> _pcgCountry,
825+ ("postalCodeRanges" .=) <$> _pcgPostalCodeRanges,
826+ ("name" .=) <$> _pcgName])
827+
767828--
768829-- /See:/ 'productDestination' smart constructor.
769830data ProductDestination = ProductDestination'
@@ -1954,6 +2015,104 @@ instance ToJSON OrderLineItem where
19542015 ("product" .=) <$> _oliProduct,
19552016 ("returns" .=) <$> _oliReturns])
19562017
2018+--
2019+-- /See:/ 'service' smart constructor.
2020+data Service = Service'
2021+ { _sDeliveryCountry :: !(Maybe Text)
2022+ , _sRateGroups :: !(Maybe [RateGroup])
2023+ , _sDeliveryTime :: !(Maybe DeliveryTime)
2024+ , _sActive :: !(Maybe Bool)
2025+ , _sName :: !(Maybe Text)
2026+ , _sCurrency :: !(Maybe Text)
2027+ } deriving (Eq,Show,Data,Typeable,Generic)
2028+
2029+-- | Creates a value of 'Service' with the minimum fields required to make a request.
2030+--
2031+-- Use one of the following lenses to modify other fields as desired:
2032+--
2033+-- * 'sDeliveryCountry'
2034+--
2035+-- * 'sRateGroups'
2036+--
2037+-- * 'sDeliveryTime'
2038+--
2039+-- * 'sActive'
2040+--
2041+-- * 'sName'
2042+--
2043+-- * 'sCurrency'
2044+service
2045+ :: Service
2046+service =
2047+ Service'
2048+ { _sDeliveryCountry = Nothing
2049+ , _sRateGroups = Nothing
2050+ , _sDeliveryTime = Nothing
2051+ , _sActive = Nothing
2052+ , _sName = Nothing
2053+ , _sCurrency = Nothing
2054+ }
2055+
2056+-- | The CLDR territory code of the country to which the service applies.
2057+-- Required.
2058+sDeliveryCountry :: Lens' Service (Maybe Text)
2059+sDeliveryCountry
2060+ = lens _sDeliveryCountry
2061+ (\ s a -> s{_sDeliveryCountry = a})
2062+
2063+-- | Shipping rate group definitions. Only the last one is allowed to have an
2064+-- empty applicableShippingLabels, which means \"everything else\". The
2065+-- other applicableShippingLabels must not overlap.
2066+sRateGroups :: Lens' Service [RateGroup]
2067+sRateGroups
2068+ = lens _sRateGroups (\ s a -> s{_sRateGroups = a}) .
2069+ _Default
2070+ . _Coerce
2071+
2072+-- | Time spent in various aspects from order to the delivery of the product.
2073+-- Required.
2074+sDeliveryTime :: Lens' Service (Maybe DeliveryTime)
2075+sDeliveryTime
2076+ = lens _sDeliveryTime
2077+ (\ s a -> s{_sDeliveryTime = a})
2078+
2079+-- | A boolean exposing the active status of the shipping service. Required.
2080+sActive :: Lens' Service (Maybe Bool)
2081+sActive = lens _sActive (\ s a -> s{_sActive = a})
2082+
2083+-- | Free-form name of the service. Must be unique within target account.
2084+-- Required.
2085+sName :: Lens' Service (Maybe Text)
2086+sName = lens _sName (\ s a -> s{_sName = a})
2087+
2088+-- | The CLDR code of the currency to which this service applies. Must match
2089+-- that of the prices in rate groups.
2090+sCurrency :: Lens' Service (Maybe Text)
2091+sCurrency
2092+ = lens _sCurrency (\ s a -> s{_sCurrency = a})
2093+
2094+instance FromJSON Service where
2095+ parseJSON
2096+ = withObject "Service"
2097+ (\ o ->
2098+ Service' <$>
2099+ (o .:? "deliveryCountry") <*>
2100+ (o .:? "rateGroups" .!= mempty)
2101+ <*> (o .:? "deliveryTime")
2102+ <*> (o .:? "active")
2103+ <*> (o .:? "name")
2104+ <*> (o .:? "currency"))
2105+
2106+instance ToJSON Service where
2107+ toJSON Service'{..}
2108+ = object
2109+ (catMaybes
2110+ [("deliveryCountry" .=) <$> _sDeliveryCountry,
2111+ ("rateGroups" .=) <$> _sRateGroups,
2112+ ("deliveryTime" .=) <$> _sDeliveryTime,
2113+ ("active" .=) <$> _sActive, ("name" .=) <$> _sName,
2114+ ("currency" .=) <$> _sCurrency])
2115+
19572116--
19582117-- /See:/ 'productstatusesCustomBatchResponse' smart constructor.
19592118data ProductstatusesCustomBatchResponse = ProductstatusesCustomBatchResponse'
@@ -2509,6 +2668,97 @@ instance ToJSON OrdersReturnLineItemRequest where
25092668 ("operationId" .=) <$> _orlirOperationId,
25102669 ("reasonText" .=) <$> _orlirReasonText])
25112670
2671+-- | A batch entry encoding a single non-batch accountshipping request.
2672+--
2673+-- /See:/ 'shippingSettingsCustomBatchRequestEntry' smart constructor.
2674+data ShippingSettingsCustomBatchRequestEntry = ShippingSettingsCustomBatchRequestEntry'
2675+ { _sscbreMerchantId :: !(Maybe (Textual Word64))
2676+ , _sscbreAccountId :: !(Maybe (Textual Word64))
2677+ , _sscbreMethod :: !(Maybe Text)
2678+ , _sscbreShippingSettings :: !(Maybe ShippingSettings)
2679+ , _sscbreBatchId :: !(Maybe (Textual Word32))
2680+ } deriving (Eq,Show,Data,Typeable,Generic)
2681+
2682+-- | Creates a value of 'ShippingSettingsCustomBatchRequestEntry' with the minimum fields required to make a request.
2683+--
2684+-- Use one of the following lenses to modify other fields as desired:
2685+--
2686+-- * 'sscbreMerchantId'
2687+--
2688+-- * 'sscbreAccountId'
2689+--
2690+-- * 'sscbreMethod'
2691+--
2692+-- * 'sscbreShippingSettings'
2693+--
2694+-- * 'sscbreBatchId'
2695+shippingSettingsCustomBatchRequestEntry
2696+ :: ShippingSettingsCustomBatchRequestEntry
2697+shippingSettingsCustomBatchRequestEntry =
2698+ ShippingSettingsCustomBatchRequestEntry'
2699+ { _sscbreMerchantId = Nothing
2700+ , _sscbreAccountId = Nothing
2701+ , _sscbreMethod = Nothing
2702+ , _sscbreShippingSettings = Nothing
2703+ , _sscbreBatchId = Nothing
2704+ }
2705+
2706+-- | The ID of the managing account.
2707+sscbreMerchantId :: Lens' ShippingSettingsCustomBatchRequestEntry (Maybe Word64)
2708+sscbreMerchantId
2709+ = lens _sscbreMerchantId
2710+ (\ s a -> s{_sscbreMerchantId = a})
2711+ . mapping _Coerce
2712+
2713+-- | The ID of the account for which to get\/update account shipping
2714+-- settings.
2715+sscbreAccountId :: Lens' ShippingSettingsCustomBatchRequestEntry (Maybe Word64)
2716+sscbreAccountId
2717+ = lens _sscbreAccountId
2718+ (\ s a -> s{_sscbreAccountId = a})
2719+ . mapping _Coerce
2720+
2721+sscbreMethod :: Lens' ShippingSettingsCustomBatchRequestEntry (Maybe Text)
2722+sscbreMethod
2723+ = lens _sscbreMethod (\ s a -> s{_sscbreMethod = a})
2724+
2725+-- | The account shipping settings to update. Only defined if the method is
2726+-- update.
2727+sscbreShippingSettings :: Lens' ShippingSettingsCustomBatchRequestEntry (Maybe ShippingSettings)
2728+sscbreShippingSettings
2729+ = lens _sscbreShippingSettings
2730+ (\ s a -> s{_sscbreShippingSettings = a})
2731+
2732+-- | An entry ID, unique within the batch request.
2733+sscbreBatchId :: Lens' ShippingSettingsCustomBatchRequestEntry (Maybe Word32)
2734+sscbreBatchId
2735+ = lens _sscbreBatchId
2736+ (\ s a -> s{_sscbreBatchId = a})
2737+ . mapping _Coerce
2738+
2739+instance FromJSON
2740+ ShippingSettingsCustomBatchRequestEntry where
2741+ parseJSON
2742+ = withObject
2743+ "ShippingSettingsCustomBatchRequestEntry"
2744+ (\ o ->
2745+ ShippingSettingsCustomBatchRequestEntry' <$>
2746+ (o .:? "merchantId") <*> (o .:? "accountId") <*>
2747+ (o .:? "method")
2748+ <*> (o .:? "shippingSettings")
2749+ <*> (o .:? "batchId"))
2750+
2751+instance ToJSON
2752+ ShippingSettingsCustomBatchRequestEntry where
2753+ toJSON ShippingSettingsCustomBatchRequestEntry'{..}
2754+ = object
2755+ (catMaybes
2756+ [("merchantId" .=) <$> _sscbreMerchantId,
2757+ ("accountId" .=) <$> _sscbreAccountId,
2758+ ("method" .=) <$> _sscbreMethod,
2759+ ("shippingSettings" .=) <$> _sscbreShippingSettings,
2760+ ("batchId" .=) <$> _sscbreBatchId])
2761+
25122762--
25132763-- /See:/ 'accountstatusesCustomBatchRequest' smart constructor.
25142764newtype AccountstatusesCustomBatchRequest = AccountstatusesCustomBatchRequest'
@@ -3217,6 +3467,96 @@ instance ToJSON DatafeedsCustomBatchRequestEntry
32173467 ("datafeedId" .=) <$> _dcbreDatafeedId,
32183468 ("batchId" .=) <$> _dcbreBatchId])
32193469
3470+-- | The single value of a rate group or the value of a rate group table\'s
3471+-- cell. Exactly one of noShipping, flatRate, pricePercentage,
3472+-- carrierRateName, subtableName must be set.
3473+--
3474+-- /See:/ 'value' smart constructor.
3475+data Value = Value'
3476+ { _vPricePercentage :: !(Maybe Text)
3477+ , _vCarrierRateName :: !(Maybe Text)
3478+ , _vFlatRate :: !(Maybe Price)
3479+ , _vSubtableName :: !(Maybe Text)
3480+ , _vNoShipping :: !(Maybe Bool)
3481+ } deriving (Eq,Show,Data,Typeable,Generic)
3482+
3483+-- | Creates a value of 'Value' with the minimum fields required to make a request.
3484+--
3485+-- Use one of the following lenses to modify other fields as desired:
3486+--
3487+-- * 'vPricePercentage'
3488+--
3489+-- * 'vCarrierRateName'
3490+--
3491+-- * 'vFlatRate'
3492+--
3493+-- * 'vSubtableName'
3494+--
3495+-- * 'vNoShipping'
3496+value
3497+ :: Value
3498+value =
3499+ Value'
3500+ { _vPricePercentage = Nothing
3501+ , _vCarrierRateName = Nothing
3502+ , _vFlatRate = Nothing
3503+ , _vSubtableName = Nothing
3504+ , _vNoShipping = Nothing
3505+ }
3506+
3507+-- | A percentage of the price represented as a number in decimal notation
3508+-- (e.g., \"5.4\"). Can only be set if all other fields are not set.
3509+vPricePercentage :: Lens' Value (Maybe Text)
3510+vPricePercentage
3511+ = lens _vPricePercentage
3512+ (\ s a -> s{_vPricePercentage = a})
3513+
3514+-- | The name of a carrier rate referring to a carrier rate defined in the
3515+-- same rate group. Can only be set if all other fields are not set.
3516+vCarrierRateName :: Lens' Value (Maybe Text)
3517+vCarrierRateName
3518+ = lens _vCarrierRateName
3519+ (\ s a -> s{_vCarrierRateName = a})
3520+
3521+-- | A flat rate. Can only be set if all other fields are not set.
3522+vFlatRate :: Lens' Value (Maybe Price)
3523+vFlatRate
3524+ = lens _vFlatRate (\ s a -> s{_vFlatRate = a})
3525+
3526+-- | The name of a subtable. Can only be set in table cells (i.e., not for
3527+-- single values), and only if all other fields are not set.
3528+vSubtableName :: Lens' Value (Maybe Text)
3529+vSubtableName
3530+ = lens _vSubtableName
3531+ (\ s a -> s{_vSubtableName = a})
3532+
3533+-- | If true, then the product can\'t ship. Must be true when set, can only
3534+-- be set if all other fields are not set.
3535+vNoShipping :: Lens' Value (Maybe Bool)
3536+vNoShipping
3537+ = lens _vNoShipping (\ s a -> s{_vNoShipping = a})
3538+
3539+instance FromJSON Value where
3540+ parseJSON
3541+ = withObject "Value"
3542+ (\ o ->
3543+ Value' <$>
3544+ (o .:? "pricePercentage") <*>
3545+ (o .:? "carrierRateName")
3546+ <*> (o .:? "flatRate")
3547+ <*> (o .:? "subtableName")
3548+ <*> (o .:? "noShipping"))
3549+
3550+instance ToJSON Value where
3551+ toJSON Value'{..}
3552+ = object
3553+ (catMaybes
3554+ [("pricePercentage" .=) <$> _vPricePercentage,
3555+ ("carrierRateName" .=) <$> _vCarrierRateName,
3556+ ("flatRate" .=) <$> _vFlatRate,
3557+ ("subtableName" .=) <$> _vSubtableName,
3558+ ("noShipping" .=) <$> _vNoShipping])
3559+
32203560--
32213561-- /See:/ 'installment' smart constructor.
32223562data Installment = Installment'
@@ -3426,6 +3766,62 @@ instance ToJSON OrdersCustomBatchRequest where
34263766 = object
34273767 (catMaybes [("entries" .=) <$> _ocbrEntries])
34283768
3769+--
3770+-- /See:/ 'shippingSettingsGetSupportedCarriersResponse' smart constructor.
3771+data ShippingSettingsGetSupportedCarriersResponse = ShippingSettingsGetSupportedCarriersResponse'
3772+ { _ssgscrKind :: !Text
3773+ , _ssgscrCarriers :: !(Maybe [CarriersCarrier])
3774+ } deriving (Eq,Show,Data,Typeable,Generic)
3775+
3776+-- | Creates a value of 'ShippingSettingsGetSupportedCarriersResponse' with the minimum fields required to make a request.
3777+--
3778+-- Use one of the following lenses to modify other fields as desired:
3779+--
3780+-- * 'ssgscrKind'
3781+--
3782+-- * 'ssgscrCarriers'
3783+shippingSettingsGetSupportedCarriersResponse
3784+ :: ShippingSettingsGetSupportedCarriersResponse
3785+shippingSettingsGetSupportedCarriersResponse =
3786+ ShippingSettingsGetSupportedCarriersResponse'
3787+ { _ssgscrKind = "content#shippingsettingsGetSupportedCarriersResponse"
3788+ , _ssgscrCarriers = Nothing
3789+ }
3790+
3791+-- | Identifies what kind of resource this is. Value: the fixed string
3792+-- \"content#shippingsettingsGetSupportedCarriersResponse\".
3793+ssgscrKind :: Lens' ShippingSettingsGetSupportedCarriersResponse Text
3794+ssgscrKind
3795+ = lens _ssgscrKind (\ s a -> s{_ssgscrKind = a})
3796+
3797+-- | A list of supported carriers. May be empty.
3798+ssgscrCarriers :: Lens' ShippingSettingsGetSupportedCarriersResponse [CarriersCarrier]
3799+ssgscrCarriers
3800+ = lens _ssgscrCarriers
3801+ (\ s a -> s{_ssgscrCarriers = a})
3802+ . _Default
3803+ . _Coerce
3804+
3805+instance FromJSON
3806+ ShippingSettingsGetSupportedCarriersResponse where
3807+ parseJSON
3808+ = withObject
3809+ "ShippingSettingsGetSupportedCarriersResponse"
3810+ (\ o ->
3811+ ShippingSettingsGetSupportedCarriersResponse' <$>
3812+ (o .:? "kind" .!=
3813+ "content#shippingsettingsGetSupportedCarriersResponse")
3814+ <*> (o .:? "carriers" .!= mempty))
3815+
3816+instance ToJSON
3817+ ShippingSettingsGetSupportedCarriersResponse where
3818+ toJSON
3819+ ShippingSettingsGetSupportedCarriersResponse'{..}
3820+ = object
3821+ (catMaybes
3822+ [Just ("kind" .= _ssgscrKind),
3823+ ("carriers" .=) <$> _ssgscrCarriers])
3824+
34293825--
34303826-- /See:/ 'accountsListResponse' smart constructor.
34313827data AccountsListResponse = AccountsListResponse'
@@ -3604,6 +4000,231 @@ instance ToJSON ProductStatusDataQualityIssue where
36044000 ("timestamp" .=) <$> _psdqiTimestamp,
36054001 ("detail" .=) <$> _psdqiDetail])
36064002
4003+--
4004+-- /See:/ 'carriersCarrier' smart constructor.
4005+data CarriersCarrier = CarriersCarrier'
4006+ { _ccCountry :: !(Maybe Text)
4007+ , _ccName :: !(Maybe Text)
4008+ , _ccServices :: !(Maybe [Text])
4009+ } deriving (Eq,Show,Data,Typeable,Generic)
4010+
4011+-- | Creates a value of 'CarriersCarrier' with the minimum fields required to make a request.
4012+--
4013+-- Use one of the following lenses to modify other fields as desired:
4014+--
4015+-- * 'ccCountry'
4016+--
4017+-- * 'ccName'
4018+--
4019+-- * 'ccServices'
4020+carriersCarrier
4021+ :: CarriersCarrier
4022+carriersCarrier =
4023+ CarriersCarrier'
4024+ { _ccCountry = Nothing
4025+ , _ccName = Nothing
4026+ , _ccServices = Nothing
4027+ }
4028+
4029+-- | The CLDR country code of the carrier (e.g., \"US\"). Always present.
4030+ccCountry :: Lens' CarriersCarrier (Maybe Text)
4031+ccCountry
4032+ = lens _ccCountry (\ s a -> s{_ccCountry = a})
4033+
4034+-- | The name of the carrier (e.g., \"UPS\"). Always present.
4035+ccName :: Lens' CarriersCarrier (Maybe Text)
4036+ccName = lens _ccName (\ s a -> s{_ccName = a})
4037+
4038+-- | A list of supported services (e.g., \"ground\") for that carrier.
4039+-- Contains at least one service.
4040+ccServices :: Lens' CarriersCarrier [Text]
4041+ccServices
4042+ = lens _ccServices (\ s a -> s{_ccServices = a}) .
4043+ _Default
4044+ . _Coerce
4045+
4046+instance FromJSON CarriersCarrier where
4047+ parseJSON
4048+ = withObject "CarriersCarrier"
4049+ (\ o ->
4050+ CarriersCarrier' <$>
4051+ (o .:? "country") <*> (o .:? "name") <*>
4052+ (o .:? "services" .!= mempty))
4053+
4054+instance ToJSON CarriersCarrier where
4055+ toJSON CarriersCarrier'{..}
4056+ = object
4057+ (catMaybes
4058+ [("country" .=) <$> _ccCountry,
4059+ ("name" .=) <$> _ccName,
4060+ ("services" .=) <$> _ccServices])
4061+
4062+--
4063+-- /See:/ 'carrierRate' smart constructor.
4064+data CarrierRate = CarrierRate'
4065+ { _crOriginPostalCode :: !(Maybe Text)
4066+ , _crFlatAdjustment :: !(Maybe Price)
4067+ , _crCarrierService :: !(Maybe Text)
4068+ , _crName :: !(Maybe Text)
4069+ , _crPercentageAdjustment :: !(Maybe Text)
4070+ , _crCarrierName :: !(Maybe Text)
4071+ } deriving (Eq,Show,Data,Typeable,Generic)
4072+
4073+-- | Creates a value of 'CarrierRate' with the minimum fields required to make a request.
4074+--
4075+-- Use one of the following lenses to modify other fields as desired:
4076+--
4077+-- * 'crOriginPostalCode'
4078+--
4079+-- * 'crFlatAdjustment'
4080+--
4081+-- * 'crCarrierService'
4082+--
4083+-- * 'crName'
4084+--
4085+-- * 'crPercentageAdjustment'
4086+--
4087+-- * 'crCarrierName'
4088+carrierRate
4089+ :: CarrierRate
4090+carrierRate =
4091+ CarrierRate'
4092+ { _crOriginPostalCode = Nothing
4093+ , _crFlatAdjustment = Nothing
4094+ , _crCarrierService = Nothing
4095+ , _crName = Nothing
4096+ , _crPercentageAdjustment = Nothing
4097+ , _crCarrierName = Nothing
4098+ }
4099+
4100+-- | Shipping origin for this carrier rate. Required.
4101+crOriginPostalCode :: Lens' CarrierRate (Maybe Text)
4102+crOriginPostalCode
4103+ = lens _crOriginPostalCode
4104+ (\ s a -> s{_crOriginPostalCode = a})
4105+
4106+-- | Additive shipping rate modifier. Can be negative. For example {
4107+-- \"value\": \"1\", \"currency\" : \"USD\" } adds $1 to the rate, {
4108+-- \"value\": \"-3\", \"currency\" : \"USD\" } removes $3 from the rate.
4109+-- Optional.
4110+crFlatAdjustment :: Lens' CarrierRate (Maybe Price)
4111+crFlatAdjustment
4112+ = lens _crFlatAdjustment
4113+ (\ s a -> s{_crFlatAdjustment = a})
4114+
4115+-- | Carrier service, such as \"ground\" or \"2 days\". The list of supported
4116+-- services for a carrier can be retrieved via the getSupportedCarriers
4117+-- method. Required.
4118+crCarrierService :: Lens' CarrierRate (Maybe Text)
4119+crCarrierService
4120+ = lens _crCarrierService
4121+ (\ s a -> s{_crCarrierService = a})
4122+
4123+-- | Name of the carrier rate. Must be unique per rate group. Required.
4124+crName :: Lens' CarrierRate (Maybe Text)
4125+crName = lens _crName (\ s a -> s{_crName = a})
4126+
4127+-- | Multiplicative shipping rate modifier as a number in decimal notation.
4128+-- Can be negative. For example \"5.4\" increases the rate by 5.4%, \"-3\"
4129+-- decreases the rate by 3%. Optional.
4130+crPercentageAdjustment :: Lens' CarrierRate (Maybe Text)
4131+crPercentageAdjustment
4132+ = lens _crPercentageAdjustment
4133+ (\ s a -> s{_crPercentageAdjustment = a})
4134+
4135+-- | Carrier service, such as \"UPS\" or \"Fedex\". The list of supported
4136+-- carriers can be retrieved via the getSupportedCarriers method. Required.
4137+crCarrierName :: Lens' CarrierRate (Maybe Text)
4138+crCarrierName
4139+ = lens _crCarrierName
4140+ (\ s a -> s{_crCarrierName = a})
4141+
4142+instance FromJSON CarrierRate where
4143+ parseJSON
4144+ = withObject "CarrierRate"
4145+ (\ o ->
4146+ CarrierRate' <$>
4147+ (o .:? "originPostalCode") <*>
4148+ (o .:? "flatAdjustment")
4149+ <*> (o .:? "carrierService")
4150+ <*> (o .:? "name")
4151+ <*> (o .:? "percentageAdjustment")
4152+ <*> (o .:? "carrierName"))
4153+
4154+instance ToJSON CarrierRate where
4155+ toJSON CarrierRate'{..}
4156+ = object
4157+ (catMaybes
4158+ [("originPostalCode" .=) <$> _crOriginPostalCode,
4159+ ("flatAdjustment" .=) <$> _crFlatAdjustment,
4160+ ("carrierService" .=) <$> _crCarrierService,
4161+ ("name" .=) <$> _crName,
4162+ ("percentageAdjustment" .=) <$>
4163+ _crPercentageAdjustment,
4164+ ("carrierName" .=) <$> _crCarrierName])
4165+
4166+--
4167+-- /See:/ 'shippingSettingsListResponse' smart constructor.
4168+data ShippingSettingsListResponse = ShippingSettingsListResponse'
4169+ { _sslrNextPageToken :: !(Maybe Text)
4170+ , _sslrKind :: !Text
4171+ , _sslrResources :: !(Maybe [ShippingSettings])
4172+ } deriving (Eq,Show,Data,Typeable,Generic)
4173+
4174+-- | Creates a value of 'ShippingSettingsListResponse' with the minimum fields required to make a request.
4175+--
4176+-- Use one of the following lenses to modify other fields as desired:
4177+--
4178+-- * 'sslrNextPageToken'
4179+--
4180+-- * 'sslrKind'
4181+--
4182+-- * 'sslrResources'
4183+shippingSettingsListResponse
4184+ :: ShippingSettingsListResponse
4185+shippingSettingsListResponse =
4186+ ShippingSettingsListResponse'
4187+ { _sslrNextPageToken = Nothing
4188+ , _sslrKind = "content#shippingsettingsListResponse"
4189+ , _sslrResources = Nothing
4190+ }
4191+
4192+-- | The token for the retrieval of the next page of shipping settings.
4193+sslrNextPageToken :: Lens' ShippingSettingsListResponse (Maybe Text)
4194+sslrNextPageToken
4195+ = lens _sslrNextPageToken
4196+ (\ s a -> s{_sslrNextPageToken = a})
4197+
4198+-- | Identifies what kind of resource this is. Value: the fixed string
4199+-- \"content#shippingsettingsListResponse\".
4200+sslrKind :: Lens' ShippingSettingsListResponse Text
4201+sslrKind = lens _sslrKind (\ s a -> s{_sslrKind = a})
4202+
4203+sslrResources :: Lens' ShippingSettingsListResponse [ShippingSettings]
4204+sslrResources
4205+ = lens _sslrResources
4206+ (\ s a -> s{_sslrResources = a})
4207+ . _Default
4208+ . _Coerce
4209+
4210+instance FromJSON ShippingSettingsListResponse where
4211+ parseJSON
4212+ = withObject "ShippingSettingsListResponse"
4213+ (\ o ->
4214+ ShippingSettingsListResponse' <$>
4215+ (o .:? "nextPageToken") <*>
4216+ (o .:? "kind" .!=
4217+ "content#shippingsettingsListResponse")
4218+ <*> (o .:? "resources" .!= mempty))
4219+
4220+instance ToJSON ShippingSettingsListResponse where
4221+ toJSON ShippingSettingsListResponse'{..}
4222+ = object
4223+ (catMaybes
4224+ [("nextPageToken" .=) <$> _sslrNextPageToken,
4225+ Just ("kind" .= _sslrKind),
4226+ ("resources" .=) <$> _sslrResources])
4227+
36074228--
36084229-- /See:/ 'ordersShipLineItemsRequest' smart constructor.
36094230data OrdersShipLineItemsRequest = OrdersShipLineItemsRequest'
@@ -4607,6 +5228,62 @@ instance ToJSON
46075228 ("method" .=) <$> _acbrecMethod,
46085229 ("batchId" .=) <$> _acbrecBatchId])
46095230
5231+--
5232+-- /See:/ 'deliveryTime' smart constructor.
5233+data DeliveryTime = DeliveryTime'
5234+ { _dtMinTransitTimeInDays :: !(Maybe (Textual Word32))
5235+ , _dtMaxTransitTimeInDays :: !(Maybe (Textual Word32))
5236+ } deriving (Eq,Show,Data,Typeable,Generic)
5237+
5238+-- | Creates a value of 'DeliveryTime' with the minimum fields required to make a request.
5239+--
5240+-- Use one of the following lenses to modify other fields as desired:
5241+--
5242+-- * 'dtMinTransitTimeInDays'
5243+--
5244+-- * 'dtMaxTransitTimeInDays'
5245+deliveryTime
5246+ :: DeliveryTime
5247+deliveryTime =
5248+ DeliveryTime'
5249+ { _dtMinTransitTimeInDays = Nothing
5250+ , _dtMaxTransitTimeInDays = Nothing
5251+ }
5252+
5253+-- | Minimum number of business days that is spent in transit. 0 means same
5254+-- day delivery, 1 means next day delivery. Required.
5255+dtMinTransitTimeInDays :: Lens' DeliveryTime (Maybe Word32)
5256+dtMinTransitTimeInDays
5257+ = lens _dtMinTransitTimeInDays
5258+ (\ s a -> s{_dtMinTransitTimeInDays = a})
5259+ . mapping _Coerce
5260+
5261+-- | Maximum number of business days that is spent in transit. 0 means same
5262+-- day delivery, 1 means next day delivery. Must be greater than or equal
5263+-- to minTransitTimeInDays. Required.
5264+dtMaxTransitTimeInDays :: Lens' DeliveryTime (Maybe Word32)
5265+dtMaxTransitTimeInDays
5266+ = lens _dtMaxTransitTimeInDays
5267+ (\ s a -> s{_dtMaxTransitTimeInDays = a})
5268+ . mapping _Coerce
5269+
5270+instance FromJSON DeliveryTime where
5271+ parseJSON
5272+ = withObject "DeliveryTime"
5273+ (\ o ->
5274+ DeliveryTime' <$>
5275+ (o .:? "minTransitTimeInDays") <*>
5276+ (o .:? "maxTransitTimeInDays"))
5277+
5278+instance ToJSON DeliveryTime where
5279+ toJSON DeliveryTime'{..}
5280+ = object
5281+ (catMaybes
5282+ [("minTransitTimeInDays" .=) <$>
5283+ _dtMinTransitTimeInDays,
5284+ ("maxTransitTimeInDays" .=) <$>
5285+ _dtMaxTransitTimeInDays])
5286+
46105287-- | A batch entry encoding a single non-batch productstatuses response.
46115288--
46125289-- /See:/ 'productstatusesCustomBatchResponseEntry' smart constructor.
@@ -4903,6 +5580,45 @@ instance ToJSON ProductShipping where
49035580 ("region" .=) <$> _psRegion,
49045581 ("locationId" .=) <$> _psLocationId])
49055582
5583+--
5584+-- /See:/ 'shippingSettingsCustomBatchRequest' smart constructor.
5585+newtype ShippingSettingsCustomBatchRequest = ShippingSettingsCustomBatchRequest'
5586+ { _sscbrEntries :: Maybe [ShippingSettingsCustomBatchRequestEntry]
5587+ } deriving (Eq,Show,Data,Typeable,Generic)
5588+
5589+-- | Creates a value of 'ShippingSettingsCustomBatchRequest' with the minimum fields required to make a request.
5590+--
5591+-- Use one of the following lenses to modify other fields as desired:
5592+--
5593+-- * 'sscbrEntries'
5594+shippingSettingsCustomBatchRequest
5595+ :: ShippingSettingsCustomBatchRequest
5596+shippingSettingsCustomBatchRequest =
5597+ ShippingSettingsCustomBatchRequest'
5598+ { _sscbrEntries = Nothing
5599+ }
5600+
5601+-- | The request entries to be processed in the batch.
5602+sscbrEntries :: Lens' ShippingSettingsCustomBatchRequest [ShippingSettingsCustomBatchRequestEntry]
5603+sscbrEntries
5604+ = lens _sscbrEntries (\ s a -> s{_sscbrEntries = a})
5605+ . _Default
5606+ . _Coerce
5607+
5608+instance FromJSON ShippingSettingsCustomBatchRequest
5609+ where
5610+ parseJSON
5611+ = withObject "ShippingSettingsCustomBatchRequest"
5612+ (\ o ->
5613+ ShippingSettingsCustomBatchRequest' <$>
5614+ (o .:? "entries" .!= mempty))
5615+
5616+instance ToJSON ShippingSettingsCustomBatchRequest
5617+ where
5618+ toJSON ShippingSettingsCustomBatchRequest'{..}
5619+ = object
5620+ (catMaybes [("entries" .=) <$> _sscbrEntries])
5621+
49065622-- | A batch entry encoding a single non-batch accountshipping request.
49075623--
49085624-- /See:/ 'accountshippingCustomBatchRequestEntry' smart constructor.
@@ -5199,6 +5915,118 @@ instance ToJSON OrdersListResponse where
51995915 Just ("kind" .= _olrKind),
52005916 ("resources" .=) <$> _olrResources])
52015917
5918+-- | A non-empty list of row or column headers for a table. Exactly one of
5919+-- prices, weights, numItems, postalCodeGroupNames, or locations must be
5920+-- set.
5921+--
5922+-- /See:/ 'headers' smart constructor.
5923+data Headers = Headers'
5924+ { _hNumberOfItems :: !(Maybe [Text])
5925+ , _hPostalCodeGroupNames :: !(Maybe [Text])
5926+ , _hPrices :: !(Maybe [Price])
5927+ , _hWeights :: !(Maybe [Weight])
5928+ , _hLocations :: !(Maybe [LocationIdSet])
5929+ } deriving (Eq,Show,Data,Typeable,Generic)
5930+
5931+-- | Creates a value of 'Headers' with the minimum fields required to make a request.
5932+--
5933+-- Use one of the following lenses to modify other fields as desired:
5934+--
5935+-- * 'hNumberOfItems'
5936+--
5937+-- * 'hPostalCodeGroupNames'
5938+--
5939+-- * 'hPrices'
5940+--
5941+-- * 'hWeights'
5942+--
5943+-- * 'hLocations'
5944+headers
5945+ :: Headers
5946+headers =
5947+ Headers'
5948+ { _hNumberOfItems = Nothing
5949+ , _hPostalCodeGroupNames = Nothing
5950+ , _hPrices = Nothing
5951+ , _hWeights = Nothing
5952+ , _hLocations = Nothing
5953+ }
5954+
5955+-- | A list of inclusive number of items upper bounds. The last value can be
5956+-- \"infinity\". For example [\"10\", \"50\", \"infinity\"] represents the
5957+-- headers \"\<= 10 items\", \" 50 items\". Must be non-empty. Can only be
5958+-- set if all other fields are not set.
5959+hNumberOfItems :: Lens' Headers [Text]
5960+hNumberOfItems
5961+ = lens _hNumberOfItems
5962+ (\ s a -> s{_hNumberOfItems = a})
5963+ . _Default
5964+ . _Coerce
5965+
5966+-- | A list of postal group names. The last value can be \"all other
5967+-- locations\". Example: [\"zone 1\", \"zone 2\", \"all other locations\"].
5968+-- The referred postal code groups must match the delivery country of the
5969+-- service. Must be non-empty. Can only be set if all other fields are not
5970+-- set.
5971+hPostalCodeGroupNames :: Lens' Headers [Text]
5972+hPostalCodeGroupNames
5973+ = lens _hPostalCodeGroupNames
5974+ (\ s a -> s{_hPostalCodeGroupNames = a})
5975+ . _Default
5976+ . _Coerce
5977+
5978+-- | be \"infinity\". For example [{\"value\": \"10\", \"currency\":
5979+-- \"USD\"}, {\"value\": \"500\", \"currency\": \"USD\"}, {\"value\":
5980+-- \"infinity\", \"currency\": \"USD\"}] represents the headers \"\<=
5981+-- $10\", \" $500\". All prices within a service must have the same
5982+-- currency. Must be non-empty. Can only be set if all other fields are not
5983+-- set.
5984+hPrices :: Lens' Headers [Price]
5985+hPrices
5986+ = lens _hPrices (\ s a -> s{_hPrices = a}) . _Default
5987+ . _Coerce
5988+
5989+-- | be \"infinity\". For example [{\"value\": \"10\", \"unit\": \"kg\"},
5990+-- {\"value\": \"50\", \"unit\": \"kg\"}, {\"value\": \"infinity\",
5991+-- \"unit\": \"kg\"}] represents the headers \"\<= 10kg\", \" 50kg\". All
5992+-- weights within a service must have the same unit. Must be non-empty. Can
5993+-- only be set if all other fields are not set.
5994+hWeights :: Lens' Headers [Weight]
5995+hWeights
5996+ = lens _hWeights (\ s a -> s{_hWeights = a}) .
5997+ _Default
5998+ . _Coerce
5999+
6000+-- | A list of location ID sets. Must be non-empty. Can only be set if all
6001+-- other fields are not set.
6002+hLocations :: Lens' Headers [LocationIdSet]
6003+hLocations
6004+ = lens _hLocations (\ s a -> s{_hLocations = a}) .
6005+ _Default
6006+ . _Coerce
6007+
6008+instance FromJSON Headers where
6009+ parseJSON
6010+ = withObject "Headers"
6011+ (\ o ->
6012+ Headers' <$>
6013+ (o .:? "numberOfItems" .!= mempty) <*>
6014+ (o .:? "postalCodeGroupNames" .!= mempty)
6015+ <*> (o .:? "prices" .!= mempty)
6016+ <*> (o .:? "weights" .!= mempty)
6017+ <*> (o .:? "locations" .!= mempty))
6018+
6019+instance ToJSON Headers where
6020+ toJSON Headers'{..}
6021+ = object
6022+ (catMaybes
6023+ [("numberOfItems" .=) <$> _hNumberOfItems,
6024+ ("postalCodeGroupNames" .=) <$>
6025+ _hPostalCodeGroupNames,
6026+ ("prices" .=) <$> _hPrices,
6027+ ("weights" .=) <$> _hWeights,
6028+ ("locations" .=) <$> _hLocations])
6029+
52026030--
52036031-- /See:/ 'ordersShipLineItemsResponse' smart constructor.
52046032data OrdersShipLineItemsResponse = OrdersShipLineItemsResponse'
@@ -5255,9 +6083,11 @@ instance ToJSON OrdersShipLineItemsResponse where
52556083data AccountShippingShippingService = AccountShippingShippingService'
52566084 { _asssCostRuleTree :: !(Maybe AccountShippingShippingServiceCostRule)
52576085 , _asssSaleCountry :: !(Maybe Text)
6086+ , _asssMaxDaysInTransit :: !(Maybe (Textual Word64))
52586087 , _asssCalculationMethod :: !(Maybe AccountShippingShippingServiceCalculationMethod)
52596088 , _asssActive :: !(Maybe Bool)
52606089 , _asssName :: !(Maybe Text)
6090+ , _asssMinDaysInTransit :: !(Maybe (Textual Word64))
52616091 } deriving (Eq,Show,Data,Typeable,Generic)
52626092
52636093-- | Creates a value of 'AccountShippingShippingService' with the minimum fields required to make a request.
@@ -5268,20 +6098,26 @@ data AccountShippingShippingService = AccountShippingShippingService'
52686098--
52696099-- * 'asssSaleCountry'
52706100--
6101+-- * 'asssMaxDaysInTransit'
6102+--
52716103-- * 'asssCalculationMethod'
52726104--
52736105-- * 'asssActive'
52746106--
52756107-- * 'asssName'
6108+--
6109+-- * 'asssMinDaysInTransit'
52766110accountShippingShippingService
52776111 :: AccountShippingShippingService
52786112accountShippingShippingService =
52796113 AccountShippingShippingService'
52806114 { _asssCostRuleTree = Nothing
52816115 , _asssSaleCountry = Nothing
6116+ , _asssMaxDaysInTransit = Nothing
52826117 , _asssCalculationMethod = Nothing
52836118 , _asssActive = Nothing
52846119 , _asssName = Nothing
6120+ , _asssMinDaysInTransit = Nothing
52856121 }
52866122
52876123-- | Decision tree for \"complicated\" shipping cost calculation.
@@ -5297,6 +6133,14 @@ asssSaleCountry
52976133 = lens _asssSaleCountry
52986134 (\ s a -> s{_asssSaleCountry = a})
52996135
6136+-- | The maximum number of days in transit. Must be a value between 0 and 250
6137+-- included. A value of 0 means same day delivery.
6138+asssMaxDaysInTransit :: Lens' AccountShippingShippingService (Maybe Word64)
6139+asssMaxDaysInTransit
6140+ = lens _asssMaxDaysInTransit
6141+ (\ s a -> s{_asssMaxDaysInTransit = a})
6142+ . mapping _Coerce
6143+
53006144-- | Calculation method for the \"simple\" case that needs no rules.
53016145asssCalculationMethod :: Lens' AccountShippingShippingService (Maybe AccountShippingShippingServiceCalculationMethod)
53026146asssCalculationMethod
@@ -5312,6 +6156,14 @@ asssActive
53126156asssName :: Lens' AccountShippingShippingService (Maybe Text)
53136157asssName = lens _asssName (\ s a -> s{_asssName = a})
53146158
6159+-- | The minimum number of days in transit. Must be a value between 0 and
6160+-- maxDaysIntransit included. A value of 0 means same day delivery.
6161+asssMinDaysInTransit :: Lens' AccountShippingShippingService (Maybe Word64)
6162+asssMinDaysInTransit
6163+ = lens _asssMinDaysInTransit
6164+ (\ s a -> s{_asssMinDaysInTransit = a})
6165+ . mapping _Coerce
6166+
53156167instance FromJSON AccountShippingShippingService
53166168 where
53176169 parseJSON
@@ -5319,9 +6171,11 @@ instance FromJSON AccountShippingShippingService
53196171 (\ o ->
53206172 AccountShippingShippingService' <$>
53216173 (o .:? "costRuleTree") <*> (o .:? "saleCountry") <*>
5322− (o .:? "calculationMethod")
6174+ (o .:? "maxDaysInTransit")
6175+ <*> (o .:? "calculationMethod")
53236176 <*> (o .:? "active")
5324− <*> (o .:? "name"))
6177+ <*> (o .:? "name")
6178+ <*> (o .:? "minDaysInTransit"))
53256179
53266180instance ToJSON AccountShippingShippingService where
53276181 toJSON AccountShippingShippingService'{..}
@@ -5329,9 +6183,11 @@ instance ToJSON AccountShippingShippingService where
53296183 (catMaybes
53306184 [("costRuleTree" .=) <$> _asssCostRuleTree,
53316185 ("saleCountry" .=) <$> _asssSaleCountry,
6186+ ("maxDaysInTransit" .=) <$> _asssMaxDaysInTransit,
53326187 ("calculationMethod" .=) <$> _asssCalculationMethod,
53336188 ("active" .=) <$> _asssActive,
5334− ("name" .=) <$> _asssName])
6189+ ("name" .=) <$> _asssName,
6190+ ("minDaysInTransit" .=) <$> _asssMinDaysInTransit])
53356191
53366192-- | A single or bi-dimensional table of shipping rates. Each dimension is
53376193-- defined in terms of consecutive price\/weight ranges, delivery
@@ -5452,6 +6308,132 @@ instance ToJSON AccountshippingCustomBatchResponse
54526308 [("entries" .=) <$> _acccEntries,
54536309 Just ("kind" .= _acccKind)])
54546310
6311+-- | The merchant account\'s shipping settings.
6312+--
6313+-- /See:/ 'shippingSettings' smart constructor.
6314+data ShippingSettings = ShippingSettings'
6315+ { _ssPostalCodeGroups :: !(Maybe [PostalCodeGroup])
6316+ , _ssAccountId :: !(Maybe (Textual Word64))
6317+ , _ssServices :: !(Maybe [Service])
6318+ } deriving (Eq,Show,Data,Typeable,Generic)
6319+
6320+-- | Creates a value of 'ShippingSettings' with the minimum fields required to make a request.
6321+--
6322+-- Use one of the following lenses to modify other fields as desired:
6323+--
6324+-- * 'ssPostalCodeGroups'
6325+--
6326+-- * 'ssAccountId'
6327+--
6328+-- * 'ssServices'
6329+shippingSettings
6330+ :: ShippingSettings
6331+shippingSettings =
6332+ ShippingSettings'
6333+ { _ssPostalCodeGroups = Nothing
6334+ , _ssAccountId = Nothing
6335+ , _ssServices = Nothing
6336+ }
6337+
6338+-- | A list of postal code groups that can be referred to in services.
6339+-- Optional.
6340+ssPostalCodeGroups :: Lens' ShippingSettings [PostalCodeGroup]
6341+ssPostalCodeGroups
6342+ = lens _ssPostalCodeGroups
6343+ (\ s a -> s{_ssPostalCodeGroups = a})
6344+ . _Default
6345+ . _Coerce
6346+
6347+-- | The ID of the account to which these account shipping settings belong.
6348+-- Ignored upon update, always present in get request responses.
6349+ssAccountId :: Lens' ShippingSettings (Maybe Word64)
6350+ssAccountId
6351+ = lens _ssAccountId (\ s a -> s{_ssAccountId = a}) .
6352+ mapping _Coerce
6353+
6354+-- | The target account\'s list of services. Optional.
6355+ssServices :: Lens' ShippingSettings [Service]
6356+ssServices
6357+ = lens _ssServices (\ s a -> s{_ssServices = a}) .
6358+ _Default
6359+ . _Coerce
6360+
6361+instance FromJSON ShippingSettings where
6362+ parseJSON
6363+ = withObject "ShippingSettings"
6364+ (\ o ->
6365+ ShippingSettings' <$>
6366+ (o .:? "postalCodeGroups" .!= mempty) <*>
6367+ (o .:? "accountId")
6368+ <*> (o .:? "services" .!= mempty))
6369+
6370+instance ToJSON ShippingSettings where
6371+ toJSON ShippingSettings'{..}
6372+ = object
6373+ (catMaybes
6374+ [("postalCodeGroups" .=) <$> _ssPostalCodeGroups,
6375+ ("accountId" .=) <$> _ssAccountId,
6376+ ("services" .=) <$> _ssServices])
6377+
6378+--
6379+-- /See:/ 'postalCodeRange' smart constructor.
6380+data PostalCodeRange = PostalCodeRange'
6381+ { _pcrPostalCodeRangeBegin :: !(Maybe Text)
6382+ , _pcrPostalCodeRangeEnd :: !(Maybe Text)
6383+ } deriving (Eq,Show,Data,Typeable,Generic)
6384+
6385+-- | Creates a value of 'PostalCodeRange' with the minimum fields required to make a request.
6386+--
6387+-- Use one of the following lenses to modify other fields as desired:
6388+--
6389+-- * 'pcrPostalCodeRangeBegin'
6390+--
6391+-- * 'pcrPostalCodeRangeEnd'
6392+postalCodeRange
6393+ :: PostalCodeRange
6394+postalCodeRange =
6395+ PostalCodeRange'
6396+ { _pcrPostalCodeRangeBegin = Nothing
6397+ , _pcrPostalCodeRangeEnd = Nothing
6398+ }
6399+
6400+-- | A postal code or a pattern of the form prefix* denoting the inclusive
6401+-- lower bound of the range defining the area. Examples values: \"94108\",
6402+-- \"9410*\", \"9*\". Required.
6403+pcrPostalCodeRangeBegin :: Lens' PostalCodeRange (Maybe Text)
6404+pcrPostalCodeRangeBegin
6405+ = lens _pcrPostalCodeRangeBegin
6406+ (\ s a -> s{_pcrPostalCodeRangeBegin = a})
6407+
6408+-- | A postal code or a pattern of the form prefix* denoting the inclusive
6409+-- upper bound of the range defining the area. It must have the same length
6410+-- as postalCodeRangeBegin: if postalCodeRangeBegin is a postal code then
6411+-- postalCodeRangeEnd must be a postal code too; if postalCodeRangeBegin is
6412+-- a pattern then postalCodeRangeEnd must be a pattern with the same prefix
6413+-- length. Optional: if not set, then the area is defined as being all the
6414+-- postal codes matching postalCodeRangeBegin.
6415+pcrPostalCodeRangeEnd :: Lens' PostalCodeRange (Maybe Text)
6416+pcrPostalCodeRangeEnd
6417+ = lens _pcrPostalCodeRangeEnd
6418+ (\ s a -> s{_pcrPostalCodeRangeEnd = a})
6419+
6420+instance FromJSON PostalCodeRange where
6421+ parseJSON
6422+ = withObject "PostalCodeRange"
6423+ (\ o ->
6424+ PostalCodeRange' <$>
6425+ (o .:? "postalCodeRangeBegin") <*>
6426+ (o .:? "postalCodeRangeEnd"))
6427+
6428+instance ToJSON PostalCodeRange where
6429+ toJSON PostalCodeRange'{..}
6430+ = object
6431+ (catMaybes
6432+ [("postalCodeRangeBegin" .=) <$>
6433+ _pcrPostalCodeRangeBegin,
6434+ ("postalCodeRangeEnd" .=) <$>
6435+ _pcrPostalCodeRangeEnd])
6436+
54556437--
54566438-- /See:/ 'ordersUpdateShipmentResponse' smart constructor.
54576439data OrdersUpdateShipmentResponse = OrdersUpdateShipmentResponse'
@@ -5592,36 +6574,35 @@ instance ToJSON OrdersReturnLineItemResponse where
55926574--
55936575-- /See:/ 'productCustomGroup' smart constructor.
55946576data ProductCustomGroup = ProductCustomGroup'
5595− { _pcgName :: !(Maybe Text)
5596− , _pcgAttributes :: !(Maybe [ProductCustomAttribute])
6577+ { _pName :: !(Maybe Text)
6578+ , _pAttributes :: !(Maybe [ProductCustomAttribute])
55976579 } deriving (Eq,Show,Data,Typeable,Generic)
55986580
55996581-- | Creates a value of 'ProductCustomGroup' with the minimum fields required to make a request.
56006582--
56016583-- Use one of the following lenses to modify other fields as desired:
56026584--
5603−-- * 'pcgName'
6585+-- * 'pName'
56046586--
5605−-- * 'pcgAttributes'
6587+-- * 'pAttributes'
56066588productCustomGroup
56076589 :: ProductCustomGroup
56086590productCustomGroup =
56096591 ProductCustomGroup'
5610− { _pcgName = Nothing
5611− , _pcgAttributes = Nothing
6592+ { _pName = Nothing
6593+ , _pAttributes = Nothing
56126594 }
56136595
56146596-- | The name of the group. Underscores will be replaced by spaces upon
56156597-- insertion.
5616−pcgName :: Lens' ProductCustomGroup (Maybe Text)
5617−pcgName = lens _pcgName (\ s a -> s{_pcgName = a})
6598+pName :: Lens' ProductCustomGroup (Maybe Text)
6599+pName = lens _pName (\ s a -> s{_pName = a})
56186600
56196601-- | The sub-attributes.
5620−pcgAttributes :: Lens' ProductCustomGroup [ProductCustomAttribute]
5621−pcgAttributes
5622− = lens _pcgAttributes
5623− (\ s a -> s{_pcgAttributes = a})
5624− . _Default
6602+pAttributes :: Lens' ProductCustomGroup [ProductCustomAttribute]
6603+pAttributes
6604+ = lens _pAttributes (\ s a -> s{_pAttributes = a}) .
6605+ _Default
56256606 . _Coerce
56266607
56276608instance FromJSON ProductCustomGroup where
@@ -5635,8 +6616,8 @@ instance ToJSON ProductCustomGroup where
56356616 toJSON ProductCustomGroup'{..}
56366617 = object
56376618 (catMaybes
5638− [("name" .=) <$> _pcgName,
5639− ("attributes" .=) <$> _pcgAttributes])
6619+ [("name" .=) <$> _pName,
6620+ ("attributes" .=) <$> _pAttributes])
56406621
56416622--
56426623-- /See:/ 'accountstatusesCustomBatchResponse' smart constructor.
@@ -5691,6 +6672,81 @@ instance ToJSON AccountstatusesCustomBatchResponse
56916672 [("entries" .=) <$> _acbr1Entries,
56926673 Just ("kind" .= _acbr1Kind)])
56936674
6675+-- | A batch entry encoding a single non-batch shipping settings response.
6676+--
6677+-- /See:/ 'shippingSettingsCustomBatchResponseEntry' smart constructor.
6678+data ShippingSettingsCustomBatchResponseEntry = ShippingSettingsCustomBatchResponseEntry'
6679+ { _sKind :: !Text
6680+ , _sShippingSettings :: !(Maybe ShippingSettings)
6681+ , _sErrors :: !(Maybe Errors)
6682+ , _sBatchId :: !(Maybe (Textual Word32))
6683+ } deriving (Eq,Show,Data,Typeable,Generic)
6684+
6685+-- | Creates a value of 'ShippingSettingsCustomBatchResponseEntry' with the minimum fields required to make a request.
6686+--
6687+-- Use one of the following lenses to modify other fields as desired:
6688+--
6689+-- * 'sKind'
6690+--
6691+-- * 'sShippingSettings'
6692+--
6693+-- * 'sErrors'
6694+--
6695+-- * 'sBatchId'
6696+shippingSettingsCustomBatchResponseEntry
6697+ :: ShippingSettingsCustomBatchResponseEntry
6698+shippingSettingsCustomBatchResponseEntry =
6699+ ShippingSettingsCustomBatchResponseEntry'
6700+ { _sKind = "content#shippingsettingsCustomBatchResponseEntry"
6701+ , _sShippingSettings = Nothing
6702+ , _sErrors = Nothing
6703+ , _sBatchId = Nothing
6704+ }
6705+
6706+-- | Identifies what kind of resource this is. Value: the fixed string
6707+-- \"content#shippingsettingsCustomBatchResponseEntry\".
6708+sKind :: Lens' ShippingSettingsCustomBatchResponseEntry Text
6709+sKind = lens _sKind (\ s a -> s{_sKind = a})
6710+
6711+-- | The retrieved or updated account shipping settings.
6712+sShippingSettings :: Lens' ShippingSettingsCustomBatchResponseEntry (Maybe ShippingSettings)
6713+sShippingSettings
6714+ = lens _sShippingSettings
6715+ (\ s a -> s{_sShippingSettings = a})
6716+
6717+-- | A list of errors defined if, and only if, the request failed.
6718+sErrors :: Lens' ShippingSettingsCustomBatchResponseEntry (Maybe Errors)
6719+sErrors = lens _sErrors (\ s a -> s{_sErrors = a})
6720+
6721+-- | The ID of the request entry to which this entry responds.
6722+sBatchId :: Lens' ShippingSettingsCustomBatchResponseEntry (Maybe Word32)
6723+sBatchId
6724+ = lens _sBatchId (\ s a -> s{_sBatchId = a}) .
6725+ mapping _Coerce
6726+
6727+instance FromJSON
6728+ ShippingSettingsCustomBatchResponseEntry where
6729+ parseJSON
6730+ = withObject
6731+ "ShippingSettingsCustomBatchResponseEntry"
6732+ (\ o ->
6733+ ShippingSettingsCustomBatchResponseEntry' <$>
6734+ (o .:? "kind" .!=
6735+ "content#shippingsettingsCustomBatchResponseEntry")
6736+ <*> (o .:? "shippingSettings")
6737+ <*> (o .:? "errors")
6738+ <*> (o .:? "batchId"))
6739+
6740+instance ToJSON
6741+ ShippingSettingsCustomBatchResponseEntry where
6742+ toJSON ShippingSettingsCustomBatchResponseEntry'{..}
6743+ = object
6744+ (catMaybes
6745+ [Just ("kind" .= _sKind),
6746+ ("shippingSettings" .=) <$> _sShippingSettings,
6747+ ("errors" .=) <$> _sErrors,
6748+ ("batchId" .=) <$> _sBatchId])
6749+
56946750-- | The status of a product, i.e., information about a product computed
56956751-- asynchronously by the data quality analysis.
56966752--
@@ -6266,6 +7322,79 @@ instance ToJSON AccountshippingListResponse where
62667322 Just ("kind" .= _alr1Kind),
62677323 ("resources" .=) <$> _alr1Resources])
62687324
7325+--
7326+-- /See:/ 'locationIdSet' smart constructor.
7327+newtype LocationIdSet = LocationIdSet'
7328+ { _lisLocationIds :: Maybe [Text]
7329+ } deriving (Eq,Show,Data,Typeable,Generic)
7330+
7331+-- | Creates a value of 'LocationIdSet' with the minimum fields required to make a request.
7332+--
7333+-- Use one of the following lenses to modify other fields as desired:
7334+--
7335+-- * 'lisLocationIds'
7336+locationIdSet
7337+ :: LocationIdSet
7338+locationIdSet =
7339+ LocationIdSet'
7340+ { _lisLocationIds = Nothing
7341+ }
7342+
7343+-- | A non-empty list of location IDs. They must all be of the same location
7344+-- type (e.g., state).
7345+lisLocationIds :: Lens' LocationIdSet [Text]
7346+lisLocationIds
7347+ = lens _lisLocationIds
7348+ (\ s a -> s{_lisLocationIds = a})
7349+ . _Default
7350+ . _Coerce
7351+
7352+instance FromJSON LocationIdSet where
7353+ parseJSON
7354+ = withObject "LocationIdSet"
7355+ (\ o ->
7356+ LocationIdSet' <$> (o .:? "locationIds" .!= mempty))
7357+
7358+instance ToJSON LocationIdSet where
7359+ toJSON LocationIdSet'{..}
7360+ = object
7361+ (catMaybes [("locationIds" .=) <$> _lisLocationIds])
7362+
7363+--
7364+-- /See:/ 'row' smart constructor.
7365+newtype Row = Row'
7366+ { _rCells :: Maybe [Value]
7367+ } deriving (Eq,Show,Data,Typeable,Generic)
7368+
7369+-- | Creates a value of 'Row' with the minimum fields required to make a request.
7370+--
7371+-- Use one of the following lenses to modify other fields as desired:
7372+--
7373+-- * 'rCells'
7374+row
7375+ :: Row
7376+row =
7377+ Row'
7378+ { _rCells = Nothing
7379+ }
7380+
7381+-- | The list of cells that constitute the row. Must have the same length as
7382+-- columnHeaders for two-dimensional tables, a length of 1 for
7383+-- one-dimensional tables. Required.
7384+rCells :: Lens' Row [Value]
7385+rCells
7386+ = lens _rCells (\ s a -> s{_rCells = a}) . _Default .
7387+ _Coerce
7388+
7389+instance FromJSON Row where
7390+ parseJSON
7391+ = withObject "Row"
7392+ (\ o -> Row' <$> (o .:? "cells" .!= mempty))
7393+
7394+instance ToJSON Row where
7395+ toJSON Row'{..}
7396+ = object (catMaybes [("cells" .=) <$> _rCells])
7397+
62697398--
62707399-- /See:/ 'inventory' smart constructor.
62717400data Inventory = Inventory'
@@ -6836,6 +7965,103 @@ instance ToJSON AccountShippingCarrierRate where
68367965 ("name" .=) <$> _ascrName,
68377966 ("modifierFlatRate" .=) <$> _ascrModifierFlatRate])
68387967
7968+--
7969+-- /See:/ 'rateGroup' smart constructor.
7970+data RateGroup = RateGroup'
7971+ { _rgCarrierRates :: !(Maybe [CarrierRate])
7972+ , _rgApplicableShippingLabels :: !(Maybe [Text])
7973+ , _rgMainTable :: !(Maybe Table)
7974+ , _rgSingleValue :: !(Maybe Value)
7975+ , _rgSubtables :: !(Maybe [Table])
7976+ } deriving (Eq,Show,Data,Typeable,Generic)
7977+
7978+-- | Creates a value of 'RateGroup' with the minimum fields required to make a request.
7979+--
7980+-- Use one of the following lenses to modify other fields as desired:
7981+--
7982+-- * 'rgCarrierRates'
7983+--
7984+-- * 'rgApplicableShippingLabels'
7985+--
7986+-- * 'rgMainTable'
7987+--
7988+-- * 'rgSingleValue'
7989+--
7990+-- * 'rgSubtables'
7991+rateGroup
7992+ :: RateGroup
7993+rateGroup =
7994+ RateGroup'
7995+ { _rgCarrierRates = Nothing
7996+ , _rgApplicableShippingLabels = Nothing
7997+ , _rgMainTable = Nothing
7998+ , _rgSingleValue = Nothing
7999+ , _rgSubtables = Nothing
8000+ }
8001+
8002+-- | A list of carrier rates that can be referred to by mainTable or
8003+-- singleValue.
8004+rgCarrierRates :: Lens' RateGroup [CarrierRate]
8005+rgCarrierRates
8006+ = lens _rgCarrierRates
8007+ (\ s a -> s{_rgCarrierRates = a})
8008+ . _Default
8009+ . _Coerce
8010+
8011+-- | A list of shipping labels defining the products to which this rate group
8012+-- applies to. This is a disjunction: only one of the labels has to match
8013+-- for the rate group to apply. May only be empty for the last rate group
8014+-- of a service. Required.
8015+rgApplicableShippingLabels :: Lens' RateGroup [Text]
8016+rgApplicableShippingLabels
8017+ = lens _rgApplicableShippingLabels
8018+ (\ s a -> s{_rgApplicableShippingLabels = a})
8019+ . _Default
8020+ . _Coerce
8021+
8022+-- | A table defining the rate group, when singleValue is not expressive
8023+-- enough. Can only be set if singleValue is not set.
8024+rgMainTable :: Lens' RateGroup (Maybe Table)
8025+rgMainTable
8026+ = lens _rgMainTable (\ s a -> s{_rgMainTable = a})
8027+
8028+-- | The value of the rate group (e.g. flat rate $10). Can only be set if
8029+-- mainTable and subtables are not set.
8030+rgSingleValue :: Lens' RateGroup (Maybe Value)
8031+rgSingleValue
8032+ = lens _rgSingleValue
8033+ (\ s a -> s{_rgSingleValue = a})
8034+
8035+-- | A list of subtables referred to by mainTable. Can only be set if
8036+-- mainTable is set.
8037+rgSubtables :: Lens' RateGroup [Table]
8038+rgSubtables
8039+ = lens _rgSubtables (\ s a -> s{_rgSubtables = a}) .
8040+ _Default
8041+ . _Coerce
8042+
8043+instance FromJSON RateGroup where
8044+ parseJSON
8045+ = withObject "RateGroup"
8046+ (\ o ->
8047+ RateGroup' <$>
8048+ (o .:? "carrierRates" .!= mempty) <*>
8049+ (o .:? "applicableShippingLabels" .!= mempty)
8050+ <*> (o .:? "mainTable")
8051+ <*> (o .:? "singleValue")
8052+ <*> (o .:? "subtables" .!= mempty))
8053+
8054+instance ToJSON RateGroup where
8055+ toJSON RateGroup'{..}
8056+ = object
8057+ (catMaybes
8058+ [("carrierRates" .=) <$> _rgCarrierRates,
8059+ ("applicableShippingLabels" .=) <$>
8060+ _rgApplicableShippingLabels,
8061+ ("mainTable" .=) <$> _rgMainTable,
8062+ ("singleValue" .=) <$> _rgSingleValue,
8063+ ("subtables" .=) <$> _rgSubtables])
8064+
68398065--
68408066-- /See:/ 'orderPromotion' smart constructor.
68418067data OrderPromotion = OrderPromotion'
@@ -8334,6 +9560,7 @@ data Product = Product'
83349560 , _ppShippingLength :: !(Maybe ProductShippingDimension)
83359561 , _ppCustomLabel3 :: !(Maybe Text)
83369562 , _ppWarnings :: !(Maybe [Error'])
9563+ , _ppAdditionalProductTypes :: !(Maybe [Text])
83379564 , _ppAvailability :: !(Maybe Text)
83389565 , _ppTargetCountry :: !(Maybe Text)
83399566 , _ppShippingLabel :: !(Maybe Text)
@@ -8441,6 +9668,8 @@ data Product = Product'
84419668--
84429669-- * 'ppWarnings'
84439670--
9671+-- * 'ppAdditionalProductTypes'
9672+--
84449673-- * 'ppAvailability'
84459674--
84469675-- * 'ppTargetCountry'
@@ -8556,6 +9785,7 @@ product =
85569785 , _ppShippingLength = Nothing
85579786 , _ppCustomLabel3 = Nothing
85589787 , _ppWarnings = Nothing
9788+ , _ppAdditionalProductTypes = Nothing
85599789 , _ppAvailability = Nothing
85609790 , _ppTargetCountry = Nothing
85619791 , _ppShippingLabel = Nothing
@@ -8777,6 +10007,15 @@ ppWarnings
877710007 _Default
877810008 . _Coerce
877910009
10010+-- | Additional categories of the item (formatted as in products feed
10011+-- specification).
10012+ppAdditionalProductTypes :: Lens' Product [Text]
10013+ppAdditionalProductTypes
10014+ = lens _ppAdditionalProductTypes
10015+ (\ s a -> s{_ppAdditionalProductTypes = a})
10016+ . _Default
10017+ . _Coerce
10018+
878010019-- | Availability status of the item.
878110020ppAvailability :: Lens' Product (Maybe Text)
878210021ppAvailability
@@ -9066,6 +10305,7 @@ instance FromJSON Product where
906610305 <*> (o .:? "shippingLength")
906710306 <*> (o .:? "customLabel3")
906810307 <*> (o .:? "warnings" .!= mempty)
10308+ <*> (o .:? "additionalProductTypes" .!= mempty)
906910309 <*> (o .:? "availability")
907010310 <*> (o .:? "targetCountry")
907110311 <*> (o .:? "shippingLabel")
@@ -9145,6 +10385,8 @@ instance ToJSON Product where
914510385 ("shippingLength" .=) <$> _ppShippingLength,
914610386 ("customLabel3" .=) <$> _ppCustomLabel3,
914710387 ("warnings" .=) <$> _ppWarnings,
10388+ ("additionalProductTypes" .=) <$>
10389+ _ppAdditionalProductTypes,
914810390 ("availability" .=) <$> _ppAvailability,
914910391 ("targetCountry" .=) <$> _ppTargetCountry,
915010392 ("shippingLabel" .=) <$> _ppShippingLabel,
@@ -9557,6 +10799,58 @@ instance ToJSON
955710799 ("productId" .=) <$> _pcbrecProductId,
955810800 ("batchId" .=) <$> _pcbrecBatchId])
955910801
10802+--
10803+-- /See:/ 'shippingSettingsCustomBatchResponse' smart constructor.
10804+data ShippingSettingsCustomBatchResponse = ShippingSettingsCustomBatchResponse'
10805+ { _shiEntries :: !(Maybe [ShippingSettingsCustomBatchResponseEntry])
10806+ , _shiKind :: !Text
10807+ } deriving (Eq,Show,Data,Typeable,Generic)
10808+
10809+-- | Creates a value of 'ShippingSettingsCustomBatchResponse' with the minimum fields required to make a request.
10810+--
10811+-- Use one of the following lenses to modify other fields as desired:
10812+--
10813+-- * 'shiEntries'
10814+--
10815+-- * 'shiKind'
10816+shippingSettingsCustomBatchResponse
10817+ :: ShippingSettingsCustomBatchResponse
10818+shippingSettingsCustomBatchResponse =
10819+ ShippingSettingsCustomBatchResponse'
10820+ { _shiEntries = Nothing
10821+ , _shiKind = "content#shippingsettingsCustomBatchResponse"
10822+ }
10823+
10824+-- | The result of the execution of the batch requests.
10825+shiEntries :: Lens' ShippingSettingsCustomBatchResponse [ShippingSettingsCustomBatchResponseEntry]
10826+shiEntries
10827+ = lens _shiEntries (\ s a -> s{_shiEntries = a}) .
10828+ _Default
10829+ . _Coerce
10830+
10831+-- | Identifies what kind of resource this is. Value: the fixed string
10832+-- \"content#shippingsettingsCustomBatchResponse\".
10833+shiKind :: Lens' ShippingSettingsCustomBatchResponse Text
10834+shiKind = lens _shiKind (\ s a -> s{_shiKind = a})
10835+
10836+instance FromJSON ShippingSettingsCustomBatchResponse
10837+ where
10838+ parseJSON
10839+ = withObject "ShippingSettingsCustomBatchResponse"
10840+ (\ o ->
10841+ ShippingSettingsCustomBatchResponse' <$>
10842+ (o .:? "entries" .!= mempty) <*>
10843+ (o .:? "kind" .!=
10844+ "content#shippingsettingsCustomBatchResponse"))
10845+
10846+instance ToJSON ShippingSettingsCustomBatchResponse
10847+ where
10848+ toJSON ShippingSettingsCustomBatchResponse'{..}
10849+ = object
10850+ (catMaybes
10851+ [("entries" .=) <$> _shiEntries,
10852+ Just ("kind" .= _shiKind)])
10853+
956010854-- | A batch entry encoding a single non-batch accountshipping response.
956110855--
956210856-- /See:/ 'accountshippingCustomBatchResponseEntry' smart constructor.
@@ -9957,6 +11251,76 @@ instance ToJSON OrdersAcknowledgeResponse where
995711251 [Just ("kind" .= _oarKind),
995811252 ("executionStatus" .=) <$> _oarExecutionStatus])
995911253
11254+--
11255+-- /See:/ 'table' smart constructor.
11256+data Table = Table'
11257+ { _tRows :: !(Maybe [Row])
11258+ , _tName :: !(Maybe Text)
11259+ , _tColumnHeaders :: !(Maybe Headers)
11260+ , _tRowHeaders :: !(Maybe Headers)
11261+ } deriving (Eq,Show,Data,Typeable,Generic)
11262+
11263+-- | Creates a value of 'Table' with the minimum fields required to make a request.
11264+--
11265+-- Use one of the following lenses to modify other fields as desired:
11266+--
11267+-- * 'tRows'
11268+--
11269+-- * 'tName'
11270+--
11271+-- * 'tColumnHeaders'
11272+--
11273+-- * 'tRowHeaders'
11274+table
11275+ :: Table
11276+table =
11277+ Table'
11278+ { _tRows = Nothing
11279+ , _tName = Nothing
11280+ , _tColumnHeaders = Nothing
11281+ , _tRowHeaders = Nothing
11282+ }
11283+
11284+-- | The list of rows that constitute the table. Must have the same length as
11285+-- rowHeaders. Required.
11286+tRows :: Lens' Table [Row]
11287+tRows
11288+ = lens _tRows (\ s a -> s{_tRows = a}) . _Default .
11289+ _Coerce
11290+
11291+-- | Name of the table. Required for subtables, ignored for the main table.
11292+tName :: Lens' Table (Maybe Text)
11293+tName = lens _tName (\ s a -> s{_tName = a})
11294+
11295+-- | Headers of the table\'s columns. Optional: if not set then the table has
11296+-- only one dimension.
11297+tColumnHeaders :: Lens' Table (Maybe Headers)
11298+tColumnHeaders
11299+ = lens _tColumnHeaders
11300+ (\ s a -> s{_tColumnHeaders = a})
11301+
11302+-- | Headers of the table\'s rows. Required.
11303+tRowHeaders :: Lens' Table (Maybe Headers)
11304+tRowHeaders
11305+ = lens _tRowHeaders (\ s a -> s{_tRowHeaders = a})
11306+
11307+instance FromJSON Table where
11308+ parseJSON
11309+ = withObject "Table"
11310+ (\ o ->
11311+ Table' <$>
11312+ (o .:? "rows" .!= mempty) <*> (o .:? "name") <*>
11313+ (o .:? "columnHeaders")
11314+ <*> (o .:? "rowHeaders"))
11315+
11316+instance ToJSON Table where
11317+ toJSON Table'{..}
11318+ = object
11319+ (catMaybes
11320+ [("rows" .=) <$> _tRows, ("name" .=) <$> _tName,
11321+ ("columnHeaders" .=) <$> _tColumnHeaders,
11322+ ("rowHeaders" .=) <$> _tRowHeaders])
11323+
996011324--
996111325-- /See:/ 'order' smart constructor.
996211326data Order = Order'
@@ -9977,6 +11341,7 @@ data Order = Order'
997711341 , _ooId :: !(Maybe Text)
997811342 , _ooPaymentMethod :: !(Maybe OrderPaymentMethod)
997911343 , _ooPromotions :: !(Maybe [OrderPromotion])
11344+ , _ooChannelType :: !(Maybe Text)
998011345 , _ooPaymentStatus :: !(Maybe Text)
998111346 , _ooShippingCost :: !(Maybe Price)
998211347 } deriving (Eq,Show,Data,Typeable,Generic)
@@ -10019,6 +11384,8 @@ data Order = Order'
1001911384--
1002011385-- * 'ooPromotions'
1002111386--
11387+-- * 'ooChannelType'
11388+--
1002211389-- * 'ooPaymentStatus'
1002311390--
1002411391-- * 'ooShippingCost'
@@ -10043,6 +11410,7 @@ order =
1004311410 , _ooId = Nothing
1004411411 , _ooPaymentMethod = Nothing
1004511412 , _ooPromotions = Nothing
11413+ , _ooChannelType = Nothing
1004611414 , _ooPaymentStatus = Nothing
1004711415 , _ooShippingCost = Nothing
1004811416 }
@@ -10147,6 +11515,13 @@ ooPromotions
1014711515 . _Default
1014811516 . _Coerce
1014911517
11518+-- | The channel type of the order: \"purchaseOnGoogle\" or
11519+-- \"googleExpress\".
11520+ooChannelType :: Lens' Order (Maybe Text)
11521+ooChannelType
11522+ = lens _ooChannelType
11523+ (\ s a -> s{_ooChannelType = a})
11524+
1015011525-- | The status of the payment.
1015111526ooPaymentStatus :: Lens' Order (Maybe Text)
1015211527ooPaymentStatus
@@ -10180,6 +11555,7 @@ instance FromJSON Order where
1018011555 <*> (o .:? "id")
1018111556 <*> (o .:? "paymentMethod")
1018211557 <*> (o .:? "promotions" .!= mempty)
11558+ <*> (o .:? "channelType")
1018311559 <*> (o .:? "paymentStatus")
1018411560 <*> (o .:? "shippingCost"))
1018511561
@@ -10203,6 +11579,7 @@ instance ToJSON Order where
1020311579 ("customer" .=) <$> _ooCustomer, ("id" .=) <$> _ooId,
1020411580 ("paymentMethod" .=) <$> _ooPaymentMethod,
1020511581 ("promotions" .=) <$> _ooPromotions,
11582+ ("channelType" .=) <$> _ooChannelType,
1020611583 ("paymentStatus" .=) <$> _ooPaymentStatus,
1020711584 ("shippingCost" .=) <$> _ooShippingCost])
1020811585
@@ -11568,9 +12945,9 @@ ocActor :: Lens' OrderCancellation (Maybe Text)
1156812945ocActor = lens _ocActor (\ s a -> s{_ocActor = a})
1156912946
1157012947-- | The reason for the cancellation. Orders that are cancelled with a
11571−-- noIventory reason will lead to the removal of the product from POG until
11572−-- you make an update to that product. This will not affect your Shopping
11573−-- ads.
12948+-- noInventory reason will lead to the removal of the product from POG
12949+-- until you make an update to that product. This will not affect your
12950+-- Shopping ads.
1157412951ocReason :: Lens' OrderCancellation (Maybe Text)
1157512952ocReason = lens _ocReason (\ s a -> s{_ocReason = a})
1157612953