amazonka-importexport 1.2.0.2 → 1.3.0

raw patch · 10 files changed

+126/−127 lines, 10 filesdep ~amazonka-coredep ~amazonka-importexportdep ~amazonka-testPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: amazonka-core, amazonka-importexport, amazonka-test

API changes (from Hackage documentation)

Files

• README.md +1/−1
• amazonka-importexport.cabal +5/−5
• gen/Network/AWS/ImportExport.hs +9/−9
• gen/Network/AWS/ImportExport/CancelJob.hs +9/−9
• gen/Network/AWS/ImportExport/CreateJob.hs +8/−8
• gen/Network/AWS/ImportExport/GetShippingLabel.hs +29/−29
• gen/Network/AWS/ImportExport/GetStatus.hs +29/−29
• gen/Network/AWS/ImportExport/ListJobs.hs +12/−13
• gen/Network/AWS/ImportExport/Types.hs +16/−16
• gen/Network/AWS/ImportExport/UpdateJob.hs +8/−8

@@ -8,7 +8,7 @@  ## Version -`1.2.0.2`+`1.3.0`   ## Description

@@ -1,5 +1,5 @@ name:                  amazonka-importexport-version:               1.2.0.2+version:               1.3.0 synopsis:              Amazon Import/Export SDK. homepage:              https://github.com/brendanhay/amazonka bug-reports:           https://github.com/brendanhay/amazonka/issues@@ -61,7 +61,7 @@         , Network.AWS.ImportExport.Types.Sum      build-depends:-          amazonka-core == 1.2.0.*+          amazonka-core == 1.3.0.*         , base          >= 4.7     && < 5  test-suite amazonka-importexport-test@@ -81,9 +81,9 @@         , Test.AWS.ImportExport.Internal      build-depends:-          amazonka-core == 1.2.0.*-        , amazonka-test == 1.2.0.*-        , amazonka-importexport == 1.2.0.*+          amazonka-core == 1.3.0.*+        , amazonka-test == 1.3.0.*+        , amazonka-importexport == 1.3.0.*         , base         , bytestring         , lens

@@ -49,35 +49,35 @@     -- ** UnableToCancelJobIdException     , _UnableToCancelJobIdException -    -- ** InvalidVersionException-    , _InvalidVersionException-     -- ** MultipleRegionsException     , _MultipleRegionsException +    -- ** InvalidVersionException+    , _InvalidVersionException+     -- ** MalformedManifestException     , _MalformedManifestException +    -- ** MissingParameterException+    , _MissingParameterException+     -- ** CanceledJobIdException     , _CanceledJobIdException      -- ** BucketPermissionException     , _BucketPermissionException -    -- ** MissingParameterException-    , _MissingParameterException-     -- ** NoSuchBucketException     , _NoSuchBucketException      -- ** InvalidAddressException     , _InvalidAddressException -    -- ** InvalidManifestFieldException-    , _InvalidManifestFieldException-     -- ** MissingCustomsException     , _MissingCustomsException++    -- ** InvalidManifestFieldException+    , _InvalidManifestFieldException      -- ** InvalidCustomsException     , _InvalidCustomsException

@@ -36,7 +36,7 @@     , CancelJobResponse     -- * Response Lenses     , crsSuccess-    , crsStatus+    , crsResponseStatus     ) where  import           Network.AWS.ImportExport.Types@@ -104,8 +104,8 @@ -- -- /See:/ 'cancelJobResponse' smart constructor. data CancelJobResponse = CancelJobResponse'-    { _crsSuccess :: !(Maybe Bool)-    , _crsStatus  :: !Int+    { _crsSuccess        :: !(Maybe Bool)+    , _crsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'CancelJobResponse' with the minimum fields required to make a request.@@ -114,14 +114,14 @@ -- -- * 'crsSuccess' ----- * 'crsStatus'+-- * 'crsResponseStatus' cancelJobResponse-    :: Int -- ^ 'crsStatus'+    :: Int -- ^ 'crsResponseStatus'     -> CancelJobResponse-cancelJobResponse pStatus_ =+cancelJobResponse pResponseStatus_ =     CancelJobResponse'     { _crsSuccess = Nothing-    , _crsStatus = pStatus_+    , _crsResponseStatus = pResponseStatus_     }  -- | Undocumented member.@@ -129,5 +129,5 @@ crsSuccess = lens _crsSuccess (\ s a -> s{_crsSuccess = a});  -- | The response status code.-crsStatus :: Lens' CancelJobResponse Int-crsStatus = lens _crsStatus (\ s a -> s{_crsStatus = a});+crsResponseStatus :: Lens' CancelJobResponse Int+crsResponseStatus = lens _crsResponseStatus (\ s a -> s{_crsResponseStatus = a});

