{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module Network.Google.ShoppingContent.Types.Product where
import Network.Google.Prelude
import Network.Google.ShoppingContent.Types.Sum
newtype OrdersAcknowledgeRequest = OrdersAcknowledgeRequest'
{ _oarOperationId :: Maybe Text
} deriving (Eq,Show,Data,Typeable,Generic)
ordersAcknowledgeRequest
:: OrdersAcknowledgeRequest
ordersAcknowledgeRequest =
OrdersAcknowledgeRequest'
{ _oarOperationId = Nothing
}
oarOperationId :: Lens' OrdersAcknowledgeRequest (Maybe Text)
oarOperationId
= lens _oarOperationId
(\ s a -> s{_oarOperationId = a})
instance FromJSON OrdersAcknowledgeRequest where
parseJSON
= withObject "OrdersAcknowledgeRequest"
(\ o ->
OrdersAcknowledgeRequest' <$> (o .:? "operationId"))
instance ToJSON OrdersAcknowledgeRequest where
toJSON OrdersAcknowledgeRequest'{..}
= object
(catMaybes [("operationId" .=) <$> _oarOperationId])
data AccountTax = AccountTax'
{ _atRules :: !(Maybe [AccountTaxTaxRule])
, _atKind :: !Text
, _atAccountId :: !(Maybe (Textual Word64))
} deriving (Eq,Show,Data,Typeable,Generic)
accountTax
:: AccountTax
accountTax =
AccountTax'
{ _atRules = Nothing
, _atKind = "content#accountTax"
, _atAccountId = Nothing
}
atRules :: Lens' AccountTax [AccountTaxTaxRule]
atRules
= lens _atRules (\ s a -> s{_atRules = a}) . _Default
. _Coerce
atKind :: Lens' AccountTax Text
atKind = lens _atKind (\ s a -> s{_atKind = a})
atAccountId :: Lens' AccountTax (Maybe Word64)
atAccountId
= lens _atAccountId (\ s a -> s{_atAccountId = a}) .
mapping _Coerce
instance FromJSON AccountTax where
parseJSON
= withObject "AccountTax"
(\ o ->
AccountTax' <$>
(o .:? "rules" .!= mempty) <*>
(o .:? "kind" .!= "content#accountTax")
<*> (o .:? "accountId"))
instance ToJSON AccountTax where
toJSON AccountTax'{..}
= object
(catMaybes
[("rules" .=) <$> _atRules, Just ("kind" .= _atKind),
("accountId" .=) <$> _atAccountId])
data OrderinvoicesCreateRefundInvoiceResponse = OrderinvoicesCreateRefundInvoiceResponse'
{ _ocrirKind :: !Text
, _ocrirExecutionStatus :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
orderinvoicesCreateRefundInvoiceResponse
:: OrderinvoicesCreateRefundInvoiceResponse
orderinvoicesCreateRefundInvoiceResponse =
OrderinvoicesCreateRefundInvoiceResponse'
{ _ocrirKind = "content#orderinvoicesCreateRefundInvoiceResponse"
, _ocrirExecutionStatus = Nothing
}
ocrirKind :: Lens' OrderinvoicesCreateRefundInvoiceResponse Text
ocrirKind
= lens _ocrirKind (\ s a -> s{_ocrirKind = a})
ocrirExecutionStatus :: Lens' OrderinvoicesCreateRefundInvoiceResponse (Maybe Text)
ocrirExecutionStatus
= lens _ocrirExecutionStatus
(\ s a -> s{_ocrirExecutionStatus = a})
instance FromJSON
OrderinvoicesCreateRefundInvoiceResponse where
parseJSON
= withObject
"OrderinvoicesCreateRefundInvoiceResponse"
(\ o ->
OrderinvoicesCreateRefundInvoiceResponse' <$>
(o .:? "kind" .!=
"content#orderinvoicesCreateRefundInvoiceResponse")
<*> (o .:? "executionStatus"))
instance ToJSON
OrderinvoicesCreateRefundInvoiceResponse where
toJSON OrderinvoicesCreateRefundInvoiceResponse'{..}
= object
(catMaybes
[Just ("kind" .= _ocrirKind),
("executionStatus" .=) <$> _ocrirExecutionStatus])
data OrdersUpdateMerchantOrderIdRequest = OrdersUpdateMerchantOrderIdRequest'
{ _oumoirMerchantOrderId :: !(Maybe Text)
, _oumoirOperationId :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
ordersUpdateMerchantOrderIdRequest
:: OrdersUpdateMerchantOrderIdRequest
ordersUpdateMerchantOrderIdRequest =
OrdersUpdateMerchantOrderIdRequest'
{ _oumoirMerchantOrderId = Nothing
, _oumoirOperationId = Nothing
}
oumoirMerchantOrderId :: Lens' OrdersUpdateMerchantOrderIdRequest (Maybe Text)
oumoirMerchantOrderId
= lens _oumoirMerchantOrderId
(\ s a -> s{_oumoirMerchantOrderId = a})
oumoirOperationId :: Lens' OrdersUpdateMerchantOrderIdRequest (Maybe Text)
oumoirOperationId
= lens _oumoirOperationId
(\ s a -> s{_oumoirOperationId = a})
instance FromJSON OrdersUpdateMerchantOrderIdRequest
where
parseJSON
= withObject "OrdersUpdateMerchantOrderIdRequest"
(\ o ->
OrdersUpdateMerchantOrderIdRequest' <$>
(o .:? "merchantOrderId") <*> (o .:? "operationId"))
instance ToJSON OrdersUpdateMerchantOrderIdRequest
where
toJSON OrdersUpdateMerchantOrderIdRequest'{..}
= object
(catMaybes
[("merchantOrderId" .=) <$> _oumoirMerchantOrderId,
("operationId" .=) <$> _oumoirOperationId])
data OrderReportTransaction = OrderReportTransaction'
{ _ortMerchantId :: !(Maybe (Textual Word64))
, _ortDisbursementId :: !(Maybe Text)
, _ortDisbursementCreationDate :: !(Maybe Text)
, _ortTransactionDate :: !(Maybe Text)
, _ortDisbursementDate :: !(Maybe Text)
, _ortMerchantOrderId :: !(Maybe Text)
, _ortProductAmount :: !(Maybe Amount)
, _ortOrderId :: !(Maybe Text)
, _ortDisbursementAmount :: !(Maybe Price)
} deriving (Eq,Show,Data,Typeable,Generic)
orderReportTransaction
:: OrderReportTransaction
orderReportTransaction =
OrderReportTransaction'
{ _ortMerchantId = Nothing
, _ortDisbursementId = Nothing
, _ortDisbursementCreationDate = Nothing
, _ortTransactionDate = Nothing
, _ortDisbursementDate = Nothing
, _ortMerchantOrderId = Nothing
, _ortProductAmount = Nothing
, _ortOrderId = Nothing
, _ortDisbursementAmount = Nothing
}
ortMerchantId :: Lens' OrderReportTransaction (Maybe Word64)
ortMerchantId
= lens _ortMerchantId
(\ s a -> s{_ortMerchantId = a})
. mapping _Coerce
ortDisbursementId :: Lens' OrderReportTransaction (Maybe Text)
ortDisbursementId
= lens _ortDisbursementId
(\ s a -> s{_ortDisbursementId = a})
ortDisbursementCreationDate :: Lens' OrderReportTransaction (Maybe Text)
ortDisbursementCreationDate
= lens _ortDisbursementCreationDate
(\ s a -> s{_ortDisbursementCreationDate = a})
ortTransactionDate :: Lens' OrderReportTransaction (Maybe Text)
ortTransactionDate
= lens _ortTransactionDate
(\ s a -> s{_ortTransactionDate = a})
ortDisbursementDate :: Lens' OrderReportTransaction (Maybe Text)
ortDisbursementDate
= lens _ortDisbursementDate
(\ s a -> s{_ortDisbursementDate = a})
ortMerchantOrderId :: Lens' OrderReportTransaction (Maybe Text)
ortMerchantOrderId
= lens _ortMerchantOrderId
(\ s a -> s{_ortMerchantOrderId = a})
ortProductAmount :: Lens' OrderReportTransaction (Maybe Amount)
ortProductAmount
= lens _ortProductAmount
(\ s a -> s{_ortProductAmount = a})
ortOrderId :: Lens' OrderReportTransaction (Maybe Text)
ortOrderId
= lens _ortOrderId (\ s a -> s{_ortOrderId = a})
ortDisbursementAmount :: Lens' OrderReportTransaction (Maybe Price)
ortDisbursementAmount
= lens _ortDisbursementAmount
(\ s a -> s{_ortDisbursementAmount = a})
instance FromJSON OrderReportTransaction where
parseJSON
= withObject "OrderReportTransaction"
(\ o ->
OrderReportTransaction' <$>
(o .:? "merchantId") <*> (o .:? "disbursementId") <*>
(o .:? "disbursementCreationDate")
<*> (o .:? "transactionDate")
<*> (o .:? "disbursementDate")
<*> (o .:? "merchantOrderId")
<*> (o .:? "productAmount")
<*> (o .:? "orderId")
<*> (o .:? "disbursementAmount"))
instance ToJSON OrderReportTransaction where
toJSON OrderReportTransaction'{..}
= object
(catMaybes
[("merchantId" .=) <$> _ortMerchantId,
("disbursementId" .=) <$> _ortDisbursementId,
("disbursementCreationDate" .=) <$>
_ortDisbursementCreationDate,
("transactionDate" .=) <$> _ortTransactionDate,
("disbursementDate" .=) <$> _ortDisbursementDate,
("merchantOrderId" .=) <$> _ortMerchantOrderId,
("productAmount" .=) <$> _ortProductAmount,
("orderId" .=) <$> _ortOrderId,
("disbursementAmount" .=) <$>
_ortDisbursementAmount])
newtype OrdersAdvanceTestOrderResponse = OrdersAdvanceTestOrderResponse'
{ _oatorKind :: Text
} deriving (Eq,Show,Data,Typeable,Generic)
ordersAdvanceTestOrderResponse
:: OrdersAdvanceTestOrderResponse
ordersAdvanceTestOrderResponse =
OrdersAdvanceTestOrderResponse'
{ _oatorKind = "content#ordersAdvanceTestOrderResponse"
}
oatorKind :: Lens' OrdersAdvanceTestOrderResponse Text
oatorKind
= lens _oatorKind (\ s a -> s{_oatorKind = a})
instance FromJSON OrdersAdvanceTestOrderResponse
where
parseJSON
= withObject "OrdersAdvanceTestOrderResponse"
(\ o ->
OrdersAdvanceTestOrderResponse' <$>
(o .:? "kind" .!=
"content#ordersAdvanceTestOrderResponse"))
instance ToJSON OrdersAdvanceTestOrderResponse where
toJSON OrdersAdvanceTestOrderResponse'{..}
= object (catMaybes [Just ("kind" .= _oatorKind)])
data ProductsCustomBatchResponse = ProductsCustomBatchResponse'
{ _pcbrEntries :: !(Maybe [ProductsCustomBatchResponseEntry])
, _pcbrKind :: !Text
} deriving (Eq,Show,Data,Typeable,Generic)
productsCustomBatchResponse
:: ProductsCustomBatchResponse
productsCustomBatchResponse =
ProductsCustomBatchResponse'
{ _pcbrEntries = Nothing
, _pcbrKind = "content#productsCustomBatchResponse"
}
pcbrEntries :: Lens' ProductsCustomBatchResponse [ProductsCustomBatchResponseEntry]
pcbrEntries
= lens _pcbrEntries (\ s a -> s{_pcbrEntries = a}) .
_Default
. _Coerce
pcbrKind :: Lens' ProductsCustomBatchResponse Text
pcbrKind = lens _pcbrKind (\ s a -> s{_pcbrKind = a})
instance FromJSON ProductsCustomBatchResponse where
parseJSON
= withObject "ProductsCustomBatchResponse"
(\ o ->
ProductsCustomBatchResponse' <$>
(o .:? "entries" .!= mempty) <*>
(o .:? "kind" .!=
"content#productsCustomBatchResponse"))
instance ToJSON ProductsCustomBatchResponse where
toJSON ProductsCustomBatchResponse'{..}
= object
(catMaybes
[("entries" .=) <$> _pcbrEntries,
Just ("kind" .= _pcbrKind)])
data OrderMerchantProvidedAnnotation = OrderMerchantProvidedAnnotation'
{ _ompaValue :: !(Maybe Text)
, _ompaKey :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
orderMerchantProvidedAnnotation
:: OrderMerchantProvidedAnnotation
orderMerchantProvidedAnnotation =
OrderMerchantProvidedAnnotation'
{ _ompaValue = Nothing
, _ompaKey = Nothing
}
ompaValue :: Lens' OrderMerchantProvidedAnnotation (Maybe Text)
ompaValue
= lens _ompaValue (\ s a -> s{_ompaValue = a})
ompaKey :: Lens' OrderMerchantProvidedAnnotation (Maybe Text)
ompaKey = lens _ompaKey (\ s a -> s{_ompaKey = a})
instance FromJSON OrderMerchantProvidedAnnotation
where
parseJSON
= withObject "OrderMerchantProvidedAnnotation"
(\ o ->
OrderMerchantProvidedAnnotation' <$>
(o .:? "value") <*> (o .:? "key"))
instance ToJSON OrderMerchantProvidedAnnotation where
toJSON OrderMerchantProvidedAnnotation'{..}
= object
(catMaybes
[("value" .=) <$> _ompaValue,
("key" .=) <$> _ompaKey])
data TestOrderCustomer = TestOrderCustomer'
{ _tocFullName :: !(Maybe Text)
, _tocEmail :: !(Maybe Text)
, _tocMarketingRightsInfo :: !(Maybe TestOrderCustomerMarketingRightsInfo)
} deriving (Eq,Show,Data,Typeable,Generic)
testOrderCustomer
:: TestOrderCustomer
testOrderCustomer =
TestOrderCustomer'
{ _tocFullName = Nothing
, _tocEmail = Nothing
, _tocMarketingRightsInfo = Nothing
}
tocFullName :: Lens' TestOrderCustomer (Maybe Text)
tocFullName
= lens _tocFullName (\ s a -> s{_tocFullName = a})
tocEmail :: Lens' TestOrderCustomer (Maybe Text)
tocEmail = lens _tocEmail (\ s a -> s{_tocEmail = a})
tocMarketingRightsInfo :: Lens' TestOrderCustomer (Maybe TestOrderCustomerMarketingRightsInfo)
tocMarketingRightsInfo
= lens _tocMarketingRightsInfo
(\ s a -> s{_tocMarketingRightsInfo = a})
instance FromJSON TestOrderCustomer where
parseJSON
= withObject "TestOrderCustomer"
(\ o ->
TestOrderCustomer' <$>
(o .:? "fullName") <*> (o .:? "email") <*>
(o .:? "marketingRightsInfo"))
instance ToJSON TestOrderCustomer where
toJSON TestOrderCustomer'{..}
= object
(catMaybes
[("fullName" .=) <$> _tocFullName,
("email" .=) <$> _tocEmail,
("marketingRightsInfo" .=) <$>
_tocMarketingRightsInfo])
data DatafeedstatusesCustomBatchResponse = DatafeedstatusesCustomBatchResponse'
{ _dcbrEntries :: !(Maybe [DatafeedstatusesCustomBatchResponseEntry])
, _dcbrKind :: !Text
} deriving (Eq,Show,Data,Typeable,Generic)
datafeedstatusesCustomBatchResponse
:: DatafeedstatusesCustomBatchResponse
datafeedstatusesCustomBatchResponse =
DatafeedstatusesCustomBatchResponse'
{ _dcbrEntries = Nothing
, _dcbrKind = "content#datafeedstatusesCustomBatchResponse"
}
dcbrEntries :: Lens' DatafeedstatusesCustomBatchResponse [DatafeedstatusesCustomBatchResponseEntry]
dcbrEntries
= lens _dcbrEntries (\ s a -> s{_dcbrEntries = a}) .
_Default
. _Coerce
dcbrKind :: Lens' DatafeedstatusesCustomBatchResponse Text
dcbrKind = lens _dcbrKind (\ s a -> s{_dcbrKind = a})
instance FromJSON DatafeedstatusesCustomBatchResponse
where
parseJSON
= withObject "DatafeedstatusesCustomBatchResponse"
(\ o ->
DatafeedstatusesCustomBatchResponse' <$>
(o .:? "entries" .!= mempty) <*>
(o .:? "kind" .!=
"content#datafeedstatusesCustomBatchResponse"))
instance ToJSON DatafeedstatusesCustomBatchResponse
where
toJSON DatafeedstatusesCustomBatchResponse'{..}
= object
(catMaybes
[("entries" .=) <$> _dcbrEntries,
Just ("kind" .= _dcbrKind)])
data OrderReturn = OrderReturn'
{ _orQuantity :: !(Maybe (Textual Word32))
, _orActor :: !(Maybe Text)
, _orReason :: !(Maybe Text)
, _orCreationDate :: !(Maybe Text)
, _orReasonText :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
orderReturn
:: OrderReturn
orderReturn =
OrderReturn'
{ _orQuantity = Nothing
, _orActor = Nothing
, _orReason = Nothing
, _orCreationDate = Nothing
, _orReasonText = Nothing
}
orQuantity :: Lens' OrderReturn (Maybe Word32)
orQuantity
= lens _orQuantity (\ s a -> s{_orQuantity = a}) .
mapping _Coerce
orActor :: Lens' OrderReturn (Maybe Text)
orActor = lens _orActor (\ s a -> s{_orActor = a})
orReason :: Lens' OrderReturn (Maybe Text)
orReason = lens _orReason (\ s a -> s{_orReason = a})
orCreationDate :: Lens' OrderReturn (Maybe Text)
orCreationDate
= lens _orCreationDate
(\ s a -> s{_orCreationDate = a})
orReasonText :: Lens' OrderReturn (Maybe Text)
orReasonText
= lens _orReasonText (\ s a -> s{_orReasonText = a})
instance FromJSON OrderReturn where
parseJSON
= withObject "OrderReturn"
(\ o ->
OrderReturn' <$>
(o .:? "quantity") <*> (o .:? "actor") <*>
(o .:? "reason")
<*> (o .:? "creationDate")
<*> (o .:? "reasonText"))
instance ToJSON OrderReturn where
toJSON OrderReturn'{..}
= object
(catMaybes
[("quantity" .=) <$> _orQuantity,
("actor" .=) <$> _orActor,
("reason" .=) <$> _orReason,
("creationDate" .=) <$> _orCreationDate,
("reasonText" .=) <$> _orReasonText])
data AccounttaxCustomBatchResponseEntry = AccounttaxCustomBatchResponseEntry'
{ _acbreAccountTax :: !(Maybe AccountTax)
, _acbreKind :: !Text
, _acbreErrors :: !(Maybe Errors)
, _acbreBatchId :: !(Maybe (Textual Word32))
} deriving (Eq,Show,Data,Typeable,Generic)
accounttaxCustomBatchResponseEntry
:: AccounttaxCustomBatchResponseEntry
accounttaxCustomBatchResponseEntry =
AccounttaxCustomBatchResponseEntry'
{ _acbreAccountTax = Nothing
, _acbreKind = "content#accounttaxCustomBatchResponseEntry"
, _acbreErrors = Nothing
, _acbreBatchId = Nothing
}
acbreAccountTax :: Lens' AccounttaxCustomBatchResponseEntry (Maybe AccountTax)
acbreAccountTax
= lens _acbreAccountTax
(\ s a -> s{_acbreAccountTax = a})
acbreKind :: Lens' AccounttaxCustomBatchResponseEntry Text
acbreKind
= lens _acbreKind (\ s a -> s{_acbreKind = a})
acbreErrors :: Lens' AccounttaxCustomBatchResponseEntry (Maybe Errors)
acbreErrors
= lens _acbreErrors (\ s a -> s{_acbreErrors = a})
acbreBatchId :: Lens' AccounttaxCustomBatchResponseEntry (Maybe Word32)
acbreBatchId
= lens _acbreBatchId (\ s a -> s{_acbreBatchId = a})
. mapping _Coerce
instance FromJSON AccounttaxCustomBatchResponseEntry
where
parseJSON
= withObject "AccounttaxCustomBatchResponseEntry"
(\ o ->
AccounttaxCustomBatchResponseEntry' <$>
(o .:? "accountTax") <*>
(o .:? "kind" .!=
"content#accounttaxCustomBatchResponseEntry")
<*> (o .:? "errors")
<*> (o .:? "batchId"))
instance ToJSON AccounttaxCustomBatchResponseEntry
where
toJSON AccounttaxCustomBatchResponseEntry'{..}
= object
(catMaybes
[("accountTax" .=) <$> _acbreAccountTax,
Just ("kind" .= _acbreKind),
("errors" .=) <$> _acbreErrors,
("batchId" .=) <$> _acbreBatchId])
data PosSaleResponse = PosSaleResponse'
{ _psrStoreCode :: !(Maybe Text)
, _psrKind :: !Text
, _psrItemId :: !(Maybe Text)
, _psrQuantity :: !(Maybe (Textual Int64))
, _psrTargetCountry :: !(Maybe Text)
, _psrGtin :: !(Maybe Text)
, _psrPrice :: !(Maybe Price)
, _psrContentLanguage :: !(Maybe Text)
, _psrTimestamp :: !(Maybe Text)
, _psrSaleId :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
posSaleResponse
:: PosSaleResponse
posSaleResponse =
PosSaleResponse'
{ _psrStoreCode = Nothing
, _psrKind = "content#posSaleResponse"
, _psrItemId = Nothing
, _psrQuantity = Nothing
, _psrTargetCountry = Nothing
, _psrGtin = Nothing
, _psrPrice = Nothing
, _psrContentLanguage = Nothing
, _psrTimestamp = Nothing
, _psrSaleId = Nothing
}
psrStoreCode :: Lens' PosSaleResponse (Maybe Text)
psrStoreCode
= lens _psrStoreCode (\ s a -> s{_psrStoreCode = a})
psrKind :: Lens' PosSaleResponse Text
psrKind = lens _psrKind (\ s a -> s{_psrKind = a})
psrItemId :: Lens' PosSaleResponse (Maybe Text)
psrItemId
= lens _psrItemId (\ s a -> s{_psrItemId = a})
psrQuantity :: Lens' PosSaleResponse (Maybe Int64)
psrQuantity
= lens _psrQuantity (\ s a -> s{_psrQuantity = a}) .
mapping _Coerce
psrTargetCountry :: Lens' PosSaleResponse (Maybe Text)
psrTargetCountry
= lens _psrTargetCountry
(\ s a -> s{_psrTargetCountry = a})
psrGtin :: Lens' PosSaleResponse (Maybe Text)
psrGtin = lens _psrGtin (\ s a -> s{_psrGtin = a})
psrPrice :: Lens' PosSaleResponse (Maybe Price)
psrPrice = lens _psrPrice (\ s a -> s{_psrPrice = a})
psrContentLanguage :: Lens' PosSaleResponse (Maybe Text)
psrContentLanguage
= lens _psrContentLanguage
(\ s a -> s{_psrContentLanguage = a})
psrTimestamp :: Lens' PosSaleResponse (Maybe Text)
psrTimestamp
= lens _psrTimestamp (\ s a -> s{_psrTimestamp = a})
psrSaleId :: Lens' PosSaleResponse (Maybe Text)
psrSaleId
= lens _psrSaleId (\ s a -> s{_psrSaleId = a})
instance FromJSON PosSaleResponse where
parseJSON
= withObject "PosSaleResponse"
(\ o ->
PosSaleResponse' <$>
(o .:? "storeCode") <*>
(o .:? "kind" .!= "content#posSaleResponse")
<*> (o .:? "itemId")
<*> (o .:? "quantity")
<*> (o .:? "targetCountry")
<*> (o .:? "gtin")
<*> (o .:? "price")
<*> (o .:? "contentLanguage")
<*> (o .:? "timestamp")
<*> (o .:? "saleId"))
instance ToJSON PosSaleResponse where
toJSON PosSaleResponse'{..}
= object
(catMaybes
[("storeCode" .=) <$> _psrStoreCode,
Just ("kind" .= _psrKind),
("itemId" .=) <$> _psrItemId,
("quantity" .=) <$> _psrQuantity,
("targetCountry" .=) <$> _psrTargetCountry,
("gtin" .=) <$> _psrGtin, ("price" .=) <$> _psrPrice,
("contentLanguage" .=) <$> _psrContentLanguage,
("timestamp" .=) <$> _psrTimestamp,
("saleId" .=) <$> _psrSaleId])
data Amount = Amount'
{ _aPretax :: !(Maybe Price)
, _aTax :: !(Maybe Price)
} deriving (Eq,Show,Data,Typeable,Generic)
amount
:: Amount
amount =
Amount'
{ _aPretax = Nothing
, _aTax = Nothing
}
aPretax :: Lens' Amount (Maybe Price)
aPretax = lens _aPretax (\ s a -> s{_aPretax = a})
aTax :: Lens' Amount (Maybe Price)
aTax = lens _aTax (\ s a -> s{_aTax = a})
instance FromJSON Amount where
parseJSON
= withObject "Amount"
(\ o ->
Amount' <$> (o .:? "pretax") <*> (o .:? "tax"))
instance ToJSON Amount where
toJSON Amount'{..}
= object
(catMaybes
[("pretax" .=) <$> _aPretax, ("tax" .=) <$> _aTax])
data AccountsAuthInfoResponse = AccountsAuthInfoResponse'
{ _aairKind :: !Text
, _aairAccountIdentifiers :: !(Maybe [AccountIdentifier])
} deriving (Eq,Show,Data,Typeable,Generic)
accountsAuthInfoResponse
:: AccountsAuthInfoResponse
accountsAuthInfoResponse =
AccountsAuthInfoResponse'
{ _aairKind = "content#accountsAuthInfoResponse"
, _aairAccountIdentifiers = Nothing
}
aairKind :: Lens' AccountsAuthInfoResponse Text
aairKind = lens _aairKind (\ s a -> s{_aairKind = a})
aairAccountIdentifiers :: Lens' AccountsAuthInfoResponse [AccountIdentifier]
aairAccountIdentifiers
= lens _aairAccountIdentifiers
(\ s a -> s{_aairAccountIdentifiers = a})
. _Default
. _Coerce
instance FromJSON AccountsAuthInfoResponse where
parseJSON
= withObject "AccountsAuthInfoResponse"
(\ o ->
AccountsAuthInfoResponse' <$>
(o .:? "kind" .!= "content#accountsAuthInfoResponse")
<*> (o .:? "accountIdentifiers" .!= mempty))
instance ToJSON AccountsAuthInfoResponse where
toJSON AccountsAuthInfoResponse'{..}
= object
(catMaybes
[Just ("kind" .= _aairKind),
("accountIdentifiers" .=) <$>
_aairAccountIdentifiers])
data OrderReportDisbursement = OrderReportDisbursement'
{ _ordMerchantId :: !(Maybe (Textual Word64))
, _ordDisbursementId :: !(Maybe Text)
, _ordDisbursementCreationDate :: !(Maybe Text)
, _ordDisbursementDate :: !(Maybe Text)
, _ordDisbursementAmount :: !(Maybe Price)
} deriving (Eq,Show,Data,Typeable,Generic)
orderReportDisbursement
:: OrderReportDisbursement
orderReportDisbursement =
OrderReportDisbursement'
{ _ordMerchantId = Nothing
, _ordDisbursementId = Nothing
, _ordDisbursementCreationDate = Nothing
, _ordDisbursementDate = Nothing
, _ordDisbursementAmount = Nothing
}
ordMerchantId :: Lens' OrderReportDisbursement (Maybe Word64)
ordMerchantId
= lens _ordMerchantId
(\ s a -> s{_ordMerchantId = a})
. mapping _Coerce
ordDisbursementId :: Lens' OrderReportDisbursement (Maybe Text)
ordDisbursementId
= lens _ordDisbursementId
(\ s a -> s{_ordDisbursementId = a})
ordDisbursementCreationDate :: Lens' OrderReportDisbursement (Maybe Text)
ordDisbursementCreationDate
= lens _ordDisbursementCreationDate
(\ s a -> s{_ordDisbursementCreationDate = a})
ordDisbursementDate :: Lens' OrderReportDisbursement (Maybe Text)
ordDisbursementDate
= lens _ordDisbursementDate
(\ s a -> s{_ordDisbursementDate = a})
ordDisbursementAmount :: Lens' OrderReportDisbursement (Maybe Price)
ordDisbursementAmount
= lens _ordDisbursementAmount
(\ s a -> s{_ordDisbursementAmount = a})
instance FromJSON OrderReportDisbursement where
parseJSON
= withObject "OrderReportDisbursement"
(\ o ->
OrderReportDisbursement' <$>
(o .:? "merchantId") <*> (o .:? "disbursementId") <*>
(o .:? "disbursementCreationDate")
<*> (o .:? "disbursementDate")
<*> (o .:? "disbursementAmount"))
instance ToJSON OrderReportDisbursement where
toJSON OrderReportDisbursement'{..}
= object
(catMaybes
[("merchantId" .=) <$> _ordMerchantId,
("disbursementId" .=) <$> _ordDisbursementId,
("disbursementCreationDate" .=) <$>
_ordDisbursementCreationDate,
("disbursementDate" .=) <$> _ordDisbursementDate,
("disbursementAmount" .=) <$>
_ordDisbursementAmount])
data UnitInvoice = UnitInvoice'
{ _uiUnitPriceTaxes :: !(Maybe [UnitInvoiceTaxLine])
, _uiPromotions :: !(Maybe [Promotion])
, _uiAdditionalCharges :: !(Maybe [UnitInvoiceAdditionalCharge])
, _uiUnitPricePretax :: !(Maybe Price)
} deriving (Eq,Show,Data,Typeable,Generic)
unitInvoice
:: UnitInvoice
unitInvoice =
UnitInvoice'
{ _uiUnitPriceTaxes = Nothing
, _uiPromotions = Nothing
, _uiAdditionalCharges = Nothing
, _uiUnitPricePretax = Nothing
}
uiUnitPriceTaxes :: Lens' UnitInvoice [UnitInvoiceTaxLine]
uiUnitPriceTaxes
= lens _uiUnitPriceTaxes
(\ s a -> s{_uiUnitPriceTaxes = a})
. _Default
. _Coerce
uiPromotions :: Lens' UnitInvoice [Promotion]
uiPromotions
= lens _uiPromotions (\ s a -> s{_uiPromotions = a})
. _Default
. _Coerce
uiAdditionalCharges :: Lens' UnitInvoice [UnitInvoiceAdditionalCharge]
uiAdditionalCharges
= lens _uiAdditionalCharges
(\ s a -> s{_uiAdditionalCharges = a})
. _Default
. _Coerce
uiUnitPricePretax :: Lens' UnitInvoice (Maybe Price)
uiUnitPricePretax
= lens _uiUnitPricePretax
(\ s a -> s{_uiUnitPricePretax = a})
instance FromJSON UnitInvoice where
parseJSON
= withObject "UnitInvoice"
(\ o ->
UnitInvoice' <$>
(o .:? "unitPriceTaxes" .!= mempty) <*>
(o .:? "promotions" .!= mempty)
<*> (o .:? "additionalCharges" .!= mempty)
<*> (o .:? "unitPricePretax"))
instance ToJSON UnitInvoice where
toJSON UnitInvoice'{..}
= object
(catMaybes
[("unitPriceTaxes" .=) <$> _uiUnitPriceTaxes,
("promotions" .=) <$> _uiPromotions,
("additionalCharges" .=) <$> _uiAdditionalCharges,
("unitPricePretax" .=) <$> _uiUnitPricePretax])
data PosSale = PosSale'
{ _psStoreCode :: !(Maybe Text)
, _psKind :: !Text
, _psItemId :: !(Maybe Text)
, _psQuantity :: !(Maybe (Textual Int64))
, _psTargetCountry :: !(Maybe Text)
, _psGtin :: !(Maybe Text)
, _psPrice :: !(Maybe Price)
, _psContentLanguage :: !(Maybe Text)
, _psTimestamp :: !(Maybe Text)
, _psSaleId :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
posSale
:: PosSale
posSale =
PosSale'
{ _psStoreCode = Nothing
, _psKind = "content#posSale"
, _psItemId = Nothing
, _psQuantity = Nothing
, _psTargetCountry = Nothing
, _psGtin = Nothing
, _psPrice = Nothing
, _psContentLanguage = Nothing
, _psTimestamp = Nothing
, _psSaleId = Nothing
}
psStoreCode :: Lens' PosSale (Maybe Text)
psStoreCode
= lens _psStoreCode (\ s a -> s{_psStoreCode = a})
psKind :: Lens' PosSale Text
psKind = lens _psKind (\ s a -> s{_psKind = a})
psItemId :: Lens' PosSale (Maybe Text)
psItemId = lens _psItemId (\ s a -> s{_psItemId = a})
psQuantity :: Lens' PosSale (Maybe Int64)
psQuantity
= lens _psQuantity (\ s a -> s{_psQuantity = a}) .
mapping _Coerce
psTargetCountry :: Lens' PosSale (Maybe Text)
psTargetCountry
= lens _psTargetCountry
(\ s a -> s{_psTargetCountry = a})
psGtin :: Lens' PosSale (Maybe Text)
psGtin = lens _psGtin (\ s a -> s{_psGtin = a})
psPrice :: Lens' PosSale (Maybe Price)
psPrice = lens _psPrice (\ s a -> s{_psPrice = a})
psContentLanguage :: Lens' PosSale (Maybe Text)
psContentLanguage
= lens _psContentLanguage
(\ s a -> s{_psContentLanguage = a})
psTimestamp :: Lens' PosSale (Maybe Text)
psTimestamp
= lens _psTimestamp (\ s a -> s{_psTimestamp = a})
psSaleId :: Lens' PosSale (Maybe Text)
psSaleId = lens _psSaleId (\ s a -> s{_psSaleId = a})
instance FromJSON PosSale where
parseJSON
= withObject "PosSale"
(\ o ->
PosSale' <$>
(o .:? "storeCode") <*>
(o .:? "kind" .!= "content#posSale")
<*> (o .:? "itemId")
<*> (o .:? "quantity")
<*> (o .:? "targetCountry")
<*> (o .:? "gtin")
<*> (o .:? "price")
<*> (o .:? "contentLanguage")
<*> (o .:? "timestamp")
<*> (o .:? "saleId"))
instance ToJSON PosSale where
toJSON PosSale'{..}
= object
(catMaybes
[("storeCode" .=) <$> _psStoreCode,
Just ("kind" .= _psKind),
("itemId" .=) <$> _psItemId,
("quantity" .=) <$> _psQuantity,
("targetCountry" .=) <$> _psTargetCountry,
("gtin" .=) <$> _psGtin, ("price" .=) <$> _psPrice,
("contentLanguage" .=) <$> _psContentLanguage,
("timestamp" .=) <$> _psTimestamp,
("saleId" .=) <$> _psSaleId])
data AccountStatusItemLevelIssue = AccountStatusItemLevelIssue'
{ _asiliNumItems :: !(Maybe (Textual Int64))
, _asiliResolution :: !(Maybe Text)
, _asiliDocumentation :: !(Maybe Text)
, _asiliCode :: !(Maybe Text)
, _asiliServability :: !(Maybe Text)
, _asiliAttributeName :: !(Maybe Text)
, _asiliDescription :: !(Maybe Text)
, _asiliDetail :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
accountStatusItemLevelIssue
:: AccountStatusItemLevelIssue
accountStatusItemLevelIssue =
AccountStatusItemLevelIssue'
{ _asiliNumItems = Nothing
, _asiliResolution = Nothing
, _asiliDocumentation = Nothing
, _asiliCode = Nothing
, _asiliServability = Nothing
, _asiliAttributeName = Nothing
, _asiliDescription = Nothing
, _asiliDetail = Nothing
}
asiliNumItems :: Lens' AccountStatusItemLevelIssue (Maybe Int64)
asiliNumItems
= lens _asiliNumItems
(\ s a -> s{_asiliNumItems = a})
. mapping _Coerce
asiliResolution :: Lens' AccountStatusItemLevelIssue (Maybe Text)
asiliResolution
= lens _asiliResolution
(\ s a -> s{_asiliResolution = a})
asiliDocumentation :: Lens' AccountStatusItemLevelIssue (Maybe Text)
asiliDocumentation
= lens _asiliDocumentation
(\ s a -> s{_asiliDocumentation = a})
asiliCode :: Lens' AccountStatusItemLevelIssue (Maybe Text)
asiliCode
= lens _asiliCode (\ s a -> s{_asiliCode = a})
asiliServability :: Lens' AccountStatusItemLevelIssue (Maybe Text)
asiliServability
= lens _asiliServability
(\ s a -> s{_asiliServability = a})
asiliAttributeName :: Lens' AccountStatusItemLevelIssue (Maybe Text)
asiliAttributeName
= lens _asiliAttributeName
(\ s a -> s{_asiliAttributeName = a})
asiliDescription :: Lens' AccountStatusItemLevelIssue (Maybe Text)
asiliDescription
= lens _asiliDescription
(\ s a -> s{_asiliDescription = a})
asiliDetail :: Lens' AccountStatusItemLevelIssue (Maybe Text)
asiliDetail
= lens _asiliDetail (\ s a -> s{_asiliDetail = a})
instance FromJSON AccountStatusItemLevelIssue where
parseJSON
= withObject "AccountStatusItemLevelIssue"
(\ o ->
AccountStatusItemLevelIssue' <$>
(o .:? "numItems") <*> (o .:? "resolution") <*>
(o .:? "documentation")
<*> (o .:? "code")
<*> (o .:? "servability")
<*> (o .:? "attributeName")
<*> (o .:? "description")
<*> (o .:? "detail"))
instance ToJSON AccountStatusItemLevelIssue where
toJSON AccountStatusItemLevelIssue'{..}
= object
(catMaybes
[("numItems" .=) <$> _asiliNumItems,
("resolution" .=) <$> _asiliResolution,
("documentation" .=) <$> _asiliDocumentation,
("code" .=) <$> _asiliCode,
("servability" .=) <$> _asiliServability,
("attributeName" .=) <$> _asiliAttributeName,
("description" .=) <$> _asiliDescription,
("detail" .=) <$> _asiliDetail])
newtype LiaSettingsRequestGmbAccessResponse = LiaSettingsRequestGmbAccessResponse'
{ _lsrgarKind :: Text
} deriving (Eq,Show,Data,Typeable,Generic)
liaSettingsRequestGmbAccessResponse
:: LiaSettingsRequestGmbAccessResponse
liaSettingsRequestGmbAccessResponse =
LiaSettingsRequestGmbAccessResponse'
{ _lsrgarKind = "content#liasettingsRequestGmbAccessResponse"
}
lsrgarKind :: Lens' LiaSettingsRequestGmbAccessResponse Text
lsrgarKind
= lens _lsrgarKind (\ s a -> s{_lsrgarKind = a})
instance FromJSON LiaSettingsRequestGmbAccessResponse
where
parseJSON
= withObject "LiaSettingsRequestGmbAccessResponse"
(\ o ->
LiaSettingsRequestGmbAccessResponse' <$>
(o .:? "kind" .!=
"content#liasettingsRequestGmbAccessResponse"))
instance ToJSON LiaSettingsRequestGmbAccessResponse
where
toJSON LiaSettingsRequestGmbAccessResponse'{..}
= object (catMaybes [Just ("kind" .= _lsrgarKind)])
data ProductStatusDestinationStatus = ProductStatusDestinationStatus'
{ _psdsDestination :: !(Maybe Text)
, _psdsStatus :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
productStatusDestinationStatus
:: ProductStatusDestinationStatus
productStatusDestinationStatus =
ProductStatusDestinationStatus'
{ _psdsDestination = Nothing
, _psdsStatus = Nothing
}
psdsDestination :: Lens' ProductStatusDestinationStatus (Maybe Text)
psdsDestination
= lens _psdsDestination
(\ s a -> s{_psdsDestination = a})
psdsStatus :: Lens' ProductStatusDestinationStatus (Maybe Text)
psdsStatus
= lens _psdsStatus (\ s a -> s{_psdsStatus = a})
instance FromJSON ProductStatusDestinationStatus
where
parseJSON
= withObject "ProductStatusDestinationStatus"
(\ o ->
ProductStatusDestinationStatus' <$>
(o .:? "destination") <*> (o .:? "status"))
instance ToJSON ProductStatusDestinationStatus where
toJSON ProductStatusDestinationStatus'{..}
= object
(catMaybes
[("destination" .=) <$> _psdsDestination,
("status" .=) <$> _psdsStatus])
data AccountTaxTaxRule = AccountTaxTaxRule'
{ _attrUseGlobalRate :: !(Maybe Bool)
, _attrCountry :: !(Maybe Text)
, _attrShippingTaxed :: !(Maybe Bool)
, _attrLocationId :: !(Maybe (Textual Word64))
, _attrRatePercent :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
accountTaxTaxRule
:: AccountTaxTaxRule
accountTaxTaxRule =
AccountTaxTaxRule'
{ _attrUseGlobalRate = Nothing
, _attrCountry = Nothing
, _attrShippingTaxed = Nothing
, _attrLocationId = Nothing
, _attrRatePercent = Nothing
}
attrUseGlobalRate :: Lens' AccountTaxTaxRule (Maybe Bool)
attrUseGlobalRate
= lens _attrUseGlobalRate
(\ s a -> s{_attrUseGlobalRate = a})
attrCountry :: Lens' AccountTaxTaxRule (Maybe Text)
attrCountry
= lens _attrCountry (\ s a -> s{_attrCountry = a})
attrShippingTaxed :: Lens' AccountTaxTaxRule (Maybe Bool)
attrShippingTaxed
= lens _attrShippingTaxed
(\ s a -> s{_attrShippingTaxed = a})
attrLocationId :: Lens' AccountTaxTaxRule (Maybe Word64)
attrLocationId
= lens _attrLocationId
(\ s a -> s{_attrLocationId = a})
. mapping _Coerce
attrRatePercent :: Lens' AccountTaxTaxRule (Maybe Text)
attrRatePercent
= lens _attrRatePercent
(\ s a -> s{_attrRatePercent = a})
instance FromJSON AccountTaxTaxRule where
parseJSON
= withObject "AccountTaxTaxRule"
(\ o ->
AccountTaxTaxRule' <$>
(o .:? "useGlobalRate") <*> (o .:? "country") <*>
(o .:? "shippingTaxed")
<*> (o .:? "locationId")
<*> (o .:? "ratePercent"))
instance ToJSON AccountTaxTaxRule where
toJSON AccountTaxTaxRule'{..}
= object
(catMaybes
[("useGlobalRate" .=) <$> _attrUseGlobalRate,
("country" .=) <$> _attrCountry,
("shippingTaxed" .=) <$> _attrShippingTaxed,
("locationId" .=) <$> _attrLocationId,
("ratePercent" .=) <$> _attrRatePercent])
data PostalCodeGroup = PostalCodeGroup'
{ _pcgCountry :: !(Maybe Text)
, _pcgPostalCodeRanges :: !(Maybe [PostalCodeRange])
, _pcgName :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
postalCodeGroup
:: PostalCodeGroup
postalCodeGroup =
PostalCodeGroup'
{ _pcgCountry = Nothing
, _pcgPostalCodeRanges = Nothing
, _pcgName = Nothing
}
pcgCountry :: Lens' PostalCodeGroup (Maybe Text)
pcgCountry
= lens _pcgCountry (\ s a -> s{_pcgCountry = a})
pcgPostalCodeRanges :: Lens' PostalCodeGroup [PostalCodeRange]
pcgPostalCodeRanges
= lens _pcgPostalCodeRanges
(\ s a -> s{_pcgPostalCodeRanges = a})
. _Default
. _Coerce
pcgName :: Lens' PostalCodeGroup (Maybe Text)
pcgName = lens _pcgName (\ s a -> s{_pcgName = a})
instance FromJSON PostalCodeGroup where
parseJSON
= withObject "PostalCodeGroup"
(\ o ->
PostalCodeGroup' <$>
(o .:? "country") <*>
(o .:? "postalCodeRanges" .!= mempty)
<*> (o .:? "name"))
instance ToJSON PostalCodeGroup where
toJSON PostalCodeGroup'{..}
= object
(catMaybes
[("country" .=) <$> _pcgCountry,
("postalCodeRanges" .=) <$> _pcgPostalCodeRanges,
("name" .=) <$> _pcgName])
newtype DatafeedsCustomBatchRequest = DatafeedsCustomBatchRequest'
{ _dEntries :: Maybe [DatafeedsCustomBatchRequestEntry]
} deriving (Eq,Show,Data,Typeable,Generic)
datafeedsCustomBatchRequest
:: DatafeedsCustomBatchRequest
datafeedsCustomBatchRequest =
DatafeedsCustomBatchRequest'
{ _dEntries = Nothing
}
dEntries :: Lens' DatafeedsCustomBatchRequest [DatafeedsCustomBatchRequestEntry]
dEntries
= lens _dEntries (\ s a -> s{_dEntries = a}) .
_Default
. _Coerce
instance FromJSON DatafeedsCustomBatchRequest where
parseJSON
= withObject "DatafeedsCustomBatchRequest"
(\ o ->
DatafeedsCustomBatchRequest' <$>
(o .:? "entries" .!= mempty))
instance ToJSON DatafeedsCustomBatchRequest where
toJSON DatafeedsCustomBatchRequest'{..}
= object (catMaybes [("entries" .=) <$> _dEntries])
data OrderpaymentsNotifyChargeRequest = OrderpaymentsNotifyChargeRequest'
{ _oncrInvoiceIds :: !(Maybe [Text])
, _oncrChargeState :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
orderpaymentsNotifyChargeRequest
:: OrderpaymentsNotifyChargeRequest
orderpaymentsNotifyChargeRequest =
OrderpaymentsNotifyChargeRequest'
{ _oncrInvoiceIds = Nothing
, _oncrChargeState = Nothing
}
oncrInvoiceIds :: Lens' OrderpaymentsNotifyChargeRequest [Text]
oncrInvoiceIds
= lens _oncrInvoiceIds
(\ s a -> s{_oncrInvoiceIds = a})
. _Default
. _Coerce
oncrChargeState :: Lens' OrderpaymentsNotifyChargeRequest (Maybe Text)
oncrChargeState
= lens _oncrChargeState
(\ s a -> s{_oncrChargeState = a})
instance FromJSON OrderpaymentsNotifyChargeRequest
where
parseJSON
= withObject "OrderpaymentsNotifyChargeRequest"
(\ o ->
OrderpaymentsNotifyChargeRequest' <$>
(o .:? "invoiceIds" .!= mempty) <*>
(o .:? "chargeState"))
instance ToJSON OrderpaymentsNotifyChargeRequest
where
toJSON OrderpaymentsNotifyChargeRequest'{..}
= object
(catMaybes
[("invoiceIds" .=) <$> _oncrInvoiceIds,
("chargeState" .=) <$> _oncrChargeState])
newtype OrdersCancelTestOrderByCustomerResponse = OrdersCancelTestOrderByCustomerResponse'
{ _octobcrKind :: Text
} deriving (Eq,Show,Data,Typeable,Generic)
ordersCancelTestOrderByCustomerResponse
:: OrdersCancelTestOrderByCustomerResponse
ordersCancelTestOrderByCustomerResponse =
OrdersCancelTestOrderByCustomerResponse'
{ _octobcrKind = "content#ordersCancelTestOrderByCustomerResponse"
}
octobcrKind :: Lens' OrdersCancelTestOrderByCustomerResponse Text
octobcrKind
= lens _octobcrKind (\ s a -> s{_octobcrKind = a})
instance FromJSON
OrdersCancelTestOrderByCustomerResponse where
parseJSON
= withObject
"OrdersCancelTestOrderByCustomerResponse"
(\ o ->
OrdersCancelTestOrderByCustomerResponse' <$>
(o .:? "kind" .!=
"content#ordersCancelTestOrderByCustomerResponse"))
instance ToJSON
OrdersCancelTestOrderByCustomerResponse where
toJSON OrdersCancelTestOrderByCustomerResponse'{..}
= object (catMaybes [Just ("kind" .= _octobcrKind)])
data LiaOnDisplayToOrderSettings = LiaOnDisplayToOrderSettings'
{ _lodtosStatus :: !(Maybe Text)
, _lodtosShippingCostPolicyURL :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
liaOnDisplayToOrderSettings
:: LiaOnDisplayToOrderSettings
liaOnDisplayToOrderSettings =
LiaOnDisplayToOrderSettings'
{ _lodtosStatus = Nothing
, _lodtosShippingCostPolicyURL = Nothing
}
lodtosStatus :: Lens' LiaOnDisplayToOrderSettings (Maybe Text)
lodtosStatus
= lens _lodtosStatus (\ s a -> s{_lodtosStatus = a})
lodtosShippingCostPolicyURL :: Lens' LiaOnDisplayToOrderSettings (Maybe Text)
lodtosShippingCostPolicyURL
= lens _lodtosShippingCostPolicyURL
(\ s a -> s{_lodtosShippingCostPolicyURL = a})
instance FromJSON LiaOnDisplayToOrderSettings where
parseJSON
= withObject "LiaOnDisplayToOrderSettings"
(\ o ->
LiaOnDisplayToOrderSettings' <$>
(o .:? "status") <*> (o .:? "shippingCostPolicyUrl"))
instance ToJSON LiaOnDisplayToOrderSettings where
toJSON LiaOnDisplayToOrderSettings'{..}
= object
(catMaybes
[("status" .=) <$> _lodtosStatus,
("shippingCostPolicyUrl" .=) <$>
_lodtosShippingCostPolicyURL])
data OrderpaymentsNotifyAuthDeclinedResponse = OrderpaymentsNotifyAuthDeclinedResponse'
{ _onadrKind :: !Text
, _onadrExecutionStatus :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
orderpaymentsNotifyAuthDeclinedResponse
:: OrderpaymentsNotifyAuthDeclinedResponse
orderpaymentsNotifyAuthDeclinedResponse =
OrderpaymentsNotifyAuthDeclinedResponse'
{ _onadrKind = "content#orderpaymentsNotifyAuthDeclinedResponse"
, _onadrExecutionStatus = Nothing
}
onadrKind :: Lens' OrderpaymentsNotifyAuthDeclinedResponse Text
onadrKind
= lens _onadrKind (\ s a -> s{_onadrKind = a})
onadrExecutionStatus :: Lens' OrderpaymentsNotifyAuthDeclinedResponse (Maybe Text)
onadrExecutionStatus
= lens _onadrExecutionStatus
(\ s a -> s{_onadrExecutionStatus = a})
instance FromJSON
OrderpaymentsNotifyAuthDeclinedResponse where
parseJSON
= withObject
"OrderpaymentsNotifyAuthDeclinedResponse"
(\ o ->
OrderpaymentsNotifyAuthDeclinedResponse' <$>
(o .:? "kind" .!=
"content#orderpaymentsNotifyAuthDeclinedResponse")
<*> (o .:? "executionStatus"))
instance ToJSON
OrderpaymentsNotifyAuthDeclinedResponse where
toJSON OrderpaymentsNotifyAuthDeclinedResponse'{..}
= object
(catMaybes
[Just ("kind" .= _onadrKind),
("executionStatus" .=) <$> _onadrExecutionStatus])
data AccountAddress = AccountAddress'
{ _aaStreetAddress :: !(Maybe Text)
, _aaCountry :: !(Maybe Text)
, _aaPostalCode :: !(Maybe Text)
, _aaLocality :: !(Maybe Text)
, _aaRegion :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
accountAddress
:: AccountAddress
accountAddress =
AccountAddress'
{ _aaStreetAddress = Nothing
, _aaCountry = Nothing
, _aaPostalCode = Nothing
, _aaLocality = Nothing
, _aaRegion = Nothing
}
aaStreetAddress :: Lens' AccountAddress (Maybe Text)
aaStreetAddress
= lens _aaStreetAddress
(\ s a -> s{_aaStreetAddress = a})
aaCountry :: Lens' AccountAddress (Maybe Text)
aaCountry
= lens _aaCountry (\ s a -> s{_aaCountry = a})
aaPostalCode :: Lens' AccountAddress (Maybe Text)
aaPostalCode
= lens _aaPostalCode (\ s a -> s{_aaPostalCode = a})
aaLocality :: Lens' AccountAddress (Maybe Text)
aaLocality
= lens _aaLocality (\ s a -> s{_aaLocality = a})
aaRegion :: Lens' AccountAddress (Maybe Text)
aaRegion = lens _aaRegion (\ s a -> s{_aaRegion = a})
instance FromJSON AccountAddress where
parseJSON
= withObject "AccountAddress"
(\ o ->
AccountAddress' <$>
(o .:? "streetAddress") <*> (o .:? "country") <*>
(o .:? "postalCode")
<*> (o .:? "locality")
<*> (o .:? "region"))
instance ToJSON AccountAddress where
toJSON AccountAddress'{..}
= object
(catMaybes
[("streetAddress" .=) <$> _aaStreetAddress,
("country" .=) <$> _aaCountry,
("postalCode" .=) <$> _aaPostalCode,
("locality" .=) <$> _aaLocality,
("region" .=) <$> _aaRegion])
data InvoiceSummaryAdditionalChargeSummary = InvoiceSummaryAdditionalChargeSummary'
{ _isacsTotalAmount :: !(Maybe Amount)
, _isacsType :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
invoiceSummaryAdditionalChargeSummary
:: InvoiceSummaryAdditionalChargeSummary
invoiceSummaryAdditionalChargeSummary =
InvoiceSummaryAdditionalChargeSummary'
{ _isacsTotalAmount = Nothing
, _isacsType = Nothing
}
isacsTotalAmount :: Lens' InvoiceSummaryAdditionalChargeSummary (Maybe Amount)
isacsTotalAmount
= lens _isacsTotalAmount
(\ s a -> s{_isacsTotalAmount = a})
isacsType :: Lens' InvoiceSummaryAdditionalChargeSummary (Maybe Text)
isacsType
= lens _isacsType (\ s a -> s{_isacsType = a})
instance FromJSON
InvoiceSummaryAdditionalChargeSummary where
parseJSON
= withObject "InvoiceSummaryAdditionalChargeSummary"
(\ o ->
InvoiceSummaryAdditionalChargeSummary' <$>
(o .:? "totalAmount") <*> (o .:? "type"))
instance ToJSON InvoiceSummaryAdditionalChargeSummary
where
toJSON InvoiceSummaryAdditionalChargeSummary'{..}
= object
(catMaybes
[("totalAmount" .=) <$> _isacsTotalAmount,
("type" .=) <$> _isacsType])
data RefundReason = RefundReason'
{ _rrReasonCode :: !(Maybe Text)
, _rrDescription :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
refundReason
:: RefundReason
refundReason =
RefundReason'
{ _rrReasonCode = Nothing
, _rrDescription = Nothing
}
rrReasonCode :: Lens' RefundReason (Maybe Text)
rrReasonCode
= lens _rrReasonCode (\ s a -> s{_rrReasonCode = a})
rrDescription :: Lens' RefundReason (Maybe Text)
rrDescription
= lens _rrDescription
(\ s a -> s{_rrDescription = a})
instance FromJSON RefundReason where
parseJSON
= withObject "RefundReason"
(\ o ->
RefundReason' <$>
(o .:? "reasonCode") <*> (o .:? "description"))
instance ToJSON RefundReason where
toJSON RefundReason'{..}
= object
(catMaybes
[("reasonCode" .=) <$> _rrReasonCode,
("description" .=) <$> _rrDescription])
data OrderLineItemShippingDetailsMethod = OrderLineItemShippingDetailsMethod'
{ _olisdmCarrier :: !(Maybe Text)
, _olisdmMethodName :: !(Maybe Text)
, _olisdmMaxDaysInTransit :: !(Maybe (Textual Word32))
, _olisdmMinDaysInTransit :: !(Maybe (Textual Word32))
} deriving (Eq,Show,Data,Typeable,Generic)
orderLineItemShippingDetailsMethod
:: OrderLineItemShippingDetailsMethod
orderLineItemShippingDetailsMethod =
OrderLineItemShippingDetailsMethod'
{ _olisdmCarrier = Nothing
, _olisdmMethodName = Nothing
, _olisdmMaxDaysInTransit = Nothing
, _olisdmMinDaysInTransit = Nothing
}
olisdmCarrier :: Lens' OrderLineItemShippingDetailsMethod (Maybe Text)
olisdmCarrier
= lens _olisdmCarrier
(\ s a -> s{_olisdmCarrier = a})
olisdmMethodName :: Lens' OrderLineItemShippingDetailsMethod (Maybe Text)
olisdmMethodName
= lens _olisdmMethodName
(\ s a -> s{_olisdmMethodName = a})
olisdmMaxDaysInTransit :: Lens' OrderLineItemShippingDetailsMethod (Maybe Word32)
olisdmMaxDaysInTransit
= lens _olisdmMaxDaysInTransit
(\ s a -> s{_olisdmMaxDaysInTransit = a})
. mapping _Coerce
olisdmMinDaysInTransit :: Lens' OrderLineItemShippingDetailsMethod (Maybe Word32)
olisdmMinDaysInTransit
= lens _olisdmMinDaysInTransit
(\ s a -> s{_olisdmMinDaysInTransit = a})
. mapping _Coerce
instance FromJSON OrderLineItemShippingDetailsMethod
where
parseJSON
= withObject "OrderLineItemShippingDetailsMethod"
(\ o ->
OrderLineItemShippingDetailsMethod' <$>
(o .:? "carrier") <*> (o .:? "methodName") <*>
(o .:? "maxDaysInTransit")
<*> (o .:? "minDaysInTransit"))
instance ToJSON OrderLineItemShippingDetailsMethod
where
toJSON OrderLineItemShippingDetailsMethod'{..}
= object
(catMaybes
[("carrier" .=) <$> _olisdmCarrier,
("methodName" .=) <$> _olisdmMethodName,
("maxDaysInTransit" .=) <$> _olisdmMaxDaysInTransit,
("minDaysInTransit" .=) <$> _olisdmMinDaysInTransit])
data Datafeed = Datafeed'
{ _dKind :: !Text
, _dFormat :: !(Maybe DatafeedFormat)
, _dAttributeLanguage :: !(Maybe Text)
, _dFetchSchedule :: !(Maybe DatafeedFetchSchedule)
, _dName :: !(Maybe Text)
, _dTargets :: !(Maybe [DatafeedTarget])
, _dId :: !(Maybe (Textual Int64))
, _dContentType :: !(Maybe Text)
, _dFileName :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
datafeed
:: Datafeed
datafeed =
Datafeed'
{ _dKind = "content#datafeed"
, _dFormat = Nothing
, _dAttributeLanguage = Nothing
, _dFetchSchedule = Nothing
, _dName = Nothing
, _dTargets = Nothing
, _dId = Nothing
, _dContentType = Nothing
, _dFileName = Nothing
}
dKind :: Lens' Datafeed Text
dKind = lens _dKind (\ s a -> s{_dKind = a})
dFormat :: Lens' Datafeed (Maybe DatafeedFormat)
dFormat = lens _dFormat (\ s a -> s{_dFormat = a})
dAttributeLanguage :: Lens' Datafeed (Maybe Text)
dAttributeLanguage
= lens _dAttributeLanguage
(\ s a -> s{_dAttributeLanguage = a})
dFetchSchedule :: Lens' Datafeed (Maybe DatafeedFetchSchedule)
dFetchSchedule
= lens _dFetchSchedule
(\ s a -> s{_dFetchSchedule = a})
dName :: Lens' Datafeed (Maybe Text)
dName = lens _dName (\ s a -> s{_dName = a})
dTargets :: Lens' Datafeed [DatafeedTarget]
dTargets
= lens _dTargets (\ s a -> s{_dTargets = a}) .
_Default
. _Coerce
dId :: Lens' Datafeed (Maybe Int64)
dId
= lens _dId (\ s a -> s{_dId = a}) . mapping _Coerce
dContentType :: Lens' Datafeed (Maybe Text)
dContentType
= lens _dContentType (\ s a -> s{_dContentType = a})
dFileName :: Lens' Datafeed (Maybe Text)
dFileName
= lens _dFileName (\ s a -> s{_dFileName = a})
instance FromJSON Datafeed where
parseJSON
= withObject "Datafeed"
(\ o ->
Datafeed' <$>
(o .:? "kind" .!= "content#datafeed") <*>
(o .:? "format")
<*> (o .:? "attributeLanguage")
<*> (o .:? "fetchSchedule")
<*> (o .:? "name")
<*> (o .:? "targets" .!= mempty)
<*> (o .:? "id")
<*> (o .:? "contentType")
<*> (o .:? "fileName"))
instance ToJSON Datafeed where
toJSON Datafeed'{..}
= object
(catMaybes
[Just ("kind" .= _dKind), ("format" .=) <$> _dFormat,
("attributeLanguage" .=) <$> _dAttributeLanguage,
("fetchSchedule" .=) <$> _dFetchSchedule,
("name" .=) <$> _dName, ("targets" .=) <$> _dTargets,
("id" .=) <$> _dId,
("contentType" .=) <$> _dContentType,
("fileName" .=) <$> _dFileName])
data OrdersCreateTestOrderResponse = OrdersCreateTestOrderResponse'
{ _octorKind :: !Text
, _octorOrderId :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
ordersCreateTestOrderResponse
:: OrdersCreateTestOrderResponse
ordersCreateTestOrderResponse =
OrdersCreateTestOrderResponse'
{ _octorKind = "content#ordersCreateTestOrderResponse"
, _octorOrderId = Nothing
}
octorKind :: Lens' OrdersCreateTestOrderResponse Text
octorKind
= lens _octorKind (\ s a -> s{_octorKind = a})
octorOrderId :: Lens' OrdersCreateTestOrderResponse (Maybe Text)
octorOrderId
= lens _octorOrderId (\ s a -> s{_octorOrderId = a})
instance FromJSON OrdersCreateTestOrderResponse where
parseJSON
= withObject "OrdersCreateTestOrderResponse"
(\ o ->
OrdersCreateTestOrderResponse' <$>
(o .:? "kind" .!=
"content#ordersCreateTestOrderResponse")
<*> (o .:? "orderId"))
instance ToJSON OrdersCreateTestOrderResponse where
toJSON OrdersCreateTestOrderResponse'{..}
= object
(catMaybes
[Just ("kind" .= _octorKind),
("orderId" .=) <$> _octorOrderId])
data AccountsCustomBatchResponseEntry = AccountsCustomBatchResponseEntry'
{ _aKind :: !Text
, _aAccount :: !(Maybe Account)
, _aErrors :: !(Maybe Errors)
, _aBatchId :: !(Maybe (Textual Word32))
} deriving (Eq,Show,Data,Typeable,Generic)
accountsCustomBatchResponseEntry
:: AccountsCustomBatchResponseEntry
accountsCustomBatchResponseEntry =
AccountsCustomBatchResponseEntry'
{ _aKind = "content#accountsCustomBatchResponseEntry"
, _aAccount = Nothing
, _aErrors = Nothing
, _aBatchId = Nothing
}
aKind :: Lens' AccountsCustomBatchResponseEntry Text
aKind = lens _aKind (\ s a -> s{_aKind = a})
aAccount :: Lens' AccountsCustomBatchResponseEntry (Maybe Account)
aAccount = lens _aAccount (\ s a -> s{_aAccount = a})
aErrors :: Lens' AccountsCustomBatchResponseEntry (Maybe Errors)
aErrors = lens _aErrors (\ s a -> s{_aErrors = a})
aBatchId :: Lens' AccountsCustomBatchResponseEntry (Maybe Word32)
aBatchId
= lens _aBatchId (\ s a -> s{_aBatchId = a}) .
mapping _Coerce
instance FromJSON AccountsCustomBatchResponseEntry
where
parseJSON
= withObject "AccountsCustomBatchResponseEntry"
(\ o ->
AccountsCustomBatchResponseEntry' <$>
(o .:? "kind" .!=
"content#accountsCustomBatchResponseEntry")
<*> (o .:? "account")
<*> (o .:? "errors")
<*> (o .:? "batchId"))
instance ToJSON AccountsCustomBatchResponseEntry
where
toJSON AccountsCustomBatchResponseEntry'{..}
= object
(catMaybes
[Just ("kind" .= _aKind),
("account" .=) <$> _aAccount,
("errors" .=) <$> _aErrors,
("batchId" .=) <$> _aBatchId])
data GmbAccounts = GmbAccounts'
{ _gaGmbAccounts :: !(Maybe [GmbAccountsGmbAccount])
, _gaAccountId :: !(Maybe (Textual Word64))
} deriving (Eq,Show,Data,Typeable,Generic)
gmbAccounts
:: GmbAccounts
gmbAccounts =
GmbAccounts'
{ _gaGmbAccounts = Nothing
, _gaAccountId = Nothing
}
gaGmbAccounts :: Lens' GmbAccounts [GmbAccountsGmbAccount]
gaGmbAccounts
= lens _gaGmbAccounts
(\ s a -> s{_gaGmbAccounts = a})
. _Default
. _Coerce
gaAccountId :: Lens' GmbAccounts (Maybe Word64)
gaAccountId
= lens _gaAccountId (\ s a -> s{_gaAccountId = a}) .
mapping _Coerce
instance FromJSON GmbAccounts where
parseJSON
= withObject "GmbAccounts"
(\ o ->
GmbAccounts' <$>
(o .:? "gmbAccounts" .!= mempty) <*>
(o .:? "accountId"))
instance ToJSON GmbAccounts where
toJSON GmbAccounts'{..}
= object
(catMaybes
[("gmbAccounts" .=) <$> _gaGmbAccounts,
("accountId" .=) <$> _gaAccountId])
data CustomerReturnReason = CustomerReturnReason'
{ _crrReasonCode :: !(Maybe Text)
, _crrDescription :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
customerReturnReason
:: CustomerReturnReason
customerReturnReason =
CustomerReturnReason'
{ _crrReasonCode = Nothing
, _crrDescription = Nothing
}
crrReasonCode :: Lens' CustomerReturnReason (Maybe Text)
crrReasonCode
= lens _crrReasonCode
(\ s a -> s{_crrReasonCode = a})
crrDescription :: Lens' CustomerReturnReason (Maybe Text)
crrDescription
= lens _crrDescription
(\ s a -> s{_crrDescription = a})
instance FromJSON CustomerReturnReason where
parseJSON
= withObject "CustomerReturnReason"
(\ o ->
CustomerReturnReason' <$>
(o .:? "reasonCode") <*> (o .:? "description"))
instance ToJSON CustomerReturnReason where
toJSON CustomerReturnReason'{..}
= object
(catMaybes
[("reasonCode" .=) <$> _crrReasonCode,
("description" .=) <$> _crrDescription])
data AccountIdentifier = AccountIdentifier'
{ _aiMerchantId :: !(Maybe (Textual Word64))
, _aiAggregatorId :: !(Maybe (Textual Word64))
} deriving (Eq,Show,Data,Typeable,Generic)
accountIdentifier
:: AccountIdentifier
accountIdentifier =
AccountIdentifier'
{ _aiMerchantId = Nothing
, _aiAggregatorId = Nothing
}
aiMerchantId :: Lens' AccountIdentifier (Maybe Word64)
aiMerchantId
= lens _aiMerchantId (\ s a -> s{_aiMerchantId = a})
. mapping _Coerce
aiAggregatorId :: Lens' AccountIdentifier (Maybe Word64)
aiAggregatorId
= lens _aiAggregatorId
(\ s a -> s{_aiAggregatorId = a})
. mapping _Coerce
instance FromJSON AccountIdentifier where
parseJSON
= withObject "AccountIdentifier"
(\ o ->
AccountIdentifier' <$>
(o .:? "merchantId") <*> (o .:? "aggregatorId"))
instance ToJSON AccountIdentifier where
toJSON AccountIdentifier'{..}
= object
(catMaybes
[("merchantId" .=) <$> _aiMerchantId,
("aggregatorId" .=) <$> _aiAggregatorId])
newtype PosCustomBatchRequest = PosCustomBatchRequest'
{ _pEntries :: Maybe [PosCustomBatchRequestEntry]
} deriving (Eq,Show,Data,Typeable,Generic)
posCustomBatchRequest
:: PosCustomBatchRequest
posCustomBatchRequest =
PosCustomBatchRequest'
{ _pEntries = Nothing
}
pEntries :: Lens' PosCustomBatchRequest [PosCustomBatchRequestEntry]
pEntries
= lens _pEntries (\ s a -> s{_pEntries = a}) .
_Default
. _Coerce
instance FromJSON PosCustomBatchRequest where
parseJSON
= withObject "PosCustomBatchRequest"
(\ o ->
PosCustomBatchRequest' <$>
(o .:? "entries" .!= mempty))
instance ToJSON PosCustomBatchRequest where
toJSON PosCustomBatchRequest'{..}
= object (catMaybes [("entries" .=) <$> _pEntries])
data OrderinvoicesCreateChargeInvoiceRequest = OrderinvoicesCreateChargeInvoiceRequest'
{ _occirShipmentGroupId :: !(Maybe Text)
, _occirLineItemInvoices :: !(Maybe [ShipmentInvoiceLineItemInvoice])
, _occirInvoiceId :: !(Maybe Text)
, _occirInvoiceSummary :: !(Maybe InvoiceSummary)
, _occirOperationId :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
orderinvoicesCreateChargeInvoiceRequest
:: OrderinvoicesCreateChargeInvoiceRequest
orderinvoicesCreateChargeInvoiceRequest =
OrderinvoicesCreateChargeInvoiceRequest'
{ _occirShipmentGroupId = Nothing
, _occirLineItemInvoices = Nothing
, _occirInvoiceId = Nothing
, _occirInvoiceSummary = Nothing
, _occirOperationId = Nothing
}
occirShipmentGroupId :: Lens' OrderinvoicesCreateChargeInvoiceRequest (Maybe Text)
occirShipmentGroupId
= lens _occirShipmentGroupId
(\ s a -> s{_occirShipmentGroupId = a})
occirLineItemInvoices :: Lens' OrderinvoicesCreateChargeInvoiceRequest [ShipmentInvoiceLineItemInvoice]
occirLineItemInvoices
= lens _occirLineItemInvoices
(\ s a -> s{_occirLineItemInvoices = a})
. _Default
. _Coerce
occirInvoiceId :: Lens' OrderinvoicesCreateChargeInvoiceRequest (Maybe Text)
occirInvoiceId
= lens _occirInvoiceId
(\ s a -> s{_occirInvoiceId = a})
occirInvoiceSummary :: Lens' OrderinvoicesCreateChargeInvoiceRequest (Maybe InvoiceSummary)
occirInvoiceSummary
= lens _occirInvoiceSummary
(\ s a -> s{_occirInvoiceSummary = a})
occirOperationId :: Lens' OrderinvoicesCreateChargeInvoiceRequest (Maybe Text)
occirOperationId
= lens _occirOperationId
(\ s a -> s{_occirOperationId = a})
instance FromJSON
OrderinvoicesCreateChargeInvoiceRequest where
parseJSON
= withObject
"OrderinvoicesCreateChargeInvoiceRequest"
(\ o ->
OrderinvoicesCreateChargeInvoiceRequest' <$>
(o .:? "shipmentGroupId") <*>
(o .:? "lineItemInvoices" .!= mempty)
<*> (o .:? "invoiceId")
<*> (o .:? "invoiceSummary")
<*> (o .:? "operationId"))
instance ToJSON
OrderinvoicesCreateChargeInvoiceRequest where
toJSON OrderinvoicesCreateChargeInvoiceRequest'{..}
= object
(catMaybes
[("shipmentGroupId" .=) <$> _occirShipmentGroupId,
("lineItemInvoices" .=) <$> _occirLineItemInvoices,
("invoiceId" .=) <$> _occirInvoiceId,
("invoiceSummary" .=) <$> _occirInvoiceSummary,
("operationId" .=) <$> _occirOperationId])
data OrderLineItem = OrderLineItem'
{ _oliAnnotations :: !(Maybe [OrderMerchantProvidedAnnotation])
, _oliQuantityOrdered :: !(Maybe (Textual Word32))
, _oliReturnInfo :: !(Maybe OrderLineItemReturnInfo)
, _oliQuantityDelivered :: !(Maybe (Textual Word32))
, _oliShippingDetails :: !(Maybe OrderLineItemShippingDetails)
, _oliQuantityPending :: !(Maybe (Textual Word32))
, _oliCancellations :: !(Maybe [OrderCancellation])
, _oliQuantityCanceled :: !(Maybe (Textual Word32))
, _oliId :: !(Maybe Text)
, _oliTax :: !(Maybe Price)
, _oliPrice :: !(Maybe Price)
, _oliQuantityShipped :: !(Maybe (Textual Word32))
, _oliQuantityReturned :: !(Maybe (Textual Word32))
, _oliProduct :: !(Maybe OrderLineItemProduct)
, _oliReturns :: !(Maybe [OrderReturn])
} deriving (Eq,Show,Data,Typeable,Generic)
orderLineItem
:: OrderLineItem
orderLineItem =
OrderLineItem'
{ _oliAnnotations = Nothing
, _oliQuantityOrdered = Nothing
, _oliReturnInfo = Nothing
, _oliQuantityDelivered = Nothing
, _oliShippingDetails = Nothing
, _oliQuantityPending = Nothing
, _oliCancellations = Nothing
, _oliQuantityCanceled = Nothing
, _oliId = Nothing
, _oliTax = Nothing
, _oliPrice = Nothing
, _oliQuantityShipped = Nothing
, _oliQuantityReturned = Nothing
, _oliProduct = Nothing
, _oliReturns = Nothing
}
oliAnnotations :: Lens' OrderLineItem [OrderMerchantProvidedAnnotation]
oliAnnotations
= lens _oliAnnotations
(\ s a -> s{_oliAnnotations = a})
. _Default
. _Coerce
oliQuantityOrdered :: Lens' OrderLineItem (Maybe Word32)
oliQuantityOrdered
= lens _oliQuantityOrdered
(\ s a -> s{_oliQuantityOrdered = a})
. mapping _Coerce
oliReturnInfo :: Lens' OrderLineItem (Maybe OrderLineItemReturnInfo)
oliReturnInfo
= lens _oliReturnInfo
(\ s a -> s{_oliReturnInfo = a})
oliQuantityDelivered :: Lens' OrderLineItem (Maybe Word32)
oliQuantityDelivered
= lens _oliQuantityDelivered
(\ s a -> s{_oliQuantityDelivered = a})
. mapping _Coerce
oliShippingDetails :: Lens' OrderLineItem (Maybe OrderLineItemShippingDetails)
oliShippingDetails
= lens _oliShippingDetails
(\ s a -> s{_oliShippingDetails = a})
oliQuantityPending :: Lens' OrderLineItem (Maybe Word32)
oliQuantityPending
= lens _oliQuantityPending
(\ s a -> s{_oliQuantityPending = a})
. mapping _Coerce
oliCancellations :: Lens' OrderLineItem [OrderCancellation]
oliCancellations
= lens _oliCancellations
(\ s a -> s{_oliCancellations = a})
. _Default
. _Coerce
oliQuantityCanceled :: Lens' OrderLineItem (Maybe Word32)
oliQuantityCanceled
= lens _oliQuantityCanceled
(\ s a -> s{_oliQuantityCanceled = a})
. mapping _Coerce
oliId :: Lens' OrderLineItem (Maybe Text)
oliId = lens _oliId (\ s a -> s{_oliId = a})
oliTax :: Lens' OrderLineItem (Maybe Price)
oliTax = lens _oliTax (\ s a -> s{_oliTax = a})
oliPrice :: Lens' OrderLineItem (Maybe Price)
oliPrice = lens _oliPrice (\ s a -> s{_oliPrice = a})
oliQuantityShipped :: Lens' OrderLineItem (Maybe Word32)
oliQuantityShipped
= lens _oliQuantityShipped
(\ s a -> s{_oliQuantityShipped = a})
. mapping _Coerce
oliQuantityReturned :: Lens' OrderLineItem (Maybe Word32)
oliQuantityReturned
= lens _oliQuantityReturned
(\ s a -> s{_oliQuantityReturned = a})
. mapping _Coerce
oliProduct :: Lens' OrderLineItem (Maybe OrderLineItemProduct)
oliProduct
= lens _oliProduct (\ s a -> s{_oliProduct = a})
oliReturns :: Lens' OrderLineItem [OrderReturn]
oliReturns
= lens _oliReturns (\ s a -> s{_oliReturns = a}) .
_Default
. _Coerce
instance FromJSON OrderLineItem where
parseJSON
= withObject "OrderLineItem"
(\ o ->
OrderLineItem' <$>
(o .:? "annotations" .!= mempty) <*>
(o .:? "quantityOrdered")
<*> (o .:? "returnInfo")
<*> (o .:? "quantityDelivered")
<*> (o .:? "shippingDetails")
<*> (o .:? "quantityPending")
<*> (o .:? "cancellations" .!= mempty)
<*> (o .:? "quantityCanceled")
<*> (o .:? "id")
<*> (o .:? "tax")
<*> (o .:? "price")
<*> (o .:? "quantityShipped")
<*> (o .:? "quantityReturned")
<*> (o .:? "product")
<*> (o .:? "returns" .!= mempty))
instance ToJSON OrderLineItem where
toJSON OrderLineItem'{..}
= object
(catMaybes
[("annotations" .=) <$> _oliAnnotations,
("quantityOrdered" .=) <$> _oliQuantityOrdered,
("returnInfo" .=) <$> _oliReturnInfo,
("quantityDelivered" .=) <$> _oliQuantityDelivered,
("shippingDetails" .=) <$> _oliShippingDetails,
("quantityPending" .=) <$> _oliQuantityPending,
("cancellations" .=) <$> _oliCancellations,
("quantityCanceled" .=) <$> _oliQuantityCanceled,
("id" .=) <$> _oliId, ("tax" .=) <$> _oliTax,
("price" .=) <$> _oliPrice,
("quantityShipped" .=) <$> _oliQuantityShipped,
("quantityReturned" .=) <$> _oliQuantityReturned,
("product" .=) <$> _oliProduct,
("returns" .=) <$> _oliReturns])
data Service = Service'
{ _sDeliveryCountry :: !(Maybe Text)
, _sRateGroups :: !(Maybe [RateGroup])
, _sDeliveryTime :: !(Maybe DeliveryTime)
, _sActive :: !(Maybe Bool)
, _sName :: !(Maybe Text)
, _sCurrency :: !(Maybe Text)
, _sEligibility :: !(Maybe Text)
, _sMinimumOrderValue :: !(Maybe Price)
} deriving (Eq,Show,Data,Typeable,Generic)
service
:: Service
service =
Service'
{ _sDeliveryCountry = Nothing
, _sRateGroups = Nothing
, _sDeliveryTime = Nothing
, _sActive = Nothing
, _sName = Nothing
, _sCurrency = Nothing
, _sEligibility = Nothing
, _sMinimumOrderValue = Nothing
}
sDeliveryCountry :: Lens' Service (Maybe Text)
sDeliveryCountry
= lens _sDeliveryCountry
(\ s a -> s{_sDeliveryCountry = a})
sRateGroups :: Lens' Service [RateGroup]
sRateGroups
= lens _sRateGroups (\ s a -> s{_sRateGroups = a}) .
_Default
. _Coerce
sDeliveryTime :: Lens' Service (Maybe DeliveryTime)
sDeliveryTime
= lens _sDeliveryTime
(\ s a -> s{_sDeliveryTime = a})
sActive :: Lens' Service (Maybe Bool)
sActive = lens _sActive (\ s a -> s{_sActive = a})
sName :: Lens' Service (Maybe Text)
sName = lens _sName (\ s a -> s{_sName = a})
sCurrency :: Lens' Service (Maybe Text)
sCurrency
= lens _sCurrency (\ s a -> s{_sCurrency = a})
sEligibility :: Lens' Service (Maybe Text)
sEligibility
= lens _sEligibility (\ s a -> s{_sEligibility = a})
sMinimumOrderValue :: Lens' Service (Maybe Price)
sMinimumOrderValue
= lens _sMinimumOrderValue
(\ s a -> s{_sMinimumOrderValue = a})
instance FromJSON Service where
parseJSON
= withObject "Service"
(\ o ->
Service' <$>
(o .:? "deliveryCountry") <*>
(o .:? "rateGroups" .!= mempty)
<*> (o .:? "deliveryTime")
<*> (o .:? "active")
<*> (o .:? "name")
<*> (o .:? "currency")
<*> (o .:? "eligibility")
<*> (o .:? "minimumOrderValue"))
instance ToJSON Service where
toJSON Service'{..}
= object
(catMaybes
[("deliveryCountry" .=) <$> _sDeliveryCountry,
("rateGroups" .=) <$> _sRateGroups,
("deliveryTime" .=) <$> _sDeliveryTime,
("active" .=) <$> _sActive, ("name" .=) <$> _sName,
("currency" .=) <$> _sCurrency,
("eligibility" .=) <$> _sEligibility,
("minimumOrderValue" .=) <$> _sMinimumOrderValue])
data ProductstatusesCustomBatchResponse = ProductstatusesCustomBatchResponse'
{ _proEntries :: !(Maybe [ProductstatusesCustomBatchResponseEntry])
, _proKind :: !Text
} deriving (Eq,Show,Data,Typeable,Generic)
productstatusesCustomBatchResponse
:: ProductstatusesCustomBatchResponse
productstatusesCustomBatchResponse =
ProductstatusesCustomBatchResponse'
{ _proEntries = Nothing
, _proKind = "content#productstatusesCustomBatchResponse"
}
proEntries :: Lens' ProductstatusesCustomBatchResponse [ProductstatusesCustomBatchResponseEntry]
proEntries
= lens _proEntries (\ s a -> s{_proEntries = a}) .
_Default
. _Coerce
proKind :: Lens' ProductstatusesCustomBatchResponse Text
proKind = lens _proKind (\ s a -> s{_proKind = a})
instance FromJSON ProductstatusesCustomBatchResponse
where
parseJSON
= withObject "ProductstatusesCustomBatchResponse"
(\ o ->
ProductstatusesCustomBatchResponse' <$>
(o .:? "entries" .!= mempty) <*>
(o .:? "kind" .!=
"content#productstatusesCustomBatchResponse"))
instance ToJSON ProductstatusesCustomBatchResponse
where
toJSON ProductstatusesCustomBatchResponse'{..}
= object
(catMaybes
[("entries" .=) <$> _proEntries,
Just ("kind" .= _proKind)])
data ProductUnitPricingMeasure = ProductUnitPricingMeasure'
{ _pupmValue :: !(Maybe (Textual Double))
, _pupmUnit :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
productUnitPricingMeasure
:: ProductUnitPricingMeasure
productUnitPricingMeasure =
ProductUnitPricingMeasure'
{ _pupmValue = Nothing
, _pupmUnit = Nothing
}
pupmValue :: Lens' ProductUnitPricingMeasure (Maybe Double)
pupmValue
= lens _pupmValue (\ s a -> s{_pupmValue = a}) .
mapping _Coerce
pupmUnit :: Lens' ProductUnitPricingMeasure (Maybe Text)
pupmUnit = lens _pupmUnit (\ s a -> s{_pupmUnit = a})
instance FromJSON ProductUnitPricingMeasure where
parseJSON
= withObject "ProductUnitPricingMeasure"
(\ o ->
ProductUnitPricingMeasure' <$>
(o .:? "value") <*> (o .:? "unit"))
instance ToJSON ProductUnitPricingMeasure where
toJSON ProductUnitPricingMeasure'{..}
= object
(catMaybes
[("value" .=) <$> _pupmValue,
("unit" .=) <$> _pupmUnit])
data OrdersUpdateShipmentRequest = OrdersUpdateShipmentRequest'
{ _ousrCarrier :: !(Maybe Text)
, _ousrStatus :: !(Maybe Text)
, _ousrTrackingId :: !(Maybe Text)
, _ousrShipmentId :: !(Maybe Text)
, _ousrDeliveryDate :: !(Maybe Text)
, _ousrOperationId :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
ordersUpdateShipmentRequest
:: OrdersUpdateShipmentRequest
ordersUpdateShipmentRequest =
OrdersUpdateShipmentRequest'
{ _ousrCarrier = Nothing
, _ousrStatus = Nothing
, _ousrTrackingId = Nothing
, _ousrShipmentId = Nothing
, _ousrDeliveryDate = Nothing
, _ousrOperationId = Nothing
}
ousrCarrier :: Lens' OrdersUpdateShipmentRequest (Maybe Text)
ousrCarrier
= lens _ousrCarrier (\ s a -> s{_ousrCarrier = a})
ousrStatus :: Lens' OrdersUpdateShipmentRequest (Maybe Text)
ousrStatus
= lens _ousrStatus (\ s a -> s{_ousrStatus = a})
ousrTrackingId :: Lens' OrdersUpdateShipmentRequest (Maybe Text)
ousrTrackingId
= lens _ousrTrackingId
(\ s a -> s{_ousrTrackingId = a})
ousrShipmentId :: Lens' OrdersUpdateShipmentRequest (Maybe Text)
ousrShipmentId
= lens _ousrShipmentId
(\ s a -> s{_ousrShipmentId = a})
ousrDeliveryDate :: Lens' OrdersUpdateShipmentRequest (Maybe Text)
ousrDeliveryDate
= lens _ousrDeliveryDate
(\ s a -> s{_ousrDeliveryDate = a})
ousrOperationId :: Lens' OrdersUpdateShipmentRequest (Maybe Text)
ousrOperationId
= lens _ousrOperationId
(\ s a -> s{_ousrOperationId = a})
instance FromJSON OrdersUpdateShipmentRequest where
parseJSON
= withObject "OrdersUpdateShipmentRequest"
(\ o ->
OrdersUpdateShipmentRequest' <$>
(o .:? "carrier") <*> (o .:? "status") <*>
(o .:? "trackingId")
<*> (o .:? "shipmentId")
<*> (o .:? "deliveryDate")
<*> (o .:? "operationId"))
instance ToJSON OrdersUpdateShipmentRequest where
toJSON OrdersUpdateShipmentRequest'{..}
= object
(catMaybes
[("carrier" .=) <$> _ousrCarrier,
("status" .=) <$> _ousrStatus,
("trackingId" .=) <$> _ousrTrackingId,
("shipmentId" .=) <$> _ousrShipmentId,
("deliveryDate" .=) <$> _ousrDeliveryDate,
("operationId" .=) <$> _ousrOperationId])
data OrderShipmentLineItemShipment = OrderShipmentLineItemShipment'
{ _oslisQuantity :: !(Maybe (Textual Word32))
, _oslisLineItemId :: !(Maybe Text)
, _oslisProductId :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
orderShipmentLineItemShipment
:: OrderShipmentLineItemShipment
orderShipmentLineItemShipment =
OrderShipmentLineItemShipment'
{ _oslisQuantity = Nothing
, _oslisLineItemId = Nothing
, _oslisProductId = Nothing
}
oslisQuantity :: Lens' OrderShipmentLineItemShipment (Maybe Word32)
oslisQuantity
= lens _oslisQuantity
(\ s a -> s{_oslisQuantity = a})
. mapping _Coerce
oslisLineItemId :: Lens' OrderShipmentLineItemShipment (Maybe Text)
oslisLineItemId
= lens _oslisLineItemId
(\ s a -> s{_oslisLineItemId = a})
oslisProductId :: Lens' OrderShipmentLineItemShipment (Maybe Text)
oslisProductId
= lens _oslisProductId
(\ s a -> s{_oslisProductId = a})
instance FromJSON OrderShipmentLineItemShipment where
parseJSON
= withObject "OrderShipmentLineItemShipment"
(\ o ->
OrderShipmentLineItemShipment' <$>
(o .:? "quantity") <*> (o .:? "lineItemId") <*>
(o .:? "productId"))
instance ToJSON OrderShipmentLineItemShipment where
toJSON OrderShipmentLineItemShipment'{..}
= object
(catMaybes
[("quantity" .=) <$> _oslisQuantity,
("lineItemId" .=) <$> _oslisLineItemId,
("productId" .=) <$> _oslisProductId])
data OrderreportsListTransactionsResponse = OrderreportsListTransactionsResponse'
{ _oltrNextPageToken :: !(Maybe Text)
, _oltrTransactions :: !(Maybe [OrderReportTransaction])
, _oltrKind :: !Text
} deriving (Eq,Show,Data,Typeable,Generic)
orderreportsListTransactionsResponse
:: OrderreportsListTransactionsResponse
orderreportsListTransactionsResponse =
OrderreportsListTransactionsResponse'
{ _oltrNextPageToken = Nothing
, _oltrTransactions = Nothing
, _oltrKind = "content#orderreportsListTransactionsResponse"
}
oltrNextPageToken :: Lens' OrderreportsListTransactionsResponse (Maybe Text)
oltrNextPageToken
= lens _oltrNextPageToken
(\ s a -> s{_oltrNextPageToken = a})
oltrTransactions :: Lens' OrderreportsListTransactionsResponse [OrderReportTransaction]
oltrTransactions
= lens _oltrTransactions
(\ s a -> s{_oltrTransactions = a})
. _Default
. _Coerce
oltrKind :: Lens' OrderreportsListTransactionsResponse Text
oltrKind = lens _oltrKind (\ s a -> s{_oltrKind = a})
instance FromJSON
OrderreportsListTransactionsResponse where
parseJSON
= withObject "OrderreportsListTransactionsResponse"
(\ o ->
OrderreportsListTransactionsResponse' <$>
(o .:? "nextPageToken") <*>
(o .:? "transactions" .!= mempty)
<*>
(o .:? "kind" .!=
"content#orderreportsListTransactionsResponse"))
instance ToJSON OrderreportsListTransactionsResponse
where
toJSON OrderreportsListTransactionsResponse'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _oltrNextPageToken,
("transactions" .=) <$> _oltrTransactions,
Just ("kind" .= _oltrKind)])
data LiaSettingsCustomBatchResponse = LiaSettingsCustomBatchResponse'
{ _lscbrEntries :: !(Maybe [LiaSettingsCustomBatchResponseEntry])
, _lscbrKind :: !Text
} deriving (Eq,Show,Data,Typeable,Generic)
liaSettingsCustomBatchResponse
:: LiaSettingsCustomBatchResponse
liaSettingsCustomBatchResponse =
LiaSettingsCustomBatchResponse'
{ _lscbrEntries = Nothing
, _lscbrKind = "content#liasettingsCustomBatchResponse"
}
lscbrEntries :: Lens' LiaSettingsCustomBatchResponse [LiaSettingsCustomBatchResponseEntry]
lscbrEntries
= lens _lscbrEntries (\ s a -> s{_lscbrEntries = a})
. _Default
. _Coerce
lscbrKind :: Lens' LiaSettingsCustomBatchResponse Text
lscbrKind
= lens _lscbrKind (\ s a -> s{_lscbrKind = a})
instance FromJSON LiaSettingsCustomBatchResponse
where
parseJSON
= withObject "LiaSettingsCustomBatchResponse"
(\ o ->
LiaSettingsCustomBatchResponse' <$>
(o .:? "entries" .!= mempty) <*>
(o .:? "kind" .!=
"content#liasettingsCustomBatchResponse"))
instance ToJSON LiaSettingsCustomBatchResponse where
toJSON LiaSettingsCustomBatchResponse'{..}
= object
(catMaybes
[("entries" .=) <$> _lscbrEntries,
Just ("kind" .= _lscbrKind)])
data LoyaltyPoints = LoyaltyPoints'
{ _lpRatio :: !(Maybe (Textual Double))
, _lpPointsValue :: !(Maybe (Textual Int64))
, _lpName :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
loyaltyPoints
:: LoyaltyPoints
loyaltyPoints =
LoyaltyPoints'
{ _lpRatio = Nothing
, _lpPointsValue = Nothing
, _lpName = Nothing
}
lpRatio :: Lens' LoyaltyPoints (Maybe Double)
lpRatio
= lens _lpRatio (\ s a -> s{_lpRatio = a}) .
mapping _Coerce
lpPointsValue :: Lens' LoyaltyPoints (Maybe Int64)
lpPointsValue
= lens _lpPointsValue
(\ s a -> s{_lpPointsValue = a})
. mapping _Coerce
lpName :: Lens' LoyaltyPoints (Maybe Text)
lpName = lens _lpName (\ s a -> s{_lpName = a})
instance FromJSON LoyaltyPoints where
parseJSON
= withObject "LoyaltyPoints"
(\ o ->
LoyaltyPoints' <$>
(o .:? "ratio") <*> (o .:? "pointsValue") <*>
(o .:? "name"))
instance ToJSON LoyaltyPoints where
toJSON LoyaltyPoints'{..}
= object
(catMaybes
[("ratio" .=) <$> _lpRatio,
("pointsValue" .=) <$> _lpPointsValue,
("name" .=) <$> _lpName])
newtype LiaSettingsSetPosDataProviderResponse = LiaSettingsSetPosDataProviderResponse'
{ _lsspdprKind :: Text
} deriving (Eq,Show,Data,Typeable,Generic)
liaSettingsSetPosDataProviderResponse
:: LiaSettingsSetPosDataProviderResponse
liaSettingsSetPosDataProviderResponse =
LiaSettingsSetPosDataProviderResponse'
{ _lsspdprKind = "content#liasettingsSetPosDataProviderResponse"
}
lsspdprKind :: Lens' LiaSettingsSetPosDataProviderResponse Text
lsspdprKind
= lens _lsspdprKind (\ s a -> s{_lsspdprKind = a})
instance FromJSON
LiaSettingsSetPosDataProviderResponse where
parseJSON
= withObject "LiaSettingsSetPosDataProviderResponse"
(\ o ->
LiaSettingsSetPosDataProviderResponse' <$>
(o .:? "kind" .!=
"content#liasettingsSetPosDataProviderResponse"))
instance ToJSON LiaSettingsSetPosDataProviderResponse
where
toJSON LiaSettingsSetPosDataProviderResponse'{..}
= object (catMaybes [Just ("kind" .= _lsspdprKind)])
data AccountStatus = AccountStatus'
{ _asAccountLevelIssues :: !(Maybe [AccountStatusAccountLevelIssue])
, _asKind :: !Text
, _asAccountId :: !(Maybe Text)
, _asProducts :: !(Maybe [AccountStatusProducts])
, _asWebsiteClaimed :: !(Maybe Bool)
} deriving (Eq,Show,Data,Typeable,Generic)
accountStatus
:: AccountStatus
accountStatus =
AccountStatus'
{ _asAccountLevelIssues = Nothing
, _asKind = "content#accountStatus"
, _asAccountId = Nothing
, _asProducts = Nothing
, _asWebsiteClaimed = Nothing
}
asAccountLevelIssues :: Lens' AccountStatus [AccountStatusAccountLevelIssue]
asAccountLevelIssues
= lens _asAccountLevelIssues
(\ s a -> s{_asAccountLevelIssues = a})
. _Default
. _Coerce
asKind :: Lens' AccountStatus Text
asKind = lens _asKind (\ s a -> s{_asKind = a})
asAccountId :: Lens' AccountStatus (Maybe Text)
asAccountId
= lens _asAccountId (\ s a -> s{_asAccountId = a})
asProducts :: Lens' AccountStatus [AccountStatusProducts]
asProducts
= lens _asProducts (\ s a -> s{_asProducts = a}) .
_Default
. _Coerce
asWebsiteClaimed :: Lens' AccountStatus (Maybe Bool)
asWebsiteClaimed
= lens _asWebsiteClaimed
(\ s a -> s{_asWebsiteClaimed = a})
instance FromJSON AccountStatus where
parseJSON
= withObject "AccountStatus"
(\ o ->
AccountStatus' <$>
(o .:? "accountLevelIssues" .!= mempty) <*>
(o .:? "kind" .!= "content#accountStatus")
<*> (o .:? "accountId")
<*> (o .:? "products" .!= mempty)
<*> (o .:? "websiteClaimed"))
instance ToJSON AccountStatus where
toJSON AccountStatus'{..}
= object
(catMaybes
[("accountLevelIssues" .=) <$> _asAccountLevelIssues,
Just ("kind" .= _asKind),
("accountId" .=) <$> _asAccountId,
("products" .=) <$> _asProducts,
("websiteClaimed" .=) <$> _asWebsiteClaimed])
data ShippingSettingsCustomBatchRequestEntry = ShippingSettingsCustomBatchRequestEntry'
{ _sscbreMerchantId :: !(Maybe (Textual Word64))
, _sscbreAccountId :: !(Maybe (Textual Word64))
, _sscbreMethod :: !(Maybe Text)
, _sscbreShippingSettings :: !(Maybe ShippingSettings)
, _sscbreBatchId :: !(Maybe (Textual Word32))
} deriving (Eq,Show,Data,Typeable,Generic)
shippingSettingsCustomBatchRequestEntry
:: ShippingSettingsCustomBatchRequestEntry
shippingSettingsCustomBatchRequestEntry =
ShippingSettingsCustomBatchRequestEntry'
{ _sscbreMerchantId = Nothing
, _sscbreAccountId = Nothing
, _sscbreMethod = Nothing
, _sscbreShippingSettings = Nothing
, _sscbreBatchId = Nothing
}
sscbreMerchantId :: Lens' ShippingSettingsCustomBatchRequestEntry (Maybe Word64)
sscbreMerchantId
= lens _sscbreMerchantId
(\ s a -> s{_sscbreMerchantId = a})
. mapping _Coerce
sscbreAccountId :: Lens' ShippingSettingsCustomBatchRequestEntry (Maybe Word64)
sscbreAccountId
= lens _sscbreAccountId
(\ s a -> s{_sscbreAccountId = a})
. mapping _Coerce
sscbreMethod :: Lens' ShippingSettingsCustomBatchRequestEntry (Maybe Text)
sscbreMethod
= lens _sscbreMethod (\ s a -> s{_sscbreMethod = a})
sscbreShippingSettings :: Lens' ShippingSettingsCustomBatchRequestEntry (Maybe ShippingSettings)
sscbreShippingSettings
= lens _sscbreShippingSettings
(\ s a -> s{_sscbreShippingSettings = a})
sscbreBatchId :: Lens' ShippingSettingsCustomBatchRequestEntry (Maybe Word32)
sscbreBatchId
= lens _sscbreBatchId
(\ s a -> s{_sscbreBatchId = a})
. mapping _Coerce
instance FromJSON
ShippingSettingsCustomBatchRequestEntry where
parseJSON
= withObject
"ShippingSettingsCustomBatchRequestEntry"
(\ o ->
ShippingSettingsCustomBatchRequestEntry' <$>
(o .:? "merchantId") <*> (o .:? "accountId") <*>
(o .:? "method")
<*> (o .:? "shippingSettings")
<*> (o .:? "batchId"))
instance ToJSON
ShippingSettingsCustomBatchRequestEntry where
toJSON ShippingSettingsCustomBatchRequestEntry'{..}
= object
(catMaybes
[("merchantId" .=) <$> _sscbreMerchantId,
("accountId" .=) <$> _sscbreAccountId,
("method" .=) <$> _sscbreMethod,
("shippingSettings" .=) <$> _sscbreShippingSettings,
("batchId" .=) <$> _sscbreBatchId])
data PosInventoryResponse = PosInventoryResponse'
{ _pirStoreCode :: !(Maybe Text)
, _pirKind :: !Text
, _pirItemId :: !(Maybe Text)
, _pirQuantity :: !(Maybe (Textual Int64))
, _pirTargetCountry :: !(Maybe Text)
, _pirGtin :: !(Maybe Text)
, _pirPrice :: !(Maybe Price)
, _pirContentLanguage :: !(Maybe Text)
, _pirTimestamp :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
posInventoryResponse
:: PosInventoryResponse
posInventoryResponse =
PosInventoryResponse'
{ _pirStoreCode = Nothing
, _pirKind = "content#posInventoryResponse"
, _pirItemId = Nothing
, _pirQuantity = Nothing
, _pirTargetCountry = Nothing
, _pirGtin = Nothing
, _pirPrice = Nothing
, _pirContentLanguage = Nothing
, _pirTimestamp = Nothing
}
pirStoreCode :: Lens' PosInventoryResponse (Maybe Text)
pirStoreCode
= lens _pirStoreCode (\ s a -> s{_pirStoreCode = a})
pirKind :: Lens' PosInventoryResponse Text
pirKind = lens _pirKind (\ s a -> s{_pirKind = a})
pirItemId :: Lens' PosInventoryResponse (Maybe Text)
pirItemId
= lens _pirItemId (\ s a -> s{_pirItemId = a})
pirQuantity :: Lens' PosInventoryResponse (Maybe Int64)
pirQuantity
= lens _pirQuantity (\ s a -> s{_pirQuantity = a}) .
mapping _Coerce
pirTargetCountry :: Lens' PosInventoryResponse (Maybe Text)
pirTargetCountry
= lens _pirTargetCountry
(\ s a -> s{_pirTargetCountry = a})
pirGtin :: Lens' PosInventoryResponse (Maybe Text)
pirGtin = lens _pirGtin (\ s a -> s{_pirGtin = a})
pirPrice :: Lens' PosInventoryResponse (Maybe Price)
pirPrice = lens _pirPrice (\ s a -> s{_pirPrice = a})
pirContentLanguage :: Lens' PosInventoryResponse (Maybe Text)
pirContentLanguage
= lens _pirContentLanguage
(\ s a -> s{_pirContentLanguage = a})
pirTimestamp :: Lens' PosInventoryResponse (Maybe Text)
pirTimestamp
= lens _pirTimestamp (\ s a -> s{_pirTimestamp = a})
instance FromJSON PosInventoryResponse where
parseJSON
= withObject "PosInventoryResponse"
(\ o ->
PosInventoryResponse' <$>
(o .:? "storeCode") <*>
(o .:? "kind" .!= "content#posInventoryResponse")
<*> (o .:? "itemId")
<*> (o .:? "quantity")
<*> (o .:? "targetCountry")
<*> (o .:? "gtin")
<*> (o .:? "price")
<*> (o .:? "contentLanguage")
<*> (o .:? "timestamp"))
instance ToJSON PosInventoryResponse where
toJSON PosInventoryResponse'{..}
= object
(catMaybes
[("storeCode" .=) <$> _pirStoreCode,
Just ("kind" .= _pirKind),
("itemId" .=) <$> _pirItemId,
("quantity" .=) <$> _pirQuantity,
("targetCountry" .=) <$> _pirTargetCountry,
("gtin" .=) <$> _pirGtin, ("price" .=) <$> _pirPrice,
("contentLanguage" .=) <$> _pirContentLanguage,
("timestamp" .=) <$> _pirTimestamp])
newtype AccountstatusesCustomBatchRequest = AccountstatusesCustomBatchRequest'
{ _acbrEntries :: Maybe [AccountstatusesCustomBatchRequestEntry]
} deriving (Eq,Show,Data,Typeable,Generic)
accountstatusesCustomBatchRequest
:: AccountstatusesCustomBatchRequest
accountstatusesCustomBatchRequest =
AccountstatusesCustomBatchRequest'
{ _acbrEntries = Nothing
}
acbrEntries :: Lens' AccountstatusesCustomBatchRequest [AccountstatusesCustomBatchRequestEntry]
acbrEntries
= lens _acbrEntries (\ s a -> s{_acbrEntries = a}) .
_Default
. _Coerce
instance FromJSON AccountstatusesCustomBatchRequest
where
parseJSON
= withObject "AccountstatusesCustomBatchRequest"
(\ o ->
AccountstatusesCustomBatchRequest' <$>
(o .:? "entries" .!= mempty))
instance ToJSON AccountstatusesCustomBatchRequest
where
toJSON AccountstatusesCustomBatchRequest'{..}
= object
(catMaybes [("entries" .=) <$> _acbrEntries])
data AccounttaxListResponse = AccounttaxListResponse'
{ _alrNextPageToken :: !(Maybe Text)
, _alrKind :: !Text
, _alrResources :: !(Maybe [AccountTax])
} deriving (Eq,Show,Data,Typeable,Generic)
accounttaxListResponse
:: AccounttaxListResponse
accounttaxListResponse =
AccounttaxListResponse'
{ _alrNextPageToken = Nothing
, _alrKind = "content#accounttaxListResponse"
, _alrResources = Nothing
}
alrNextPageToken :: Lens' AccounttaxListResponse (Maybe Text)
alrNextPageToken
= lens _alrNextPageToken
(\ s a -> s{_alrNextPageToken = a})
alrKind :: Lens' AccounttaxListResponse Text
alrKind = lens _alrKind (\ s a -> s{_alrKind = a})
alrResources :: Lens' AccounttaxListResponse [AccountTax]
alrResources
= lens _alrResources (\ s a -> s{_alrResources = a})
. _Default
. _Coerce
instance FromJSON AccounttaxListResponse where
parseJSON
= withObject "AccounttaxListResponse"
(\ o ->
AccounttaxListResponse' <$>
(o .:? "nextPageToken") <*>
(o .:? "kind" .!= "content#accounttaxListResponse")
<*> (o .:? "resources" .!= mempty))
instance ToJSON AccounttaxListResponse where
toJSON AccounttaxListResponse'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _alrNextPageToken,
Just ("kind" .= _alrKind),
("resources" .=) <$> _alrResources])
newtype LiaSettingsRequestInventoryVerificationResponse = LiaSettingsRequestInventoryVerificationResponse'
{ _lsrivrKind :: Text
} deriving (Eq,Show,Data,Typeable,Generic)
liaSettingsRequestInventoryVerificationResponse
:: LiaSettingsRequestInventoryVerificationResponse
liaSettingsRequestInventoryVerificationResponse =
LiaSettingsRequestInventoryVerificationResponse'
{ _lsrivrKind = "content#liasettingsRequestInventoryVerificationResponse"
}
lsrivrKind :: Lens' LiaSettingsRequestInventoryVerificationResponse Text
lsrivrKind
= lens _lsrivrKind (\ s a -> s{_lsrivrKind = a})
instance FromJSON
LiaSettingsRequestInventoryVerificationResponse where
parseJSON
= withObject
"LiaSettingsRequestInventoryVerificationResponse"
(\ o ->
LiaSettingsRequestInventoryVerificationResponse' <$>
(o .:? "kind" .!=
"content#liasettingsRequestInventoryVerificationResponse"))
instance ToJSON
LiaSettingsRequestInventoryVerificationResponse where
toJSON
LiaSettingsRequestInventoryVerificationResponse'{..}
= object (catMaybes [Just ("kind" .= _lsrivrKind)])
data OrderinvoicesCreateChargeInvoiceResponse = OrderinvoicesCreateChargeInvoiceResponse'
{ _occirKind :: !Text
, _occirExecutionStatus :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
orderinvoicesCreateChargeInvoiceResponse
:: OrderinvoicesCreateChargeInvoiceResponse
orderinvoicesCreateChargeInvoiceResponse =
OrderinvoicesCreateChargeInvoiceResponse'
{ _occirKind = "content#orderinvoicesCreateChargeInvoiceResponse"
, _occirExecutionStatus = Nothing
}
occirKind :: Lens' OrderinvoicesCreateChargeInvoiceResponse Text
occirKind
= lens _occirKind (\ s a -> s{_occirKind = a})
occirExecutionStatus :: Lens' OrderinvoicesCreateChargeInvoiceResponse (Maybe Text)
occirExecutionStatus
= lens _occirExecutionStatus
(\ s a -> s{_occirExecutionStatus = a})
instance FromJSON
OrderinvoicesCreateChargeInvoiceResponse where
parseJSON
= withObject
"OrderinvoicesCreateChargeInvoiceResponse"
(\ o ->
OrderinvoicesCreateChargeInvoiceResponse' <$>
(o .:? "kind" .!=
"content#orderinvoicesCreateChargeInvoiceResponse")
<*> (o .:? "executionStatus"))
instance ToJSON
OrderinvoicesCreateChargeInvoiceResponse where
toJSON OrderinvoicesCreateChargeInvoiceResponse'{..}
= object
(catMaybes
[Just ("kind" .= _occirKind),
("executionStatus" .=) <$> _occirExecutionStatus])
newtype DatafeedsFetchNowResponse = DatafeedsFetchNowResponse'
{ _dfnrKind :: Text
} deriving (Eq,Show,Data,Typeable,Generic)
datafeedsFetchNowResponse
:: DatafeedsFetchNowResponse
datafeedsFetchNowResponse =
DatafeedsFetchNowResponse'
{ _dfnrKind = "content#datafeedsFetchNowResponse"
}
dfnrKind :: Lens' DatafeedsFetchNowResponse Text
dfnrKind = lens _dfnrKind (\ s a -> s{_dfnrKind = a})
instance FromJSON DatafeedsFetchNowResponse where
parseJSON
= withObject "DatafeedsFetchNowResponse"
(\ o ->
DatafeedsFetchNowResponse' <$>
(o .:? "kind" .!=
"content#datafeedsFetchNowResponse"))
instance ToJSON DatafeedsFetchNowResponse where
toJSON DatafeedsFetchNowResponse'{..}
= object (catMaybes [Just ("kind" .= _dfnrKind)])
data OrdersGetTestOrderTemplateResponse = OrdersGetTestOrderTemplateResponse'
{ _ogtotrKind :: !Text
, _ogtotrTemplate :: !(Maybe TestOrder)
} deriving (Eq,Show,Data,Typeable,Generic)
ordersGetTestOrderTemplateResponse
:: OrdersGetTestOrderTemplateResponse
ordersGetTestOrderTemplateResponse =
OrdersGetTestOrderTemplateResponse'
{ _ogtotrKind = "content#ordersGetTestOrderTemplateResponse"
, _ogtotrTemplate = Nothing
}
ogtotrKind :: Lens' OrdersGetTestOrderTemplateResponse Text
ogtotrKind
= lens _ogtotrKind (\ s a -> s{_ogtotrKind = a})
ogtotrTemplate :: Lens' OrdersGetTestOrderTemplateResponse (Maybe TestOrder)
ogtotrTemplate
= lens _ogtotrTemplate
(\ s a -> s{_ogtotrTemplate = a})
instance FromJSON OrdersGetTestOrderTemplateResponse
where
parseJSON
= withObject "OrdersGetTestOrderTemplateResponse"
(\ o ->
OrdersGetTestOrderTemplateResponse' <$>
(o .:? "kind" .!=
"content#ordersGetTestOrderTemplateResponse")
<*> (o .:? "template"))
instance ToJSON OrdersGetTestOrderTemplateResponse
where
toJSON OrdersGetTestOrderTemplateResponse'{..}
= object
(catMaybes
[Just ("kind" .= _ogtotrKind),
("template" .=) <$> _ogtotrTemplate])
data AccountsCustomBatchRequestEntry = AccountsCustomBatchRequestEntry'
{ _accMerchantId :: !(Maybe (Textual Word64))
, _accForce :: !(Maybe Bool)
, _accAccount :: !(Maybe Account)
, _accAccountId :: !(Maybe (Textual Word64))
, _accMethod :: !(Maybe Text)
, _accOverwrite :: !(Maybe Bool)
, _accBatchId :: !(Maybe (Textual Word32))
, _accLinkRequest :: !(Maybe AccountsCustomBatchRequestEntryLinkRequest)
} deriving (Eq,Show,Data,Typeable,Generic)
accountsCustomBatchRequestEntry
:: AccountsCustomBatchRequestEntry
accountsCustomBatchRequestEntry =
AccountsCustomBatchRequestEntry'
{ _accMerchantId = Nothing
, _accForce = Nothing
, _accAccount = Nothing
, _accAccountId = Nothing
, _accMethod = Nothing
, _accOverwrite = Nothing
, _accBatchId = Nothing
, _accLinkRequest = Nothing
}
accMerchantId :: Lens' AccountsCustomBatchRequestEntry (Maybe Word64)
accMerchantId
= lens _accMerchantId
(\ s a -> s{_accMerchantId = a})
. mapping _Coerce
accForce :: Lens' AccountsCustomBatchRequestEntry (Maybe Bool)
accForce = lens _accForce (\ s a -> s{_accForce = a})
accAccount :: Lens' AccountsCustomBatchRequestEntry (Maybe Account)
accAccount
= lens _accAccount (\ s a -> s{_accAccount = a})
accAccountId :: Lens' AccountsCustomBatchRequestEntry (Maybe Word64)
accAccountId
= lens _accAccountId (\ s a -> s{_accAccountId = a})
. mapping _Coerce
accMethod :: Lens' AccountsCustomBatchRequestEntry (Maybe Text)
accMethod
= lens _accMethod (\ s a -> s{_accMethod = a})
accOverwrite :: Lens' AccountsCustomBatchRequestEntry (Maybe Bool)
accOverwrite
= lens _accOverwrite (\ s a -> s{_accOverwrite = a})
accBatchId :: Lens' AccountsCustomBatchRequestEntry (Maybe Word32)
accBatchId
= lens _accBatchId (\ s a -> s{_accBatchId = a}) .
mapping _Coerce
accLinkRequest :: Lens' AccountsCustomBatchRequestEntry (Maybe AccountsCustomBatchRequestEntryLinkRequest)
accLinkRequest
= lens _accLinkRequest
(\ s a -> s{_accLinkRequest = a})
instance FromJSON AccountsCustomBatchRequestEntry
where
parseJSON
= withObject "AccountsCustomBatchRequestEntry"
(\ o ->
AccountsCustomBatchRequestEntry' <$>
(o .:? "merchantId") <*> (o .:? "force") <*>
(o .:? "account")
<*> (o .:? "accountId")
<*> (o .:? "method")
<*> (o .:? "overwrite")
<*> (o .:? "batchId")
<*> (o .:? "linkRequest"))
instance ToJSON AccountsCustomBatchRequestEntry where
toJSON AccountsCustomBatchRequestEntry'{..}
= object
(catMaybes
[("merchantId" .=) <$> _accMerchantId,
("force" .=) <$> _accForce,
("account" .=) <$> _accAccount,
("accountId" .=) <$> _accAccountId,
("method" .=) <$> _accMethod,
("overwrite" .=) <$> _accOverwrite,
("batchId" .=) <$> _accBatchId,
("linkRequest" .=) <$> _accLinkRequest])
data Weight = Weight'
{ _wValue :: !(Maybe Text)
, _wUnit :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
weight
:: Weight
weight =
Weight'
{ _wValue = Nothing
, _wUnit = Nothing
}
wValue :: Lens' Weight (Maybe Text)
wValue = lens _wValue (\ s a -> s{_wValue = a})
wUnit :: Lens' Weight (Maybe Text)
wUnit = lens _wUnit (\ s a -> s{_wUnit = a})
instance FromJSON Weight where
parseJSON
= withObject "Weight"
(\ o ->
Weight' <$> (o .:? "value") <*> (o .:? "unit"))
instance ToJSON Weight where
toJSON Weight'{..}
= object
(catMaybes
[("value" .=) <$> _wValue, ("unit" .=) <$> _wUnit])
data OrderinvoicesCustomBatchRequestEntryCreateRefundInvoiceRefundOption = OrderinvoicesCustomBatchRequestEntryCreateRefundInvoiceRefundOption'
{ _ocbrecriroReason :: !(Maybe Text)
, _ocbrecriroDescription :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
orderinvoicesCustomBatchRequestEntryCreateRefundInvoiceRefundOption
:: OrderinvoicesCustomBatchRequestEntryCreateRefundInvoiceRefundOption
orderinvoicesCustomBatchRequestEntryCreateRefundInvoiceRefundOption =
OrderinvoicesCustomBatchRequestEntryCreateRefundInvoiceRefundOption'
{ _ocbrecriroReason = Nothing
, _ocbrecriroDescription = Nothing
}
ocbrecriroReason :: Lens' OrderinvoicesCustomBatchRequestEntryCreateRefundInvoiceRefundOption (Maybe Text)
ocbrecriroReason
= lens _ocbrecriroReason
(\ s a -> s{_ocbrecriroReason = a})
ocbrecriroDescription :: Lens' OrderinvoicesCustomBatchRequestEntryCreateRefundInvoiceRefundOption (Maybe Text)
ocbrecriroDescription
= lens _ocbrecriroDescription
(\ s a -> s{_ocbrecriroDescription = a})
instance FromJSON
OrderinvoicesCustomBatchRequestEntryCreateRefundInvoiceRefundOption
where
parseJSON
= withObject
"OrderinvoicesCustomBatchRequestEntryCreateRefundInvoiceRefundOption"
(\ o ->
OrderinvoicesCustomBatchRequestEntryCreateRefundInvoiceRefundOption'
<$> (o .:? "reason") <*> (o .:? "description"))
instance ToJSON
OrderinvoicesCustomBatchRequestEntryCreateRefundInvoiceRefundOption
where
toJSON
OrderinvoicesCustomBatchRequestEntryCreateRefundInvoiceRefundOption'{..}
= object
(catMaybes
[("reason" .=) <$> _ocbrecriroReason,
("description" .=) <$> _ocbrecriroDescription])
data LiaSettingsListResponse = LiaSettingsListResponse'
{ _lslrNextPageToken :: !(Maybe Text)
, _lslrKind :: !Text
, _lslrResources :: !(Maybe [LiaSettings])
} deriving (Eq,Show,Data,Typeable,Generic)
liaSettingsListResponse
:: LiaSettingsListResponse
liaSettingsListResponse =
LiaSettingsListResponse'
{ _lslrNextPageToken = Nothing
, _lslrKind = "content#liasettingsListResponse"
, _lslrResources = Nothing
}
lslrNextPageToken :: Lens' LiaSettingsListResponse (Maybe Text)
lslrNextPageToken
= lens _lslrNextPageToken
(\ s a -> s{_lslrNextPageToken = a})
lslrKind :: Lens' LiaSettingsListResponse Text
lslrKind = lens _lslrKind (\ s a -> s{_lslrKind = a})
lslrResources :: Lens' LiaSettingsListResponse [LiaSettings]
lslrResources
= lens _lslrResources
(\ s a -> s{_lslrResources = a})
. _Default
. _Coerce
instance FromJSON LiaSettingsListResponse where
parseJSON
= withObject "LiaSettingsListResponse"
(\ o ->
LiaSettingsListResponse' <$>
(o .:? "nextPageToken") <*>
(o .:? "kind" .!= "content#liasettingsListResponse")
<*> (o .:? "resources" .!= mempty))
instance ToJSON LiaSettingsListResponse where
toJSON LiaSettingsListResponse'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _lslrNextPageToken,
Just ("kind" .= _lslrKind),
("resources" .=) <$> _lslrResources])
data Error' = Error''
{ _eDomain :: !(Maybe Text)
, _eReason :: !(Maybe Text)
, _eMessage :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
error'
:: Error'
error' =
Error''
{ _eDomain = Nothing
, _eReason = Nothing
, _eMessage = Nothing
}
eDomain :: Lens' Error' (Maybe Text)
eDomain = lens _eDomain (\ s a -> s{_eDomain = a})
eReason :: Lens' Error' (Maybe Text)
eReason = lens _eReason (\ s a -> s{_eReason = a})
eMessage :: Lens' Error' (Maybe Text)
eMessage = lens _eMessage (\ s a -> s{_eMessage = a})
instance FromJSON Error' where
parseJSON
= withObject "Error"
(\ o ->
Error'' <$>
(o .:? "domain") <*> (o .:? "reason") <*>
(o .:? "message"))
instance ToJSON Error' where
toJSON Error''{..}
= object
(catMaybes
[("domain" .=) <$> _eDomain,
("reason" .=) <$> _eReason,
("message" .=) <$> _eMessage])
data ProductstatusesListResponse = ProductstatusesListResponse'
{ _plrNextPageToken :: !(Maybe Text)
, _plrKind :: !Text
, _plrResources :: !(Maybe [ProductStatus])
} deriving (Eq,Show,Data,Typeable,Generic)
productstatusesListResponse
:: ProductstatusesListResponse
productstatusesListResponse =
ProductstatusesListResponse'
{ _plrNextPageToken = Nothing
, _plrKind = "content#productstatusesListResponse"
, _plrResources = Nothing
}
plrNextPageToken :: Lens' ProductstatusesListResponse (Maybe Text)
plrNextPageToken
= lens _plrNextPageToken
(\ s a -> s{_plrNextPageToken = a})
plrKind :: Lens' ProductstatusesListResponse Text
plrKind = lens _plrKind (\ s a -> s{_plrKind = a})
plrResources :: Lens' ProductstatusesListResponse [ProductStatus]
plrResources
= lens _plrResources (\ s a -> s{_plrResources = a})
. _Default
. _Coerce
instance FromJSON ProductstatusesListResponse where
parseJSON
= withObject "ProductstatusesListResponse"
(\ o ->
ProductstatusesListResponse' <$>
(o .:? "nextPageToken") <*>
(o .:? "kind" .!=
"content#productstatusesListResponse")
<*> (o .:? "resources" .!= mempty))
instance ToJSON ProductstatusesListResponse where
toJSON ProductstatusesListResponse'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _plrNextPageToken,
Just ("kind" .= _plrKind),
("resources" .=) <$> _plrResources])
data OrderPromotionItem = OrderPromotionItem'
{ _opiQuantity :: !(Maybe (Textual Int32))
, _opiLineItemId :: !(Maybe Text)
, _opiProductId :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
orderPromotionItem
:: OrderPromotionItem
orderPromotionItem =
OrderPromotionItem'
{ _opiQuantity = Nothing
, _opiLineItemId = Nothing
, _opiProductId = Nothing
}
opiQuantity :: Lens' OrderPromotionItem (Maybe Int32)
opiQuantity
= lens _opiQuantity (\ s a -> s{_opiQuantity = a}) .
mapping _Coerce
opiLineItemId :: Lens' OrderPromotionItem (Maybe Text)
opiLineItemId
= lens _opiLineItemId
(\ s a -> s{_opiLineItemId = a})
opiProductId :: Lens' OrderPromotionItem (Maybe Text)
opiProductId
= lens _opiProductId (\ s a -> s{_opiProductId = a})
instance FromJSON OrderPromotionItem where
parseJSON
= withObject "OrderPromotionItem"
(\ o ->
OrderPromotionItem' <$>
(o .:? "quantity") <*> (o .:? "lineItemId") <*>
(o .:? "productId"))
instance ToJSON OrderPromotionItem where
toJSON OrderPromotionItem'{..}
= object
(catMaybes
[("quantity" .=) <$> _opiQuantity,
("lineItemId" .=) <$> _opiLineItemId,
("productId" .=) <$> _opiProductId])
data PosCustomBatchResponse = PosCustomBatchResponse'
{ _posEntries :: !(Maybe [PosCustomBatchResponseEntry])
, _posKind :: !Text
} deriving (Eq,Show,Data,Typeable,Generic)
posCustomBatchResponse
:: PosCustomBatchResponse
posCustomBatchResponse =
PosCustomBatchResponse'
{ _posEntries = Nothing
, _posKind = "content#posCustomBatchResponse"
}
posEntries :: Lens' PosCustomBatchResponse [PosCustomBatchResponseEntry]
posEntries
= lens _posEntries (\ s a -> s{_posEntries = a}) .
_Default
. _Coerce
posKind :: Lens' PosCustomBatchResponse Text
posKind = lens _posKind (\ s a -> s{_posKind = a})
instance FromJSON PosCustomBatchResponse where
parseJSON
= withObject "PosCustomBatchResponse"
(\ o ->
PosCustomBatchResponse' <$>
(o .:? "entries" .!= mempty) <*>
(o .:? "kind" .!= "content#posCustomBatchResponse"))
instance ToJSON PosCustomBatchResponse where
toJSON PosCustomBatchResponse'{..}
= object
(catMaybes
[("entries" .=) <$> _posEntries,
Just ("kind" .= _posKind)])
data OrdersCreateTestOrderRequest = OrdersCreateTestOrderRequest'
{ _octorTemplateName :: !(Maybe Text)
, _octorCountry :: !(Maybe Text)
, _octorTestOrder :: !(Maybe TestOrder)
} deriving (Eq,Show,Data,Typeable,Generic)
ordersCreateTestOrderRequest
:: OrdersCreateTestOrderRequest
ordersCreateTestOrderRequest =
OrdersCreateTestOrderRequest'
{ _octorTemplateName = Nothing
, _octorCountry = Nothing
, _octorTestOrder = Nothing
}
octorTemplateName :: Lens' OrdersCreateTestOrderRequest (Maybe Text)
octorTemplateName
= lens _octorTemplateName
(\ s a -> s{_octorTemplateName = a})
octorCountry :: Lens' OrdersCreateTestOrderRequest (Maybe Text)
octorCountry
= lens _octorCountry (\ s a -> s{_octorCountry = a})
octorTestOrder :: Lens' OrdersCreateTestOrderRequest (Maybe TestOrder)
octorTestOrder
= lens _octorTestOrder
(\ s a -> s{_octorTestOrder = a})
instance FromJSON OrdersCreateTestOrderRequest where
parseJSON
= withObject "OrdersCreateTestOrderRequest"
(\ o ->
OrdersCreateTestOrderRequest' <$>
(o .:? "templateName") <*> (o .:? "country") <*>
(o .:? "testOrder"))
instance ToJSON OrdersCreateTestOrderRequest where
toJSON OrdersCreateTestOrderRequest'{..}
= object
(catMaybes
[("templateName" .=) <$> _octorTemplateName,
("country" .=) <$> _octorCountry,
("testOrder" .=) <$> _octorTestOrder])
data AccountUser = AccountUser'
{ _auAdmin :: !(Maybe Bool)
, _auEmailAddress :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
accountUser
:: AccountUser
accountUser =
AccountUser'
{ _auAdmin = Nothing
, _auEmailAddress = Nothing
}
auAdmin :: Lens' AccountUser (Maybe Bool)
auAdmin = lens _auAdmin (\ s a -> s{_auAdmin = a})
auEmailAddress :: Lens' AccountUser (Maybe Text)
auEmailAddress
= lens _auEmailAddress
(\ s a -> s{_auEmailAddress = a})
instance FromJSON AccountUser where
parseJSON
= withObject "AccountUser"
(\ o ->
AccountUser' <$>
(o .:? "admin") <*> (o .:? "emailAddress"))
instance ToJSON AccountUser where
toJSON AccountUser'{..}
= object
(catMaybes
[("admin" .=) <$> _auAdmin,
("emailAddress" .=) <$> _auEmailAddress])
data AccountCustomerService = AccountCustomerService'
{ _acsEmail :: !(Maybe Text)
, _acsURL :: !(Maybe Text)
, _acsPhoneNumber :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
accountCustomerService
:: AccountCustomerService
accountCustomerService =
AccountCustomerService'
{ _acsEmail = Nothing
, _acsURL = Nothing
, _acsPhoneNumber = Nothing
}
acsEmail :: Lens' AccountCustomerService (Maybe Text)
acsEmail = lens _acsEmail (\ s a -> s{_acsEmail = a})
acsURL :: Lens' AccountCustomerService (Maybe Text)
acsURL = lens _acsURL (\ s a -> s{_acsURL = a})
acsPhoneNumber :: Lens' AccountCustomerService (Maybe Text)
acsPhoneNumber
= lens _acsPhoneNumber
(\ s a -> s{_acsPhoneNumber = a})
instance FromJSON AccountCustomerService where
parseJSON
= withObject "AccountCustomerService"
(\ o ->
AccountCustomerService' <$>
(o .:? "email") <*> (o .:? "url") <*>
(o .:? "phoneNumber"))
instance ToJSON AccountCustomerService where
toJSON AccountCustomerService'{..}
= object
(catMaybes
[("email" .=) <$> _acsEmail, ("url" .=) <$> _acsURL,
("phoneNumber" .=) <$> _acsPhoneNumber])
data GmbAccountsGmbAccount = GmbAccountsGmbAccount'
{ _gagaEmail :: !(Maybe Text)
, _gagaListingCount :: !(Maybe (Textual Word64))
, _gagaName :: !(Maybe Text)
, _gagaType :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
gmbAccountsGmbAccount
:: GmbAccountsGmbAccount
gmbAccountsGmbAccount =
GmbAccountsGmbAccount'
{ _gagaEmail = Nothing
, _gagaListingCount = Nothing
, _gagaName = Nothing
, _gagaType = Nothing
}
gagaEmail :: Lens' GmbAccountsGmbAccount (Maybe Text)
gagaEmail
= lens _gagaEmail (\ s a -> s{_gagaEmail = a})
gagaListingCount :: Lens' GmbAccountsGmbAccount (Maybe Word64)
gagaListingCount
= lens _gagaListingCount
(\ s a -> s{_gagaListingCount = a})
. mapping _Coerce
gagaName :: Lens' GmbAccountsGmbAccount (Maybe Text)
gagaName = lens _gagaName (\ s a -> s{_gagaName = a})
gagaType :: Lens' GmbAccountsGmbAccount (Maybe Text)
gagaType = lens _gagaType (\ s a -> s{_gagaType = a})
instance FromJSON GmbAccountsGmbAccount where
parseJSON
= withObject "GmbAccountsGmbAccount"
(\ o ->
GmbAccountsGmbAccount' <$>
(o .:? "email") <*> (o .:? "listingCount") <*>
(o .:? "name")
<*> (o .:? "type"))
instance ToJSON GmbAccountsGmbAccount where
toJSON GmbAccountsGmbAccount'{..}
= object
(catMaybes
[("email" .=) <$> _gagaEmail,
("listingCount" .=) <$> _gagaListingCount,
("name" .=) <$> _gagaName,
("type" .=) <$> _gagaType])
data OrdersInStoreRefundLineItemResponse = OrdersInStoreRefundLineItemResponse'
{ _oisrlirKind :: !Text
, _oisrlirExecutionStatus :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
ordersInStoreRefundLineItemResponse
:: OrdersInStoreRefundLineItemResponse
ordersInStoreRefundLineItemResponse =
OrdersInStoreRefundLineItemResponse'
{ _oisrlirKind = "content#ordersInStoreRefundLineItemResponse"
, _oisrlirExecutionStatus = Nothing
}
oisrlirKind :: Lens' OrdersInStoreRefundLineItemResponse Text
oisrlirKind
= lens _oisrlirKind (\ s a -> s{_oisrlirKind = a})
oisrlirExecutionStatus :: Lens' OrdersInStoreRefundLineItemResponse (Maybe Text)
oisrlirExecutionStatus
= lens _oisrlirExecutionStatus
(\ s a -> s{_oisrlirExecutionStatus = a})
instance FromJSON OrdersInStoreRefundLineItemResponse
where
parseJSON
= withObject "OrdersInStoreRefundLineItemResponse"
(\ o ->
OrdersInStoreRefundLineItemResponse' <$>
(o .:? "kind" .!=
"content#ordersInStoreRefundLineItemResponse")
<*> (o .:? "executionStatus"))
instance ToJSON OrdersInStoreRefundLineItemResponse
where
toJSON OrdersInStoreRefundLineItemResponse'{..}
= object
(catMaybes
[Just ("kind" .= _oisrlirKind),
("executionStatus" .=) <$> _oisrlirExecutionStatus])
data DatafeedsCustomBatchRequestEntry = DatafeedsCustomBatchRequestEntry'
{ _dcbreMerchantId :: !(Maybe (Textual Word64))
, _dcbreDatafeed :: !(Maybe Datafeed)
, _dcbreMethod :: !(Maybe Text)
, _dcbreDatafeedId :: !(Maybe (Textual Word64))
, _dcbreBatchId :: !(Maybe (Textual Word32))
} deriving (Eq,Show,Data,Typeable,Generic)
datafeedsCustomBatchRequestEntry
:: DatafeedsCustomBatchRequestEntry
datafeedsCustomBatchRequestEntry =
DatafeedsCustomBatchRequestEntry'
{ _dcbreMerchantId = Nothing
, _dcbreDatafeed = Nothing
, _dcbreMethod = Nothing
, _dcbreDatafeedId = Nothing
, _dcbreBatchId = Nothing
}
dcbreMerchantId :: Lens' DatafeedsCustomBatchRequestEntry (Maybe Word64)
dcbreMerchantId
= lens _dcbreMerchantId
(\ s a -> s{_dcbreMerchantId = a})
. mapping _Coerce
dcbreDatafeed :: Lens' DatafeedsCustomBatchRequestEntry (Maybe Datafeed)
dcbreDatafeed
= lens _dcbreDatafeed
(\ s a -> s{_dcbreDatafeed = a})
dcbreMethod :: Lens' DatafeedsCustomBatchRequestEntry (Maybe Text)
dcbreMethod
= lens _dcbreMethod (\ s a -> s{_dcbreMethod = a})
dcbreDatafeedId :: Lens' DatafeedsCustomBatchRequestEntry (Maybe Word64)
dcbreDatafeedId
= lens _dcbreDatafeedId
(\ s a -> s{_dcbreDatafeedId = a})
. mapping _Coerce
dcbreBatchId :: Lens' DatafeedsCustomBatchRequestEntry (Maybe Word32)
dcbreBatchId
= lens _dcbreBatchId (\ s a -> s{_dcbreBatchId = a})
. mapping _Coerce
instance FromJSON DatafeedsCustomBatchRequestEntry
where
parseJSON
= withObject "DatafeedsCustomBatchRequestEntry"
(\ o ->
DatafeedsCustomBatchRequestEntry' <$>
(o .:? "merchantId") <*> (o .:? "datafeed") <*>
(o .:? "method")
<*> (o .:? "datafeedId")
<*> (o .:? "batchId"))
instance ToJSON DatafeedsCustomBatchRequestEntry
where
toJSON DatafeedsCustomBatchRequestEntry'{..}
= object
(catMaybes
[("merchantId" .=) <$> _dcbreMerchantId,
("datafeed" .=) <$> _dcbreDatafeed,
("method" .=) <$> _dcbreMethod,
("datafeedId" .=) <$> _dcbreDatafeedId,
("batchId" .=) <$> _dcbreBatchId])
data OrderCustomerMarketingRightsInfo = OrderCustomerMarketingRightsInfo'
{ _ocmriExplicitMarketingPreference :: !(Maybe Text)
, _ocmriMarketingEmailAddress :: !(Maybe Text)
, _ocmriLastUpdatedTimestamp :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
orderCustomerMarketingRightsInfo
:: OrderCustomerMarketingRightsInfo
orderCustomerMarketingRightsInfo =
OrderCustomerMarketingRightsInfo'
{ _ocmriExplicitMarketingPreference = Nothing
, _ocmriMarketingEmailAddress = Nothing
, _ocmriLastUpdatedTimestamp = Nothing
}
ocmriExplicitMarketingPreference :: Lens' OrderCustomerMarketingRightsInfo (Maybe Text)
ocmriExplicitMarketingPreference
= lens _ocmriExplicitMarketingPreference
(\ s a -> s{_ocmriExplicitMarketingPreference = a})
ocmriMarketingEmailAddress :: Lens' OrderCustomerMarketingRightsInfo (Maybe Text)
ocmriMarketingEmailAddress
= lens _ocmriMarketingEmailAddress
(\ s a -> s{_ocmriMarketingEmailAddress = a})
ocmriLastUpdatedTimestamp :: Lens' OrderCustomerMarketingRightsInfo (Maybe Text)
ocmriLastUpdatedTimestamp
= lens _ocmriLastUpdatedTimestamp
(\ s a -> s{_ocmriLastUpdatedTimestamp = a})
instance FromJSON OrderCustomerMarketingRightsInfo
where
parseJSON
= withObject "OrderCustomerMarketingRightsInfo"
(\ o ->
OrderCustomerMarketingRightsInfo' <$>
(o .:? "explicitMarketingPreference") <*>
(o .:? "marketingEmailAddress")
<*> (o .:? "lastUpdatedTimestamp"))
instance ToJSON OrderCustomerMarketingRightsInfo
where
toJSON OrderCustomerMarketingRightsInfo'{..}
= object
(catMaybes
[("explicitMarketingPreference" .=) <$>
_ocmriExplicitMarketingPreference,
("marketingEmailAddress" .=) <$>
_ocmriMarketingEmailAddress,
("lastUpdatedTimestamp" .=) <$>
_ocmriLastUpdatedTimestamp])
data MerchantOrderReturnItem = MerchantOrderReturnItem'
{ _moriReturnShipmentIds :: !(Maybe [Text])
, _moriMerchantReturnReason :: !(Maybe RefundReason)
, _moriState :: !(Maybe Text)
, _moriCustomerReturnReason :: !(Maybe CustomerReturnReason)
, _moriItemId :: !(Maybe Text)
, _moriProduct :: !(Maybe OrderLineItemProduct)
} deriving (Eq,Show,Data,Typeable,Generic)
merchantOrderReturnItem
:: MerchantOrderReturnItem
merchantOrderReturnItem =
MerchantOrderReturnItem'
{ _moriReturnShipmentIds = Nothing
, _moriMerchantReturnReason = Nothing
, _moriState = Nothing
, _moriCustomerReturnReason = Nothing
, _moriItemId = Nothing
, _moriProduct = Nothing
}
moriReturnShipmentIds :: Lens' MerchantOrderReturnItem [Text]
moriReturnShipmentIds
= lens _moriReturnShipmentIds
(\ s a -> s{_moriReturnShipmentIds = a})
. _Default
. _Coerce
moriMerchantReturnReason :: Lens' MerchantOrderReturnItem (Maybe RefundReason)
moriMerchantReturnReason
= lens _moriMerchantReturnReason
(\ s a -> s{_moriMerchantReturnReason = a})
moriState :: Lens' MerchantOrderReturnItem (Maybe Text)
moriState
= lens _moriState (\ s a -> s{_moriState = a})
moriCustomerReturnReason :: Lens' MerchantOrderReturnItem (Maybe CustomerReturnReason)
moriCustomerReturnReason
= lens _moriCustomerReturnReason
(\ s a -> s{_moriCustomerReturnReason = a})
moriItemId :: Lens' MerchantOrderReturnItem (Maybe Text)
moriItemId
= lens _moriItemId (\ s a -> s{_moriItemId = a})
moriProduct :: Lens' MerchantOrderReturnItem (Maybe OrderLineItemProduct)
moriProduct
= lens _moriProduct (\ s a -> s{_moriProduct = a})
instance FromJSON MerchantOrderReturnItem where
parseJSON
= withObject "MerchantOrderReturnItem"
(\ o ->
MerchantOrderReturnItem' <$>
(o .:? "returnShipmentIds" .!= mempty) <*>
(o .:? "merchantReturnReason")
<*> (o .:? "state")
<*> (o .:? "customerReturnReason")
<*> (o .:? "itemId")
<*> (o .:? "product"))
instance ToJSON MerchantOrderReturnItem where
toJSON MerchantOrderReturnItem'{..}
= object
(catMaybes
[("returnShipmentIds" .=) <$> _moriReturnShipmentIds,
("merchantReturnReason" .=) <$>
_moriMerchantReturnReason,
("state" .=) <$> _moriState,
("customerReturnReason" .=) <$>
_moriCustomerReturnReason,
("itemId" .=) <$> _moriItemId,
("product" .=) <$> _moriProduct])
data AccountStatusAccountLevelIssue = AccountStatusAccountLevelIssue'
{ _asaliDestination :: !(Maybe Text)
, _asaliCountry :: !(Maybe Text)
, _asaliSeverity :: !(Maybe Text)
, _asaliDocumentation :: !(Maybe Text)
, _asaliId :: !(Maybe Text)
, _asaliTitle :: !(Maybe Text)
, _asaliDetail :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
accountStatusAccountLevelIssue
:: AccountStatusAccountLevelIssue
accountStatusAccountLevelIssue =
AccountStatusAccountLevelIssue'
{ _asaliDestination = Nothing
, _asaliCountry = Nothing
, _asaliSeverity = Nothing
, _asaliDocumentation = Nothing
, _asaliId = Nothing
, _asaliTitle = Nothing
, _asaliDetail = Nothing
}
asaliDestination :: Lens' AccountStatusAccountLevelIssue (Maybe Text)
asaliDestination
= lens _asaliDestination
(\ s a -> s{_asaliDestination = a})
asaliCountry :: Lens' AccountStatusAccountLevelIssue (Maybe Text)
asaliCountry
= lens _asaliCountry (\ s a -> s{_asaliCountry = a})
asaliSeverity :: Lens' AccountStatusAccountLevelIssue (Maybe Text)
asaliSeverity
= lens _asaliSeverity
(\ s a -> s{_asaliSeverity = a})
asaliDocumentation :: Lens' AccountStatusAccountLevelIssue (Maybe Text)
asaliDocumentation
= lens _asaliDocumentation
(\ s a -> s{_asaliDocumentation = a})
asaliId :: Lens' AccountStatusAccountLevelIssue (Maybe Text)
asaliId = lens _asaliId (\ s a -> s{_asaliId = a})
asaliTitle :: Lens' AccountStatusAccountLevelIssue (Maybe Text)
asaliTitle
= lens _asaliTitle (\ s a -> s{_asaliTitle = a})
asaliDetail :: Lens' AccountStatusAccountLevelIssue (Maybe Text)
asaliDetail
= lens _asaliDetail (\ s a -> s{_asaliDetail = a})
instance FromJSON AccountStatusAccountLevelIssue
where
parseJSON
= withObject "AccountStatusAccountLevelIssue"
(\ o ->
AccountStatusAccountLevelIssue' <$>
(o .:? "destination") <*> (o .:? "country") <*>
(o .:? "severity")
<*> (o .:? "documentation")
<*> (o .:? "id")
<*> (o .:? "title")
<*> (o .:? "detail"))
instance ToJSON AccountStatusAccountLevelIssue where
toJSON AccountStatusAccountLevelIssue'{..}
= object
(catMaybes
[("destination" .=) <$> _asaliDestination,
("country" .=) <$> _asaliCountry,
("severity" .=) <$> _asaliSeverity,
("documentation" .=) <$> _asaliDocumentation,
("id" .=) <$> _asaliId, ("title" .=) <$> _asaliTitle,
("detail" .=) <$> _asaliDetail])
data Value = Value'
{ _vPricePercentage :: !(Maybe Text)
, _vCarrierRateName :: !(Maybe Text)
, _vFlatRate :: !(Maybe Price)
, _vSubtableName :: !(Maybe Text)
, _vNoShipping :: !(Maybe Bool)
} deriving (Eq,Show,Data,Typeable,Generic)
value
:: Value
value =
Value'
{ _vPricePercentage = Nothing
, _vCarrierRateName = Nothing
, _vFlatRate = Nothing
, _vSubtableName = Nothing
, _vNoShipping = Nothing
}
vPricePercentage :: Lens' Value (Maybe Text)
vPricePercentage
= lens _vPricePercentage
(\ s a -> s{_vPricePercentage = a})
vCarrierRateName :: Lens' Value (Maybe Text)
vCarrierRateName
= lens _vCarrierRateName
(\ s a -> s{_vCarrierRateName = a})
vFlatRate :: Lens' Value (Maybe Price)
vFlatRate
= lens _vFlatRate (\ s a -> s{_vFlatRate = a})
vSubtableName :: Lens' Value (Maybe Text)
vSubtableName
= lens _vSubtableName
(\ s a -> s{_vSubtableName = a})
vNoShipping :: Lens' Value (Maybe Bool)
vNoShipping
= lens _vNoShipping (\ s a -> s{_vNoShipping = a})
instance FromJSON Value where
parseJSON
= withObject "Value"
(\ o ->
Value' <$>
(o .:? "pricePercentage") <*>
(o .:? "carrierRateName")
<*> (o .:? "flatRate")
<*> (o .:? "subtableName")
<*> (o .:? "noShipping"))
instance ToJSON Value where
toJSON Value'{..}
= object
(catMaybes
[("pricePercentage" .=) <$> _vPricePercentage,
("carrierRateName" .=) <$> _vCarrierRateName,
("flatRate" .=) <$> _vFlatRate,
("subtableName" .=) <$> _vSubtableName,
("noShipping" .=) <$> _vNoShipping])
data Installment = Installment'
{ _iAmount :: !(Maybe Price)
, _iMonths :: !(Maybe (Textual Int64))
} deriving (Eq,Show,Data,Typeable,Generic)
installment
:: Installment
installment =
Installment'
{ _iAmount = Nothing
, _iMonths = Nothing
}
iAmount :: Lens' Installment (Maybe Price)
iAmount = lens _iAmount (\ s a -> s{_iAmount = a})
iMonths :: Lens' Installment (Maybe Int64)
iMonths
= lens _iMonths (\ s a -> s{_iMonths = a}) .
mapping _Coerce
instance FromJSON Installment where
parseJSON
= withObject "Installment"
(\ o ->
Installment' <$>
(o .:? "amount") <*> (o .:? "months"))
instance ToJSON Installment where
toJSON Installment'{..}
= object
(catMaybes
[("amount" .=) <$> _iAmount,
("months" .=) <$> _iMonths])
data DatafeedFetchSchedule = DatafeedFetchSchedule'
{ _dfsFetchURL :: !(Maybe Text)
, _dfsUsername :: !(Maybe Text)
, _dfsMinuteOfHour :: !(Maybe (Textual Word32))
, _dfsPassword :: !(Maybe Text)
, _dfsDayOfMonth :: !(Maybe (Textual Word32))
, _dfsHour :: !(Maybe (Textual Word32))
, _dfsWeekday :: !(Maybe Text)
, _dfsTimeZone :: !(Maybe Text)
, _dfsPaused :: !(Maybe Bool)
} deriving (Eq,Show,Data,Typeable,Generic)
datafeedFetchSchedule
:: DatafeedFetchSchedule
datafeedFetchSchedule =
DatafeedFetchSchedule'
{ _dfsFetchURL = Nothing
, _dfsUsername = Nothing
, _dfsMinuteOfHour = Nothing
, _dfsPassword = Nothing
, _dfsDayOfMonth = Nothing
, _dfsHour = Nothing
, _dfsWeekday = Nothing
, _dfsTimeZone = Nothing
, _dfsPaused = Nothing
}
dfsFetchURL :: Lens' DatafeedFetchSchedule (Maybe Text)
dfsFetchURL
= lens _dfsFetchURL (\ s a -> s{_dfsFetchURL = a})
dfsUsername :: Lens' DatafeedFetchSchedule (Maybe Text)
dfsUsername
= lens _dfsUsername (\ s a -> s{_dfsUsername = a})
dfsMinuteOfHour :: Lens' DatafeedFetchSchedule (Maybe Word32)
dfsMinuteOfHour
= lens _dfsMinuteOfHour
(\ s a -> s{_dfsMinuteOfHour = a})
. mapping _Coerce
dfsPassword :: Lens' DatafeedFetchSchedule (Maybe Text)
dfsPassword
= lens _dfsPassword (\ s a -> s{_dfsPassword = a})
dfsDayOfMonth :: Lens' DatafeedFetchSchedule (Maybe Word32)
dfsDayOfMonth
= lens _dfsDayOfMonth
(\ s a -> s{_dfsDayOfMonth = a})
. mapping _Coerce
dfsHour :: Lens' DatafeedFetchSchedule (Maybe Word32)
dfsHour
= lens _dfsHour (\ s a -> s{_dfsHour = a}) .
mapping _Coerce
dfsWeekday :: Lens' DatafeedFetchSchedule (Maybe Text)
dfsWeekday
= lens _dfsWeekday (\ s a -> s{_dfsWeekday = a})
dfsTimeZone :: Lens' DatafeedFetchSchedule (Maybe Text)
dfsTimeZone
= lens _dfsTimeZone (\ s a -> s{_dfsTimeZone = a})
dfsPaused :: Lens' DatafeedFetchSchedule (Maybe Bool)
dfsPaused
= lens _dfsPaused (\ s a -> s{_dfsPaused = a})
instance FromJSON DatafeedFetchSchedule where
parseJSON
= withObject "DatafeedFetchSchedule"
(\ o ->
DatafeedFetchSchedule' <$>
(o .:? "fetchUrl") <*> (o .:? "username") <*>
(o .:? "minuteOfHour")
<*> (o .:? "password")
<*> (o .:? "dayOfMonth")
<*> (o .:? "hour")
<*> (o .:? "weekday")
<*> (o .:? "timeZone")
<*> (o .:? "paused"))
instance ToJSON DatafeedFetchSchedule where
toJSON DatafeedFetchSchedule'{..}
= object
(catMaybes
[("fetchUrl" .=) <$> _dfsFetchURL,
("username" .=) <$> _dfsUsername,
("minuteOfHour" .=) <$> _dfsMinuteOfHour,
("password" .=) <$> _dfsPassword,
("dayOfMonth" .=) <$> _dfsDayOfMonth,
("hour" .=) <$> _dfsHour,
("weekday" .=) <$> _dfsWeekday,
("timeZone" .=) <$> _dfsTimeZone,
("paused" .=) <$> _dfsPaused])
data PosStore = PosStore'
{ _pssStoreCode :: !(Maybe Text)
, _pssKind :: !Text
, _pssStoreAddress :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
posStore
:: PosStore
posStore =
PosStore'
{ _pssStoreCode = Nothing
, _pssKind = "content#posStore"
, _pssStoreAddress = Nothing
}
pssStoreCode :: Lens' PosStore (Maybe Text)
pssStoreCode
= lens _pssStoreCode (\ s a -> s{_pssStoreCode = a})
pssKind :: Lens' PosStore Text
pssKind = lens _pssKind (\ s a -> s{_pssKind = a})
pssStoreAddress :: Lens' PosStore (Maybe Text)
pssStoreAddress
= lens _pssStoreAddress
(\ s a -> s{_pssStoreAddress = a})
instance FromJSON PosStore where
parseJSON
= withObject "PosStore"
(\ o ->
PosStore' <$>
(o .:? "storeCode") <*>
(o .:? "kind" .!= "content#posStore")
<*> (o .:? "storeAddress"))
instance ToJSON PosStore where
toJSON PosStore'{..}
= object
(catMaybes
[("storeCode" .=) <$> _pssStoreCode,
Just ("kind" .= _pssKind),
("storeAddress" .=) <$> _pssStoreAddress])
newtype LiaSettingsSetInventoryVerificationContactResponse = LiaSettingsSetInventoryVerificationContactResponse'
{ _lssivcrKind :: Text
} deriving (Eq,Show,Data,Typeable,Generic)
liaSettingsSetInventoryVerificationContactResponse
:: LiaSettingsSetInventoryVerificationContactResponse
liaSettingsSetInventoryVerificationContactResponse =
LiaSettingsSetInventoryVerificationContactResponse'
{ _lssivcrKind = "content#liasettingsSetInventoryVerificationContactResponse"
}
lssivcrKind :: Lens' LiaSettingsSetInventoryVerificationContactResponse Text
lssivcrKind
= lens _lssivcrKind (\ s a -> s{_lssivcrKind = a})
instance FromJSON
LiaSettingsSetInventoryVerificationContactResponse
where
parseJSON
= withObject
"LiaSettingsSetInventoryVerificationContactResponse"
(\ o ->
LiaSettingsSetInventoryVerificationContactResponse'
<$>
(o .:? "kind" .!=
"content#liasettingsSetInventoryVerificationContactResponse"))
instance ToJSON
LiaSettingsSetInventoryVerificationContactResponse
where
toJSON
LiaSettingsSetInventoryVerificationContactResponse'{..}
= object (catMaybes [Just ("kind" .= _lssivcrKind)])
data ShippingSettingsGetSupportedCarriersResponse = ShippingSettingsGetSupportedCarriersResponse'
{ _ssgscrKind :: !Text
, _ssgscrCarriers :: !(Maybe [CarriersCarrier])
} deriving (Eq,Show,Data,Typeable,Generic)
shippingSettingsGetSupportedCarriersResponse
:: ShippingSettingsGetSupportedCarriersResponse
shippingSettingsGetSupportedCarriersResponse =
ShippingSettingsGetSupportedCarriersResponse'
{ _ssgscrKind = "content#shippingsettingsGetSupportedCarriersResponse"
, _ssgscrCarriers = Nothing
}
ssgscrKind :: Lens' ShippingSettingsGetSupportedCarriersResponse Text
ssgscrKind
= lens _ssgscrKind (\ s a -> s{_ssgscrKind = a})
ssgscrCarriers :: Lens' ShippingSettingsGetSupportedCarriersResponse [CarriersCarrier]
ssgscrCarriers
= lens _ssgscrCarriers
(\ s a -> s{_ssgscrCarriers = a})
. _Default
. _Coerce
instance FromJSON
ShippingSettingsGetSupportedCarriersResponse where
parseJSON
= withObject
"ShippingSettingsGetSupportedCarriersResponse"
(\ o ->
ShippingSettingsGetSupportedCarriersResponse' <$>
(o .:? "kind" .!=
"content#shippingsettingsGetSupportedCarriersResponse")
<*> (o .:? "carriers" .!= mempty))
instance ToJSON
ShippingSettingsGetSupportedCarriersResponse where
toJSON
ShippingSettingsGetSupportedCarriersResponse'{..}
= object
(catMaybes
[Just ("kind" .= _ssgscrKind),
("carriers" .=) <$> _ssgscrCarriers])
data PosDataProvidersPosDataProvider = PosDataProvidersPosDataProvider'
{ _pdppdpProviderId :: !(Maybe (Textual Word64))
, _pdppdpFullName :: !(Maybe Text)
, _pdppdpDisplayName :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
posDataProvidersPosDataProvider
:: PosDataProvidersPosDataProvider
posDataProvidersPosDataProvider =
PosDataProvidersPosDataProvider'
{ _pdppdpProviderId = Nothing
, _pdppdpFullName = Nothing
, _pdppdpDisplayName = Nothing
}
pdppdpProviderId :: Lens' PosDataProvidersPosDataProvider (Maybe Word64)
pdppdpProviderId
= lens _pdppdpProviderId
(\ s a -> s{_pdppdpProviderId = a})
. mapping _Coerce
pdppdpFullName :: Lens' PosDataProvidersPosDataProvider (Maybe Text)
pdppdpFullName
= lens _pdppdpFullName
(\ s a -> s{_pdppdpFullName = a})
pdppdpDisplayName :: Lens' PosDataProvidersPosDataProvider (Maybe Text)
pdppdpDisplayName
= lens _pdppdpDisplayName
(\ s a -> s{_pdppdpDisplayName = a})
instance FromJSON PosDataProvidersPosDataProvider
where
parseJSON
= withObject "PosDataProvidersPosDataProvider"
(\ o ->
PosDataProvidersPosDataProvider' <$>
(o .:? "providerId") <*> (o .:? "fullName") <*>
(o .:? "displayName"))
instance ToJSON PosDataProvidersPosDataProvider where
toJSON PosDataProvidersPosDataProvider'{..}
= object
(catMaybes
[("providerId" .=) <$> _pdppdpProviderId,
("fullName" .=) <$> _pdppdpFullName,
("displayName" .=) <$> _pdppdpDisplayName])
data HolidaysHoliday = HolidaysHoliday'
{ _hhDeliveryGuaranteeHour :: !(Maybe (Textual Word64))
, _hhDate :: !(Maybe Text)
, _hhDeliveryGuaranteeDate :: !(Maybe Text)
, _hhCountryCode :: !(Maybe Text)
, _hhId :: !(Maybe Text)
, _hhType :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
holidaysHoliday
:: HolidaysHoliday
holidaysHoliday =
HolidaysHoliday'
{ _hhDeliveryGuaranteeHour = Nothing
, _hhDate = Nothing
, _hhDeliveryGuaranteeDate = Nothing
, _hhCountryCode = Nothing
, _hhId = Nothing
, _hhType = Nothing
}
hhDeliveryGuaranteeHour :: Lens' HolidaysHoliday (Maybe Word64)
hhDeliveryGuaranteeHour
= lens _hhDeliveryGuaranteeHour
(\ s a -> s{_hhDeliveryGuaranteeHour = a})
. mapping _Coerce
hhDate :: Lens' HolidaysHoliday (Maybe Text)
hhDate = lens _hhDate (\ s a -> s{_hhDate = a})
hhDeliveryGuaranteeDate :: Lens' HolidaysHoliday (Maybe Text)
hhDeliveryGuaranteeDate
= lens _hhDeliveryGuaranteeDate
(\ s a -> s{_hhDeliveryGuaranteeDate = a})
hhCountryCode :: Lens' HolidaysHoliday (Maybe Text)
hhCountryCode
= lens _hhCountryCode
(\ s a -> s{_hhCountryCode = a})
hhId :: Lens' HolidaysHoliday (Maybe Text)
hhId = lens _hhId (\ s a -> s{_hhId = a})
hhType :: Lens' HolidaysHoliday (Maybe Text)
hhType = lens _hhType (\ s a -> s{_hhType = a})
instance FromJSON HolidaysHoliday where
parseJSON
= withObject "HolidaysHoliday"
(\ o ->
HolidaysHoliday' <$>
(o .:? "deliveryGuaranteeHour") <*> (o .:? "date")
<*> (o .:? "deliveryGuaranteeDate")
<*> (o .:? "countryCode")
<*> (o .:? "id")
<*> (o .:? "type"))
instance ToJSON HolidaysHoliday where
toJSON HolidaysHoliday'{..}
= object
(catMaybes
[("deliveryGuaranteeHour" .=) <$>
_hhDeliveryGuaranteeHour,
("date" .=) <$> _hhDate,
("deliveryGuaranteeDate" .=) <$>
_hhDeliveryGuaranteeDate,
("countryCode" .=) <$> _hhCountryCode,
("id" .=) <$> _hhId, ("type" .=) <$> _hhType])
data AccountsListResponse = AccountsListResponse'
{ _accNextPageToken :: !(Maybe Text)
, _accKind :: !Text
, _accResources :: !(Maybe [Account])
} deriving (Eq,Show,Data,Typeable,Generic)
accountsListResponse
:: AccountsListResponse
accountsListResponse =
AccountsListResponse'
{ _accNextPageToken = Nothing
, _accKind = "content#accountsListResponse"
, _accResources = Nothing
}
accNextPageToken :: Lens' AccountsListResponse (Maybe Text)
accNextPageToken
= lens _accNextPageToken
(\ s a -> s{_accNextPageToken = a})
accKind :: Lens' AccountsListResponse Text
accKind = lens _accKind (\ s a -> s{_accKind = a})
accResources :: Lens' AccountsListResponse [Account]
accResources
= lens _accResources (\ s a -> s{_accResources = a})
. _Default
. _Coerce
instance FromJSON AccountsListResponse where
parseJSON
= withObject "AccountsListResponse"
(\ o ->
AccountsListResponse' <$>
(o .:? "nextPageToken") <*>
(o .:? "kind" .!= "content#accountsListResponse")
<*> (o .:? "resources" .!= mempty))
instance ToJSON AccountsListResponse where
toJSON AccountsListResponse'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _accNextPageToken,
Just ("kind" .= _accKind),
("resources" .=) <$> _accResources])
data OrderpaymentsNotifyRefundRequest = OrderpaymentsNotifyRefundRequest'
{ _onrrInvoiceIds :: !(Maybe [Text])
, _onrrRefundState :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
orderpaymentsNotifyRefundRequest
:: OrderpaymentsNotifyRefundRequest
orderpaymentsNotifyRefundRequest =
OrderpaymentsNotifyRefundRequest'
{ _onrrInvoiceIds = Nothing
, _onrrRefundState = Nothing
}
onrrInvoiceIds :: Lens' OrderpaymentsNotifyRefundRequest [Text]
onrrInvoiceIds
= lens _onrrInvoiceIds
(\ s a -> s{_onrrInvoiceIds = a})
. _Default
. _Coerce
onrrRefundState :: Lens' OrderpaymentsNotifyRefundRequest (Maybe Text)
onrrRefundState
= lens _onrrRefundState
(\ s a -> s{_onrrRefundState = a})
instance FromJSON OrderpaymentsNotifyRefundRequest
where
parseJSON
= withObject "OrderpaymentsNotifyRefundRequest"
(\ o ->
OrderpaymentsNotifyRefundRequest' <$>
(o .:? "invoiceIds" .!= mempty) <*>
(o .:? "refundState"))
instance ToJSON OrderpaymentsNotifyRefundRequest
where
toJSON OrderpaymentsNotifyRefundRequest'{..}
= object
(catMaybes
[("invoiceIds" .=) <$> _onrrInvoiceIds,
("refundState" .=) <$> _onrrRefundState])
data AccountBusinessInformation = AccountBusinessInformation'
{ _abiAddress :: !(Maybe AccountAddress)
, _abiPhoneNumber :: !(Maybe Text)
, _abiCustomerService :: !(Maybe AccountCustomerService)
} deriving (Eq,Show,Data,Typeable,Generic)
accountBusinessInformation
:: AccountBusinessInformation
accountBusinessInformation =
AccountBusinessInformation'
{ _abiAddress = Nothing
, _abiPhoneNumber = Nothing
, _abiCustomerService = Nothing
}
abiAddress :: Lens' AccountBusinessInformation (Maybe AccountAddress)
abiAddress
= lens _abiAddress (\ s a -> s{_abiAddress = a})
abiPhoneNumber :: Lens' AccountBusinessInformation (Maybe Text)
abiPhoneNumber
= lens _abiPhoneNumber
(\ s a -> s{_abiPhoneNumber = a})
abiCustomerService :: Lens' AccountBusinessInformation (Maybe AccountCustomerService)
abiCustomerService
= lens _abiCustomerService
(\ s a -> s{_abiCustomerService = a})
instance FromJSON AccountBusinessInformation where
parseJSON
= withObject "AccountBusinessInformation"
(\ o ->
AccountBusinessInformation' <$>
(o .:? "address") <*> (o .:? "phoneNumber") <*>
(o .:? "customerService"))
instance ToJSON AccountBusinessInformation where
toJSON AccountBusinessInformation'{..}
= object
(catMaybes
[("address" .=) <$> _abiAddress,
("phoneNumber" .=) <$> _abiPhoneNumber,
("customerService" .=) <$> _abiCustomerService])
data CarriersCarrier = CarriersCarrier'
{ _ccCountry :: !(Maybe Text)
, _ccName :: !(Maybe Text)
, _ccServices :: !(Maybe [Text])
} deriving (Eq,Show,Data,Typeable,Generic)
carriersCarrier
:: CarriersCarrier
carriersCarrier =
CarriersCarrier'
{ _ccCountry = Nothing
, _ccName = Nothing
, _ccServices = Nothing
}
ccCountry :: Lens' CarriersCarrier (Maybe Text)
ccCountry
= lens _ccCountry (\ s a -> s{_ccCountry = a})
ccName :: Lens' CarriersCarrier (Maybe Text)
ccName = lens _ccName (\ s a -> s{_ccName = a})
ccServices :: Lens' CarriersCarrier [Text]
ccServices
= lens _ccServices (\ s a -> s{_ccServices = a}) .
_Default
. _Coerce
instance FromJSON CarriersCarrier where
parseJSON
= withObject "CarriersCarrier"
(\ o ->
CarriersCarrier' <$>
(o .:? "country") <*> (o .:? "name") <*>
(o .:? "services" .!= mempty))
instance ToJSON CarriersCarrier where
toJSON CarriersCarrier'{..}
= object
(catMaybes
[("country" .=) <$> _ccCountry,
("name" .=) <$> _ccName,
("services" .=) <$> _ccServices])
data CarrierRate = CarrierRate'
{ _crOriginPostalCode :: !(Maybe Text)
, _crFlatAdjustment :: !(Maybe Price)
, _crCarrierService :: !(Maybe Text)
, _crName :: !(Maybe Text)
, _crPercentageAdjustment :: !(Maybe Text)
, _crCarrierName :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
carrierRate
:: CarrierRate
carrierRate =
CarrierRate'
{ _crOriginPostalCode = Nothing
, _crFlatAdjustment = Nothing
, _crCarrierService = Nothing
, _crName = Nothing
, _crPercentageAdjustment = Nothing
, _crCarrierName = Nothing
}
crOriginPostalCode :: Lens' CarrierRate (Maybe Text)
crOriginPostalCode
= lens _crOriginPostalCode
(\ s a -> s{_crOriginPostalCode = a})
crFlatAdjustment :: Lens' CarrierRate (Maybe Price)
crFlatAdjustment
= lens _crFlatAdjustment
(\ s a -> s{_crFlatAdjustment = a})
crCarrierService :: Lens' CarrierRate (Maybe Text)
crCarrierService
= lens _crCarrierService
(\ s a -> s{_crCarrierService = a})
crName :: Lens' CarrierRate (Maybe Text)
crName = lens _crName (\ s a -> s{_crName = a})
crPercentageAdjustment :: Lens' CarrierRate (Maybe Text)
crPercentageAdjustment
= lens _crPercentageAdjustment
(\ s a -> s{_crPercentageAdjustment = a})
crCarrierName :: Lens' CarrierRate (Maybe Text)
crCarrierName
= lens _crCarrierName
(\ s a -> s{_crCarrierName = a})
instance FromJSON CarrierRate where
parseJSON
= withObject "CarrierRate"
(\ o ->
CarrierRate' <$>
(o .:? "originPostalCode") <*>
(o .:? "flatAdjustment")
<*> (o .:? "carrierService")
<*> (o .:? "name")
<*> (o .:? "percentageAdjustment")
<*> (o .:? "carrierName"))
instance ToJSON CarrierRate where
toJSON CarrierRate'{..}
= object
(catMaybes
[("originPostalCode" .=) <$> _crOriginPostalCode,
("flatAdjustment" .=) <$> _crFlatAdjustment,
("carrierService" .=) <$> _crCarrierService,
("name" .=) <$> _crName,
("percentageAdjustment" .=) <$>
_crPercentageAdjustment,
("carrierName" .=) <$> _crCarrierName])
data ShippingSettingsListResponse = ShippingSettingsListResponse'
{ _sslrNextPageToken :: !(Maybe Text)
, _sslrKind :: !Text
, _sslrResources :: !(Maybe [ShippingSettings])
} deriving (Eq,Show,Data,Typeable,Generic)
shippingSettingsListResponse
:: ShippingSettingsListResponse
shippingSettingsListResponse =
ShippingSettingsListResponse'
{ _sslrNextPageToken = Nothing
, _sslrKind = "content#shippingsettingsListResponse"
, _sslrResources = Nothing
}
sslrNextPageToken :: Lens' ShippingSettingsListResponse (Maybe Text)
sslrNextPageToken
= lens _sslrNextPageToken
(\ s a -> s{_sslrNextPageToken = a})
sslrKind :: Lens' ShippingSettingsListResponse Text
sslrKind = lens _sslrKind (\ s a -> s{_sslrKind = a})
sslrResources :: Lens' ShippingSettingsListResponse [ShippingSettings]
sslrResources
= lens _sslrResources
(\ s a -> s{_sslrResources = a})
. _Default
. _Coerce
instance FromJSON ShippingSettingsListResponse where
parseJSON
= withObject "ShippingSettingsListResponse"
(\ o ->
ShippingSettingsListResponse' <$>
(o .:? "nextPageToken") <*>
(o .:? "kind" .!=
"content#shippingsettingsListResponse")
<*> (o .:? "resources" .!= mempty))
instance ToJSON ShippingSettingsListResponse where
toJSON ShippingSettingsListResponse'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _sslrNextPageToken,
Just ("kind" .= _sslrKind),
("resources" .=) <$> _sslrResources])
data OrdersCreateTestReturnResponse = OrdersCreateTestReturnResponse'
{ _octrrKind :: !Text
, _octrrReturnId :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
ordersCreateTestReturnResponse
:: OrdersCreateTestReturnResponse
ordersCreateTestReturnResponse =
OrdersCreateTestReturnResponse'
{ _octrrKind = "content#ordersCreateTestReturnResponse"
, _octrrReturnId = Nothing
}
octrrKind :: Lens' OrdersCreateTestReturnResponse Text
octrrKind
= lens _octrrKind (\ s a -> s{_octrrKind = a})
octrrReturnId :: Lens' OrdersCreateTestReturnResponse (Maybe Text)
octrrReturnId
= lens _octrrReturnId
(\ s a -> s{_octrrReturnId = a})
instance FromJSON OrdersCreateTestReturnResponse
where
parseJSON
= withObject "OrdersCreateTestReturnResponse"
(\ o ->
OrdersCreateTestReturnResponse' <$>
(o .:? "kind" .!=
"content#ordersCreateTestReturnResponse")
<*> (o .:? "returnId"))
instance ToJSON OrdersCreateTestReturnResponse where
toJSON OrdersCreateTestReturnResponse'{..}
= object
(catMaybes
[Just ("kind" .= _octrrKind),
("returnId" .=) <$> _octrrReturnId])
data OrdersShipLineItemsRequest = OrdersShipLineItemsRequest'
{ _oslirShipmentGroupId :: !(Maybe Text)
, _oslirShipmentInfos :: !(Maybe [OrdersCustomBatchRequestEntryShipLineItemsShipmentInfo])
, _oslirLineItems :: !(Maybe [OrderShipmentLineItemShipment])
, _oslirOperationId :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
ordersShipLineItemsRequest
:: OrdersShipLineItemsRequest
ordersShipLineItemsRequest =
OrdersShipLineItemsRequest'
{ _oslirShipmentGroupId = Nothing
, _oslirShipmentInfos = Nothing
, _oslirLineItems = Nothing
, _oslirOperationId = Nothing
}
oslirShipmentGroupId :: Lens' OrdersShipLineItemsRequest (Maybe Text)
oslirShipmentGroupId
= lens _oslirShipmentGroupId
(\ s a -> s{_oslirShipmentGroupId = a})
oslirShipmentInfos :: Lens' OrdersShipLineItemsRequest [OrdersCustomBatchRequestEntryShipLineItemsShipmentInfo]
oslirShipmentInfos
= lens _oslirShipmentInfos
(\ s a -> s{_oslirShipmentInfos = a})
. _Default
. _Coerce
oslirLineItems :: Lens' OrdersShipLineItemsRequest [OrderShipmentLineItemShipment]
oslirLineItems
= lens _oslirLineItems
(\ s a -> s{_oslirLineItems = a})
. _Default
. _Coerce
oslirOperationId :: Lens' OrdersShipLineItemsRequest (Maybe Text)
oslirOperationId
= lens _oslirOperationId
(\ s a -> s{_oslirOperationId = a})
instance FromJSON OrdersShipLineItemsRequest where
parseJSON
= withObject "OrdersShipLineItemsRequest"
(\ o ->
OrdersShipLineItemsRequest' <$>
(o .:? "shipmentGroupId") <*>
(o .:? "shipmentInfos" .!= mempty)
<*> (o .:? "lineItems" .!= mempty)
<*> (o .:? "operationId"))
instance ToJSON OrdersShipLineItemsRequest where
toJSON OrdersShipLineItemsRequest'{..}
= object
(catMaybes
[("shipmentGroupId" .=) <$> _oslirShipmentGroupId,
("shipmentInfos" .=) <$> _oslirShipmentInfos,
("lineItems" .=) <$> _oslirLineItems,
("operationId" .=) <$> _oslirOperationId])
data OrderreturnsListResponse = OrderreturnsListResponse'
{ _olrNextPageToken :: !(Maybe Text)
, _olrKind :: !Text
, _olrResources :: !(Maybe [MerchantOrderReturn])
} deriving (Eq,Show,Data,Typeable,Generic)
orderreturnsListResponse
:: OrderreturnsListResponse
orderreturnsListResponse =
OrderreturnsListResponse'
{ _olrNextPageToken = Nothing
, _olrKind = "content#orderreturnsListResponse"
, _olrResources = Nothing
}
olrNextPageToken :: Lens' OrderreturnsListResponse (Maybe Text)
olrNextPageToken
= lens _olrNextPageToken
(\ s a -> s{_olrNextPageToken = a})
olrKind :: Lens' OrderreturnsListResponse Text
olrKind = lens _olrKind (\ s a -> s{_olrKind = a})
olrResources :: Lens' OrderreturnsListResponse [MerchantOrderReturn]
olrResources
= lens _olrResources (\ s a -> s{_olrResources = a})
. _Default
. _Coerce
instance FromJSON OrderreturnsListResponse where
parseJSON
= withObject "OrderreturnsListResponse"
(\ o ->
OrderreturnsListResponse' <$>
(o .:? "nextPageToken") <*>
(o .:? "kind" .!= "content#orderreturnsListResponse")
<*> (o .:? "resources" .!= mempty))
instance ToJSON OrderreturnsListResponse where
toJSON OrderreturnsListResponse'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _olrNextPageToken,
Just ("kind" .= _olrKind),
("resources" .=) <$> _olrResources])
data AccountsCustomBatchResponse = AccountsCustomBatchResponse'
{ _acbrcEntries :: !(Maybe [AccountsCustomBatchResponseEntry])
, _acbrcKind :: !Text
} deriving (Eq,Show,Data,Typeable,Generic)
accountsCustomBatchResponse
:: AccountsCustomBatchResponse
accountsCustomBatchResponse =
AccountsCustomBatchResponse'
{ _acbrcEntries = Nothing
, _acbrcKind = "content#accountsCustomBatchResponse"
}
acbrcEntries :: Lens' AccountsCustomBatchResponse [AccountsCustomBatchResponseEntry]
acbrcEntries
= lens _acbrcEntries (\ s a -> s{_acbrcEntries = a})
. _Default
. _Coerce
acbrcKind :: Lens' AccountsCustomBatchResponse Text
acbrcKind
= lens _acbrcKind (\ s a -> s{_acbrcKind = a})
instance FromJSON AccountsCustomBatchResponse where
parseJSON
= withObject "AccountsCustomBatchResponse"
(\ o ->
AccountsCustomBatchResponse' <$>
(o .:? "entries" .!= mempty) <*>
(o .:? "kind" .!=
"content#accountsCustomBatchResponse"))
instance ToJSON AccountsCustomBatchResponse where
toJSON AccountsCustomBatchResponse'{..}
= object
(catMaybes
[("entries" .=) <$> _acbrcEntries,
Just ("kind" .= _acbrcKind)])
data OrderpaymentsNotifyAuthApprovedRequest = OrderpaymentsNotifyAuthApprovedRequest'
{ _onaarAuthAmountPretax :: !(Maybe Price)
, _onaarAuthAmountTax :: !(Maybe Price)
} deriving (Eq,Show,Data,Typeable,Generic)
orderpaymentsNotifyAuthApprovedRequest
:: OrderpaymentsNotifyAuthApprovedRequest
orderpaymentsNotifyAuthApprovedRequest =
OrderpaymentsNotifyAuthApprovedRequest'
{ _onaarAuthAmountPretax = Nothing
, _onaarAuthAmountTax = Nothing
}
onaarAuthAmountPretax :: Lens' OrderpaymentsNotifyAuthApprovedRequest (Maybe Price)
onaarAuthAmountPretax
= lens _onaarAuthAmountPretax
(\ s a -> s{_onaarAuthAmountPretax = a})
onaarAuthAmountTax :: Lens' OrderpaymentsNotifyAuthApprovedRequest (Maybe Price)
onaarAuthAmountTax
= lens _onaarAuthAmountTax
(\ s a -> s{_onaarAuthAmountTax = a})
instance FromJSON
OrderpaymentsNotifyAuthApprovedRequest where
parseJSON
= withObject "OrderpaymentsNotifyAuthApprovedRequest"
(\ o ->
OrderpaymentsNotifyAuthApprovedRequest' <$>
(o .:? "authAmountPretax") <*>
(o .:? "authAmountTax"))
instance ToJSON
OrderpaymentsNotifyAuthApprovedRequest where
toJSON OrderpaymentsNotifyAuthApprovedRequest'{..}
= object
(catMaybes
[("authAmountPretax" .=) <$> _onaarAuthAmountPretax,
("authAmountTax" .=) <$> _onaarAuthAmountTax])
data OrdersUpdateLineItemShippingDetailsRequest = OrdersUpdateLineItemShippingDetailsRequest'
{ _oulisdrShipByDate :: !(Maybe Text)
, _oulisdrLineItemId :: !(Maybe Text)
, _oulisdrDeliverByDate :: !(Maybe Text)
, _oulisdrOperationId :: !(Maybe Text)
, _oulisdrProductId :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
ordersUpdateLineItemShippingDetailsRequest
:: OrdersUpdateLineItemShippingDetailsRequest
ordersUpdateLineItemShippingDetailsRequest =
OrdersUpdateLineItemShippingDetailsRequest'
{ _oulisdrShipByDate = Nothing
, _oulisdrLineItemId = Nothing
, _oulisdrDeliverByDate = Nothing
, _oulisdrOperationId = Nothing
, _oulisdrProductId = Nothing
}
oulisdrShipByDate :: Lens' OrdersUpdateLineItemShippingDetailsRequest (Maybe Text)
oulisdrShipByDate
= lens _oulisdrShipByDate
(\ s a -> s{_oulisdrShipByDate = a})
oulisdrLineItemId :: Lens' OrdersUpdateLineItemShippingDetailsRequest (Maybe Text)
oulisdrLineItemId
= lens _oulisdrLineItemId
(\ s a -> s{_oulisdrLineItemId = a})
oulisdrDeliverByDate :: Lens' OrdersUpdateLineItemShippingDetailsRequest (Maybe Text)
oulisdrDeliverByDate
= lens _oulisdrDeliverByDate
(\ s a -> s{_oulisdrDeliverByDate = a})
oulisdrOperationId :: Lens' OrdersUpdateLineItemShippingDetailsRequest (Maybe Text)
oulisdrOperationId
= lens _oulisdrOperationId
(\ s a -> s{_oulisdrOperationId = a})
oulisdrProductId :: Lens' OrdersUpdateLineItemShippingDetailsRequest (Maybe Text)
oulisdrProductId
= lens _oulisdrProductId
(\ s a -> s{_oulisdrProductId = a})
instance FromJSON
OrdersUpdateLineItemShippingDetailsRequest where
parseJSON
= withObject
"OrdersUpdateLineItemShippingDetailsRequest"
(\ o ->
OrdersUpdateLineItemShippingDetailsRequest' <$>
(o .:? "shipByDate") <*> (o .:? "lineItemId") <*>
(o .:? "deliverByDate")
<*> (o .:? "operationId")
<*> (o .:? "productId"))
instance ToJSON
OrdersUpdateLineItemShippingDetailsRequest where
toJSON
OrdersUpdateLineItemShippingDetailsRequest'{..}
= object
(catMaybes
[("shipByDate" .=) <$> _oulisdrShipByDate,
("lineItemId" .=) <$> _oulisdrLineItemId,
("deliverByDate" .=) <$> _oulisdrDeliverByDate,
("operationId" .=) <$> _oulisdrOperationId,
("productId" .=) <$> _oulisdrProductId])
data MerchantOrderReturn = MerchantOrderReturn'
{ _morReturnShipments :: !(Maybe [ReturnShipment])
, _morMerchantOrderId :: !(Maybe Text)
, _morReturnItems :: !(Maybe [MerchantOrderReturnItem])
, _morCreationDate :: !(Maybe Text)
, _morOrderId :: !(Maybe Text)
, _morOrderReturnId :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
merchantOrderReturn
:: MerchantOrderReturn
merchantOrderReturn =
MerchantOrderReturn'
{ _morReturnShipments = Nothing
, _morMerchantOrderId = Nothing
, _morReturnItems = Nothing
, _morCreationDate = Nothing
, _morOrderId = Nothing
, _morOrderReturnId = Nothing
}
morReturnShipments :: Lens' MerchantOrderReturn [ReturnShipment]
morReturnShipments
= lens _morReturnShipments
(\ s a -> s{_morReturnShipments = a})
. _Default
. _Coerce
morMerchantOrderId :: Lens' MerchantOrderReturn (Maybe Text)
morMerchantOrderId
= lens _morMerchantOrderId
(\ s a -> s{_morMerchantOrderId = a})
morReturnItems :: Lens' MerchantOrderReturn [MerchantOrderReturnItem]
morReturnItems
= lens _morReturnItems
(\ s a -> s{_morReturnItems = a})
. _Default
. _Coerce
morCreationDate :: Lens' MerchantOrderReturn (Maybe Text)
morCreationDate
= lens _morCreationDate
(\ s a -> s{_morCreationDate = a})
morOrderId :: Lens' MerchantOrderReturn (Maybe Text)
morOrderId
= lens _morOrderId (\ s a -> s{_morOrderId = a})
morOrderReturnId :: Lens' MerchantOrderReturn (Maybe Text)
morOrderReturnId
= lens _morOrderReturnId
(\ s a -> s{_morOrderReturnId = a})
instance FromJSON MerchantOrderReturn where
parseJSON
= withObject "MerchantOrderReturn"
(\ o ->
MerchantOrderReturn' <$>
(o .:? "returnShipments" .!= mempty) <*>
(o .:? "merchantOrderId")
<*> (o .:? "returnItems" .!= mempty)
<*> (o .:? "creationDate")
<*> (o .:? "orderId")
<*> (o .:? "orderReturnId"))
instance ToJSON MerchantOrderReturn where
toJSON MerchantOrderReturn'{..}
= object
(catMaybes
[("returnShipments" .=) <$> _morReturnShipments,
("merchantOrderId" .=) <$> _morMerchantOrderId,
("returnItems" .=) <$> _morReturnItems,
("creationDate" .=) <$> _morCreationDate,
("orderId" .=) <$> _morOrderId,
("orderReturnId" .=) <$> _morOrderReturnId])
data ProductTax = ProductTax'
{ _ptTaxShip :: !(Maybe Bool)
, _ptCountry :: !(Maybe Text)
, _ptPostalCode :: !(Maybe Text)
, _ptRate :: !(Maybe (Textual Double))
, _ptRegion :: !(Maybe Text)
, _ptLocationId :: !(Maybe (Textual Int64))
} deriving (Eq,Show,Data,Typeable,Generic)
productTax
:: ProductTax
productTax =
ProductTax'
{ _ptTaxShip = Nothing
, _ptCountry = Nothing
, _ptPostalCode = Nothing
, _ptRate = Nothing
, _ptRegion = Nothing
, _ptLocationId = Nothing
}
ptTaxShip :: Lens' ProductTax (Maybe Bool)
ptTaxShip
= lens _ptTaxShip (\ s a -> s{_ptTaxShip = a})
ptCountry :: Lens' ProductTax (Maybe Text)
ptCountry
= lens _ptCountry (\ s a -> s{_ptCountry = a})
ptPostalCode :: Lens' ProductTax (Maybe Text)
ptPostalCode
= lens _ptPostalCode (\ s a -> s{_ptPostalCode = a})
ptRate :: Lens' ProductTax (Maybe Double)
ptRate
= lens _ptRate (\ s a -> s{_ptRate = a}) .
mapping _Coerce
ptRegion :: Lens' ProductTax (Maybe Text)
ptRegion = lens _ptRegion (\ s a -> s{_ptRegion = a})
ptLocationId :: Lens' ProductTax (Maybe Int64)
ptLocationId
= lens _ptLocationId (\ s a -> s{_ptLocationId = a})
. mapping _Coerce
instance FromJSON ProductTax where
parseJSON
= withObject "ProductTax"
(\ o ->
ProductTax' <$>
(o .:? "taxShip") <*> (o .:? "country") <*>
(o .:? "postalCode")
<*> (o .:? "rate")
<*> (o .:? "region")
<*> (o .:? "locationId"))
instance ToJSON ProductTax where
toJSON ProductTax'{..}
= object
(catMaybes
[("taxShip" .=) <$> _ptTaxShip,
("country" .=) <$> _ptCountry,
("postalCode" .=) <$> _ptPostalCode,
("rate" .=) <$> _ptRate, ("region" .=) <$> _ptRegion,
("locationId" .=) <$> _ptLocationId])
data PosCustomBatchRequestEntry = PosCustomBatchRequestEntry'
{ _pcbreMerchantId :: !(Maybe (Textual Word64))
, _pcbreStoreCode :: !(Maybe Text)
, _pcbreTargetMerchantId :: !(Maybe (Textual Word64))
, _pcbreMethod :: !(Maybe Text)
, _pcbreStore :: !(Maybe PosStore)
, _pcbreInventory :: !(Maybe PosInventory)
, _pcbreSale :: !(Maybe PosSale)
, _pcbreBatchId :: !(Maybe (Textual Word32))
} deriving (Eq,Show,Data,Typeable,Generic)
posCustomBatchRequestEntry
:: PosCustomBatchRequestEntry
posCustomBatchRequestEntry =
PosCustomBatchRequestEntry'
{ _pcbreMerchantId = Nothing
, _pcbreStoreCode = Nothing
, _pcbreTargetMerchantId = Nothing
, _pcbreMethod = Nothing
, _pcbreStore = Nothing
, _pcbreInventory = Nothing
, _pcbreSale = Nothing
, _pcbreBatchId = Nothing
}
pcbreMerchantId :: Lens' PosCustomBatchRequestEntry (Maybe Word64)
pcbreMerchantId
= lens _pcbreMerchantId
(\ s a -> s{_pcbreMerchantId = a})
. mapping _Coerce
pcbreStoreCode :: Lens' PosCustomBatchRequestEntry (Maybe Text)
pcbreStoreCode
= lens _pcbreStoreCode
(\ s a -> s{_pcbreStoreCode = a})
pcbreTargetMerchantId :: Lens' PosCustomBatchRequestEntry (Maybe Word64)
pcbreTargetMerchantId
= lens _pcbreTargetMerchantId
(\ s a -> s{_pcbreTargetMerchantId = a})
. mapping _Coerce
pcbreMethod :: Lens' PosCustomBatchRequestEntry (Maybe Text)
pcbreMethod
= lens _pcbreMethod (\ s a -> s{_pcbreMethod = a})
pcbreStore :: Lens' PosCustomBatchRequestEntry (Maybe PosStore)
pcbreStore
= lens _pcbreStore (\ s a -> s{_pcbreStore = a})
pcbreInventory :: Lens' PosCustomBatchRequestEntry (Maybe PosInventory)
pcbreInventory
= lens _pcbreInventory
(\ s a -> s{_pcbreInventory = a})
pcbreSale :: Lens' PosCustomBatchRequestEntry (Maybe PosSale)
pcbreSale
= lens _pcbreSale (\ s a -> s{_pcbreSale = a})
pcbreBatchId :: Lens' PosCustomBatchRequestEntry (Maybe Word32)
pcbreBatchId
= lens _pcbreBatchId (\ s a -> s{_pcbreBatchId = a})
. mapping _Coerce
instance FromJSON PosCustomBatchRequestEntry where
parseJSON
= withObject "PosCustomBatchRequestEntry"
(\ o ->
PosCustomBatchRequestEntry' <$>
(o .:? "merchantId") <*> (o .:? "storeCode") <*>
(o .:? "targetMerchantId")
<*> (o .:? "method")
<*> (o .:? "store")
<*> (o .:? "inventory")
<*> (o .:? "sale")
<*> (o .:? "batchId"))
instance ToJSON PosCustomBatchRequestEntry where
toJSON PosCustomBatchRequestEntry'{..}
= object
(catMaybes
[("merchantId" .=) <$> _pcbreMerchantId,
("storeCode" .=) <$> _pcbreStoreCode,
("targetMerchantId" .=) <$> _pcbreTargetMerchantId,
("method" .=) <$> _pcbreMethod,
("store" .=) <$> _pcbreStore,
("inventory" .=) <$> _pcbreInventory,
("sale" .=) <$> _pcbreSale,
("batchId" .=) <$> _pcbreBatchId])
data OrderShipment = OrderShipment'
{ _osCarrier :: !(Maybe Text)
, _osStatus :: !(Maybe Text)
, _osTrackingId :: !(Maybe Text)
, _osLineItems :: !(Maybe [OrderShipmentLineItemShipment])
, _osId :: !(Maybe Text)
, _osCreationDate :: !(Maybe Text)
, _osDeliveryDate :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
orderShipment
:: OrderShipment
orderShipment =
OrderShipment'
{ _osCarrier = Nothing
, _osStatus = Nothing
, _osTrackingId = Nothing
, _osLineItems = Nothing
, _osId = Nothing
, _osCreationDate = Nothing
, _osDeliveryDate = Nothing
}
osCarrier :: Lens' OrderShipment (Maybe Text)
osCarrier
= lens _osCarrier (\ s a -> s{_osCarrier = a})
osStatus :: Lens' OrderShipment (Maybe Text)
osStatus = lens _osStatus (\ s a -> s{_osStatus = a})
osTrackingId :: Lens' OrderShipment (Maybe Text)
osTrackingId
= lens _osTrackingId (\ s a -> s{_osTrackingId = a})
osLineItems :: Lens' OrderShipment [OrderShipmentLineItemShipment]
osLineItems
= lens _osLineItems (\ s a -> s{_osLineItems = a}) .
_Default
. _Coerce
osId :: Lens' OrderShipment (Maybe Text)
osId = lens _osId (\ s a -> s{_osId = a})
osCreationDate :: Lens' OrderShipment (Maybe Text)
osCreationDate
= lens _osCreationDate
(\ s a -> s{_osCreationDate = a})
osDeliveryDate :: Lens' OrderShipment (Maybe Text)
osDeliveryDate
= lens _osDeliveryDate
(\ s a -> s{_osDeliveryDate = a})
instance FromJSON OrderShipment where
parseJSON
= withObject "OrderShipment"
(\ o ->
OrderShipment' <$>
(o .:? "carrier") <*> (o .:? "status") <*>
(o .:? "trackingId")
<*> (o .:? "lineItems" .!= mempty)
<*> (o .:? "id")
<*> (o .:? "creationDate")
<*> (o .:? "deliveryDate"))
instance ToJSON OrderShipment where
toJSON OrderShipment'{..}
= object
(catMaybes
[("carrier" .=) <$> _osCarrier,
("status" .=) <$> _osStatus,
("trackingId" .=) <$> _osTrackingId,
("lineItems" .=) <$> _osLineItems,
("id" .=) <$> _osId,
("creationDate" .=) <$> _osCreationDate,
("deliveryDate" .=) <$> _osDeliveryDate])
newtype AccountsLinkResponse = AccountsLinkResponse'
{ _alrlKind :: Text
} deriving (Eq,Show,Data,Typeable,Generic)
accountsLinkResponse
:: AccountsLinkResponse
accountsLinkResponse =
AccountsLinkResponse'
{ _alrlKind = "content#accountsLinkResponse"
}
alrlKind :: Lens' AccountsLinkResponse Text
alrlKind = lens _alrlKind (\ s a -> s{_alrlKind = a})
instance FromJSON AccountsLinkResponse where
parseJSON
= withObject "AccountsLinkResponse"
(\ o ->
AccountsLinkResponse' <$>
(o .:? "kind" .!= "content#accountsLinkResponse"))
instance ToJSON AccountsLinkResponse where
toJSON AccountsLinkResponse'{..}
= object (catMaybes [Just ("kind" .= _alrlKind)])
data OrderLineItemReturnInfo = OrderLineItemReturnInfo'
{ _oliriIsReturnable :: !(Maybe Bool)
, _oliriPolicyURL :: !(Maybe Text)
, _oliriDaysToReturn :: !(Maybe (Textual Int32))
} deriving (Eq,Show,Data,Typeable,Generic)
orderLineItemReturnInfo
:: OrderLineItemReturnInfo
orderLineItemReturnInfo =
OrderLineItemReturnInfo'
{ _oliriIsReturnable = Nothing
, _oliriPolicyURL = Nothing
, _oliriDaysToReturn = Nothing
}
oliriIsReturnable :: Lens' OrderLineItemReturnInfo (Maybe Bool)
oliriIsReturnable
= lens _oliriIsReturnable
(\ s a -> s{_oliriIsReturnable = a})
oliriPolicyURL :: Lens' OrderLineItemReturnInfo (Maybe Text)
oliriPolicyURL
= lens _oliriPolicyURL
(\ s a -> s{_oliriPolicyURL = a})
oliriDaysToReturn :: Lens' OrderLineItemReturnInfo (Maybe Int32)
oliriDaysToReturn
= lens _oliriDaysToReturn
(\ s a -> s{_oliriDaysToReturn = a})
. mapping _Coerce
instance FromJSON OrderLineItemReturnInfo where
parseJSON
= withObject "OrderLineItemReturnInfo"
(\ o ->
OrderLineItemReturnInfo' <$>
(o .:? "isReturnable") <*> (o .:? "policyUrl") <*>
(o .:? "daysToReturn"))
instance ToJSON OrderLineItemReturnInfo where
toJSON OrderLineItemReturnInfo'{..}
= object
(catMaybes
[("isReturnable" .=) <$> _oliriIsReturnable,
("policyUrl" .=) <$> _oliriPolicyURL,
("daysToReturn" .=) <$> _oliriDaysToReturn])
data Account = Account'
{ _aaUsers :: !(Maybe [AccountUser])
, _aaYouTubeChannelLinks :: !(Maybe [AccountYouTubeChannelLink])
, _aaKind :: !Text
, _aaSellerId :: !(Maybe Text)
, _aaName :: !(Maybe Text)
, _aaBusinessInformation :: !(Maybe AccountBusinessInformation)
, _aaId :: !(Maybe (Textual Word64))
, _aaAdsLinks :: !(Maybe [AccountAdsLink])
, _aaWebsiteURL :: !(Maybe Text)
, _aaGoogleMyBusinessLink :: !(Maybe AccountGoogleMyBusinessLink)
, _aaAdultContent :: !(Maybe Bool)
} deriving (Eq,Show,Data,Typeable,Generic)
account
:: Account
account =
Account'
{ _aaUsers = Nothing
, _aaYouTubeChannelLinks = Nothing
, _aaKind = "content#account"
, _aaSellerId = Nothing
, _aaName = Nothing
, _aaBusinessInformation = Nothing
, _aaId = Nothing
, _aaAdsLinks = Nothing
, _aaWebsiteURL = Nothing
, _aaGoogleMyBusinessLink = Nothing
, _aaAdultContent = Nothing
}
aaUsers :: Lens' Account [AccountUser]
aaUsers
= lens _aaUsers (\ s a -> s{_aaUsers = a}) . _Default
. _Coerce
aaYouTubeChannelLinks :: Lens' Account [AccountYouTubeChannelLink]
aaYouTubeChannelLinks
= lens _aaYouTubeChannelLinks
(\ s a -> s{_aaYouTubeChannelLinks = a})
. _Default
. _Coerce
aaKind :: Lens' Account Text
aaKind = lens _aaKind (\ s a -> s{_aaKind = a})
aaSellerId :: Lens' Account (Maybe Text)
aaSellerId
= lens _aaSellerId (\ s a -> s{_aaSellerId = a})
aaName :: Lens' Account (Maybe Text)
aaName = lens _aaName (\ s a -> s{_aaName = a})
aaBusinessInformation :: Lens' Account (Maybe AccountBusinessInformation)
aaBusinessInformation
= lens _aaBusinessInformation
(\ s a -> s{_aaBusinessInformation = a})
aaId :: Lens' Account (Maybe Word64)
aaId
= lens _aaId (\ s a -> s{_aaId = a}) .
mapping _Coerce
aaAdsLinks :: Lens' Account [AccountAdsLink]
aaAdsLinks
= lens _aaAdsLinks (\ s a -> s{_aaAdsLinks = a}) .
_Default
. _Coerce
aaWebsiteURL :: Lens' Account (Maybe Text)
aaWebsiteURL
= lens _aaWebsiteURL (\ s a -> s{_aaWebsiteURL = a})
aaGoogleMyBusinessLink :: Lens' Account (Maybe AccountGoogleMyBusinessLink)
aaGoogleMyBusinessLink
= lens _aaGoogleMyBusinessLink
(\ s a -> s{_aaGoogleMyBusinessLink = a})
aaAdultContent :: Lens' Account (Maybe Bool)
aaAdultContent
= lens _aaAdultContent
(\ s a -> s{_aaAdultContent = a})
instance FromJSON Account where
parseJSON
= withObject "Account"
(\ o ->
Account' <$>
(o .:? "users" .!= mempty) <*>
(o .:? "youtubeChannelLinks" .!= mempty)
<*> (o .:? "kind" .!= "content#account")
<*> (o .:? "sellerId")
<*> (o .:? "name")
<*> (o .:? "businessInformation")
<*> (o .:? "id")
<*> (o .:? "adsLinks" .!= mempty)
<*> (o .:? "websiteUrl")
<*> (o .:? "googleMyBusinessLink")
<*> (o .:? "adultContent"))
instance ToJSON Account where
toJSON Account'{..}
= object
(catMaybes
[("users" .=) <$> _aaUsers,
("youtubeChannelLinks" .=) <$>
_aaYouTubeChannelLinks,
Just ("kind" .= _aaKind),
("sellerId" .=) <$> _aaSellerId,
("name" .=) <$> _aaName,
("businessInformation" .=) <$>
_aaBusinessInformation,
("id" .=) <$> _aaId, ("adsLinks" .=) <$> _aaAdsLinks,
("websiteUrl" .=) <$> _aaWebsiteURL,
("googleMyBusinessLink" .=) <$>
_aaGoogleMyBusinessLink,
("adultContent" .=) <$> _aaAdultContent])
data ShipmentTrackingInfo = ShipmentTrackingInfo'
{ _stiCarrier :: !(Maybe Text)
, _stiTrackingNumber :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
shipmentTrackingInfo
:: ShipmentTrackingInfo
shipmentTrackingInfo =
ShipmentTrackingInfo'
{ _stiCarrier = Nothing
, _stiTrackingNumber = Nothing
}
stiCarrier :: Lens' ShipmentTrackingInfo (Maybe Text)
stiCarrier
= lens _stiCarrier (\ s a -> s{_stiCarrier = a})
stiTrackingNumber :: Lens' ShipmentTrackingInfo (Maybe Text)
stiTrackingNumber
= lens _stiTrackingNumber
(\ s a -> s{_stiTrackingNumber = a})
instance FromJSON ShipmentTrackingInfo where
parseJSON
= withObject "ShipmentTrackingInfo"
(\ o ->
ShipmentTrackingInfo' <$>
(o .:? "carrier") <*> (o .:? "trackingNumber"))
instance ToJSON ShipmentTrackingInfo where
toJSON ShipmentTrackingInfo'{..}
= object
(catMaybes
[("carrier" .=) <$> _stiCarrier,
("trackingNumber" .=) <$> _stiTrackingNumber])
data OrdersCancelLineItemRequest = OrdersCancelLineItemRequest'
{ _oclirQuantity :: !(Maybe (Textual Word32))
, _oclirLineItemId :: !(Maybe Text)
, _oclirReason :: !(Maybe Text)
, _oclirOperationId :: !(Maybe Text)
, _oclirProductId :: !(Maybe Text)
, _oclirReasonText :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
ordersCancelLineItemRequest
:: OrdersCancelLineItemRequest
ordersCancelLineItemRequest =
OrdersCancelLineItemRequest'
{ _oclirQuantity = Nothing
, _oclirLineItemId = Nothing
, _oclirReason = Nothing
, _oclirOperationId = Nothing
, _oclirProductId = Nothing
, _oclirReasonText = Nothing
}
oclirQuantity :: Lens' OrdersCancelLineItemRequest (Maybe Word32)
oclirQuantity
= lens _oclirQuantity
(\ s a -> s{_oclirQuantity = a})
. mapping _Coerce
oclirLineItemId :: Lens' OrdersCancelLineItemRequest (Maybe Text)
oclirLineItemId
= lens _oclirLineItemId
(\ s a -> s{_oclirLineItemId = a})
oclirReason :: Lens' OrdersCancelLineItemRequest (Maybe Text)
oclirReason
= lens _oclirReason (\ s a -> s{_oclirReason = a})
oclirOperationId :: Lens' OrdersCancelLineItemRequest (Maybe Text)
oclirOperationId
= lens _oclirOperationId
(\ s a -> s{_oclirOperationId = a})
oclirProductId :: Lens' OrdersCancelLineItemRequest (Maybe Text)
oclirProductId
= lens _oclirProductId
(\ s a -> s{_oclirProductId = a})
oclirReasonText :: Lens' OrdersCancelLineItemRequest (Maybe Text)
oclirReasonText
= lens _oclirReasonText
(\ s a -> s{_oclirReasonText = a})
instance FromJSON OrdersCancelLineItemRequest where
parseJSON
= withObject "OrdersCancelLineItemRequest"
(\ o ->
OrdersCancelLineItemRequest' <$>
(o .:? "quantity") <*> (o .:? "lineItemId") <*>
(o .:? "reason")
<*> (o .:? "operationId")
<*> (o .:? "productId")
<*> (o .:? "reasonText"))
instance ToJSON OrdersCancelLineItemRequest where
toJSON OrdersCancelLineItemRequest'{..}
= object
(catMaybes
[("quantity" .=) <$> _oclirQuantity,
("lineItemId" .=) <$> _oclirLineItemId,
("reason" .=) <$> _oclirReason,
("operationId" .=) <$> _oclirOperationId,
("productId" .=) <$> _oclirProductId,
("reasonText" .=) <$> _oclirReasonText])
data ProductShippingWeight = ProductShippingWeight'
{ _pswValue :: !(Maybe (Textual Double))
, _pswUnit :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
productShippingWeight
:: ProductShippingWeight
productShippingWeight =
ProductShippingWeight'
{ _pswValue = Nothing
, _pswUnit = Nothing
}
pswValue :: Lens' ProductShippingWeight (Maybe Double)
pswValue
= lens _pswValue (\ s a -> s{_pswValue = a}) .
mapping _Coerce
pswUnit :: Lens' ProductShippingWeight (Maybe Text)
pswUnit = lens _pswUnit (\ s a -> s{_pswUnit = a})
instance FromJSON ProductShippingWeight where
parseJSON
= withObject "ProductShippingWeight"
(\ o ->
ProductShippingWeight' <$>
(o .:? "value") <*> (o .:? "unit"))
instance ToJSON ProductShippingWeight where
toJSON ProductShippingWeight'{..}
= object
(catMaybes
[("value" .=) <$> _pswValue,
("unit" .=) <$> _pswUnit])
data AccountstatusesCustomBatchRequestEntry = AccountstatusesCustomBatchRequestEntry'
{ _acbrecMerchantId :: !(Maybe (Textual Word64))
, _acbrecAccountId :: !(Maybe (Textual Word64))
, _acbrecDestinations :: !(Maybe [Text])
, _acbrecMethod :: !(Maybe Text)
, _acbrecBatchId :: !(Maybe (Textual Word32))
} deriving (Eq,Show,Data,Typeable,Generic)
accountstatusesCustomBatchRequestEntry
:: AccountstatusesCustomBatchRequestEntry
accountstatusesCustomBatchRequestEntry =
AccountstatusesCustomBatchRequestEntry'
{ _acbrecMerchantId = Nothing
, _acbrecAccountId = Nothing
, _acbrecDestinations = Nothing
, _acbrecMethod = Nothing
, _acbrecBatchId = Nothing
}
acbrecMerchantId :: Lens' AccountstatusesCustomBatchRequestEntry (Maybe Word64)
acbrecMerchantId
= lens _acbrecMerchantId
(\ s a -> s{_acbrecMerchantId = a})
. mapping _Coerce
acbrecAccountId :: Lens' AccountstatusesCustomBatchRequestEntry (Maybe Word64)
acbrecAccountId
= lens _acbrecAccountId
(\ s a -> s{_acbrecAccountId = a})
. mapping _Coerce
acbrecDestinations :: Lens' AccountstatusesCustomBatchRequestEntry [Text]
acbrecDestinations
= lens _acbrecDestinations
(\ s a -> s{_acbrecDestinations = a})
. _Default
. _Coerce
acbrecMethod :: Lens' AccountstatusesCustomBatchRequestEntry (Maybe Text)
acbrecMethod
= lens _acbrecMethod (\ s a -> s{_acbrecMethod = a})
acbrecBatchId :: Lens' AccountstatusesCustomBatchRequestEntry (Maybe Word32)
acbrecBatchId
= lens _acbrecBatchId
(\ s a -> s{_acbrecBatchId = a})
. mapping _Coerce
instance FromJSON
AccountstatusesCustomBatchRequestEntry where
parseJSON
= withObject "AccountstatusesCustomBatchRequestEntry"
(\ o ->
AccountstatusesCustomBatchRequestEntry' <$>
(o .:? "merchantId") <*> (o .:? "accountId") <*>
(o .:? "destinations" .!= mempty)
<*> (o .:? "method")
<*> (o .:? "batchId"))
instance ToJSON
AccountstatusesCustomBatchRequestEntry where
toJSON AccountstatusesCustomBatchRequestEntry'{..}
= object
(catMaybes
[("merchantId" .=) <$> _acbrecMerchantId,
("accountId" .=) <$> _acbrecAccountId,
("destinations" .=) <$> _acbrecDestinations,
("method" .=) <$> _acbrecMethod,
("batchId" .=) <$> _acbrecBatchId])
data DeliveryTime = DeliveryTime'
{ _dtHolidayCutoffs :: !(Maybe [HolidayCutoff])
, _dtMinTransitTimeInDays :: !(Maybe (Textual Word32))
, _dtCutoffTime :: !(Maybe CutoffTime)
, _dtMinHandlingTimeInDays :: !(Maybe (Textual Word32))
, _dtMaxTransitTimeInDays :: !(Maybe (Textual Word32))
, _dtMaxHandlingTimeInDays :: !(Maybe (Textual Word32))
} deriving (Eq,Show,Data,Typeable,Generic)
deliveryTime
:: DeliveryTime
deliveryTime =
DeliveryTime'
{ _dtHolidayCutoffs = Nothing
, _dtMinTransitTimeInDays = Nothing
, _dtCutoffTime = Nothing
, _dtMinHandlingTimeInDays = Nothing
, _dtMaxTransitTimeInDays = Nothing
, _dtMaxHandlingTimeInDays = Nothing
}
dtHolidayCutoffs :: Lens' DeliveryTime [HolidayCutoff]
dtHolidayCutoffs
= lens _dtHolidayCutoffs
(\ s a -> s{_dtHolidayCutoffs = a})
. _Default
. _Coerce
dtMinTransitTimeInDays :: Lens' DeliveryTime (Maybe Word32)
dtMinTransitTimeInDays
= lens _dtMinTransitTimeInDays
(\ s a -> s{_dtMinTransitTimeInDays = a})
. mapping _Coerce
dtCutoffTime :: Lens' DeliveryTime (Maybe CutoffTime)
dtCutoffTime
= lens _dtCutoffTime (\ s a -> s{_dtCutoffTime = a})
dtMinHandlingTimeInDays :: Lens' DeliveryTime (Maybe Word32)
dtMinHandlingTimeInDays
= lens _dtMinHandlingTimeInDays
(\ s a -> s{_dtMinHandlingTimeInDays = a})
. mapping _Coerce
dtMaxTransitTimeInDays :: Lens' DeliveryTime (Maybe Word32)
dtMaxTransitTimeInDays
= lens _dtMaxTransitTimeInDays
(\ s a -> s{_dtMaxTransitTimeInDays = a})
. mapping _Coerce
dtMaxHandlingTimeInDays :: Lens' DeliveryTime (Maybe Word32)
dtMaxHandlingTimeInDays
= lens _dtMaxHandlingTimeInDays
(\ s a -> s{_dtMaxHandlingTimeInDays = a})
. mapping _Coerce
instance FromJSON DeliveryTime where
parseJSON
= withObject "DeliveryTime"
(\ o ->
DeliveryTime' <$>
(o .:? "holidayCutoffs" .!= mempty) <*>
(o .:? "minTransitTimeInDays")
<*> (o .:? "cutoffTime")
<*> (o .:? "minHandlingTimeInDays")
<*> (o .:? "maxTransitTimeInDays")
<*> (o .:? "maxHandlingTimeInDays"))
instance ToJSON DeliveryTime where
toJSON DeliveryTime'{..}
= object
(catMaybes
[("holidayCutoffs" .=) <$> _dtHolidayCutoffs,
("minTransitTimeInDays" .=) <$>
_dtMinTransitTimeInDays,
("cutoffTime" .=) <$> _dtCutoffTime,
("minHandlingTimeInDays" .=) <$>
_dtMinHandlingTimeInDays,
("maxTransitTimeInDays" .=) <$>
_dtMaxTransitTimeInDays,
("maxHandlingTimeInDays" .=) <$>
_dtMaxHandlingTimeInDays])
data LiaCountrySettings = LiaCountrySettings'
{ _lcsPosDataProvider :: !(Maybe LiaPosDataProvider)
, _lcsCountry :: !(Maybe Text)
, _lcsStorePickupActive :: !(Maybe Bool)
, _lcsInventory :: !(Maybe LiaInventorySettings)
, _lcsAbout :: !(Maybe LiaAboutPageSettings)
, _lcsHostedLocalStorefrontActive :: !(Maybe Bool)
, _lcsOnDisplayToOrder :: !(Maybe LiaOnDisplayToOrderSettings)
} deriving (Eq,Show,Data,Typeable,Generic)
liaCountrySettings
:: LiaCountrySettings
liaCountrySettings =
LiaCountrySettings'
{ _lcsPosDataProvider = Nothing
, _lcsCountry = Nothing
, _lcsStorePickupActive = Nothing
, _lcsInventory = Nothing
, _lcsAbout = Nothing
, _lcsHostedLocalStorefrontActive = Nothing
, _lcsOnDisplayToOrder = Nothing
}
lcsPosDataProvider :: Lens' LiaCountrySettings (Maybe LiaPosDataProvider)
lcsPosDataProvider
= lens _lcsPosDataProvider
(\ s a -> s{_lcsPosDataProvider = a})
lcsCountry :: Lens' LiaCountrySettings (Maybe Text)
lcsCountry
= lens _lcsCountry (\ s a -> s{_lcsCountry = a})
lcsStorePickupActive :: Lens' LiaCountrySettings (Maybe Bool)
lcsStorePickupActive
= lens _lcsStorePickupActive
(\ s a -> s{_lcsStorePickupActive = a})
lcsInventory :: Lens' LiaCountrySettings (Maybe LiaInventorySettings)
lcsInventory
= lens _lcsInventory (\ s a -> s{_lcsInventory = a})
lcsAbout :: Lens' LiaCountrySettings (Maybe LiaAboutPageSettings)
lcsAbout = lens _lcsAbout (\ s a -> s{_lcsAbout = a})
lcsHostedLocalStorefrontActive :: Lens' LiaCountrySettings (Maybe Bool)
lcsHostedLocalStorefrontActive
= lens _lcsHostedLocalStorefrontActive
(\ s a -> s{_lcsHostedLocalStorefrontActive = a})
lcsOnDisplayToOrder :: Lens' LiaCountrySettings (Maybe LiaOnDisplayToOrderSettings)
lcsOnDisplayToOrder
= lens _lcsOnDisplayToOrder
(\ s a -> s{_lcsOnDisplayToOrder = a})
instance FromJSON LiaCountrySettings where
parseJSON
= withObject "LiaCountrySettings"
(\ o ->
LiaCountrySettings' <$>
(o .:? "posDataProvider") <*> (o .:? "country") <*>
(o .:? "storePickupActive")
<*> (o .:? "inventory")
<*> (o .:? "about")
<*> (o .:? "hostedLocalStorefrontActive")
<*> (o .:? "onDisplayToOrder"))
instance ToJSON LiaCountrySettings where
toJSON LiaCountrySettings'{..}
= object
(catMaybes
[("posDataProvider" .=) <$> _lcsPosDataProvider,
("country" .=) <$> _lcsCountry,
("storePickupActive" .=) <$> _lcsStorePickupActive,
("inventory" .=) <$> _lcsInventory,
("about" .=) <$> _lcsAbout,
("hostedLocalStorefrontActive" .=) <$>
_lcsHostedLocalStorefrontActive,
("onDisplayToOrder" .=) <$> _lcsOnDisplayToOrder])
data OrdersReturnRefundLineItemResponse = OrdersReturnRefundLineItemResponse'
{ _orrlirKind :: !Text
, _orrlirExecutionStatus :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
ordersReturnRefundLineItemResponse
:: OrdersReturnRefundLineItemResponse
ordersReturnRefundLineItemResponse =
OrdersReturnRefundLineItemResponse'
{ _orrlirKind = "content#ordersReturnRefundLineItemResponse"
, _orrlirExecutionStatus = Nothing
}
orrlirKind :: Lens' OrdersReturnRefundLineItemResponse Text
orrlirKind
= lens _orrlirKind (\ s a -> s{_orrlirKind = a})
orrlirExecutionStatus :: Lens' OrdersReturnRefundLineItemResponse (Maybe Text)
orrlirExecutionStatus
= lens _orrlirExecutionStatus
(\ s a -> s{_orrlirExecutionStatus = a})
instance FromJSON OrdersReturnRefundLineItemResponse
where
parseJSON
= withObject "OrdersReturnRefundLineItemResponse"
(\ o ->
OrdersReturnRefundLineItemResponse' <$>
(o .:? "kind" .!=
"content#ordersReturnRefundLineItemResponse")
<*> (o .:? "executionStatus"))
instance ToJSON OrdersReturnRefundLineItemResponse
where
toJSON OrdersReturnRefundLineItemResponse'{..}
= object
(catMaybes
[Just ("kind" .= _orrlirKind),
("executionStatus" .=) <$> _orrlirExecutionStatus])
data ProductstatusesCustomBatchResponseEntry = ProductstatusesCustomBatchResponseEntry'
{ _pKind :: !Text
, _pProductStatus :: !(Maybe ProductStatus)
, _pErrors :: !(Maybe Errors)
, _pBatchId :: !(Maybe (Textual Word32))
} deriving (Eq,Show,Data,Typeable,Generic)
productstatusesCustomBatchResponseEntry
:: ProductstatusesCustomBatchResponseEntry
productstatusesCustomBatchResponseEntry =
ProductstatusesCustomBatchResponseEntry'
{ _pKind = "content#productstatusesCustomBatchResponseEntry"
, _pProductStatus = Nothing
, _pErrors = Nothing
, _pBatchId = Nothing
}
pKind :: Lens' ProductstatusesCustomBatchResponseEntry Text
pKind = lens _pKind (\ s a -> s{_pKind = a})
pProductStatus :: Lens' ProductstatusesCustomBatchResponseEntry (Maybe ProductStatus)
pProductStatus
= lens _pProductStatus
(\ s a -> s{_pProductStatus = a})
pErrors :: Lens' ProductstatusesCustomBatchResponseEntry (Maybe Errors)
pErrors = lens _pErrors (\ s a -> s{_pErrors = a})
pBatchId :: Lens' ProductstatusesCustomBatchResponseEntry (Maybe Word32)
pBatchId
= lens _pBatchId (\ s a -> s{_pBatchId = a}) .
mapping _Coerce
instance FromJSON
ProductstatusesCustomBatchResponseEntry where
parseJSON
= withObject
"ProductstatusesCustomBatchResponseEntry"
(\ o ->
ProductstatusesCustomBatchResponseEntry' <$>
(o .:? "kind" .!=
"content#productstatusesCustomBatchResponseEntry")
<*> (o .:? "productStatus")
<*> (o .:? "errors")
<*> (o .:? "batchId"))
instance ToJSON
ProductstatusesCustomBatchResponseEntry where
toJSON ProductstatusesCustomBatchResponseEntry'{..}
= object
(catMaybes
[Just ("kind" .= _pKind),
("productStatus" .=) <$> _pProductStatus,
("errors" .=) <$> _pErrors,
("batchId" .=) <$> _pBatchId])
data ShippingSettingsGetSupportedHolidaysResponse = ShippingSettingsGetSupportedHolidaysResponse'
{ _ssgshrKind :: !Text
, _ssgshrHolidays :: !(Maybe [HolidaysHoliday])
} deriving (Eq,Show,Data,Typeable,Generic)
shippingSettingsGetSupportedHolidaysResponse
:: ShippingSettingsGetSupportedHolidaysResponse
shippingSettingsGetSupportedHolidaysResponse =
ShippingSettingsGetSupportedHolidaysResponse'
{ _ssgshrKind = "content#shippingsettingsGetSupportedHolidaysResponse"
, _ssgshrHolidays = Nothing
}
ssgshrKind :: Lens' ShippingSettingsGetSupportedHolidaysResponse Text
ssgshrKind
= lens _ssgshrKind (\ s a -> s{_ssgshrKind = a})
ssgshrHolidays :: Lens' ShippingSettingsGetSupportedHolidaysResponse [HolidaysHoliday]
ssgshrHolidays
= lens _ssgshrHolidays
(\ s a -> s{_ssgshrHolidays = a})
. _Default
. _Coerce
instance FromJSON
ShippingSettingsGetSupportedHolidaysResponse where
parseJSON
= withObject
"ShippingSettingsGetSupportedHolidaysResponse"
(\ o ->
ShippingSettingsGetSupportedHolidaysResponse' <$>
(o .:? "kind" .!=
"content#shippingsettingsGetSupportedHolidaysResponse")
<*> (o .:? "holidays" .!= mempty))
instance ToJSON
ShippingSettingsGetSupportedHolidaysResponse where
toJSON
ShippingSettingsGetSupportedHolidaysResponse'{..}
= object
(catMaybes
[Just ("kind" .= _ssgshrKind),
("holidays" .=) <$> _ssgshrHolidays])
data LiaPosDataProvider = LiaPosDataProvider'
{ _lpdpPosExternalAccountId :: !(Maybe Text)
, _lpdpPosDataProviderId :: !(Maybe (Textual Word64))
} deriving (Eq,Show,Data,Typeable,Generic)
liaPosDataProvider
:: LiaPosDataProvider
liaPosDataProvider =
LiaPosDataProvider'
{ _lpdpPosExternalAccountId = Nothing
, _lpdpPosDataProviderId = Nothing
}
lpdpPosExternalAccountId :: Lens' LiaPosDataProvider (Maybe Text)
lpdpPosExternalAccountId
= lens _lpdpPosExternalAccountId
(\ s a -> s{_lpdpPosExternalAccountId = a})
lpdpPosDataProviderId :: Lens' LiaPosDataProvider (Maybe Word64)
lpdpPosDataProviderId
= lens _lpdpPosDataProviderId
(\ s a -> s{_lpdpPosDataProviderId = a})
. mapping _Coerce
instance FromJSON LiaPosDataProvider where
parseJSON
= withObject "LiaPosDataProvider"
(\ o ->
LiaPosDataProvider' <$>
(o .:? "posExternalAccountId") <*>
(o .:? "posDataProviderId"))
instance ToJSON LiaPosDataProvider where
toJSON LiaPosDataProvider'{..}
= object
(catMaybes
[("posExternalAccountId" .=) <$>
_lpdpPosExternalAccountId,
("posDataProviderId" .=) <$> _lpdpPosDataProviderId])
data DatafeedFormat = DatafeedFormat'
{ _dfQuotingMode :: !(Maybe Text)
, _dfFileEncoding :: !(Maybe Text)
, _dfColumnDelimiter :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
datafeedFormat
:: DatafeedFormat
datafeedFormat =
DatafeedFormat'
{ _dfQuotingMode = Nothing
, _dfFileEncoding = Nothing
, _dfColumnDelimiter = Nothing
}
dfQuotingMode :: Lens' DatafeedFormat (Maybe Text)
dfQuotingMode
= lens _dfQuotingMode
(\ s a -> s{_dfQuotingMode = a})
dfFileEncoding :: Lens' DatafeedFormat (Maybe Text)
dfFileEncoding
= lens _dfFileEncoding
(\ s a -> s{_dfFileEncoding = a})
dfColumnDelimiter :: Lens' DatafeedFormat (Maybe Text)
dfColumnDelimiter
= lens _dfColumnDelimiter
(\ s a -> s{_dfColumnDelimiter = a})
instance FromJSON DatafeedFormat where
parseJSON
= withObject "DatafeedFormat"
(\ o ->
DatafeedFormat' <$>
(o .:? "quotingMode") <*> (o .:? "fileEncoding") <*>
(o .:? "columnDelimiter"))
instance ToJSON DatafeedFormat where
toJSON DatafeedFormat'{..}
= object
(catMaybes
[("quotingMode" .=) <$> _dfQuotingMode,
("fileEncoding" .=) <$> _dfFileEncoding,
("columnDelimiter" .=) <$> _dfColumnDelimiter])
data LiaSettings = LiaSettings'
{ _lsCountrySettings :: !(Maybe [LiaCountrySettings])
, _lsKind :: !Text
, _lsAccountId :: !(Maybe (Textual Word64))
} deriving (Eq,Show,Data,Typeable,Generic)
liaSettings
:: LiaSettings
liaSettings =
LiaSettings'
{ _lsCountrySettings = Nothing
, _lsKind = "content#liaSettings"
, _lsAccountId = Nothing
}
lsCountrySettings :: Lens' LiaSettings [LiaCountrySettings]
lsCountrySettings
= lens _lsCountrySettings
(\ s a -> s{_lsCountrySettings = a})
. _Default
. _Coerce
lsKind :: Lens' LiaSettings Text
lsKind = lens _lsKind (\ s a -> s{_lsKind = a})
lsAccountId :: Lens' LiaSettings (Maybe Word64)
lsAccountId
= lens _lsAccountId (\ s a -> s{_lsAccountId = a}) .
mapping _Coerce
instance FromJSON LiaSettings where
parseJSON
= withObject "LiaSettings"
(\ o ->
LiaSettings' <$>
(o .:? "countrySettings" .!= mempty) <*>
(o .:? "kind" .!= "content#liaSettings")
<*> (o .:? "accountId"))
instance ToJSON LiaSettings where
toJSON LiaSettings'{..}
= object
(catMaybes
[("countrySettings" .=) <$> _lsCountrySettings,
Just ("kind" .= _lsKind),
("accountId" .=) <$> _lsAccountId])
data ProductShipping = ProductShipping'
{ _pService :: !(Maybe Text)
, _pLocationGroupName :: !(Maybe Text)
, _pCountry :: !(Maybe Text)
, _pPostalCode :: !(Maybe Text)
, _pPrice :: !(Maybe Price)
, _pRegion :: !(Maybe Text)
, _pLocationId :: !(Maybe (Textual Int64))
} deriving (Eq,Show,Data,Typeable,Generic)
productShipping
:: ProductShipping
productShipping =
ProductShipping'
{ _pService = Nothing
, _pLocationGroupName = Nothing
, _pCountry = Nothing
, _pPostalCode = Nothing
, _pPrice = Nothing
, _pRegion = Nothing
, _pLocationId = Nothing
}
pService :: Lens' ProductShipping (Maybe Text)
pService = lens _pService (\ s a -> s{_pService = a})
pLocationGroupName :: Lens' ProductShipping (Maybe Text)
pLocationGroupName
= lens _pLocationGroupName
(\ s a -> s{_pLocationGroupName = a})
pCountry :: Lens' ProductShipping (Maybe Text)
pCountry = lens _pCountry (\ s a -> s{_pCountry = a})
pPostalCode :: Lens' ProductShipping (Maybe Text)
pPostalCode
= lens _pPostalCode (\ s a -> s{_pPostalCode = a})
pPrice :: Lens' ProductShipping (Maybe Price)
pPrice = lens _pPrice (\ s a -> s{_pPrice = a})
pRegion :: Lens' ProductShipping (Maybe Text)
pRegion = lens _pRegion (\ s a -> s{_pRegion = a})
pLocationId :: Lens' ProductShipping (Maybe Int64)
pLocationId
= lens _pLocationId (\ s a -> s{_pLocationId = a}) .
mapping _Coerce
instance FromJSON ProductShipping where
parseJSON
= withObject "ProductShipping"
(\ o ->
ProductShipping' <$>
(o .:? "service") <*> (o .:? "locationGroupName") <*>
(o .:? "country")
<*> (o .:? "postalCode")
<*> (o .:? "price")
<*> (o .:? "region")
<*> (o .:? "locationId"))
instance ToJSON ProductShipping where
toJSON ProductShipping'{..}
= object
(catMaybes
[("service" .=) <$> _pService,
("locationGroupName" .=) <$> _pLocationGroupName,
("country" .=) <$> _pCountry,
("postalCode" .=) <$> _pPostalCode,
("price" .=) <$> _pPrice, ("region" .=) <$> _pRegion,
("locationId" .=) <$> _pLocationId])
newtype ShippingSettingsCustomBatchRequest = ShippingSettingsCustomBatchRequest'
{ _sscbrEntries :: Maybe [ShippingSettingsCustomBatchRequestEntry]
} deriving (Eq,Show,Data,Typeable,Generic)
shippingSettingsCustomBatchRequest
:: ShippingSettingsCustomBatchRequest
shippingSettingsCustomBatchRequest =
ShippingSettingsCustomBatchRequest'
{ _sscbrEntries = Nothing
}
sscbrEntries :: Lens' ShippingSettingsCustomBatchRequest [ShippingSettingsCustomBatchRequestEntry]
sscbrEntries
= lens _sscbrEntries (\ s a -> s{_sscbrEntries = a})
. _Default
. _Coerce
instance FromJSON ShippingSettingsCustomBatchRequest
where
parseJSON
= withObject "ShippingSettingsCustomBatchRequest"
(\ o ->
ShippingSettingsCustomBatchRequest' <$>
(o .:? "entries" .!= mempty))
instance ToJSON ShippingSettingsCustomBatchRequest
where
toJSON ShippingSettingsCustomBatchRequest'{..}
= object
(catMaybes [("entries" .=) <$> _sscbrEntries])
data LiaSettingsCustomBatchResponseEntry = LiaSettingsCustomBatchResponseEntry'
{ _lscbreGmbAccounts :: !(Maybe GmbAccounts)
, _lscbreKind :: !Text
, _lscbreLiaSettings :: !(Maybe LiaSettings)
, _lscbreErrors :: !(Maybe Errors)
, _lscbrePosDataProviders :: !(Maybe [PosDataProviders])
, _lscbreBatchId :: !(Maybe (Textual Word32))
} deriving (Eq,Show,Data,Typeable,Generic)
liaSettingsCustomBatchResponseEntry
:: LiaSettingsCustomBatchResponseEntry
liaSettingsCustomBatchResponseEntry =
LiaSettingsCustomBatchResponseEntry'
{ _lscbreGmbAccounts = Nothing
, _lscbreKind = "content#liasettingsCustomBatchResponseEntry"
, _lscbreLiaSettings = Nothing
, _lscbreErrors = Nothing
, _lscbrePosDataProviders = Nothing
, _lscbreBatchId = Nothing
}
lscbreGmbAccounts :: Lens' LiaSettingsCustomBatchResponseEntry (Maybe GmbAccounts)
lscbreGmbAccounts
= lens _lscbreGmbAccounts
(\ s a -> s{_lscbreGmbAccounts = a})
lscbreKind :: Lens' LiaSettingsCustomBatchResponseEntry Text
lscbreKind
= lens _lscbreKind (\ s a -> s{_lscbreKind = a})
lscbreLiaSettings :: Lens' LiaSettingsCustomBatchResponseEntry (Maybe LiaSettings)
lscbreLiaSettings
= lens _lscbreLiaSettings
(\ s a -> s{_lscbreLiaSettings = a})
lscbreErrors :: Lens' LiaSettingsCustomBatchResponseEntry (Maybe Errors)
lscbreErrors
= lens _lscbreErrors (\ s a -> s{_lscbreErrors = a})
lscbrePosDataProviders :: Lens' LiaSettingsCustomBatchResponseEntry [PosDataProviders]
lscbrePosDataProviders
= lens _lscbrePosDataProviders
(\ s a -> s{_lscbrePosDataProviders = a})
. _Default
. _Coerce
lscbreBatchId :: Lens' LiaSettingsCustomBatchResponseEntry (Maybe Word32)
lscbreBatchId
= lens _lscbreBatchId
(\ s a -> s{_lscbreBatchId = a})
. mapping _Coerce
instance FromJSON LiaSettingsCustomBatchResponseEntry
where
parseJSON
= withObject "LiaSettingsCustomBatchResponseEntry"
(\ o ->
LiaSettingsCustomBatchResponseEntry' <$>
(o .:? "gmbAccounts") <*>
(o .:? "kind" .!=
"content#liasettingsCustomBatchResponseEntry")
<*> (o .:? "liaSettings")
<*> (o .:? "errors")
<*> (o .:? "posDataProviders" .!= mempty)
<*> (o .:? "batchId"))
instance ToJSON LiaSettingsCustomBatchResponseEntry
where
toJSON LiaSettingsCustomBatchResponseEntry'{..}
= object
(catMaybes
[("gmbAccounts" .=) <$> _lscbreGmbAccounts,
Just ("kind" .= _lscbreKind),
("liaSettings" .=) <$> _lscbreLiaSettings,
("errors" .=) <$> _lscbreErrors,
("posDataProviders" .=) <$> _lscbrePosDataProviders,
("batchId" .=) <$> _lscbreBatchId])
newtype AccountsCustomBatchRequest = AccountsCustomBatchRequest'
{ _aEntries :: Maybe [AccountsCustomBatchRequestEntry]
} deriving (Eq,Show,Data,Typeable,Generic)
accountsCustomBatchRequest
:: AccountsCustomBatchRequest
accountsCustomBatchRequest =
AccountsCustomBatchRequest'
{ _aEntries = Nothing
}
aEntries :: Lens' AccountsCustomBatchRequest [AccountsCustomBatchRequestEntry]
aEntries
= lens _aEntries (\ s a -> s{_aEntries = a}) .
_Default
. _Coerce
instance FromJSON AccountsCustomBatchRequest where
parseJSON
= withObject "AccountsCustomBatchRequest"
(\ o ->
AccountsCustomBatchRequest' <$>
(o .:? "entries" .!= mempty))
instance ToJSON AccountsCustomBatchRequest where
toJSON AccountsCustomBatchRequest'{..}
= object (catMaybes [("entries" .=) <$> _aEntries])
data PosCustomBatchResponseEntry = PosCustomBatchResponseEntry'
{ _pcbrecKind :: !Text
, _pcbrecStore :: !(Maybe PosStore)
, _pcbrecInventory :: !(Maybe PosInventory)
, _pcbrecErrors :: !(Maybe Errors)
, _pcbrecSale :: !(Maybe PosSale)
, _pcbrecBatchId :: !(Maybe (Textual Word32))
} deriving (Eq,Show,Data,Typeable,Generic)
posCustomBatchResponseEntry
:: PosCustomBatchResponseEntry
posCustomBatchResponseEntry =
PosCustomBatchResponseEntry'
{ _pcbrecKind = "content#posCustomBatchResponseEntry"
, _pcbrecStore = Nothing
, _pcbrecInventory = Nothing
, _pcbrecErrors = Nothing
, _pcbrecSale = Nothing
, _pcbrecBatchId = Nothing
}
pcbrecKind :: Lens' PosCustomBatchResponseEntry Text
pcbrecKind
= lens _pcbrecKind (\ s a -> s{_pcbrecKind = a})
pcbrecStore :: Lens' PosCustomBatchResponseEntry (Maybe PosStore)
pcbrecStore
= lens _pcbrecStore (\ s a -> s{_pcbrecStore = a})
pcbrecInventory :: Lens' PosCustomBatchResponseEntry (Maybe PosInventory)
pcbrecInventory
= lens _pcbrecInventory
(\ s a -> s{_pcbrecInventory = a})
pcbrecErrors :: Lens' PosCustomBatchResponseEntry (Maybe Errors)
pcbrecErrors
= lens _pcbrecErrors (\ s a -> s{_pcbrecErrors = a})
pcbrecSale :: Lens' PosCustomBatchResponseEntry (Maybe PosSale)
pcbrecSale
= lens _pcbrecSale (\ s a -> s{_pcbrecSale = a})
pcbrecBatchId :: Lens' PosCustomBatchResponseEntry (Maybe Word32)
pcbrecBatchId
= lens _pcbrecBatchId
(\ s a -> s{_pcbrecBatchId = a})
. mapping _Coerce
instance FromJSON PosCustomBatchResponseEntry where
parseJSON
= withObject "PosCustomBatchResponseEntry"
(\ o ->
PosCustomBatchResponseEntry' <$>
(o .:? "kind" .!=
"content#posCustomBatchResponseEntry")
<*> (o .:? "store")
<*> (o .:? "inventory")
<*> (o .:? "errors")
<*> (o .:? "sale")
<*> (o .:? "batchId"))
instance ToJSON PosCustomBatchResponseEntry where
toJSON PosCustomBatchResponseEntry'{..}
= object
(catMaybes
[Just ("kind" .= _pcbrecKind),
("store" .=) <$> _pcbrecStore,
("inventory" .=) <$> _pcbrecInventory,
("errors" .=) <$> _pcbrecErrors,
("sale" .=) <$> _pcbrecSale,
("batchId" .=) <$> _pcbrecBatchId])
data OrderpaymentsNotifyAuthApprovedResponse = OrderpaymentsNotifyAuthApprovedResponse'
{ _onaarKind :: !Text
, _onaarExecutionStatus :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
orderpaymentsNotifyAuthApprovedResponse
:: OrderpaymentsNotifyAuthApprovedResponse
orderpaymentsNotifyAuthApprovedResponse =
OrderpaymentsNotifyAuthApprovedResponse'
{ _onaarKind = "content#orderpaymentsNotifyAuthApprovedResponse"
, _onaarExecutionStatus = Nothing
}
onaarKind :: Lens' OrderpaymentsNotifyAuthApprovedResponse Text
onaarKind
= lens _onaarKind (\ s a -> s{_onaarKind = a})
onaarExecutionStatus :: Lens' OrderpaymentsNotifyAuthApprovedResponse (Maybe Text)
onaarExecutionStatus
= lens _onaarExecutionStatus
(\ s a -> s{_onaarExecutionStatus = a})
instance FromJSON
OrderpaymentsNotifyAuthApprovedResponse where
parseJSON
= withObject
"OrderpaymentsNotifyAuthApprovedResponse"
(\ o ->
OrderpaymentsNotifyAuthApprovedResponse' <$>
(o .:? "kind" .!=
"content#orderpaymentsNotifyAuthApprovedResponse")
<*> (o .:? "executionStatus"))
instance ToJSON
OrderpaymentsNotifyAuthApprovedResponse where
toJSON OrderpaymentsNotifyAuthApprovedResponse'{..}
= object
(catMaybes
[Just ("kind" .= _onaarKind),
("executionStatus" .=) <$> _onaarExecutionStatus])
data OrderinvoicesCustomBatchRequestEntryCreateRefundInvoiceReturnOption = OrderinvoicesCustomBatchRequestEntryCreateRefundInvoiceReturnOption'
{ _oReason :: !(Maybe Text)
, _oDescription :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
orderinvoicesCustomBatchRequestEntryCreateRefundInvoiceReturnOption
:: OrderinvoicesCustomBatchRequestEntryCreateRefundInvoiceReturnOption
orderinvoicesCustomBatchRequestEntryCreateRefundInvoiceReturnOption =
OrderinvoicesCustomBatchRequestEntryCreateRefundInvoiceReturnOption'
{ _oReason = Nothing
, _oDescription = Nothing
}
oReason :: Lens' OrderinvoicesCustomBatchRequestEntryCreateRefundInvoiceReturnOption (Maybe Text)
oReason = lens _oReason (\ s a -> s{_oReason = a})
oDescription :: Lens' OrderinvoicesCustomBatchRequestEntryCreateRefundInvoiceReturnOption (Maybe Text)
oDescription
= lens _oDescription (\ s a -> s{_oDescription = a})
instance FromJSON
OrderinvoicesCustomBatchRequestEntryCreateRefundInvoiceReturnOption
where
parseJSON
= withObject
"OrderinvoicesCustomBatchRequestEntryCreateRefundInvoiceReturnOption"
(\ o ->
OrderinvoicesCustomBatchRequestEntryCreateRefundInvoiceReturnOption'
<$> (o .:? "reason") <*> (o .:? "description"))
instance ToJSON
OrderinvoicesCustomBatchRequestEntryCreateRefundInvoiceReturnOption
where
toJSON
OrderinvoicesCustomBatchRequestEntryCreateRefundInvoiceReturnOption'{..}
= object
(catMaybes
[("reason" .=) <$> _oReason,
("description" .=) <$> _oDescription])
data OrdersListResponse = OrdersListResponse'
{ _oNextPageToken :: !(Maybe Text)
, _oKind :: !Text
, _oResources :: !(Maybe [Order])
} deriving (Eq,Show,Data,Typeable,Generic)
ordersListResponse
:: OrdersListResponse
ordersListResponse =
OrdersListResponse'
{ _oNextPageToken = Nothing
, _oKind = "content#ordersListResponse"
, _oResources = Nothing
}
oNextPageToken :: Lens' OrdersListResponse (Maybe Text)
oNextPageToken
= lens _oNextPageToken
(\ s a -> s{_oNextPageToken = a})
oKind :: Lens' OrdersListResponse Text
oKind = lens _oKind (\ s a -> s{_oKind = a})
oResources :: Lens' OrdersListResponse [Order]
oResources
= lens _oResources (\ s a -> s{_oResources = a}) .
_Default
. _Coerce
instance FromJSON OrdersListResponse where
parseJSON
= withObject "OrdersListResponse"
(\ o ->
OrdersListResponse' <$>
(o .:? "nextPageToken") <*>
(o .:? "kind" .!= "content#ordersListResponse")
<*> (o .:? "resources" .!= mempty))
instance ToJSON OrdersListResponse where
toJSON OrdersListResponse'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _oNextPageToken,
Just ("kind" .= _oKind),
("resources" .=) <$> _oResources])
data OrdersUpdateLineItemShippingDetailsResponse = OrdersUpdateLineItemShippingDetailsResponse'
{ _oulisdrKind :: !Text
, _oulisdrExecutionStatus :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
ordersUpdateLineItemShippingDetailsResponse
:: OrdersUpdateLineItemShippingDetailsResponse
ordersUpdateLineItemShippingDetailsResponse =
OrdersUpdateLineItemShippingDetailsResponse'
{ _oulisdrKind = "content#ordersUpdateLineItemShippingDetailsResponse"
, _oulisdrExecutionStatus = Nothing
}
oulisdrKind :: Lens' OrdersUpdateLineItemShippingDetailsResponse Text
oulisdrKind
= lens _oulisdrKind (\ s a -> s{_oulisdrKind = a})
oulisdrExecutionStatus :: Lens' OrdersUpdateLineItemShippingDetailsResponse (Maybe Text)
oulisdrExecutionStatus
= lens _oulisdrExecutionStatus
(\ s a -> s{_oulisdrExecutionStatus = a})
instance FromJSON
OrdersUpdateLineItemShippingDetailsResponse where
parseJSON
= withObject
"OrdersUpdateLineItemShippingDetailsResponse"
(\ o ->
OrdersUpdateLineItemShippingDetailsResponse' <$>
(o .:? "kind" .!=
"content#ordersUpdateLineItemShippingDetailsResponse")
<*> (o .:? "executionStatus"))
instance ToJSON
OrdersUpdateLineItemShippingDetailsResponse where
toJSON
OrdersUpdateLineItemShippingDetailsResponse'{..}
= object
(catMaybes
[Just ("kind" .= _oulisdrKind),
("executionStatus" .=) <$> _oulisdrExecutionStatus])
data Headers = Headers'
{ _hNumberOfItems :: !(Maybe [Text])
, _hPostalCodeGroupNames :: !(Maybe [Text])
, _hPrices :: !(Maybe [Price])
, _hWeights :: !(Maybe [Weight])
, _hLocations :: !(Maybe [LocationIdSet])
} deriving (Eq,Show,Data,Typeable,Generic)
headers
:: Headers
headers =
Headers'
{ _hNumberOfItems = Nothing
, _hPostalCodeGroupNames = Nothing
, _hPrices = Nothing
, _hWeights = Nothing
, _hLocations = Nothing
}
hNumberOfItems :: Lens' Headers [Text]
hNumberOfItems
= lens _hNumberOfItems
(\ s a -> s{_hNumberOfItems = a})
. _Default
. _Coerce
hPostalCodeGroupNames :: Lens' Headers [Text]
hPostalCodeGroupNames
= lens _hPostalCodeGroupNames
(\ s a -> s{_hPostalCodeGroupNames = a})
. _Default
. _Coerce
hPrices :: Lens' Headers [Price]
hPrices
= lens _hPrices (\ s a -> s{_hPrices = a}) . _Default
. _Coerce
hWeights :: Lens' Headers [Weight]
hWeights
= lens _hWeights (\ s a -> s{_hWeights = a}) .
_Default
. _Coerce
hLocations :: Lens' Headers [LocationIdSet]
hLocations
= lens _hLocations (\ s a -> s{_hLocations = a}) .
_Default
. _Coerce
instance FromJSON Headers where
parseJSON
= withObject "Headers"
(\ o ->
Headers' <$>
(o .:? "numberOfItems" .!= mempty) <*>
(o .:? "postalCodeGroupNames" .!= mempty)
<*> (o .:? "prices" .!= mempty)
<*> (o .:? "weights" .!= mempty)
<*> (o .:? "locations" .!= mempty))
instance ToJSON Headers where
toJSON Headers'{..}
= object
(catMaybes
[("numberOfItems" .=) <$> _hNumberOfItems,
("postalCodeGroupNames" .=) <$>
_hPostalCodeGroupNames,
("prices" .=) <$> _hPrices,
("weights" .=) <$> _hWeights,
("locations" .=) <$> _hLocations])
data UnitInvoiceAdditionalCharge = UnitInvoiceAdditionalCharge'
{ _uiacAdditionalChargePromotions :: !(Maybe [Promotion])
, _uiacAdditionalChargeAmount :: !(Maybe Amount)
, _uiacType :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
unitInvoiceAdditionalCharge
:: UnitInvoiceAdditionalCharge
unitInvoiceAdditionalCharge =
UnitInvoiceAdditionalCharge'
{ _uiacAdditionalChargePromotions = Nothing
, _uiacAdditionalChargeAmount = Nothing
, _uiacType = Nothing
}
uiacAdditionalChargePromotions :: Lens' UnitInvoiceAdditionalCharge [Promotion]
uiacAdditionalChargePromotions
= lens _uiacAdditionalChargePromotions
(\ s a -> s{_uiacAdditionalChargePromotions = a})
. _Default
. _Coerce
uiacAdditionalChargeAmount :: Lens' UnitInvoiceAdditionalCharge (Maybe Amount)
uiacAdditionalChargeAmount
= lens _uiacAdditionalChargeAmount
(\ s a -> s{_uiacAdditionalChargeAmount = a})
uiacType :: Lens' UnitInvoiceAdditionalCharge (Maybe Text)
uiacType = lens _uiacType (\ s a -> s{_uiacType = a})
instance FromJSON UnitInvoiceAdditionalCharge where
parseJSON
= withObject "UnitInvoiceAdditionalCharge"
(\ o ->
UnitInvoiceAdditionalCharge' <$>
(o .:? "additionalChargePromotions" .!= mempty) <*>
(o .:? "additionalChargeAmount")
<*> (o .:? "type"))
instance ToJSON UnitInvoiceAdditionalCharge where
toJSON UnitInvoiceAdditionalCharge'{..}
= object
(catMaybes
[("additionalChargePromotions" .=) <$>
_uiacAdditionalChargePromotions,
("additionalChargeAmount" .=) <$>
_uiacAdditionalChargeAmount,
("type" .=) <$> _uiacType])
data OrdersShipLineItemsResponse = OrdersShipLineItemsResponse'
{ _oslirKind :: !Text
, _oslirExecutionStatus :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
ordersShipLineItemsResponse
:: OrdersShipLineItemsResponse
ordersShipLineItemsResponse =
OrdersShipLineItemsResponse'
{ _oslirKind = "content#ordersShipLineItemsResponse"
, _oslirExecutionStatus = Nothing
}
oslirKind :: Lens' OrdersShipLineItemsResponse Text
oslirKind
= lens _oslirKind (\ s a -> s{_oslirKind = a})
oslirExecutionStatus :: Lens' OrdersShipLineItemsResponse (Maybe Text)
oslirExecutionStatus
= lens _oslirExecutionStatus
(\ s a -> s{_oslirExecutionStatus = a})
instance FromJSON OrdersShipLineItemsResponse where
parseJSON
= withObject "OrdersShipLineItemsResponse"
(\ o ->
OrdersShipLineItemsResponse' <$>
(o .:? "kind" .!=
"content#ordersShipLineItemsResponse")
<*> (o .:? "executionStatus"))
instance ToJSON OrdersShipLineItemsResponse where
toJSON OrdersShipLineItemsResponse'{..}
= object
(catMaybes
[Just ("kind" .= _oslirKind),
("executionStatus" .=) <$> _oslirExecutionStatus])
data UnitInvoiceTaxLine = UnitInvoiceTaxLine'
{ _uitlTaxName :: !(Maybe Text)
, _uitlTaxType :: !(Maybe Text)
, _uitlTaxAmount :: !(Maybe Price)
} deriving (Eq,Show,Data,Typeable,Generic)
unitInvoiceTaxLine
:: UnitInvoiceTaxLine
unitInvoiceTaxLine =
UnitInvoiceTaxLine'
{ _uitlTaxName = Nothing
, _uitlTaxType = Nothing
, _uitlTaxAmount = Nothing
}
uitlTaxName :: Lens' UnitInvoiceTaxLine (Maybe Text)
uitlTaxName
= lens _uitlTaxName (\ s a -> s{_uitlTaxName = a})
uitlTaxType :: Lens' UnitInvoiceTaxLine (Maybe Text)
uitlTaxType
= lens _uitlTaxType (\ s a -> s{_uitlTaxType = a})
uitlTaxAmount :: Lens' UnitInvoiceTaxLine (Maybe Price)
uitlTaxAmount
= lens _uitlTaxAmount
(\ s a -> s{_uitlTaxAmount = a})
instance FromJSON UnitInvoiceTaxLine where
parseJSON
= withObject "UnitInvoiceTaxLine"
(\ o ->
UnitInvoiceTaxLine' <$>
(o .:? "taxName") <*> (o .:? "taxType") <*>
(o .:? "taxAmount"))
instance ToJSON UnitInvoiceTaxLine where
toJSON UnitInvoiceTaxLine'{..}
= object
(catMaybes
[("taxName" .=) <$> _uitlTaxName,
("taxType" .=) <$> _uitlTaxType,
("taxAmount" .=) <$> _uitlTaxAmount])
newtype OrdersCreateTestReturnRequest = OrdersCreateTestReturnRequest'
{ _octrrItems :: Maybe [OrdersCustomBatchRequestEntryCreateTestReturnReturnItem]
} deriving (Eq,Show,Data,Typeable,Generic)
ordersCreateTestReturnRequest
:: OrdersCreateTestReturnRequest
ordersCreateTestReturnRequest =
OrdersCreateTestReturnRequest'
{ _octrrItems = Nothing
}
octrrItems :: Lens' OrdersCreateTestReturnRequest [OrdersCustomBatchRequestEntryCreateTestReturnReturnItem]
octrrItems
= lens _octrrItems (\ s a -> s{_octrrItems = a}) .
_Default
. _Coerce
instance FromJSON OrdersCreateTestReturnRequest where
parseJSON
= withObject "OrdersCreateTestReturnRequest"
(\ o ->
OrdersCreateTestReturnRequest' <$>
(o .:? "items" .!= mempty))
instance ToJSON OrdersCreateTestReturnRequest where
toJSON OrdersCreateTestReturnRequest'{..}
= object (catMaybes [("items" .=) <$> _octrrItems])
data ShippingSettings = ShippingSettings'
{ _ssPostalCodeGroups :: !(Maybe [PostalCodeGroup])
, _ssAccountId :: !(Maybe (Textual Word64))
, _ssServices :: !(Maybe [Service])
} deriving (Eq,Show,Data,Typeable,Generic)
shippingSettings
:: ShippingSettings
shippingSettings =
ShippingSettings'
{ _ssPostalCodeGroups = Nothing
, _ssAccountId = Nothing
, _ssServices = Nothing
}
ssPostalCodeGroups :: Lens' ShippingSettings [PostalCodeGroup]
ssPostalCodeGroups
= lens _ssPostalCodeGroups
(\ s a -> s{_ssPostalCodeGroups = a})
. _Default
. _Coerce
ssAccountId :: Lens' ShippingSettings (Maybe Word64)
ssAccountId
= lens _ssAccountId (\ s a -> s{_ssAccountId = a}) .
mapping _Coerce
ssServices :: Lens' ShippingSettings [Service]
ssServices
= lens _ssServices (\ s a -> s{_ssServices = a}) .
_Default
. _Coerce
instance FromJSON ShippingSettings where
parseJSON
= withObject "ShippingSettings"
(\ o ->
ShippingSettings' <$>
(o .:? "postalCodeGroups" .!= mempty) <*>
(o .:? "accountId")
<*> (o .:? "services" .!= mempty))
instance ToJSON ShippingSettings where
toJSON ShippingSettings'{..}
= object
(catMaybes
[("postalCodeGroups" .=) <$> _ssPostalCodeGroups,
("accountId" .=) <$> _ssAccountId,
("services" .=) <$> _ssServices])
data PostalCodeRange = PostalCodeRange'
{ _pcrPostalCodeRangeBegin :: !(Maybe Text)
, _pcrPostalCodeRangeEnd :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
postalCodeRange
:: PostalCodeRange
postalCodeRange =
PostalCodeRange'
{ _pcrPostalCodeRangeBegin = Nothing
, _pcrPostalCodeRangeEnd = Nothing
}
pcrPostalCodeRangeBegin :: Lens' PostalCodeRange (Maybe Text)
pcrPostalCodeRangeBegin
= lens _pcrPostalCodeRangeBegin
(\ s a -> s{_pcrPostalCodeRangeBegin = a})
pcrPostalCodeRangeEnd :: Lens' PostalCodeRange (Maybe Text)
pcrPostalCodeRangeEnd
= lens _pcrPostalCodeRangeEnd
(\ s a -> s{_pcrPostalCodeRangeEnd = a})
instance FromJSON PostalCodeRange where
parseJSON
= withObject "PostalCodeRange"
(\ o ->
PostalCodeRange' <$>
(o .:? "postalCodeRangeBegin") <*>
(o .:? "postalCodeRangeEnd"))
instance ToJSON PostalCodeRange where
toJSON PostalCodeRange'{..}
= object
(catMaybes
[("postalCodeRangeBegin" .=) <$>
_pcrPostalCodeRangeBegin,
("postalCodeRangeEnd" .=) <$>
_pcrPostalCodeRangeEnd])
data OrdersUpdateShipmentResponse = OrdersUpdateShipmentResponse'
{ _ousrKind :: !Text
, _ousrExecutionStatus :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
ordersUpdateShipmentResponse
:: OrdersUpdateShipmentResponse
ordersUpdateShipmentResponse =
OrdersUpdateShipmentResponse'
{ _ousrKind = "content#ordersUpdateShipmentResponse"
, _ousrExecutionStatus = Nothing
}
ousrKind :: Lens' OrdersUpdateShipmentResponse Text
ousrKind = lens _ousrKind (\ s a -> s{_ousrKind = a})
ousrExecutionStatus :: Lens' OrdersUpdateShipmentResponse (Maybe Text)
ousrExecutionStatus
= lens _ousrExecutionStatus
(\ s a -> s{_ousrExecutionStatus = a})
instance FromJSON OrdersUpdateShipmentResponse where
parseJSON
= withObject "OrdersUpdateShipmentResponse"
(\ o ->
OrdersUpdateShipmentResponse' <$>
(o .:? "kind" .!=
"content#ordersUpdateShipmentResponse")
<*> (o .:? "executionStatus"))
instance ToJSON OrdersUpdateShipmentResponse where
toJSON OrdersUpdateShipmentResponse'{..}
= object
(catMaybes
[Just ("kind" .= _ousrKind),
("executionStatus" .=) <$> _ousrExecutionStatus])
newtype ProductstatusesCustomBatchRequest = ProductstatusesCustomBatchRequest'
{ _pcbrcEntries :: Maybe [ProductstatusesCustomBatchRequestEntry]
} deriving (Eq,Show,Data,Typeable,Generic)
productstatusesCustomBatchRequest
:: ProductstatusesCustomBatchRequest
productstatusesCustomBatchRequest =
ProductstatusesCustomBatchRequest'
{ _pcbrcEntries = Nothing
}
pcbrcEntries :: Lens' ProductstatusesCustomBatchRequest [ProductstatusesCustomBatchRequestEntry]
pcbrcEntries
= lens _pcbrcEntries (\ s a -> s{_pcbrcEntries = a})
. _Default
. _Coerce
instance FromJSON ProductstatusesCustomBatchRequest
where
parseJSON
= withObject "ProductstatusesCustomBatchRequest"
(\ o ->
ProductstatusesCustomBatchRequest' <$>
(o .:? "entries" .!= mempty))
instance ToJSON ProductstatusesCustomBatchRequest
where
toJSON ProductstatusesCustomBatchRequest'{..}
= object
(catMaybes [("entries" .=) <$> _pcbrcEntries])
data AccountYouTubeChannelLink = AccountYouTubeChannelLink'
{ _aytclStatus :: !(Maybe Text)
, _aytclChannelId :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
accountYouTubeChannelLink
:: AccountYouTubeChannelLink
accountYouTubeChannelLink =
AccountYouTubeChannelLink'
{ _aytclStatus = Nothing
, _aytclChannelId = Nothing
}
aytclStatus :: Lens' AccountYouTubeChannelLink (Maybe Text)
aytclStatus
= lens _aytclStatus (\ s a -> s{_aytclStatus = a})
aytclChannelId :: Lens' AccountYouTubeChannelLink (Maybe Text)
aytclChannelId
= lens _aytclChannelId
(\ s a -> s{_aytclChannelId = a})
instance FromJSON AccountYouTubeChannelLink where
parseJSON
= withObject "AccountYouTubeChannelLink"
(\ o ->
AccountYouTubeChannelLink' <$>
(o .:? "status") <*> (o .:? "channelId"))
instance ToJSON AccountYouTubeChannelLink where
toJSON AccountYouTubeChannelLink'{..}
= object
(catMaybes
[("status" .=) <$> _aytclStatus,
("channelId" .=) <$> _aytclChannelId])
data AccountAdsLink = AccountAdsLink'
{ _aalStatus :: !(Maybe Text)
, _aalAdsId :: !(Maybe (Textual Word64))
} deriving (Eq,Show,Data,Typeable,Generic)
accountAdsLink
:: AccountAdsLink
accountAdsLink =
AccountAdsLink'
{ _aalStatus = Nothing
, _aalAdsId = Nothing
}
aalStatus :: Lens' AccountAdsLink (Maybe Text)
aalStatus
= lens _aalStatus (\ s a -> s{_aalStatus = a})
aalAdsId :: Lens' AccountAdsLink (Maybe Word64)
aalAdsId
= lens _aalAdsId (\ s a -> s{_aalAdsId = a}) .
mapping _Coerce
instance FromJSON AccountAdsLink where
parseJSON
= withObject "AccountAdsLink"
(\ o ->
AccountAdsLink' <$>
(o .:? "status") <*> (o .:? "adsId"))
instance ToJSON AccountAdsLink where
toJSON AccountAdsLink'{..}
= object
(catMaybes
[("status" .=) <$> _aalStatus,
("adsId" .=) <$> _aalAdsId])
data LiaAboutPageSettings = LiaAboutPageSettings'
{ _lapsStatus :: !(Maybe Text)
, _lapsURL :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
liaAboutPageSettings
:: LiaAboutPageSettings
liaAboutPageSettings =
LiaAboutPageSettings'
{ _lapsStatus = Nothing
, _lapsURL = Nothing
}
lapsStatus :: Lens' LiaAboutPageSettings (Maybe Text)
lapsStatus
= lens _lapsStatus (\ s a -> s{_lapsStatus = a})
lapsURL :: Lens' LiaAboutPageSettings (Maybe Text)
lapsURL = lens _lapsURL (\ s a -> s{_lapsURL = a})
instance FromJSON LiaAboutPageSettings where
parseJSON
= withObject "LiaAboutPageSettings"
(\ o ->
LiaAboutPageSettings' <$>
(o .:? "status") <*> (o .:? "url"))
instance ToJSON LiaAboutPageSettings where
toJSON LiaAboutPageSettings'{..}
= object
(catMaybes
[("status" .=) <$> _lapsStatus,
("url" .=) <$> _lapsURL])
newtype LiaSettingsCustomBatchRequest = LiaSettingsCustomBatchRequest'
{ _lEntries :: Maybe [LiaSettingsCustomBatchRequestEntry]
} deriving (Eq,Show,Data,Typeable,Generic)
liaSettingsCustomBatchRequest
:: LiaSettingsCustomBatchRequest
liaSettingsCustomBatchRequest =
LiaSettingsCustomBatchRequest'
{ _lEntries = Nothing
}
lEntries :: Lens' LiaSettingsCustomBatchRequest [LiaSettingsCustomBatchRequestEntry]
lEntries
= lens _lEntries (\ s a -> s{_lEntries = a}) .
_Default
. _Coerce
instance FromJSON LiaSettingsCustomBatchRequest where
parseJSON
= withObject "LiaSettingsCustomBatchRequest"
(\ o ->
LiaSettingsCustomBatchRequest' <$>
(o .:? "entries" .!= mempty))
instance ToJSON LiaSettingsCustomBatchRequest where
toJSON LiaSettingsCustomBatchRequest'{..}
= object (catMaybes [("entries" .=) <$> _lEntries])
data CustomAttribute = CustomAttribute'
{ _caGroupValues :: !(Maybe [CustomAttribute])
, _caValue :: !(Maybe Text)
, _caName :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
customAttribute
:: CustomAttribute
customAttribute =
CustomAttribute'
{ _caGroupValues = Nothing
, _caValue = Nothing
, _caName = Nothing
}
caGroupValues :: Lens' CustomAttribute [CustomAttribute]
caGroupValues
= lens _caGroupValues
(\ s a -> s{_caGroupValues = a})
. _Default
. _Coerce
caValue :: Lens' CustomAttribute (Maybe Text)
caValue = lens _caValue (\ s a -> s{_caValue = a})
caName :: Lens' CustomAttribute (Maybe Text)
caName = lens _caName (\ s a -> s{_caName = a})
instance FromJSON CustomAttribute where
parseJSON
= withObject "CustomAttribute"
(\ o ->
CustomAttribute' <$>
(o .:? "groupValues" .!= mempty) <*> (o .:? "value")
<*> (o .:? "name"))
instance ToJSON CustomAttribute where
toJSON CustomAttribute'{..}
= object
(catMaybes
[("groupValues" .=) <$> _caGroupValues,
("value" .=) <$> _caValue, ("name" .=) <$> _caName])
data PosInventoryRequest = PosInventoryRequest'
{ _posStoreCode :: !(Maybe Text)
, _posItemId :: !(Maybe Text)
, _posQuantity :: !(Maybe (Textual Int64))
, _posTargetCountry :: !(Maybe Text)
, _posGtin :: !(Maybe Text)
, _posPrice :: !(Maybe Price)
, _posContentLanguage :: !(Maybe Text)
, _posTimestamp :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
posInventoryRequest
:: PosInventoryRequest
posInventoryRequest =
PosInventoryRequest'
{ _posStoreCode = Nothing
, _posItemId = Nothing
, _posQuantity = Nothing
, _posTargetCountry = Nothing
, _posGtin = Nothing
, _posPrice = Nothing
, _posContentLanguage = Nothing
, _posTimestamp = Nothing
}
posStoreCode :: Lens' PosInventoryRequest (Maybe Text)
posStoreCode
= lens _posStoreCode (\ s a -> s{_posStoreCode = a})
posItemId :: Lens' PosInventoryRequest (Maybe Text)
posItemId
= lens _posItemId (\ s a -> s{_posItemId = a})
posQuantity :: Lens' PosInventoryRequest (Maybe Int64)
posQuantity
= lens _posQuantity (\ s a -> s{_posQuantity = a}) .
mapping _Coerce
posTargetCountry :: Lens' PosInventoryRequest (Maybe Text)
posTargetCountry
= lens _posTargetCountry
(\ s a -> s{_posTargetCountry = a})
posGtin :: Lens' PosInventoryRequest (Maybe Text)
posGtin = lens _posGtin (\ s a -> s{_posGtin = a})
posPrice :: Lens' PosInventoryRequest (Maybe Price)
posPrice = lens _posPrice (\ s a -> s{_posPrice = a})
posContentLanguage :: Lens' PosInventoryRequest (Maybe Text)
posContentLanguage
= lens _posContentLanguage
(\ s a -> s{_posContentLanguage = a})
posTimestamp :: Lens' PosInventoryRequest (Maybe Text)
posTimestamp
= lens _posTimestamp (\ s a -> s{_posTimestamp = a})
instance FromJSON PosInventoryRequest where
parseJSON
= withObject "PosInventoryRequest"
(\ o ->
PosInventoryRequest' <$>
(o .:? "storeCode") <*> (o .:? "itemId") <*>
(o .:? "quantity")
<*> (o .:? "targetCountry")
<*> (o .:? "gtin")
<*> (o .:? "price")
<*> (o .:? "contentLanguage")
<*> (o .:? "timestamp"))
instance ToJSON PosInventoryRequest where
toJSON PosInventoryRequest'{..}
= object
(catMaybes
[("storeCode" .=) <$> _posStoreCode,
("itemId" .=) <$> _posItemId,
("quantity" .=) <$> _posQuantity,
("targetCountry" .=) <$> _posTargetCountry,
("gtin" .=) <$> _posGtin, ("price" .=) <$> _posPrice,
("contentLanguage" .=) <$> _posContentLanguage,
("timestamp" .=) <$> _posTimestamp])
data AccountstatusesCustomBatchResponse = AccountstatusesCustomBatchResponse'
{ _acccEntries :: !(Maybe [AccountstatusesCustomBatchResponseEntry])
, _acccKind :: !Text
} deriving (Eq,Show,Data,Typeable,Generic)
accountstatusesCustomBatchResponse
:: AccountstatusesCustomBatchResponse
accountstatusesCustomBatchResponse =
AccountstatusesCustomBatchResponse'
{ _acccEntries = Nothing
, _acccKind = "content#accountstatusesCustomBatchResponse"
}
acccEntries :: Lens' AccountstatusesCustomBatchResponse [AccountstatusesCustomBatchResponseEntry]
acccEntries
= lens _acccEntries (\ s a -> s{_acccEntries = a}) .
_Default
. _Coerce
acccKind :: Lens' AccountstatusesCustomBatchResponse Text
acccKind = lens _acccKind (\ s a -> s{_acccKind = a})
instance FromJSON AccountstatusesCustomBatchResponse
where
parseJSON
= withObject "AccountstatusesCustomBatchResponse"
(\ o ->
AccountstatusesCustomBatchResponse' <$>
(o .:? "entries" .!= mempty) <*>
(o .:? "kind" .!=
"content#accountstatusesCustomBatchResponse"))
instance ToJSON AccountstatusesCustomBatchResponse
where
toJSON AccountstatusesCustomBatchResponse'{..}
= object
(catMaybes
[("entries" .=) <$> _acccEntries,
Just ("kind" .= _acccKind)])
data ShippingSettingsCustomBatchResponseEntry = ShippingSettingsCustomBatchResponseEntry'
{ _sKind :: !Text
, _sShippingSettings :: !(Maybe ShippingSettings)
, _sErrors :: !(Maybe Errors)
, _sBatchId :: !(Maybe (Textual Word32))
} deriving (Eq,Show,Data,Typeable,Generic)
shippingSettingsCustomBatchResponseEntry
:: ShippingSettingsCustomBatchResponseEntry
shippingSettingsCustomBatchResponseEntry =
ShippingSettingsCustomBatchResponseEntry'
{ _sKind = "content#shippingsettingsCustomBatchResponseEntry"
, _sShippingSettings = Nothing
, _sErrors = Nothing
, _sBatchId = Nothing
}
sKind :: Lens' ShippingSettingsCustomBatchResponseEntry Text
sKind = lens _sKind (\ s a -> s{_sKind = a})
sShippingSettings :: Lens' ShippingSettingsCustomBatchResponseEntry (Maybe ShippingSettings)
sShippingSettings
= lens _sShippingSettings
(\ s a -> s{_sShippingSettings = a})
sErrors :: Lens' ShippingSettingsCustomBatchResponseEntry (Maybe Errors)
sErrors = lens _sErrors (\ s a -> s{_sErrors = a})
sBatchId :: Lens' ShippingSettingsCustomBatchResponseEntry (Maybe Word32)
sBatchId
= lens _sBatchId (\ s a -> s{_sBatchId = a}) .
mapping _Coerce
instance FromJSON
ShippingSettingsCustomBatchResponseEntry where
parseJSON
= withObject
"ShippingSettingsCustomBatchResponseEntry"
(\ o ->
ShippingSettingsCustomBatchResponseEntry' <$>
(o .:? "kind" .!=
"content#shippingsettingsCustomBatchResponseEntry")
<*> (o .:? "shippingSettings")
<*> (o .:? "errors")
<*> (o .:? "batchId"))
instance ToJSON
ShippingSettingsCustomBatchResponseEntry where
toJSON ShippingSettingsCustomBatchResponseEntry'{..}
= object
(catMaybes
[Just ("kind" .= _sKind),
("shippingSettings" .=) <$> _sShippingSettings,
("errors" .=) <$> _sErrors,
("batchId" .=) <$> _sBatchId])
data ProductStatus = ProductStatus'
{ _ppKind :: !Text
, _ppLink :: !(Maybe Text)
, _ppDestinationStatuses :: !(Maybe [ProductStatusDestinationStatus])
, _ppLastUpdateDate :: !(Maybe Text)
, _ppCreationDate :: !(Maybe Text)
, _ppTitle :: !(Maybe Text)
, _ppGoogleExpirationDate :: !(Maybe Text)
, _ppProductId :: !(Maybe Text)
, _ppItemLevelIssues :: !(Maybe [ProductStatusItemLevelIssue])
} deriving (Eq,Show,Data,Typeable,Generic)
productStatus
:: ProductStatus
productStatus =
ProductStatus'
{ _ppKind = "content#productStatus"
, _ppLink = Nothing
, _ppDestinationStatuses = Nothing
, _ppLastUpdateDate = Nothing
, _ppCreationDate = Nothing
, _ppTitle = Nothing
, _ppGoogleExpirationDate = Nothing
, _ppProductId = Nothing
, _ppItemLevelIssues = Nothing
}
ppKind :: Lens' ProductStatus Text
ppKind = lens _ppKind (\ s a -> s{_ppKind = a})
ppLink :: Lens' ProductStatus (Maybe Text)
ppLink = lens _ppLink (\ s a -> s{_ppLink = a})
ppDestinationStatuses :: Lens' ProductStatus [ProductStatusDestinationStatus]
ppDestinationStatuses
= lens _ppDestinationStatuses
(\ s a -> s{_ppDestinationStatuses = a})
. _Default
. _Coerce
ppLastUpdateDate :: Lens' ProductStatus (Maybe Text)
ppLastUpdateDate
= lens _ppLastUpdateDate
(\ s a -> s{_ppLastUpdateDate = a})
ppCreationDate :: Lens' ProductStatus (Maybe Text)
ppCreationDate
= lens _ppCreationDate
(\ s a -> s{_ppCreationDate = a})
ppTitle :: Lens' ProductStatus (Maybe Text)
ppTitle = lens _ppTitle (\ s a -> s{_ppTitle = a})
ppGoogleExpirationDate :: Lens' ProductStatus (Maybe Text)
ppGoogleExpirationDate
= lens _ppGoogleExpirationDate
(\ s a -> s{_ppGoogleExpirationDate = a})
ppProductId :: Lens' ProductStatus (Maybe Text)
ppProductId
= lens _ppProductId (\ s a -> s{_ppProductId = a})
ppItemLevelIssues :: Lens' ProductStatus [ProductStatusItemLevelIssue]
ppItemLevelIssues
= lens _ppItemLevelIssues
(\ s a -> s{_ppItemLevelIssues = a})
. _Default
. _Coerce
instance FromJSON ProductStatus where
parseJSON
= withObject "ProductStatus"
(\ o ->
ProductStatus' <$>
(o .:? "kind" .!= "content#productStatus") <*>
(o .:? "link")
<*> (o .:? "destinationStatuses" .!= mempty)
<*> (o .:? "lastUpdateDate")
<*> (o .:? "creationDate")
<*> (o .:? "title")
<*> (o .:? "googleExpirationDate")
<*> (o .:? "productId")
<*> (o .:? "itemLevelIssues" .!= mempty))
instance ToJSON ProductStatus where
toJSON ProductStatus'{..}
= object
(catMaybes
[Just ("kind" .= _ppKind), ("link" .=) <$> _ppLink,
("destinationStatuses" .=) <$>
_ppDestinationStatuses,
("lastUpdateDate" .=) <$> _ppLastUpdateDate,
("creationDate" .=) <$> _ppCreationDate,
("title" .=) <$> _ppTitle,
("googleExpirationDate" .=) <$>
_ppGoogleExpirationDate,
("productId" .=) <$> _ppProductId,
("itemLevelIssues" .=) <$> _ppItemLevelIssues])
data AccountstatusesListResponse = AccountstatusesListResponse'
{ _alr1NextPageToken :: !(Maybe Text)
, _alr1Kind :: !Text
, _alr1Resources :: !(Maybe [AccountStatus])
} deriving (Eq,Show,Data,Typeable,Generic)
accountstatusesListResponse
:: AccountstatusesListResponse
accountstatusesListResponse =
AccountstatusesListResponse'
{ _alr1NextPageToken = Nothing
, _alr1Kind = "content#accountstatusesListResponse"
, _alr1Resources = Nothing
}
alr1NextPageToken :: Lens' AccountstatusesListResponse (Maybe Text)
alr1NextPageToken
= lens _alr1NextPageToken
(\ s a -> s{_alr1NextPageToken = a})
alr1Kind :: Lens' AccountstatusesListResponse Text
alr1Kind = lens _alr1Kind (\ s a -> s{_alr1Kind = a})
alr1Resources :: Lens' AccountstatusesListResponse [AccountStatus]
alr1Resources
= lens _alr1Resources
(\ s a -> s{_alr1Resources = a})
. _Default
. _Coerce
instance FromJSON AccountstatusesListResponse where
parseJSON
= withObject "AccountstatusesListResponse"
(\ o ->
AccountstatusesListResponse' <$>
(o .:? "nextPageToken") <*>
(o .:? "kind" .!=
"content#accountstatusesListResponse")
<*> (o .:? "resources" .!= mempty))
instance ToJSON AccountstatusesListResponse where
toJSON AccountstatusesListResponse'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _alr1NextPageToken,
Just ("kind" .= _alr1Kind),
("resources" .=) <$> _alr1Resources])
data OrdersSetLineItemMetadataResponse = OrdersSetLineItemMetadataResponse'
{ _oslimrKind :: !Text
, _oslimrExecutionStatus :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
ordersSetLineItemMetadataResponse
:: OrdersSetLineItemMetadataResponse
ordersSetLineItemMetadataResponse =
OrdersSetLineItemMetadataResponse'
{ _oslimrKind = "content#ordersSetLineItemMetadataResponse"
, _oslimrExecutionStatus = Nothing
}
oslimrKind :: Lens' OrdersSetLineItemMetadataResponse Text
oslimrKind
= lens _oslimrKind (\ s a -> s{_oslimrKind = a})
oslimrExecutionStatus :: Lens' OrdersSetLineItemMetadataResponse (Maybe Text)
oslimrExecutionStatus
= lens _oslimrExecutionStatus
(\ s a -> s{_oslimrExecutionStatus = a})
instance FromJSON OrdersSetLineItemMetadataResponse
where
parseJSON
= withObject "OrdersSetLineItemMetadataResponse"
(\ o ->
OrdersSetLineItemMetadataResponse' <$>
(o .:? "kind" .!=
"content#ordersSetLineItemMetadataResponse")
<*> (o .:? "executionStatus"))
instance ToJSON OrdersSetLineItemMetadataResponse
where
toJSON OrdersSetLineItemMetadataResponse'{..}
= object
(catMaybes
[Just ("kind" .= _oslimrKind),
("executionStatus" .=) <$> _oslimrExecutionStatus])
newtype AccounttaxCustomBatchRequest = AccounttaxCustomBatchRequest'
{ _accEntries :: Maybe [AccounttaxCustomBatchRequestEntry]
} deriving (Eq,Show,Data,Typeable,Generic)
accounttaxCustomBatchRequest
:: AccounttaxCustomBatchRequest
accounttaxCustomBatchRequest =
AccounttaxCustomBatchRequest'
{ _accEntries = Nothing
}
accEntries :: Lens' AccounttaxCustomBatchRequest [AccounttaxCustomBatchRequestEntry]
accEntries
= lens _accEntries (\ s a -> s{_accEntries = a}) .
_Default
. _Coerce
instance FromJSON AccounttaxCustomBatchRequest where
parseJSON
= withObject "AccounttaxCustomBatchRequest"
(\ o ->
AccounttaxCustomBatchRequest' <$>
(o .:? "entries" .!= mempty))
instance ToJSON AccounttaxCustomBatchRequest where
toJSON AccounttaxCustomBatchRequest'{..}
= object (catMaybes [("entries" .=) <$> _accEntries])
data ProductsCustomBatchRequestEntry = ProductsCustomBatchRequestEntry'
{ _prorMerchantId :: !(Maybe (Textual Word64))
, _prorMethod :: !(Maybe Text)
, _prorProduct :: !(Maybe Product)
, _prorProductId :: !(Maybe Text)
, _prorBatchId :: !(Maybe (Textual Word32))
} deriving (Eq,Show,Data,Typeable,Generic)
productsCustomBatchRequestEntry
:: ProductsCustomBatchRequestEntry
productsCustomBatchRequestEntry =
ProductsCustomBatchRequestEntry'
{ _prorMerchantId = Nothing
, _prorMethod = Nothing
, _prorProduct = Nothing
, _prorProductId = Nothing
, _prorBatchId = Nothing
}
prorMerchantId :: Lens' ProductsCustomBatchRequestEntry (Maybe Word64)
prorMerchantId
= lens _prorMerchantId
(\ s a -> s{_prorMerchantId = a})
. mapping _Coerce
prorMethod :: Lens' ProductsCustomBatchRequestEntry (Maybe Text)
prorMethod
= lens _prorMethod (\ s a -> s{_prorMethod = a})
prorProduct :: Lens' ProductsCustomBatchRequestEntry (Maybe Product)
prorProduct
= lens _prorProduct (\ s a -> s{_prorProduct = a})
prorProductId :: Lens' ProductsCustomBatchRequestEntry (Maybe Text)
prorProductId
= lens _prorProductId
(\ s a -> s{_prorProductId = a})
prorBatchId :: Lens' ProductsCustomBatchRequestEntry (Maybe Word32)
prorBatchId
= lens _prorBatchId (\ s a -> s{_prorBatchId = a}) .
mapping _Coerce
instance FromJSON ProductsCustomBatchRequestEntry
where
parseJSON
= withObject "ProductsCustomBatchRequestEntry"
(\ o ->
ProductsCustomBatchRequestEntry' <$>
(o .:? "merchantId") <*> (o .:? "method") <*>
(o .:? "product")
<*> (o .:? "productId")
<*> (o .:? "batchId"))
instance ToJSON ProductsCustomBatchRequestEntry where
toJSON ProductsCustomBatchRequestEntry'{..}
= object
(catMaybes
[("merchantId" .=) <$> _prorMerchantId,
("method" .=) <$> _prorMethod,
("product" .=) <$> _prorProduct,
("productId" .=) <$> _prorProductId,
("batchId" .=) <$> _prorBatchId])
data AccountGoogleMyBusinessLink = AccountGoogleMyBusinessLink'
{ _agmblGmbEmail :: !(Maybe Text)
, _agmblStatus :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
accountGoogleMyBusinessLink
:: AccountGoogleMyBusinessLink
accountGoogleMyBusinessLink =
AccountGoogleMyBusinessLink'
{ _agmblGmbEmail = Nothing
, _agmblStatus = Nothing
}
agmblGmbEmail :: Lens' AccountGoogleMyBusinessLink (Maybe Text)
agmblGmbEmail
= lens _agmblGmbEmail
(\ s a -> s{_agmblGmbEmail = a})
agmblStatus :: Lens' AccountGoogleMyBusinessLink (Maybe Text)
agmblStatus
= lens _agmblStatus (\ s a -> s{_agmblStatus = a})
instance FromJSON AccountGoogleMyBusinessLink where
parseJSON
= withObject "AccountGoogleMyBusinessLink"
(\ o ->
AccountGoogleMyBusinessLink' <$>
(o .:? "gmbEmail") <*> (o .:? "status"))
instance ToJSON AccountGoogleMyBusinessLink where
toJSON AccountGoogleMyBusinessLink'{..}
= object
(catMaybes
[("gmbEmail" .=) <$> _agmblGmbEmail,
("status" .=) <$> _agmblStatus])
data DatafeedstatusesCustomBatchRequestEntry = DatafeedstatusesCustomBatchRequestEntry'
{ _dMerchantId :: !(Maybe (Textual Word64))
, _dCountry :: !(Maybe Text)
, _dMethod :: !(Maybe Text)
, _dDatafeedId :: !(Maybe (Textual Word64))
, _dLanguage :: !(Maybe Text)
, _dBatchId :: !(Maybe (Textual Word32))
} deriving (Eq,Show,Data,Typeable,Generic)
datafeedstatusesCustomBatchRequestEntry
:: DatafeedstatusesCustomBatchRequestEntry
datafeedstatusesCustomBatchRequestEntry =
DatafeedstatusesCustomBatchRequestEntry'
{ _dMerchantId = Nothing
, _dCountry = Nothing
, _dMethod = Nothing
, _dDatafeedId = Nothing
, _dLanguage = Nothing
, _dBatchId = Nothing
}
dMerchantId :: Lens' DatafeedstatusesCustomBatchRequestEntry (Maybe Word64)
dMerchantId
= lens _dMerchantId (\ s a -> s{_dMerchantId = a}) .
mapping _Coerce
dCountry :: Lens' DatafeedstatusesCustomBatchRequestEntry (Maybe Text)
dCountry = lens _dCountry (\ s a -> s{_dCountry = a})
dMethod :: Lens' DatafeedstatusesCustomBatchRequestEntry (Maybe Text)
dMethod = lens _dMethod (\ s a -> s{_dMethod = a})
dDatafeedId :: Lens' DatafeedstatusesCustomBatchRequestEntry (Maybe Word64)
dDatafeedId
= lens _dDatafeedId (\ s a -> s{_dDatafeedId = a}) .
mapping _Coerce
dLanguage :: Lens' DatafeedstatusesCustomBatchRequestEntry (Maybe Text)
dLanguage
= lens _dLanguage (\ s a -> s{_dLanguage = a})
dBatchId :: Lens' DatafeedstatusesCustomBatchRequestEntry (Maybe Word32)
dBatchId
= lens _dBatchId (\ s a -> s{_dBatchId = a}) .
mapping _Coerce
instance FromJSON
DatafeedstatusesCustomBatchRequestEntry where
parseJSON
= withObject
"DatafeedstatusesCustomBatchRequestEntry"
(\ o ->
DatafeedstatusesCustomBatchRequestEntry' <$>
(o .:? "merchantId") <*> (o .:? "country") <*>
(o .:? "method")
<*> (o .:? "datafeedId")
<*> (o .:? "language")
<*> (o .:? "batchId"))
instance ToJSON
DatafeedstatusesCustomBatchRequestEntry where
toJSON DatafeedstatusesCustomBatchRequestEntry'{..}
= object
(catMaybes
[("merchantId" .=) <$> _dMerchantId,
("country" .=) <$> _dCountry,
("method" .=) <$> _dMethod,
("datafeedId" .=) <$> _dDatafeedId,
("language" .=) <$> _dLanguage,
("batchId" .=) <$> _dBatchId])
data OrderCustomer = OrderCustomer'
{ _ocFullName :: !(Maybe Text)
, _ocEmail :: !(Maybe Text)
, _ocMarketingRightsInfo :: !(Maybe OrderCustomerMarketingRightsInfo)
} deriving (Eq,Show,Data,Typeable,Generic)
orderCustomer
:: OrderCustomer
orderCustomer =
OrderCustomer'
{ _ocFullName = Nothing
, _ocEmail = Nothing
, _ocMarketingRightsInfo = Nothing
}
ocFullName :: Lens' OrderCustomer (Maybe Text)
ocFullName
= lens _ocFullName (\ s a -> s{_ocFullName = a})
ocEmail :: Lens' OrderCustomer (Maybe Text)
ocEmail = lens _ocEmail (\ s a -> s{_ocEmail = a})
ocMarketingRightsInfo :: Lens' OrderCustomer (Maybe OrderCustomerMarketingRightsInfo)
ocMarketingRightsInfo
= lens _ocMarketingRightsInfo
(\ s a -> s{_ocMarketingRightsInfo = a})
instance FromJSON OrderCustomer where
parseJSON
= withObject "OrderCustomer"
(\ o ->
OrderCustomer' <$>
(o .:? "fullName") <*> (o .:? "email") <*>
(o .:? "marketingRightsInfo"))
instance ToJSON OrderCustomer where
toJSON OrderCustomer'{..}
= object
(catMaybes
[("fullName" .=) <$> _ocFullName,
("email" .=) <$> _ocEmail,
("marketingRightsInfo" .=) <$>
_ocMarketingRightsInfo])
newtype LocationIdSet = LocationIdSet'
{ _lisLocationIds :: Maybe [Text]
} deriving (Eq,Show,Data,Typeable,Generic)
locationIdSet
:: LocationIdSet
locationIdSet =
LocationIdSet'
{ _lisLocationIds = Nothing
}
lisLocationIds :: Lens' LocationIdSet [Text]
lisLocationIds
= lens _lisLocationIds
(\ s a -> s{_lisLocationIds = a})
. _Default
. _Coerce
instance FromJSON LocationIdSet where
parseJSON
= withObject "LocationIdSet"
(\ o ->
LocationIdSet' <$> (o .:? "locationIds" .!= mempty))
instance ToJSON LocationIdSet where
toJSON LocationIdSet'{..}
= object
(catMaybes [("locationIds" .=) <$> _lisLocationIds])
newtype Row = Row'
{ _rCells :: Maybe [Value]
} deriving (Eq,Show,Data,Typeable,Generic)
row
:: Row
row =
Row'
{ _rCells = Nothing
}
rCells :: Lens' Row [Value]
rCells
= lens _rCells (\ s a -> s{_rCells = a}) . _Default .
_Coerce
instance FromJSON Row where
parseJSON
= withObject "Row"
(\ o -> Row' <$> (o .:? "cells" .!= mempty))
instance ToJSON Row where
toJSON Row'{..}
= object (catMaybes [("cells" .=) <$> _rCells])
data OrdersGetByMerchantOrderIdResponse = OrdersGetByMerchantOrderIdResponse'
{ _ogbmoirKind :: !Text
, _ogbmoirOrder :: !(Maybe Order)
} deriving (Eq,Show,Data,Typeable,Generic)
ordersGetByMerchantOrderIdResponse
:: OrdersGetByMerchantOrderIdResponse
ordersGetByMerchantOrderIdResponse =
OrdersGetByMerchantOrderIdResponse'
{ _ogbmoirKind = "content#ordersGetByMerchantOrderIdResponse"
, _ogbmoirOrder = Nothing
}
ogbmoirKind :: Lens' OrdersGetByMerchantOrderIdResponse Text
ogbmoirKind
= lens _ogbmoirKind (\ s a -> s{_ogbmoirKind = a})
ogbmoirOrder :: Lens' OrdersGetByMerchantOrderIdResponse (Maybe Order)
ogbmoirOrder
= lens _ogbmoirOrder (\ s a -> s{_ogbmoirOrder = a})
instance FromJSON OrdersGetByMerchantOrderIdResponse
where
parseJSON
= withObject "OrdersGetByMerchantOrderIdResponse"
(\ o ->
OrdersGetByMerchantOrderIdResponse' <$>
(o .:? "kind" .!=
"content#ordersGetByMerchantOrderIdResponse")
<*> (o .:? "order"))
instance ToJSON OrdersGetByMerchantOrderIdResponse
where
toJSON OrdersGetByMerchantOrderIdResponse'{..}
= object
(catMaybes
[Just ("kind" .= _ogbmoirKind),
("order" .=) <$> _ogbmoirOrder])
data OrdersRejectReturnLineItemRequest = OrdersRejectReturnLineItemRequest'
{ _orrlirQuantity :: !(Maybe (Textual Word32))
, _orrlirLineItemId :: !(Maybe Text)
, _orrlirReason :: !(Maybe Text)
, _orrlirOperationId :: !(Maybe Text)
, _orrlirProductId :: !(Maybe Text)
, _orrlirReasonText :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
ordersRejectReturnLineItemRequest
:: OrdersRejectReturnLineItemRequest
ordersRejectReturnLineItemRequest =
OrdersRejectReturnLineItemRequest'
{ _orrlirQuantity = Nothing
, _orrlirLineItemId = Nothing
, _orrlirReason = Nothing
, _orrlirOperationId = Nothing
, _orrlirProductId = Nothing
, _orrlirReasonText = Nothing
}
orrlirQuantity :: Lens' OrdersRejectReturnLineItemRequest (Maybe Word32)
orrlirQuantity
= lens _orrlirQuantity
(\ s a -> s{_orrlirQuantity = a})
. mapping _Coerce
orrlirLineItemId :: Lens' OrdersRejectReturnLineItemRequest (Maybe Text)
orrlirLineItemId
= lens _orrlirLineItemId
(\ s a -> s{_orrlirLineItemId = a})
orrlirReason :: Lens' OrdersRejectReturnLineItemRequest (Maybe Text)
orrlirReason
= lens _orrlirReason (\ s a -> s{_orrlirReason = a})
orrlirOperationId :: Lens' OrdersRejectReturnLineItemRequest (Maybe Text)
orrlirOperationId
= lens _orrlirOperationId
(\ s a -> s{_orrlirOperationId = a})
orrlirProductId :: Lens' OrdersRejectReturnLineItemRequest (Maybe Text)
orrlirProductId
= lens _orrlirProductId
(\ s a -> s{_orrlirProductId = a})
orrlirReasonText :: Lens' OrdersRejectReturnLineItemRequest (Maybe Text)
orrlirReasonText
= lens _orrlirReasonText
(\ s a -> s{_orrlirReasonText = a})
instance FromJSON OrdersRejectReturnLineItemRequest
where
parseJSON
= withObject "OrdersRejectReturnLineItemRequest"
(\ o ->
OrdersRejectReturnLineItemRequest' <$>
(o .:? "quantity") <*> (o .:? "lineItemId") <*>
(o .:? "reason")
<*> (o .:? "operationId")
<*> (o .:? "productId")
<*> (o .:? "reasonText"))
instance ToJSON OrdersRejectReturnLineItemRequest
where
toJSON OrdersRejectReturnLineItemRequest'{..}
= object
(catMaybes
[("quantity" .=) <$> _orrlirQuantity,
("lineItemId" .=) <$> _orrlirLineItemId,
("reason" .=) <$> _orrlirReason,
("operationId" .=) <$> _orrlirOperationId,
("productId" .=) <$> _orrlirProductId,
("reasonText" .=) <$> _orrlirReasonText])
data OrdersCancelRequest = OrdersCancelRequest'
{ _ocrReason :: !(Maybe Text)
, _ocrOperationId :: !(Maybe Text)
, _ocrReasonText :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
ordersCancelRequest
:: OrdersCancelRequest
ordersCancelRequest =
OrdersCancelRequest'
{ _ocrReason = Nothing
, _ocrOperationId = Nothing
, _ocrReasonText = Nothing
}
ocrReason :: Lens' OrdersCancelRequest (Maybe Text)
ocrReason
= lens _ocrReason (\ s a -> s{_ocrReason = a})
ocrOperationId :: Lens' OrdersCancelRequest (Maybe Text)
ocrOperationId
= lens _ocrOperationId
(\ s a -> s{_ocrOperationId = a})
ocrReasonText :: Lens' OrdersCancelRequest (Maybe Text)
ocrReasonText
= lens _ocrReasonText
(\ s a -> s{_ocrReasonText = a})
instance FromJSON OrdersCancelRequest where
parseJSON
= withObject "OrdersCancelRequest"
(\ o ->
OrdersCancelRequest' <$>
(o .:? "reason") <*> (o .:? "operationId") <*>
(o .:? "reasonText"))
instance ToJSON OrdersCancelRequest where
toJSON OrdersCancelRequest'{..}
= object
(catMaybes
[("reason" .=) <$> _ocrReason,
("operationId" .=) <$> _ocrOperationId,
("reasonText" .=) <$> _ocrReasonText])
data ReturnShipment = ReturnShipment'
{ _rsShipmentTrackingInfos :: !(Maybe [ShipmentTrackingInfo])
, _rsReturnMethodType :: !(Maybe Text)
, _rsShipmentId :: !(Maybe Text)
, _rsCreationDate :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
returnShipment
:: ReturnShipment
returnShipment =
ReturnShipment'
{ _rsShipmentTrackingInfos = Nothing
, _rsReturnMethodType = Nothing
, _rsShipmentId = Nothing
, _rsCreationDate = Nothing
}
rsShipmentTrackingInfos :: Lens' ReturnShipment [ShipmentTrackingInfo]
rsShipmentTrackingInfos
= lens _rsShipmentTrackingInfos
(\ s a -> s{_rsShipmentTrackingInfos = a})
. _Default
. _Coerce
rsReturnMethodType :: Lens' ReturnShipment (Maybe Text)
rsReturnMethodType
= lens _rsReturnMethodType
(\ s a -> s{_rsReturnMethodType = a})
rsShipmentId :: Lens' ReturnShipment (Maybe Text)
rsShipmentId
= lens _rsShipmentId (\ s a -> s{_rsShipmentId = a})
rsCreationDate :: Lens' ReturnShipment (Maybe Text)
rsCreationDate
= lens _rsCreationDate
(\ s a -> s{_rsCreationDate = a})
instance FromJSON ReturnShipment where
parseJSON
= withObject "ReturnShipment"
(\ o ->
ReturnShipment' <$>
(o .:? "shipmentTrackingInfos" .!= mempty) <*>
(o .:? "returnMethodType")
<*> (o .:? "shipmentId")
<*> (o .:? "creationDate"))
instance ToJSON ReturnShipment where
toJSON ReturnShipment'{..}
= object
(catMaybes
[("shipmentTrackingInfos" .=) <$>
_rsShipmentTrackingInfos,
("returnMethodType" .=) <$> _rsReturnMethodType,
("shipmentId" .=) <$> _rsShipmentId,
("creationDate" .=) <$> _rsCreationDate])
newtype OrdersCancelTestOrderByCustomerRequest = OrdersCancelTestOrderByCustomerRequest'
{ _octobcrReason :: Maybe Text
} deriving (Eq,Show,Data,Typeable,Generic)
ordersCancelTestOrderByCustomerRequest
:: OrdersCancelTestOrderByCustomerRequest
ordersCancelTestOrderByCustomerRequest =
OrdersCancelTestOrderByCustomerRequest'
{ _octobcrReason = Nothing
}
octobcrReason :: Lens' OrdersCancelTestOrderByCustomerRequest (Maybe Text)
octobcrReason
= lens _octobcrReason
(\ s a -> s{_octobcrReason = a})
instance FromJSON
OrdersCancelTestOrderByCustomerRequest where
parseJSON
= withObject "OrdersCancelTestOrderByCustomerRequest"
(\ o ->
OrdersCancelTestOrderByCustomerRequest' <$>
(o .:? "reason"))
instance ToJSON
OrdersCancelTestOrderByCustomerRequest where
toJSON OrdersCancelTestOrderByCustomerRequest'{..}
= object
(catMaybes [("reason" .=) <$> _octobcrReason])
data TestOrderCustomerMarketingRightsInfo = TestOrderCustomerMarketingRightsInfo'
{ _tocmriExplicitMarketingPreference :: !(Maybe Text)
, _tocmriLastUpdatedTimestamp :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
testOrderCustomerMarketingRightsInfo
:: TestOrderCustomerMarketingRightsInfo
testOrderCustomerMarketingRightsInfo =
TestOrderCustomerMarketingRightsInfo'
{ _tocmriExplicitMarketingPreference = Nothing
, _tocmriLastUpdatedTimestamp = Nothing
}
tocmriExplicitMarketingPreference :: Lens' TestOrderCustomerMarketingRightsInfo (Maybe Text)
tocmriExplicitMarketingPreference
= lens _tocmriExplicitMarketingPreference
(\ s a -> s{_tocmriExplicitMarketingPreference = a})
tocmriLastUpdatedTimestamp :: Lens' TestOrderCustomerMarketingRightsInfo (Maybe Text)
tocmriLastUpdatedTimestamp
= lens _tocmriLastUpdatedTimestamp
(\ s a -> s{_tocmriLastUpdatedTimestamp = a})
instance FromJSON
TestOrderCustomerMarketingRightsInfo where
parseJSON
= withObject "TestOrderCustomerMarketingRightsInfo"
(\ o ->
TestOrderCustomerMarketingRightsInfo' <$>
(o .:? "explicitMarketingPreference") <*>
(o .:? "lastUpdatedTimestamp"))
instance ToJSON TestOrderCustomerMarketingRightsInfo
where
toJSON TestOrderCustomerMarketingRightsInfo'{..}
= object
(catMaybes
[("explicitMarketingPreference" .=) <$>
_tocmriExplicitMarketingPreference,
("lastUpdatedTimestamp" .=) <$>
_tocmriLastUpdatedTimestamp])
data ProductStatusItemLevelIssue = ProductStatusItemLevelIssue'
{ _psiliDestination :: !(Maybe Text)
, _psiliResolution :: !(Maybe Text)
, _psiliDocumentation :: !(Maybe Text)
, _psiliCode :: !(Maybe Text)
, _psiliServability :: !(Maybe Text)
, _psiliAttributeName :: !(Maybe Text)
, _psiliDescription :: !(Maybe Text)
, _psiliDetail :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
productStatusItemLevelIssue
:: ProductStatusItemLevelIssue
productStatusItemLevelIssue =
ProductStatusItemLevelIssue'
{ _psiliDestination = Nothing
, _psiliResolution = Nothing
, _psiliDocumentation = Nothing
, _psiliCode = Nothing
, _psiliServability = Nothing
, _psiliAttributeName = Nothing
, _psiliDescription = Nothing
, _psiliDetail = Nothing
}
psiliDestination :: Lens' ProductStatusItemLevelIssue (Maybe Text)
psiliDestination
= lens _psiliDestination
(\ s a -> s{_psiliDestination = a})
psiliResolution :: Lens' ProductStatusItemLevelIssue (Maybe Text)
psiliResolution
= lens _psiliResolution
(\ s a -> s{_psiliResolution = a})
psiliDocumentation :: Lens' ProductStatusItemLevelIssue (Maybe Text)
psiliDocumentation
= lens _psiliDocumentation
(\ s a -> s{_psiliDocumentation = a})
psiliCode :: Lens' ProductStatusItemLevelIssue (Maybe Text)
psiliCode
= lens _psiliCode (\ s a -> s{_psiliCode = a})
psiliServability :: Lens' ProductStatusItemLevelIssue (Maybe Text)
psiliServability
= lens _psiliServability
(\ s a -> s{_psiliServability = a})
psiliAttributeName :: Lens' ProductStatusItemLevelIssue (Maybe Text)
psiliAttributeName
= lens _psiliAttributeName
(\ s a -> s{_psiliAttributeName = a})
psiliDescription :: Lens' ProductStatusItemLevelIssue (Maybe Text)
psiliDescription
= lens _psiliDescription
(\ s a -> s{_psiliDescription = a})
psiliDetail :: Lens' ProductStatusItemLevelIssue (Maybe Text)
psiliDetail
= lens _psiliDetail (\ s a -> s{_psiliDetail = a})
instance FromJSON ProductStatusItemLevelIssue where
parseJSON
= withObject "ProductStatusItemLevelIssue"
(\ o ->
ProductStatusItemLevelIssue' <$>
(o .:? "destination") <*> (o .:? "resolution") <*>
(o .:? "documentation")
<*> (o .:? "code")
<*> (o .:? "servability")
<*> (o .:? "attributeName")
<*> (o .:? "description")
<*> (o .:? "detail"))
instance ToJSON ProductStatusItemLevelIssue where
toJSON ProductStatusItemLevelIssue'{..}
= object
(catMaybes
[("destination" .=) <$> _psiliDestination,
("resolution" .=) <$> _psiliResolution,
("documentation" .=) <$> _psiliDocumentation,
("code" .=) <$> _psiliCode,
("servability" .=) <$> _psiliServability,
("attributeName" .=) <$> _psiliAttributeName,
("description" .=) <$> _psiliDescription,
("detail" .=) <$> _psiliDetail])
data OrderLineItemProductVariantAttribute = OrderLineItemProductVariantAttribute'
{ _olipvaDimension :: !(Maybe Text)
, _olipvaValue :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
orderLineItemProductVariantAttribute
:: OrderLineItemProductVariantAttribute
orderLineItemProductVariantAttribute =
OrderLineItemProductVariantAttribute'
{ _olipvaDimension = Nothing
, _olipvaValue = Nothing
}
olipvaDimension :: Lens' OrderLineItemProductVariantAttribute (Maybe Text)
olipvaDimension
= lens _olipvaDimension
(\ s a -> s{_olipvaDimension = a})
olipvaValue :: Lens' OrderLineItemProductVariantAttribute (Maybe Text)
olipvaValue
= lens _olipvaValue (\ s a -> s{_olipvaValue = a})
instance FromJSON
OrderLineItemProductVariantAttribute where
parseJSON
= withObject "OrderLineItemProductVariantAttribute"
(\ o ->
OrderLineItemProductVariantAttribute' <$>
(o .:? "dimension") <*> (o .:? "value"))
instance ToJSON OrderLineItemProductVariantAttribute
where
toJSON OrderLineItemProductVariantAttribute'{..}
= object
(catMaybes
[("dimension" .=) <$> _olipvaDimension,
("value" .=) <$> _olipvaValue])
data RateGroup = RateGroup'
{ _rgCarrierRates :: !(Maybe [CarrierRate])
, _rgName :: !(Maybe Text)
, _rgApplicableShippingLabels :: !(Maybe [Text])
, _rgMainTable :: !(Maybe Table)
, _rgSingleValue :: !(Maybe Value)
, _rgSubtables :: !(Maybe [Table])
} deriving (Eq,Show,Data,Typeable,Generic)
rateGroup
:: RateGroup
rateGroup =
RateGroup'
{ _rgCarrierRates = Nothing
, _rgName = Nothing
, _rgApplicableShippingLabels = Nothing
, _rgMainTable = Nothing
, _rgSingleValue = Nothing
, _rgSubtables = Nothing
}
rgCarrierRates :: Lens' RateGroup [CarrierRate]
rgCarrierRates
= lens _rgCarrierRates
(\ s a -> s{_rgCarrierRates = a})
. _Default
. _Coerce
rgName :: Lens' RateGroup (Maybe Text)
rgName = lens _rgName (\ s a -> s{_rgName = a})
rgApplicableShippingLabels :: Lens' RateGroup [Text]
rgApplicableShippingLabels
= lens _rgApplicableShippingLabels
(\ s a -> s{_rgApplicableShippingLabels = a})
. _Default
. _Coerce
rgMainTable :: Lens' RateGroup (Maybe Table)
rgMainTable
= lens _rgMainTable (\ s a -> s{_rgMainTable = a})
rgSingleValue :: Lens' RateGroup (Maybe Value)
rgSingleValue
= lens _rgSingleValue
(\ s a -> s{_rgSingleValue = a})
rgSubtables :: Lens' RateGroup [Table]
rgSubtables
= lens _rgSubtables (\ s a -> s{_rgSubtables = a}) .
_Default
. _Coerce
instance FromJSON RateGroup where
parseJSON
= withObject "RateGroup"
(\ o ->
RateGroup' <$>
(o .:? "carrierRates" .!= mempty) <*> (o .:? "name")
<*> (o .:? "applicableShippingLabels" .!= mempty)
<*> (o .:? "mainTable")
<*> (o .:? "singleValue")
<*> (o .:? "subtables" .!= mempty))
instance ToJSON RateGroup where
toJSON RateGroup'{..}
= object
(catMaybes
[("carrierRates" .=) <$> _rgCarrierRates,
("name" .=) <$> _rgName,
("applicableShippingLabels" .=) <$>
_rgApplicableShippingLabels,
("mainTable" .=) <$> _rgMainTable,
("singleValue" .=) <$> _rgSingleValue,
("subtables" .=) <$> _rgSubtables])
data OrderPromotion = OrderPromotion'
{ _opShortTitle :: !(Maybe Text)
, _opAppliedItems :: !(Maybe [OrderPromotionItem])
, _opPretaxValue :: !(Maybe Price)
, _opMerchantPromotionId :: !(Maybe Text)
, _opSubtype :: !(Maybe Text)
, _opTitle :: !(Maybe Text)
, _opType :: !(Maybe Text)
, _opApplicableItems :: !(Maybe [OrderPromotionItem])
, _opTaxValue :: !(Maybe Price)
, _opFunder :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
orderPromotion
:: OrderPromotion
orderPromotion =
OrderPromotion'
{ _opShortTitle = Nothing
, _opAppliedItems = Nothing
, _opPretaxValue = Nothing
, _opMerchantPromotionId = Nothing
, _opSubtype = Nothing
, _opTitle = Nothing
, _opType = Nothing
, _opApplicableItems = Nothing
, _opTaxValue = Nothing
, _opFunder = Nothing
}
opShortTitle :: Lens' OrderPromotion (Maybe Text)
opShortTitle
= lens _opShortTitle (\ s a -> s{_opShortTitle = a})
opAppliedItems :: Lens' OrderPromotion [OrderPromotionItem]
opAppliedItems
= lens _opAppliedItems
(\ s a -> s{_opAppliedItems = a})
. _Default
. _Coerce
opPretaxValue :: Lens' OrderPromotion (Maybe Price)
opPretaxValue
= lens _opPretaxValue
(\ s a -> s{_opPretaxValue = a})
opMerchantPromotionId :: Lens' OrderPromotion (Maybe Text)
opMerchantPromotionId
= lens _opMerchantPromotionId
(\ s a -> s{_opMerchantPromotionId = a})
opSubtype :: Lens' OrderPromotion (Maybe Text)
opSubtype
= lens _opSubtype (\ s a -> s{_opSubtype = a})
opTitle :: Lens' OrderPromotion (Maybe Text)
opTitle = lens _opTitle (\ s a -> s{_opTitle = a})
opType :: Lens' OrderPromotion (Maybe Text)
opType = lens _opType (\ s a -> s{_opType = a})
opApplicableItems :: Lens' OrderPromotion [OrderPromotionItem]
opApplicableItems
= lens _opApplicableItems
(\ s a -> s{_opApplicableItems = a})
. _Default
. _Coerce
opTaxValue :: Lens' OrderPromotion (Maybe Price)
opTaxValue
= lens _opTaxValue (\ s a -> s{_opTaxValue = a})
opFunder :: Lens' OrderPromotion (Maybe Text)
opFunder = lens _opFunder (\ s a -> s{_opFunder = a})
instance FromJSON OrderPromotion where
parseJSON
= withObject "OrderPromotion"
(\ o ->
OrderPromotion' <$>
(o .:? "shortTitle") <*>
(o .:? "appliedItems" .!= mempty)
<*> (o .:? "pretaxValue")
<*> (o .:? "merchantPromotionId")
<*> (o .:? "subtype")
<*> (o .:? "title")
<*> (o .:? "type")
<*> (o .:? "applicableItems" .!= mempty)
<*> (o .:? "taxValue")
<*> (o .:? "funder"))
instance ToJSON OrderPromotion where
toJSON OrderPromotion'{..}
= object
(catMaybes
[("shortTitle" .=) <$> _opShortTitle,
("appliedItems" .=) <$> _opAppliedItems,
("pretaxValue" .=) <$> _opPretaxValue,
("merchantPromotionId" .=) <$>
_opMerchantPromotionId,
("subtype" .=) <$> _opSubtype,
("title" .=) <$> _opTitle, ("type" .=) <$> _opType,
("applicableItems" .=) <$> _opApplicableItems,
("taxValue" .=) <$> _opTaxValue,
("funder" .=) <$> _opFunder])
data AccountStatusProducts = AccountStatusProducts'
{ _aspDestination :: !(Maybe Text)
, _aspCountry :: !(Maybe Text)
, _aspChannel :: !(Maybe Text)
, _aspStatistics :: !(Maybe AccountStatusStatistics)
, _aspItemLevelIssues :: !(Maybe [AccountStatusItemLevelIssue])
} deriving (Eq,Show,Data,Typeable,Generic)
accountStatusProducts
:: AccountStatusProducts
accountStatusProducts =
AccountStatusProducts'
{ _aspDestination = Nothing
, _aspCountry = Nothing
, _aspChannel = Nothing
, _aspStatistics = Nothing
, _aspItemLevelIssues = Nothing
}
aspDestination :: Lens' AccountStatusProducts (Maybe Text)
aspDestination
= lens _aspDestination
(\ s a -> s{_aspDestination = a})
aspCountry :: Lens' AccountStatusProducts (Maybe Text)
aspCountry
= lens _aspCountry (\ s a -> s{_aspCountry = a})
aspChannel :: Lens' AccountStatusProducts (Maybe Text)
aspChannel
= lens _aspChannel (\ s a -> s{_aspChannel = a})
aspStatistics :: Lens' AccountStatusProducts (Maybe AccountStatusStatistics)
aspStatistics
= lens _aspStatistics
(\ s a -> s{_aspStatistics = a})
aspItemLevelIssues :: Lens' AccountStatusProducts [AccountStatusItemLevelIssue]
aspItemLevelIssues
= lens _aspItemLevelIssues
(\ s a -> s{_aspItemLevelIssues = a})
. _Default
. _Coerce
instance FromJSON AccountStatusProducts where
parseJSON
= withObject "AccountStatusProducts"
(\ o ->
AccountStatusProducts' <$>
(o .:? "destination") <*> (o .:? "country") <*>
(o .:? "channel")
<*> (o .:? "statistics")
<*> (o .:? "itemLevelIssues" .!= mempty))
instance ToJSON AccountStatusProducts where
toJSON AccountStatusProducts'{..}
= object
(catMaybes
[("destination" .=) <$> _aspDestination,
("country" .=) <$> _aspCountry,
("channel" .=) <$> _aspChannel,
("statistics" .=) <$> _aspStatistics,
("itemLevelIssues" .=) <$> _aspItemLevelIssues])
data Price = Price'
{ _pValue :: !(Maybe Text)
, _pCurrency :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
price
:: Price
price =
Price'
{ _pValue = Nothing
, _pCurrency = Nothing
}
pValue :: Lens' Price (Maybe Text)
pValue = lens _pValue (\ s a -> s{_pValue = a})
pCurrency :: Lens' Price (Maybe Text)
pCurrency
= lens _pCurrency (\ s a -> s{_pCurrency = a})
instance FromJSON Price where
parseJSON
= withObject "Price"
(\ o ->
Price' <$> (o .:? "value") <*> (o .:? "currency"))
instance ToJSON Price where
toJSON Price'{..}
= object
(catMaybes
[("value" .=) <$> _pValue,
("currency" .=) <$> _pCurrency])
data OrderLineItemShippingDetails = OrderLineItemShippingDetails'
{ _olisdShipByDate :: !(Maybe Text)
, _olisdMethod :: !(Maybe OrderLineItemShippingDetailsMethod)
, _olisdDeliverByDate :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
orderLineItemShippingDetails
:: OrderLineItemShippingDetails
orderLineItemShippingDetails =
OrderLineItemShippingDetails'
{ _olisdShipByDate = Nothing
, _olisdMethod = Nothing
, _olisdDeliverByDate = Nothing
}
olisdShipByDate :: Lens' OrderLineItemShippingDetails (Maybe Text)
olisdShipByDate
= lens _olisdShipByDate
(\ s a -> s{_olisdShipByDate = a})
olisdMethod :: Lens' OrderLineItemShippingDetails (Maybe OrderLineItemShippingDetailsMethod)
olisdMethod
= lens _olisdMethod (\ s a -> s{_olisdMethod = a})
olisdDeliverByDate :: Lens' OrderLineItemShippingDetails (Maybe Text)
olisdDeliverByDate
= lens _olisdDeliverByDate
(\ s a -> s{_olisdDeliverByDate = a})
instance FromJSON OrderLineItemShippingDetails where
parseJSON
= withObject "OrderLineItemShippingDetails"
(\ o ->
OrderLineItemShippingDetails' <$>
(o .:? "shipByDate") <*> (o .:? "method") <*>
(o .:? "deliverByDate"))
instance ToJSON OrderLineItemShippingDetails where
toJSON OrderLineItemShippingDetails'{..}
= object
(catMaybes
[("shipByDate" .=) <$> _olisdShipByDate,
("method" .=) <$> _olisdMethod,
("deliverByDate" .=) <$> _olisdDeliverByDate])
data DatafeedsCustomBatchResponse = DatafeedsCustomBatchResponse'
{ _datEntries :: !(Maybe [DatafeedsCustomBatchResponseEntry])
, _datKind :: !Text
} deriving (Eq,Show,Data,Typeable,Generic)
datafeedsCustomBatchResponse
:: DatafeedsCustomBatchResponse
datafeedsCustomBatchResponse =
DatafeedsCustomBatchResponse'
{ _datEntries = Nothing
, _datKind = "content#datafeedsCustomBatchResponse"
}
datEntries :: Lens' DatafeedsCustomBatchResponse [DatafeedsCustomBatchResponseEntry]
datEntries
= lens _datEntries (\ s a -> s{_datEntries = a}) .
_Default
. _Coerce
datKind :: Lens' DatafeedsCustomBatchResponse Text
datKind = lens _datKind (\ s a -> s{_datKind = a})
instance FromJSON DatafeedsCustomBatchResponse where
parseJSON
= withObject "DatafeedsCustomBatchResponse"
(\ o ->
DatafeedsCustomBatchResponse' <$>
(o .:? "entries" .!= mempty) <*>
(o .:? "kind" .!=
"content#datafeedsCustomBatchResponse"))
instance ToJSON DatafeedsCustomBatchResponse where
toJSON DatafeedsCustomBatchResponse'{..}
= object
(catMaybes
[("entries" .=) <$> _datEntries,
Just ("kind" .= _datKind)])
data InvoiceSummary = InvoiceSummary'
{ _isMerchantBalance :: !(Maybe Amount)
, _isCustomerBalance :: !(Maybe Amount)
, _isGoogleBalance :: !(Maybe Amount)
, _isProductTotal :: !(Maybe Amount)
, _isAdditionalChargeSummaries :: !(Maybe [InvoiceSummaryAdditionalChargeSummary])
, _isPromotionSummaries :: !(Maybe [Promotion])
} deriving (Eq,Show,Data,Typeable,Generic)
invoiceSummary
:: InvoiceSummary
invoiceSummary =
InvoiceSummary'
{ _isMerchantBalance = Nothing
, _isCustomerBalance = Nothing
, _isGoogleBalance = Nothing
, _isProductTotal = Nothing
, _isAdditionalChargeSummaries = Nothing
, _isPromotionSummaries = Nothing
}
isMerchantBalance :: Lens' InvoiceSummary (Maybe Amount)
isMerchantBalance
= lens _isMerchantBalance
(\ s a -> s{_isMerchantBalance = a})
isCustomerBalance :: Lens' InvoiceSummary (Maybe Amount)
isCustomerBalance
= lens _isCustomerBalance
(\ s a -> s{_isCustomerBalance = a})
isGoogleBalance :: Lens' InvoiceSummary (Maybe Amount)
isGoogleBalance
= lens _isGoogleBalance
(\ s a -> s{_isGoogleBalance = a})
isProductTotal :: Lens' InvoiceSummary (Maybe Amount)
isProductTotal
= lens _isProductTotal
(\ s a -> s{_isProductTotal = a})
isAdditionalChargeSummaries :: Lens' InvoiceSummary [InvoiceSummaryAdditionalChargeSummary]
isAdditionalChargeSummaries
= lens _isAdditionalChargeSummaries
(\ s a -> s{_isAdditionalChargeSummaries = a})
. _Default
. _Coerce
isPromotionSummaries :: Lens' InvoiceSummary [Promotion]
isPromotionSummaries
= lens _isPromotionSummaries
(\ s a -> s{_isPromotionSummaries = a})
. _Default
. _Coerce
instance FromJSON InvoiceSummary where
parseJSON
= withObject "InvoiceSummary"
(\ o ->
InvoiceSummary' <$>
(o .:? "merchantBalance") <*>
(o .:? "customerBalance")
<*> (o .:? "googleBalance")
<*> (o .:? "productTotal")
<*> (o .:? "additionalChargeSummaries" .!= mempty)
<*> (o .:? "promotionSummaries" .!= mempty))
instance ToJSON InvoiceSummary where
toJSON InvoiceSummary'{..}
= object
(catMaybes
[("merchantBalance" .=) <$> _isMerchantBalance,
("customerBalance" .=) <$> _isCustomerBalance,
("googleBalance" .=) <$> _isGoogleBalance,
("productTotal" .=) <$> _isProductTotal,
("additionalChargeSummaries" .=) <$>
_isAdditionalChargeSummaries,
("promotionSummaries" .=) <$> _isPromotionSummaries])
data OrderpaymentsNotifyChargeResponse = OrderpaymentsNotifyChargeResponse'
{ _oncrKind :: !Text
, _oncrExecutionStatus :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
orderpaymentsNotifyChargeResponse
:: OrderpaymentsNotifyChargeResponse
orderpaymentsNotifyChargeResponse =
OrderpaymentsNotifyChargeResponse'
{ _oncrKind = "content#orderpaymentsNotifyChargeResponse"
, _oncrExecutionStatus = Nothing
}
oncrKind :: Lens' OrderpaymentsNotifyChargeResponse Text
oncrKind = lens _oncrKind (\ s a -> s{_oncrKind = a})
oncrExecutionStatus :: Lens' OrderpaymentsNotifyChargeResponse (Maybe Text)
oncrExecutionStatus
= lens _oncrExecutionStatus
(\ s a -> s{_oncrExecutionStatus = a})
instance FromJSON OrderpaymentsNotifyChargeResponse
where
parseJSON
= withObject "OrderpaymentsNotifyChargeResponse"
(\ o ->
OrderpaymentsNotifyChargeResponse' <$>
(o .:? "kind" .!=
"content#orderpaymentsNotifyChargeResponse")
<*> (o .:? "executionStatus"))
instance ToJSON OrderpaymentsNotifyChargeResponse
where
toJSON OrderpaymentsNotifyChargeResponse'{..}
= object
(catMaybes
[Just ("kind" .= _oncrKind),
("executionStatus" .=) <$> _oncrExecutionStatus])
newtype OrderpaymentsNotifyAuthDeclinedRequest = OrderpaymentsNotifyAuthDeclinedRequest'
{ _onadrDeclineReason :: Maybe Text
} deriving (Eq,Show,Data,Typeable,Generic)
orderpaymentsNotifyAuthDeclinedRequest
:: OrderpaymentsNotifyAuthDeclinedRequest
orderpaymentsNotifyAuthDeclinedRequest =
OrderpaymentsNotifyAuthDeclinedRequest'
{ _onadrDeclineReason = Nothing
}
onadrDeclineReason :: Lens' OrderpaymentsNotifyAuthDeclinedRequest (Maybe Text)
onadrDeclineReason
= lens _onadrDeclineReason
(\ s a -> s{_onadrDeclineReason = a})
instance FromJSON
OrderpaymentsNotifyAuthDeclinedRequest where
parseJSON
= withObject "OrderpaymentsNotifyAuthDeclinedRequest"
(\ o ->
OrderpaymentsNotifyAuthDeclinedRequest' <$>
(o .:? "declineReason"))
instance ToJSON
OrderpaymentsNotifyAuthDeclinedRequest where
toJSON OrderpaymentsNotifyAuthDeclinedRequest'{..}
= object
(catMaybes
[("declineReason" .=) <$> _onadrDeclineReason])
data PosListResponse = PosListResponse'
{ _plrlKind :: !Text
, _plrlResources :: !(Maybe [PosStore])
} deriving (Eq,Show,Data,Typeable,Generic)
posListResponse
:: PosListResponse
posListResponse =
PosListResponse'
{ _plrlKind = "content#posListResponse"
, _plrlResources = Nothing
}
plrlKind :: Lens' PosListResponse Text
plrlKind = lens _plrlKind (\ s a -> s{_plrlKind = a})
plrlResources :: Lens' PosListResponse [PosStore]
plrlResources
= lens _plrlResources
(\ s a -> s{_plrlResources = a})
. _Default
. _Coerce
instance FromJSON PosListResponse where
parseJSON
= withObject "PosListResponse"
(\ o ->
PosListResponse' <$>
(o .:? "kind" .!= "content#posListResponse") <*>
(o .:? "resources" .!= mempty))
instance ToJSON PosListResponse where
toJSON PosListResponse'{..}
= object
(catMaybes
[Just ("kind" .= _plrlKind),
("resources" .=) <$> _plrlResources])
data OrderDeliveryDetails = OrderDeliveryDetails'
{ _oddAddress :: !(Maybe OrderAddress)
, _oddPhoneNumber :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
orderDeliveryDetails
:: OrderDeliveryDetails
orderDeliveryDetails =
OrderDeliveryDetails'
{ _oddAddress = Nothing
, _oddPhoneNumber = Nothing
}
oddAddress :: Lens' OrderDeliveryDetails (Maybe OrderAddress)
oddAddress
= lens _oddAddress (\ s a -> s{_oddAddress = a})
oddPhoneNumber :: Lens' OrderDeliveryDetails (Maybe Text)
oddPhoneNumber
= lens _oddPhoneNumber
(\ s a -> s{_oddPhoneNumber = a})
instance FromJSON OrderDeliveryDetails where
parseJSON
= withObject "OrderDeliveryDetails"
(\ o ->
OrderDeliveryDetails' <$>
(o .:? "address") <*> (o .:? "phoneNumber"))
instance ToJSON OrderDeliveryDetails where
toJSON OrderDeliveryDetails'{..}
= object
(catMaybes
[("address" .=) <$> _oddAddress,
("phoneNumber" .=) <$> _oddPhoneNumber])
data OrderLineItemProductFee = OrderLineItemProductFee'
{ _olipfAmount :: !(Maybe Price)
, _olipfName :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
orderLineItemProductFee
:: OrderLineItemProductFee
orderLineItemProductFee =
OrderLineItemProductFee'
{ _olipfAmount = Nothing
, _olipfName = Nothing
}
olipfAmount :: Lens' OrderLineItemProductFee (Maybe Price)
olipfAmount
= lens _olipfAmount (\ s a -> s{_olipfAmount = a})
olipfName :: Lens' OrderLineItemProductFee (Maybe Text)
olipfName
= lens _olipfName (\ s a -> s{_olipfName = a})
instance FromJSON OrderLineItemProductFee where
parseJSON
= withObject "OrderLineItemProductFee"
(\ o ->
OrderLineItemProductFee' <$>
(o .:? "amount") <*> (o .:? "name"))
instance ToJSON OrderLineItemProductFee where
toJSON OrderLineItemProductFee'{..}
= object
(catMaybes
[("amount" .=) <$> _olipfAmount,
("name" .=) <$> _olipfName])
data OrdersCancelResponse = OrdersCancelResponse'
{ _ocrKind :: !Text
, _ocrExecutionStatus :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
ordersCancelResponse
:: OrdersCancelResponse
ordersCancelResponse =
OrdersCancelResponse'
{ _ocrKind = "content#ordersCancelResponse"
, _ocrExecutionStatus = Nothing
}
ocrKind :: Lens' OrdersCancelResponse Text
ocrKind = lens _ocrKind (\ s a -> s{_ocrKind = a})
ocrExecutionStatus :: Lens' OrdersCancelResponse (Maybe Text)
ocrExecutionStatus
= lens _ocrExecutionStatus
(\ s a -> s{_ocrExecutionStatus = a})
instance FromJSON OrdersCancelResponse where
parseJSON
= withObject "OrdersCancelResponse"
(\ o ->
OrdersCancelResponse' <$>
(o .:? "kind" .!= "content#ordersCancelResponse") <*>
(o .:? "executionStatus"))
instance ToJSON OrdersCancelResponse where
toJSON OrdersCancelResponse'{..}
= object
(catMaybes
[Just ("kind" .= _ocrKind),
("executionStatus" .=) <$> _ocrExecutionStatus])
data OrdersSetLineItemMetadataRequest = OrdersSetLineItemMetadataRequest'
{ _oslimrAnnotations :: !(Maybe [OrderMerchantProvidedAnnotation])
, _oslimrLineItemId :: !(Maybe Text)
, _oslimrOperationId :: !(Maybe Text)
, _oslimrProductId :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
ordersSetLineItemMetadataRequest
:: OrdersSetLineItemMetadataRequest
ordersSetLineItemMetadataRequest =
OrdersSetLineItemMetadataRequest'
{ _oslimrAnnotations = Nothing
, _oslimrLineItemId = Nothing
, _oslimrOperationId = Nothing
, _oslimrProductId = Nothing
}
oslimrAnnotations :: Lens' OrdersSetLineItemMetadataRequest [OrderMerchantProvidedAnnotation]
oslimrAnnotations
= lens _oslimrAnnotations
(\ s a -> s{_oslimrAnnotations = a})
. _Default
. _Coerce
oslimrLineItemId :: Lens' OrdersSetLineItemMetadataRequest (Maybe Text)
oslimrLineItemId
= lens _oslimrLineItemId
(\ s a -> s{_oslimrLineItemId = a})
oslimrOperationId :: Lens' OrdersSetLineItemMetadataRequest (Maybe Text)
oslimrOperationId
= lens _oslimrOperationId
(\ s a -> s{_oslimrOperationId = a})
oslimrProductId :: Lens' OrdersSetLineItemMetadataRequest (Maybe Text)
oslimrProductId
= lens _oslimrProductId
(\ s a -> s{_oslimrProductId = a})
instance FromJSON OrdersSetLineItemMetadataRequest
where
parseJSON
= withObject "OrdersSetLineItemMetadataRequest"
(\ o ->
OrdersSetLineItemMetadataRequest' <$>
(o .:? "annotations" .!= mempty) <*>
(o .:? "lineItemId")
<*> (o .:? "operationId")
<*> (o .:? "productId"))
instance ToJSON OrdersSetLineItemMetadataRequest
where
toJSON OrdersSetLineItemMetadataRequest'{..}
= object
(catMaybes
[("annotations" .=) <$> _oslimrAnnotations,
("lineItemId" .=) <$> _oslimrLineItemId,
("operationId" .=) <$> _oslimrOperationId,
("productId" .=) <$> _oslimrProductId])
data OrdersRejectReturnLineItemResponse = OrdersRejectReturnLineItemResponse'
{ _ordKind :: !Text
, _ordExecutionStatus :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
ordersRejectReturnLineItemResponse
:: OrdersRejectReturnLineItemResponse
ordersRejectReturnLineItemResponse =
OrdersRejectReturnLineItemResponse'
{ _ordKind = "content#ordersRejectReturnLineItemResponse"
, _ordExecutionStatus = Nothing
}
ordKind :: Lens' OrdersRejectReturnLineItemResponse Text
ordKind = lens _ordKind (\ s a -> s{_ordKind = a})
ordExecutionStatus :: Lens' OrdersRejectReturnLineItemResponse (Maybe Text)
ordExecutionStatus
= lens _ordExecutionStatus
(\ s a -> s{_ordExecutionStatus = a})
instance FromJSON OrdersRejectReturnLineItemResponse
where
parseJSON
= withObject "OrdersRejectReturnLineItemResponse"
(\ o ->
OrdersRejectReturnLineItemResponse' <$>
(o .:? "kind" .!=
"content#ordersRejectReturnLineItemResponse")
<*> (o .:? "executionStatus"))
instance ToJSON OrdersRejectReturnLineItemResponse
where
toJSON OrdersRejectReturnLineItemResponse'{..}
= object
(catMaybes
[Just ("kind" .= _ordKind),
("executionStatus" .=) <$> _ordExecutionStatus])
data TestOrder = TestOrder'
{ _toKind :: !Text
, _toLineItems :: !(Maybe [TestOrderLineItem])
, _toShippingOption :: !(Maybe Text)
, _toPredefinedDeliveryAddress :: !(Maybe Text)
, _toShippingCostTax :: !(Maybe Price)
, _toCustomer :: !(Maybe TestOrderCustomer)
, _toEnableOrderinvoices :: !(Maybe Bool)
, _toPromotions :: !(Maybe [OrderPromotion])
, _toPredefinedBillingAddress :: !(Maybe Text)
, _toNotificationMode :: !(Maybe Text)
, _toShippingCost :: !(Maybe Price)
} deriving (Eq,Show,Data,Typeable,Generic)
testOrder
:: TestOrder
testOrder =
TestOrder'
{ _toKind = "content#testOrder"
, _toLineItems = Nothing
, _toShippingOption = Nothing
, _toPredefinedDeliveryAddress = Nothing
, _toShippingCostTax = Nothing
, _toCustomer = Nothing
, _toEnableOrderinvoices = Nothing
, _toPromotions = Nothing
, _toPredefinedBillingAddress = Nothing
, _toNotificationMode = Nothing
, _toShippingCost = Nothing
}
toKind :: Lens' TestOrder Text
toKind = lens _toKind (\ s a -> s{_toKind = a})
toLineItems :: Lens' TestOrder [TestOrderLineItem]
toLineItems
= lens _toLineItems (\ s a -> s{_toLineItems = a}) .
_Default
. _Coerce
toShippingOption :: Lens' TestOrder (Maybe Text)
toShippingOption
= lens _toShippingOption
(\ s a -> s{_toShippingOption = a})
toPredefinedDeliveryAddress :: Lens' TestOrder (Maybe Text)
toPredefinedDeliveryAddress
= lens _toPredefinedDeliveryAddress
(\ s a -> s{_toPredefinedDeliveryAddress = a})
toShippingCostTax :: Lens' TestOrder (Maybe Price)
toShippingCostTax
= lens _toShippingCostTax
(\ s a -> s{_toShippingCostTax = a})
toCustomer :: Lens' TestOrder (Maybe TestOrderCustomer)
toCustomer
= lens _toCustomer (\ s a -> s{_toCustomer = a})
toEnableOrderinvoices :: Lens' TestOrder (Maybe Bool)
toEnableOrderinvoices
= lens _toEnableOrderinvoices
(\ s a -> s{_toEnableOrderinvoices = a})
toPromotions :: Lens' TestOrder [OrderPromotion]
toPromotions
= lens _toPromotions (\ s a -> s{_toPromotions = a})
. _Default
. _Coerce
toPredefinedBillingAddress :: Lens' TestOrder (Maybe Text)
toPredefinedBillingAddress
= lens _toPredefinedBillingAddress
(\ s a -> s{_toPredefinedBillingAddress = a})
toNotificationMode :: Lens' TestOrder (Maybe Text)
toNotificationMode
= lens _toNotificationMode
(\ s a -> s{_toNotificationMode = a})
toShippingCost :: Lens' TestOrder (Maybe Price)
toShippingCost
= lens _toShippingCost
(\ s a -> s{_toShippingCost = a})
instance FromJSON TestOrder where
parseJSON
= withObject "TestOrder"
(\ o ->
TestOrder' <$>
(o .:? "kind" .!= "content#testOrder") <*>
(o .:? "lineItems" .!= mempty)
<*> (o .:? "shippingOption")
<*> (o .:? "predefinedDeliveryAddress")
<*> (o .:? "shippingCostTax")
<*> (o .:? "customer")
<*> (o .:? "enableOrderinvoices")
<*> (o .:? "promotions" .!= mempty)
<*> (o .:? "predefinedBillingAddress")
<*> (o .:? "notificationMode")
<*> (o .:? "shippingCost"))
instance ToJSON TestOrder where
toJSON TestOrder'{..}
= object
(catMaybes
[Just ("kind" .= _toKind),
("lineItems" .=) <$> _toLineItems,
("shippingOption" .=) <$> _toShippingOption,
("predefinedDeliveryAddress" .=) <$>
_toPredefinedDeliveryAddress,
("shippingCostTax" .=) <$> _toShippingCostTax,
("customer" .=) <$> _toCustomer,
("enableOrderinvoices" .=) <$>
_toEnableOrderinvoices,
("promotions" .=) <$> _toPromotions,
("predefinedBillingAddress" .=) <$>
_toPredefinedBillingAddress,
("notificationMode" .=) <$> _toNotificationMode,
("shippingCost" .=) <$> _toShippingCost])
data CutoffTime = CutoffTime'
{ _ctHour :: !(Maybe (Textual Word32))
, _ctTimezone :: !(Maybe Text)
, _ctMinute :: !(Maybe (Textual Word32))
} deriving (Eq,Show,Data,Typeable,Generic)
cutoffTime
:: CutoffTime
cutoffTime =
CutoffTime'
{ _ctHour = Nothing
, _ctTimezone = Nothing
, _ctMinute = Nothing
}
ctHour :: Lens' CutoffTime (Maybe Word32)
ctHour
= lens _ctHour (\ s a -> s{_ctHour = a}) .
mapping _Coerce
ctTimezone :: Lens' CutoffTime (Maybe Text)
ctTimezone
= lens _ctTimezone (\ s a -> s{_ctTimezone = a})
ctMinute :: Lens' CutoffTime (Maybe Word32)
ctMinute
= lens _ctMinute (\ s a -> s{_ctMinute = a}) .
mapping _Coerce
instance FromJSON CutoffTime where
parseJSON
= withObject "CutoffTime"
(\ o ->
CutoffTime' <$>
(o .:? "hour") <*> (o .:? "timezone") <*>
(o .:? "minute"))
instance ToJSON CutoffTime where
toJSON CutoffTime'{..}
= object
(catMaybes
[("hour" .=) <$> _ctHour,
("timezone" .=) <$> _ctTimezone,
("minute" .=) <$> _ctMinute])
data DatafeedstatusesCustomBatchResponseEntry = DatafeedstatusesCustomBatchResponseEntry'
{ _datErrors :: !(Maybe Errors)
, _datDatafeedStatus :: !(Maybe DatafeedStatus)
, _datBatchId :: !(Maybe (Textual Word32))
} deriving (Eq,Show,Data,Typeable,Generic)
datafeedstatusesCustomBatchResponseEntry
:: DatafeedstatusesCustomBatchResponseEntry
datafeedstatusesCustomBatchResponseEntry =
DatafeedstatusesCustomBatchResponseEntry'
{ _datErrors = Nothing
, _datDatafeedStatus = Nothing
, _datBatchId = Nothing
}
datErrors :: Lens' DatafeedstatusesCustomBatchResponseEntry (Maybe Errors)
datErrors
= lens _datErrors (\ s a -> s{_datErrors = a})
datDatafeedStatus :: Lens' DatafeedstatusesCustomBatchResponseEntry (Maybe DatafeedStatus)
datDatafeedStatus
= lens _datDatafeedStatus
(\ s a -> s{_datDatafeedStatus = a})
datBatchId :: Lens' DatafeedstatusesCustomBatchResponseEntry (Maybe Word32)
datBatchId
= lens _datBatchId (\ s a -> s{_datBatchId = a}) .
mapping _Coerce
instance FromJSON
DatafeedstatusesCustomBatchResponseEntry where
parseJSON
= withObject
"DatafeedstatusesCustomBatchResponseEntry"
(\ o ->
DatafeedstatusesCustomBatchResponseEntry' <$>
(o .:? "errors") <*> (o .:? "datafeedStatus") <*>
(o .:? "batchId"))
instance ToJSON
DatafeedstatusesCustomBatchResponseEntry where
toJSON DatafeedstatusesCustomBatchResponseEntry'{..}
= object
(catMaybes
[("errors" .=) <$> _datErrors,
("datafeedStatus" .=) <$> _datDatafeedStatus,
("batchId" .=) <$> _datBatchId])
data OrderRefund = OrderRefund'
{ _ordAmount :: !(Maybe Price)
, _ordActor :: !(Maybe Text)
, _ordReason :: !(Maybe Text)
, _ordCreationDate :: !(Maybe Text)
, _ordReasonText :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
orderRefund
:: OrderRefund
orderRefund =
OrderRefund'
{ _ordAmount = Nothing
, _ordActor = Nothing
, _ordReason = Nothing
, _ordCreationDate = Nothing
, _ordReasonText = Nothing
}
ordAmount :: Lens' OrderRefund (Maybe Price)
ordAmount
= lens _ordAmount (\ s a -> s{_ordAmount = a})
ordActor :: Lens' OrderRefund (Maybe Text)
ordActor = lens _ordActor (\ s a -> s{_ordActor = a})
ordReason :: Lens' OrderRefund (Maybe Text)
ordReason
= lens _ordReason (\ s a -> s{_ordReason = a})
ordCreationDate :: Lens' OrderRefund (Maybe Text)
ordCreationDate
= lens _ordCreationDate
(\ s a -> s{_ordCreationDate = a})
ordReasonText :: Lens' OrderRefund (Maybe Text)
ordReasonText
= lens _ordReasonText
(\ s a -> s{_ordReasonText = a})
instance FromJSON OrderRefund where
parseJSON
= withObject "OrderRefund"
(\ o ->
OrderRefund' <$>
(o .:? "amount") <*> (o .:? "actor") <*>
(o .:? "reason")
<*> (o .:? "creationDate")
<*> (o .:? "reasonText"))
instance ToJSON OrderRefund where
toJSON OrderRefund'{..}
= object
(catMaybes
[("amount" .=) <$> _ordAmount,
("actor" .=) <$> _ordActor,
("reason" .=) <$> _ordReason,
("creationDate" .=) <$> _ordCreationDate,
("reasonText" .=) <$> _ordReasonText])
data TestOrderLineItemProduct = TestOrderLineItemProduct'
{ _tolipImageLink :: !(Maybe Text)
, _tolipChannel :: !(Maybe Text)
, _tolipBrand :: !(Maybe Text)
, _tolipTargetCountry :: !(Maybe Text)
, _tolipGtin :: !(Maybe Text)
, _tolipItemGroupId :: !(Maybe Text)
, _tolipOfferId :: !(Maybe Text)
, _tolipPrice :: !(Maybe Price)
, _tolipVariantAttributes :: !(Maybe [OrderLineItemProductVariantAttribute])
, _tolipTitle :: !(Maybe Text)
, _tolipContentLanguage :: !(Maybe Text)
, _tolipMpn :: !(Maybe Text)
, _tolipCondition :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
testOrderLineItemProduct
:: TestOrderLineItemProduct
testOrderLineItemProduct =
TestOrderLineItemProduct'
{ _tolipImageLink = Nothing
, _tolipChannel = Nothing
, _tolipBrand = Nothing
, _tolipTargetCountry = Nothing
, _tolipGtin = Nothing
, _tolipItemGroupId = Nothing
, _tolipOfferId = Nothing
, _tolipPrice = Nothing
, _tolipVariantAttributes = Nothing
, _tolipTitle = Nothing
, _tolipContentLanguage = Nothing
, _tolipMpn = Nothing
, _tolipCondition = Nothing
}
tolipImageLink :: Lens' TestOrderLineItemProduct (Maybe Text)
tolipImageLink
= lens _tolipImageLink
(\ s a -> s{_tolipImageLink = a})
tolipChannel :: Lens' TestOrderLineItemProduct (Maybe Text)
tolipChannel
= lens _tolipChannel (\ s a -> s{_tolipChannel = a})
tolipBrand :: Lens' TestOrderLineItemProduct (Maybe Text)
tolipBrand
= lens _tolipBrand (\ s a -> s{_tolipBrand = a})
tolipTargetCountry :: Lens' TestOrderLineItemProduct (Maybe Text)
tolipTargetCountry
= lens _tolipTargetCountry
(\ s a -> s{_tolipTargetCountry = a})
tolipGtin :: Lens' TestOrderLineItemProduct (Maybe Text)
tolipGtin
= lens _tolipGtin (\ s a -> s{_tolipGtin = a})
tolipItemGroupId :: Lens' TestOrderLineItemProduct (Maybe Text)
tolipItemGroupId
= lens _tolipItemGroupId
(\ s a -> s{_tolipItemGroupId = a})
tolipOfferId :: Lens' TestOrderLineItemProduct (Maybe Text)
tolipOfferId
= lens _tolipOfferId (\ s a -> s{_tolipOfferId = a})
tolipPrice :: Lens' TestOrderLineItemProduct (Maybe Price)
tolipPrice
= lens _tolipPrice (\ s a -> s{_tolipPrice = a})
tolipVariantAttributes :: Lens' TestOrderLineItemProduct [OrderLineItemProductVariantAttribute]
tolipVariantAttributes
= lens _tolipVariantAttributes
(\ s a -> s{_tolipVariantAttributes = a})
. _Default
. _Coerce
tolipTitle :: Lens' TestOrderLineItemProduct (Maybe Text)
tolipTitle
= lens _tolipTitle (\ s a -> s{_tolipTitle = a})
tolipContentLanguage :: Lens' TestOrderLineItemProduct (Maybe Text)
tolipContentLanguage
= lens _tolipContentLanguage
(\ s a -> s{_tolipContentLanguage = a})
tolipMpn :: Lens' TestOrderLineItemProduct (Maybe Text)
tolipMpn = lens _tolipMpn (\ s a -> s{_tolipMpn = a})
tolipCondition :: Lens' TestOrderLineItemProduct (Maybe Text)
tolipCondition
= lens _tolipCondition
(\ s a -> s{_tolipCondition = a})
instance FromJSON TestOrderLineItemProduct where
parseJSON
= withObject "TestOrderLineItemProduct"
(\ o ->
TestOrderLineItemProduct' <$>
(o .:? "imageLink") <*> (o .:? "channel") <*>
(o .:? "brand")
<*> (o .:? "targetCountry")
<*> (o .:? "gtin")
<*> (o .:? "itemGroupId")
<*> (o .:? "offerId")
<*> (o .:? "price")
<*> (o .:? "variantAttributes" .!= mempty)
<*> (o .:? "title")
<*> (o .:? "contentLanguage")
<*> (o .:? "mpn")
<*> (o .:? "condition"))
instance ToJSON TestOrderLineItemProduct where
toJSON TestOrderLineItemProduct'{..}
= object
(catMaybes
[("imageLink" .=) <$> _tolipImageLink,
("channel" .=) <$> _tolipChannel,
("brand" .=) <$> _tolipBrand,
("targetCountry" .=) <$> _tolipTargetCountry,
("gtin" .=) <$> _tolipGtin,
("itemGroupId" .=) <$> _tolipItemGroupId,
("offerId" .=) <$> _tolipOfferId,
("price" .=) <$> _tolipPrice,
("variantAttributes" .=) <$> _tolipVariantAttributes,
("title" .=) <$> _tolipTitle,
("contentLanguage" .=) <$> _tolipContentLanguage,
("mpn" .=) <$> _tolipMpn,
("condition" .=) <$> _tolipCondition])
data AccounttaxCustomBatchResponse = AccounttaxCustomBatchResponse'
{ _acbr1Entries :: !(Maybe [AccounttaxCustomBatchResponseEntry])
, _acbr1Kind :: !Text
} deriving (Eq,Show,Data,Typeable,Generic)
accounttaxCustomBatchResponse
:: AccounttaxCustomBatchResponse
accounttaxCustomBatchResponse =
AccounttaxCustomBatchResponse'
{ _acbr1Entries = Nothing
, _acbr1Kind = "content#accounttaxCustomBatchResponse"
}
acbr1Entries :: Lens' AccounttaxCustomBatchResponse [AccounttaxCustomBatchResponseEntry]
acbr1Entries
= lens _acbr1Entries (\ s a -> s{_acbr1Entries = a})
. _Default
. _Coerce
acbr1Kind :: Lens' AccounttaxCustomBatchResponse Text
acbr1Kind
= lens _acbr1Kind (\ s a -> s{_acbr1Kind = a})
instance FromJSON AccounttaxCustomBatchResponse where
parseJSON
= withObject "AccounttaxCustomBatchResponse"
(\ o ->
AccounttaxCustomBatchResponse' <$>
(o .:? "entries" .!= mempty) <*>
(o .:? "kind" .!=
"content#accounttaxCustomBatchResponse"))
instance ToJSON AccounttaxCustomBatchResponse where
toJSON AccounttaxCustomBatchResponse'{..}
= object
(catMaybes
[("entries" .=) <$> _acbr1Entries,
Just ("kind" .= _acbr1Kind)])
newtype AccountsClaimWebsiteResponse = AccountsClaimWebsiteResponse'
{ _acwrKind :: Text
} deriving (Eq,Show,Data,Typeable,Generic)
accountsClaimWebsiteResponse
:: AccountsClaimWebsiteResponse
accountsClaimWebsiteResponse =
AccountsClaimWebsiteResponse'
{ _acwrKind = "content#accountsClaimWebsiteResponse"
}
acwrKind :: Lens' AccountsClaimWebsiteResponse Text
acwrKind = lens _acwrKind (\ s a -> s{_acwrKind = a})
instance FromJSON AccountsClaimWebsiteResponse where
parseJSON
= withObject "AccountsClaimWebsiteResponse"
(\ o ->
AccountsClaimWebsiteResponse' <$>
(o .:? "kind" .!=
"content#accountsClaimWebsiteResponse"))
instance ToJSON AccountsClaimWebsiteResponse where
toJSON AccountsClaimWebsiteResponse'{..}
= object (catMaybes [Just ("kind" .= _acwrKind)])
data OrderAddress = OrderAddress'
{ _oaRecipientName :: !(Maybe Text)
, _oaStreetAddress :: !(Maybe [Text])
, _oaCountry :: !(Maybe Text)
, _oaPostalCode :: !(Maybe Text)
, _oaLocality :: !(Maybe Text)
, _oaIsPostOfficeBox :: !(Maybe Bool)
, _oaFullAddress :: !(Maybe [Text])
, _oaRegion :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
orderAddress
:: OrderAddress
orderAddress =
OrderAddress'
{ _oaRecipientName = Nothing
, _oaStreetAddress = Nothing
, _oaCountry = Nothing
, _oaPostalCode = Nothing
, _oaLocality = Nothing
, _oaIsPostOfficeBox = Nothing
, _oaFullAddress = Nothing
, _oaRegion = Nothing
}
oaRecipientName :: Lens' OrderAddress (Maybe Text)
oaRecipientName
= lens _oaRecipientName
(\ s a -> s{_oaRecipientName = a})
oaStreetAddress :: Lens' OrderAddress [Text]
oaStreetAddress
= lens _oaStreetAddress
(\ s a -> s{_oaStreetAddress = a})
. _Default
. _Coerce
oaCountry :: Lens' OrderAddress (Maybe Text)
oaCountry
= lens _oaCountry (\ s a -> s{_oaCountry = a})
oaPostalCode :: Lens' OrderAddress (Maybe Text)
oaPostalCode
= lens _oaPostalCode (\ s a -> s{_oaPostalCode = a})
oaLocality :: Lens' OrderAddress (Maybe Text)
oaLocality
= lens _oaLocality (\ s a -> s{_oaLocality = a})
oaIsPostOfficeBox :: Lens' OrderAddress (Maybe Bool)
oaIsPostOfficeBox
= lens _oaIsPostOfficeBox
(\ s a -> s{_oaIsPostOfficeBox = a})
oaFullAddress :: Lens' OrderAddress [Text]
oaFullAddress
= lens _oaFullAddress
(\ s a -> s{_oaFullAddress = a})
. _Default
. _Coerce
oaRegion :: Lens' OrderAddress (Maybe Text)
oaRegion = lens _oaRegion (\ s a -> s{_oaRegion = a})
instance FromJSON OrderAddress where
parseJSON
= withObject "OrderAddress"
(\ o ->
OrderAddress' <$>
(o .:? "recipientName") <*>
(o .:? "streetAddress" .!= mempty)
<*> (o .:? "country")
<*> (o .:? "postalCode")
<*> (o .:? "locality")
<*> (o .:? "isPostOfficeBox")
<*> (o .:? "fullAddress" .!= mempty)
<*> (o .:? "region"))
instance ToJSON OrderAddress where
toJSON OrderAddress'{..}
= object
(catMaybes
[("recipientName" .=) <$> _oaRecipientName,
("streetAddress" .=) <$> _oaStreetAddress,
("country" .=) <$> _oaCountry,
("postalCode" .=) <$> _oaPostalCode,
("locality" .=) <$> _oaLocality,
("isPostOfficeBox" .=) <$> _oaIsPostOfficeBox,
("fullAddress" .=) <$> _oaFullAddress,
("region" .=) <$> _oaRegion])
data OrdersCustomBatchRequestEntryCreateTestReturnReturnItem = OrdersCustomBatchRequestEntryCreateTestReturnReturnItem'
{ _ocbrectrriQuantity :: !(Maybe (Textual Word32))
, _ocbrectrriLineItemId :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
ordersCustomBatchRequestEntryCreateTestReturnReturnItem
:: OrdersCustomBatchRequestEntryCreateTestReturnReturnItem
ordersCustomBatchRequestEntryCreateTestReturnReturnItem =
OrdersCustomBatchRequestEntryCreateTestReturnReturnItem'
{ _ocbrectrriQuantity = Nothing
, _ocbrectrriLineItemId = Nothing
}
ocbrectrriQuantity :: Lens' OrdersCustomBatchRequestEntryCreateTestReturnReturnItem (Maybe Word32)
ocbrectrriQuantity
= lens _ocbrectrriQuantity
(\ s a -> s{_ocbrectrriQuantity = a})
. mapping _Coerce
ocbrectrriLineItemId :: Lens' OrdersCustomBatchRequestEntryCreateTestReturnReturnItem (Maybe Text)
ocbrectrriLineItemId
= lens _ocbrectrriLineItemId
(\ s a -> s{_ocbrectrriLineItemId = a})
instance FromJSON
OrdersCustomBatchRequestEntryCreateTestReturnReturnItem
where
parseJSON
= withObject
"OrdersCustomBatchRequestEntryCreateTestReturnReturnItem"
(\ o ->
OrdersCustomBatchRequestEntryCreateTestReturnReturnItem'
<$> (o .:? "quantity") <*> (o .:? "lineItemId"))
instance ToJSON
OrdersCustomBatchRequestEntryCreateTestReturnReturnItem
where
toJSON
OrdersCustomBatchRequestEntryCreateTestReturnReturnItem'{..}
= object
(catMaybes
[("quantity" .=) <$> _ocbrectrriQuantity,
("lineItemId" .=) <$> _ocbrectrriLineItemId])
data ProductUnitPricingBaseMeasure = ProductUnitPricingBaseMeasure'
{ _pupbmValue :: !(Maybe (Textual Int64))
, _pupbmUnit :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
productUnitPricingBaseMeasure
:: ProductUnitPricingBaseMeasure
productUnitPricingBaseMeasure =
ProductUnitPricingBaseMeasure'
{ _pupbmValue = Nothing
, _pupbmUnit = Nothing
}
pupbmValue :: Lens' ProductUnitPricingBaseMeasure (Maybe Int64)
pupbmValue
= lens _pupbmValue (\ s a -> s{_pupbmValue = a}) .
mapping _Coerce
pupbmUnit :: Lens' ProductUnitPricingBaseMeasure (Maybe Text)
pupbmUnit
= lens _pupbmUnit (\ s a -> s{_pupbmUnit = a})
instance FromJSON ProductUnitPricingBaseMeasure where
parseJSON
= withObject "ProductUnitPricingBaseMeasure"
(\ o ->
ProductUnitPricingBaseMeasure' <$>
(o .:? "value") <*> (o .:? "unit"))
instance ToJSON ProductUnitPricingBaseMeasure where
toJSON ProductUnitPricingBaseMeasure'{..}
= object
(catMaybes
[("value" .=) <$> _pupbmValue,
("unit" .=) <$> _pupbmUnit])
data LiaSettingsGetAccessibleGmbAccountsResponse = LiaSettingsGetAccessibleGmbAccountsResponse'
{ _lsgagarGmbAccounts :: !(Maybe [GmbAccountsGmbAccount])
, _lsgagarKind :: !Text
, _lsgagarAccountId :: !(Maybe (Textual Word64))
} deriving (Eq,Show,Data,Typeable,Generic)
liaSettingsGetAccessibleGmbAccountsResponse
:: LiaSettingsGetAccessibleGmbAccountsResponse
liaSettingsGetAccessibleGmbAccountsResponse =
LiaSettingsGetAccessibleGmbAccountsResponse'
{ _lsgagarGmbAccounts = Nothing
, _lsgagarKind = "content#liasettingsGetAccessibleGmbAccountsResponse"
, _lsgagarAccountId = Nothing
}
lsgagarGmbAccounts :: Lens' LiaSettingsGetAccessibleGmbAccountsResponse [GmbAccountsGmbAccount]
lsgagarGmbAccounts
= lens _lsgagarGmbAccounts
(\ s a -> s{_lsgagarGmbAccounts = a})
. _Default
. _Coerce
lsgagarKind :: Lens' LiaSettingsGetAccessibleGmbAccountsResponse Text
lsgagarKind
= lens _lsgagarKind (\ s a -> s{_lsgagarKind = a})
lsgagarAccountId :: Lens' LiaSettingsGetAccessibleGmbAccountsResponse (Maybe Word64)
lsgagarAccountId
= lens _lsgagarAccountId
(\ s a -> s{_lsgagarAccountId = a})
. mapping _Coerce
instance FromJSON
LiaSettingsGetAccessibleGmbAccountsResponse where
parseJSON
= withObject
"LiaSettingsGetAccessibleGmbAccountsResponse"
(\ o ->
LiaSettingsGetAccessibleGmbAccountsResponse' <$>
(o .:? "gmbAccounts" .!= mempty) <*>
(o .:? "kind" .!=
"content#liasettingsGetAccessibleGmbAccountsResponse")
<*> (o .:? "accountId"))
instance ToJSON
LiaSettingsGetAccessibleGmbAccountsResponse where
toJSON
LiaSettingsGetAccessibleGmbAccountsResponse'{..}
= object
(catMaybes
[("gmbAccounts" .=) <$> _lsgagarGmbAccounts,
Just ("kind" .= _lsgagarKind),
("accountId" .=) <$> _lsgagarAccountId])
data DatafeedsListResponse = DatafeedsListResponse'
{ _dlrNextPageToken :: !(Maybe Text)
, _dlrKind :: !Text
, _dlrResources :: !(Maybe [Datafeed])
} deriving (Eq,Show,Data,Typeable,Generic)
datafeedsListResponse
:: DatafeedsListResponse
datafeedsListResponse =
DatafeedsListResponse'
{ _dlrNextPageToken = Nothing
, _dlrKind = "content#datafeedsListResponse"
, _dlrResources = Nothing
}
dlrNextPageToken :: Lens' DatafeedsListResponse (Maybe Text)
dlrNextPageToken
= lens _dlrNextPageToken
(\ s a -> s{_dlrNextPageToken = a})
dlrKind :: Lens' DatafeedsListResponse Text
dlrKind = lens _dlrKind (\ s a -> s{_dlrKind = a})
dlrResources :: Lens' DatafeedsListResponse [Datafeed]
dlrResources
= lens _dlrResources (\ s a -> s{_dlrResources = a})
. _Default
. _Coerce
instance FromJSON DatafeedsListResponse where
parseJSON
= withObject "DatafeedsListResponse"
(\ o ->
DatafeedsListResponse' <$>
(o .:? "nextPageToken") <*>
(o .:? "kind" .!= "content#datafeedsListResponse")
<*> (o .:? "resources" .!= mempty))
instance ToJSON DatafeedsListResponse where
toJSON DatafeedsListResponse'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _dlrNextPageToken,
Just ("kind" .= _dlrKind),
("resources" .=) <$> _dlrResources])
data AccountStatusStatistics = AccountStatusStatistics'
{ _assPending :: !(Maybe (Textual Int64))
, _assExpiring :: !(Maybe (Textual Int64))
, _assActive :: !(Maybe (Textual Int64))
, _assDisApproved :: !(Maybe (Textual Int64))
} deriving (Eq,Show,Data,Typeable,Generic)
accountStatusStatistics
:: AccountStatusStatistics
accountStatusStatistics =
AccountStatusStatistics'
{ _assPending = Nothing
, _assExpiring = Nothing
, _assActive = Nothing
, _assDisApproved = Nothing
}
assPending :: Lens' AccountStatusStatistics (Maybe Int64)
assPending
= lens _assPending (\ s a -> s{_assPending = a}) .
mapping _Coerce
assExpiring :: Lens' AccountStatusStatistics (Maybe Int64)
assExpiring
= lens _assExpiring (\ s a -> s{_assExpiring = a}) .
mapping _Coerce
assActive :: Lens' AccountStatusStatistics (Maybe Int64)
assActive
= lens _assActive (\ s a -> s{_assActive = a}) .
mapping _Coerce
assDisApproved :: Lens' AccountStatusStatistics (Maybe Int64)
assDisApproved
= lens _assDisApproved
(\ s a -> s{_assDisApproved = a})
. mapping _Coerce
instance FromJSON AccountStatusStatistics where
parseJSON
= withObject "AccountStatusStatistics"
(\ o ->
AccountStatusStatistics' <$>
(o .:? "pending") <*> (o .:? "expiring") <*>
(o .:? "active")
<*> (o .:? "disapproved"))
instance ToJSON AccountStatusStatistics where
toJSON AccountStatusStatistics'{..}
= object
(catMaybes
[("pending" .=) <$> _assPending,
("expiring" .=) <$> _assExpiring,
("active" .=) <$> _assActive,
("disapproved" .=) <$> _assDisApproved])
data ProductsCustomBatchResponseEntry = ProductsCustomBatchResponseEntry'
{ _pcbre1Kind :: !Text
, _pcbre1Product :: !(Maybe Product)
, _pcbre1Errors :: !(Maybe Errors)
, _pcbre1BatchId :: !(Maybe (Textual Word32))
} deriving (Eq,Show,Data,Typeable,Generic)
productsCustomBatchResponseEntry
:: ProductsCustomBatchResponseEntry
productsCustomBatchResponseEntry =
ProductsCustomBatchResponseEntry'
{ _pcbre1Kind = "content#productsCustomBatchResponseEntry"
, _pcbre1Product = Nothing
, _pcbre1Errors = Nothing
, _pcbre1BatchId = Nothing
}
pcbre1Kind :: Lens' ProductsCustomBatchResponseEntry Text
pcbre1Kind
= lens _pcbre1Kind (\ s a -> s{_pcbre1Kind = a})
pcbre1Product :: Lens' ProductsCustomBatchResponseEntry (Maybe Product)
pcbre1Product
= lens _pcbre1Product
(\ s a -> s{_pcbre1Product = a})
pcbre1Errors :: Lens' ProductsCustomBatchResponseEntry (Maybe Errors)
pcbre1Errors
= lens _pcbre1Errors (\ s a -> s{_pcbre1Errors = a})
pcbre1BatchId :: Lens' ProductsCustomBatchResponseEntry (Maybe Word32)
pcbre1BatchId
= lens _pcbre1BatchId
(\ s a -> s{_pcbre1BatchId = a})
. mapping _Coerce
instance FromJSON ProductsCustomBatchResponseEntry
where
parseJSON
= withObject "ProductsCustomBatchResponseEntry"
(\ o ->
ProductsCustomBatchResponseEntry' <$>
(o .:? "kind" .!=
"content#productsCustomBatchResponseEntry")
<*> (o .:? "product")
<*> (o .:? "errors")
<*> (o .:? "batchId"))
instance ToJSON ProductsCustomBatchResponseEntry
where
toJSON ProductsCustomBatchResponseEntry'{..}
= object
(catMaybes
[Just ("kind" .= _pcbre1Kind),
("product" .=) <$> _pcbre1Product,
("errors" .=) <$> _pcbre1Errors,
("batchId" .=) <$> _pcbre1BatchId])
data Product = Product'
{ _prorDisplayAdsLink :: !(Maybe Text)
, _prorCustomLabel1 :: !(Maybe Text)
, _prorShippingWidth :: !(Maybe ProductShippingDimension)
, _prorImageLink :: !(Maybe Text)
, _prorIncludedDestinations :: !(Maybe [Text])
, _prorDisplayAdsValue :: !(Maybe (Textual Double))
, _prorLoyaltyPoints :: !(Maybe LoyaltyPoints)
, _prorAdditionalImageLinks :: !(Maybe [Text])
, _prorExcludedDestinations :: !(Maybe [Text])
, _prorColor :: !(Maybe Text)
, _prorCustomLabel0 :: !(Maybe Text)
, _prorKind :: !Text
, _prorMinHandlingTime :: !(Maybe (Textual Int64))
, _prorMultipack :: !(Maybe (Textual Int64))
, _prorPattern :: !(Maybe Text)
, _prorLink :: !(Maybe Text)
, _prorProductTypes :: !(Maybe [Text])
, _prorSizeSystem :: !(Maybe Text)
, _prorUnitPricingBaseMeasure :: !(Maybe ProductUnitPricingBaseMeasure)
, _prorTaxes :: !(Maybe [ProductTax])
, _prorMaterial :: !(Maybe Text)
, _prorInstallment :: !(Maybe Installment)
, _prorChannel :: !(Maybe Text)
, _prorIdentifierExists :: !(Maybe Bool)
, _prorBrand :: !(Maybe Text)
, _prorUnitPricingMeasure :: !(Maybe ProductUnitPricingMeasure)
, _prorSalePrice :: !(Maybe Price)
, _prorCostOfGoodsSold :: !(Maybe Price)
, _prorShippingLength :: !(Maybe ProductShippingDimension)
, _prorCustomLabel3 :: !(Maybe Text)
, _prorMaxHandlingTime :: !(Maybe (Textual Int64))
, _prorAvailability :: !(Maybe Text)
, _prorMinEnergyEfficiencyClass :: !(Maybe Text)
, _prorTargetCountry :: !(Maybe Text)
, _prorShippingLabel :: !(Maybe Text)
, _prorAdsRedirect :: !(Maybe Text)
, _prorCustomAttributes :: !(Maybe [CustomAttribute])
, _prorGtin :: !(Maybe Text)
, _prorAgeGroup :: !(Maybe Text)
, _prorDisplayAdsTitle :: !(Maybe Text)
, _prorMaxEnergyEfficiencyClass :: !(Maybe Text)
, _prorGender :: !(Maybe Text)
, _prorExpirationDate :: !(Maybe Text)
, _prorItemGroupId :: !(Maybe Text)
, _prorSalePriceEffectiveDate :: !(Maybe Text)
, _prorCustomLabel2 :: !(Maybe Text)
, _prorGoogleProductCategory :: !(Maybe Text)
, _prorShipping :: !(Maybe [ProductShipping])
, _prorShippingWeight :: !(Maybe ProductShippingWeight)
, _prorSellOnGoogleQuantity :: !(Maybe (Textual Int64))
, _prorShippingHeight :: !(Maybe ProductShippingDimension)
, _prorAvailabilityDate :: !(Maybe Text)
, _prorSource :: !(Maybe Text)
, _prorOfferId :: !(Maybe Text)
, _prorId :: !(Maybe Text)
, _prorPrice :: !(Maybe Price)
, _prorPromotionIds :: !(Maybe [Text])
, _prorSizeType :: !(Maybe Text)
, _prorMobileLink :: !(Maybe Text)
, _prorTitle :: !(Maybe Text)
, _prorAdult :: !(Maybe Bool)
, _prorContentLanguage :: !(Maybe Text)
, _prorAdsLabels :: !(Maybe [Text])
, _prorEnergyEfficiencyClass :: !(Maybe Text)
, _prorDisplayAdsSimilarIds :: !(Maybe [Text])
, _prorMpn :: !(Maybe Text)
, _prorCondition :: !(Maybe Text)
, _prorSizes :: !(Maybe [Text])
, _prorIsBundle :: !(Maybe Bool)
, _prorDescription :: !(Maybe Text)
, _prorCustomLabel4 :: !(Maybe Text)
, _prorDisplayAdsId :: !(Maybe Text)
, _prorAdsGrouping :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
product
:: Product
product =
Product'
{ _prorDisplayAdsLink = Nothing
, _prorCustomLabel1 = Nothing
, _prorShippingWidth = Nothing
, _prorImageLink = Nothing
, _prorIncludedDestinations = Nothing
, _prorDisplayAdsValue = Nothing
, _prorLoyaltyPoints = Nothing
, _prorAdditionalImageLinks = Nothing
, _prorExcludedDestinations = Nothing
, _prorColor = Nothing
, _prorCustomLabel0 = Nothing
, _prorKind = "content#product"
, _prorMinHandlingTime = Nothing
, _prorMultipack = Nothing
, _prorPattern = Nothing
, _prorLink = Nothing
, _prorProductTypes = Nothing
, _prorSizeSystem = Nothing
, _prorUnitPricingBaseMeasure = Nothing
, _prorTaxes = Nothing
, _prorMaterial = Nothing
, _prorInstallment = Nothing
, _prorChannel = Nothing
, _prorIdentifierExists = Nothing
, _prorBrand = Nothing
, _prorUnitPricingMeasure = Nothing
, _prorSalePrice = Nothing
, _prorCostOfGoodsSold = Nothing
, _prorShippingLength = Nothing
, _prorCustomLabel3 = Nothing
, _prorMaxHandlingTime = Nothing
, _prorAvailability = Nothing
, _prorMinEnergyEfficiencyClass = Nothing
, _prorTargetCountry = Nothing
, _prorShippingLabel = Nothing
, _prorAdsRedirect = Nothing
, _prorCustomAttributes = Nothing
, _prorGtin = Nothing
, _prorAgeGroup = Nothing
, _prorDisplayAdsTitle = Nothing
, _prorMaxEnergyEfficiencyClass = Nothing
, _prorGender = Nothing
, _prorExpirationDate = Nothing
, _prorItemGroupId = Nothing
, _prorSalePriceEffectiveDate = Nothing
, _prorCustomLabel2 = Nothing
, _prorGoogleProductCategory = Nothing
, _prorShipping = Nothing
, _prorShippingWeight = Nothing
, _prorSellOnGoogleQuantity = Nothing
, _prorShippingHeight = Nothing
, _prorAvailabilityDate = Nothing
, _prorSource = Nothing
, _prorOfferId = Nothing
, _prorId = Nothing
, _prorPrice = Nothing
, _prorPromotionIds = Nothing
, _prorSizeType = Nothing
, _prorMobileLink = Nothing
, _prorTitle = Nothing
, _prorAdult = Nothing
, _prorContentLanguage = Nothing
, _prorAdsLabels = Nothing
, _prorEnergyEfficiencyClass = Nothing
, _prorDisplayAdsSimilarIds = Nothing
, _prorMpn = Nothing
, _prorCondition = Nothing
, _prorSizes = Nothing
, _prorIsBundle = Nothing
, _prorDescription = Nothing
, _prorCustomLabel4 = Nothing
, _prorDisplayAdsId = Nothing
, _prorAdsGrouping = Nothing
}
prorDisplayAdsLink :: Lens' Product (Maybe Text)
prorDisplayAdsLink
= lens _prorDisplayAdsLink
(\ s a -> s{_prorDisplayAdsLink = a})
prorCustomLabel1 :: Lens' Product (Maybe Text)
prorCustomLabel1
= lens _prorCustomLabel1
(\ s a -> s{_prorCustomLabel1 = a})
prorShippingWidth :: Lens' Product (Maybe ProductShippingDimension)
prorShippingWidth
= lens _prorShippingWidth
(\ s a -> s{_prorShippingWidth = a})
prorImageLink :: Lens' Product (Maybe Text)
prorImageLink
= lens _prorImageLink
(\ s a -> s{_prorImageLink = a})
prorIncludedDestinations :: Lens' Product [Text]
prorIncludedDestinations
= lens _prorIncludedDestinations
(\ s a -> s{_prorIncludedDestinations = a})
. _Default
. _Coerce
prorDisplayAdsValue :: Lens' Product (Maybe Double)
prorDisplayAdsValue
= lens _prorDisplayAdsValue
(\ s a -> s{_prorDisplayAdsValue = a})
. mapping _Coerce
prorLoyaltyPoints :: Lens' Product (Maybe LoyaltyPoints)
prorLoyaltyPoints
= lens _prorLoyaltyPoints
(\ s a -> s{_prorLoyaltyPoints = a})
prorAdditionalImageLinks :: Lens' Product [Text]
prorAdditionalImageLinks
= lens _prorAdditionalImageLinks
(\ s a -> s{_prorAdditionalImageLinks = a})
. _Default
. _Coerce
prorExcludedDestinations :: Lens' Product [Text]
prorExcludedDestinations
= lens _prorExcludedDestinations
(\ s a -> s{_prorExcludedDestinations = a})
. _Default
. _Coerce
prorColor :: Lens' Product (Maybe Text)
prorColor
= lens _prorColor (\ s a -> s{_prorColor = a})
prorCustomLabel0 :: Lens' Product (Maybe Text)
prorCustomLabel0
= lens _prorCustomLabel0
(\ s a -> s{_prorCustomLabel0 = a})
prorKind :: Lens' Product Text
prorKind = lens _prorKind (\ s a -> s{_prorKind = a})
prorMinHandlingTime :: Lens' Product (Maybe Int64)
prorMinHandlingTime
= lens _prorMinHandlingTime
(\ s a -> s{_prorMinHandlingTime = a})
. mapping _Coerce
prorMultipack :: Lens' Product (Maybe Int64)
prorMultipack
= lens _prorMultipack
(\ s a -> s{_prorMultipack = a})
. mapping _Coerce
prorPattern :: Lens' Product (Maybe Text)
prorPattern
= lens _prorPattern (\ s a -> s{_prorPattern = a})
prorLink :: Lens' Product (Maybe Text)
prorLink = lens _prorLink (\ s a -> s{_prorLink = a})
prorProductTypes :: Lens' Product [Text]
prorProductTypes
= lens _prorProductTypes
(\ s a -> s{_prorProductTypes = a})
. _Default
. _Coerce
prorSizeSystem :: Lens' Product (Maybe Text)
prorSizeSystem
= lens _prorSizeSystem
(\ s a -> s{_prorSizeSystem = a})
prorUnitPricingBaseMeasure :: Lens' Product (Maybe ProductUnitPricingBaseMeasure)
prorUnitPricingBaseMeasure
= lens _prorUnitPricingBaseMeasure
(\ s a -> s{_prorUnitPricingBaseMeasure = a})
prorTaxes :: Lens' Product [ProductTax]
prorTaxes
= lens _prorTaxes (\ s a -> s{_prorTaxes = a}) .
_Default
. _Coerce
prorMaterial :: Lens' Product (Maybe Text)
prorMaterial
= lens _prorMaterial (\ s a -> s{_prorMaterial = a})
prorInstallment :: Lens' Product (Maybe Installment)
prorInstallment
= lens _prorInstallment
(\ s a -> s{_prorInstallment = a})
prorChannel :: Lens' Product (Maybe Text)
prorChannel
= lens _prorChannel (\ s a -> s{_prorChannel = a})
prorIdentifierExists :: Lens' Product (Maybe Bool)
prorIdentifierExists
= lens _prorIdentifierExists
(\ s a -> s{_prorIdentifierExists = a})
prorBrand :: Lens' Product (Maybe Text)
prorBrand
= lens _prorBrand (\ s a -> s{_prorBrand = a})
prorUnitPricingMeasure :: Lens' Product (Maybe ProductUnitPricingMeasure)
prorUnitPricingMeasure
= lens _prorUnitPricingMeasure
(\ s a -> s{_prorUnitPricingMeasure = a})
prorSalePrice :: Lens' Product (Maybe Price)
prorSalePrice
= lens _prorSalePrice
(\ s a -> s{_prorSalePrice = a})
prorCostOfGoodsSold :: Lens' Product (Maybe Price)
prorCostOfGoodsSold
= lens _prorCostOfGoodsSold
(\ s a -> s{_prorCostOfGoodsSold = a})
prorShippingLength :: Lens' Product (Maybe ProductShippingDimension)
prorShippingLength
= lens _prorShippingLength
(\ s a -> s{_prorShippingLength = a})
prorCustomLabel3 :: Lens' Product (Maybe Text)
prorCustomLabel3
= lens _prorCustomLabel3
(\ s a -> s{_prorCustomLabel3 = a})
prorMaxHandlingTime :: Lens' Product (Maybe Int64)
prorMaxHandlingTime
= lens _prorMaxHandlingTime
(\ s a -> s{_prorMaxHandlingTime = a})
. mapping _Coerce
prorAvailability :: Lens' Product (Maybe Text)
prorAvailability
= lens _prorAvailability
(\ s a -> s{_prorAvailability = a})
prorMinEnergyEfficiencyClass :: Lens' Product (Maybe Text)
prorMinEnergyEfficiencyClass
= lens _prorMinEnergyEfficiencyClass
(\ s a -> s{_prorMinEnergyEfficiencyClass = a})
prorTargetCountry :: Lens' Product (Maybe Text)
prorTargetCountry
= lens _prorTargetCountry
(\ s a -> s{_prorTargetCountry = a})
prorShippingLabel :: Lens' Product (Maybe Text)
prorShippingLabel
= lens _prorShippingLabel
(\ s a -> s{_prorShippingLabel = a})
prorAdsRedirect :: Lens' Product (Maybe Text)
prorAdsRedirect
= lens _prorAdsRedirect
(\ s a -> s{_prorAdsRedirect = a})
prorCustomAttributes :: Lens' Product [CustomAttribute]
prorCustomAttributes
= lens _prorCustomAttributes
(\ s a -> s{_prorCustomAttributes = a})
. _Default
. _Coerce
prorGtin :: Lens' Product (Maybe Text)
prorGtin = lens _prorGtin (\ s a -> s{_prorGtin = a})
prorAgeGroup :: Lens' Product (Maybe Text)
prorAgeGroup
= lens _prorAgeGroup (\ s a -> s{_prorAgeGroup = a})
prorDisplayAdsTitle :: Lens' Product (Maybe Text)
prorDisplayAdsTitle
= lens _prorDisplayAdsTitle
(\ s a -> s{_prorDisplayAdsTitle = a})
prorMaxEnergyEfficiencyClass :: Lens' Product (Maybe Text)
prorMaxEnergyEfficiencyClass
= lens _prorMaxEnergyEfficiencyClass
(\ s a -> s{_prorMaxEnergyEfficiencyClass = a})
prorGender :: Lens' Product (Maybe Text)
prorGender
= lens _prorGender (\ s a -> s{_prorGender = a})
prorExpirationDate :: Lens' Product (Maybe Text)
prorExpirationDate
= lens _prorExpirationDate
(\ s a -> s{_prorExpirationDate = a})
prorItemGroupId :: Lens' Product (Maybe Text)
prorItemGroupId
= lens _prorItemGroupId
(\ s a -> s{_prorItemGroupId = a})
prorSalePriceEffectiveDate :: Lens' Product (Maybe Text)
prorSalePriceEffectiveDate
= lens _prorSalePriceEffectiveDate
(\ s a -> s{_prorSalePriceEffectiveDate = a})
prorCustomLabel2 :: Lens' Product (Maybe Text)
prorCustomLabel2
= lens _prorCustomLabel2
(\ s a -> s{_prorCustomLabel2 = a})
prorGoogleProductCategory :: Lens' Product (Maybe Text)
prorGoogleProductCategory
= lens _prorGoogleProductCategory
(\ s a -> s{_prorGoogleProductCategory = a})
prorShipping :: Lens' Product [ProductShipping]
prorShipping
= lens _prorShipping (\ s a -> s{_prorShipping = a})
. _Default
. _Coerce
prorShippingWeight :: Lens' Product (Maybe ProductShippingWeight)
prorShippingWeight
= lens _prorShippingWeight
(\ s a -> s{_prorShippingWeight = a})
prorSellOnGoogleQuantity :: Lens' Product (Maybe Int64)
prorSellOnGoogleQuantity
= lens _prorSellOnGoogleQuantity
(\ s a -> s{_prorSellOnGoogleQuantity = a})
. mapping _Coerce
prorShippingHeight :: Lens' Product (Maybe ProductShippingDimension)
prorShippingHeight
= lens _prorShippingHeight
(\ s a -> s{_prorShippingHeight = a})
prorAvailabilityDate :: Lens' Product (Maybe Text)
prorAvailabilityDate
= lens _prorAvailabilityDate
(\ s a -> s{_prorAvailabilityDate = a})
prorSource :: Lens' Product (Maybe Text)
prorSource
= lens _prorSource (\ s a -> s{_prorSource = a})
prorOfferId :: Lens' Product (Maybe Text)
prorOfferId
= lens _prorOfferId (\ s a -> s{_prorOfferId = a})
prorId :: Lens' Product (Maybe Text)
prorId = lens _prorId (\ s a -> s{_prorId = a})
prorPrice :: Lens' Product (Maybe Price)
prorPrice
= lens _prorPrice (\ s a -> s{_prorPrice = a})
prorPromotionIds :: Lens' Product [Text]
prorPromotionIds
= lens _prorPromotionIds
(\ s a -> s{_prorPromotionIds = a})
. _Default
. _Coerce
prorSizeType :: Lens' Product (Maybe Text)
prorSizeType
= lens _prorSizeType (\ s a -> s{_prorSizeType = a})
prorMobileLink :: Lens' Product (Maybe Text)
prorMobileLink
= lens _prorMobileLink
(\ s a -> s{_prorMobileLink = a})
prorTitle :: Lens' Product (Maybe Text)
prorTitle
= lens _prorTitle (\ s a -> s{_prorTitle = a})
prorAdult :: Lens' Product (Maybe Bool)
prorAdult
= lens _prorAdult (\ s a -> s{_prorAdult = a})
prorContentLanguage :: Lens' Product (Maybe Text)
prorContentLanguage
= lens _prorContentLanguage
(\ s a -> s{_prorContentLanguage = a})
prorAdsLabels :: Lens' Product [Text]
prorAdsLabels
= lens _prorAdsLabels
(\ s a -> s{_prorAdsLabels = a})
. _Default
. _Coerce
prorEnergyEfficiencyClass :: Lens' Product (Maybe Text)
prorEnergyEfficiencyClass
= lens _prorEnergyEfficiencyClass
(\ s a -> s{_prorEnergyEfficiencyClass = a})
prorDisplayAdsSimilarIds :: Lens' Product [Text]
prorDisplayAdsSimilarIds
= lens _prorDisplayAdsSimilarIds
(\ s a -> s{_prorDisplayAdsSimilarIds = a})
. _Default
. _Coerce
prorMpn :: Lens' Product (Maybe Text)
prorMpn = lens _prorMpn (\ s a -> s{_prorMpn = a})
prorCondition :: Lens' Product (Maybe Text)
prorCondition
= lens _prorCondition
(\ s a -> s{_prorCondition = a})
prorSizes :: Lens' Product [Text]
prorSizes
= lens _prorSizes (\ s a -> s{_prorSizes = a}) .
_Default
. _Coerce
prorIsBundle :: Lens' Product (Maybe Bool)
prorIsBundle
= lens _prorIsBundle (\ s a -> s{_prorIsBundle = a})
prorDescription :: Lens' Product (Maybe Text)
prorDescription
= lens _prorDescription
(\ s a -> s{_prorDescription = a})
prorCustomLabel4 :: Lens' Product (Maybe Text)
prorCustomLabel4
= lens _prorCustomLabel4
(\ s a -> s{_prorCustomLabel4 = a})
prorDisplayAdsId :: Lens' Product (Maybe Text)
prorDisplayAdsId
= lens _prorDisplayAdsId
(\ s a -> s{_prorDisplayAdsId = a})
prorAdsGrouping :: Lens' Product (Maybe Text)
prorAdsGrouping
= lens _prorAdsGrouping
(\ s a -> s{_prorAdsGrouping = a})
instance FromJSON Product where
parseJSON
= withObject "Product"
(\ o ->
Product' <$>
(o .:? "displayAdsLink") <*> (o .:? "customLabel1")
<*> (o .:? "shippingWidth")
<*> (o .:? "imageLink")
<*> (o .:? "includedDestinations" .!= mempty)
<*> (o .:? "displayAdsValue")
<*> (o .:? "loyaltyPoints")
<*> (o .:? "additionalImageLinks" .!= mempty)
<*> (o .:? "excludedDestinations" .!= mempty)
<*> (o .:? "color")
<*> (o .:? "customLabel0")
<*> (o .:? "kind" .!= "content#product")
<*> (o .:? "minHandlingTime")
<*> (o .:? "multipack")
<*> (o .:? "pattern")
<*> (o .:? "link")
<*> (o .:? "productTypes" .!= mempty)
<*> (o .:? "sizeSystem")
<*> (o .:? "unitPricingBaseMeasure")
<*> (o .:? "taxes" .!= mempty)
<*> (o .:? "material")
<*> (o .:? "installment")
<*> (o .:? "channel")
<*> (o .:? "identifierExists")
<*> (o .:? "brand")
<*> (o .:? "unitPricingMeasure")
<*> (o .:? "salePrice")
<*> (o .:? "costOfGoodsSold")
<*> (o .:? "shippingLength")
<*> (o .:? "customLabel3")
<*> (o .:? "maxHandlingTime")
<*> (o .:? "availability")
<*> (o .:? "minEnergyEfficiencyClass")
<*> (o .:? "targetCountry")
<*> (o .:? "shippingLabel")
<*> (o .:? "adsRedirect")
<*> (o .:? "customAttributes" .!= mempty)
<*> (o .:? "gtin")
<*> (o .:? "ageGroup")
<*> (o .:? "displayAdsTitle")
<*> (o .:? "maxEnergyEfficiencyClass")
<*> (o .:? "gender")
<*> (o .:? "expirationDate")
<*> (o .:? "itemGroupId")
<*> (o .:? "salePriceEffectiveDate")
<*> (o .:? "customLabel2")
<*> (o .:? "googleProductCategory")
<*> (o .:? "shipping" .!= mempty)
<*> (o .:? "shippingWeight")
<*> (o .:? "sellOnGoogleQuantity")
<*> (o .:? "shippingHeight")
<*> (o .:? "availabilityDate")
<*> (o .:? "source")
<*> (o .:? "offerId")
<*> (o .:? "id")
<*> (o .:? "price")
<*> (o .:? "promotionIds" .!= mempty)
<*> (o .:? "sizeType")
<*> (o .:? "mobileLink")
<*> (o .:? "title")
<*> (o .:? "adult")
<*> (o .:? "contentLanguage")
<*> (o .:? "adsLabels" .!= mempty)
<*> (o .:? "energyEfficiencyClass")
<*> (o .:? "displayAdsSimilarIds" .!= mempty)
<*> (o .:? "mpn")
<*> (o .:? "condition")
<*> (o .:? "sizes" .!= mempty)
<*> (o .:? "isBundle")
<*> (o .:? "description")
<*> (o .:? "customLabel4")
<*> (o .:? "displayAdsId")
<*> (o .:? "adsGrouping"))
instance ToJSON Product where
toJSON Product'{..}
= object
(catMaybes
[("displayAdsLink" .=) <$> _prorDisplayAdsLink,
("customLabel1" .=) <$> _prorCustomLabel1,
("shippingWidth" .=) <$> _prorShippingWidth,
("imageLink" .=) <$> _prorImageLink,
("includedDestinations" .=) <$>
_prorIncludedDestinations,
("displayAdsValue" .=) <$> _prorDisplayAdsValue,
("loyaltyPoints" .=) <$> _prorLoyaltyPoints,
("additionalImageLinks" .=) <$>
_prorAdditionalImageLinks,
("excludedDestinations" .=) <$>
_prorExcludedDestinations,
("color" .=) <$> _prorColor,
("customLabel0" .=) <$> _prorCustomLabel0,
Just ("kind" .= _prorKind),
("minHandlingTime" .=) <$> _prorMinHandlingTime,
("multipack" .=) <$> _prorMultipack,
("pattern" .=) <$> _prorPattern,
("link" .=) <$> _prorLink,
("productTypes" .=) <$> _prorProductTypes,
("sizeSystem" .=) <$> _prorSizeSystem,
("unitPricingBaseMeasure" .=) <$>
_prorUnitPricingBaseMeasure,
("taxes" .=) <$> _prorTaxes,
("material" .=) <$> _prorMaterial,
("installment" .=) <$> _prorInstallment,
("channel" .=) <$> _prorChannel,
("identifierExists" .=) <$> _prorIdentifierExists,
("brand" .=) <$> _prorBrand,
("unitPricingMeasure" .=) <$>
_prorUnitPricingMeasure,
("salePrice" .=) <$> _prorSalePrice,
("costOfGoodsSold" .=) <$> _prorCostOfGoodsSold,
("shippingLength" .=) <$> _prorShippingLength,
("customLabel3" .=) <$> _prorCustomLabel3,
("maxHandlingTime" .=) <$> _prorMaxHandlingTime,
("availability" .=) <$> _prorAvailability,
("minEnergyEfficiencyClass" .=) <$>
_prorMinEnergyEfficiencyClass,
("targetCountry" .=) <$> _prorTargetCountry,
("shippingLabel" .=) <$> _prorShippingLabel,
("adsRedirect" .=) <$> _prorAdsRedirect,
("customAttributes" .=) <$> _prorCustomAttributes,
("gtin" .=) <$> _prorGtin,
("ageGroup" .=) <$> _prorAgeGroup,
("displayAdsTitle" .=) <$> _prorDisplayAdsTitle,
("maxEnergyEfficiencyClass" .=) <$>
_prorMaxEnergyEfficiencyClass,
("gender" .=) <$> _prorGender,
("expirationDate" .=) <$> _prorExpirationDate,
("itemGroupId" .=) <$> _prorItemGroupId,
("salePriceEffectiveDate" .=) <$>
_prorSalePriceEffectiveDate,
("customLabel2" .=) <$> _prorCustomLabel2,
("googleProductCategory" .=) <$>
_prorGoogleProductCategory,
("shipping" .=) <$> _prorShipping,
("shippingWeight" .=) <$> _prorShippingWeight,
("sellOnGoogleQuantity" .=) <$>
_prorSellOnGoogleQuantity,
("shippingHeight" .=) <$> _prorShippingHeight,
("availabilityDate" .=) <$> _prorAvailabilityDate,
("source" .=) <$> _prorSource,
("offerId" .=) <$> _prorOfferId,
("id" .=) <$> _prorId, ("price" .=) <$> _prorPrice,
("promotionIds" .=) <$> _prorPromotionIds,
("sizeType" .=) <$> _prorSizeType,
("mobileLink" .=) <$> _prorMobileLink,
("title" .=) <$> _prorTitle,
("adult" .=) <$> _prorAdult,
("contentLanguage" .=) <$> _prorContentLanguage,
("adsLabels" .=) <$> _prorAdsLabels,
("energyEfficiencyClass" .=) <$>
_prorEnergyEfficiencyClass,
("displayAdsSimilarIds" .=) <$>
_prorDisplayAdsSimilarIds,
("mpn" .=) <$> _prorMpn,
("condition" .=) <$> _prorCondition,
("sizes" .=) <$> _prorSizes,
("isBundle" .=) <$> _prorIsBundle,
("description" .=) <$> _prorDescription,
("customLabel4" .=) <$> _prorCustomLabel4,
("displayAdsId" .=) <$> _prorDisplayAdsId,
("adsGrouping" .=) <$> _prorAdsGrouping])
data LiaSettingsCustomBatchRequestEntry = LiaSettingsCustomBatchRequestEntry'
{ _lGmbEmail :: !(Maybe Text)
, _lContactEmail :: !(Maybe Text)
, _lMerchantId :: !(Maybe (Textual Word64))
, _lCountry :: !(Maybe Text)
, _lLiaSettings :: !(Maybe LiaSettings)
, _lAccountId :: !(Maybe (Textual Word64))
, _lMethod :: !(Maybe Text)
, _lContactName :: !(Maybe Text)
, _lPosExternalAccountId :: !(Maybe Text)
, _lPosDataProviderId :: !(Maybe (Textual Word64))
, _lBatchId :: !(Maybe (Textual Word32))
} deriving (Eq,Show,Data,Typeable,Generic)
liaSettingsCustomBatchRequestEntry
:: LiaSettingsCustomBatchRequestEntry
liaSettingsCustomBatchRequestEntry =
LiaSettingsCustomBatchRequestEntry'
{ _lGmbEmail = Nothing
, _lContactEmail = Nothing
, _lMerchantId = Nothing
, _lCountry = Nothing
, _lLiaSettings = Nothing
, _lAccountId = Nothing
, _lMethod = Nothing
, _lContactName = Nothing
, _lPosExternalAccountId = Nothing
, _lPosDataProviderId = Nothing
, _lBatchId = Nothing
}
lGmbEmail :: Lens' LiaSettingsCustomBatchRequestEntry (Maybe Text)
lGmbEmail
= lens _lGmbEmail (\ s a -> s{_lGmbEmail = a})
lContactEmail :: Lens' LiaSettingsCustomBatchRequestEntry (Maybe Text)
lContactEmail
= lens _lContactEmail
(\ s a -> s{_lContactEmail = a})
lMerchantId :: Lens' LiaSettingsCustomBatchRequestEntry (Maybe Word64)
lMerchantId
= lens _lMerchantId (\ s a -> s{_lMerchantId = a}) .
mapping _Coerce
lCountry :: Lens' LiaSettingsCustomBatchRequestEntry (Maybe Text)
lCountry = lens _lCountry (\ s a -> s{_lCountry = a})
lLiaSettings :: Lens' LiaSettingsCustomBatchRequestEntry (Maybe LiaSettings)
lLiaSettings
= lens _lLiaSettings (\ s a -> s{_lLiaSettings = a})
lAccountId :: Lens' LiaSettingsCustomBatchRequestEntry (Maybe Word64)
lAccountId
= lens _lAccountId (\ s a -> s{_lAccountId = a}) .
mapping _Coerce
lMethod :: Lens' LiaSettingsCustomBatchRequestEntry (Maybe Text)
lMethod = lens _lMethod (\ s a -> s{_lMethod = a})
lContactName :: Lens' LiaSettingsCustomBatchRequestEntry (Maybe Text)
lContactName
= lens _lContactName (\ s a -> s{_lContactName = a})
lPosExternalAccountId :: Lens' LiaSettingsCustomBatchRequestEntry (Maybe Text)
lPosExternalAccountId
= lens _lPosExternalAccountId
(\ s a -> s{_lPosExternalAccountId = a})
lPosDataProviderId :: Lens' LiaSettingsCustomBatchRequestEntry (Maybe Word64)
lPosDataProviderId
= lens _lPosDataProviderId
(\ s a -> s{_lPosDataProviderId = a})
. mapping _Coerce
lBatchId :: Lens' LiaSettingsCustomBatchRequestEntry (Maybe Word32)
lBatchId
= lens _lBatchId (\ s a -> s{_lBatchId = a}) .
mapping _Coerce
instance FromJSON LiaSettingsCustomBatchRequestEntry
where
parseJSON
= withObject "LiaSettingsCustomBatchRequestEntry"
(\ o ->
LiaSettingsCustomBatchRequestEntry' <$>
(o .:? "gmbEmail") <*> (o .:? "contactEmail") <*>
(o .:? "merchantId")
<*> (o .:? "country")
<*> (o .:? "liaSettings")
<*> (o .:? "accountId")
<*> (o .:? "method")
<*> (o .:? "contactName")
<*> (o .:? "posExternalAccountId")
<*> (o .:? "posDataProviderId")
<*> (o .:? "batchId"))
instance ToJSON LiaSettingsCustomBatchRequestEntry
where
toJSON LiaSettingsCustomBatchRequestEntry'{..}
= object
(catMaybes
[("gmbEmail" .=) <$> _lGmbEmail,
("contactEmail" .=) <$> _lContactEmail,
("merchantId" .=) <$> _lMerchantId,
("country" .=) <$> _lCountry,
("liaSettings" .=) <$> _lLiaSettings,
("accountId" .=) <$> _lAccountId,
("method" .=) <$> _lMethod,
("contactName" .=) <$> _lContactName,
("posExternalAccountId" .=) <$>
_lPosExternalAccountId,
("posDataProviderId" .=) <$> _lPosDataProviderId,
("batchId" .=) <$> _lBatchId])
data Errors = Errors'
{ _errCode :: !(Maybe (Textual Word32))
, _errMessage :: !(Maybe Text)
, _errErrors :: !(Maybe [Error'])
} deriving (Eq,Show,Data,Typeable,Generic)
errors
:: Errors
errors =
Errors'
{ _errCode = Nothing
, _errMessage = Nothing
, _errErrors = Nothing
}
errCode :: Lens' Errors (Maybe Word32)
errCode
= lens _errCode (\ s a -> s{_errCode = a}) .
mapping _Coerce
errMessage :: Lens' Errors (Maybe Text)
errMessage
= lens _errMessage (\ s a -> s{_errMessage = a})
errErrors :: Lens' Errors [Error']
errErrors
= lens _errErrors (\ s a -> s{_errErrors = a}) .
_Default
. _Coerce
instance FromJSON Errors where
parseJSON
= withObject "Errors"
(\ o ->
Errors' <$>
(o .:? "code") <*> (o .:? "message") <*>
(o .:? "errors" .!= mempty))
instance ToJSON Errors where
toJSON Errors'{..}
= object
(catMaybes
[("code" .=) <$> _errCode,
("message" .=) <$> _errMessage,
("errors" .=) <$> _errErrors])
data LiaInventorySettings = LiaInventorySettings'
{ _lisInventoryVerificationContactName :: !(Maybe Text)
, _lisStatus :: !(Maybe Text)
, _lisInventoryVerificationContactEmail :: !(Maybe Text)
, _lisInventoryVerificationContactStatus :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
liaInventorySettings
:: LiaInventorySettings
liaInventorySettings =
LiaInventorySettings'
{ _lisInventoryVerificationContactName = Nothing
, _lisStatus = Nothing
, _lisInventoryVerificationContactEmail = Nothing
, _lisInventoryVerificationContactStatus = Nothing
}
lisInventoryVerificationContactName :: Lens' LiaInventorySettings (Maybe Text)
lisInventoryVerificationContactName
= lens _lisInventoryVerificationContactName
(\ s a ->
s{_lisInventoryVerificationContactName = a})
lisStatus :: Lens' LiaInventorySettings (Maybe Text)
lisStatus
= lens _lisStatus (\ s a -> s{_lisStatus = a})
lisInventoryVerificationContactEmail :: Lens' LiaInventorySettings (Maybe Text)
lisInventoryVerificationContactEmail
= lens _lisInventoryVerificationContactEmail
(\ s a ->
s{_lisInventoryVerificationContactEmail = a})
lisInventoryVerificationContactStatus :: Lens' LiaInventorySettings (Maybe Text)
lisInventoryVerificationContactStatus
= lens _lisInventoryVerificationContactStatus
(\ s a ->
s{_lisInventoryVerificationContactStatus = a})
instance FromJSON LiaInventorySettings where
parseJSON
= withObject "LiaInventorySettings"
(\ o ->
LiaInventorySettings' <$>
(o .:? "inventoryVerificationContactName") <*>
(o .:? "status")
<*> (o .:? "inventoryVerificationContactEmail")
<*> (o .:? "inventoryVerificationContactStatus"))
instance ToJSON LiaInventorySettings where
toJSON LiaInventorySettings'{..}
= object
(catMaybes
[("inventoryVerificationContactName" .=) <$>
_lisInventoryVerificationContactName,
("status" .=) <$> _lisStatus,
("inventoryVerificationContactEmail" .=) <$>
_lisInventoryVerificationContactEmail,
("inventoryVerificationContactStatus" .=) <$>
_lisInventoryVerificationContactStatus])
data AccountstatusesCustomBatchResponseEntry = AccountstatusesCustomBatchResponseEntry'
{ _aaAccountStatus :: !(Maybe AccountStatus)
, _aaErrors :: !(Maybe Errors)
, _aaBatchId :: !(Maybe (Textual Word32))
} deriving (Eq,Show,Data,Typeable,Generic)
accountstatusesCustomBatchResponseEntry
:: AccountstatusesCustomBatchResponseEntry
accountstatusesCustomBatchResponseEntry =
AccountstatusesCustomBatchResponseEntry'
{ _aaAccountStatus = Nothing
, _aaErrors = Nothing
, _aaBatchId = Nothing
}
aaAccountStatus :: Lens' AccountstatusesCustomBatchResponseEntry (Maybe AccountStatus)
aaAccountStatus
= lens _aaAccountStatus
(\ s a -> s{_aaAccountStatus = a})
aaErrors :: Lens' AccountstatusesCustomBatchResponseEntry (Maybe Errors)
aaErrors = lens _aaErrors (\ s a -> s{_aaErrors = a})
aaBatchId :: Lens' AccountstatusesCustomBatchResponseEntry (Maybe Word32)
aaBatchId
= lens _aaBatchId (\ s a -> s{_aaBatchId = a}) .
mapping _Coerce
instance FromJSON
AccountstatusesCustomBatchResponseEntry where
parseJSON
= withObject
"AccountstatusesCustomBatchResponseEntry"
(\ o ->
AccountstatusesCustomBatchResponseEntry' <$>
(o .:? "accountStatus") <*> (o .:? "errors") <*>
(o .:? "batchId"))
instance ToJSON
AccountstatusesCustomBatchResponseEntry where
toJSON AccountstatusesCustomBatchResponseEntry'{..}
= object
(catMaybes
[("accountStatus" .=) <$> _aaAccountStatus,
("errors" .=) <$> _aaErrors,
("batchId" .=) <$> _aaBatchId])
data OrdersCancelLineItemResponse = OrdersCancelLineItemResponse'
{ _oclirKind :: !Text
, _oclirExecutionStatus :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
ordersCancelLineItemResponse
:: OrdersCancelLineItemResponse
ordersCancelLineItemResponse =
OrdersCancelLineItemResponse'
{ _oclirKind = "content#ordersCancelLineItemResponse"
, _oclirExecutionStatus = Nothing
}
oclirKind :: Lens' OrdersCancelLineItemResponse Text
oclirKind
= lens _oclirKind (\ s a -> s{_oclirKind = a})
oclirExecutionStatus :: Lens' OrdersCancelLineItemResponse (Maybe Text)
oclirExecutionStatus
= lens _oclirExecutionStatus
(\ s a -> s{_oclirExecutionStatus = a})
instance FromJSON OrdersCancelLineItemResponse where
parseJSON
= withObject "OrdersCancelLineItemResponse"
(\ o ->
OrdersCancelLineItemResponse' <$>
(o .:? "kind" .!=
"content#ordersCancelLineItemResponse")
<*> (o .:? "executionStatus"))
instance ToJSON OrdersCancelLineItemResponse where
toJSON OrdersCancelLineItemResponse'{..}
= object
(catMaybes
[Just ("kind" .= _oclirKind),
("executionStatus" .=) <$> _oclirExecutionStatus])
data HolidayCutoff = HolidayCutoff'
{ _hcDeadlineHour :: !(Maybe (Textual Word32))
, _hcDeadlineTimezone :: !(Maybe Text)
, _hcVisibleFromDate :: !(Maybe Text)
, _hcHolidayId :: !(Maybe Text)
, _hcDeadlineDate :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
holidayCutoff
:: HolidayCutoff
holidayCutoff =
HolidayCutoff'
{ _hcDeadlineHour = Nothing
, _hcDeadlineTimezone = Nothing
, _hcVisibleFromDate = Nothing
, _hcHolidayId = Nothing
, _hcDeadlineDate = Nothing
}
hcDeadlineHour :: Lens' HolidayCutoff (Maybe Word32)
hcDeadlineHour
= lens _hcDeadlineHour
(\ s a -> s{_hcDeadlineHour = a})
. mapping _Coerce
hcDeadlineTimezone :: Lens' HolidayCutoff (Maybe Text)
hcDeadlineTimezone
= lens _hcDeadlineTimezone
(\ s a -> s{_hcDeadlineTimezone = a})
hcVisibleFromDate :: Lens' HolidayCutoff (Maybe Text)
hcVisibleFromDate
= lens _hcVisibleFromDate
(\ s a -> s{_hcVisibleFromDate = a})
hcHolidayId :: Lens' HolidayCutoff (Maybe Text)
hcHolidayId
= lens _hcHolidayId (\ s a -> s{_hcHolidayId = a})
hcDeadlineDate :: Lens' HolidayCutoff (Maybe Text)
hcDeadlineDate
= lens _hcDeadlineDate
(\ s a -> s{_hcDeadlineDate = a})
instance FromJSON HolidayCutoff where
parseJSON
= withObject "HolidayCutoff"
(\ o ->
HolidayCutoff' <$>
(o .:? "deadlineHour") <*> (o .:? "deadlineTimezone")
<*> (o .:? "visibleFromDate")
<*> (o .:? "holidayId")
<*> (o .:? "deadlineDate"))
instance ToJSON HolidayCutoff where
toJSON HolidayCutoff'{..}
= object
(catMaybes
[("deadlineHour" .=) <$> _hcDeadlineHour,
("deadlineTimezone" .=) <$> _hcDeadlineTimezone,
("visibleFromDate" .=) <$> _hcVisibleFromDate,
("holidayId" .=) <$> _hcHolidayId,
("deadlineDate" .=) <$> _hcDeadlineDate])
data TestOrderLineItem = TestOrderLineItem'
{ _toliQuantityOrdered :: !(Maybe (Textual Word32))
, _toliReturnInfo :: !(Maybe OrderLineItemReturnInfo)
, _toliShippingDetails :: !(Maybe OrderLineItemShippingDetails)
, _toliProduct :: !(Maybe TestOrderLineItemProduct)
, _toliUnitTax :: !(Maybe Price)
} deriving (Eq,Show,Data,Typeable,Generic)
testOrderLineItem
:: TestOrderLineItem
testOrderLineItem =
TestOrderLineItem'
{ _toliQuantityOrdered = Nothing
, _toliReturnInfo = Nothing
, _toliShippingDetails = Nothing
, _toliProduct = Nothing
, _toliUnitTax = Nothing
}
toliQuantityOrdered :: Lens' TestOrderLineItem (Maybe Word32)
toliQuantityOrdered
= lens _toliQuantityOrdered
(\ s a -> s{_toliQuantityOrdered = a})
. mapping _Coerce
toliReturnInfo :: Lens' TestOrderLineItem (Maybe OrderLineItemReturnInfo)
toliReturnInfo
= lens _toliReturnInfo
(\ s a -> s{_toliReturnInfo = a})
toliShippingDetails :: Lens' TestOrderLineItem (Maybe OrderLineItemShippingDetails)
toliShippingDetails
= lens _toliShippingDetails
(\ s a -> s{_toliShippingDetails = a})
toliProduct :: Lens' TestOrderLineItem (Maybe TestOrderLineItemProduct)
toliProduct
= lens _toliProduct (\ s a -> s{_toliProduct = a})
toliUnitTax :: Lens' TestOrderLineItem (Maybe Price)
toliUnitTax
= lens _toliUnitTax (\ s a -> s{_toliUnitTax = a})
instance FromJSON TestOrderLineItem where
parseJSON
= withObject "TestOrderLineItem"
(\ o ->
TestOrderLineItem' <$>
(o .:? "quantityOrdered") <*> (o .:? "returnInfo")
<*> (o .:? "shippingDetails")
<*> (o .:? "product")
<*> (o .:? "unitTax"))
instance ToJSON TestOrderLineItem where
toJSON TestOrderLineItem'{..}
= object
(catMaybes
[("quantityOrdered" .=) <$> _toliQuantityOrdered,
("returnInfo" .=) <$> _toliReturnInfo,
("shippingDetails" .=) <$> _toliShippingDetails,
("product" .=) <$> _toliProduct,
("unitTax" .=) <$> _toliUnitTax])
data ProductstatusesCustomBatchRequestEntry = ProductstatusesCustomBatchRequestEntry'
{ _p2MerchantId :: !(Maybe (Textual Word64))
, _p2Destinations :: !(Maybe [Text])
, _p2Method :: !(Maybe Text)
, _p2IncludeAttributes :: !(Maybe Bool)
, _p2ProductId :: !(Maybe Text)
, _p2BatchId :: !(Maybe (Textual Word32))
} deriving (Eq,Show,Data,Typeable,Generic)
productstatusesCustomBatchRequestEntry
:: ProductstatusesCustomBatchRequestEntry
productstatusesCustomBatchRequestEntry =
ProductstatusesCustomBatchRequestEntry'
{ _p2MerchantId = Nothing
, _p2Destinations = Nothing
, _p2Method = Nothing
, _p2IncludeAttributes = Nothing
, _p2ProductId = Nothing
, _p2BatchId = Nothing
}
p2MerchantId :: Lens' ProductstatusesCustomBatchRequestEntry (Maybe Word64)
p2MerchantId
= lens _p2MerchantId (\ s a -> s{_p2MerchantId = a})
. mapping _Coerce
p2Destinations :: Lens' ProductstatusesCustomBatchRequestEntry [Text]
p2Destinations
= lens _p2Destinations
(\ s a -> s{_p2Destinations = a})
. _Default
. _Coerce
p2Method :: Lens' ProductstatusesCustomBatchRequestEntry (Maybe Text)
p2Method = lens _p2Method (\ s a -> s{_p2Method = a})
p2IncludeAttributes :: Lens' ProductstatusesCustomBatchRequestEntry (Maybe Bool)
p2IncludeAttributes
= lens _p2IncludeAttributes
(\ s a -> s{_p2IncludeAttributes = a})
p2ProductId :: Lens' ProductstatusesCustomBatchRequestEntry (Maybe Text)
p2ProductId
= lens _p2ProductId (\ s a -> s{_p2ProductId = a})
p2BatchId :: Lens' ProductstatusesCustomBatchRequestEntry (Maybe Word32)
p2BatchId
= lens _p2BatchId (\ s a -> s{_p2BatchId = a}) .
mapping _Coerce
instance FromJSON
ProductstatusesCustomBatchRequestEntry where
parseJSON
= withObject "ProductstatusesCustomBatchRequestEntry"
(\ o ->
ProductstatusesCustomBatchRequestEntry' <$>
(o .:? "merchantId") <*>
(o .:? "destinations" .!= mempty)
<*> (o .:? "method")
<*> (o .:? "includeAttributes")
<*> (o .:? "productId")
<*> (o .:? "batchId"))
instance ToJSON
ProductstatusesCustomBatchRequestEntry where
toJSON ProductstatusesCustomBatchRequestEntry'{..}
= object
(catMaybes
[("merchantId" .=) <$> _p2MerchantId,
("destinations" .=) <$> _p2Destinations,
("method" .=) <$> _p2Method,
("includeAttributes" .=) <$> _p2IncludeAttributes,
("productId" .=) <$> _p2ProductId,
("batchId" .=) <$> _p2BatchId])
data ShippingSettingsCustomBatchResponse = ShippingSettingsCustomBatchResponse'
{ _shiEntries :: !(Maybe [ShippingSettingsCustomBatchResponseEntry])
, _shiKind :: !Text
} deriving (Eq,Show,Data,Typeable,Generic)
shippingSettingsCustomBatchResponse
:: ShippingSettingsCustomBatchResponse
shippingSettingsCustomBatchResponse =
ShippingSettingsCustomBatchResponse'
{ _shiEntries = Nothing
, _shiKind = "content#shippingsettingsCustomBatchResponse"
}
shiEntries :: Lens' ShippingSettingsCustomBatchResponse [ShippingSettingsCustomBatchResponseEntry]
shiEntries
= lens _shiEntries (\ s a -> s{_shiEntries = a}) .
_Default
. _Coerce
shiKind :: Lens' ShippingSettingsCustomBatchResponse Text
shiKind = lens _shiKind (\ s a -> s{_shiKind = a})
instance FromJSON ShippingSettingsCustomBatchResponse
where
parseJSON
= withObject "ShippingSettingsCustomBatchResponse"
(\ o ->
ShippingSettingsCustomBatchResponse' <$>
(o .:? "entries" .!= mempty) <*>
(o .:? "kind" .!=
"content#shippingsettingsCustomBatchResponse"))
instance ToJSON ShippingSettingsCustomBatchResponse
where
toJSON ShippingSettingsCustomBatchResponse'{..}
= object
(catMaybes
[("entries" .=) <$> _shiEntries,
Just ("kind" .= _shiKind)])
data OrdersReturnRefundLineItemRequest = OrdersReturnRefundLineItemRequest'
{ _orrlirrQuantity :: !(Maybe (Textual Word32))
, _orrlirrLineItemId :: !(Maybe Text)
, _orrlirrReason :: !(Maybe Text)
, _orrlirrOperationId :: !(Maybe Text)
, _orrlirrProductId :: !(Maybe Text)
, _orrlirrTaxAmount :: !(Maybe Price)
, _orrlirrPriceAmount :: !(Maybe Price)
, _orrlirrReasonText :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
ordersReturnRefundLineItemRequest
:: OrdersReturnRefundLineItemRequest
ordersReturnRefundLineItemRequest =
OrdersReturnRefundLineItemRequest'
{ _orrlirrQuantity = Nothing
, _orrlirrLineItemId = Nothing
, _orrlirrReason = Nothing
, _orrlirrOperationId = Nothing
, _orrlirrProductId = Nothing
, _orrlirrTaxAmount = Nothing
, _orrlirrPriceAmount = Nothing
, _orrlirrReasonText = Nothing
}
orrlirrQuantity :: Lens' OrdersReturnRefundLineItemRequest (Maybe Word32)
orrlirrQuantity
= lens _orrlirrQuantity
(\ s a -> s{_orrlirrQuantity = a})
. mapping _Coerce
orrlirrLineItemId :: Lens' OrdersReturnRefundLineItemRequest (Maybe Text)
orrlirrLineItemId
= lens _orrlirrLineItemId
(\ s a -> s{_orrlirrLineItemId = a})
orrlirrReason :: Lens' OrdersReturnRefundLineItemRequest (Maybe Text)
orrlirrReason
= lens _orrlirrReason
(\ s a -> s{_orrlirrReason = a})
orrlirrOperationId :: Lens' OrdersReturnRefundLineItemRequest (Maybe Text)
orrlirrOperationId
= lens _orrlirrOperationId
(\ s a -> s{_orrlirrOperationId = a})
orrlirrProductId :: Lens' OrdersReturnRefundLineItemRequest (Maybe Text)
orrlirrProductId
= lens _orrlirrProductId
(\ s a -> s{_orrlirrProductId = a})
orrlirrTaxAmount :: Lens' OrdersReturnRefundLineItemRequest (Maybe Price)
orrlirrTaxAmount
= lens _orrlirrTaxAmount
(\ s a -> s{_orrlirrTaxAmount = a})
orrlirrPriceAmount :: Lens' OrdersReturnRefundLineItemRequest (Maybe Price)
orrlirrPriceAmount
= lens _orrlirrPriceAmount
(\ s a -> s{_orrlirrPriceAmount = a})
orrlirrReasonText :: Lens' OrdersReturnRefundLineItemRequest (Maybe Text)
orrlirrReasonText
= lens _orrlirrReasonText
(\ s a -> s{_orrlirrReasonText = a})
instance FromJSON OrdersReturnRefundLineItemRequest
where
parseJSON
= withObject "OrdersReturnRefundLineItemRequest"
(\ o ->
OrdersReturnRefundLineItemRequest' <$>
(o .:? "quantity") <*> (o .:? "lineItemId") <*>
(o .:? "reason")
<*> (o .:? "operationId")
<*> (o .:? "productId")
<*> (o .:? "taxAmount")
<*> (o .:? "priceAmount")
<*> (o .:? "reasonText"))
instance ToJSON OrdersReturnRefundLineItemRequest
where
toJSON OrdersReturnRefundLineItemRequest'{..}
= object
(catMaybes
[("quantity" .=) <$> _orrlirrQuantity,
("lineItemId" .=) <$> _orrlirrLineItemId,
("reason" .=) <$> _orrlirrReason,
("operationId" .=) <$> _orrlirrOperationId,
("productId" .=) <$> _orrlirrProductId,
("taxAmount" .=) <$> _orrlirrTaxAmount,
("priceAmount" .=) <$> _orrlirrPriceAmount,
("reasonText" .=) <$> _orrlirrReasonText])
data ShipmentInvoiceLineItemInvoice = ShipmentInvoiceLineItemInvoice'
{ _siliiUnitInvoice :: !(Maybe UnitInvoice)
, _siliiShipmentUnitIds :: !(Maybe [Text])
, _siliiLineItemId :: !(Maybe Text)
, _siliiProductId :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
shipmentInvoiceLineItemInvoice
:: ShipmentInvoiceLineItemInvoice
shipmentInvoiceLineItemInvoice =
ShipmentInvoiceLineItemInvoice'
{ _siliiUnitInvoice = Nothing
, _siliiShipmentUnitIds = Nothing
, _siliiLineItemId = Nothing
, _siliiProductId = Nothing
}
siliiUnitInvoice :: Lens' ShipmentInvoiceLineItemInvoice (Maybe UnitInvoice)
siliiUnitInvoice
= lens _siliiUnitInvoice
(\ s a -> s{_siliiUnitInvoice = a})
siliiShipmentUnitIds :: Lens' ShipmentInvoiceLineItemInvoice [Text]
siliiShipmentUnitIds
= lens _siliiShipmentUnitIds
(\ s a -> s{_siliiShipmentUnitIds = a})
. _Default
. _Coerce
siliiLineItemId :: Lens' ShipmentInvoiceLineItemInvoice (Maybe Text)
siliiLineItemId
= lens _siliiLineItemId
(\ s a -> s{_siliiLineItemId = a})
siliiProductId :: Lens' ShipmentInvoiceLineItemInvoice (Maybe Text)
siliiProductId
= lens _siliiProductId
(\ s a -> s{_siliiProductId = a})
instance FromJSON ShipmentInvoiceLineItemInvoice
where
parseJSON
= withObject "ShipmentInvoiceLineItemInvoice"
(\ o ->
ShipmentInvoiceLineItemInvoice' <$>
(o .:? "unitInvoice") <*>
(o .:? "shipmentUnitIds" .!= mempty)
<*> (o .:? "lineItemId")
<*> (o .:? "productId"))
instance ToJSON ShipmentInvoiceLineItemInvoice where
toJSON ShipmentInvoiceLineItemInvoice'{..}
= object
(catMaybes
[("unitInvoice" .=) <$> _siliiUnitInvoice,
("shipmentUnitIds" .=) <$> _siliiShipmentUnitIds,
("lineItemId" .=) <$> _siliiLineItemId,
("productId" .=) <$> _siliiProductId])
data OrdersCustomBatchRequestEntryShipLineItemsShipmentInfo = OrdersCustomBatchRequestEntryShipLineItemsShipmentInfo'
{ _ocbreslisiCarrier :: !(Maybe Text)
, _ocbreslisiTrackingId :: !(Maybe Text)
, _ocbreslisiShipmentId :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
ordersCustomBatchRequestEntryShipLineItemsShipmentInfo
:: OrdersCustomBatchRequestEntryShipLineItemsShipmentInfo
ordersCustomBatchRequestEntryShipLineItemsShipmentInfo =
OrdersCustomBatchRequestEntryShipLineItemsShipmentInfo'
{ _ocbreslisiCarrier = Nothing
, _ocbreslisiTrackingId = Nothing
, _ocbreslisiShipmentId = Nothing
}
ocbreslisiCarrier :: Lens' OrdersCustomBatchRequestEntryShipLineItemsShipmentInfo (Maybe Text)
ocbreslisiCarrier
= lens _ocbreslisiCarrier
(\ s a -> s{_ocbreslisiCarrier = a})
ocbreslisiTrackingId :: Lens' OrdersCustomBatchRequestEntryShipLineItemsShipmentInfo (Maybe Text)
ocbreslisiTrackingId
= lens _ocbreslisiTrackingId
(\ s a -> s{_ocbreslisiTrackingId = a})
ocbreslisiShipmentId :: Lens' OrdersCustomBatchRequestEntryShipLineItemsShipmentInfo (Maybe Text)
ocbreslisiShipmentId
= lens _ocbreslisiShipmentId
(\ s a -> s{_ocbreslisiShipmentId = a})
instance FromJSON
OrdersCustomBatchRequestEntryShipLineItemsShipmentInfo
where
parseJSON
= withObject
"OrdersCustomBatchRequestEntryShipLineItemsShipmentInfo"
(\ o ->
OrdersCustomBatchRequestEntryShipLineItemsShipmentInfo'
<$>
(o .:? "carrier") <*> (o .:? "trackingId") <*>
(o .:? "shipmentId"))
instance ToJSON
OrdersCustomBatchRequestEntryShipLineItemsShipmentInfo
where
toJSON
OrdersCustomBatchRequestEntryShipLineItemsShipmentInfo'{..}
= object
(catMaybes
[("carrier" .=) <$> _ocbreslisiCarrier,
("trackingId" .=) <$> _ocbreslisiTrackingId,
("shipmentId" .=) <$> _ocbreslisiShipmentId])
data AccountsLinkRequest = AccountsLinkRequest'
{ _alrAction :: !(Maybe Text)
, _alrLinkedAccountId :: !(Maybe Text)
, _alrLinkType :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
accountsLinkRequest
:: AccountsLinkRequest
accountsLinkRequest =
AccountsLinkRequest'
{ _alrAction = Nothing
, _alrLinkedAccountId = Nothing
, _alrLinkType = Nothing
}
alrAction :: Lens' AccountsLinkRequest (Maybe Text)
alrAction
= lens _alrAction (\ s a -> s{_alrAction = a})
alrLinkedAccountId :: Lens' AccountsLinkRequest (Maybe Text)
alrLinkedAccountId
= lens _alrLinkedAccountId
(\ s a -> s{_alrLinkedAccountId = a})
alrLinkType :: Lens' AccountsLinkRequest (Maybe Text)
alrLinkType
= lens _alrLinkType (\ s a -> s{_alrLinkType = a})
instance FromJSON AccountsLinkRequest where
parseJSON
= withObject "AccountsLinkRequest"
(\ o ->
AccountsLinkRequest' <$>
(o .:? "action") <*> (o .:? "linkedAccountId") <*>
(o .:? "linkType"))
instance ToJSON AccountsLinkRequest where
toJSON AccountsLinkRequest'{..}
= object
(catMaybes
[("action" .=) <$> _alrAction,
("linkedAccountId" .=) <$> _alrLinkedAccountId,
("linkType" .=) <$> _alrLinkType])
data Promotion = Promotion'
{ _pPromotionAmount :: !(Maybe Amount)
, _pPromotionId :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
promotion
:: Promotion
promotion =
Promotion'
{ _pPromotionAmount = Nothing
, _pPromotionId = Nothing
}
pPromotionAmount :: Lens' Promotion (Maybe Amount)
pPromotionAmount
= lens _pPromotionAmount
(\ s a -> s{_pPromotionAmount = a})
pPromotionId :: Lens' Promotion (Maybe Text)
pPromotionId
= lens _pPromotionId (\ s a -> s{_pPromotionId = a})
instance FromJSON Promotion where
parseJSON
= withObject "Promotion"
(\ o ->
Promotion' <$>
(o .:? "promotionAmount") <*> (o .:? "promotionId"))
instance ToJSON Promotion where
toJSON Promotion'{..}
= object
(catMaybes
[("promotionAmount" .=) <$> _pPromotionAmount,
("promotionId" .=) <$> _pPromotionId])
data DatafeedTarget = DatafeedTarget'
{ _dtIncludedDestinations :: !(Maybe [Text])
, _dtExcludedDestinations :: !(Maybe [Text])
, _dtCountry :: !(Maybe Text)
, _dtLanguage :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
datafeedTarget
:: DatafeedTarget
datafeedTarget =
DatafeedTarget'
{ _dtIncludedDestinations = Nothing
, _dtExcludedDestinations = Nothing
, _dtCountry = Nothing
, _dtLanguage = Nothing
}
dtIncludedDestinations :: Lens' DatafeedTarget [Text]
dtIncludedDestinations
= lens _dtIncludedDestinations
(\ s a -> s{_dtIncludedDestinations = a})
. _Default
. _Coerce
dtExcludedDestinations :: Lens' DatafeedTarget [Text]
dtExcludedDestinations
= lens _dtExcludedDestinations
(\ s a -> s{_dtExcludedDestinations = a})
. _Default
. _Coerce
dtCountry :: Lens' DatafeedTarget (Maybe Text)
dtCountry
= lens _dtCountry (\ s a -> s{_dtCountry = a})
dtLanguage :: Lens' DatafeedTarget (Maybe Text)
dtLanguage
= lens _dtLanguage (\ s a -> s{_dtLanguage = a})
instance FromJSON DatafeedTarget where
parseJSON
= withObject "DatafeedTarget"
(\ o ->
DatafeedTarget' <$>
(o .:? "includedDestinations" .!= mempty) <*>
(o .:? "excludedDestinations" .!= mempty)
<*> (o .:? "country")
<*> (o .:? "language"))
instance ToJSON DatafeedTarget where
toJSON DatafeedTarget'{..}
= object
(catMaybes
[("includedDestinations" .=) <$>
_dtIncludedDestinations,
("excludedDestinations" .=) <$>
_dtExcludedDestinations,
("country" .=) <$> _dtCountry,
("language" .=) <$> _dtLanguage])
data OrdersUpdateMerchantOrderIdResponse = OrdersUpdateMerchantOrderIdResponse'
{ _oumoirKind :: !Text
, _oumoirExecutionStatus :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
ordersUpdateMerchantOrderIdResponse
:: OrdersUpdateMerchantOrderIdResponse
ordersUpdateMerchantOrderIdResponse =
OrdersUpdateMerchantOrderIdResponse'
{ _oumoirKind = "content#ordersUpdateMerchantOrderIdResponse"
, _oumoirExecutionStatus = Nothing
}
oumoirKind :: Lens' OrdersUpdateMerchantOrderIdResponse Text
oumoirKind
= lens _oumoirKind (\ s a -> s{_oumoirKind = a})
oumoirExecutionStatus :: Lens' OrdersUpdateMerchantOrderIdResponse (Maybe Text)
oumoirExecutionStatus
= lens _oumoirExecutionStatus
(\ s a -> s{_oumoirExecutionStatus = a})
instance FromJSON OrdersUpdateMerchantOrderIdResponse
where
parseJSON
= withObject "OrdersUpdateMerchantOrderIdResponse"
(\ o ->
OrdersUpdateMerchantOrderIdResponse' <$>
(o .:? "kind" .!=
"content#ordersUpdateMerchantOrderIdResponse")
<*> (o .:? "executionStatus"))
instance ToJSON OrdersUpdateMerchantOrderIdResponse
where
toJSON OrdersUpdateMerchantOrderIdResponse'{..}
= object
(catMaybes
[Just ("kind" .= _oumoirKind),
("executionStatus" .=) <$> _oumoirExecutionStatus])
data OrderreportsListDisbursementsResponse = OrderreportsListDisbursementsResponse'
{ _oldrNextPageToken :: !(Maybe Text)
, _oldrKind :: !Text
, _oldrDisbursements :: !(Maybe [OrderReportDisbursement])
} deriving (Eq,Show,Data,Typeable,Generic)
orderreportsListDisbursementsResponse
:: OrderreportsListDisbursementsResponse
orderreportsListDisbursementsResponse =
OrderreportsListDisbursementsResponse'
{ _oldrNextPageToken = Nothing
, _oldrKind = "content#orderreportsListDisbursementsResponse"
, _oldrDisbursements = Nothing
}
oldrNextPageToken :: Lens' OrderreportsListDisbursementsResponse (Maybe Text)
oldrNextPageToken
= lens _oldrNextPageToken
(\ s a -> s{_oldrNextPageToken = a})
oldrKind :: Lens' OrderreportsListDisbursementsResponse Text
oldrKind = lens _oldrKind (\ s a -> s{_oldrKind = a})
oldrDisbursements :: Lens' OrderreportsListDisbursementsResponse [OrderReportDisbursement]
oldrDisbursements
= lens _oldrDisbursements
(\ s a -> s{_oldrDisbursements = a})
. _Default
. _Coerce
instance FromJSON
OrderreportsListDisbursementsResponse where
parseJSON
= withObject "OrderreportsListDisbursementsResponse"
(\ o ->
OrderreportsListDisbursementsResponse' <$>
(o .:? "nextPageToken") <*>
(o .:? "kind" .!=
"content#orderreportsListDisbursementsResponse")
<*> (o .:? "disbursements" .!= mempty))
instance ToJSON OrderreportsListDisbursementsResponse
where
toJSON OrderreportsListDisbursementsResponse'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _oldrNextPageToken,
Just ("kind" .= _oldrKind),
("disbursements" .=) <$> _oldrDisbursements])
data DatafeedStatusExample = DatafeedStatusExample'
{ _dseLineNumber :: !(Maybe (Textual Word64))
, _dseItemId :: !(Maybe Text)
, _dseValue :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
datafeedStatusExample
:: DatafeedStatusExample
datafeedStatusExample =
DatafeedStatusExample'
{ _dseLineNumber = Nothing
, _dseItemId = Nothing
, _dseValue = Nothing
}
dseLineNumber :: Lens' DatafeedStatusExample (Maybe Word64)
dseLineNumber
= lens _dseLineNumber
(\ s a -> s{_dseLineNumber = a})
. mapping _Coerce
dseItemId :: Lens' DatafeedStatusExample (Maybe Text)
dseItemId
= lens _dseItemId (\ s a -> s{_dseItemId = a})
dseValue :: Lens' DatafeedStatusExample (Maybe Text)
dseValue = lens _dseValue (\ s a -> s{_dseValue = a})
instance FromJSON DatafeedStatusExample where
parseJSON
= withObject "DatafeedStatusExample"
(\ o ->
DatafeedStatusExample' <$>
(o .:? "lineNumber") <*> (o .:? "itemId") <*>
(o .:? "value"))
instance ToJSON DatafeedStatusExample where
toJSON DatafeedStatusExample'{..}
= object
(catMaybes
[("lineNumber" .=) <$> _dseLineNumber,
("itemId" .=) <$> _dseItemId,
("value" .=) <$> _dseValue])
data OrdersAcknowledgeResponse = OrdersAcknowledgeResponse'
{ _oarKind :: !Text
, _oarExecutionStatus :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
ordersAcknowledgeResponse
:: OrdersAcknowledgeResponse
ordersAcknowledgeResponse =
OrdersAcknowledgeResponse'
{ _oarKind = "content#ordersAcknowledgeResponse"
, _oarExecutionStatus = Nothing
}
oarKind :: Lens' OrdersAcknowledgeResponse Text
oarKind = lens _oarKind (\ s a -> s{_oarKind = a})
oarExecutionStatus :: Lens' OrdersAcknowledgeResponse (Maybe Text)
oarExecutionStatus
= lens _oarExecutionStatus
(\ s a -> s{_oarExecutionStatus = a})
instance FromJSON OrdersAcknowledgeResponse where
parseJSON
= withObject "OrdersAcknowledgeResponse"
(\ o ->
OrdersAcknowledgeResponse' <$>
(o .:? "kind" .!=
"content#ordersAcknowledgeResponse")
<*> (o .:? "executionStatus"))
instance ToJSON OrdersAcknowledgeResponse where
toJSON OrdersAcknowledgeResponse'{..}
= object
(catMaybes
[Just ("kind" .= _oarKind),
("executionStatus" .=) <$> _oarExecutionStatus])
data PosSaleRequest = PosSaleRequest'
{ _psrsStoreCode :: !(Maybe Text)
, _psrsItemId :: !(Maybe Text)
, _psrsQuantity :: !(Maybe (Textual Int64))
, _psrsTargetCountry :: !(Maybe Text)
, _psrsGtin :: !(Maybe Text)
, _psrsPrice :: !(Maybe Price)
, _psrsContentLanguage :: !(Maybe Text)
, _psrsTimestamp :: !(Maybe Text)
, _psrsSaleId :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
posSaleRequest
:: PosSaleRequest
posSaleRequest =
PosSaleRequest'
{ _psrsStoreCode = Nothing
, _psrsItemId = Nothing
, _psrsQuantity = Nothing
, _psrsTargetCountry = Nothing
, _psrsGtin = Nothing
, _psrsPrice = Nothing
, _psrsContentLanguage = Nothing
, _psrsTimestamp = Nothing
, _psrsSaleId = Nothing
}
psrsStoreCode :: Lens' PosSaleRequest (Maybe Text)
psrsStoreCode
= lens _psrsStoreCode
(\ s a -> s{_psrsStoreCode = a})
psrsItemId :: Lens' PosSaleRequest (Maybe Text)
psrsItemId
= lens _psrsItemId (\ s a -> s{_psrsItemId = a})
psrsQuantity :: Lens' PosSaleRequest (Maybe Int64)
psrsQuantity
= lens _psrsQuantity (\ s a -> s{_psrsQuantity = a})
. mapping _Coerce
psrsTargetCountry :: Lens' PosSaleRequest (Maybe Text)
psrsTargetCountry
= lens _psrsTargetCountry
(\ s a -> s{_psrsTargetCountry = a})
psrsGtin :: Lens' PosSaleRequest (Maybe Text)
psrsGtin = lens _psrsGtin (\ s a -> s{_psrsGtin = a})
psrsPrice :: Lens' PosSaleRequest (Maybe Price)
psrsPrice
= lens _psrsPrice (\ s a -> s{_psrsPrice = a})
psrsContentLanguage :: Lens' PosSaleRequest (Maybe Text)
psrsContentLanguage
= lens _psrsContentLanguage
(\ s a -> s{_psrsContentLanguage = a})
psrsTimestamp :: Lens' PosSaleRequest (Maybe Text)
psrsTimestamp
= lens _psrsTimestamp
(\ s a -> s{_psrsTimestamp = a})
psrsSaleId :: Lens' PosSaleRequest (Maybe Text)
psrsSaleId
= lens _psrsSaleId (\ s a -> s{_psrsSaleId = a})
instance FromJSON PosSaleRequest where
parseJSON
= withObject "PosSaleRequest"
(\ o ->
PosSaleRequest' <$>
(o .:? "storeCode") <*> (o .:? "itemId") <*>
(o .:? "quantity")
<*> (o .:? "targetCountry")
<*> (o .:? "gtin")
<*> (o .:? "price")
<*> (o .:? "contentLanguage")
<*> (o .:? "timestamp")
<*> (o .:? "saleId"))
instance ToJSON PosSaleRequest where
toJSON PosSaleRequest'{..}
= object
(catMaybes
[("storeCode" .=) <$> _psrsStoreCode,
("itemId" .=) <$> _psrsItemId,
("quantity" .=) <$> _psrsQuantity,
("targetCountry" .=) <$> _psrsTargetCountry,
("gtin" .=) <$> _psrsGtin,
("price" .=) <$> _psrsPrice,
("contentLanguage" .=) <$> _psrsContentLanguage,
("timestamp" .=) <$> _psrsTimestamp,
("saleId" .=) <$> _psrsSaleId])
data Table = Table'
{ _tRows :: !(Maybe [Row])
, _tName :: !(Maybe Text)
, _tColumnHeaders :: !(Maybe Headers)
, _tRowHeaders :: !(Maybe Headers)
} deriving (Eq,Show,Data,Typeable,Generic)
table
:: Table
table =
Table'
{ _tRows = Nothing
, _tName = Nothing
, _tColumnHeaders = Nothing
, _tRowHeaders = Nothing
}
tRows :: Lens' Table [Row]
tRows
= lens _tRows (\ s a -> s{_tRows = a}) . _Default .
_Coerce
tName :: Lens' Table (Maybe Text)
tName = lens _tName (\ s a -> s{_tName = a})
tColumnHeaders :: Lens' Table (Maybe Headers)
tColumnHeaders
= lens _tColumnHeaders
(\ s a -> s{_tColumnHeaders = a})
tRowHeaders :: Lens' Table (Maybe Headers)
tRowHeaders
= lens _tRowHeaders (\ s a -> s{_tRowHeaders = a})
instance FromJSON Table where
parseJSON
= withObject "Table"
(\ o ->
Table' <$>
(o .:? "rows" .!= mempty) <*> (o .:? "name") <*>
(o .:? "columnHeaders")
<*> (o .:? "rowHeaders"))
instance ToJSON Table where
toJSON Table'{..}
= object
(catMaybes
[("rows" .=) <$> _tRows, ("name" .=) <$> _tName,
("columnHeaders" .=) <$> _tColumnHeaders,
("rowHeaders" .=) <$> _tRowHeaders])
data Order = Order'
{ _o1Status :: !(Maybe Text)
, _o1MerchantId :: !(Maybe (Textual Word64))
, _o1Refunds :: !(Maybe [OrderRefund])
, _o1Kind :: !Text
, _o1LineItems :: !(Maybe [OrderLineItem])
, _o1Shipments :: !(Maybe [OrderShipment])
, _o1NetAmount :: !(Maybe Price)
, _o1PlacedDate :: !(Maybe Text)
, _o1DeliveryDetails :: !(Maybe OrderDeliveryDetails)
, _o1ShippingOption :: !(Maybe Text)
, _o1MerchantOrderId :: !(Maybe Text)
, _o1Acknowledged :: !(Maybe Bool)
, _o1ShippingCostTax :: !(Maybe Price)
, _o1Customer :: !(Maybe OrderCustomer)
, _o1BillingAddress :: !(Maybe OrderAddress)
, _o1Id :: !(Maybe Text)
, _o1Promotions :: !(Maybe [OrderPromotion])
, _o1ChannelType :: !(Maybe Text)
, _o1PaymentStatus :: !(Maybe Text)
, _o1ShippingCost :: !(Maybe Price)
} deriving (Eq,Show,Data,Typeable,Generic)
order
:: Order
order =
Order'
{ _o1Status = Nothing
, _o1MerchantId = Nothing
, _o1Refunds = Nothing
, _o1Kind = "content#order"
, _o1LineItems = Nothing
, _o1Shipments = Nothing
, _o1NetAmount = Nothing
, _o1PlacedDate = Nothing
, _o1DeliveryDetails = Nothing
, _o1ShippingOption = Nothing
, _o1MerchantOrderId = Nothing
, _o1Acknowledged = Nothing
, _o1ShippingCostTax = Nothing
, _o1Customer = Nothing
, _o1BillingAddress = Nothing
, _o1Id = Nothing
, _o1Promotions = Nothing
, _o1ChannelType = Nothing
, _o1PaymentStatus = Nothing
, _o1ShippingCost = Nothing
}
o1Status :: Lens' Order (Maybe Text)
o1Status = lens _o1Status (\ s a -> s{_o1Status = a})
o1MerchantId :: Lens' Order (Maybe Word64)
o1MerchantId
= lens _o1MerchantId (\ s a -> s{_o1MerchantId = a})
. mapping _Coerce
o1Refunds :: Lens' Order [OrderRefund]
o1Refunds
= lens _o1Refunds (\ s a -> s{_o1Refunds = a}) .
_Default
. _Coerce
o1Kind :: Lens' Order Text
o1Kind = lens _o1Kind (\ s a -> s{_o1Kind = a})
o1LineItems :: Lens' Order [OrderLineItem]
o1LineItems
= lens _o1LineItems (\ s a -> s{_o1LineItems = a}) .
_Default
. _Coerce
o1Shipments :: Lens' Order [OrderShipment]
o1Shipments
= lens _o1Shipments (\ s a -> s{_o1Shipments = a}) .
_Default
. _Coerce
o1NetAmount :: Lens' Order (Maybe Price)
o1NetAmount
= lens _o1NetAmount (\ s a -> s{_o1NetAmount = a})
o1PlacedDate :: Lens' Order (Maybe Text)
o1PlacedDate
= lens _o1PlacedDate (\ s a -> s{_o1PlacedDate = a})
o1DeliveryDetails :: Lens' Order (Maybe OrderDeliveryDetails)
o1DeliveryDetails
= lens _o1DeliveryDetails
(\ s a -> s{_o1DeliveryDetails = a})
o1ShippingOption :: Lens' Order (Maybe Text)
o1ShippingOption
= lens _o1ShippingOption
(\ s a -> s{_o1ShippingOption = a})
o1MerchantOrderId :: Lens' Order (Maybe Text)
o1MerchantOrderId
= lens _o1MerchantOrderId
(\ s a -> s{_o1MerchantOrderId = a})
o1Acknowledged :: Lens' Order (Maybe Bool)
o1Acknowledged
= lens _o1Acknowledged
(\ s a -> s{_o1Acknowledged = a})
o1ShippingCostTax :: Lens' Order (Maybe Price)
o1ShippingCostTax
= lens _o1ShippingCostTax
(\ s a -> s{_o1ShippingCostTax = a})
o1Customer :: Lens' Order (Maybe OrderCustomer)
o1Customer
= lens _o1Customer (\ s a -> s{_o1Customer = a})
o1BillingAddress :: Lens' Order (Maybe OrderAddress)
o1BillingAddress
= lens _o1BillingAddress
(\ s a -> s{_o1BillingAddress = a})
o1Id :: Lens' Order (Maybe Text)
o1Id = lens _o1Id (\ s a -> s{_o1Id = a})
o1Promotions :: Lens' Order [OrderPromotion]
o1Promotions
= lens _o1Promotions (\ s a -> s{_o1Promotions = a})
. _Default
. _Coerce
o1ChannelType :: Lens' Order (Maybe Text)
o1ChannelType
= lens _o1ChannelType
(\ s a -> s{_o1ChannelType = a})
o1PaymentStatus :: Lens' Order (Maybe Text)
o1PaymentStatus
= lens _o1PaymentStatus
(\ s a -> s{_o1PaymentStatus = a})
o1ShippingCost :: Lens' Order (Maybe Price)
o1ShippingCost
= lens _o1ShippingCost
(\ s a -> s{_o1ShippingCost = a})
instance FromJSON Order where
parseJSON
= withObject "Order"
(\ o ->
Order' <$>
(o .:? "status") <*> (o .:? "merchantId") <*>
(o .:? "refunds" .!= mempty)
<*> (o .:? "kind" .!= "content#order")
<*> (o .:? "lineItems" .!= mempty)
<*> (o .:? "shipments" .!= mempty)
<*> (o .:? "netAmount")
<*> (o .:? "placedDate")
<*> (o .:? "deliveryDetails")
<*> (o .:? "shippingOption")
<*> (o .:? "merchantOrderId")
<*> (o .:? "acknowledged")
<*> (o .:? "shippingCostTax")
<*> (o .:? "customer")
<*> (o .:? "billingAddress")
<*> (o .:? "id")
<*> (o .:? "promotions" .!= mempty)
<*> (o .:? "channelType")
<*> (o .:? "paymentStatus")
<*> (o .:? "shippingCost"))
instance ToJSON Order where
toJSON Order'{..}
= object
(catMaybes
[("status" .=) <$> _o1Status,
("merchantId" .=) <$> _o1MerchantId,
("refunds" .=) <$> _o1Refunds,
Just ("kind" .= _o1Kind),
("lineItems" .=) <$> _o1LineItems,
("shipments" .=) <$> _o1Shipments,
("netAmount" .=) <$> _o1NetAmount,
("placedDate" .=) <$> _o1PlacedDate,
("deliveryDetails" .=) <$> _o1DeliveryDetails,
("shippingOption" .=) <$> _o1ShippingOption,
("merchantOrderId" .=) <$> _o1MerchantOrderId,
("acknowledged" .=) <$> _o1Acknowledged,
("shippingCostTax" .=) <$> _o1ShippingCostTax,
("customer" .=) <$> _o1Customer,
("billingAddress" .=) <$> _o1BillingAddress,
("id" .=) <$> _o1Id,
("promotions" .=) <$> _o1Promotions,
("channelType" .=) <$> _o1ChannelType,
("paymentStatus" .=) <$> _o1PaymentStatus,
("shippingCost" .=) <$> _o1ShippingCost])
data OrderLineItemProduct = OrderLineItemProduct'
{ _olipImageLink :: !(Maybe Text)
, _olipShownImage :: !(Maybe Text)
, _olipFees :: !(Maybe [OrderLineItemProductFee])
, _olipChannel :: !(Maybe Text)
, _olipBrand :: !(Maybe Text)
, _olipTargetCountry :: !(Maybe Text)
, _olipGtin :: !(Maybe Text)
, _olipItemGroupId :: !(Maybe Text)
, _olipOfferId :: !(Maybe Text)
, _olipId :: !(Maybe Text)
, _olipPrice :: !(Maybe Price)
, _olipVariantAttributes :: !(Maybe [OrderLineItemProductVariantAttribute])
, _olipTitle :: !(Maybe Text)
, _olipContentLanguage :: !(Maybe Text)
, _olipMpn :: !(Maybe Text)
, _olipCondition :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
orderLineItemProduct
:: OrderLineItemProduct
orderLineItemProduct =
OrderLineItemProduct'
{ _olipImageLink = Nothing
, _olipShownImage = Nothing
, _olipFees = Nothing
, _olipChannel = Nothing
, _olipBrand = Nothing
, _olipTargetCountry = Nothing
, _olipGtin = Nothing
, _olipItemGroupId = Nothing
, _olipOfferId = Nothing
, _olipId = Nothing
, _olipPrice = Nothing
, _olipVariantAttributes = Nothing
, _olipTitle = Nothing
, _olipContentLanguage = Nothing
, _olipMpn = Nothing
, _olipCondition = Nothing
}
olipImageLink :: Lens' OrderLineItemProduct (Maybe Text)
olipImageLink
= lens _olipImageLink
(\ s a -> s{_olipImageLink = a})
olipShownImage :: Lens' OrderLineItemProduct (Maybe Text)
olipShownImage
= lens _olipShownImage
(\ s a -> s{_olipShownImage = a})
olipFees :: Lens' OrderLineItemProduct [OrderLineItemProductFee]
olipFees
= lens _olipFees (\ s a -> s{_olipFees = a}) .
_Default
. _Coerce
olipChannel :: Lens' OrderLineItemProduct (Maybe Text)
olipChannel
= lens _olipChannel (\ s a -> s{_olipChannel = a})
olipBrand :: Lens' OrderLineItemProduct (Maybe Text)
olipBrand
= lens _olipBrand (\ s a -> s{_olipBrand = a})
olipTargetCountry :: Lens' OrderLineItemProduct (Maybe Text)
olipTargetCountry
= lens _olipTargetCountry
(\ s a -> s{_olipTargetCountry = a})
olipGtin :: Lens' OrderLineItemProduct (Maybe Text)
olipGtin = lens _olipGtin (\ s a -> s{_olipGtin = a})
olipItemGroupId :: Lens' OrderLineItemProduct (Maybe Text)
olipItemGroupId
= lens _olipItemGroupId
(\ s a -> s{_olipItemGroupId = a})
olipOfferId :: Lens' OrderLineItemProduct (Maybe Text)
olipOfferId
= lens _olipOfferId (\ s a -> s{_olipOfferId = a})
olipId :: Lens' OrderLineItemProduct (Maybe Text)
olipId = lens _olipId (\ s a -> s{_olipId = a})
olipPrice :: Lens' OrderLineItemProduct (Maybe Price)
olipPrice
= lens _olipPrice (\ s a -> s{_olipPrice = a})
olipVariantAttributes :: Lens' OrderLineItemProduct [OrderLineItemProductVariantAttribute]
olipVariantAttributes
= lens _olipVariantAttributes
(\ s a -> s{_olipVariantAttributes = a})
. _Default
. _Coerce
olipTitle :: Lens' OrderLineItemProduct (Maybe Text)
olipTitle
= lens _olipTitle (\ s a -> s{_olipTitle = a})
olipContentLanguage :: Lens' OrderLineItemProduct (Maybe Text)
olipContentLanguage
= lens _olipContentLanguage
(\ s a -> s{_olipContentLanguage = a})
olipMpn :: Lens' OrderLineItemProduct (Maybe Text)
olipMpn = lens _olipMpn (\ s a -> s{_olipMpn = a})
olipCondition :: Lens' OrderLineItemProduct (Maybe Text)
olipCondition
= lens _olipCondition
(\ s a -> s{_olipCondition = a})
instance FromJSON OrderLineItemProduct where
parseJSON
= withObject "OrderLineItemProduct"
(\ o ->
OrderLineItemProduct' <$>
(o .:? "imageLink") <*> (o .:? "shownImage") <*>
(o .:? "fees" .!= mempty)
<*> (o .:? "channel")
<*> (o .:? "brand")
<*> (o .:? "targetCountry")
<*> (o .:? "gtin")
<*> (o .:? "itemGroupId")
<*> (o .:? "offerId")
<*> (o .:? "id")
<*> (o .:? "price")
<*> (o .:? "variantAttributes" .!= mempty)
<*> (o .:? "title")
<*> (o .:? "contentLanguage")
<*> (o .:? "mpn")
<*> (o .:? "condition"))
instance ToJSON OrderLineItemProduct where
toJSON OrderLineItemProduct'{..}
= object
(catMaybes
[("imageLink" .=) <$> _olipImageLink,
("shownImage" .=) <$> _olipShownImage,
("fees" .=) <$> _olipFees,
("channel" .=) <$> _olipChannel,
("brand" .=) <$> _olipBrand,
("targetCountry" .=) <$> _olipTargetCountry,
("gtin" .=) <$> _olipGtin,
("itemGroupId" .=) <$> _olipItemGroupId,
("offerId" .=) <$> _olipOfferId,
("id" .=) <$> _olipId, ("price" .=) <$> _olipPrice,
("variantAttributes" .=) <$> _olipVariantAttributes,
("title" .=) <$> _olipTitle,
("contentLanguage" .=) <$> _olipContentLanguage,
("mpn" .=) <$> _olipMpn,
("condition" .=) <$> _olipCondition])
data AccounttaxCustomBatchRequestEntry = AccounttaxCustomBatchRequestEntry'
{ _acccAccountTax :: !(Maybe AccountTax)
, _acccMerchantId :: !(Maybe (Textual Word64))
, _acccAccountId :: !(Maybe (Textual Word64))
, _acccMethod :: !(Maybe Text)
, _acccBatchId :: !(Maybe (Textual Word32))
} deriving (Eq,Show,Data,Typeable,Generic)
accounttaxCustomBatchRequestEntry
:: AccounttaxCustomBatchRequestEntry
accounttaxCustomBatchRequestEntry =
AccounttaxCustomBatchRequestEntry'
{ _acccAccountTax = Nothing
, _acccMerchantId = Nothing
, _acccAccountId = Nothing
, _acccMethod = Nothing
, _acccBatchId = Nothing
}
acccAccountTax :: Lens' AccounttaxCustomBatchRequestEntry (Maybe AccountTax)
acccAccountTax
= lens _acccAccountTax
(\ s a -> s{_acccAccountTax = a})
acccMerchantId :: Lens' AccounttaxCustomBatchRequestEntry (Maybe Word64)
acccMerchantId
= lens _acccMerchantId
(\ s a -> s{_acccMerchantId = a})
. mapping _Coerce
acccAccountId :: Lens' AccounttaxCustomBatchRequestEntry (Maybe Word64)
acccAccountId
= lens _acccAccountId
(\ s a -> s{_acccAccountId = a})
. mapping _Coerce
acccMethod :: Lens' AccounttaxCustomBatchRequestEntry (Maybe Text)
acccMethod
= lens _acccMethod (\ s a -> s{_acccMethod = a})
acccBatchId :: Lens' AccounttaxCustomBatchRequestEntry (Maybe Word32)
acccBatchId
= lens _acccBatchId (\ s a -> s{_acccBatchId = a}) .
mapping _Coerce
instance FromJSON AccounttaxCustomBatchRequestEntry
where
parseJSON
= withObject "AccounttaxCustomBatchRequestEntry"
(\ o ->
AccounttaxCustomBatchRequestEntry' <$>
(o .:? "accountTax") <*> (o .:? "merchantId") <*>
(o .:? "accountId")
<*> (o .:? "method")
<*> (o .:? "batchId"))
instance ToJSON AccounttaxCustomBatchRequestEntry
where
toJSON AccounttaxCustomBatchRequestEntry'{..}
= object
(catMaybes
[("accountTax" .=) <$> _acccAccountTax,
("merchantId" .=) <$> _acccMerchantId,
("accountId" .=) <$> _acccAccountId,
("method" .=) <$> _acccMethod,
("batchId" .=) <$> _acccBatchId])
data DatafeedStatusError = DatafeedStatusError'
{ _dseCount :: !(Maybe (Textual Word64))
, _dseCode :: !(Maybe Text)
, _dseMessage :: !(Maybe Text)
, _dseExamples :: !(Maybe [DatafeedStatusExample])
} deriving (Eq,Show,Data,Typeable,Generic)
datafeedStatusError
:: DatafeedStatusError
datafeedStatusError =
DatafeedStatusError'
{ _dseCount = Nothing
, _dseCode = Nothing
, _dseMessage = Nothing
, _dseExamples = Nothing
}
dseCount :: Lens' DatafeedStatusError (Maybe Word64)
dseCount
= lens _dseCount (\ s a -> s{_dseCount = a}) .
mapping _Coerce
dseCode :: Lens' DatafeedStatusError (Maybe Text)
dseCode = lens _dseCode (\ s a -> s{_dseCode = a})
dseMessage :: Lens' DatafeedStatusError (Maybe Text)
dseMessage
= lens _dseMessage (\ s a -> s{_dseMessage = a})
dseExamples :: Lens' DatafeedStatusError [DatafeedStatusExample]
dseExamples
= lens _dseExamples (\ s a -> s{_dseExamples = a}) .
_Default
. _Coerce
instance FromJSON DatafeedStatusError where
parseJSON
= withObject "DatafeedStatusError"
(\ o ->
DatafeedStatusError' <$>
(o .:? "count") <*> (o .:? "code") <*>
(o .:? "message")
<*> (o .:? "examples" .!= mempty))
instance ToJSON DatafeedStatusError where
toJSON DatafeedStatusError'{..}
= object
(catMaybes
[("count" .=) <$> _dseCount,
("code" .=) <$> _dseCode,
("message" .=) <$> _dseMessage,
("examples" .=) <$> _dseExamples])
newtype ProductsCustomBatchRequest = ProductsCustomBatchRequest'
{ _ppEntries :: Maybe [ProductsCustomBatchRequestEntry]
} deriving (Eq,Show,Data,Typeable,Generic)
productsCustomBatchRequest
:: ProductsCustomBatchRequest
productsCustomBatchRequest =
ProductsCustomBatchRequest'
{ _ppEntries = Nothing
}
ppEntries :: Lens' ProductsCustomBatchRequest [ProductsCustomBatchRequestEntry]
ppEntries
= lens _ppEntries (\ s a -> s{_ppEntries = a}) .
_Default
. _Coerce
instance FromJSON ProductsCustomBatchRequest where
parseJSON
= withObject "ProductsCustomBatchRequest"
(\ o ->
ProductsCustomBatchRequest' <$>
(o .:? "entries" .!= mempty))
instance ToJSON ProductsCustomBatchRequest where
toJSON ProductsCustomBatchRequest'{..}
= object (catMaybes [("entries" .=) <$> _ppEntries])
data PosDataProviders = PosDataProviders'
{ _pdpCountry :: !(Maybe Text)
, _pdpPosDataProviders :: !(Maybe [PosDataProvidersPosDataProvider])
} deriving (Eq,Show,Data,Typeable,Generic)
posDataProviders
:: PosDataProviders
posDataProviders =
PosDataProviders'
{ _pdpCountry = Nothing
, _pdpPosDataProviders = Nothing
}
pdpCountry :: Lens' PosDataProviders (Maybe Text)
pdpCountry
= lens _pdpCountry (\ s a -> s{_pdpCountry = a})
pdpPosDataProviders :: Lens' PosDataProviders [PosDataProvidersPosDataProvider]
pdpPosDataProviders
= lens _pdpPosDataProviders
(\ s a -> s{_pdpPosDataProviders = a})
. _Default
. _Coerce
instance FromJSON PosDataProviders where
parseJSON
= withObject "PosDataProviders"
(\ o ->
PosDataProviders' <$>
(o .:? "country") <*>
(o .:? "posDataProviders" .!= mempty))
instance ToJSON PosDataProviders where
toJSON PosDataProviders'{..}
= object
(catMaybes
[("country" .=) <$> _pdpCountry,
("posDataProviders" .=) <$> _pdpPosDataProviders])
data PosInventory = PosInventory'
{ _piStoreCode :: !(Maybe Text)
, _piKind :: !Text
, _piItemId :: !(Maybe Text)
, _piQuantity :: !(Maybe (Textual Int64))
, _piTargetCountry :: !(Maybe Text)
, _piGtin :: !(Maybe Text)
, _piPrice :: !(Maybe Price)
, _piContentLanguage :: !(Maybe Text)
, _piTimestamp :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
posInventory
:: PosInventory
posInventory =
PosInventory'
{ _piStoreCode = Nothing
, _piKind = "content#posInventory"
, _piItemId = Nothing
, _piQuantity = Nothing
, _piTargetCountry = Nothing
, _piGtin = Nothing
, _piPrice = Nothing
, _piContentLanguage = Nothing
, _piTimestamp = Nothing
}
piStoreCode :: Lens' PosInventory (Maybe Text)
piStoreCode
= lens _piStoreCode (\ s a -> s{_piStoreCode = a})
piKind :: Lens' PosInventory Text
piKind = lens _piKind (\ s a -> s{_piKind = a})
piItemId :: Lens' PosInventory (Maybe Text)
piItemId = lens _piItemId (\ s a -> s{_piItemId = a})
piQuantity :: Lens' PosInventory (Maybe Int64)
piQuantity
= lens _piQuantity (\ s a -> s{_piQuantity = a}) .
mapping _Coerce
piTargetCountry :: Lens' PosInventory (Maybe Text)
piTargetCountry
= lens _piTargetCountry
(\ s a -> s{_piTargetCountry = a})
piGtin :: Lens' PosInventory (Maybe Text)
piGtin = lens _piGtin (\ s a -> s{_piGtin = a})
piPrice :: Lens' PosInventory (Maybe Price)
piPrice = lens _piPrice (\ s a -> s{_piPrice = a})
piContentLanguage :: Lens' PosInventory (Maybe Text)
piContentLanguage
= lens _piContentLanguage
(\ s a -> s{_piContentLanguage = a})
piTimestamp :: Lens' PosInventory (Maybe Text)
piTimestamp
= lens _piTimestamp (\ s a -> s{_piTimestamp = a})
instance FromJSON PosInventory where
parseJSON
= withObject "PosInventory"
(\ o ->
PosInventory' <$>
(o .:? "storeCode") <*>
(o .:? "kind" .!= "content#posInventory")
<*> (o .:? "itemId")
<*> (o .:? "quantity")
<*> (o .:? "targetCountry")
<*> (o .:? "gtin")
<*> (o .:? "price")
<*> (o .:? "contentLanguage")
<*> (o .:? "timestamp"))
instance ToJSON PosInventory where
toJSON PosInventory'{..}
= object
(catMaybes
[("storeCode" .=) <$> _piStoreCode,
Just ("kind" .= _piKind),
("itemId" .=) <$> _piItemId,
("quantity" .=) <$> _piQuantity,
("targetCountry" .=) <$> _piTargetCountry,
("gtin" .=) <$> _piGtin, ("price" .=) <$> _piPrice,
("contentLanguage" .=) <$> _piContentLanguage,
("timestamp" .=) <$> _piTimestamp])
data LiaSettingsListPosDataProvidersResponse = LiaSettingsListPosDataProvidersResponse'
{ _lslpdprKind :: !Text
, _lslpdprPosDataProviders :: !(Maybe [PosDataProviders])
} deriving (Eq,Show,Data,Typeable,Generic)
liaSettingsListPosDataProvidersResponse
:: LiaSettingsListPosDataProvidersResponse
liaSettingsListPosDataProvidersResponse =
LiaSettingsListPosDataProvidersResponse'
{ _lslpdprKind = "content#liasettingsListPosDataProvidersResponse"
, _lslpdprPosDataProviders = Nothing
}
lslpdprKind :: Lens' LiaSettingsListPosDataProvidersResponse Text
lslpdprKind
= lens _lslpdprKind (\ s a -> s{_lslpdprKind = a})
lslpdprPosDataProviders :: Lens' LiaSettingsListPosDataProvidersResponse [PosDataProviders]
lslpdprPosDataProviders
= lens _lslpdprPosDataProviders
(\ s a -> s{_lslpdprPosDataProviders = a})
. _Default
. _Coerce
instance FromJSON
LiaSettingsListPosDataProvidersResponse where
parseJSON
= withObject
"LiaSettingsListPosDataProvidersResponse"
(\ o ->
LiaSettingsListPosDataProvidersResponse' <$>
(o .:? "kind" .!=
"content#liasettingsListPosDataProvidersResponse")
<*> (o .:? "posDataProviders" .!= mempty))
instance ToJSON
LiaSettingsListPosDataProvidersResponse where
toJSON LiaSettingsListPosDataProvidersResponse'{..}
= object
(catMaybes
[Just ("kind" .= _lslpdprKind),
("posDataProviders" .=) <$>
_lslpdprPosDataProviders])
data OrderinvoicesCreateRefundInvoiceRequest = OrderinvoicesCreateRefundInvoiceRequest'
{ _ocrirRefundOnlyOption :: !(Maybe OrderinvoicesCustomBatchRequestEntryCreateRefundInvoiceRefundOption)
, _ocrirInvoiceId :: !(Maybe Text)
, _ocrirShipmentInvoices :: !(Maybe [ShipmentInvoice])
, _ocrirOperationId :: !(Maybe Text)
, _ocrirReturnOption :: !(Maybe OrderinvoicesCustomBatchRequestEntryCreateRefundInvoiceReturnOption)
} deriving (Eq,Show,Data,Typeable,Generic)
orderinvoicesCreateRefundInvoiceRequest
:: OrderinvoicesCreateRefundInvoiceRequest
orderinvoicesCreateRefundInvoiceRequest =
OrderinvoicesCreateRefundInvoiceRequest'
{ _ocrirRefundOnlyOption = Nothing
, _ocrirInvoiceId = Nothing
, _ocrirShipmentInvoices = Nothing
, _ocrirOperationId = Nothing
, _ocrirReturnOption = Nothing
}
ocrirRefundOnlyOption :: Lens' OrderinvoicesCreateRefundInvoiceRequest (Maybe OrderinvoicesCustomBatchRequestEntryCreateRefundInvoiceRefundOption)
ocrirRefundOnlyOption
= lens _ocrirRefundOnlyOption
(\ s a -> s{_ocrirRefundOnlyOption = a})
ocrirInvoiceId :: Lens' OrderinvoicesCreateRefundInvoiceRequest (Maybe Text)
ocrirInvoiceId
= lens _ocrirInvoiceId
(\ s a -> s{_ocrirInvoiceId = a})
ocrirShipmentInvoices :: Lens' OrderinvoicesCreateRefundInvoiceRequest [ShipmentInvoice]
ocrirShipmentInvoices
= lens _ocrirShipmentInvoices
(\ s a -> s{_ocrirShipmentInvoices = a})
. _Default
. _Coerce
ocrirOperationId :: Lens' OrderinvoicesCreateRefundInvoiceRequest (Maybe Text)
ocrirOperationId
= lens _ocrirOperationId
(\ s a -> s{_ocrirOperationId = a})
ocrirReturnOption :: Lens' OrderinvoicesCreateRefundInvoiceRequest (Maybe OrderinvoicesCustomBatchRequestEntryCreateRefundInvoiceReturnOption)
ocrirReturnOption
= lens _ocrirReturnOption
(\ s a -> s{_ocrirReturnOption = a})
instance FromJSON
OrderinvoicesCreateRefundInvoiceRequest where
parseJSON
= withObject
"OrderinvoicesCreateRefundInvoiceRequest"
(\ o ->
OrderinvoicesCreateRefundInvoiceRequest' <$>
(o .:? "refundOnlyOption") <*> (o .:? "invoiceId")
<*> (o .:? "shipmentInvoices" .!= mempty)
<*> (o .:? "operationId")
<*> (o .:? "returnOption"))
instance ToJSON
OrderinvoicesCreateRefundInvoiceRequest where
toJSON OrderinvoicesCreateRefundInvoiceRequest'{..}
= object
(catMaybes
[("refundOnlyOption" .=) <$> _ocrirRefundOnlyOption,
("invoiceId" .=) <$> _ocrirInvoiceId,
("shipmentInvoices" .=) <$> _ocrirShipmentInvoices,
("operationId" .=) <$> _ocrirOperationId,
("returnOption" .=) <$> _ocrirReturnOption])
data DatafeedStatus = DatafeedStatus'
{ _dsItemsTotal :: !(Maybe (Textual Word64))
, _dsCountry :: !(Maybe Text)
, _dsKind :: !Text
, _dsWarnings :: !(Maybe [DatafeedStatusError])
, _dsDatafeedId :: !(Maybe (Textual Word64))
, _dsProcessingStatus :: !(Maybe Text)
, _dsLanguage :: !(Maybe Text)
, _dsLastUploadDate :: !(Maybe Text)
, _dsItemsValid :: !(Maybe (Textual Word64))
, _dsErrors :: !(Maybe [DatafeedStatusError])
} deriving (Eq,Show,Data,Typeable,Generic)
datafeedStatus
:: DatafeedStatus
datafeedStatus =
DatafeedStatus'
{ _dsItemsTotal = Nothing
, _dsCountry = Nothing
, _dsKind = "content#datafeedStatus"
, _dsWarnings = Nothing
, _dsDatafeedId = Nothing
, _dsProcessingStatus = Nothing
, _dsLanguage = Nothing
, _dsLastUploadDate = Nothing
, _dsItemsValid = Nothing
, _dsErrors = Nothing
}
dsItemsTotal :: Lens' DatafeedStatus (Maybe Word64)
dsItemsTotal
= lens _dsItemsTotal (\ s a -> s{_dsItemsTotal = a})
. mapping _Coerce
dsCountry :: Lens' DatafeedStatus (Maybe Text)
dsCountry
= lens _dsCountry (\ s a -> s{_dsCountry = a})
dsKind :: Lens' DatafeedStatus Text
dsKind = lens _dsKind (\ s a -> s{_dsKind = a})
dsWarnings :: Lens' DatafeedStatus [DatafeedStatusError]
dsWarnings
= lens _dsWarnings (\ s a -> s{_dsWarnings = a}) .
_Default
. _Coerce
dsDatafeedId :: Lens' DatafeedStatus (Maybe Word64)
dsDatafeedId
= lens _dsDatafeedId (\ s a -> s{_dsDatafeedId = a})
. mapping _Coerce
dsProcessingStatus :: Lens' DatafeedStatus (Maybe Text)
dsProcessingStatus
= lens _dsProcessingStatus
(\ s a -> s{_dsProcessingStatus = a})
dsLanguage :: Lens' DatafeedStatus (Maybe Text)
dsLanguage
= lens _dsLanguage (\ s a -> s{_dsLanguage = a})
dsLastUploadDate :: Lens' DatafeedStatus (Maybe Text)
dsLastUploadDate
= lens _dsLastUploadDate
(\ s a -> s{_dsLastUploadDate = a})
dsItemsValid :: Lens' DatafeedStatus (Maybe Word64)
dsItemsValid
= lens _dsItemsValid (\ s a -> s{_dsItemsValid = a})
. mapping _Coerce
dsErrors :: Lens' DatafeedStatus [DatafeedStatusError]
dsErrors
= lens _dsErrors (\ s a -> s{_dsErrors = a}) .
_Default
. _Coerce
instance FromJSON DatafeedStatus where
parseJSON
= withObject "DatafeedStatus"
(\ o ->
DatafeedStatus' <$>
(o .:? "itemsTotal") <*> (o .:? "country") <*>
(o .:? "kind" .!= "content#datafeedStatus")
<*> (o .:? "warnings" .!= mempty)
<*> (o .:? "datafeedId")
<*> (o .:? "processingStatus")
<*> (o .:? "language")
<*> (o .:? "lastUploadDate")
<*> (o .:? "itemsValid")
<*> (o .:? "errors" .!= mempty))
instance ToJSON DatafeedStatus where
toJSON DatafeedStatus'{..}
= object
(catMaybes
[("itemsTotal" .=) <$> _dsItemsTotal,
("country" .=) <$> _dsCountry,
Just ("kind" .= _dsKind),
("warnings" .=) <$> _dsWarnings,
("datafeedId" .=) <$> _dsDatafeedId,
("processingStatus" .=) <$> _dsProcessingStatus,
("language" .=) <$> _dsLanguage,
("lastUploadDate" .=) <$> _dsLastUploadDate,
("itemsValid" .=) <$> _dsItemsValid,
("errors" .=) <$> _dsErrors])
newtype DatafeedstatusesCustomBatchRequest = DatafeedstatusesCustomBatchRequest'
{ _dcbrcEntries :: Maybe [DatafeedstatusesCustomBatchRequestEntry]
} deriving (Eq,Show,Data,Typeable,Generic)
datafeedstatusesCustomBatchRequest
:: DatafeedstatusesCustomBatchRequest
datafeedstatusesCustomBatchRequest =
DatafeedstatusesCustomBatchRequest'
{ _dcbrcEntries = Nothing
}
dcbrcEntries :: Lens' DatafeedstatusesCustomBatchRequest [DatafeedstatusesCustomBatchRequestEntry]
dcbrcEntries
= lens _dcbrcEntries (\ s a -> s{_dcbrcEntries = a})
. _Default
. _Coerce
instance FromJSON DatafeedstatusesCustomBatchRequest
where
parseJSON
= withObject "DatafeedstatusesCustomBatchRequest"
(\ o ->
DatafeedstatusesCustomBatchRequest' <$>
(o .:? "entries" .!= mempty))
instance ToJSON DatafeedstatusesCustomBatchRequest
where
toJSON DatafeedstatusesCustomBatchRequest'{..}
= object
(catMaybes [("entries" .=) <$> _dcbrcEntries])
data OrderpaymentsNotifyRefundResponse = OrderpaymentsNotifyRefundResponse'
{ _onrrKind :: !Text
, _onrrExecutionStatus :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
orderpaymentsNotifyRefundResponse
:: OrderpaymentsNotifyRefundResponse
orderpaymentsNotifyRefundResponse =
OrderpaymentsNotifyRefundResponse'
{ _onrrKind = "content#orderpaymentsNotifyRefundResponse"
, _onrrExecutionStatus = Nothing
}
onrrKind :: Lens' OrderpaymentsNotifyRefundResponse Text
onrrKind = lens _onrrKind (\ s a -> s{_onrrKind = a})
onrrExecutionStatus :: Lens' OrderpaymentsNotifyRefundResponse (Maybe Text)
onrrExecutionStatus
= lens _onrrExecutionStatus
(\ s a -> s{_onrrExecutionStatus = a})
instance FromJSON OrderpaymentsNotifyRefundResponse
where
parseJSON
= withObject "OrderpaymentsNotifyRefundResponse"
(\ o ->
OrderpaymentsNotifyRefundResponse' <$>
(o .:? "kind" .!=
"content#orderpaymentsNotifyRefundResponse")
<*> (o .:? "executionStatus"))
instance ToJSON OrderpaymentsNotifyRefundResponse
where
toJSON OrderpaymentsNotifyRefundResponse'{..}
= object
(catMaybes
[Just ("kind" .= _onrrKind),
("executionStatus" .=) <$> _onrrExecutionStatus])
data OrdersInStoreRefundLineItemRequest = OrdersInStoreRefundLineItemRequest'
{ _oisrlirQuantity :: !(Maybe (Textual Word32))
, _oisrlirLineItemId :: !(Maybe Text)
, _oisrlirReason :: !(Maybe Text)
, _oisrlirOperationId :: !(Maybe Text)
, _oisrlirProductId :: !(Maybe Text)
, _oisrlirTaxAmount :: !(Maybe Price)
, _oisrlirPriceAmount :: !(Maybe Price)
, _oisrlirReasonText :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
ordersInStoreRefundLineItemRequest
:: OrdersInStoreRefundLineItemRequest
ordersInStoreRefundLineItemRequest =
OrdersInStoreRefundLineItemRequest'
{ _oisrlirQuantity = Nothing
, _oisrlirLineItemId = Nothing
, _oisrlirReason = Nothing
, _oisrlirOperationId = Nothing
, _oisrlirProductId = Nothing
, _oisrlirTaxAmount = Nothing
, _oisrlirPriceAmount = Nothing
, _oisrlirReasonText = Nothing
}
oisrlirQuantity :: Lens' OrdersInStoreRefundLineItemRequest (Maybe Word32)
oisrlirQuantity
= lens _oisrlirQuantity
(\ s a -> s{_oisrlirQuantity = a})
. mapping _Coerce
oisrlirLineItemId :: Lens' OrdersInStoreRefundLineItemRequest (Maybe Text)
oisrlirLineItemId
= lens _oisrlirLineItemId
(\ s a -> s{_oisrlirLineItemId = a})
oisrlirReason :: Lens' OrdersInStoreRefundLineItemRequest (Maybe Text)
oisrlirReason
= lens _oisrlirReason
(\ s a -> s{_oisrlirReason = a})
oisrlirOperationId :: Lens' OrdersInStoreRefundLineItemRequest (Maybe Text)
oisrlirOperationId
= lens _oisrlirOperationId
(\ s a -> s{_oisrlirOperationId = a})
oisrlirProductId :: Lens' OrdersInStoreRefundLineItemRequest (Maybe Text)
oisrlirProductId
= lens _oisrlirProductId
(\ s a -> s{_oisrlirProductId = a})
oisrlirTaxAmount :: Lens' OrdersInStoreRefundLineItemRequest (Maybe Price)
oisrlirTaxAmount
= lens _oisrlirTaxAmount
(\ s a -> s{_oisrlirTaxAmount = a})
oisrlirPriceAmount :: Lens' OrdersInStoreRefundLineItemRequest (Maybe Price)
oisrlirPriceAmount
= lens _oisrlirPriceAmount
(\ s a -> s{_oisrlirPriceAmount = a})
oisrlirReasonText :: Lens' OrdersInStoreRefundLineItemRequest (Maybe Text)
oisrlirReasonText
= lens _oisrlirReasonText
(\ s a -> s{_oisrlirReasonText = a})
instance FromJSON OrdersInStoreRefundLineItemRequest
where
parseJSON
= withObject "OrdersInStoreRefundLineItemRequest"
(\ o ->
OrdersInStoreRefundLineItemRequest' <$>
(o .:? "quantity") <*> (o .:? "lineItemId") <*>
(o .:? "reason")
<*> (o .:? "operationId")
<*> (o .:? "productId")
<*> (o .:? "taxAmount")
<*> (o .:? "priceAmount")
<*> (o .:? "reasonText"))
instance ToJSON OrdersInStoreRefundLineItemRequest
where
toJSON OrdersInStoreRefundLineItemRequest'{..}
= object
(catMaybes
[("quantity" .=) <$> _oisrlirQuantity,
("lineItemId" .=) <$> _oisrlirLineItemId,
("reason" .=) <$> _oisrlirReason,
("operationId" .=) <$> _oisrlirOperationId,
("productId" .=) <$> _oisrlirProductId,
("taxAmount" .=) <$> _oisrlirTaxAmount,
("priceAmount" .=) <$> _oisrlirPriceAmount,
("reasonText" .=) <$> _oisrlirReasonText])
data AccountsCustomBatchRequestEntryLinkRequest = AccountsCustomBatchRequestEntryLinkRequest'
{ _acbrelrAction :: !(Maybe Text)
, _acbrelrLinkedAccountId :: !(Maybe Text)
, _acbrelrLinkType :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
accountsCustomBatchRequestEntryLinkRequest
:: AccountsCustomBatchRequestEntryLinkRequest
accountsCustomBatchRequestEntryLinkRequest =
AccountsCustomBatchRequestEntryLinkRequest'
{ _acbrelrAction = Nothing
, _acbrelrLinkedAccountId = Nothing
, _acbrelrLinkType = Nothing
}
acbrelrAction :: Lens' AccountsCustomBatchRequestEntryLinkRequest (Maybe Text)
acbrelrAction
= lens _acbrelrAction
(\ s a -> s{_acbrelrAction = a})
acbrelrLinkedAccountId :: Lens' AccountsCustomBatchRequestEntryLinkRequest (Maybe Text)
acbrelrLinkedAccountId
= lens _acbrelrLinkedAccountId
(\ s a -> s{_acbrelrLinkedAccountId = a})
acbrelrLinkType :: Lens' AccountsCustomBatchRequestEntryLinkRequest (Maybe Text)
acbrelrLinkType
= lens _acbrelrLinkType
(\ s a -> s{_acbrelrLinkType = a})
instance FromJSON
AccountsCustomBatchRequestEntryLinkRequest where
parseJSON
= withObject
"AccountsCustomBatchRequestEntryLinkRequest"
(\ o ->
AccountsCustomBatchRequestEntryLinkRequest' <$>
(o .:? "action") <*> (o .:? "linkedAccountId") <*>
(o .:? "linkType"))
instance ToJSON
AccountsCustomBatchRequestEntryLinkRequest where
toJSON
AccountsCustomBatchRequestEntryLinkRequest'{..}
= object
(catMaybes
[("action" .=) <$> _acbrelrAction,
("linkedAccountId" .=) <$> _acbrelrLinkedAccountId,
("linkType" .=) <$> _acbrelrLinkType])
data ProductShippingDimension = ProductShippingDimension'
{ _psdValue :: !(Maybe (Textual Double))
, _psdUnit :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
productShippingDimension
:: ProductShippingDimension
productShippingDimension =
ProductShippingDimension'
{ _psdValue = Nothing
, _psdUnit = Nothing
}
psdValue :: Lens' ProductShippingDimension (Maybe Double)
psdValue
= lens _psdValue (\ s a -> s{_psdValue = a}) .
mapping _Coerce
psdUnit :: Lens' ProductShippingDimension (Maybe Text)
psdUnit = lens _psdUnit (\ s a -> s{_psdUnit = a})
instance FromJSON ProductShippingDimension where
parseJSON
= withObject "ProductShippingDimension"
(\ o ->
ProductShippingDimension' <$>
(o .:? "value") <*> (o .:? "unit"))
instance ToJSON ProductShippingDimension where
toJSON ProductShippingDimension'{..}
= object
(catMaybes
[("value" .=) <$> _psdValue,
("unit" .=) <$> _psdUnit])
data DatafeedsCustomBatchResponseEntry = DatafeedsCustomBatchResponseEntry'
{ _dcbrecDatafeed :: !(Maybe Datafeed)
, _dcbrecErrors :: !(Maybe Errors)
, _dcbrecBatchId :: !(Maybe (Textual Word32))
} deriving (Eq,Show,Data,Typeable,Generic)
datafeedsCustomBatchResponseEntry
:: DatafeedsCustomBatchResponseEntry
datafeedsCustomBatchResponseEntry =
DatafeedsCustomBatchResponseEntry'
{ _dcbrecDatafeed = Nothing
, _dcbrecErrors = Nothing
, _dcbrecBatchId = Nothing
}
dcbrecDatafeed :: Lens' DatafeedsCustomBatchResponseEntry (Maybe Datafeed)
dcbrecDatafeed
= lens _dcbrecDatafeed
(\ s a -> s{_dcbrecDatafeed = a})
dcbrecErrors :: Lens' DatafeedsCustomBatchResponseEntry (Maybe Errors)
dcbrecErrors
= lens _dcbrecErrors (\ s a -> s{_dcbrecErrors = a})
dcbrecBatchId :: Lens' DatafeedsCustomBatchResponseEntry (Maybe Word32)
dcbrecBatchId
= lens _dcbrecBatchId
(\ s a -> s{_dcbrecBatchId = a})
. mapping _Coerce
instance FromJSON DatafeedsCustomBatchResponseEntry
where
parseJSON
= withObject "DatafeedsCustomBatchResponseEntry"
(\ o ->
DatafeedsCustomBatchResponseEntry' <$>
(o .:? "datafeed") <*> (o .:? "errors") <*>
(o .:? "batchId"))
instance ToJSON DatafeedsCustomBatchResponseEntry
where
toJSON DatafeedsCustomBatchResponseEntry'{..}
= object
(catMaybes
[("datafeed" .=) <$> _dcbrecDatafeed,
("errors" .=) <$> _dcbrecErrors,
("batchId" .=) <$> _dcbrecBatchId])
data DatafeedstatusesListResponse = DatafeedstatusesListResponse'
{ _dlrlNextPageToken :: !(Maybe Text)
, _dlrlKind :: !Text
, _dlrlResources :: !(Maybe [DatafeedStatus])
} deriving (Eq,Show,Data,Typeable,Generic)
datafeedstatusesListResponse
:: DatafeedstatusesListResponse
datafeedstatusesListResponse =
DatafeedstatusesListResponse'
{ _dlrlNextPageToken = Nothing
, _dlrlKind = "content#datafeedstatusesListResponse"
, _dlrlResources = Nothing
}
dlrlNextPageToken :: Lens' DatafeedstatusesListResponse (Maybe Text)
dlrlNextPageToken
= lens _dlrlNextPageToken
(\ s a -> s{_dlrlNextPageToken = a})
dlrlKind :: Lens' DatafeedstatusesListResponse Text
dlrlKind = lens _dlrlKind (\ s a -> s{_dlrlKind = a})
dlrlResources :: Lens' DatafeedstatusesListResponse [DatafeedStatus]
dlrlResources
= lens _dlrlResources
(\ s a -> s{_dlrlResources = a})
. _Default
. _Coerce
instance FromJSON DatafeedstatusesListResponse where
parseJSON
= withObject "DatafeedstatusesListResponse"
(\ o ->
DatafeedstatusesListResponse' <$>
(o .:? "nextPageToken") <*>
(o .:? "kind" .!=
"content#datafeedstatusesListResponse")
<*> (o .:? "resources" .!= mempty))
instance ToJSON DatafeedstatusesListResponse where
toJSON DatafeedstatusesListResponse'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _dlrlNextPageToken,
Just ("kind" .= _dlrlKind),
("resources" .=) <$> _dlrlResources])
data ProductsListResponse = ProductsListResponse'
{ _plr1NextPageToken :: !(Maybe Text)
, _plr1Kind :: !Text
, _plr1Resources :: !(Maybe [Product])
} deriving (Eq,Show,Data,Typeable,Generic)
productsListResponse
:: ProductsListResponse
productsListResponse =
ProductsListResponse'
{ _plr1NextPageToken = Nothing
, _plr1Kind = "content#productsListResponse"
, _plr1Resources = Nothing
}
plr1NextPageToken :: Lens' ProductsListResponse (Maybe Text)
plr1NextPageToken
= lens _plr1NextPageToken
(\ s a -> s{_plr1NextPageToken = a})
plr1Kind :: Lens' ProductsListResponse Text
plr1Kind = lens _plr1Kind (\ s a -> s{_plr1Kind = a})
plr1Resources :: Lens' ProductsListResponse [Product]
plr1Resources
= lens _plr1Resources
(\ s a -> s{_plr1Resources = a})
. _Default
. _Coerce
instance FromJSON ProductsListResponse where
parseJSON
= withObject "ProductsListResponse"
(\ o ->
ProductsListResponse' <$>
(o .:? "nextPageToken") <*>
(o .:? "kind" .!= "content#productsListResponse")
<*> (o .:? "resources" .!= mempty))
instance ToJSON ProductsListResponse where
toJSON ProductsListResponse'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _plr1NextPageToken,
Just ("kind" .= _plr1Kind),
("resources" .=) <$> _plr1Resources])
data ShipmentInvoice = ShipmentInvoice'
{ _siShipmentGroupId :: !(Maybe Text)
, _siLineItemInvoices :: !(Maybe [ShipmentInvoiceLineItemInvoice])
, _siInvoiceSummary :: !(Maybe InvoiceSummary)
} deriving (Eq,Show,Data,Typeable,Generic)
shipmentInvoice
:: ShipmentInvoice
shipmentInvoice =
ShipmentInvoice'
{ _siShipmentGroupId = Nothing
, _siLineItemInvoices = Nothing
, _siInvoiceSummary = Nothing
}
siShipmentGroupId :: Lens' ShipmentInvoice (Maybe Text)
siShipmentGroupId
= lens _siShipmentGroupId
(\ s a -> s{_siShipmentGroupId = a})
siLineItemInvoices :: Lens' ShipmentInvoice [ShipmentInvoiceLineItemInvoice]
siLineItemInvoices
= lens _siLineItemInvoices
(\ s a -> s{_siLineItemInvoices = a})
. _Default
. _Coerce
siInvoiceSummary :: Lens' ShipmentInvoice (Maybe InvoiceSummary)
siInvoiceSummary
= lens _siInvoiceSummary
(\ s a -> s{_siInvoiceSummary = a})
instance FromJSON ShipmentInvoice where
parseJSON
= withObject "ShipmentInvoice"
(\ o ->
ShipmentInvoice' <$>
(o .:? "shipmentGroupId") <*>
(o .:? "lineItemInvoices" .!= mempty)
<*> (o .:? "invoiceSummary"))
instance ToJSON ShipmentInvoice where
toJSON ShipmentInvoice'{..}
= object
(catMaybes
[("shipmentGroupId" .=) <$> _siShipmentGroupId,
("lineItemInvoices" .=) <$> _siLineItemInvoices,
("invoiceSummary" .=) <$> _siInvoiceSummary])
data OrderCancellation = OrderCancellation'
{ _ocQuantity :: !(Maybe (Textual Word32))
, _ocActor :: !(Maybe Text)
, _ocReason :: !(Maybe Text)
, _ocCreationDate :: !(Maybe Text)
, _ocReasonText :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
orderCancellation
:: OrderCancellation
orderCancellation =
OrderCancellation'
{ _ocQuantity = Nothing
, _ocActor = Nothing
, _ocReason = Nothing
, _ocCreationDate = Nothing
, _ocReasonText = Nothing
}
ocQuantity :: Lens' OrderCancellation (Maybe Word32)
ocQuantity
= lens _ocQuantity (\ s a -> s{_ocQuantity = a}) .
mapping _Coerce
ocActor :: Lens' OrderCancellation (Maybe Text)
ocActor = lens _ocActor (\ s a -> s{_ocActor = a})
ocReason :: Lens' OrderCancellation (Maybe Text)
ocReason = lens _ocReason (\ s a -> s{_ocReason = a})
ocCreationDate :: Lens' OrderCancellation (Maybe Text)
ocCreationDate
= lens _ocCreationDate
(\ s a -> s{_ocCreationDate = a})
ocReasonText :: Lens' OrderCancellation (Maybe Text)
ocReasonText
= lens _ocReasonText (\ s a -> s{_ocReasonText = a})
instance FromJSON OrderCancellation where
parseJSON
= withObject "OrderCancellation"
(\ o ->
OrderCancellation' <$>
(o .:? "quantity") <*> (o .:? "actor") <*>
(o .:? "reason")
<*> (o .:? "creationDate")
<*> (o .:? "reasonText"))
instance ToJSON OrderCancellation where
toJSON OrderCancellation'{..}
= object
(catMaybes
[("quantity" .=) <$> _ocQuantity,
("actor" .=) <$> _ocActor,
("reason" .=) <$> _ocReason,
("creationDate" .=) <$> _ocCreationDate,
("reasonText" .=) <$> _ocReasonText])