amazonka-sms 1.5.0 → 1.6.0
raw patch · 22 files changed
+230/−228 lines, 22 filesdep ~amazonka-coredep ~amazonka-testPVP ok
version bump matches the API change (PVP)
Dependency ranges changed: amazonka-core, amazonka-test
API changes (from Hackage documentation)
Files
- README.md +1/−1
- amazonka-sms.cabal +5/−5
- gen/Network/AWS/SMS.hs +1/−1
- gen/Network/AWS/SMS/CreateReplicationJob.hs +17/−17
- gen/Network/AWS/SMS/DeleteReplicationJob.hs +3/−3
- gen/Network/AWS/SMS/DeleteServerCatalog.hs +2/−2
- gen/Network/AWS/SMS/DisassociateConnector.hs +3/−3
- gen/Network/AWS/SMS/GetConnectors.hs +10/−10
- gen/Network/AWS/SMS/GetReplicationJobs.hs +15/−15
- gen/Network/AWS/SMS/GetReplicationRuns.hs +17/−17
- gen/Network/AWS/SMS/GetServers.hs +14/−14
- gen/Network/AWS/SMS/ImportServerCatalog.hs +2/−2
- gen/Network/AWS/SMS/StartOnDemandReplicationRun.hs +9/−9
- gen/Network/AWS/SMS/Types.hs +18/−16
- gen/Network/AWS/SMS/Types/Product.hs +92/−92
- gen/Network/AWS/SMS/Types/Sum.hs +1/−1
- gen/Network/AWS/SMS/UpdateReplicationJob.hs +15/−15
- gen/Network/AWS/SMS/Waiters.hs +1/−1
- test/Main.hs +1/−1
- test/Test/AWS/Gen/SMS.hs +1/−1
- test/Test/AWS/SMS.hs +1/−1
- test/Test/AWS/SMS/Internal.hs +1/−1
README.md view
@@ -8,7 +8,7 @@ ## Version -`1.5.0`+`1.6.0` ## Description
amazonka-sms.cabal view
@@ -1,5 +1,5 @@ name: amazonka-sms-version: 1.5.0+version: 1.6.0 synopsis: Amazon Server Migration Service SDK. homepage: https://github.com/brendanhay/amazonka bug-reports: https://github.com/brendanhay/amazonka/issues@@ -7,7 +7,7 @@ license-file: LICENSE author: Brendan Hay maintainer: Brendan Hay <brendan.g.hay+amazonka@gmail.com>-copyright: Copyright (c) 2013-2017 Brendan Hay+copyright: Copyright (c) 2013-2018 Brendan Hay category: Network, AWS, Cloud, Distributed Computing build-type: Simple cabal-version: >= 1.10@@ -64,7 +64,7 @@ , Network.AWS.SMS.Types.Sum build-depends:- amazonka-core == 1.5.0.*+ amazonka-core == 1.6.0.* , base >= 4.7 && < 5 test-suite amazonka-sms-test@@ -84,8 +84,8 @@ , Test.AWS.SMS.Internal build-depends:- amazonka-core == 1.5.0.*- , amazonka-test == 1.5.0.*+ amazonka-core == 1.6.0.*+ , amazonka-test == 1.6.0.* , amazonka-sms , base , bytestring
gen/Network/AWS/SMS.hs view
@@ -5,7 +5,7 @@ -- | -- Module : Network.AWS.SMS--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated
gen/Network/AWS/SMS/CreateReplicationJob.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.SMS.CreateReplicationJob--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -80,38 +80,38 @@ -> CreateReplicationJob createReplicationJob pServerId_ pSeedReplicationTime_ pFrequency_ = CreateReplicationJob'- { _crjLicenseType = Nothing- , _crjRoleName = Nothing- , _crjDescription = Nothing- , _crjServerId = pServerId_- , _crjSeedReplicationTime = _Time # pSeedReplicationTime_- , _crjFrequency = pFrequency_- }+ { _crjLicenseType = Nothing+ , _crjRoleName = Nothing+ , _crjDescription = Nothing+ , _crjServerId = pServerId_+ , _crjSeedReplicationTime = _Time # pSeedReplicationTime_+ , _crjFrequency = pFrequency_+ } -- | Undocumented member. crjLicenseType :: Lens' CreateReplicationJob (Maybe LicenseType)-crjLicenseType = lens _crjLicenseType (\ s a -> s{_crjLicenseType = a});+crjLicenseType = lens _crjLicenseType (\ s a -> s{_crjLicenseType = a}) -- | Undocumented member. crjRoleName :: Lens' CreateReplicationJob (Maybe Text)-crjRoleName = lens _crjRoleName (\ s a -> s{_crjRoleName = a});+crjRoleName = lens _crjRoleName (\ s a -> s{_crjRoleName = a}) -- | Undocumented member. crjDescription :: Lens' CreateReplicationJob (Maybe Text)-crjDescription = lens _crjDescription (\ s a -> s{_crjDescription = a});+crjDescription = lens _crjDescription (\ s a -> s{_crjDescription = a}) -- | Undocumented member. crjServerId :: Lens' CreateReplicationJob Text-crjServerId = lens _crjServerId (\ s a -> s{_crjServerId = a});+crjServerId = lens _crjServerId (\ s a -> s{_crjServerId = a}) -- | Undocumented member. crjSeedReplicationTime :: Lens' CreateReplicationJob UTCTime-crjSeedReplicationTime = lens _crjSeedReplicationTime (\ s a -> s{_crjSeedReplicationTime = a}) . _Time;+crjSeedReplicationTime = lens _crjSeedReplicationTime (\ s a -> s{_crjSeedReplicationTime = a}) . _Time -- | Undocumented member. crjFrequency :: Lens' CreateReplicationJob Int-crjFrequency = lens _crjFrequency (\ s a -> s{_crjFrequency = a});+crjFrequency = lens _crjFrequency (\ s a -> s{_crjFrequency = a}) instance AWSRequest CreateReplicationJob where type Rs CreateReplicationJob =@@ -174,15 +174,15 @@ -> CreateReplicationJobResponse createReplicationJobResponse pResponseStatus_ = CreateReplicationJobResponse'- {_crjrsReplicationJobId = Nothing, _crjrsResponseStatus = pResponseStatus_}+ {_crjrsReplicationJobId = Nothing, _crjrsResponseStatus = pResponseStatus_} -- | Undocumented member. crjrsReplicationJobId :: Lens' CreateReplicationJobResponse (Maybe Text)-crjrsReplicationJobId = lens _crjrsReplicationJobId (\ s a -> s{_crjrsReplicationJobId = a});+crjrsReplicationJobId = lens _crjrsReplicationJobId (\ s a -> s{_crjrsReplicationJobId = a}) -- | -- | The response status code. crjrsResponseStatus :: Lens' CreateReplicationJobResponse Int-crjrsResponseStatus = lens _crjrsResponseStatus (\ s a -> s{_crjrsResponseStatus = a});+crjrsResponseStatus = lens _crjrsResponseStatus (\ s a -> s{_crjrsResponseStatus = a}) instance NFData CreateReplicationJobResponse where
gen/Network/AWS/SMS/DeleteReplicationJob.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.SMS.DeleteReplicationJob--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -61,7 +61,7 @@ -- | Undocumented member. drjReplicationJobId :: Lens' DeleteReplicationJob Text-drjReplicationJobId = lens _drjReplicationJobId (\ s a -> s{_drjReplicationJobId = a});+drjReplicationJobId = lens _drjReplicationJobId (\ s a -> s{_drjReplicationJobId = a}) instance AWSRequest DeleteReplicationJob where type Rs DeleteReplicationJob =@@ -119,6 +119,6 @@ -- | -- | The response status code. drjrsResponseStatus :: Lens' DeleteReplicationJobResponse Int-drjrsResponseStatus = lens _drjrsResponseStatus (\ s a -> s{_drjrsResponseStatus = a});+drjrsResponseStatus = lens _drjrsResponseStatus (\ s a -> s{_drjrsResponseStatus = a}) instance NFData DeleteReplicationJobResponse where
gen/Network/AWS/SMS/DeleteServerCatalog.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.SMS.DeleteServerCatalog--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -104,6 +104,6 @@ -- | -- | The response status code. dscrsResponseStatus :: Lens' DeleteServerCatalogResponse Int-dscrsResponseStatus = lens _dscrsResponseStatus (\ s a -> s{_dscrsResponseStatus = a});+dscrsResponseStatus = lens _dscrsResponseStatus (\ s a -> s{_dscrsResponseStatus = a}) instance NFData DeleteServerCatalogResponse where
gen/Network/AWS/SMS/DisassociateConnector.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.SMS.DisassociateConnector--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -61,7 +61,7 @@ -- | Undocumented member. dcConnectorId :: Lens' DisassociateConnector Text-dcConnectorId = lens _dcConnectorId (\ s a -> s{_dcConnectorId = a});+dcConnectorId = lens _dcConnectorId (\ s a -> s{_dcConnectorId = a}) instance AWSRequest DisassociateConnector where type Rs DisassociateConnector =@@ -118,6 +118,6 @@ -- | -- | The response status code. dcrsResponseStatus :: Lens' DisassociateConnectorResponse Int-dcrsResponseStatus = lens _dcrsResponseStatus (\ s a -> s{_dcrsResponseStatus = a});+dcrsResponseStatus = lens _dcrsResponseStatus (\ s a -> s{_dcrsResponseStatus = a}) instance NFData DisassociateConnectorResponse where
gen/Network/AWS/SMS/GetConnectors.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.SMS.GetConnectors--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -68,11 +68,11 @@ -- | Undocumented member. gcNextToken :: Lens' GetConnectors (Maybe Text)-gcNextToken = lens _gcNextToken (\ s a -> s{_gcNextToken = a});+gcNextToken = lens _gcNextToken (\ s a -> s{_gcNextToken = a}) -- | Undocumented member. gcMaxResults :: Lens' GetConnectors (Maybe Int)-gcMaxResults = lens _gcMaxResults (\ s a -> s{_gcMaxResults = a});+gcMaxResults = lens _gcMaxResults (\ s a -> s{_gcMaxResults = a}) instance AWSPager GetConnectors where page rq rs@@ -141,22 +141,22 @@ -> GetConnectorsResponse getConnectorsResponse pResponseStatus_ = GetConnectorsResponse'- { _gcrsConnectorList = Nothing- , _gcrsNextToken = Nothing- , _gcrsResponseStatus = pResponseStatus_- }+ { _gcrsConnectorList = Nothing+ , _gcrsNextToken = Nothing+ , _gcrsResponseStatus = pResponseStatus_+ } -- | Undocumented member. gcrsConnectorList :: Lens' GetConnectorsResponse [Connector]-gcrsConnectorList = lens _gcrsConnectorList (\ s a -> s{_gcrsConnectorList = a}) . _Default . _Coerce;+gcrsConnectorList = lens _gcrsConnectorList (\ s a -> s{_gcrsConnectorList = a}) . _Default . _Coerce -- | Undocumented member. gcrsNextToken :: Lens' GetConnectorsResponse (Maybe Text)-gcrsNextToken = lens _gcrsNextToken (\ s a -> s{_gcrsNextToken = a});+gcrsNextToken = lens _gcrsNextToken (\ s a -> s{_gcrsNextToken = a}) -- | -- | The response status code. gcrsResponseStatus :: Lens' GetConnectorsResponse Int-gcrsResponseStatus = lens _gcrsResponseStatus (\ s a -> s{_gcrsResponseStatus = a});+gcrsResponseStatus = lens _gcrsResponseStatus (\ s a -> s{_gcrsResponseStatus = a}) instance NFData GetConnectorsResponse where
gen/Network/AWS/SMS/GetReplicationJobs.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.SMS.GetReplicationJobs--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -69,23 +69,23 @@ :: GetReplicationJobs getReplicationJobs = GetReplicationJobs'- { _grjReplicationJobId = Nothing- , _grjNextToken = Nothing- , _grjMaxResults = Nothing- }+ { _grjReplicationJobId = Nothing+ , _grjNextToken = Nothing+ , _grjMaxResults = Nothing+ } -- | Undocumented member. grjReplicationJobId :: Lens' GetReplicationJobs (Maybe Text)-grjReplicationJobId = lens _grjReplicationJobId (\ s a -> s{_grjReplicationJobId = a});+grjReplicationJobId = lens _grjReplicationJobId (\ s a -> s{_grjReplicationJobId = a}) -- | Undocumented member. grjNextToken :: Lens' GetReplicationJobs (Maybe Text)-grjNextToken = lens _grjNextToken (\ s a -> s{_grjNextToken = a});+grjNextToken = lens _grjNextToken (\ s a -> s{_grjNextToken = a}) -- | Undocumented member. grjMaxResults :: Lens' GetReplicationJobs (Maybe Int)-grjMaxResults = lens _grjMaxResults (\ s a -> s{_grjMaxResults = a});+grjMaxResults = lens _grjMaxResults (\ s a -> s{_grjMaxResults = a}) instance AWSPager GetReplicationJobs where page rq rs@@ -156,22 +156,22 @@ -> GetReplicationJobsResponse getReplicationJobsResponse pResponseStatus_ = GetReplicationJobsResponse'- { _grjrsReplicationJobList = Nothing- , _grjrsNextToken = Nothing- , _grjrsResponseStatus = pResponseStatus_- }+ { _grjrsReplicationJobList = Nothing+ , _grjrsNextToken = Nothing+ , _grjrsResponseStatus = pResponseStatus_+ } -- | Undocumented member. grjrsReplicationJobList :: Lens' GetReplicationJobsResponse [ReplicationJob]-grjrsReplicationJobList = lens _grjrsReplicationJobList (\ s a -> s{_grjrsReplicationJobList = a}) . _Default . _Coerce;+grjrsReplicationJobList = lens _grjrsReplicationJobList (\ s a -> s{_grjrsReplicationJobList = a}) . _Default . _Coerce -- | Undocumented member. grjrsNextToken :: Lens' GetReplicationJobsResponse (Maybe Text)-grjrsNextToken = lens _grjrsNextToken (\ s a -> s{_grjrsNextToken = a});+grjrsNextToken = lens _grjrsNextToken (\ s a -> s{_grjrsNextToken = a}) -- | -- | The response status code. grjrsResponseStatus :: Lens' GetReplicationJobsResponse Int-grjrsResponseStatus = lens _grjrsResponseStatus (\ s a -> s{_grjrsResponseStatus = a});+grjrsResponseStatus = lens _grjrsResponseStatus (\ s a -> s{_grjrsResponseStatus = a}) instance NFData GetReplicationJobsResponse where
gen/Network/AWS/SMS/GetReplicationRuns.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.SMS.GetReplicationRuns--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -71,23 +71,23 @@ -> GetReplicationRuns getReplicationRuns pReplicationJobId_ = GetReplicationRuns'- { _grrNextToken = Nothing- , _grrMaxResults = Nothing- , _grrReplicationJobId = pReplicationJobId_- }+ { _grrNextToken = Nothing+ , _grrMaxResults = Nothing+ , _grrReplicationJobId = pReplicationJobId_+ } -- | Undocumented member. grrNextToken :: Lens' GetReplicationRuns (Maybe Text)-grrNextToken = lens _grrNextToken (\ s a -> s{_grrNextToken = a});+grrNextToken = lens _grrNextToken (\ s a -> s{_grrNextToken = a}) -- | Undocumented member. grrMaxResults :: Lens' GetReplicationRuns (Maybe Int)-grrMaxResults = lens _grrMaxResults (\ s a -> s{_grrMaxResults = a});+grrMaxResults = lens _grrMaxResults (\ s a -> s{_grrMaxResults = a}) -- | Undocumented member. grrReplicationJobId :: Lens' GetReplicationRuns Text-grrReplicationJobId = lens _grrReplicationJobId (\ s a -> s{_grrReplicationJobId = a});+grrReplicationJobId = lens _grrReplicationJobId (\ s a -> s{_grrReplicationJobId = a}) instance AWSPager GetReplicationRuns where page rq rs@@ -161,27 +161,27 @@ -> GetReplicationRunsResponse getReplicationRunsResponse pResponseStatus_ = GetReplicationRunsResponse'- { _grrrsReplicationJob = Nothing- , _grrrsNextToken = Nothing- , _grrrsReplicationRunList = Nothing- , _grrrsResponseStatus = pResponseStatus_- }+ { _grrrsReplicationJob = Nothing+ , _grrrsNextToken = Nothing+ , _grrrsReplicationRunList = Nothing+ , _grrrsResponseStatus = pResponseStatus_+ } -- | Undocumented member. grrrsReplicationJob :: Lens' GetReplicationRunsResponse (Maybe ReplicationJob)-grrrsReplicationJob = lens _grrrsReplicationJob (\ s a -> s{_grrrsReplicationJob = a});+grrrsReplicationJob = lens _grrrsReplicationJob (\ s a -> s{_grrrsReplicationJob = a}) -- | Undocumented member. grrrsNextToken :: Lens' GetReplicationRunsResponse (Maybe Text)-grrrsNextToken = lens _grrrsNextToken (\ s a -> s{_grrrsNextToken = a});+grrrsNextToken = lens _grrrsNextToken (\ s a -> s{_grrrsNextToken = a}) -- | Undocumented member. grrrsReplicationRunList :: Lens' GetReplicationRunsResponse [ReplicationRun]-grrrsReplicationRunList = lens _grrrsReplicationRunList (\ s a -> s{_grrrsReplicationRunList = a}) . _Default . _Coerce;+grrrsReplicationRunList = lens _grrrsReplicationRunList (\ s a -> s{_grrrsReplicationRunList = a}) . _Default . _Coerce -- | -- | The response status code. grrrsResponseStatus :: Lens' GetReplicationRunsResponse Int-grrrsResponseStatus = lens _grrrsResponseStatus (\ s a -> s{_grrrsResponseStatus = a});+grrrsResponseStatus = lens _grrrsResponseStatus (\ s a -> s{_grrrsResponseStatus = a}) instance NFData GetReplicationRunsResponse where
gen/Network/AWS/SMS/GetServers.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.SMS.GetServers--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -70,11 +70,11 @@ -- | Undocumented member. gsNextToken :: Lens' GetServers (Maybe Text)-gsNextToken = lens _gsNextToken (\ s a -> s{_gsNextToken = a});+gsNextToken = lens _gsNextToken (\ s a -> s{_gsNextToken = a}) -- | Undocumented member. gsMaxResults :: Lens' GetServers (Maybe Int)-gsMaxResults = lens _gsMaxResults (\ s a -> s{_gsMaxResults = a});+gsMaxResults = lens _gsMaxResults (\ s a -> s{_gsMaxResults = a}) instance AWSPager GetServers where page rq rs@@ -151,32 +151,32 @@ -> GetServersResponse getServersResponse pResponseStatus_ = GetServersResponse'- { _gsrsServerCatalogStatus = Nothing- , _gsrsLastModifiedOn = Nothing- , _gsrsNextToken = Nothing- , _gsrsServerList = Nothing- , _gsrsResponseStatus = pResponseStatus_- }+ { _gsrsServerCatalogStatus = Nothing+ , _gsrsLastModifiedOn = Nothing+ , _gsrsNextToken = Nothing+ , _gsrsServerList = Nothing+ , _gsrsResponseStatus = pResponseStatus_+ } -- | Undocumented member. gsrsServerCatalogStatus :: Lens' GetServersResponse (Maybe ServerCatalogStatus)-gsrsServerCatalogStatus = lens _gsrsServerCatalogStatus (\ s a -> s{_gsrsServerCatalogStatus = a});+gsrsServerCatalogStatus = lens _gsrsServerCatalogStatus (\ s a -> s{_gsrsServerCatalogStatus = a}) -- | Undocumented member. gsrsLastModifiedOn :: Lens' GetServersResponse (Maybe UTCTime)-gsrsLastModifiedOn = lens _gsrsLastModifiedOn (\ s a -> s{_gsrsLastModifiedOn = a}) . mapping _Time;+gsrsLastModifiedOn = lens _gsrsLastModifiedOn (\ s a -> s{_gsrsLastModifiedOn = a}) . mapping _Time -- | Undocumented member. gsrsNextToken :: Lens' GetServersResponse (Maybe Text)-gsrsNextToken = lens _gsrsNextToken (\ s a -> s{_gsrsNextToken = a});+gsrsNextToken = lens _gsrsNextToken (\ s a -> s{_gsrsNextToken = a}) -- | Undocumented member. gsrsServerList :: Lens' GetServersResponse [Server]-gsrsServerList = lens _gsrsServerList (\ s a -> s{_gsrsServerList = a}) . _Default . _Coerce;+gsrsServerList = lens _gsrsServerList (\ s a -> s{_gsrsServerList = a}) . _Default . _Coerce -- | -- | The response status code. gsrsResponseStatus :: Lens' GetServersResponse Int-gsrsResponseStatus = lens _gsrsResponseStatus (\ s a -> s{_gsrsResponseStatus = a});+gsrsResponseStatus = lens _gsrsResponseStatus (\ s a -> s{_gsrsResponseStatus = a}) instance NFData GetServersResponse where
gen/Network/AWS/SMS/ImportServerCatalog.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.SMS.ImportServerCatalog--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -104,6 +104,6 @@ -- | -- | The response status code. iscrsResponseStatus :: Lens' ImportServerCatalogResponse Int-iscrsResponseStatus = lens _iscrsResponseStatus (\ s a -> s{_iscrsResponseStatus = a});+iscrsResponseStatus = lens _iscrsResponseStatus (\ s a -> s{_iscrsResponseStatus = a}) instance NFData ImportServerCatalogResponse where
gen/Network/AWS/SMS/StartOnDemandReplicationRun.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.SMS.StartOnDemandReplicationRun--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -62,16 +62,16 @@ -> StartOnDemandReplicationRun startOnDemandReplicationRun pReplicationJobId_ = StartOnDemandReplicationRun'- {_sodrrDescription = Nothing, _sodrrReplicationJobId = pReplicationJobId_}+ {_sodrrDescription = Nothing, _sodrrReplicationJobId = pReplicationJobId_} -- | Undocumented member. sodrrDescription :: Lens' StartOnDemandReplicationRun (Maybe Text)-sodrrDescription = lens _sodrrDescription (\ s a -> s{_sodrrDescription = a});+sodrrDescription = lens _sodrrDescription (\ s a -> s{_sodrrDescription = a}) -- | Undocumented member. sodrrReplicationJobId :: Lens' StartOnDemandReplicationRun Text-sodrrReplicationJobId = lens _sodrrReplicationJobId (\ s a -> s{_sodrrReplicationJobId = a});+sodrrReplicationJobId = lens _sodrrReplicationJobId (\ s a -> s{_sodrrReplicationJobId = a}) instance AWSRequest StartOnDemandReplicationRun where type Rs StartOnDemandReplicationRun =@@ -129,18 +129,18 @@ -> StartOnDemandReplicationRunResponse startOnDemandReplicationRunResponse pResponseStatus_ = StartOnDemandReplicationRunResponse'- { _sodrrrsReplicationRunId = Nothing- , _sodrrrsResponseStatus = pResponseStatus_- }+ { _sodrrrsReplicationRunId = Nothing+ , _sodrrrsResponseStatus = pResponseStatus_+ } -- | Undocumented member. sodrrrsReplicationRunId :: Lens' StartOnDemandReplicationRunResponse (Maybe Text)-sodrrrsReplicationRunId = lens _sodrrrsReplicationRunId (\ s a -> s{_sodrrrsReplicationRunId = a});+sodrrrsReplicationRunId = lens _sodrrrsReplicationRunId (\ s a -> s{_sodrrrsReplicationRunId = a}) -- | -- | The response status code. sodrrrsResponseStatus :: Lens' StartOnDemandReplicationRunResponse Int-sodrrrsResponseStatus = lens _sodrrrsResponseStatus (\ s a -> s{_sodrrrsResponseStatus = a});+sodrrrsResponseStatus = lens _sodrrrsResponseStatus (\ s a -> s{_sodrrrsResponseStatus = a}) instance NFData StartOnDemandReplicationRunResponse where
gen/Network/AWS/SMS/Types.hs view
@@ -4,7 +4,7 @@ -- | -- Module : Network.AWS.SMS.Types--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -133,24 +133,24 @@ sms :: Service sms = Service- { _svcAbbrev = "SMS"- , _svcSigner = v4- , _svcPrefix = "sms"- , _svcVersion = "2016-10-24"- , _svcEndpoint = defaultEndpoint sms- , _svcTimeout = Just 70- , _svcCheck = statusSuccess- , _svcError = parseJSONError "SMS"- , _svcRetry = retry- }+ { _svcAbbrev = "SMS"+ , _svcSigner = v4+ , _svcPrefix = "sms"+ , _svcVersion = "2016-10-24"+ , _svcEndpoint = defaultEndpoint sms+ , _svcTimeout = Just 70+ , _svcCheck = statusSuccess+ , _svcError = parseJSONError "SMS"+ , _svcRetry = retry+ } where retry = Exponential- { _retryBase = 5.0e-2- , _retryGrowth = 2- , _retryAttempts = 5- , _retryCheck = check- }+ { _retryBase = 5.0e-2+ , _retryGrowth = 2+ , _retryAttempts = 5+ , _retryCheck = check+ } check e | has (hasCode "ThrottledException" . hasStatus 400) e = Just "throttled_exception"@@ -159,6 +159,8 @@ Just "throttling_exception" | has (hasCode "Throttling" . hasStatus 400) e = Just "throttling" | has (hasStatus 504) e = Just "gateway_timeout"+ | has (hasCode "RequestThrottledException" . hasStatus 400) e =+ Just "request_throttled_exception" | has (hasStatus 502) e = Just "bad_gateway" | has (hasStatus 503) e = Just "service_unavailable" | has (hasStatus 500) e = Just "general_server_error"
gen/Network/AWS/SMS/Types/Product.hs view
@@ -9,7 +9,7 @@ -- | -- Module : Network.AWS.SMS.Types.Product--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -65,58 +65,58 @@ :: Connector connector = Connector'- { _cStatus = Nothing- , _cVmManagerName = Nothing- , _cIpAddress = Nothing- , _cVmManagerId = Nothing- , _cVmManagerType = Nothing- , _cConnectorId = Nothing- , _cAssociatedOn = Nothing- , _cMacAddress = Nothing- , _cVersion = Nothing- , _cCapabilityList = Nothing- }+ { _cStatus = Nothing+ , _cVmManagerName = Nothing+ , _cIpAddress = Nothing+ , _cVmManagerId = Nothing+ , _cVmManagerType = Nothing+ , _cConnectorId = Nothing+ , _cAssociatedOn = Nothing+ , _cMacAddress = Nothing+ , _cVersion = Nothing+ , _cCapabilityList = Nothing+ } -- | Undocumented member. cStatus :: Lens' Connector (Maybe ConnectorStatus)-cStatus = lens _cStatus (\ s a -> s{_cStatus = a});+cStatus = lens _cStatus (\ s a -> s{_cStatus = a}) -- | Undocumented member. cVmManagerName :: Lens' Connector (Maybe Text)-cVmManagerName = lens _cVmManagerName (\ s a -> s{_cVmManagerName = a});+cVmManagerName = lens _cVmManagerName (\ s a -> s{_cVmManagerName = a}) -- | Undocumented member. cIpAddress :: Lens' Connector (Maybe Text)-cIpAddress = lens _cIpAddress (\ s a -> s{_cIpAddress = a});+cIpAddress = lens _cIpAddress (\ s a -> s{_cIpAddress = a}) -- | Undocumented member. cVmManagerId :: Lens' Connector (Maybe Text)-cVmManagerId = lens _cVmManagerId (\ s a -> s{_cVmManagerId = a});+cVmManagerId = lens _cVmManagerId (\ s a -> s{_cVmManagerId = a}) -- | Undocumented member. cVmManagerType :: Lens' Connector (Maybe VMManagerType)-cVmManagerType = lens _cVmManagerType (\ s a -> s{_cVmManagerType = a});+cVmManagerType = lens _cVmManagerType (\ s a -> s{_cVmManagerType = a}) -- | Undocumented member. cConnectorId :: Lens' Connector (Maybe Text)-cConnectorId = lens _cConnectorId (\ s a -> s{_cConnectorId = a});+cConnectorId = lens _cConnectorId (\ s a -> s{_cConnectorId = a}) -- | Undocumented member. cAssociatedOn :: Lens' Connector (Maybe UTCTime)-cAssociatedOn = lens _cAssociatedOn (\ s a -> s{_cAssociatedOn = a}) . mapping _Time;+cAssociatedOn = lens _cAssociatedOn (\ s a -> s{_cAssociatedOn = a}) . mapping _Time -- | Undocumented member. cMacAddress :: Lens' Connector (Maybe Text)-cMacAddress = lens _cMacAddress (\ s a -> s{_cMacAddress = a});+cMacAddress = lens _cMacAddress (\ s a -> s{_cMacAddress = a}) -- | Undocumented member. cVersion :: Lens' Connector (Maybe Text)-cVersion = lens _cVersion (\ s a -> s{_cVersion = a});+cVersion = lens _cVersion (\ s a -> s{_cVersion = a}) -- | Undocumented member. cCapabilityList :: Lens' Connector [ConnectorCapability]-cCapabilityList = lens _cCapabilityList (\ s a -> s{_cCapabilityList = a}) . _Default . _Coerce;+cCapabilityList = lens _cCapabilityList (\ s a -> s{_cCapabilityList = a}) . _Default . _Coerce instance FromJSON Connector where parseJSON@@ -193,78 +193,78 @@ :: ReplicationJob replicationJob = ReplicationJob'- { _rjFrequency = Nothing- , _rjState = Nothing- , _rjServerType = Nothing- , _rjServerId = Nothing- , _rjLicenseType = Nothing- , _rjRoleName = Nothing- , _rjVmServer = Nothing- , _rjReplicationJobId = Nothing- , _rjReplicationRunList = Nothing- , _rjNextReplicationRunStartTime = Nothing- , _rjStatusMessage = Nothing- , _rjLatestAMIId = Nothing- , _rjSeedReplicationTime = Nothing- , _rjDescription = Nothing- }+ { _rjFrequency = Nothing+ , _rjState = Nothing+ , _rjServerType = Nothing+ , _rjServerId = Nothing+ , _rjLicenseType = Nothing+ , _rjRoleName = Nothing+ , _rjVmServer = Nothing+ , _rjReplicationJobId = Nothing+ , _rjReplicationRunList = Nothing+ , _rjNextReplicationRunStartTime = Nothing+ , _rjStatusMessage = Nothing+ , _rjLatestAMIId = Nothing+ , _rjSeedReplicationTime = Nothing+ , _rjDescription = Nothing+ } -- | Undocumented member. rjFrequency :: Lens' ReplicationJob (Maybe Int)-rjFrequency = lens _rjFrequency (\ s a -> s{_rjFrequency = a});+rjFrequency = lens _rjFrequency (\ s a -> s{_rjFrequency = a}) -- | Undocumented member. rjState :: Lens' ReplicationJob (Maybe ReplicationJobState)-rjState = lens _rjState (\ s a -> s{_rjState = a});+rjState = lens _rjState (\ s a -> s{_rjState = a}) -- | Undocumented member. rjServerType :: Lens' ReplicationJob (Maybe ServerType)-rjServerType = lens _rjServerType (\ s a -> s{_rjServerType = a});+rjServerType = lens _rjServerType (\ s a -> s{_rjServerType = a}) -- | Undocumented member. rjServerId :: Lens' ReplicationJob (Maybe Text)-rjServerId = lens _rjServerId (\ s a -> s{_rjServerId = a});+rjServerId = lens _rjServerId (\ s a -> s{_rjServerId = a}) -- | Undocumented member. rjLicenseType :: Lens' ReplicationJob (Maybe LicenseType)-rjLicenseType = lens _rjLicenseType (\ s a -> s{_rjLicenseType = a});+rjLicenseType = lens _rjLicenseType (\ s a -> s{_rjLicenseType = a}) -- | Undocumented member. rjRoleName :: Lens' ReplicationJob (Maybe Text)-rjRoleName = lens _rjRoleName (\ s a -> s{_rjRoleName = a});+rjRoleName = lens _rjRoleName (\ s a -> s{_rjRoleName = a}) -- | Undocumented member. rjVmServer :: Lens' ReplicationJob (Maybe VMServer)-rjVmServer = lens _rjVmServer (\ s a -> s{_rjVmServer = a});+rjVmServer = lens _rjVmServer (\ s a -> s{_rjVmServer = a}) -- | Undocumented member. rjReplicationJobId :: Lens' ReplicationJob (Maybe Text)-rjReplicationJobId = lens _rjReplicationJobId (\ s a -> s{_rjReplicationJobId = a});+rjReplicationJobId = lens _rjReplicationJobId (\ s a -> s{_rjReplicationJobId = a}) -- | Undocumented member. rjReplicationRunList :: Lens' ReplicationJob [ReplicationRun]-rjReplicationRunList = lens _rjReplicationRunList (\ s a -> s{_rjReplicationRunList = a}) . _Default . _Coerce;+rjReplicationRunList = lens _rjReplicationRunList (\ s a -> s{_rjReplicationRunList = a}) . _Default . _Coerce -- | Undocumented member. rjNextReplicationRunStartTime :: Lens' ReplicationJob (Maybe UTCTime)-rjNextReplicationRunStartTime = lens _rjNextReplicationRunStartTime (\ s a -> s{_rjNextReplicationRunStartTime = a}) . mapping _Time;+rjNextReplicationRunStartTime = lens _rjNextReplicationRunStartTime (\ s a -> s{_rjNextReplicationRunStartTime = a}) . mapping _Time -- | Undocumented member. rjStatusMessage :: Lens' ReplicationJob (Maybe Text)-rjStatusMessage = lens _rjStatusMessage (\ s a -> s{_rjStatusMessage = a});+rjStatusMessage = lens _rjStatusMessage (\ s a -> s{_rjStatusMessage = a}) -- | Undocumented member. rjLatestAMIId :: Lens' ReplicationJob (Maybe Text)-rjLatestAMIId = lens _rjLatestAMIId (\ s a -> s{_rjLatestAMIId = a});+rjLatestAMIId = lens _rjLatestAMIId (\ s a -> s{_rjLatestAMIId = a}) -- | Undocumented member. rjSeedReplicationTime :: Lens' ReplicationJob (Maybe UTCTime)-rjSeedReplicationTime = lens _rjSeedReplicationTime (\ s a -> s{_rjSeedReplicationTime = a}) . mapping _Time;+rjSeedReplicationTime = lens _rjSeedReplicationTime (\ s a -> s{_rjSeedReplicationTime = a}) . mapping _Time -- | Undocumented member. rjDescription :: Lens' ReplicationJob (Maybe Text)-rjDescription = lens _rjDescription (\ s a -> s{_rjDescription = a});+rjDescription = lens _rjDescription (\ s a -> s{_rjDescription = a}) instance FromJSON ReplicationJob where parseJSON@@ -327,48 +327,48 @@ :: ReplicationRun replicationRun = ReplicationRun'- { _rrState = Nothing- , _rrReplicationRunId = Nothing- , _rrScheduledStartTime = Nothing- , _rrStatusMessage = Nothing- , _rrCompletedTime = Nothing- , _rrAmiId = Nothing- , _rrType = Nothing- , _rrDescription = Nothing- }+ { _rrState = Nothing+ , _rrReplicationRunId = Nothing+ , _rrScheduledStartTime = Nothing+ , _rrStatusMessage = Nothing+ , _rrCompletedTime = Nothing+ , _rrAmiId = Nothing+ , _rrType = Nothing+ , _rrDescription = Nothing+ } -- | Undocumented member. rrState :: Lens' ReplicationRun (Maybe ReplicationRunState)-rrState = lens _rrState (\ s a -> s{_rrState = a});+rrState = lens _rrState (\ s a -> s{_rrState = a}) -- | Undocumented member. rrReplicationRunId :: Lens' ReplicationRun (Maybe Text)-rrReplicationRunId = lens _rrReplicationRunId (\ s a -> s{_rrReplicationRunId = a});+rrReplicationRunId = lens _rrReplicationRunId (\ s a -> s{_rrReplicationRunId = a}) -- | Undocumented member. rrScheduledStartTime :: Lens' ReplicationRun (Maybe UTCTime)-rrScheduledStartTime = lens _rrScheduledStartTime (\ s a -> s{_rrScheduledStartTime = a}) . mapping _Time;+rrScheduledStartTime = lens _rrScheduledStartTime (\ s a -> s{_rrScheduledStartTime = a}) . mapping _Time -- | Undocumented member. rrStatusMessage :: Lens' ReplicationRun (Maybe Text)-rrStatusMessage = lens _rrStatusMessage (\ s a -> s{_rrStatusMessage = a});+rrStatusMessage = lens _rrStatusMessage (\ s a -> s{_rrStatusMessage = a}) -- | Undocumented member. rrCompletedTime :: Lens' ReplicationRun (Maybe UTCTime)-rrCompletedTime = lens _rrCompletedTime (\ s a -> s{_rrCompletedTime = a}) . mapping _Time;+rrCompletedTime = lens _rrCompletedTime (\ s a -> s{_rrCompletedTime = a}) . mapping _Time -- | Undocumented member. rrAmiId :: Lens' ReplicationRun (Maybe Text)-rrAmiId = lens _rrAmiId (\ s a -> s{_rrAmiId = a});+rrAmiId = lens _rrAmiId (\ s a -> s{_rrAmiId = a}) -- | Undocumented member. rrType :: Lens' ReplicationRun (Maybe ReplicationRunType)-rrType = lens _rrType (\ s a -> s{_rrType = a});+rrType = lens _rrType (\ s a -> s{_rrType = a}) -- | Undocumented member. rrDescription :: Lens' ReplicationRun (Maybe Text)-rrDescription = lens _rrDescription (\ s a -> s{_rrDescription = a});+rrDescription = lens _rrDescription (\ s a -> s{_rrDescription = a}) instance FromJSON ReplicationRun where parseJSON@@ -416,33 +416,33 @@ :: Server server = Server'- { _sServerType = Nothing- , _sServerId = Nothing- , _sReplicationJobTerminated = Nothing- , _sVmServer = Nothing- , _sReplicationJobId = Nothing- }+ { _sServerType = Nothing+ , _sServerId = Nothing+ , _sReplicationJobTerminated = Nothing+ , _sVmServer = Nothing+ , _sReplicationJobId = Nothing+ } -- | Undocumented member. sServerType :: Lens' Server (Maybe ServerType)-sServerType = lens _sServerType (\ s a -> s{_sServerType = a});+sServerType = lens _sServerType (\ s a -> s{_sServerType = a}) -- | Undocumented member. sServerId :: Lens' Server (Maybe Text)-sServerId = lens _sServerId (\ s a -> s{_sServerId = a});+sServerId = lens _sServerId (\ s a -> s{_sServerId = a}) -- | Undocumented member. sReplicationJobTerminated :: Lens' Server (Maybe Bool)-sReplicationJobTerminated = lens _sReplicationJobTerminated (\ s a -> s{_sReplicationJobTerminated = a});+sReplicationJobTerminated = lens _sReplicationJobTerminated (\ s a -> s{_sReplicationJobTerminated = a}) -- | Undocumented member. sVmServer :: Lens' Server (Maybe VMServer)-sVmServer = lens _sVmServer (\ s a -> s{_sVmServer = a});+sVmServer = lens _sVmServer (\ s a -> s{_sVmServer = a}) -- | Undocumented member. sReplicationJobId :: Lens' Server (Maybe Text)-sReplicationJobId = lens _sReplicationJobId (\ s a -> s{_sReplicationJobId = a});+sReplicationJobId = lens _sReplicationJobId (\ s a -> s{_sReplicationJobId = a}) instance FromJSON Server where parseJSON@@ -487,33 +487,33 @@ :: VMServer vMServer = VMServer'- { _vmsVmManagerName = Nothing- , _vmsVmManagerType = Nothing- , _vmsVmServerAddress = Nothing- , _vmsVmName = Nothing- , _vmsVmPath = Nothing- }+ { _vmsVmManagerName = Nothing+ , _vmsVmManagerType = Nothing+ , _vmsVmServerAddress = Nothing+ , _vmsVmName = Nothing+ , _vmsVmPath = Nothing+ } -- | Undocumented member. vmsVmManagerName :: Lens' VMServer (Maybe Text)-vmsVmManagerName = lens _vmsVmManagerName (\ s a -> s{_vmsVmManagerName = a});+vmsVmManagerName = lens _vmsVmManagerName (\ s a -> s{_vmsVmManagerName = a}) -- | Undocumented member. vmsVmManagerType :: Lens' VMServer (Maybe VMManagerType)-vmsVmManagerType = lens _vmsVmManagerType (\ s a -> s{_vmsVmManagerType = a});+vmsVmManagerType = lens _vmsVmManagerType (\ s a -> s{_vmsVmManagerType = a}) -- | Undocumented member. vmsVmServerAddress :: Lens' VMServer (Maybe VMServerAddress)-vmsVmServerAddress = lens _vmsVmServerAddress (\ s a -> s{_vmsVmServerAddress = a});+vmsVmServerAddress = lens _vmsVmServerAddress (\ s a -> s{_vmsVmServerAddress = a}) -- | Undocumented member. vmsVmName :: Lens' VMServer (Maybe Text)-vmsVmName = lens _vmsVmName (\ s a -> s{_vmsVmName = a});+vmsVmName = lens _vmsVmName (\ s a -> s{_vmsVmName = a}) -- | Undocumented member. vmsVmPath :: Lens' VMServer (Maybe Text)-vmsVmPath = lens _vmsVmPath (\ s a -> s{_vmsVmPath = a});+vmsVmPath = lens _vmsVmPath (\ s a -> s{_vmsVmPath = a}) instance FromJSON VMServer where parseJSON@@ -553,11 +553,11 @@ -- | Undocumented member. vmsaVmManagerId :: Lens' VMServerAddress (Maybe Text)-vmsaVmManagerId = lens _vmsaVmManagerId (\ s a -> s{_vmsaVmManagerId = a});+vmsaVmManagerId = lens _vmsaVmManagerId (\ s a -> s{_vmsaVmManagerId = a}) -- | Undocumented member. vmsaVmId :: Lens' VMServerAddress (Maybe Text)-vmsaVmId = lens _vmsaVmId (\ s a -> s{_vmsaVmId = a});+vmsaVmId = lens _vmsaVmId (\ s a -> s{_vmsaVmId = a}) instance FromJSON VMServerAddress where parseJSON
gen/Network/AWS/SMS/Types/Sum.hs view
@@ -9,7 +9,7 @@ -- | -- Module : Network.AWS.SMS.Types.Sum--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated
gen/Network/AWS/SMS/UpdateReplicationJob.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.SMS.UpdateReplicationJob--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -77,38 +77,38 @@ -> UpdateReplicationJob updateReplicationJob pReplicationJobId_ = UpdateReplicationJob'- { _urjFrequency = Nothing- , _urjLicenseType = Nothing- , _urjRoleName = Nothing- , _urjNextReplicationRunStartTime = Nothing- , _urjDescription = Nothing- , _urjReplicationJobId = pReplicationJobId_- }+ { _urjFrequency = Nothing+ , _urjLicenseType = Nothing+ , _urjRoleName = Nothing+ , _urjNextReplicationRunStartTime = Nothing+ , _urjDescription = Nothing+ , _urjReplicationJobId = pReplicationJobId_+ } -- | Undocumented member. urjFrequency :: Lens' UpdateReplicationJob (Maybe Int)-urjFrequency = lens _urjFrequency (\ s a -> s{_urjFrequency = a});+urjFrequency = lens _urjFrequency (\ s a -> s{_urjFrequency = a}) -- | Undocumented member. urjLicenseType :: Lens' UpdateReplicationJob (Maybe LicenseType)-urjLicenseType = lens _urjLicenseType (\ s a -> s{_urjLicenseType = a});+urjLicenseType = lens _urjLicenseType (\ s a -> s{_urjLicenseType = a}) -- | Undocumented member. urjRoleName :: Lens' UpdateReplicationJob (Maybe Text)-urjRoleName = lens _urjRoleName (\ s a -> s{_urjRoleName = a});+urjRoleName = lens _urjRoleName (\ s a -> s{_urjRoleName = a}) -- | Undocumented member. urjNextReplicationRunStartTime :: Lens' UpdateReplicationJob (Maybe UTCTime)-urjNextReplicationRunStartTime = lens _urjNextReplicationRunStartTime (\ s a -> s{_urjNextReplicationRunStartTime = a}) . mapping _Time;+urjNextReplicationRunStartTime = lens _urjNextReplicationRunStartTime (\ s a -> s{_urjNextReplicationRunStartTime = a}) . mapping _Time -- | Undocumented member. urjDescription :: Lens' UpdateReplicationJob (Maybe Text)-urjDescription = lens _urjDescription (\ s a -> s{_urjDescription = a});+urjDescription = lens _urjDescription (\ s a -> s{_urjDescription = a}) -- | Undocumented member. urjReplicationJobId :: Lens' UpdateReplicationJob Text-urjReplicationJobId = lens _urjReplicationJobId (\ s a -> s{_urjReplicationJobId = a});+urjReplicationJobId = lens _urjReplicationJobId (\ s a -> s{_urjReplicationJobId = a}) instance AWSRequest UpdateReplicationJob where type Rs UpdateReplicationJob =@@ -172,6 +172,6 @@ -- | -- | The response status code. urjrsResponseStatus :: Lens' UpdateReplicationJobResponse Int-urjrsResponseStatus = lens _urjrsResponseStatus (\ s a -> s{_urjrsResponseStatus = a});+urjrsResponseStatus = lens _urjrsResponseStatus (\ s a -> s{_urjrsResponseStatus = a}) instance NFData UpdateReplicationJobResponse where
gen/Network/AWS/SMS/Waiters.hs view
@@ -7,7 +7,7 @@ -- | -- Module : Network.AWS.SMS.Waiters--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated
test/Main.hs view
@@ -2,7 +2,7 @@ -- | -- Module : Main--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated
test/Test/AWS/Gen/SMS.hs view
@@ -5,7 +5,7 @@ -- | -- Module : Test.AWS.Gen.SMS--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated
test/Test/AWS/SMS.hs view
@@ -1,6 +1,6 @@ -- | -- Module : Test.AWS.SMS--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay@gmail.com> -- Stability : auto-generated
test/Test/AWS/SMS/Internal.hs view
@@ -1,6 +1,6 @@ -- | -- Module : Test.AWS.SMS.Internal--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay@gmail.com> -- Stability : auto-generated