@@ -48,7 +48,7 @@     , cjrsSignatureFileContents     , cjrsWarningMessage     , cjrsArtifactList-    , cjrsStatus+    , cjrsResponseStatus     ) where  import           Network.AWS.ImportExport.Types@@ -158,7 +158,7 @@     , _cjrsSignatureFileContents :: !(Maybe Text)     , _cjrsWarningMessage        :: !(Maybe Text)     , _cjrsArtifactList          :: !(Maybe [Artifact])-    , _cjrsStatus                :: !Int+    , _cjrsResponseStatus        :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'CreateJobResponse' with the minimum fields required to make a request.@@ -177,11 +177,11 @@ -- -- * 'cjrsArtifactList' ----- * 'cjrsStatus'+-- * 'cjrsResponseStatus' createJobResponse-    :: Int -- ^ 'cjrsStatus'+    :: Int -- ^ 'cjrsResponseStatus'     -> CreateJobResponse-createJobResponse pStatus_ =+createJobResponse pResponseStatus_ =     CreateJobResponse'     { _cjrsSignature = Nothing     , _cjrsJobType = Nothing@@ -189,7 +189,7 @@     , _cjrsSignatureFileContents = Nothing     , _cjrsWarningMessage = Nothing     , _cjrsArtifactList = Nothing-    , _cjrsStatus = pStatus_+    , _cjrsResponseStatus = pResponseStatus_     }  -- | Undocumented member.@@ -217,5 +217,5 @@ cjrsArtifactList = lens _cjrsArtifactList (\ s a -> s{_cjrsArtifactList = a}) . _Default . _Coerce;  -- | The response status code.-cjrsStatus :: Lens' CreateJobResponse Int-cjrsStatus = lens _cjrsStatus (\ s a -> s{_cjrsStatus = a});+cjrsResponseStatus :: Lens' CreateJobResponse Int+cjrsResponseStatus = lens _cjrsResponseStatus (\ s a -> s{_cjrsResponseStatus = a});

