amazonka-importexport 1.4.5 → 1.5.0
raw patch · 15 files changed
+393/−348 lines, 15 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 +16/−11
- gen/Network/AWS/ImportExport.hs +10/−10
- gen/Network/AWS/ImportExport/CancelJob.hs +24/−26
- gen/Network/AWS/ImportExport/CreateJob.hs +45/−41
- gen/Network/AWS/ImportExport/GetShippingLabel.hs +51/−47
- gen/Network/AWS/ImportExport/GetStatus.hs +56/−56
- gen/Network/AWS/ImportExport/ListJobs.hs +30/−30
- gen/Network/AWS/ImportExport/Types.hs +74/−45
- gen/Network/AWS/ImportExport/Types/Product.hs +28/−28
- gen/Network/AWS/ImportExport/Types/Sum.hs +7/−6
- gen/Network/AWS/ImportExport/UpdateJob.hs +39/−35
- gen/Network/AWS/ImportExport/Waiters.hs +6/−6
- test/Main.hs +2/−2
- test/Test/AWS/Gen/ImportExport.hs +4/−4
README.md view
@@ -8,7 +8,7 @@ ## Version -`1.4.5`+`1.5.0` ## Description
amazonka-importexport.cabal view
@@ -1,13 +1,13 @@ name: amazonka-importexport-version: 1.4.5+version: 1.5.0 synopsis: Amazon Import/Export SDK. homepage: https://github.com/brendanhay/amazonka bug-reports: https://github.com/brendanhay/amazonka/issues-license: OtherLicense+license: MPL-2.0 license-file: LICENSE author: Brendan Hay-maintainer: Brendan Hay <brendan.g.hay@gmail.com>-copyright: Copyright (c) 2013-2016 Brendan Hay+maintainer: Brendan Hay <brendan.g.hay+amazonka@gmail.com>+copyright: Copyright (c) 2013-2017 Brendan Hay category: Network, AWS, Cloud, Distributed Computing build-type: Simple cabal-version: >= 1.10@@ -29,14 +29,19 @@ to get started. source-repository head- type: git- location: git://github.com/brendanhay/amazonka.git+ type: git+ location: git://github.com/brendanhay/amazonka.git+ subdir: amazonka-importexport library default-language: Haskell2010 hs-source-dirs: src gen - ghc-options: -Wall+ ghc-options:+ -Wall+ -fwarn-incomplete-uni-patterns+ -fwarn-incomplete-record-updates+ -funbox-strict-fields exposed-modules: Network.AWS.ImportExport@@ -54,7 +59,7 @@ , Network.AWS.ImportExport.Types.Sum build-depends:- amazonka-core == 1.4.5.*+ amazonka-core == 1.5.0.* , base >= 4.7 && < 5 test-suite amazonka-importexport-test@@ -74,9 +79,9 @@ , Test.AWS.ImportExport.Internal build-depends:- amazonka-core == 1.4.5.*- , amazonka-test == 1.4.5.*- , amazonka-importexport == 1.4.5.*+ amazonka-core == 1.5.0.*+ , amazonka-test == 1.5.0.*+ , amazonka-importexport , base , bytestring , tasty
gen/Network/AWS/ImportExport.hs view
@@ -5,9 +5,9 @@ -- | -- Module : Network.AWS.ImportExport--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --@@ -124,14 +124,14 @@ , jobCreationDate ) where -import Network.AWS.ImportExport.CancelJob-import Network.AWS.ImportExport.CreateJob-import Network.AWS.ImportExport.GetShippingLabel-import Network.AWS.ImportExport.GetStatus-import Network.AWS.ImportExport.ListJobs-import Network.AWS.ImportExport.Types-import Network.AWS.ImportExport.UpdateJob-import Network.AWS.ImportExport.Waiters+import Network.AWS.ImportExport.CancelJob+import Network.AWS.ImportExport.CreateJob+import Network.AWS.ImportExport.GetShippingLabel+import Network.AWS.ImportExport.GetStatus+import Network.AWS.ImportExport.ListJobs+import Network.AWS.ImportExport.Types+import Network.AWS.ImportExport.UpdateJob+import Network.AWS.ImportExport.Waiters {- $errors Error matchers are designed for use with the functions provided by
gen/Network/AWS/ImportExport/CancelJob.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.ImportExport.CancelJob--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --@@ -36,21 +36,22 @@ , crsResponseStatus ) where -import Network.AWS.ImportExport.Types-import Network.AWS.ImportExport.Types.Product-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response+import Network.AWS.ImportExport.Types+import Network.AWS.ImportExport.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response -- | Input structure for the CancelJob operation. -- -- /See:/ 'cancelJob' smart constructor. data CancelJob = CancelJob'- { _cAPIVersion :: !(Maybe Text)- , _cJobId :: !Text- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _cAPIVersion :: !(Maybe Text)+ , _cJobId :: !Text+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CancelJob' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -61,12 +62,9 @@ cancelJob :: Text -- ^ 'cJobId' -> CancelJob-cancelJob pJobId_ =- CancelJob'- { _cAPIVersion = Nothing- , _cJobId = pJobId_- }+cancelJob pJobId_ = CancelJob' {_cAPIVersion = Nothing, _cJobId = pJobId_} + -- | Undocumented member. cAPIVersion :: Lens' CancelJob (Maybe Text) cAPIVersion = lens _cAPIVersion (\ s a -> s{_cAPIVersion = a});@@ -84,9 +82,9 @@ CancelJobResponse' <$> (x .@? "Success") <*> (pure (fromEnum s))) -instance Hashable CancelJob+instance Hashable CancelJob where -instance NFData CancelJob+instance NFData CancelJob where instance ToHeaders CancelJob where toHeaders = const mempty@@ -106,10 +104,11 @@ -- -- /See:/ 'cancelJobResponse' smart constructor. data CancelJobResponse = CancelJobResponse'- { _crsSuccess :: !(Maybe Bool)- , _crsResponseStatus :: !Int- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _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. -- -- Use one of the following lenses to modify other fields as desired:@@ -121,11 +120,10 @@ :: Int -- ^ 'crsResponseStatus' -> CancelJobResponse cancelJobResponse pResponseStatus_ =- CancelJobResponse'- { _crsSuccess = Nothing- , _crsResponseStatus = pResponseStatus_- }+ CancelJobResponse'+ {_crsSuccess = Nothing, _crsResponseStatus = pResponseStatus_} + -- | Undocumented member. crsSuccess :: Lens' CancelJobResponse (Maybe Bool) crsSuccess = lens _crsSuccess (\ s a -> s{_crsSuccess = a});@@ -134,4 +132,4 @@ crsResponseStatus :: Lens' CancelJobResponse Int crsResponseStatus = lens _crsResponseStatus (\ s a -> s{_crsResponseStatus = a}); -instance NFData CancelJobResponse+instance NFData CancelJobResponse where
gen/Network/AWS/ImportExport/CreateJob.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.ImportExport.CreateJob--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --@@ -44,24 +44,25 @@ , cjrsResponseStatus ) where -import Network.AWS.ImportExport.Types-import Network.AWS.ImportExport.Types.Product-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response+import Network.AWS.ImportExport.Types+import Network.AWS.ImportExport.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response -- | Input structure for the CreateJob operation. -- -- /See:/ 'createJob' smart constructor. data CreateJob = CreateJob'- { _cjAPIVersion :: !(Maybe Text)- , _cjManifestAddendum :: !(Maybe Text)- , _cjJobType :: !JobType- , _cjManifest :: !Text- , _cjValidateOnly :: !Bool- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _cjAPIVersion :: !(Maybe Text)+ , _cjManifestAddendum :: !(Maybe Text)+ , _cjJobType :: !JobType+ , _cjManifest :: !Text+ , _cjValidateOnly :: !Bool+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateJob' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -81,14 +82,15 @@ -> Bool -- ^ 'cjValidateOnly' -> CreateJob createJob pJobType_ pManifest_ pValidateOnly_ =- CreateJob'- { _cjAPIVersion = Nothing- , _cjManifestAddendum = Nothing- , _cjJobType = pJobType_- , _cjManifest = pManifest_- , _cjValidateOnly = pValidateOnly_- }+ CreateJob'+ { _cjAPIVersion = Nothing+ , _cjManifestAddendum = Nothing+ , _cjJobType = pJobType_+ , _cjManifest = pManifest_+ , _cjValidateOnly = pValidateOnly_+ } + -- | Undocumented member. cjAPIVersion :: Lens' CreateJob (Maybe Text) cjAPIVersion = lens _cjAPIVersion (\ s a -> s{_cjAPIVersion = a});@@ -125,9 +127,9 @@ may (parseXMLList "member")) <*> (pure (fromEnum s))) -instance Hashable CreateJob+instance Hashable CreateJob where -instance NFData CreateJob+instance NFData CreateJob where instance ToHeaders CreateJob where toHeaders = const mempty@@ -150,15 +152,16 @@ -- -- /See:/ 'createJobResponse' smart constructor. data CreateJobResponse = CreateJobResponse'- { _cjrsSignature :: !(Maybe Text)- , _cjrsJobType :: !(Maybe JobType)- , _cjrsJobId :: !(Maybe Text)- , _cjrsSignatureFileContents :: !(Maybe Text)- , _cjrsWarningMessage :: !(Maybe Text)- , _cjrsArtifactList :: !(Maybe [Artifact])- , _cjrsResponseStatus :: !Int- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _cjrsSignature :: !(Maybe Text)+ , _cjrsJobType :: !(Maybe JobType)+ , _cjrsJobId :: !(Maybe Text)+ , _cjrsSignatureFileContents :: !(Maybe Text)+ , _cjrsWarningMessage :: !(Maybe Text)+ , _cjrsArtifactList :: !(Maybe [Artifact])+ , _cjrsResponseStatus :: !Int+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateJobResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -180,16 +183,17 @@ :: Int -- ^ 'cjrsResponseStatus' -> CreateJobResponse createJobResponse pResponseStatus_ =- CreateJobResponse'- { _cjrsSignature = Nothing- , _cjrsJobType = Nothing- , _cjrsJobId = Nothing- , _cjrsSignatureFileContents = Nothing- , _cjrsWarningMessage = Nothing- , _cjrsArtifactList = Nothing- , _cjrsResponseStatus = pResponseStatus_- }+ CreateJobResponse'+ { _cjrsSignature = Nothing+ , _cjrsJobType = Nothing+ , _cjrsJobId = Nothing+ , _cjrsSignatureFileContents = Nothing+ , _cjrsWarningMessage = Nothing+ , _cjrsArtifactList = Nothing+ , _cjrsResponseStatus = pResponseStatus_+ } + -- | Undocumented member. cjrsSignature :: Lens' CreateJobResponse (Maybe Text) cjrsSignature = lens _cjrsSignature (\ s a -> s{_cjrsSignature = a});@@ -218,4 +222,4 @@ cjrsResponseStatus :: Lens' CreateJobResponse Int cjrsResponseStatus = lens _cjrsResponseStatus (\ s a -> s{_cjrsResponseStatus = a}); -instance NFData CreateJobResponse+instance NFData CreateJobResponse where
gen/Network/AWS/ImportExport/GetShippingLabel.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.ImportExport.GetShippingLabel--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --@@ -47,29 +47,30 @@ , gslrsResponseStatus ) where -import Network.AWS.ImportExport.Types-import Network.AWS.ImportExport.Types.Product-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response+import Network.AWS.ImportExport.Types+import Network.AWS.ImportExport.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response -- | /See:/ 'getShippingLabel' smart constructor. 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)+ { _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) + -- | Creates a value of 'GetShippingLabel' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -100,21 +101,22 @@ 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- }+ 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+ } + -- | Undocumented member. gslStreet3 :: Lens' GetShippingLabel (Maybe Text) gslStreet3 = lens _gslStreet3 (\ s a -> s{_gslStreet3 = a});@@ -173,9 +175,9 @@ (x .@? "ShippingLabelURL") <*> (x .@? "Warning") <*> (pure (fromEnum s))) -instance Hashable GetShippingLabel+instance Hashable GetShippingLabel where -instance NFData GetShippingLabel+instance NFData GetShippingLabel where instance ToHeaders GetShippingLabel where toHeaders = const mempty@@ -202,11 +204,12 @@ -- | /See:/ 'getShippingLabelResponse' smart constructor. data GetShippingLabelResponse = GetShippingLabelResponse'- { _gslrsShippingLabelURL :: !(Maybe Text)- , _gslrsWarning :: !(Maybe Text)- , _gslrsResponseStatus :: !Int- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _gslrsShippingLabelURL :: !(Maybe Text)+ , _gslrsWarning :: !(Maybe Text)+ , _gslrsResponseStatus :: !Int+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetShippingLabelResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -220,12 +223,13 @@ :: Int -- ^ 'gslrsResponseStatus' -> GetShippingLabelResponse getShippingLabelResponse pResponseStatus_ =- GetShippingLabelResponse'- { _gslrsShippingLabelURL = Nothing- , _gslrsWarning = Nothing- , _gslrsResponseStatus = pResponseStatus_- }+ GetShippingLabelResponse'+ { _gslrsShippingLabelURL = Nothing+ , _gslrsWarning = Nothing+ , _gslrsResponseStatus = pResponseStatus_+ } + -- | Undocumented member. gslrsShippingLabelURL :: Lens' GetShippingLabelResponse (Maybe Text) gslrsShippingLabelURL = lens _gslrsShippingLabelURL (\ s a -> s{_gslrsShippingLabelURL = a});@@ -238,4 +242,4 @@ gslrsResponseStatus :: Lens' GetShippingLabelResponse Int gslrsResponseStatus = lens _gslrsResponseStatus (\ s a -> s{_gslrsResponseStatus = a}); -instance NFData GetShippingLabelResponse+instance NFData GetShippingLabelResponse where
gen/Network/AWS/ImportExport/GetStatus.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.ImportExport.GetStatus--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --@@ -51,21 +51,22 @@ , gsrsResponseStatus ) where -import Network.AWS.ImportExport.Types-import Network.AWS.ImportExport.Types.Product-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response+import Network.AWS.ImportExport.Types+import Network.AWS.ImportExport.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response -- | Input structure for the GetStatus operation. -- -- /See:/ 'getStatus' smart constructor. data GetStatus = GetStatus'- { _gsAPIVersion :: !(Maybe Text)- , _gsJobId :: !Text- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _gsAPIVersion :: !(Maybe Text)+ , _gsJobId :: !Text+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetStatus' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -76,12 +77,9 @@ getStatus :: Text -- ^ 'gsJobId' -> GetStatus-getStatus pJobId_ =- GetStatus'- { _gsAPIVersion = Nothing- , _gsJobId = pJobId_- }+getStatus pJobId_ = GetStatus' {_gsAPIVersion = Nothing, _gsJobId = pJobId_} + -- | Undocumented member. gsAPIVersion :: Lens' GetStatus (Maybe Text) gsAPIVersion = lens _gsAPIVersion (\ s a -> s{_gsAPIVersion = a});@@ -116,9 +114,9 @@ <*> (x .@? "ProgressMessage") <*> (pure (fromEnum s))) -instance Hashable GetStatus+instance Hashable GetStatus where -instance NFData GetStatus+instance NFData GetStatus where instance ToHeaders GetStatus where toHeaders = const mempty@@ -138,25 +136,26 @@ -- -- /See:/ 'getStatusResponse' smart constructor. data GetStatusResponse = GetStatusResponse'- { _gsrsCarrier :: !(Maybe Text)- , _gsrsTrackingNumber :: !(Maybe Text)- , _gsrsSignature :: !(Maybe Text)- , _gsrsJobType :: !(Maybe JobType)- , _gsrsJobId :: !(Maybe Text)- , _gsrsSignatureFileContents :: !(Maybe Text)- , _gsrsErrorCount :: !(Maybe Int)- , _gsrsCurrentManifest :: !(Maybe Text)- , _gsrsArtifactList :: !(Maybe [Artifact])- , _gsrsLogBucket :: !(Maybe Text)- , _gsrsCreationDate :: !(Maybe ISO8601)- , _gsrsProgressCode :: !(Maybe Text)- , _gsrsLocationCode :: !(Maybe Text)- , _gsrsLogKey :: !(Maybe Text)- , _gsrsLocationMessage :: !(Maybe Text)- , _gsrsProgressMessage :: !(Maybe Text)- , _gsrsResponseStatus :: !Int- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _gsrsCarrier :: !(Maybe Text)+ , _gsrsTrackingNumber :: !(Maybe Text)+ , _gsrsSignature :: !(Maybe Text)+ , _gsrsJobType :: !(Maybe JobType)+ , _gsrsJobId :: !(Maybe Text)+ , _gsrsSignatureFileContents :: !(Maybe Text)+ , _gsrsErrorCount :: !(Maybe Int)+ , _gsrsCurrentManifest :: !(Maybe Text)+ , _gsrsArtifactList :: !(Maybe [Artifact])+ , _gsrsLogBucket :: !(Maybe Text)+ , _gsrsCreationDate :: !(Maybe ISO8601)+ , _gsrsProgressCode :: !(Maybe Text)+ , _gsrsLocationCode :: !(Maybe Text)+ , _gsrsLogKey :: !(Maybe Text)+ , _gsrsLocationMessage :: !(Maybe Text)+ , _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. -- -- Use one of the following lenses to modify other fields as desired:@@ -198,26 +197,27 @@ :: Int -- ^ 'gsrsResponseStatus' -> GetStatusResponse getStatusResponse pResponseStatus_ =- GetStatusResponse'- { _gsrsCarrier = Nothing- , _gsrsTrackingNumber = Nothing- , _gsrsSignature = Nothing- , _gsrsJobType = Nothing- , _gsrsJobId = Nothing- , _gsrsSignatureFileContents = Nothing- , _gsrsErrorCount = Nothing- , _gsrsCurrentManifest = Nothing- , _gsrsArtifactList = Nothing- , _gsrsLogBucket = Nothing- , _gsrsCreationDate = Nothing- , _gsrsProgressCode = Nothing- , _gsrsLocationCode = Nothing- , _gsrsLogKey = Nothing- , _gsrsLocationMessage = Nothing- , _gsrsProgressMessage = Nothing- , _gsrsResponseStatus = pResponseStatus_- }+ GetStatusResponse'+ { _gsrsCarrier = Nothing+ , _gsrsTrackingNumber = Nothing+ , _gsrsSignature = Nothing+ , _gsrsJobType = Nothing+ , _gsrsJobId = Nothing+ , _gsrsSignatureFileContents = Nothing+ , _gsrsErrorCount = Nothing+ , _gsrsCurrentManifest = Nothing+ , _gsrsArtifactList = Nothing+ , _gsrsLogBucket = Nothing+ , _gsrsCreationDate = Nothing+ , _gsrsProgressCode = Nothing+ , _gsrsLocationCode = Nothing+ , _gsrsLogKey = Nothing+ , _gsrsLocationMessage = Nothing+ , _gsrsProgressMessage = Nothing+ , _gsrsResponseStatus = pResponseStatus_+ } + -- | Undocumented member. gsrsCarrier :: Lens' GetStatusResponse (Maybe Text) gsrsCarrier = lens _gsrsCarrier (\ s a -> s{_gsrsCarrier = a});@@ -286,4 +286,4 @@ gsrsResponseStatus :: Lens' GetStatusResponse Int gsrsResponseStatus = lens _gsrsResponseStatus (\ s a -> s{_gsrsResponseStatus = a}); -instance NFData GetStatusResponse+instance NFData GetStatusResponse where
gen/Network/AWS/ImportExport/ListJobs.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.ImportExport.ListJobs--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --@@ -40,23 +40,24 @@ , ljrsResponseStatus ) where -import Network.AWS.ImportExport.Types-import Network.AWS.ImportExport.Types.Product-import Network.AWS.Lens-import Network.AWS.Pager-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response+import Network.AWS.ImportExport.Types+import Network.AWS.ImportExport.Types.Product+import Network.AWS.Lens+import Network.AWS.Pager+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response -- | Input structure for the ListJobs operation. -- -- /See:/ 'listJobs' smart constructor. data ListJobs = ListJobs'- { _ljAPIVersion :: !(Maybe Text)- , _ljMarker :: !(Maybe Text)- , _ljMaxJobs :: !(Maybe Int)- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _ljAPIVersion :: !(Maybe Text)+ , _ljMarker :: !(Maybe Text)+ , _ljMaxJobs :: !(Maybe Int)+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListJobs' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -69,12 +70,9 @@ listJobs :: ListJobs listJobs =- ListJobs'- { _ljAPIVersion = Nothing- , _ljMarker = Nothing- , _ljMaxJobs = Nothing- }+ ListJobs' {_ljAPIVersion = Nothing, _ljMarker = Nothing, _ljMaxJobs = Nothing} + -- | Undocumented member. ljAPIVersion :: Lens' ListJobs (Maybe Text) ljAPIVersion = lens _ljAPIVersion (\ s a -> s{_ljAPIVersion = a});@@ -108,9 +106,9 @@ <*> (x .@? "IsTruncated") <*> (pure (fromEnum s))) -instance Hashable ListJobs+instance Hashable ListJobs where -instance NFData ListJobs+instance NFData ListJobs where instance ToHeaders ListJobs where toHeaders = const mempty@@ -131,11 +129,12 @@ -- -- /See:/ 'listJobsResponse' smart constructor. data ListJobsResponse = ListJobsResponse'- { _ljrsJobs :: !(Maybe [Job])- , _ljrsIsTruncated :: !(Maybe Bool)- , _ljrsResponseStatus :: !Int- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _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. -- -- Use one of the following lenses to modify other fields as desired:@@ -149,12 +148,13 @@ :: Int -- ^ 'ljrsResponseStatus' -> ListJobsResponse listJobsResponse pResponseStatus_ =- ListJobsResponse'- { _ljrsJobs = Nothing- , _ljrsIsTruncated = Nothing- , _ljrsResponseStatus = pResponseStatus_- }+ ListJobsResponse'+ { _ljrsJobs = Nothing+ , _ljrsIsTruncated = Nothing+ , _ljrsResponseStatus = pResponseStatus_+ } + -- | Undocumented member. ljrsJobs :: Lens' ListJobsResponse [Job] ljrsJobs = lens _ljrsJobs (\ s a -> s{_ljrsJobs = a}) . _Default . _Coerce;@@ -167,4 +167,4 @@ ljrsResponseStatus :: Lens' ListJobsResponse Int ljrsResponseStatus = lens _ljrsResponseStatus (\ s a -> s{_ljrsResponseStatus = a}); -instance NFData ListJobsResponse+instance NFData ListJobsResponse where
gen/Network/AWS/ImportExport/Types.hs view
@@ -4,9 +4,9 @@ -- | -- Module : Network.AWS.ImportExport.Types--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --@@ -55,38 +55,40 @@ , jobCreationDate ) where -import Network.AWS.ImportExport.Types.Product-import Network.AWS.ImportExport.Types.Sum-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Sign.V2+import Network.AWS.ImportExport.Types.Product+import Network.AWS.ImportExport.Types.Sum+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Sign.V2 -- | API version @2010-06-01@ of the Amazon Import/Export SDK configuration. importExport :: Service importExport =- Service- { _svcAbbrev = "ImportExport"- , _svcSigner = v2- , _svcPrefix = "importexport"- , _svcVersion = "2010-06-01"- , _svcEndpoint = defaultEndpoint importExport- , _svcTimeout = Just 70- , _svcCheck = statusSuccess- , _svcError = parseXMLError "ImportExport"- , _svcRetry = retry- }+ Service+ { _svcAbbrev = "ImportExport"+ , _svcSigner = v2+ , _svcPrefix = "importexport"+ , _svcVersion = "2010-06-01"+ , _svcEndpoint = defaultEndpoint importExport+ , _svcTimeout = Just 70+ , _svcCheck = statusSuccess+ , _svcError = parseXMLError "ImportExport"+ , _svcRetry = retry+ } where retry =- Exponential- { _retryBase = 5.0e-2- , _retryGrowth = 2- , _retryAttempts = 5- , _retryCheck = check- }+ Exponential+ { _retryBase = 5.0e-2+ , _retryGrowth = 2+ , _retryAttempts = 5+ , _retryCheck = check+ } check e+ | has (hasCode "ThrottledException" . hasStatus 400) e =+ Just "throttled_exception" | has (hasStatus 429) e = Just "too_many_requests" | has (hasCode "ThrottlingException" . hasStatus 400) e =- Just "throttling_exception"+ Just "throttling_exception" | has (hasCode "Throttling" . hasStatus 400) e = Just "throttling" | has (hasStatus 504) e = Just "gateway_timeout" | has (hasStatus 502) e = Just "bad_gateway"@@ -95,93 +97,120 @@ | has (hasStatus 509) e = Just "limit_exceeded" | otherwise = Nothing + -- | The JOBID was missing, not found, or not associated with the AWS account. _InvalidJobIdException :: AsError a => Getting (First ServiceError) a ServiceError-_InvalidJobIdException = _ServiceError . hasCode "InvalidJobIdException"+_InvalidJobIdException = _MatchServiceError importExport "InvalidJobIdException" + -- | One or more parameters had an invalid value. _InvalidParameterException :: AsError a => Getting (First ServiceError) a ServiceError _InvalidParameterException =- _ServiceError . hasCode "InvalidParameterException"+ _MatchServiceError importExport "InvalidParameterException" + -- | Indicates that the specified job has expired out of the system. _ExpiredJobIdException :: AsError a => Getting (First ServiceError) a ServiceError-_ExpiredJobIdException = _ServiceError . hasCode "ExpiredJobIdException"+_ExpiredJobIdException = _MatchServiceError importExport "ExpiredJobIdException" + -- | File system specified in export manifest is invalid. _InvalidFileSystemException :: AsError a => Getting (First ServiceError) a ServiceError _InvalidFileSystemException =- _ServiceError . hasCode "InvalidFileSystemException"+ _MatchServiceError importExport "InvalidFileSystemException" + -- | The AWS Access Key ID specified in the request did not match the manifest's accessKeyId value. The manifest and the request authentication must use the same AWS Access Key ID. _InvalidAccessKeyIdException :: AsError a => Getting (First ServiceError) a ServiceError _InvalidAccessKeyIdException =- _ServiceError . hasCode "InvalidAccessKeyIdException"+ _MatchServiceError importExport "InvalidAccessKeyIdException" + -- | AWS Import/Export cannot update the job _UnableToUpdateJobIdException :: AsError a => Getting (First ServiceError) a ServiceError _UnableToUpdateJobIdException =- _ServiceError . hasCode "UnableToUpdateJobIdException"+ _MatchServiceError importExport "UnableToUpdateJobIdException" + -- | AWS Import/Export cannot cancel the job _UnableToCancelJobIdException :: AsError a => Getting (First ServiceError) a ServiceError _UnableToCancelJobIdException =- _ServiceError . hasCode "UnableToCancelJobIdException"+ _MatchServiceError importExport "UnableToCancelJobIdException" + -- | 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"+_MultipleRegionsException =+ _MatchServiceError importExport "MultipleRegionsException" + -- | The client tool version is invalid. _InvalidVersionException :: AsError a => Getting (First ServiceError) a ServiceError-_InvalidVersionException = _ServiceError . hasCode "InvalidVersionException"+_InvalidVersionException =+ _MatchServiceError importExport "InvalidVersionException" + -- | Your manifest is not well-formed. _MalformedManifestException :: AsError a => Getting (First ServiceError) a ServiceError _MalformedManifestException =- _ServiceError . hasCode "MalformedManifestException"+ _MatchServiceError importExport "MalformedManifestException" + -- | One or more required parameters was missing from the request. _MissingParameterException :: AsError a => Getting (First ServiceError) a ServiceError _MissingParameterException =- _ServiceError . hasCode "MissingParameterException"+ _MatchServiceError importExport "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"+_CanceledJobIdException =+ _MatchServiceError importExport "CanceledJobIdException" + -- | The account specified does not have the appropriate bucket permissions. _BucketPermissionException :: AsError a => Getting (First ServiceError) a ServiceError _BucketPermissionException =- _ServiceError . hasCode "BucketPermissionException"+ _MatchServiceError importExport "BucketPermissionException" + -- | 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, has write permissions to. _NoSuchBucketException :: AsError a => Getting (First ServiceError) a ServiceError-_NoSuchBucketException = _ServiceError . hasCode "NoSuchBucketException"+_NoSuchBucketException = _MatchServiceError importExport "NoSuchBucketException" + -- | The address specified in the manifest is invalid. _InvalidAddressException :: AsError a => Getting (First ServiceError) a ServiceError-_InvalidAddressException = _ServiceError . hasCode "InvalidAddressException"+_InvalidAddressException =+ _MatchServiceError importExport "InvalidAddressException" + -- | One or more required customs parameters was missing from the manifest. _MissingCustomsException :: AsError a => Getting (First ServiceError) a ServiceError-_MissingCustomsException = _ServiceError . hasCode "MissingCustomsException"+_MissingCustomsException =+ _MatchServiceError importExport "MissingCustomsException" + -- | One or more manifest fields was invalid. Please correct and resubmit. _InvalidManifestFieldException :: AsError a => Getting (First ServiceError) a ServiceError _InvalidManifestFieldException =- _ServiceError . hasCode "InvalidManifestFieldException"+ _MatchServiceError importExport "InvalidManifestFieldException" + -- | One or more customs parameters was invalid. Please correct and resubmit. _InvalidCustomsException :: AsError a => Getting (First ServiceError) a ServiceError-_InvalidCustomsException = _ServiceError . hasCode "InvalidCustomsException"+_InvalidCustomsException =+ _MatchServiceError importExport "InvalidCustomsException" + -- | One or more required fields were missing from the manifest file. Please correct and resubmit. _MissingManifestFieldException :: AsError a => Getting (First ServiceError) a ServiceError _MissingManifestFieldException =- _ServiceError . hasCode "MissingManifestFieldException"+ _MatchServiceError importExport "MissingManifestFieldException" + -- | Each account can create only a certain number of jobs per day. If you need to create more than this, please contact awsimportexport@amazon.com to explain your particular use case. _CreateJobQuotaExceededException :: AsError a => Getting (First ServiceError) a ServiceError _CreateJobQuotaExceededException =- _ServiceError . hasCode "CreateJobQuotaExceededException"+ _MatchServiceError importExport "CreateJobQuotaExceededException"+
gen/Network/AWS/ImportExport/Types/Product.hs view
@@ -9,26 +9,27 @@ -- | -- Module : Network.AWS.ImportExport.Types.Product--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- module Network.AWS.ImportExport.Types.Product where -import Network.AWS.ImportExport.Types.Sum-import Network.AWS.Lens-import Network.AWS.Prelude+import Network.AWS.ImportExport.Types.Sum+import Network.AWS.Lens+import Network.AWS.Prelude -- | A discrete item that contains the description and URL of an artifact (such as a PDF). -- -- /See:/ 'artifact' smart constructor. data Artifact = Artifact'- { _aURL :: !(Maybe Text)- , _aDescription :: !(Maybe Text)- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _aURL :: !(Maybe Text)+ , _aDescription :: !(Maybe Text)+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'Artifact' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -38,12 +39,9 @@ -- * 'aDescription' - Undocumented member. artifact :: Artifact-artifact =- Artifact'- { _aURL = Nothing- , _aDescription = Nothing- }+artifact = Artifact' {_aURL = Nothing, _aDescription = Nothing} + -- | Undocumented member. aURL :: Lens' Artifact (Maybe Text) aURL = lens _aURL (\ s a -> s{_aURL = a});@@ -57,20 +55,21 @@ = Artifact' <$> (x .@? "URL") <*> (x .@? "Description") -instance Hashable Artifact+instance Hashable Artifact where -instance NFData Artifact+instance NFData Artifact where -- | Representation of a job returned by the ListJobs operation. -- -- /See:/ 'job' smart constructor. data Job = Job'- { _jobJobType :: !JobType- , _jobJobId :: !Text- , _jobIsCanceled :: !Bool- , _jobCreationDate :: !ISO8601- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _jobJobType :: !JobType+ , _jobJobId :: !Text+ , _jobIsCanceled :: !Bool+ , _jobCreationDate :: !ISO8601+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'Job' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -89,13 +88,14 @@ -> UTCTime -- ^ 'jobCreationDate' -> Job job pJobType_ pJobId_ pIsCanceled_ pCreationDate_ =- Job'- { _jobJobType = pJobType_- , _jobJobId = pJobId_- , _jobIsCanceled = pIsCanceled_- , _jobCreationDate = _Time # pCreationDate_- }+ Job'+ { _jobJobType = pJobType_+ , _jobJobId = pJobId_+ , _jobIsCanceled = pIsCanceled_+ , _jobCreationDate = _Time # pCreationDate_+ } + -- | Undocumented member. jobJobType :: Lens' Job JobType jobJobType = lens _jobJobType (\ s a -> s{_jobJobType = a});@@ -119,6 +119,6 @@ (x .@ "IsCanceled") <*> (x .@ "CreationDate") -instance Hashable Job+instance Hashable Job where -instance NFData Job+instance NFData Job where
gen/Network/AWS/ImportExport/Types/Sum.hs view
@@ -9,21 +9,22 @@ -- | -- Module : Network.AWS.ImportExport.Types.Sum--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- module Network.AWS.ImportExport.Types.Sum where -import Network.AWS.Prelude+import Network.AWS.Prelude -- | Specifies whether the job to initiate is an import or export job. data JobType- = Export- | Import- deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)+ = Export+ | Import+ deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)+ instance FromText JobType where parser = takeLowerText >>= \case
gen/Network/AWS/ImportExport/UpdateJob.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.ImportExport.UpdateJob--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --@@ -41,24 +41,25 @@ , ujrsResponseStatus ) where -import Network.AWS.ImportExport.Types-import Network.AWS.ImportExport.Types.Product-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response+import Network.AWS.ImportExport.Types+import Network.AWS.ImportExport.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response -- | Input structure for the UpateJob operation. -- -- /See:/ 'updateJob' smart constructor. data UpdateJob = UpdateJob'- { _ujAPIVersion :: !(Maybe Text)- , _ujJobId :: !Text- , _ujManifest :: !Text- , _ujJobType :: !JobType- , _ujValidateOnly :: !Bool- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _ujAPIVersion :: !(Maybe Text)+ , _ujJobId :: !Text+ , _ujManifest :: !Text+ , _ujJobType :: !JobType+ , _ujValidateOnly :: !Bool+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'UpdateJob' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -79,14 +80,15 @@ -> Bool -- ^ 'ujValidateOnly' -> UpdateJob updateJob pJobId_ pManifest_ pJobType_ pValidateOnly_ =- UpdateJob'- { _ujAPIVersion = Nothing- , _ujJobId = pJobId_- , _ujManifest = pManifest_- , _ujJobType = pJobType_- , _ujValidateOnly = pValidateOnly_- }+ UpdateJob'+ { _ujAPIVersion = Nothing+ , _ujJobId = pJobId_+ , _ujManifest = pManifest_+ , _ujJobType = pJobType_+ , _ujValidateOnly = pValidateOnly_+ } + -- | Undocumented member. ujAPIVersion :: Lens' UpdateJob (Maybe Text) ujAPIVersion = lens _ujAPIVersion (\ s a -> s{_ujAPIVersion = a});@@ -119,9 +121,9 @@ may (parseXMLList "member")) <*> (pure (fromEnum s))) -instance Hashable UpdateJob+instance Hashable UpdateJob where -instance NFData UpdateJob+instance NFData UpdateJob where instance ToHeaders UpdateJob where toHeaders = const mempty@@ -143,12 +145,13 @@ -- -- /See:/ 'updateJobResponse' smart constructor. data UpdateJobResponse = UpdateJobResponse'- { _ujrsSuccess :: !(Maybe Bool)- , _ujrsWarningMessage :: !(Maybe Text)- , _ujrsArtifactList :: !(Maybe [Artifact])- , _ujrsResponseStatus :: !Int- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _ujrsSuccess :: !(Maybe Bool)+ , _ujrsWarningMessage :: !(Maybe Text)+ , _ujrsArtifactList :: !(Maybe [Artifact])+ , _ujrsResponseStatus :: !Int+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'UpdateJobResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -164,13 +167,14 @@ :: Int -- ^ 'ujrsResponseStatus' -> UpdateJobResponse updateJobResponse pResponseStatus_ =- UpdateJobResponse'- { _ujrsSuccess = Nothing- , _ujrsWarningMessage = Nothing- , _ujrsArtifactList = Nothing- , _ujrsResponseStatus = pResponseStatus_- }+ UpdateJobResponse'+ { _ujrsSuccess = Nothing+ , _ujrsWarningMessage = Nothing+ , _ujrsArtifactList = Nothing+ , _ujrsResponseStatus = pResponseStatus_+ } + -- | Undocumented member. ujrsSuccess :: Lens' UpdateJobResponse (Maybe Bool) ujrsSuccess = lens _ujrsSuccess (\ s a -> s{_ujrsSuccess = a});@@ -187,4 +191,4 @@ ujrsResponseStatus :: Lens' UpdateJobResponse Int ujrsResponseStatus = lens _ujrsResponseStatus (\ s a -> s{_ujrsResponseStatus = a}); -instance NFData UpdateJobResponse+instance NFData UpdateJobResponse where
gen/Network/AWS/ImportExport/Waiters.hs view
@@ -7,15 +7,15 @@ -- | -- Module : Network.AWS.ImportExport.Waiters--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- module Network.AWS.ImportExport.Waiters where -import Network.AWS.ImportExport.Types-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Waiter+import Network.AWS.ImportExport.Types+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Waiter
test/Main.hs view
@@ -2,9 +2,9 @@ -- | -- Module : Main--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --
test/Test/AWS/Gen/ImportExport.hs view
@@ -5,20 +5,20 @@ -- | -- Module : Test.AWS.Gen.ImportExport--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- module Test.AWS.Gen.ImportExport where import Data.Proxy+import Network.AWS.ImportExport import Test.AWS.Fixture+import Test.AWS.ImportExport.Internal import Test.AWS.Prelude import Test.Tasty-import Network.AWS.ImportExport-import Test.AWS.ImportExport.Internal -- Auto-generated: the actual test selection needs to be manually placed into -- the top-level so that real test data can be incrementally added.