summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBrendanHay <>2018-05-16 15:12:00 (GMT)
committerhdiff <hdiff@hdiff.luite.com>2018-05-16 15:12:00 (GMT)
commitd9316f1dde51d4a9fcfe5cd905a6361996b1914b (patch)
treea3843787d01d7cc5be3b8facee62e723e72e5637
parent280e9e25a087c18b8d107f9cc1242109b30ac55d (diff)
version 1.6.0HEAD1.6.0master
-rw-r--r--README.md2
-rw-r--r--amazonka-sms.cabal10
-rw-r--r--gen/Network/AWS/SMS.hs2
-rw-r--r--gen/Network/AWS/SMS/CreateReplicationJob.hs34
-rw-r--r--gen/Network/AWS/SMS/DeleteReplicationJob.hs6
-rw-r--r--gen/Network/AWS/SMS/DeleteServerCatalog.hs4
-rw-r--r--gen/Network/AWS/SMS/DisassociateConnector.hs6
-rw-r--r--gen/Network/AWS/SMS/GetConnectors.hs20
-rw-r--r--gen/Network/AWS/SMS/GetReplicationJobs.hs30
-rw-r--r--gen/Network/AWS/SMS/GetReplicationRuns.hs34
-rw-r--r--gen/Network/AWS/SMS/GetServers.hs28
-rw-r--r--gen/Network/AWS/SMS/ImportServerCatalog.hs4
-rw-r--r--gen/Network/AWS/SMS/StartOnDemandReplicationRun.hs18
-rw-r--r--gen/Network/AWS/SMS/Types.hs34
-rw-r--r--gen/Network/AWS/SMS/Types/Product.hs184
-rw-r--r--gen/Network/AWS/SMS/Types/Sum.hs2
-rw-r--r--gen/Network/AWS/SMS/UpdateReplicationJob.hs30
-rw-r--r--gen/Network/AWS/SMS/Waiters.hs2
-rw-r--r--test/Main.hs2
-rw-r--r--test/Test/AWS/Gen/SMS.hs2
-rw-r--r--test/Test/AWS/SMS.hs2
-rw-r--r--test/Test/AWS/SMS/Internal.hs2
22 files changed, 230 insertions, 228 deletions
diff --git a/README.md b/README.md
index 3d783fa..72f5379 100644
--- a/README.md
+++ b/README.md
@@ -8,7 +8,7 @@
## Version
-`1.5.0`
+`1.6.0`
## Description
diff --git a/amazonka-sms.cabal b/amazonka-sms.cabal
index 9255a60..1896e5d 100644
--- a/amazonka-sms.cabal
+++ b/amazonka-sms.cabal
@@ -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: MPL-2.0
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 @@ library
, 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-suite amazonka-sms-test
, 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
diff --git a/gen/Network/AWS/SMS.hs b/gen/Network/AWS/SMS.hs
index cf16116..a34998b 100644
--- a/gen/Network/AWS/SMS.hs
+++ b/gen/Network/AWS/SMS.hs
@@ -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
diff --git a/gen/Network/AWS/SMS/CreateReplicationJob.hs b/gen/Network/AWS/SMS/CreateReplicationJob.hs
index 2662489..e596d18 100644
--- a/gen/Network/AWS/SMS/CreateReplicationJob.hs
+++ b/gen/Network/AWS/SMS/CreateReplicationJob.hs
@@ -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
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
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
diff --git a/gen/Network/AWS/SMS/DeleteReplicationJob.hs b/gen/Network/AWS/SMS/DeleteReplicationJob.hs
index f0a6dbe..ec43a92 100644
--- a/gen/Network/AWS/SMS/DeleteReplicationJob.hs
+++ b/gen/Network/AWS/SMS/DeleteReplicationJob.hs
@@ -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 @@ deleteReplicationJob pReplicationJobId_ =
-- | 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 @@ deleteReplicationJobResponse pResponseStatus_ =
-- | -- | 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
diff --git a/gen/Network/AWS/SMS/DeleteServerCatalog.hs b/gen/Network/AWS/SMS/DeleteServerCatalog.hs
index 33397e8..e41983a 100644
--- a/gen/Network/AWS/SMS/DeleteServerCatalog.hs
+++ b/gen/Network/AWS/SMS/DeleteServerCatalog.hs
@@ -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 @@ deleteServerCatalogResponse pResponseStatus_ =
-- | -- | 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
diff --git a/gen/Network/AWS/SMS/DisassociateConnector.hs b/gen/Network/AWS/SMS/DisassociateConnector.hs
index 3e8ccb0..d5de053 100644
--- a/gen/Network/AWS/SMS/DisassociateConnector.hs
+++ b/gen/Network/AWS/SMS/DisassociateConnector.hs
@@ -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 @@ disassociateConnector pConnectorId_ =
-- | 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 @@ disassociateConnectorResponse pResponseStatus_ =
-- | -- | 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
diff --git a/gen/Network/AWS/SMS/GetConnectors.hs b/gen/Network/AWS/SMS/GetConnectors.hs
index 29333ca..f871197 100644
--- a/gen/Network/AWS/SMS/GetConnectors.hs
+++ b/gen/Network/AWS/SMS/GetConnectors.hs
@@ -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 @@ getConnectors = GetConnectors' {_gcNextToken = Nothing, _gcMaxResults = Nothing}
-- | 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
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
diff --git a/gen/Network/AWS/SMS/GetReplicationJobs.hs b/gen/Network/AWS/SMS/GetReplicationJobs.hs
index c39ddd3..dd2e94f 100644
--- a/gen/Network/AWS/SMS/GetReplicationJobs.hs
+++ b/gen/Network/AWS/SMS/GetReplicationJobs.hs
@@ -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 =
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
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
diff --git a/gen/Network/AWS/SMS/GetReplicationRuns.hs b/gen/Network/AWS/SMS/GetReplicationRuns.hs
index d2486a7..35986ad 100644
--- a/gen/Network/AWS/SMS/GetReplicationRuns.hs
+++ b/gen/Network/AWS/SMS/GetReplicationRuns.hs
@@ -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
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
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
diff --git a/gen/Network/AWS/SMS/GetServers.hs b/gen/Network/AWS/SMS/GetServers.hs
index 5b0e41d..329523a 100644
--- a/gen/Network/AWS/SMS/GetServers.hs
+++ b/gen/Network/AWS/SMS/GetServers.hs
@@ -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 @@ getServers = GetServers' {_gsNextToken = Nothing, _gsMaxResults = Nothing}
-- | 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
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
diff --git a/gen/Network/AWS/SMS/ImportServerCatalog.hs b/gen/Network/AWS/SMS/ImportServerCatalog.hs
index b88a479..09795bf 100644
--- a/gen/Network/AWS/SMS/ImportServerCatalog.hs
+++ b/gen/Network/AWS/SMS/ImportServerCatalog.hs
@@ -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 @@ importServerCatalogResponse pResponseStatus_ =
-- | -- | 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
diff --git a/gen/Network/AWS/SMS/StartOnDemandReplicationRun.hs b/gen/Network/AWS/SMS/StartOnDemandReplicationRun.hs
index 2a1cc64..755e2df 100644
--- a/gen/Network/AWS/SMS/StartOnDemandReplicationRun.hs
+++ b/gen/Network/AWS/SMS/StartOnDemandReplicationRun.hs
@@ -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
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
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
diff --git a/gen/Network/AWS/SMS/Types.hs b/gen/Network/AWS/SMS/Types.hs
index f2ab2ff..9659a48 100644
--- a/gen/Network/AWS/SMS/Types.hs
+++ b/gen/Network/AWS/SMS/Types.hs
@@ -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 @@ import Network.AWS.SMS.Types.Sum
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 @@ sms =
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"
diff --git a/gen/Network/AWS/SMS/Types/Product.hs b/gen/Network/AWS/SMS/Types/Product.hs
index 575dcde..6b189b9 100644
--- a/gen/Network/AWS/SMS/Types/Product.hs
+++ b/gen/Network/AWS/SMS/Types/Product.hs
@@ -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 =
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 =
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 =
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 =
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 =
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 @@ vMServerAddress =
-- | 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
diff --git a/gen/Network/AWS/SMS/Types/Sum.hs b/gen/Network/AWS/SMS/Types/Sum.hs
index d98759d..08f0336 100644
--- a/gen/Network/AWS/SMS/Types/Sum.hs
+++ b/gen/Network/AWS/SMS/Types/Sum.hs
@@ -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
diff --git a/gen/Network/AWS/SMS/UpdateReplicationJob.hs b/gen/Network/AWS/SMS/UpdateReplicationJob.hs
index f60a79b..8632f7f 100644
--- a/gen/Network/AWS/SMS/UpdateReplicationJob.hs
+++ b/gen/Network/AWS/SMS/UpdateReplicationJob.hs
@@ -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
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 @@ updateReplicationJobResponse pResponseStatus_ =
-- | -- | 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
diff --git a/gen/Network/AWS/SMS/Waiters.hs b/gen/Network/AWS/SMS/Waiters.hs
index c90df6e..22f7d86 100644
--- a/gen/Network/AWS/SMS/Waiters.hs
+++ b/gen/Network/AWS/SMS/Waiters.hs
@@ -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
diff --git a/test/Main.hs b/test/Main.hs
index d9c8f24..1607cd6 100644
--- a/test/Main.hs
+++ b/test/Main.hs
@@ -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
diff --git a/test/Test/AWS/Gen/SMS.hs b/test/Test/AWS/Gen/SMS.hs
index e967328..6993a0e 100644
--- a/test/Test/AWS/Gen/SMS.hs
+++ b/test/Test/AWS/Gen/SMS.hs
@@ -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
diff --git a/test/Test/AWS/SMS.hs b/test/Test/AWS/SMS.hs
index 3fbd14f..6bc773f 100644
--- a/test/Test/AWS/SMS.hs
+++ b/test/Test/AWS/SMS.hs
@@ -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
diff --git a/test/Test/AWS/SMS/Internal.hs b/test/Test/AWS/SMS/Internal.hs
index 3ef6f26..0339f1f 100644
--- a/test/Test/AWS/SMS/Internal.hs
+++ b/test/Test/AWS/SMS/Internal.hs
@@ -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