@@ -30,14 +30,14 @@     -- * Request Lenses     , gslStreet3     , gslAPIVersion-    , gslPostalCode     , gslCountry     , gslStateOrProvince+    , gslPostalCode     , gslStreet2     , gslName     , gslCompany-    , gslCity     , gslPhoneNumber+    , gslCity     , gslStreet1     , gslJobIds @@ -47,7 +47,7 @@     -- * Response Lenses     , gslrsShippingLabelURL     , gslrsWarning-    , gslrsStatus+    , gslrsResponseStatus     ) where  import           Network.AWS.ImportExport.Types@@ -60,14 +60,14 @@ data GetShippingLabel = GetShippingLabel'     { _gslStreet3         :: !(Maybe Text)     , _gslAPIVersion      :: !(Maybe Text)-    , _gslPostalCode      :: !(Maybe Text)     , _gslCountry         :: !(Maybe Text)     , _gslStateOrProvince :: !(Maybe Text)+    , _gslPostalCode      :: !(Maybe Text)     , _gslStreet2         :: !(Maybe Text)     , _gslName            :: !(Maybe Text)     , _gslCompany         :: !(Maybe Text)-    , _gslCity            :: !(Maybe Text)     , _gslPhoneNumber     :: !(Maybe Text)+    , _gslCity            :: !(Maybe Text)     , _gslStreet1         :: !(Maybe Text)     , _gslJobIds          :: ![Text]     } deriving (Eq,Read,Show,Data,Typeable,Generic)@@ -80,22 +80,22 @@ -- -- * 'gslAPIVersion' ----- * 'gslPostalCode'--- -- * 'gslCountry' -- -- * 'gslStateOrProvince' --+-- * 'gslPostalCode'+-- -- * 'gslStreet2' -- -- * 'gslName' -- -- * 'gslCompany' ----- * 'gslCity'--- -- * 'gslPhoneNumber' --+-- * 'gslCity'+-- -- * 'gslStreet1' -- -- * 'gslJobIds'@@ -105,14 +105,14 @@     GetShippingLabel'     { _gslStreet3 = Nothing     , _gslAPIVersion = Nothing-    , _gslPostalCode = Nothing     , _gslCountry = Nothing     , _gslStateOrProvince = Nothing+    , _gslPostalCode = Nothing     , _gslStreet2 = Nothing     , _gslName = Nothing     , _gslCompany = Nothing-    , _gslCity = Nothing     , _gslPhoneNumber = Nothing+    , _gslCity = Nothing     , _gslStreet1 = Nothing     , _gslJobIds = mempty     }@@ -126,10 +126,6 @@ gslAPIVersion = lens _gslAPIVersion (\ s a -> s{_gslAPIVersion = a});  -- | Undocumented member.-gslPostalCode :: Lens' GetShippingLabel (Maybe Text)-gslPostalCode = lens _gslPostalCode (\ s a -> s{_gslPostalCode = a});---- | Undocumented member. gslCountry :: Lens' GetShippingLabel (Maybe Text) gslCountry = lens _gslCountry (\ s a -> s{_gslCountry = a}); @@ -138,6 +134,10 @@ gslStateOrProvince = lens _gslStateOrProvince (\ s a -> s{_gslStateOrProvince = a});  -- | Undocumented member.+gslPostalCode :: Lens' GetShippingLabel (Maybe Text)+gslPostalCode = lens _gslPostalCode (\ s a -> s{_gslPostalCode = a});++-- | Undocumented member. gslStreet2 :: Lens' GetShippingLabel (Maybe Text) gslStreet2 = lens _gslStreet2 (\ s a -> s{_gslStreet2 = a}); @@ -150,14 +150,14 @@ gslCompany = lens _gslCompany (\ s a -> s{_gslCompany = a});  -- | Undocumented member.-gslCity :: Lens' GetShippingLabel (Maybe Text)-gslCity = lens _gslCity (\ s a -> s{_gslCity = a});---- | Undocumented member. gslPhoneNumber :: Lens' GetShippingLabel (Maybe Text) gslPhoneNumber = lens _gslPhoneNumber (\ s a -> s{_gslPhoneNumber = a});  -- | Undocumented member.+gslCity :: Lens' GetShippingLabel (Maybe Text)+gslCity = lens _gslCity (\ s a -> s{_gslCity = a});++-- | Undocumented member. gslStreet1 :: Lens' GetShippingLabel (Maybe Text) gslStreet1 = lens _gslStreet1 (\ s a -> s{_gslStreet1 = a}); @@ -189,12 +189,12 @@                "Version" =: ("2010-06-01" :: ByteString),                "street3" =: _gslStreet3,                "APIVersion" =: _gslAPIVersion,-               "postalCode" =: _gslPostalCode,                "country" =: _gslCountry,                "stateOrProvince" =: _gslStateOrProvince,+               "postalCode" =: _gslPostalCode,                "street2" =: _gslStreet2, "name" =: _gslName,-               "company" =: _gslCompany, "city" =: _gslCity,-               "phoneNumber" =: _gslPhoneNumber,+               "company" =: _gslCompany,+               "phoneNumber" =: _gslPhoneNumber, "city" =: _gslCity,                "street1" =: _gslStreet1,                "jobIds" =: toQueryList "member" _gslJobIds] @@ -202,7 +202,7 @@ data GetShippingLabelResponse = GetShippingLabelResponse'     { _gslrsShippingLabelURL :: !(Maybe Text)     , _gslrsWarning          :: !(Maybe Text)-    , _gslrsStatus           :: !Int+    , _gslrsResponseStatus   :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'GetShippingLabelResponse' with the minimum fields required to make a request.@@ -213,15 +213,15 @@ -- -- * 'gslrsWarning' ----- * 'gslrsStatus'+-- * 'gslrsResponseStatus' getShippingLabelResponse-    :: Int -- ^ 'gslrsStatus'+    :: Int -- ^ 'gslrsResponseStatus'     -> GetShippingLabelResponse-getShippingLabelResponse pStatus_ =+getShippingLabelResponse pResponseStatus_ =     GetShippingLabelResponse'     { _gslrsShippingLabelURL = Nothing     , _gslrsWarning = Nothing-    , _gslrsStatus = pStatus_+    , _gslrsResponseStatus = pResponseStatus_     }  -- | Undocumented member.@@ -233,5 +233,5 @@ gslrsWarning = lens _gslrsWarning (\ s a -> s{_gslrsWarning = a});  -- | The response status code.-gslrsStatus :: Lens' GetShippingLabelResponse Int-gslrsStatus = lens _gslrsStatus (\ s a -> s{_gslrsStatus = a});+gslrsResponseStatus :: Lens' GetShippingLabelResponse Int+gslrsResponseStatus = lens _gslrsResponseStatus (\ s a -> s{_gslrsResponseStatus = a});

