diff --git a/README.md b/README.md --- a/README.md +++ b/README.md @@ -8,7 +8,7 @@ ## Version -`1.2.0.2` +`1.3.0` ## Description diff --git a/amazonka-importexport.cabal b/amazonka-importexport.cabal --- a/amazonka-importexport.cabal +++ b/amazonka-importexport.cabal @@ -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 diff --git a/gen/Network/AWS/ImportExport.hs b/gen/Network/AWS/ImportExport.hs --- a/gen/Network/AWS/ImportExport.hs +++ b/gen/Network/AWS/ImportExport.hs @@ -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 diff --git a/gen/Network/AWS/ImportExport/CancelJob.hs b/gen/Network/AWS/ImportExport/CancelJob.hs --- a/gen/Network/AWS/ImportExport/CancelJob.hs +++ b/gen/Network/AWS/ImportExport/CancelJob.hs @@ -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}); diff --git a/gen/Network/AWS/ImportExport/CreateJob.hs b/gen/Network/AWS/ImportExport/CreateJob.hs --- a/gen/Network/AWS/ImportExport/CreateJob.hs +++ b/gen/Network/AWS/ImportExport/CreateJob.hs @@ -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}); diff --git a/gen/Network/AWS/ImportExport/GetShippingLabel.hs b/gen/Network/AWS/ImportExport/GetShippingLabel.hs --- a/gen/Network/AWS/ImportExport/GetShippingLabel.hs +++ b/gen/Network/AWS/ImportExport/GetShippingLabel.hs @@ -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}); diff --git a/gen/Network/AWS/ImportExport/GetStatus.hs b/gen/Network/AWS/ImportExport/GetStatus.hs --- a/gen/Network/AWS/ImportExport/GetStatus.hs +++ b/gen/Network/AWS/ImportExport/GetStatus.hs @@ -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}); diff --git a/gen/Network/AWS/ImportExport/ListJobs.hs b/gen/Network/AWS/ImportExport/ListJobs.hs --- a/gen/Network/AWS/ImportExport/ListJobs.hs +++ b/gen/Network/AWS/ImportExport/ListJobs.hs @@ -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}); diff --git a/gen/Network/AWS/ImportExport/Types.hs b/gen/Network/AWS/ImportExport/Types.hs --- a/gen/Network/AWS/ImportExport/Types.hs +++ b/gen/Network/AWS/ImportExport/Types.hs @@ -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 diff --git a/gen/Network/AWS/ImportExport/UpdateJob.hs b/gen/Network/AWS/ImportExport/UpdateJob.hs --- a/gen/Network/AWS/ImportExport/UpdateJob.hs +++ b/gen/Network/AWS/ImportExport/UpdateJob.hs @@ -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});