diff --git a/README.md b/README.md --- a/README.md +++ b/README.md @@ -8,7 +8,7 @@ ## Version -`1.4.5` +`1.5.0` ## Description diff --git a/amazonka-importexport.cabal b/amazonka-importexport.cabal --- a/amazonka-importexport.cabal +++ b/amazonka-importexport.cabal @@ -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 -copyright: Copyright (c) 2013-2016 Brendan Hay +maintainer: Brendan Hay +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 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 @@ -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 +-- Maintainer : Brendan Hay -- 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 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 @@ -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 +-- Maintainer : Brendan Hay -- 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 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 @@ -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 +-- Maintainer : Brendan Hay -- 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 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 @@ -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 +-- Maintainer : Brendan Hay -- 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 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 @@ -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 +-- Maintainer : Brendan Hay -- 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 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 @@ -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 +-- Maintainer : Brendan Hay -- 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 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 @@ -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 +-- Maintainer : Brendan Hay -- 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" + diff --git a/gen/Network/AWS/ImportExport/Types/Product.hs b/gen/Network/AWS/ImportExport/Types/Product.hs --- a/gen/Network/AWS/ImportExport/Types/Product.hs +++ b/gen/Network/AWS/ImportExport/Types/Product.hs @@ -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 +-- Maintainer : Brendan Hay -- 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 diff --git a/gen/Network/AWS/ImportExport/Types/Sum.hs b/gen/Network/AWS/ImportExport/Types/Sum.hs --- a/gen/Network/AWS/ImportExport/Types/Sum.hs +++ b/gen/Network/AWS/ImportExport/Types/Sum.hs @@ -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 +-- Maintainer : Brendan Hay -- 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 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 @@ -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 +-- Maintainer : Brendan Hay -- 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 diff --git a/gen/Network/AWS/ImportExport/Waiters.hs b/gen/Network/AWS/ImportExport/Waiters.hs --- a/gen/Network/AWS/ImportExport/Waiters.hs +++ b/gen/Network/AWS/ImportExport/Waiters.hs @@ -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 +-- Maintainer : Brendan Hay -- 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 diff --git a/test/Main.hs b/test/Main.hs --- a/test/Main.hs +++ b/test/Main.hs @@ -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 +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- diff --git a/test/Test/AWS/Gen/ImportExport.hs b/test/Test/AWS/Gen/ImportExport.hs --- a/test/Test/AWS/Gen/ImportExport.hs +++ b/test/Test/AWS/Gen/ImportExport.hs @@ -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 +-- Maintainer : Brendan Hay -- 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.