@@ -38,8 +38,8 @@     , GetStatusResponse     -- * Response Lenses     , gsrsCarrier-    , gsrsSignature     , gsrsTrackingNumber+    , gsrsSignature     , gsrsJobType     , gsrsJobId     , gsrsSignatureFileContents@@ -51,9 +51,9 @@     , gsrsProgressCode     , gsrsLocationCode     , gsrsLogKey-    , gsrsProgressMessage     , gsrsLocationMessage-    , gsrsStatus+    , gsrsProgressMessage+    , gsrsResponseStatus     ) where  import           Network.AWS.ImportExport.Types@@ -101,8 +101,8 @@           = receiveXMLWrapper "GetStatusResult"               (\ s h x ->                  GetStatusResponse' <$>-                   (x .@? "Carrier") <*> (x .@? "Signature") <*>-                     (x .@? "TrackingNumber")+                   (x .@? "Carrier") <*> (x .@? "TrackingNumber") <*>+                     (x .@? "Signature")                      <*> (x .@? "JobType")                      <*> (x .@? "JobId")                      <*> (x .@? "SignatureFileContents")@@ -116,8 +116,8 @@                      <*> (x .@? "ProgressCode")                      <*> (x .@? "LocationCode")                      <*> (x .@? "LogKey")-                     <*> (x .@? "ProgressMessage")                      <*> (x .@? "LocationMessage")+                     <*> (x .@? "ProgressMessage")                      <*> (pure (fromEnum s)))  instance ToHeaders GetStatus where@@ -139,8 +139,8 @@ -- /See:/ 'getStatusResponse' smart constructor. data GetStatusResponse = GetStatusResponse'     { _gsrsCarrier               :: !(Maybe Text)-    , _gsrsSignature             :: !(Maybe Text)     , _gsrsTrackingNumber        :: !(Maybe Text)+    , _gsrsSignature             :: !(Maybe Text)     , _gsrsJobType               :: !(Maybe JobType)     , _gsrsJobId                 :: !(Maybe Text)     , _gsrsSignatureFileContents :: !(Maybe Text)@@ -152,9 +152,9 @@     , _gsrsProgressCode          :: !(Maybe Text)     , _gsrsLocationCode          :: !(Maybe Text)     , _gsrsLogKey                :: !(Maybe Text)-    , _gsrsProgressMessage       :: !(Maybe Text)     , _gsrsLocationMessage       :: !(Maybe Text)-    , _gsrsStatus                :: !Int+    , _gsrsProgressMessage       :: !(Maybe Text)+    , _gsrsResponseStatus        :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'GetStatusResponse' with the minimum fields required to make a request.@@ -163,10 +163,10 @@ -- -- * 'gsrsCarrier' ----- * 'gsrsSignature'--- -- * 'gsrsTrackingNumber' --+-- * 'gsrsSignature'+-- -- * 'gsrsJobType' -- -- * 'gsrsJobId'@@ -189,19 +189,19 @@ -- -- * 'gsrsLogKey' ----- * 'gsrsProgressMessage'--- -- * 'gsrsLocationMessage' ----- * 'gsrsStatus'+-- * 'gsrsProgressMessage'+--+-- * 'gsrsResponseStatus' getStatusResponse-    :: Int -- ^ 'gsrsStatus'+    :: Int -- ^ 'gsrsResponseStatus'     -> GetStatusResponse-getStatusResponse pStatus_ =+getStatusResponse pResponseStatus_ =     GetStatusResponse'     { _gsrsCarrier = Nothing-    , _gsrsSignature = Nothing     , _gsrsTrackingNumber = Nothing+    , _gsrsSignature = Nothing     , _gsrsJobType = Nothing     , _gsrsJobId = Nothing     , _gsrsSignatureFileContents = Nothing@@ -213,9 +213,9 @@     , _gsrsProgressCode = Nothing     , _gsrsLocationCode = Nothing     , _gsrsLogKey = Nothing-    , _gsrsProgressMessage = Nothing     , _gsrsLocationMessage = Nothing-    , _gsrsStatus = pStatus_+    , _gsrsProgressMessage = Nothing+    , _gsrsResponseStatus = pResponseStatus_     }  -- | Undocumented member.@@ -223,14 +223,14 @@ gsrsCarrier = lens _gsrsCarrier (\ s a -> s{_gsrsCarrier = a});  -- | Undocumented member.-gsrsSignature :: Lens' GetStatusResponse (Maybe Text)-gsrsSignature = lens _gsrsSignature (\ s a -> s{_gsrsSignature = a});---- | Undocumented member. gsrsTrackingNumber :: Lens' GetStatusResponse (Maybe Text) gsrsTrackingNumber = lens _gsrsTrackingNumber (\ s a -> s{_gsrsTrackingNumber = a});  -- | Undocumented member.+gsrsSignature :: Lens' GetStatusResponse (Maybe Text)+gsrsSignature = lens _gsrsSignature (\ s a -> s{_gsrsSignature = a});++-- | Undocumented member. gsrsJobType :: Lens' GetStatusResponse (Maybe JobType) gsrsJobType = lens _gsrsJobType (\ s a -> s{_gsrsJobType = a}); @@ -275,13 +275,13 @@ gsrsLogKey = lens _gsrsLogKey (\ s a -> s{_gsrsLogKey = a});  -- | Undocumented member.-gsrsProgressMessage :: Lens' GetStatusResponse (Maybe Text)-gsrsProgressMessage = lens _gsrsProgressMessage (\ s a -> s{_gsrsProgressMessage = a});---- | Undocumented member. gsrsLocationMessage :: Lens' GetStatusResponse (Maybe Text) gsrsLocationMessage = lens _gsrsLocationMessage (\ s a -> s{_gsrsLocationMessage = a}); +-- | Undocumented member.+gsrsProgressMessage :: Lens' GetStatusResponse (Maybe Text)+gsrsProgressMessage = lens _gsrsProgressMessage (\ s a -> s{_gsrsProgressMessage = a});+ -- | The response status code.-gsrsStatus :: Lens' GetStatusResponse Int-gsrsStatus = lens _gsrsStatus (\ s a -> s{_gsrsStatus = a});+gsrsResponseStatus :: Lens' GetStatusResponse Int+gsrsResponseStatus = lens _gsrsResponseStatus (\ s a -> s{_gsrsResponseStatus = a});

@@ -43,7 +43,7 @@     -- * Response Lenses     , ljrsJobs     , ljrsIsTruncated-    , ljrsStatus+    , ljrsResponseStatus     ) where  import           Network.AWS.ImportExport.Types@@ -94,9 +94,8 @@  instance AWSPager ListJobs where         page rq rs-          | stop (rs ^. ljrsIsTruncated) = Nothing-          | isNothing (rs ^? ljrsJobs . _last . jobJobId) =-            Nothing+          | stop (rs ^? ljrsJobs . _last . jobJobId) = Nothing+          | stop (rs ^. ljrsJobs) = Nothing           | otherwise =             Just $ rq &               ljMarker .~ rs ^? ljrsJobs . _last . jobJobId@@ -132,9 +131,9 @@ -- -- /See:/ 'listJobsResponse' smart constructor. data ListJobsResponse = ListJobsResponse'-    { _ljrsJobs        :: !(Maybe [Job])-    , _ljrsIsTruncated :: !(Maybe Bool)-    , _ljrsStatus      :: !Int+    { _ljrsJobs           :: !(Maybe [Job])+    , _ljrsIsTruncated    :: !(Maybe Bool)+    , _ljrsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'ListJobsResponse' with the minimum fields required to make a request.@@ -145,15 +144,15 @@ -- -- * 'ljrsIsTruncated' ----- * 'ljrsStatus'+-- * 'ljrsResponseStatus' listJobsResponse-    :: Int -- ^ 'ljrsStatus'+    :: Int -- ^ 'ljrsResponseStatus'     -> ListJobsResponse-listJobsResponse pStatus_ =+listJobsResponse pResponseStatus_ =     ListJobsResponse'     { _ljrsJobs = Nothing     , _ljrsIsTruncated = Nothing-    , _ljrsStatus = pStatus_+    , _ljrsResponseStatus = pResponseStatus_     }  -- | Undocumented member.@@ -165,5 +164,5 @@ ljrsIsTruncated = lens _ljrsIsTruncated (\ s a -> s{_ljrsIsTruncated = a});  -- | The response status code.-ljrsStatus :: Lens' ListJobsResponse Int-ljrsStatus = lens _ljrsStatus (\ s a -> s{_ljrsStatus = a});+ljrsResponseStatus :: Lens' ListJobsResponse Int+ljrsResponseStatus = lens _ljrsResponseStatus (\ s a -> s{_ljrsResponseStatus = a});

@@ -23,16 +23,16 @@     , _InvalidAccessKeyIdException     , _UnableToUpdateJobIdException     , _UnableToCancelJobIdException-    , _InvalidVersionException     , _MultipleRegionsException+    , _InvalidVersionException     , _MalformedManifestException+    , _MissingParameterException     , _CanceledJobIdException     , _BucketPermissionException-    , _MissingParameterException     , _NoSuchBucketException     , _InvalidAddressException-    , _InvalidManifestFieldException     , _MissingCustomsException+    , _InvalidManifestFieldException     , _InvalidCustomsException     , _MissingManifestFieldException     , _CreateJobQuotaExceededException@@ -127,20 +127,25 @@ _UnableToCancelJobIdException =     _ServiceError . hasCode "UnableToCancelJobIdException" --- | The client tool version is invalid.-_InvalidVersionException :: AsError a => Getting (First ServiceError) a ServiceError-_InvalidVersionException = _ServiceError . hasCode "InvalidVersionException"- -- | Your manifest file contained buckets from multiple regions. A job is -- restricted to buckets from one region. Please correct and resubmit. _MultipleRegionsException :: AsError a => Getting (First ServiceError) a ServiceError _MultipleRegionsException = _ServiceError . hasCode "MultipleRegionsException" +-- | The client tool version is invalid.+_InvalidVersionException :: AsError a => Getting (First ServiceError) a ServiceError+_InvalidVersionException = _ServiceError . hasCode "InvalidVersionException"+ -- | Your manifest is not well-formed. _MalformedManifestException :: AsError a => Getting (First ServiceError) a ServiceError _MalformedManifestException =     _ServiceError . hasCode "MalformedManifestException" +-- | One or more required parameters was missing from the request.+_MissingParameterException :: AsError a => Getting (First ServiceError) a ServiceError+_MissingParameterException =+    _ServiceError . hasCode "MissingParameterException"+ -- | The specified job ID has been canceled and is no longer valid. _CanceledJobIdException :: AsError a => Getting (First ServiceError) a ServiceError _CanceledJobIdException = _ServiceError . hasCode "CanceledJobIdException"@@ -150,11 +155,6 @@ _BucketPermissionException =     _ServiceError . hasCode "BucketPermissionException" --- | One or more required parameters was missing from the request.-_MissingParameterException :: AsError a => Getting (First ServiceError) a ServiceError-_MissingParameterException =-    _ServiceError . hasCode "MissingParameterException"- -- | The specified bucket does not exist. Create the specified bucket or -- change the manifest\'s bucket, exportBucket, or logBucket field to a -- bucket that the account, as specified by the manifest\'s Access Key ID,@@ -166,14 +166,14 @@ _InvalidAddressException :: AsError a => Getting (First ServiceError) a ServiceError _InvalidAddressException = _ServiceError . hasCode "InvalidAddressException" +-- | One or more required customs parameters was missing from the manifest.+_MissingCustomsException :: AsError a => Getting (First ServiceError) a ServiceError+_MissingCustomsException = _ServiceError . hasCode "MissingCustomsException"+ -- | One or more manifest fields was invalid. Please correct and resubmit. _InvalidManifestFieldException :: AsError a => Getting (First ServiceError) a ServiceError _InvalidManifestFieldException =     _ServiceError . hasCode "InvalidManifestFieldException"---- | One or more required customs parameters was missing from the manifest.-_MissingCustomsException :: AsError a => Getting (First ServiceError) a ServiceError-_MissingCustomsException = _ServiceError . hasCode "MissingCustomsException"  -- | One or more customs parameters was invalid. Please correct and resubmit. _InvalidCustomsException :: AsError a => Getting (First ServiceError) a ServiceError

@@ -44,7 +44,7 @@     , ujrsSuccess     , ujrsWarningMessage     , ujrsArtifactList-    , ujrsStatus+    , ujrsResponseStatus     ) where  import           Network.AWS.ImportExport.Types@@ -147,7 +147,7 @@     { _ujrsSuccess        :: !(Maybe Bool)     , _ujrsWarningMessage :: !(Maybe Text)     , _ujrsArtifactList   :: !(Maybe [Artifact])-    , _ujrsStatus         :: !Int+    , _ujrsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'UpdateJobResponse' with the minimum fields required to make a request.@@ -160,16 +160,16 @@ -- -- * 'ujrsArtifactList' ----- * 'ujrsStatus'+-- * 'ujrsResponseStatus' updateJobResponse-    :: Int -- ^ 'ujrsStatus'+    :: Int -- ^ 'ujrsResponseStatus'     -> UpdateJobResponse-updateJobResponse pStatus_ =+updateJobResponse pResponseStatus_ =     UpdateJobResponse'     { _ujrsSuccess = Nothing     , _ujrsWarningMessage = Nothing     , _ujrsArtifactList = Nothing-    , _ujrsStatus = pStatus_+    , _ujrsResponseStatus = pResponseStatus_     }  -- | Undocumented member.@@ -185,5 +185,5 @@ ujrsArtifactList = lens _ujrsArtifactList (\ s a -> s{_ujrsArtifactList = a}) . _Default . _Coerce;  -- | The response status code.-ujrsStatus :: Lens' UpdateJobResponse Int-ujrsStatus = lens _ujrsStatus (\ s a -> s{_ujrsStatus = a});+ujrsResponseStatus :: Lens' UpdateJobResponse Int+ujrsResponseStatus = lens _ujrsResponseStatus (\ s a -> s{_ujrsResponseStatus = a});