module Network.AWS.ImportExport.GetShippingLabel
(
getShippingLabel
, GetShippingLabel
, gslStreet3
, gslAPIVersion
, gslCountry
, gslStateOrProvince
, gslPostalCode
, gslStreet2
, gslName
, gslCompany
, gslPhoneNumber
, gslCity
, gslStreet1
, gslJobIds
, getShippingLabelResponse
, GetShippingLabelResponse
, gslrsShippingLabelURL
, gslrsWarning
, gslrsResponseStatus
) where
import Network.AWS.ImportExport.Types
import Network.AWS.ImportExport.Types.Product
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data GetShippingLabel = GetShippingLabel'
{ _gslStreet3 :: !(Maybe Text)
, _gslAPIVersion :: !(Maybe Text)
, _gslCountry :: !(Maybe Text)
, _gslStateOrProvince :: !(Maybe Text)
, _gslPostalCode :: !(Maybe Text)
, _gslStreet2 :: !(Maybe Text)
, _gslName :: !(Maybe Text)
, _gslCompany :: !(Maybe Text)
, _gslPhoneNumber :: !(Maybe Text)
, _gslCity :: !(Maybe Text)
, _gslStreet1 :: !(Maybe Text)
, _gslJobIds :: ![Text]
} deriving (Eq,Read,Show,Data,Typeable,Generic)
getShippingLabel
:: GetShippingLabel
getShippingLabel =
GetShippingLabel'
{ _gslStreet3 = Nothing
, _gslAPIVersion = Nothing
, _gslCountry = Nothing
, _gslStateOrProvince = Nothing
, _gslPostalCode = Nothing
, _gslStreet2 = Nothing
, _gslName = Nothing
, _gslCompany = Nothing
, _gslPhoneNumber = Nothing
, _gslCity = Nothing
, _gslStreet1 = Nothing
, _gslJobIds = mempty
}
gslStreet3 :: Lens' GetShippingLabel (Maybe Text)
gslStreet3 = lens _gslStreet3 (\ s a -> s{_gslStreet3 = a});
gslAPIVersion :: Lens' GetShippingLabel (Maybe Text)
gslAPIVersion = lens _gslAPIVersion (\ s a -> s{_gslAPIVersion = a});
gslCountry :: Lens' GetShippingLabel (Maybe Text)
gslCountry = lens _gslCountry (\ s a -> s{_gslCountry = a});
gslStateOrProvince :: Lens' GetShippingLabel (Maybe Text)
gslStateOrProvince = lens _gslStateOrProvince (\ s a -> s{_gslStateOrProvince = a});
gslPostalCode :: Lens' GetShippingLabel (Maybe Text)
gslPostalCode = lens _gslPostalCode (\ s a -> s{_gslPostalCode = a});
gslStreet2 :: Lens' GetShippingLabel (Maybe Text)
gslStreet2 = lens _gslStreet2 (\ s a -> s{_gslStreet2 = a});
gslName :: Lens' GetShippingLabel (Maybe Text)
gslName = lens _gslName (\ s a -> s{_gslName = a});
gslCompany :: Lens' GetShippingLabel (Maybe Text)
gslCompany = lens _gslCompany (\ s a -> s{_gslCompany = a});
gslPhoneNumber :: Lens' GetShippingLabel (Maybe Text)
gslPhoneNumber = lens _gslPhoneNumber (\ s a -> s{_gslPhoneNumber = a});
gslCity :: Lens' GetShippingLabel (Maybe Text)
gslCity = lens _gslCity (\ s a -> s{_gslCity = a});
gslStreet1 :: Lens' GetShippingLabel (Maybe Text)
gslStreet1 = lens _gslStreet1 (\ s a -> s{_gslStreet1 = a});
gslJobIds :: Lens' GetShippingLabel [Text]
gslJobIds = lens _gslJobIds (\ s a -> s{_gslJobIds = a}) . _Coerce;
instance AWSRequest GetShippingLabel where
type Rs GetShippingLabel = GetShippingLabelResponse
request = postQuery importExport
response
= receiveXMLWrapper "GetShippingLabelResult"
(\ s h x ->
GetShippingLabelResponse' <$>
(x .@? "ShippingLabelURL") <*> (x .@? "Warning") <*>
(pure (fromEnum s)))
instance ToHeaders GetShippingLabel where
toHeaders = const mempty
instance ToPath GetShippingLabel where
toPath = const "/"
instance ToQuery GetShippingLabel where
toQuery GetShippingLabel'{..}
= mconcat
["Operation=GetShippingLabel",
"Action" =: ("GetShippingLabel" :: ByteString),
"Version" =: ("2010-06-01" :: ByteString),
"street3" =: _gslStreet3,
"APIVersion" =: _gslAPIVersion,
"country" =: _gslCountry,
"stateOrProvince" =: _gslStateOrProvince,
"postalCode" =: _gslPostalCode,
"street2" =: _gslStreet2, "name" =: _gslName,
"company" =: _gslCompany,
"phoneNumber" =: _gslPhoneNumber, "city" =: _gslCity,
"street1" =: _gslStreet1,
"jobIds" =: toQueryList "member" _gslJobIds]
data GetShippingLabelResponse = GetShippingLabelResponse'
{ _gslrsShippingLabelURL :: !(Maybe Text)
, _gslrsWarning :: !(Maybe Text)
, _gslrsResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
getShippingLabelResponse
:: Int
-> GetShippingLabelResponse
getShippingLabelResponse pResponseStatus_ =
GetShippingLabelResponse'
{ _gslrsShippingLabelURL = Nothing
, _gslrsWarning = Nothing
, _gslrsResponseStatus = pResponseStatus_
}
gslrsShippingLabelURL :: Lens' GetShippingLabelResponse (Maybe Text)
gslrsShippingLabelURL = lens _gslrsShippingLabelURL (\ s a -> s{_gslrsShippingLabelURL = a});
gslrsWarning :: Lens' GetShippingLabelResponse (Maybe Text)
gslrsWarning = lens _gslrsWarning (\ s a -> s{_gslrsWarning = a});
gslrsResponseStatus :: Lens' GetShippingLabelResponse Int
gslrsResponseStatus = lens _gslrsResponseStatus (\ s a -> s{_gslrsResponseStatus = a});