amazonka-lightsail 1.5.0 → 1.6.0

raw patch · 128 files changed

+8578/−2498 lines, 128 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-lightsail.cabal +28/−5
• fixture/AttachDisk.yaml +10/−0
• fixture/AttachDiskResponse.proto +0/−0
• fixture/AttachInstancesToLoadBalancer.yaml +10/−0
• fixture/AttachInstancesToLoadBalancerResponse.proto +0/−0
• fixture/AttachLoadBalancerTLSCertificate.yaml +10/−0
• fixture/AttachLoadBalancerTLSCertificateResponse.proto +0/−0
• fixture/CreateDisk.yaml +10/−0
• fixture/CreateDiskFromSnapshot.yaml +10/−0
• fixture/CreateDiskFromSnapshotResponse.proto +0/−0
• fixture/CreateDiskResponse.proto +0/−0
• fixture/CreateDiskSnapshot.yaml +10/−0
• fixture/CreateDiskSnapshotResponse.proto +0/−0
• fixture/CreateLoadBalancer.yaml +10/−0
• fixture/CreateLoadBalancerResponse.proto +0/−0
• fixture/CreateLoadBalancerTLSCertificate.yaml +10/−0
• fixture/CreateLoadBalancerTLSCertificateResponse.proto +0/−0
• fixture/DeleteDisk.yaml +10/−0
• fixture/DeleteDiskResponse.proto +0/−0
• fixture/DeleteDiskSnapshot.yaml +10/−0
• fixture/DeleteDiskSnapshotResponse.proto +0/−0
• fixture/DeleteLoadBalancer.yaml +10/−0
• fixture/DeleteLoadBalancerResponse.proto +0/−0
• fixture/DeleteLoadBalancerTLSCertificate.yaml +10/−0
• fixture/DeleteLoadBalancerTLSCertificateResponse.proto +0/−0
• fixture/DetachDisk.yaml +10/−0
• fixture/DetachDiskResponse.proto +0/−0
• fixture/DetachInstancesFromLoadBalancer.yaml +10/−0
• fixture/DetachInstancesFromLoadBalancerResponse.proto +0/−0
• fixture/GetDisk.yaml +10/−0
• fixture/GetDiskResponse.proto +0/−0
• fixture/GetDiskSnapshot.yaml +10/−0
• fixture/GetDiskSnapshotResponse.proto +0/−0
• fixture/GetDiskSnapshots.yaml +10/−0
• fixture/GetDiskSnapshotsResponse.proto +0/−0
• fixture/GetDisks.yaml +10/−0
• fixture/GetDisksResponse.proto +0/−0
• fixture/GetLoadBalancer.yaml +10/−0
• fixture/GetLoadBalancerMetricData.yaml +10/−0
• fixture/GetLoadBalancerMetricDataResponse.proto +0/−0
• fixture/GetLoadBalancerResponse.proto +0/−0
• fixture/GetLoadBalancerTLSCertificates.yaml +10/−0
• fixture/GetLoadBalancerTLSCertificatesResponse.proto +0/−0
• fixture/GetLoadBalancers.yaml +10/−0
• fixture/GetLoadBalancersResponse.proto +0/−0
• fixture/UpdateLoadBalancerAttribute.yaml +10/−0
• fixture/UpdateLoadBalancerAttributeResponse.proto +0/−0
• gen/Network/AWS/Lightsail.hs +237/−1
• gen/Network/AWS/Lightsail/AllocateStaticIP.hs +5/−5
• gen/Network/AWS/Lightsail/AttachDisk.hs +158/−0
• gen/Network/AWS/Lightsail/AttachInstancesToLoadBalancer.hs +151/−0
• gen/Network/AWS/Lightsail/AttachLoadBalancerTLSCertificate.hs +160/−0
• gen/Network/AWS/Lightsail/AttachStaticIP.hs +7/−7
• gen/Network/AWS/Lightsail/CloseInstancePublicPorts.hs +7/−7
• gen/Network/AWS/Lightsail/CreateDisk.hs +158/−0
• gen/Network/AWS/Lightsail/CreateDiskFromSnapshot.hs +171/−0
• gen/Network/AWS/Lightsail/CreateDiskSnapshot.hs +149/−0
• gen/Network/AWS/Lightsail/CreateDomain.hs +5/−5
• gen/Network/AWS/Lightsail/CreateDomainEntry.hs +7/−7
• gen/Network/AWS/Lightsail/CreateInstanceSnapshot.hs +9/−9
• gen/Network/AWS/Lightsail/CreateInstances.hs +23/−23
• gen/Network/AWS/Lightsail/CreateInstancesFromSnapshot.hs +32/−21
• gen/Network/AWS/Lightsail/CreateKeyPair.hs +13/−13
• gen/Network/AWS/Lightsail/CreateLoadBalancer.hs +193/−0
• gen/Network/AWS/Lightsail/CreateLoadBalancerTLSCertificate.hs +184/−0
• gen/Network/AWS/Lightsail/DeleteDisk.hs +132/−0
• gen/Network/AWS/Lightsail/DeleteDiskSnapshot.hs +138/−0
• gen/Network/AWS/Lightsail/DeleteDomain.hs +14/−14
• gen/Network/AWS/Lightsail/DeleteDomainEntry.hs +7/−7
• gen/Network/AWS/Lightsail/DeleteInstance.hs +5/−5
• gen/Network/AWS/Lightsail/DeleteInstanceSnapshot.hs +5/−5
• gen/Network/AWS/Lightsail/DeleteKeyPair.hs +5/−5
• gen/Network/AWS/Lightsail/DeleteLoadBalancer.hs +136/−0
• gen/Network/AWS/Lightsail/DeleteLoadBalancerTLSCertificate.hs +168/−0
• gen/Network/AWS/Lightsail/DetachDisk.hs +132/−0
• gen/Network/AWS/Lightsail/DetachInstancesFromLoadBalancer.hs +154/−0
• gen/Network/AWS/Lightsail/DetachStaticIP.hs +5/−5
• gen/Network/AWS/Lightsail/DownloadDefaultKeyPair.hs +8/−8
• gen/Network/AWS/Lightsail/GetActiveNames.hs +9/−9
• gen/Network/AWS/Lightsail/GetBlueprints.hs +10/−10
• gen/Network/AWS/Lightsail/GetBundles.hs +23/−22
• gen/Network/AWS/Lightsail/GetDisk.hs +131/−0
• gen/Network/AWS/Lightsail/GetDiskSnapshot.hs +133/−0
• gen/Network/AWS/Lightsail/GetDiskSnapshots.hs +146/−0
• gen/Network/AWS/Lightsail/GetDisks.hs +145/−0
• gen/Network/AWS/Lightsail/GetDomain.hs +5/−5
• gen/Network/AWS/Lightsail/GetDomains.hs +25/−25
• gen/Network/AWS/Lightsail/GetInstance.hs +5/−5
• gen/Network/AWS/Lightsail/GetInstanceAccessDetails.hs +7/−7
• gen/Network/AWS/Lightsail/GetInstanceMetricData.hs +23/−23
• gen/Network/AWS/Lightsail/GetInstancePortStates.hs +5/−5
• gen/Network/AWS/Lightsail/GetInstanceSnapshot.hs +5/−5
• gen/Network/AWS/Lightsail/GetInstanceSnapshots.hs +9/−9
• gen/Network/AWS/Lightsail/GetInstanceState.hs +14/−14
• gen/Network/AWS/Lightsail/GetInstances.hs +9/−9
• gen/Network/AWS/Lightsail/GetKeyPair.hs +5/−5
• gen/Network/AWS/Lightsail/GetKeyPairs.hs +9/−9
• gen/Network/AWS/Lightsail/GetLoadBalancer.hs +133/−0
• gen/Network/AWS/Lightsail/GetLoadBalancerMetricData.hs +216/−0
• gen/Network/AWS/Lightsail/GetLoadBalancerTLSCertificates.hs +148/−0
• gen/Network/AWS/Lightsail/GetLoadBalancers.hs +146/−0
• gen/Network/AWS/Lightsail/GetOperation.hs +5/−5
• gen/Network/AWS/Lightsail/GetOperations.hs +9/−9
• gen/Network/AWS/Lightsail/GetOperationsForResource.hs +13/−13
• gen/Network/AWS/Lightsail/GetRegions.hs +7/−7
• gen/Network/AWS/Lightsail/GetStaticIP.hs +5/−5
• gen/Network/AWS/Lightsail/GetStaticIPs.hs +9/−9
• gen/Network/AWS/Lightsail/ImportKeyPair.hs +7/−7
• gen/Network/AWS/Lightsail/IsVPCPeered.hs +4/−4
• gen/Network/AWS/Lightsail/OpenInstancePublicPorts.hs +7/−7
• gen/Network/AWS/Lightsail/PeerVPC.hs +4/−4
• gen/Network/AWS/Lightsail/PutInstancePublicPorts.hs +7/−7
• gen/Network/AWS/Lightsail/RebootInstance.hs +7/−7
• gen/Network/AWS/Lightsail/ReleaseStaticIP.hs +5/−5
• gen/Network/AWS/Lightsail/StartInstance.hs +5/−5
• gen/Network/AWS/Lightsail/StopInstance.hs +19/−9
• gen/Network/AWS/Lightsail/Types.hs +162/−16
• gen/Network/AWS/Lightsail/Types/Product.hs +2923/−2033
• gen/Network/AWS/Lightsail/Types/Sum.hs +591/−15
• gen/Network/AWS/Lightsail/UnpeerVPC.hs +4/−4
• gen/Network/AWS/Lightsail/UpdateDomainEntry.hs +7/−7
• gen/Network/AWS/Lightsail/UpdateLoadBalancerAttribute.hs +161/−0
• gen/Network/AWS/Lightsail/Waiters.hs +1/−1
• test/Main.hs +1/−1
• test/Test/AWS/Gen/Lightsail.hs +415/−1
• test/Test/AWS/Lightsail.hs +1/−1
• test/Test/AWS/Lightsail/Internal.hs +1/−1

@@ -8,7 +8,7 @@  ## Version -`1.5.0`+`1.6.0`   ## Description

@@ -1,5 +1,5 @@ name:                  amazonka-lightsail-version:               1.5.0+version:               1.6.0 synopsis:              Amazon Lightsail 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@@ -46,24 +46,42 @@     exposed-modules:           Network.AWS.Lightsail         , Network.AWS.Lightsail.AllocateStaticIP+        , Network.AWS.Lightsail.AttachDisk+        , Network.AWS.Lightsail.AttachInstancesToLoadBalancer+        , Network.AWS.Lightsail.AttachLoadBalancerTLSCertificate         , Network.AWS.Lightsail.AttachStaticIP         , Network.AWS.Lightsail.CloseInstancePublicPorts+        , Network.AWS.Lightsail.CreateDisk+        , Network.AWS.Lightsail.CreateDiskFromSnapshot+        , Network.AWS.Lightsail.CreateDiskSnapshot         , Network.AWS.Lightsail.CreateDomain         , Network.AWS.Lightsail.CreateDomainEntry         , Network.AWS.Lightsail.CreateInstanceSnapshot         , Network.AWS.Lightsail.CreateInstances         , Network.AWS.Lightsail.CreateInstancesFromSnapshot         , Network.AWS.Lightsail.CreateKeyPair+        , Network.AWS.Lightsail.CreateLoadBalancer+        , Network.AWS.Lightsail.CreateLoadBalancerTLSCertificate+        , Network.AWS.Lightsail.DeleteDisk+        , Network.AWS.Lightsail.DeleteDiskSnapshot         , Network.AWS.Lightsail.DeleteDomain         , Network.AWS.Lightsail.DeleteDomainEntry         , Network.AWS.Lightsail.DeleteInstance         , Network.AWS.Lightsail.DeleteInstanceSnapshot         , Network.AWS.Lightsail.DeleteKeyPair+        , Network.AWS.Lightsail.DeleteLoadBalancer+        , Network.AWS.Lightsail.DeleteLoadBalancerTLSCertificate+        , Network.AWS.Lightsail.DetachDisk+        , Network.AWS.Lightsail.DetachInstancesFromLoadBalancer         , Network.AWS.Lightsail.DetachStaticIP         , Network.AWS.Lightsail.DownloadDefaultKeyPair         , Network.AWS.Lightsail.GetActiveNames         , Network.AWS.Lightsail.GetBlueprints         , Network.AWS.Lightsail.GetBundles+        , Network.AWS.Lightsail.GetDisk+        , Network.AWS.Lightsail.GetDiskSnapshot+        , Network.AWS.Lightsail.GetDiskSnapshots+        , Network.AWS.Lightsail.GetDisks         , Network.AWS.Lightsail.GetDomain         , Network.AWS.Lightsail.GetDomains         , Network.AWS.Lightsail.GetInstance@@ -76,6 +94,10 @@         , Network.AWS.Lightsail.GetInstances         , Network.AWS.Lightsail.GetKeyPair         , Network.AWS.Lightsail.GetKeyPairs+        , Network.AWS.Lightsail.GetLoadBalancer+        , Network.AWS.Lightsail.GetLoadBalancerMetricData+        , Network.AWS.Lightsail.GetLoadBalancerTLSCertificates+        , Network.AWS.Lightsail.GetLoadBalancers         , Network.AWS.Lightsail.GetOperation         , Network.AWS.Lightsail.GetOperations         , Network.AWS.Lightsail.GetOperationsForResource@@ -94,6 +116,7 @@         , Network.AWS.Lightsail.Types         , Network.AWS.Lightsail.UnpeerVPC         , Network.AWS.Lightsail.UpdateDomainEntry+        , Network.AWS.Lightsail.UpdateLoadBalancerAttribute         , Network.AWS.Lightsail.Waiters      other-modules:@@ -101,7 +124,7 @@         , Network.AWS.Lightsail.Types.Sum      build-depends:-          amazonka-core == 1.5.0.*+          amazonka-core == 1.6.0.*         , base          >= 4.7     && < 5  test-suite amazonka-lightsail-test@@ -121,8 +144,8 @@         , Test.AWS.Lightsail.Internal      build-depends:-          amazonka-core == 1.5.0.*-        , amazonka-test == 1.5.0.*+          amazonka-core == 1.6.0.*+        , amazonka-test == 1.6.0.*         , amazonka-lightsail         , base         , bytestring

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/lightsail/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  lightsail.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/lightsail/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  lightsail.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/lightsail/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  lightsail.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/lightsail/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  lightsail.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/lightsail/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  lightsail.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/lightsail/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  lightsail.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/lightsail/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  lightsail.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/lightsail/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  lightsail.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/lightsail/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  lightsail.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/lightsail/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  lightsail.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/lightsail/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  lightsail.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/lightsail/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  lightsail.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/lightsail/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  lightsail.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/lightsail/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  lightsail.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/lightsail/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  lightsail.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/lightsail/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  lightsail.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/lightsail/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  lightsail.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/lightsail/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  lightsail.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/lightsail/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  lightsail.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/lightsail/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  lightsail.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/lightsail/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  lightsail.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/lightsail/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  lightsail.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/lightsail/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  lightsail.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -5,7 +5,7 @@  -- | -- Module      : Network.AWS.Lightsail--- 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,18 +68,30 @@     -- ** GetInstances (Paginated)     , module Network.AWS.Lightsail.GetInstances +    -- ** GetLoadBalancer+    , module Network.AWS.Lightsail.GetLoadBalancer+     -- ** GetInstance     , module Network.AWS.Lightsail.GetInstance      -- ** AttachStaticIP     , module Network.AWS.Lightsail.AttachStaticIP +    -- ** DetachDisk+    , module Network.AWS.Lightsail.DetachDisk+     -- ** DownloadDefaultKeyPair     , module Network.AWS.Lightsail.DownloadDefaultKeyPair +    -- ** DeleteLoadBalancerTLSCertificate+    , module Network.AWS.Lightsail.DeleteLoadBalancerTLSCertificate+     -- ** GetDomains (Paginated)     , module Network.AWS.Lightsail.GetDomains +    -- ** CreateLoadBalancerTLSCertificate+    , module Network.AWS.Lightsail.CreateLoadBalancerTLSCertificate+     -- ** CreateDomainEntry     , module Network.AWS.Lightsail.CreateDomainEntry @@ -98,6 +110,12 @@     -- ** RebootInstance     , module Network.AWS.Lightsail.RebootInstance +    -- ** DeleteLoadBalancer+    , module Network.AWS.Lightsail.DeleteLoadBalancer++    -- ** CreateDiskFromSnapshot+    , module Network.AWS.Lightsail.CreateDiskFromSnapshot+     -- ** GetInstanceSnapshot     , module Network.AWS.Lightsail.GetInstanceSnapshot @@ -113,6 +131,9 @@     -- ** StopInstance     , module Network.AWS.Lightsail.StopInstance +    -- ** DetachInstancesFromLoadBalancer+    , module Network.AWS.Lightsail.DetachInstancesFromLoadBalancer+     -- ** CreateInstanceSnapshot     , module Network.AWS.Lightsail.CreateInstanceSnapshot @@ -125,15 +146,33 @@     -- ** UnpeerVPC     , module Network.AWS.Lightsail.UnpeerVPC +    -- ** DeleteDisk+    , module Network.AWS.Lightsail.DeleteDisk+     -- ** CreateInstancesFromSnapshot     , module Network.AWS.Lightsail.CreateInstancesFromSnapshot      -- ** CreateDomain     , module Network.AWS.Lightsail.CreateDomain +    -- ** GetDiskSnapshots+    , module Network.AWS.Lightsail.GetDiskSnapshots+     -- ** PeerVPC     , module Network.AWS.Lightsail.PeerVPC +    -- ** GetLoadBalancers+    , module Network.AWS.Lightsail.GetLoadBalancers++    -- ** AttachLoadBalancerTLSCertificate+    , module Network.AWS.Lightsail.AttachLoadBalancerTLSCertificate++    -- ** UpdateLoadBalancerAttribute+    , module Network.AWS.Lightsail.UpdateLoadBalancerAttribute++    -- ** GetDiskSnapshot+    , module Network.AWS.Lightsail.GetDiskSnapshot+     -- ** GetStaticIP     , module Network.AWS.Lightsail.GetStaticIP @@ -143,6 +182,9 @@     -- ** GetInstancePortStates     , module Network.AWS.Lightsail.GetInstancePortStates +    -- ** CreateDiskSnapshot+    , module Network.AWS.Lightsail.CreateDiskSnapshot+     -- ** DeleteDomainEntry     , module Network.AWS.Lightsail.DeleteDomainEntry @@ -152,6 +194,12 @@     -- ** GetRegions     , module Network.AWS.Lightsail.GetRegions +    -- ** DeleteDiskSnapshot+    , module Network.AWS.Lightsail.DeleteDiskSnapshot++    -- ** GetLoadBalancerMetricData+    , module Network.AWS.Lightsail.GetLoadBalancerMetricData+     -- ** GetInstanceState     , module Network.AWS.Lightsail.GetInstanceState @@ -161,6 +209,12 @@     -- ** GetOperations (Paginated)     , module Network.AWS.Lightsail.GetOperations +    -- ** GetDisks+    , module Network.AWS.Lightsail.GetDisks++    -- ** AttachInstancesToLoadBalancer+    , module Network.AWS.Lightsail.AttachInstancesToLoadBalancer+     -- ** GetOperation     , module Network.AWS.Lightsail.GetOperation @@ -173,6 +227,15 @@     -- ** PutInstancePublicPorts     , module Network.AWS.Lightsail.PutInstancePublicPorts +    -- ** GetDisk+    , module Network.AWS.Lightsail.GetDisk++    -- ** CreateLoadBalancer+    , module Network.AWS.Lightsail.CreateLoadBalancer++    -- ** AttachDisk+    , module Network.AWS.Lightsail.AttachDisk+     -- ** DetachStaticIP     , module Network.AWS.Lightsail.DetachStaticIP @@ -188,6 +251,12 @@     -- ** DeleteDomain     , module Network.AWS.Lightsail.DeleteDomain +    -- ** GetLoadBalancerTLSCertificates+    , module Network.AWS.Lightsail.GetLoadBalancerTLSCertificates++    -- ** CreateDisk+    , module Network.AWS.Lightsail.CreateDisk+     -- ** GetOperationsForResource     , module Network.AWS.Lightsail.GetOperationsForResource @@ -205,9 +274,21 @@     -- ** BlueprintType     , BlueprintType (..) +    -- ** DiskSnapshotState+    , DiskSnapshotState (..)++    -- ** DiskState+    , DiskState (..)+     -- ** InstanceAccessProtocol     , InstanceAccessProtocol (..) +    -- ** InstanceHealthReason+    , InstanceHealthReason (..)++    -- ** InstanceHealthState+    , InstanceHealthState (..)+     -- ** InstanceMetricName     , InstanceMetricName (..) @@ -217,6 +298,33 @@     -- ** InstanceSnapshotState     , InstanceSnapshotState (..) +    -- ** LoadBalancerAttributeName+    , LoadBalancerAttributeName (..)++    -- ** LoadBalancerMetricName+    , LoadBalancerMetricName (..)++    -- ** LoadBalancerProtocol+    , LoadBalancerProtocol (..)++    -- ** LoadBalancerState+    , LoadBalancerState (..)++    -- ** LoadBalancerTLSCertificateDomainStatus+    , LoadBalancerTLSCertificateDomainStatus (..)++    -- ** LoadBalancerTLSCertificateFailureReason+    , LoadBalancerTLSCertificateFailureReason (..)++    -- ** LoadBalancerTLSCertificateRenewalStatus+    , LoadBalancerTLSCertificateRenewalStatus (..)++    -- ** LoadBalancerTLSCertificateRevocationReason+    , LoadBalancerTLSCertificateRevocationReason (..)++    -- ** LoadBalancerTLSCertificateStatus+    , LoadBalancerTLSCertificateStatus (..)+     -- ** MetricStatistic     , MetricStatistic (..) @@ -284,6 +392,7 @@     -- ** Disk     , Disk     , disk+    , dState     , dResourceType     , dArn     , dPath@@ -299,6 +408,27 @@     , dAttachedTo     , dGbInUse +    -- ** DiskMap+    , DiskMap+    , diskMap+    , dmNewDiskName+    , dmOriginalDiskPath++    -- ** DiskSnapshot+    , DiskSnapshot+    , diskSnapshot+    , dsFromDiskName+    , dsState+    , dsResourceType+    , dsArn+    , dsCreatedAt+    , dsLocation+    , dsProgress+    , dsName+    , dsSizeInGb+    , dsSupportCode+    , dsFromDiskARN+     -- ** Domain     , Domain     , domain@@ -313,6 +443,7 @@     -- ** DomainEntry     , DomainEntry     , domainEntry+    , deIsAlias     , deName     , deId     , deOptions@@ -361,6 +492,13 @@     , ihDisks     , ihRamSizeInGb +    -- ** InstanceHealthSummary+    , InstanceHealthSummary+    , instanceHealthSummary+    , ihsInstanceHealth+    , ihsInstanceName+    , ihsInstanceHealthReason+     -- ** InstanceNetworking     , InstanceNetworking     , instanceNetworking@@ -392,6 +530,7 @@     , insFromBlueprintId     , insState     , insResourceType+    , insFromAttachedDisks     , insArn     , insCreatedAt     , insLocation@@ -420,6 +559,80 @@     , kpName     , kpSupportCode +    -- ** LoadBalancer+    , LoadBalancer+    , loadBalancer+    , lbHealthCheckPath+    , lbState+    , lbResourceType+    , lbArn+    , lbCreatedAt+    , lbLocation+    , lbInstancePort+    , lbConfigurationOptions+    , lbProtocol+    , lbTlsCertificateSummaries+    , lbName+    , lbSupportCode+    , lbPublicPorts+    , lbDnsName+    , lbInstanceHealthSummary++    -- ** LoadBalancerTLSCertificate+    , LoadBalancerTLSCertificate+    , loadBalancerTLSCertificate+    , lbtcFailureReason+    , lbtcSubject+    , lbtcStatus+    , lbtcSubjectAlternativeNames+    , lbtcResourceType+    , lbtcArn+    , lbtcCreatedAt+    , lbtcLocation+    , lbtcLoadBalancerName+    , lbtcSerial+    , lbtcIsAttached+    , lbtcRevokedAt+    , lbtcNotBefore+    , lbtcRevocationReason+    , lbtcDomainName+    , lbtcName+    , lbtcRenewalSummary+    , lbtcSupportCode+    , lbtcDomainValidationRecords+    , lbtcIssuedAt+    , lbtcKeyAlgorithm+    , lbtcSignatureAlgorithm+    , lbtcIssuer+    , lbtcNotAfter++    -- ** LoadBalancerTLSCertificateDomainValidationOption+    , LoadBalancerTLSCertificateDomainValidationOption+    , loadBalancerTLSCertificateDomainValidationOption+    , lbtcdvoDomainName+    , lbtcdvoValidationStatus++    -- ** LoadBalancerTLSCertificateDomainValidationRecord+    , LoadBalancerTLSCertificateDomainValidationRecord+    , loadBalancerTLSCertificateDomainValidationRecord+    , lbtcdvrValue+    , lbtcdvrDomainName+    , lbtcdvrName+    , lbtcdvrValidationStatus+    , lbtcdvrType++    -- ** LoadBalancerTLSCertificateRenewalSummary+    , LoadBalancerTLSCertificateRenewalSummary+    , loadBalancerTLSCertificateRenewalSummary+    , lbtcrsRenewalStatus+    , lbtcrsDomainValidationOptions++    -- ** LoadBalancerTLSCertificateSummary+    , LoadBalancerTLSCertificateSummary+    , loadBalancerTLSCertificateSummary+    , lbtcsIsAttached+    , lbtcsName+     -- ** MetricDatapoint     , MetricDatapoint     , metricDatapoint@@ -495,24 +708,42 @@     ) where  import Network.AWS.Lightsail.AllocateStaticIP+import Network.AWS.Lightsail.AttachDisk+import Network.AWS.Lightsail.AttachInstancesToLoadBalancer+import Network.AWS.Lightsail.AttachLoadBalancerTLSCertificate import Network.AWS.Lightsail.AttachStaticIP import Network.AWS.Lightsail.CloseInstancePublicPorts+import Network.AWS.Lightsail.CreateDisk+import Network.AWS.Lightsail.CreateDiskFromSnapshot+import Network.AWS.Lightsail.CreateDiskSnapshot import Network.AWS.Lightsail.CreateDomain import Network.AWS.Lightsail.CreateDomainEntry import Network.AWS.Lightsail.CreateInstances import Network.AWS.Lightsail.CreateInstancesFromSnapshot import Network.AWS.Lightsail.CreateInstanceSnapshot import Network.AWS.Lightsail.CreateKeyPair+import Network.AWS.Lightsail.CreateLoadBalancer+import Network.AWS.Lightsail.CreateLoadBalancerTLSCertificate+import Network.AWS.Lightsail.DeleteDisk+import Network.AWS.Lightsail.DeleteDiskSnapshot import Network.AWS.Lightsail.DeleteDomain import Network.AWS.Lightsail.DeleteDomainEntry import Network.AWS.Lightsail.DeleteInstance import Network.AWS.Lightsail.DeleteInstanceSnapshot import Network.AWS.Lightsail.DeleteKeyPair+import Network.AWS.Lightsail.DeleteLoadBalancer+import Network.AWS.Lightsail.DeleteLoadBalancerTLSCertificate+import Network.AWS.Lightsail.DetachDisk+import Network.AWS.Lightsail.DetachInstancesFromLoadBalancer import Network.AWS.Lightsail.DetachStaticIP import Network.AWS.Lightsail.DownloadDefaultKeyPair import Network.AWS.Lightsail.GetActiveNames import Network.AWS.Lightsail.GetBlueprints import Network.AWS.Lightsail.GetBundles+import Network.AWS.Lightsail.GetDisk+import Network.AWS.Lightsail.GetDisks+import Network.AWS.Lightsail.GetDiskSnapshot+import Network.AWS.Lightsail.GetDiskSnapshots import Network.AWS.Lightsail.GetDomain import Network.AWS.Lightsail.GetDomains import Network.AWS.Lightsail.GetInstance@@ -525,6 +756,10 @@ import Network.AWS.Lightsail.GetInstanceState import Network.AWS.Lightsail.GetKeyPair import Network.AWS.Lightsail.GetKeyPairs+import Network.AWS.Lightsail.GetLoadBalancer+import Network.AWS.Lightsail.GetLoadBalancerMetricData+import Network.AWS.Lightsail.GetLoadBalancers+import Network.AWS.Lightsail.GetLoadBalancerTLSCertificates import Network.AWS.Lightsail.GetOperation import Network.AWS.Lightsail.GetOperations import Network.AWS.Lightsail.GetOperationsForResource@@ -543,6 +778,7 @@ import Network.AWS.Lightsail.Types import Network.AWS.Lightsail.UnpeerVPC import Network.AWS.Lightsail.UpdateDomainEntry+import Network.AWS.Lightsail.UpdateLoadBalancerAttribute import Network.AWS.Lightsail.Waiters  {- $errors

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Lightsail.AllocateStaticIP--- 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@@ -64,7 +64,7 @@  -- | The name of the static IP address. asiStaticIPName :: Lens' AllocateStaticIP Text-asiStaticIPName = lens _asiStaticIPName (\ s a -> s{_asiStaticIPName = a});+asiStaticIPName = lens _asiStaticIPName (\ s a -> s{_asiStaticIPName = a})  instance AWSRequest AllocateStaticIP where         type Rs AllocateStaticIP = AllocateStaticIPResponse@@ -121,15 +121,15 @@     -> AllocateStaticIPResponse allocateStaticIPResponse pResponseStatus_ =   AllocateStaticIPResponse'-  {_asirsOperations = Nothing, _asirsResponseStatus = pResponseStatus_}+    {_asirsOperations = Nothing, _asirsResponseStatus = pResponseStatus_}   -- | An array of key-value pairs containing information about the static IP address you allocated. asirsOperations :: Lens' AllocateStaticIPResponse [Operation]-asirsOperations = lens _asirsOperations (\ s a -> s{_asirsOperations = a}) . _Default . _Coerce;+asirsOperations = lens _asirsOperations (\ s a -> s{_asirsOperations = a}) . _Default . _Coerce  -- | -- | The response status code. asirsResponseStatus :: Lens' AllocateStaticIPResponse Int-asirsResponseStatus = lens _asirsResponseStatus (\ s a -> s{_asirsResponseStatus = a});+asirsResponseStatus = lens _asirsResponseStatus (\ s a -> s{_asirsResponseStatus = a})  instance NFData AllocateStaticIPResponse where

@@ -0,0 +1,158 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.Lightsail.AttachDisk+-- 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+-- Portability : non-portable (GHC extensions)+--+-- Attaches a block storage disk to a running or stopped Lightsail instance and exposes it to the instance with the specified disk name.+--+--+module Network.AWS.Lightsail.AttachDisk+    (+    -- * Creating a Request+      attachDisk+    , AttachDisk+    -- * Request Lenses+    , adDiskName+    , adInstanceName+    , adDiskPath++    -- * Destructuring the Response+    , attachDiskResponse+    , AttachDiskResponse+    -- * Response Lenses+    , adrsOperations+    , adrsResponseStatus+    ) where++import Network.AWS.Lens+import Network.AWS.Lightsail.Types+import Network.AWS.Lightsail.Types.Product+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response++-- | /See:/ 'attachDisk' smart constructor.+data AttachDisk = AttachDisk'+  { _adDiskName     :: !Text+  , _adInstanceName :: !Text+  , _adDiskPath     :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'AttachDisk' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'adDiskName' - The unique Lightsail disk name (e.g., @my-disk@ ).+--+-- * 'adInstanceName' - The name of the Lightsail instance where you want to utilize the storage disk.+--+-- * 'adDiskPath' - The disk path to expose to the instance (e.g., @/dev/xvdf@ ).+attachDisk+    :: Text -- ^ 'adDiskName'+    -> Text -- ^ 'adInstanceName'+    -> Text -- ^ 'adDiskPath'+    -> AttachDisk+attachDisk pDiskName_ pInstanceName_ pDiskPath_ =+  AttachDisk'+    { _adDiskName = pDiskName_+    , _adInstanceName = pInstanceName_+    , _adDiskPath = pDiskPath_+    }+++-- | The unique Lightsail disk name (e.g., @my-disk@ ).+adDiskName :: Lens' AttachDisk Text+adDiskName = lens _adDiskName (\ s a -> s{_adDiskName = a})++-- | The name of the Lightsail instance where you want to utilize the storage disk.+adInstanceName :: Lens' AttachDisk Text+adInstanceName = lens _adInstanceName (\ s a -> s{_adInstanceName = a})++-- | The disk path to expose to the instance (e.g., @/dev/xvdf@ ).+adDiskPath :: Lens' AttachDisk Text+adDiskPath = lens _adDiskPath (\ s a -> s{_adDiskPath = a})++instance AWSRequest AttachDisk where+        type Rs AttachDisk = AttachDiskResponse+        request = postJSON lightsail+        response+          = receiveJSON+              (\ s h x ->+                 AttachDiskResponse' <$>+                   (x .?> "operations" .!@ mempty) <*>+                     (pure (fromEnum s)))++instance Hashable AttachDisk where++instance NFData AttachDisk where++instance ToHeaders AttachDisk where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("Lightsail_20161128.AttachDisk" :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON AttachDisk where+        toJSON AttachDisk'{..}+          = object+              (catMaybes+                 [Just ("diskName" .= _adDiskName),+                  Just ("instanceName" .= _adInstanceName),+                  Just ("diskPath" .= _adDiskPath)])++instance ToPath AttachDisk where+        toPath = const "/"++instance ToQuery AttachDisk where+        toQuery = const mempty++-- | /See:/ 'attachDiskResponse' smart constructor.+data AttachDiskResponse = AttachDiskResponse'+  { _adrsOperations     :: !(Maybe [Operation])+  , _adrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'AttachDiskResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'adrsOperations' - An object describing the API operations.+--+-- * 'adrsResponseStatus' - -- | The response status code.+attachDiskResponse+    :: Int -- ^ 'adrsResponseStatus'+    -> AttachDiskResponse+attachDiskResponse pResponseStatus_ =+  AttachDiskResponse'+    {_adrsOperations = Nothing, _adrsResponseStatus = pResponseStatus_}+++-- | An object describing the API operations.+adrsOperations :: Lens' AttachDiskResponse [Operation]+adrsOperations = lens _adrsOperations (\ s a -> s{_adrsOperations = a}) . _Default . _Coerce++-- | -- | The response status code.+adrsResponseStatus :: Lens' AttachDiskResponse Int+adrsResponseStatus = lens _adrsResponseStatus (\ s a -> s{_adrsResponseStatus = a})++instance NFData AttachDiskResponse where

@@ -0,0 +1,151 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.Lightsail.AttachInstancesToLoadBalancer+-- 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+-- Portability : non-portable (GHC extensions)+--+-- Attaches one or more Lightsail instances to a load balancer.+--+--+-- After some time, the instances are attached to the load balancer and the health check status is available.+--+module Network.AWS.Lightsail.AttachInstancesToLoadBalancer+    (+    -- * Creating a Request+      attachInstancesToLoadBalancer+    , AttachInstancesToLoadBalancer+    -- * Request Lenses+    , aitlbLoadBalancerName+    , aitlbInstanceNames++    -- * Destructuring the Response+    , attachInstancesToLoadBalancerResponse+    , AttachInstancesToLoadBalancerResponse+    -- * Response Lenses+    , aitlbrsOperations+    , aitlbrsResponseStatus+    ) where++import Network.AWS.Lens+import Network.AWS.Lightsail.Types+import Network.AWS.Lightsail.Types.Product+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response++-- | /See:/ 'attachInstancesToLoadBalancer' smart constructor.+data AttachInstancesToLoadBalancer = AttachInstancesToLoadBalancer'+  { _aitlbLoadBalancerName :: !Text+  , _aitlbInstanceNames    :: ![Text]+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'AttachInstancesToLoadBalancer' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'aitlbLoadBalancerName' - The name of the load balancer.+--+-- * 'aitlbInstanceNames' - An array of strings representing the instance name(s) you want to attach to your load balancer. An instance must be @running@ before you can attach it to your load balancer. There are no additional limits on the number of instances you can attach to your load balancer, aside from the limit of Lightsail instances you can create in your account (20).+attachInstancesToLoadBalancer+    :: Text -- ^ 'aitlbLoadBalancerName'+    -> AttachInstancesToLoadBalancer+attachInstancesToLoadBalancer pLoadBalancerName_ =+  AttachInstancesToLoadBalancer'+    {_aitlbLoadBalancerName = pLoadBalancerName_, _aitlbInstanceNames = mempty}+++-- | The name of the load balancer.+aitlbLoadBalancerName :: Lens' AttachInstancesToLoadBalancer Text+aitlbLoadBalancerName = lens _aitlbLoadBalancerName (\ s a -> s{_aitlbLoadBalancerName = a})++-- | An array of strings representing the instance name(s) you want to attach to your load balancer. An instance must be @running@ before you can attach it to your load balancer. There are no additional limits on the number of instances you can attach to your load balancer, aside from the limit of Lightsail instances you can create in your account (20).+aitlbInstanceNames :: Lens' AttachInstancesToLoadBalancer [Text]+aitlbInstanceNames = lens _aitlbInstanceNames (\ s a -> s{_aitlbInstanceNames = a}) . _Coerce++instance AWSRequest AttachInstancesToLoadBalancer+         where+        type Rs AttachInstancesToLoadBalancer =+             AttachInstancesToLoadBalancerResponse+        request = postJSON lightsail+        response+          = receiveJSON+              (\ s h x ->+                 AttachInstancesToLoadBalancerResponse' <$>+                   (x .?> "operations" .!@ mempty) <*>+                     (pure (fromEnum s)))++instance Hashable AttachInstancesToLoadBalancer where++instance NFData AttachInstancesToLoadBalancer where++instance ToHeaders AttachInstancesToLoadBalancer+         where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("Lightsail_20161128.AttachInstancesToLoadBalancer"+                       :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON AttachInstancesToLoadBalancer where+        toJSON AttachInstancesToLoadBalancer'{..}+          = object+              (catMaybes+                 [Just ("loadBalancerName" .= _aitlbLoadBalancerName),+                  Just ("instanceNames" .= _aitlbInstanceNames)])++instance ToPath AttachInstancesToLoadBalancer where+        toPath = const "/"++instance ToQuery AttachInstancesToLoadBalancer where+        toQuery = const mempty++-- | /See:/ 'attachInstancesToLoadBalancerResponse' smart constructor.+data AttachInstancesToLoadBalancerResponse = AttachInstancesToLoadBalancerResponse'+  { _aitlbrsOperations     :: !(Maybe [Operation])+  , _aitlbrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'AttachInstancesToLoadBalancerResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'aitlbrsOperations' - An object representing the API operations.+--+-- * 'aitlbrsResponseStatus' - -- | The response status code.+attachInstancesToLoadBalancerResponse+    :: Int -- ^ 'aitlbrsResponseStatus'+    -> AttachInstancesToLoadBalancerResponse+attachInstancesToLoadBalancerResponse pResponseStatus_ =+  AttachInstancesToLoadBalancerResponse'+    {_aitlbrsOperations = Nothing, _aitlbrsResponseStatus = pResponseStatus_}+++-- | An object representing the API operations.+aitlbrsOperations :: Lens' AttachInstancesToLoadBalancerResponse [Operation]+aitlbrsOperations = lens _aitlbrsOperations (\ s a -> s{_aitlbrsOperations = a}) . _Default . _Coerce++-- | -- | The response status code.+aitlbrsResponseStatus :: Lens' AttachInstancesToLoadBalancerResponse Int+aitlbrsResponseStatus = lens _aitlbrsResponseStatus (\ s a -> s{_aitlbrsResponseStatus = a})++instance NFData AttachInstancesToLoadBalancerResponse+         where

@@ -0,0 +1,160 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.Lightsail.AttachLoadBalancerTLSCertificate+-- 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+-- Portability : non-portable (GHC extensions)+--+-- Attaches a Transport Layer Security (TLS) certificate to your load balancer. TLS is just an updated, more secure version of Secure Socket Layer (SSL).+--+--+-- Once you create and validate your certificate, you can attach it to your load balancer. You can also use this API to rotate the certificates on your account. Use the @AttachLoadBalancerTlsCertificate@ operation with the non-attached certificate, and it will replace the existing one and become the attached certificate.+--+module Network.AWS.Lightsail.AttachLoadBalancerTLSCertificate+    (+    -- * Creating a Request+      attachLoadBalancerTLSCertificate+    , AttachLoadBalancerTLSCertificate+    -- * Request Lenses+    , albtcLoadBalancerName+    , albtcCertificateName++    -- * Destructuring the Response+    , attachLoadBalancerTLSCertificateResponse+    , AttachLoadBalancerTLSCertificateResponse+    -- * Response Lenses+    , albtcrsOperations+    , albtcrsResponseStatus+    ) where++import Network.AWS.Lens+import Network.AWS.Lightsail.Types+import Network.AWS.Lightsail.Types.Product+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response++-- | /See:/ 'attachLoadBalancerTLSCertificate' smart constructor.+data AttachLoadBalancerTLSCertificate = AttachLoadBalancerTLSCertificate'+  { _albtcLoadBalancerName :: !Text+  , _albtcCertificateName  :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'AttachLoadBalancerTLSCertificate' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'albtcLoadBalancerName' - The name of the load balancer to which you want to associate the SSL/TLS certificate.+--+-- * 'albtcCertificateName' - The name of your SSL/TLS certificate.+attachLoadBalancerTLSCertificate+    :: Text -- ^ 'albtcLoadBalancerName'+    -> Text -- ^ 'albtcCertificateName'+    -> AttachLoadBalancerTLSCertificate+attachLoadBalancerTLSCertificate pLoadBalancerName_ pCertificateName_ =+  AttachLoadBalancerTLSCertificate'+    { _albtcLoadBalancerName = pLoadBalancerName_+    , _albtcCertificateName = pCertificateName_+    }+++-- | The name of the load balancer to which you want to associate the SSL/TLS certificate.+albtcLoadBalancerName :: Lens' AttachLoadBalancerTLSCertificate Text+albtcLoadBalancerName = lens _albtcLoadBalancerName (\ s a -> s{_albtcLoadBalancerName = a})++-- | The name of your SSL/TLS certificate.+albtcCertificateName :: Lens' AttachLoadBalancerTLSCertificate Text+albtcCertificateName = lens _albtcCertificateName (\ s a -> s{_albtcCertificateName = a})++instance AWSRequest AttachLoadBalancerTLSCertificate+         where+        type Rs AttachLoadBalancerTLSCertificate =+             AttachLoadBalancerTLSCertificateResponse+        request = postJSON lightsail+        response+          = receiveJSON+              (\ s h x ->+                 AttachLoadBalancerTLSCertificateResponse' <$>+                   (x .?> "operations" .!@ mempty) <*>+                     (pure (fromEnum s)))++instance Hashable AttachLoadBalancerTLSCertificate+         where++instance NFData AttachLoadBalancerTLSCertificate+         where++instance ToHeaders AttachLoadBalancerTLSCertificate+         where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("Lightsail_20161128.AttachLoadBalancerTlsCertificate"+                       :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON AttachLoadBalancerTLSCertificate+         where+        toJSON AttachLoadBalancerTLSCertificate'{..}+          = object+              (catMaybes+                 [Just ("loadBalancerName" .= _albtcLoadBalancerName),+                  Just ("certificateName" .= _albtcCertificateName)])++instance ToPath AttachLoadBalancerTLSCertificate+         where+        toPath = const "/"++instance ToQuery AttachLoadBalancerTLSCertificate+         where+        toQuery = const mempty++-- | /See:/ 'attachLoadBalancerTLSCertificateResponse' smart constructor.+data AttachLoadBalancerTLSCertificateResponse = AttachLoadBalancerTLSCertificateResponse'+  { _albtcrsOperations     :: !(Maybe [Operation])+  , _albtcrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'AttachLoadBalancerTLSCertificateResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'albtcrsOperations' - An object representing the API operations. These SSL/TLS certificates are only usable by Lightsail load balancers. You can't get the certificate and use it for another purpose.+--+-- * 'albtcrsResponseStatus' - -- | The response status code.+attachLoadBalancerTLSCertificateResponse+    :: Int -- ^ 'albtcrsResponseStatus'+    -> AttachLoadBalancerTLSCertificateResponse+attachLoadBalancerTLSCertificateResponse pResponseStatus_ =+  AttachLoadBalancerTLSCertificateResponse'+    {_albtcrsOperations = Nothing, _albtcrsResponseStatus = pResponseStatus_}+++-- | An object representing the API operations. These SSL/TLS certificates are only usable by Lightsail load balancers. You can't get the certificate and use it for another purpose.+albtcrsOperations :: Lens' AttachLoadBalancerTLSCertificateResponse [Operation]+albtcrsOperations = lens _albtcrsOperations (\ s a -> s{_albtcrsOperations = a}) . _Default . _Coerce++-- | -- | The response status code.+albtcrsResponseStatus :: Lens' AttachLoadBalancerTLSCertificateResponse Int+albtcrsResponseStatus = lens _albtcrsResponseStatus (\ s a -> s{_albtcrsResponseStatus = a})++instance NFData+           AttachLoadBalancerTLSCertificateResponse+         where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Lightsail.AttachStaticIP--- 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,16 +65,16 @@     -> AttachStaticIP attachStaticIP pStaticIPName_ pInstanceName_ =   AttachStaticIP'-  {_asipStaticIPName = pStaticIPName_, _asipInstanceName = pInstanceName_}+    {_asipStaticIPName = pStaticIPName_, _asipInstanceName = pInstanceName_}   -- | The name of the static IP. asipStaticIPName :: Lens' AttachStaticIP Text-asipStaticIPName = lens _asipStaticIPName (\ s a -> s{_asipStaticIPName = a});+asipStaticIPName = lens _asipStaticIPName (\ s a -> s{_asipStaticIPName = a})  -- | The instance name to which you want to attach the static IP address. asipInstanceName :: Lens' AttachStaticIP Text-asipInstanceName = lens _asipInstanceName (\ s a -> s{_asipInstanceName = a});+asipInstanceName = lens _asipInstanceName (\ s a -> s{_asipInstanceName = a})  instance AWSRequest AttachStaticIP where         type Rs AttachStaticIP = AttachStaticIPResponse@@ -131,15 +131,15 @@     -> AttachStaticIPResponse attachStaticIPResponse pResponseStatus_ =   AttachStaticIPResponse'-  {_asiprsOperations = Nothing, _asiprsResponseStatus = pResponseStatus_}+    {_asiprsOperations = Nothing, _asiprsResponseStatus = pResponseStatus_}   -- | An array of key-value pairs containing information about your API operations. asiprsOperations :: Lens' AttachStaticIPResponse [Operation]-asiprsOperations = lens _asiprsOperations (\ s a -> s{_asiprsOperations = a}) . _Default . _Coerce;+asiprsOperations = lens _asiprsOperations (\ s a -> s{_asiprsOperations = a}) . _Default . _Coerce  -- | -- | The response status code. asiprsResponseStatus :: Lens' AttachStaticIPResponse Int-asiprsResponseStatus = lens _asiprsResponseStatus (\ s a -> s{_asiprsResponseStatus = a});+asiprsResponseStatus = lens _asiprsResponseStatus (\ s a -> s{_asiprsResponseStatus = a})  instance NFData AttachStaticIPResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Lightsail.CloseInstancePublicPorts--- 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,16 +65,16 @@     -> CloseInstancePublicPorts closeInstancePublicPorts pPortInfo_ pInstanceName_ =   CloseInstancePublicPorts'-  {_cippPortInfo = pPortInfo_, _cippInstanceName = pInstanceName_}+    {_cippPortInfo = pPortInfo_, _cippInstanceName = pInstanceName_}   -- | Information about the public port you are trying to close. cippPortInfo :: Lens' CloseInstancePublicPorts PortInfo-cippPortInfo = lens _cippPortInfo (\ s a -> s{_cippPortInfo = a});+cippPortInfo = lens _cippPortInfo (\ s a -> s{_cippPortInfo = a})  -- | The name of the instance on which you're attempting to close the public ports. cippInstanceName :: Lens' CloseInstancePublicPorts Text-cippInstanceName = lens _cippInstanceName (\ s a -> s{_cippInstanceName = a});+cippInstanceName = lens _cippInstanceName (\ s a -> s{_cippInstanceName = a})  instance AWSRequest CloseInstancePublicPorts where         type Rs CloseInstancePublicPorts =@@ -132,16 +132,16 @@     -> CloseInstancePublicPortsResponse closeInstancePublicPortsResponse pResponseStatus_ =   CloseInstancePublicPortsResponse'-  {_cipprsOperation = Nothing, _cipprsResponseStatus = pResponseStatus_}+    {_cipprsOperation = Nothing, _cipprsResponseStatus = pResponseStatus_}   -- | An array of key-value pairs that contains information about the operation. cipprsOperation :: Lens' CloseInstancePublicPortsResponse (Maybe Operation)-cipprsOperation = lens _cipprsOperation (\ s a -> s{_cipprsOperation = a});+cipprsOperation = lens _cipprsOperation (\ s a -> s{_cipprsOperation = a})  -- | -- | The response status code. cipprsResponseStatus :: Lens' CloseInstancePublicPortsResponse Int-cipprsResponseStatus = lens _cipprsResponseStatus (\ s a -> s{_cipprsResponseStatus = a});+cipprsResponseStatus = lens _cipprsResponseStatus (\ s a -> s{_cipprsResponseStatus = a})  instance NFData CloseInstancePublicPortsResponse          where

@@ -0,0 +1,158 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.Lightsail.CreateDisk+-- 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+-- Portability : non-portable (GHC extensions)+--+-- Creates a block storage disk that can be attached to a Lightsail instance in the same Availability Zone (e.g., @us-east-2a@ ). The disk is created in the regional endpoint that you send the HTTP request to. For more information, see <https://lightsail.aws.amazon.com/ls/docs/overview/article/understanding-regions-and-availability-zones-in-amazon-lightsail Regions and Availability Zones in Lightsail> .+--+--+module Network.AWS.Lightsail.CreateDisk+    (+    -- * Creating a Request+      createDisk+    , CreateDisk+    -- * Request Lenses+    , cdDiskName+    , cdAvailabilityZone+    , cdSizeInGb++    -- * Destructuring the Response+    , createDiskResponse+    , CreateDiskResponse+    -- * Response Lenses+    , crsOperations+    , crsResponseStatus+    ) where++import Network.AWS.Lens+import Network.AWS.Lightsail.Types+import Network.AWS.Lightsail.Types.Product+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response++-- | /See:/ 'createDisk' smart constructor.+data CreateDisk = CreateDisk'+  { _cdDiskName         :: !Text+  , _cdAvailabilityZone :: !Text+  , _cdSizeInGb         :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'CreateDisk' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cdDiskName' - The unique Lightsail disk name (e.g., @my-disk@ ).+--+-- * 'cdAvailabilityZone' - The Availability Zone where you want to create the disk (e.g., @us-east-2a@ ). Choose the same Availability Zone as the Lightsail instance where you want to create the disk. Use the GetRegions operation to list the Availability Zones where Lightsail is currently available.+--+-- * 'cdSizeInGb' - The size of the disk in GB (e.g., @32@ ).+createDisk+    :: Text -- ^ 'cdDiskName'+    -> Text -- ^ 'cdAvailabilityZone'+    -> Int -- ^ 'cdSizeInGb'+    -> CreateDisk+createDisk pDiskName_ pAvailabilityZone_ pSizeInGb_ =+  CreateDisk'+    { _cdDiskName = pDiskName_+    , _cdAvailabilityZone = pAvailabilityZone_+    , _cdSizeInGb = pSizeInGb_+    }+++-- | The unique Lightsail disk name (e.g., @my-disk@ ).+cdDiskName :: Lens' CreateDisk Text+cdDiskName = lens _cdDiskName (\ s a -> s{_cdDiskName = a})++-- | The Availability Zone where you want to create the disk (e.g., @us-east-2a@ ). Choose the same Availability Zone as the Lightsail instance where you want to create the disk. Use the GetRegions operation to list the Availability Zones where Lightsail is currently available.+cdAvailabilityZone :: Lens' CreateDisk Text+cdAvailabilityZone = lens _cdAvailabilityZone (\ s a -> s{_cdAvailabilityZone = a})++-- | The size of the disk in GB (e.g., @32@ ).+cdSizeInGb :: Lens' CreateDisk Int+cdSizeInGb = lens _cdSizeInGb (\ s a -> s{_cdSizeInGb = a})++instance AWSRequest CreateDisk where+        type Rs CreateDisk = CreateDiskResponse+        request = postJSON lightsail+        response+          = receiveJSON+              (\ s h x ->+                 CreateDiskResponse' <$>+                   (x .?> "operations" .!@ mempty) <*>+                     (pure (fromEnum s)))++instance Hashable CreateDisk where++instance NFData CreateDisk where++instance ToHeaders CreateDisk where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("Lightsail_20161128.CreateDisk" :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON CreateDisk where+        toJSON CreateDisk'{..}+          = object+              (catMaybes+                 [Just ("diskName" .= _cdDiskName),+                  Just ("availabilityZone" .= _cdAvailabilityZone),+                  Just ("sizeInGb" .= _cdSizeInGb)])++instance ToPath CreateDisk where+        toPath = const "/"++instance ToQuery CreateDisk where+        toQuery = const mempty++-- | /See:/ 'createDiskResponse' smart constructor.+data CreateDiskResponse = CreateDiskResponse'+  { _crsOperations     :: !(Maybe [Operation])+  , _crsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'CreateDiskResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'crsOperations' - An object describing the API operations.+--+-- * 'crsResponseStatus' - -- | The response status code.+createDiskResponse+    :: Int -- ^ 'crsResponseStatus'+    -> CreateDiskResponse+createDiskResponse pResponseStatus_ =+  CreateDiskResponse'+    {_crsOperations = Nothing, _crsResponseStatus = pResponseStatus_}+++-- | An object describing the API operations.+crsOperations :: Lens' CreateDiskResponse [Operation]+crsOperations = lens _crsOperations (\ s a -> s{_crsOperations = a}) . _Default . _Coerce++-- | -- | The response status code.+crsResponseStatus :: Lens' CreateDiskResponse Int+crsResponseStatus = lens _crsResponseStatus (\ s a -> s{_crsResponseStatus = a})++instance NFData CreateDiskResponse where

@@ -0,0 +1,171 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.Lightsail.CreateDiskFromSnapshot+-- 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+-- Portability : non-portable (GHC extensions)+--+-- Creates a block storage disk from a disk snapshot that can be attached to a Lightsail instance in the same Availability Zone (e.g., @us-east-2a@ ). The disk is created in the regional endpoint that you send the HTTP request to. For more information, see <https://lightsail.aws.amazon.com/ls/docs/overview/article/understanding-regions-and-availability-zones-in-amazon-lightsail Regions and Availability Zones in Lightsail> .+--+--+module Network.AWS.Lightsail.CreateDiskFromSnapshot+    (+    -- * Creating a Request+      createDiskFromSnapshot+    , CreateDiskFromSnapshot+    -- * Request Lenses+    , cdfsDiskName+    , cdfsDiskSnapshotName+    , cdfsAvailabilityZone+    , cdfsSizeInGb++    -- * Destructuring the Response+    , createDiskFromSnapshotResponse+    , CreateDiskFromSnapshotResponse+    -- * Response Lenses+    , cdfsrsOperations+    , cdfsrsResponseStatus+    ) where++import Network.AWS.Lens+import Network.AWS.Lightsail.Types+import Network.AWS.Lightsail.Types.Product+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response++-- | /See:/ 'createDiskFromSnapshot' smart constructor.+data CreateDiskFromSnapshot = CreateDiskFromSnapshot'+  { _cdfsDiskName         :: !Text+  , _cdfsDiskSnapshotName :: !Text+  , _cdfsAvailabilityZone :: !Text+  , _cdfsSizeInGb         :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'CreateDiskFromSnapshot' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cdfsDiskName' - The unique Lightsail disk name (e.g., @my-disk@ ).+--+-- * 'cdfsDiskSnapshotName' - The name of the disk snapshot (e.g., @my-snapshot@ ) from which to create the new storage disk.+--+-- * 'cdfsAvailabilityZone' - The Availability Zone where you want to create the disk (e.g., @us-east-2a@ ). Choose the same Availability Zone as the Lightsail instance where you want to create the disk. Use the GetRegions operation to list the Availability Zones where Lightsail is currently available.+--+-- * 'cdfsSizeInGb' - The size of the disk in GB (e.g., @32@ ).+createDiskFromSnapshot+    :: Text -- ^ 'cdfsDiskName'+    -> Text -- ^ 'cdfsDiskSnapshotName'+    -> Text -- ^ 'cdfsAvailabilityZone'+    -> Int -- ^ 'cdfsSizeInGb'+    -> CreateDiskFromSnapshot+createDiskFromSnapshot pDiskName_ pDiskSnapshotName_ pAvailabilityZone_ pSizeInGb_ =+  CreateDiskFromSnapshot'+    { _cdfsDiskName = pDiskName_+    , _cdfsDiskSnapshotName = pDiskSnapshotName_+    , _cdfsAvailabilityZone = pAvailabilityZone_+    , _cdfsSizeInGb = pSizeInGb_+    }+++-- | The unique Lightsail disk name (e.g., @my-disk@ ).+cdfsDiskName :: Lens' CreateDiskFromSnapshot Text+cdfsDiskName = lens _cdfsDiskName (\ s a -> s{_cdfsDiskName = a})++-- | The name of the disk snapshot (e.g., @my-snapshot@ ) from which to create the new storage disk.+cdfsDiskSnapshotName :: Lens' CreateDiskFromSnapshot Text+cdfsDiskSnapshotName = lens _cdfsDiskSnapshotName (\ s a -> s{_cdfsDiskSnapshotName = a})++-- | The Availability Zone where you want to create the disk (e.g., @us-east-2a@ ). Choose the same Availability Zone as the Lightsail instance where you want to create the disk. Use the GetRegions operation to list the Availability Zones where Lightsail is currently available.+cdfsAvailabilityZone :: Lens' CreateDiskFromSnapshot Text+cdfsAvailabilityZone = lens _cdfsAvailabilityZone (\ s a -> s{_cdfsAvailabilityZone = a})++-- | The size of the disk in GB (e.g., @32@ ).+cdfsSizeInGb :: Lens' CreateDiskFromSnapshot Int+cdfsSizeInGb = lens _cdfsSizeInGb (\ s a -> s{_cdfsSizeInGb = a})++instance AWSRequest CreateDiskFromSnapshot where+        type Rs CreateDiskFromSnapshot =+             CreateDiskFromSnapshotResponse+        request = postJSON lightsail+        response+          = receiveJSON+              (\ s h x ->+                 CreateDiskFromSnapshotResponse' <$>+                   (x .?> "operations" .!@ mempty) <*>+                     (pure (fromEnum s)))++instance Hashable CreateDiskFromSnapshot where++instance NFData CreateDiskFromSnapshot where++instance ToHeaders CreateDiskFromSnapshot where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("Lightsail_20161128.CreateDiskFromSnapshot" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON CreateDiskFromSnapshot where+        toJSON CreateDiskFromSnapshot'{..}+          = object+              (catMaybes+                 [Just ("diskName" .= _cdfsDiskName),+                  Just ("diskSnapshotName" .= _cdfsDiskSnapshotName),+                  Just ("availabilityZone" .= _cdfsAvailabilityZone),+                  Just ("sizeInGb" .= _cdfsSizeInGb)])++instance ToPath CreateDiskFromSnapshot where+        toPath = const "/"++instance ToQuery CreateDiskFromSnapshot where+        toQuery = const mempty++-- | /See:/ 'createDiskFromSnapshotResponse' smart constructor.+data CreateDiskFromSnapshotResponse = CreateDiskFromSnapshotResponse'+  { _cdfsrsOperations     :: !(Maybe [Operation])+  , _cdfsrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'CreateDiskFromSnapshotResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cdfsrsOperations' - An object describing the API operations.+--+-- * 'cdfsrsResponseStatus' - -- | The response status code.+createDiskFromSnapshotResponse+    :: Int -- ^ 'cdfsrsResponseStatus'+    -> CreateDiskFromSnapshotResponse+createDiskFromSnapshotResponse pResponseStatus_ =+  CreateDiskFromSnapshotResponse'+    {_cdfsrsOperations = Nothing, _cdfsrsResponseStatus = pResponseStatus_}+++-- | An object describing the API operations.+cdfsrsOperations :: Lens' CreateDiskFromSnapshotResponse [Operation]+cdfsrsOperations = lens _cdfsrsOperations (\ s a -> s{_cdfsrsOperations = a}) . _Default . _Coerce++-- | -- | The response status code.+cdfsrsResponseStatus :: Lens' CreateDiskFromSnapshotResponse Int+cdfsrsResponseStatus = lens _cdfsrsResponseStatus (\ s a -> s{_cdfsrsResponseStatus = a})++instance NFData CreateDiskFromSnapshotResponse where

@@ -0,0 +1,149 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.Lightsail.CreateDiskSnapshot+-- 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+-- Portability : non-portable (GHC extensions)+--+-- Creates a snapshot of a block storage disk. You can use snapshots for backups, to make copies of disks, and to save data before shutting down a Lightsail instance.+--+--+-- You can take a snapshot of an attached disk that is in use; however, snapshots only capture data that has been written to your disk at the time the snapshot command is issued. This may exclude any data that has been cached by any applications or the operating system. If you can pause any file systems on the disk long enough to take a snapshot, your snapshot should be complete. Nevertheless, if you cannot pause all file writes to the disk, you should unmount the disk from within the Lightsail instance, issue the create disk snapshot command, and then remount the disk to ensure a consistent and complete snapshot. You may remount and use your disk while the snapshot status is pending.+--+module Network.AWS.Lightsail.CreateDiskSnapshot+    (+    -- * Creating a Request+      createDiskSnapshot+    , CreateDiskSnapshot+    -- * Request Lenses+    , cdsDiskName+    , cdsDiskSnapshotName++    -- * Destructuring the Response+    , createDiskSnapshotResponse+    , CreateDiskSnapshotResponse+    -- * Response Lenses+    , cdsrsOperations+    , cdsrsResponseStatus+    ) where++import Network.AWS.Lens+import Network.AWS.Lightsail.Types+import Network.AWS.Lightsail.Types.Product+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response++-- | /See:/ 'createDiskSnapshot' smart constructor.+data CreateDiskSnapshot = CreateDiskSnapshot'+  { _cdsDiskName         :: !Text+  , _cdsDiskSnapshotName :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'CreateDiskSnapshot' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cdsDiskName' - The unique name of the source disk (e.g., @my-source-disk@ ).+--+-- * 'cdsDiskSnapshotName' - The name of the destination disk snapshot (e.g., @my-disk-snapshot@ ) based on the source disk.+createDiskSnapshot+    :: Text -- ^ 'cdsDiskName'+    -> Text -- ^ 'cdsDiskSnapshotName'+    -> CreateDiskSnapshot+createDiskSnapshot pDiskName_ pDiskSnapshotName_ =+  CreateDiskSnapshot'+    {_cdsDiskName = pDiskName_, _cdsDiskSnapshotName = pDiskSnapshotName_}+++-- | The unique name of the source disk (e.g., @my-source-disk@ ).+cdsDiskName :: Lens' CreateDiskSnapshot Text+cdsDiskName = lens _cdsDiskName (\ s a -> s{_cdsDiskName = a})++-- | The name of the destination disk snapshot (e.g., @my-disk-snapshot@ ) based on the source disk.+cdsDiskSnapshotName :: Lens' CreateDiskSnapshot Text+cdsDiskSnapshotName = lens _cdsDiskSnapshotName (\ s a -> s{_cdsDiskSnapshotName = a})++instance AWSRequest CreateDiskSnapshot where+        type Rs CreateDiskSnapshot =+             CreateDiskSnapshotResponse+        request = postJSON lightsail+        response+          = receiveJSON+              (\ s h x ->+                 CreateDiskSnapshotResponse' <$>+                   (x .?> "operations" .!@ mempty) <*>+                     (pure (fromEnum s)))++instance Hashable CreateDiskSnapshot where++instance NFData CreateDiskSnapshot where++instance ToHeaders CreateDiskSnapshot where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("Lightsail_20161128.CreateDiskSnapshot" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON CreateDiskSnapshot where+        toJSON CreateDiskSnapshot'{..}+          = object+              (catMaybes+                 [Just ("diskName" .= _cdsDiskName),+                  Just ("diskSnapshotName" .= _cdsDiskSnapshotName)])++instance ToPath CreateDiskSnapshot where+        toPath = const "/"++instance ToQuery CreateDiskSnapshot where+        toQuery = const mempty++-- | /See:/ 'createDiskSnapshotResponse' smart constructor.+data CreateDiskSnapshotResponse = CreateDiskSnapshotResponse'+  { _cdsrsOperations     :: !(Maybe [Operation])+  , _cdsrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'CreateDiskSnapshotResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cdsrsOperations' - An object describing the API operations.+--+-- * 'cdsrsResponseStatus' - -- | The response status code.+createDiskSnapshotResponse+    :: Int -- ^ 'cdsrsResponseStatus'+    -> CreateDiskSnapshotResponse+createDiskSnapshotResponse pResponseStatus_ =+  CreateDiskSnapshotResponse'+    {_cdsrsOperations = Nothing, _cdsrsResponseStatus = pResponseStatus_}+++-- | An object describing the API operations.+cdsrsOperations :: Lens' CreateDiskSnapshotResponse [Operation]+cdsrsOperations = lens _cdsrsOperations (\ s a -> s{_cdsrsOperations = a}) . _Default . _Coerce++-- | -- | The response status code.+cdsrsResponseStatus :: Lens' CreateDiskSnapshotResponse Int+cdsrsResponseStatus = lens _cdsrsResponseStatus (\ s a -> s{_cdsrsResponseStatus = a})++instance NFData CreateDiskSnapshotResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Lightsail.CreateDomain--- 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@@ -63,7 +63,7 @@  -- | The domain name to manage (e.g., @example.com@ ). cdDomainName :: Lens' CreateDomain Text-cdDomainName = lens _cdDomainName (\ s a -> s{_cdDomainName = a});+cdDomainName = lens _cdDomainName (\ s a -> s{_cdDomainName = a})  instance AWSRequest CreateDomain where         type Rs CreateDomain = CreateDomainResponse@@ -117,15 +117,15 @@     -> CreateDomainResponse createDomainResponse pResponseStatus_ =   CreateDomainResponse'-  {_cdrsOperation = Nothing, _cdrsResponseStatus = pResponseStatus_}+    {_cdrsOperation = Nothing, _cdrsResponseStatus = pResponseStatus_}   -- | An array of key-value pairs containing information about the domain resource you created. cdrsOperation :: Lens' CreateDomainResponse (Maybe Operation)-cdrsOperation = lens _cdrsOperation (\ s a -> s{_cdrsOperation = a});+cdrsOperation = lens _cdrsOperation (\ s a -> s{_cdrsOperation = a})  -- | -- | The response status code. cdrsResponseStatus :: Lens' CreateDomainResponse Int-cdrsResponseStatus = lens _cdrsResponseStatus (\ s a -> s{_cdrsResponseStatus = a});+cdrsResponseStatus = lens _cdrsResponseStatus (\ s a -> s{_cdrsResponseStatus = a})  instance NFData CreateDomainResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Lightsail.CreateDomainEntry--- 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,16 +65,16 @@     -> CreateDomainEntry createDomainEntry pDomainName_ pDomainEntry_ =   CreateDomainEntry'-  {_cdeDomainName = pDomainName_, _cdeDomainEntry = pDomainEntry_}+    {_cdeDomainName = pDomainName_, _cdeDomainEntry = pDomainEntry_}   -- | The domain name (e.g., @example.com@ ) for which you want to create the domain entry. cdeDomainName :: Lens' CreateDomainEntry Text-cdeDomainName = lens _cdeDomainName (\ s a -> s{_cdeDomainName = a});+cdeDomainName = lens _cdeDomainName (\ s a -> s{_cdeDomainName = a})  -- | An array of key-value pairs containing information about the domain entry request. cdeDomainEntry :: Lens' CreateDomainEntry DomainEntry-cdeDomainEntry = lens _cdeDomainEntry (\ s a -> s{_cdeDomainEntry = a});+cdeDomainEntry = lens _cdeDomainEntry (\ s a -> s{_cdeDomainEntry = a})  instance AWSRequest CreateDomainEntry where         type Rs CreateDomainEntry = CreateDomainEntryResponse@@ -131,15 +131,15 @@     -> CreateDomainEntryResponse createDomainEntryResponse pResponseStatus_ =   CreateDomainEntryResponse'-  {_cdersOperation = Nothing, _cdersResponseStatus = pResponseStatus_}+    {_cdersOperation = Nothing, _cdersResponseStatus = pResponseStatus_}   -- | An array of key-value pairs containing information about the operation. cdersOperation :: Lens' CreateDomainEntryResponse (Maybe Operation)-cdersOperation = lens _cdersOperation (\ s a -> s{_cdersOperation = a});+cdersOperation = lens _cdersOperation (\ s a -> s{_cdersOperation = a})  -- | -- | The response status code. cdersResponseStatus :: Lens' CreateDomainEntryResponse Int-cdersResponseStatus = lens _cdersResponseStatus (\ s a -> s{_cdersResponseStatus = a});+cdersResponseStatus = lens _cdersResponseStatus (\ s a -> s{_cdersResponseStatus = a})  instance NFData CreateDomainEntryResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Lightsail.CreateInstanceSnapshot--- 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,18 +65,18 @@     -> CreateInstanceSnapshot createInstanceSnapshot pInstanceSnapshotName_ pInstanceName_ =   CreateInstanceSnapshot'-  { _cisInstanceSnapshotName = pInstanceSnapshotName_-  , _cisInstanceName = pInstanceName_-  }+    { _cisInstanceSnapshotName = pInstanceSnapshotName_+    , _cisInstanceName = pInstanceName_+    }   -- | The name for your new snapshot. cisInstanceSnapshotName :: Lens' CreateInstanceSnapshot Text-cisInstanceSnapshotName = lens _cisInstanceSnapshotName (\ s a -> s{_cisInstanceSnapshotName = a});+cisInstanceSnapshotName = lens _cisInstanceSnapshotName (\ s a -> s{_cisInstanceSnapshotName = a})  -- | The Lightsail instance on which to base your snapshot. cisInstanceName :: Lens' CreateInstanceSnapshot Text-cisInstanceName = lens _cisInstanceName (\ s a -> s{_cisInstanceName = a});+cisInstanceName = lens _cisInstanceName (\ s a -> s{_cisInstanceName = a})  instance AWSRequest CreateInstanceSnapshot where         type Rs CreateInstanceSnapshot =@@ -136,15 +136,15 @@     -> CreateInstanceSnapshotResponse createInstanceSnapshotResponse pResponseStatus_ =   CreateInstanceSnapshotResponse'-  {_cisrsOperations = Nothing, _cisrsResponseStatus = pResponseStatus_}+    {_cisrsOperations = Nothing, _cisrsResponseStatus = pResponseStatus_}   -- | An array of key-value pairs containing information about the results of your create instances snapshot request. cisrsOperations :: Lens' CreateInstanceSnapshotResponse [Operation]-cisrsOperations = lens _cisrsOperations (\ s a -> s{_cisrsOperations = a}) . _Default . _Coerce;+cisrsOperations = lens _cisrsOperations (\ s a -> s{_cisrsOperations = a}) . _Default . _Coerce  -- | -- | The response status code. cisrsResponseStatus :: Lens' CreateInstanceSnapshotResponse Int-cisrsResponseStatus = lens _cisrsResponseStatus (\ s a -> s{_cisrsResponseStatus = a});+cisrsResponseStatus = lens _cisrsResponseStatus (\ s a -> s{_cisrsResponseStatus = a})  instance NFData CreateInstanceSnapshotResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Lightsail.CreateInstances--- 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,13 +68,13 @@ -- -- * 'ciCustomImageName' - (Deprecated) The name for your custom image. ----- * 'ciUserData' - A launch script you can create that configures a server with additional user data. For example, you might want to run @apt-get –y update@ .+-- * 'ciUserData' - A launch script you can create that configures a server with additional user data. For example, you might want to run @apt-get -y update@ . -- -- * 'ciKeyPairName' - The name of your key pair. -- -- * 'ciInstanceNames' - The names to use for your new Lightsail instances. Separate multiple values using quotation marks and commas, for example: @["MyFirstInstance","MySecondInstance"]@ ----- * 'ciAvailabilityZone' - The Availability Zone in which to create your instance. Use the following format: @us-east-1a@ (case sensitive). You can get a list of availability zones by using the <http://docs.aws.amazon.com/lightsail/2016-11-28/api-reference/API_GetRegions.html get regions> operation. Be sure to add the @include availability zones@ parameter to your request.+-- * 'ciAvailabilityZone' - The Availability Zone in which to create your instance. Use the following format: @us-east-2a@ (case sensitive). You can get a list of availability zones by using the <http://docs.aws.amazon.com/lightsail/2016-11-28/api-reference/API_GetRegions.html get regions> operation. Be sure to add the @include availability zones@ parameter to your request. -- -- * 'ciBlueprintId' - The ID for a virtual private server image (e.g., @app_wordpress_4_4@ or @app_lamp_7_0@ ). Use the get blueprints operation to return a list of available images (or /blueprints/ ). --@@ -86,43 +86,43 @@     -> CreateInstances createInstances pAvailabilityZone_ pBlueprintId_ pBundleId_ =   CreateInstances'-  { _ciCustomImageName = Nothing-  , _ciUserData = Nothing-  , _ciKeyPairName = Nothing-  , _ciInstanceNames = mempty-  , _ciAvailabilityZone = pAvailabilityZone_-  , _ciBlueprintId = pBlueprintId_-  , _ciBundleId = pBundleId_-  }+    { _ciCustomImageName = Nothing+    , _ciUserData = Nothing+    , _ciKeyPairName = Nothing+    , _ciInstanceNames = mempty+    , _ciAvailabilityZone = pAvailabilityZone_+    , _ciBlueprintId = pBlueprintId_+    , _ciBundleId = pBundleId_+    }   -- | (Deprecated) The name for your custom image. ciCustomImageName :: Lens' CreateInstances (Maybe Text)-ciCustomImageName = lens _ciCustomImageName (\ s a -> s{_ciCustomImageName = a});+ciCustomImageName = lens _ciCustomImageName (\ s a -> s{_ciCustomImageName = a}) --- | A launch script you can create that configures a server with additional user data. For example, you might want to run @apt-get –y update@ .+-- | A launch script you can create that configures a server with additional user data. For example, you might want to run @apt-get -y update@ . ciUserData :: Lens' CreateInstances (Maybe Text)-ciUserData = lens _ciUserData (\ s a -> s{_ciUserData = a});+ciUserData = lens _ciUserData (\ s a -> s{_ciUserData = a})  -- | The name of your key pair. ciKeyPairName :: Lens' CreateInstances (Maybe Text)-ciKeyPairName = lens _ciKeyPairName (\ s a -> s{_ciKeyPairName = a});+ciKeyPairName = lens _ciKeyPairName (\ s a -> s{_ciKeyPairName = a})  -- | The names to use for your new Lightsail instances. Separate multiple values using quotation marks and commas, for example: @["MyFirstInstance","MySecondInstance"]@ ciInstanceNames :: Lens' CreateInstances [Text]-ciInstanceNames = lens _ciInstanceNames (\ s a -> s{_ciInstanceNames = a}) . _Coerce;+ciInstanceNames = lens _ciInstanceNames (\ s a -> s{_ciInstanceNames = a}) . _Coerce --- | The Availability Zone in which to create your instance. Use the following format: @us-east-1a@ (case sensitive). You can get a list of availability zones by using the <http://docs.aws.amazon.com/lightsail/2016-11-28/api-reference/API_GetRegions.html get regions> operation. Be sure to add the @include availability zones@ parameter to your request.+-- | The Availability Zone in which to create your instance. Use the following format: @us-east-2a@ (case sensitive). You can get a list of availability zones by using the <http://docs.aws.amazon.com/lightsail/2016-11-28/api-reference/API_GetRegions.html get regions> operation. Be sure to add the @include availability zones@ parameter to your request. ciAvailabilityZone :: Lens' CreateInstances Text-ciAvailabilityZone = lens _ciAvailabilityZone (\ s a -> s{_ciAvailabilityZone = a});+ciAvailabilityZone = lens _ciAvailabilityZone (\ s a -> s{_ciAvailabilityZone = a})  -- | The ID for a virtual private server image (e.g., @app_wordpress_4_4@ or @app_lamp_7_0@ ). Use the get blueprints operation to return a list of available images (or /blueprints/ ). ciBlueprintId :: Lens' CreateInstances Text-ciBlueprintId = lens _ciBlueprintId (\ s a -> s{_ciBlueprintId = a});+ciBlueprintId = lens _ciBlueprintId (\ s a -> s{_ciBlueprintId = a})  -- | The bundle of specification information for your virtual private server (or /instance/ ), including the pricing plan (e.g., @micro_1_0@ ). ciBundleId :: Lens' CreateInstances Text-ciBundleId = lens _ciBundleId (\ s a -> s{_ciBundleId = a});+ciBundleId = lens _ciBundleId (\ s a -> s{_ciBundleId = a})  instance AWSRequest CreateInstances where         type Rs CreateInstances = CreateInstancesResponse@@ -184,15 +184,15 @@     -> CreateInstancesResponse createInstancesResponse pResponseStatus_ =   CreateInstancesResponse'-  {_cirsOperations = Nothing, _cirsResponseStatus = pResponseStatus_}+    {_cirsOperations = Nothing, _cirsResponseStatus = pResponseStatus_}   -- | An array of key-value pairs containing information about the results of your create instances request. cirsOperations :: Lens' CreateInstancesResponse [Operation]-cirsOperations = lens _cirsOperations (\ s a -> s{_cirsOperations = a}) . _Default . _Coerce;+cirsOperations = lens _cirsOperations (\ s a -> s{_cirsOperations = a}) . _Default . _Coerce  -- | -- | The response status code. cirsResponseStatus :: Lens' CreateInstancesResponse Int-cirsResponseStatus = lens _cirsResponseStatus (\ s a -> s{_cirsResponseStatus = a});+cirsResponseStatus = lens _cirsResponseStatus (\ s a -> s{_cirsResponseStatus = a})  instance NFData CreateInstancesResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Lightsail.CreateInstancesFromSnapshot--- 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@@ -29,6 +29,7 @@     -- * Request Lenses     , cifsUserData     , cifsKeyPairName+    , cifsAttachedDiskMapping     , cifsInstanceNames     , cifsAvailabilityZone     , cifsInstanceSnapshotName@@ -53,6 +54,7 @@ data CreateInstancesFromSnapshot = CreateInstancesFromSnapshot'   { _cifsUserData             :: !(Maybe Text)   , _cifsKeyPairName          :: !(Maybe Text)+  , _cifsAttachedDiskMapping  :: !(Maybe (Map Text [DiskMap]))   , _cifsInstanceNames        :: ![Text]   , _cifsAvailabilityZone     :: !Text   , _cifsInstanceSnapshotName :: !Text@@ -64,13 +66,15 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'cifsUserData' - You can create a launch script that configures a server with additional user data. For example, @apt-get –y update@ .+-- * 'cifsUserData' - You can create a launch script that configures a server with additional user data. For example, @apt-get -y update@ . -- -- * 'cifsKeyPairName' - The name for your key pair. --+-- * 'cifsAttachedDiskMapping' - An object containing information about one or more disk mappings.+-- -- * 'cifsInstanceNames' - The names for your new instances. ----- * 'cifsAvailabilityZone' - The Availability Zone where you want to create your instances. Use the following formatting: @us-east-1a@ (case sensitive). You can get a list of availability zones by using the <http://docs.aws.amazon.com/lightsail/2016-11-28/api-reference/API_GetRegions.html get regions> operation. Be sure to add the @include availability zones@ parameter to your request.+-- * 'cifsAvailabilityZone' - The Availability Zone where you want to create your instances. Use the following formatting: @us-east-2a@ (case sensitive). You can get a list of availability zones by using the <http://docs.aws.amazon.com/lightsail/2016-11-28/api-reference/API_GetRegions.html get regions> operation. Be sure to add the @include availability zones@ parameter to your request. -- -- * 'cifsInstanceSnapshotName' - The name of the instance snapshot on which you are basing your new instances. Use the get instance snapshots operation to return information about your existing snapshots. --@@ -82,38 +86,43 @@     -> CreateInstancesFromSnapshot createInstancesFromSnapshot pAvailabilityZone_ pInstanceSnapshotName_ pBundleId_ =   CreateInstancesFromSnapshot'-  { _cifsUserData = Nothing-  , _cifsKeyPairName = Nothing-  , _cifsInstanceNames = mempty-  , _cifsAvailabilityZone = pAvailabilityZone_-  , _cifsInstanceSnapshotName = pInstanceSnapshotName_-  , _cifsBundleId = pBundleId_-  }+    { _cifsUserData = Nothing+    , _cifsKeyPairName = Nothing+    , _cifsAttachedDiskMapping = Nothing+    , _cifsInstanceNames = mempty+    , _cifsAvailabilityZone = pAvailabilityZone_+    , _cifsInstanceSnapshotName = pInstanceSnapshotName_+    , _cifsBundleId = pBundleId_+    }  --- | You can create a launch script that configures a server with additional user data. For example, @apt-get –y update@ .+-- | You can create a launch script that configures a server with additional user data. For example, @apt-get -y update@ . cifsUserData :: Lens' CreateInstancesFromSnapshot (Maybe Text)-cifsUserData = lens _cifsUserData (\ s a -> s{_cifsUserData = a});+cifsUserData = lens _cifsUserData (\ s a -> s{_cifsUserData = a})  -- | The name for your key pair. cifsKeyPairName :: Lens' CreateInstancesFromSnapshot (Maybe Text)-cifsKeyPairName = lens _cifsKeyPairName (\ s a -> s{_cifsKeyPairName = a});+cifsKeyPairName = lens _cifsKeyPairName (\ s a -> s{_cifsKeyPairName = a}) +-- | An object containing information about one or more disk mappings.+cifsAttachedDiskMapping :: Lens' CreateInstancesFromSnapshot (HashMap Text [DiskMap])+cifsAttachedDiskMapping = lens _cifsAttachedDiskMapping (\ s a -> s{_cifsAttachedDiskMapping = a}) . _Default . _Map+ -- | The names for your new instances. cifsInstanceNames :: Lens' CreateInstancesFromSnapshot [Text]-cifsInstanceNames = lens _cifsInstanceNames (\ s a -> s{_cifsInstanceNames = a}) . _Coerce;+cifsInstanceNames = lens _cifsInstanceNames (\ s a -> s{_cifsInstanceNames = a}) . _Coerce --- | The Availability Zone where you want to create your instances. Use the following formatting: @us-east-1a@ (case sensitive). You can get a list of availability zones by using the <http://docs.aws.amazon.com/lightsail/2016-11-28/api-reference/API_GetRegions.html get regions> operation. Be sure to add the @include availability zones@ parameter to your request.+-- | The Availability Zone where you want to create your instances. Use the following formatting: @us-east-2a@ (case sensitive). You can get a list of availability zones by using the <http://docs.aws.amazon.com/lightsail/2016-11-28/api-reference/API_GetRegions.html get regions> operation. Be sure to add the @include availability zones@ parameter to your request. cifsAvailabilityZone :: Lens' CreateInstancesFromSnapshot Text-cifsAvailabilityZone = lens _cifsAvailabilityZone (\ s a -> s{_cifsAvailabilityZone = a});+cifsAvailabilityZone = lens _cifsAvailabilityZone (\ s a -> s{_cifsAvailabilityZone = a})  -- | The name of the instance snapshot on which you are basing your new instances. Use the get instance snapshots operation to return information about your existing snapshots. cifsInstanceSnapshotName :: Lens' CreateInstancesFromSnapshot Text-cifsInstanceSnapshotName = lens _cifsInstanceSnapshotName (\ s a -> s{_cifsInstanceSnapshotName = a});+cifsInstanceSnapshotName = lens _cifsInstanceSnapshotName (\ s a -> s{_cifsInstanceSnapshotName = a})  -- | The bundle of specification information for your virtual private server (or /instance/ ), including the pricing plan (e.g., @micro_1_0@ ). cifsBundleId :: Lens' CreateInstancesFromSnapshot Text-cifsBundleId = lens _cifsBundleId (\ s a -> s{_cifsBundleId = a});+cifsBundleId = lens _cifsBundleId (\ s a -> s{_cifsBundleId = a})  instance AWSRequest CreateInstancesFromSnapshot where         type Rs CreateInstancesFromSnapshot =@@ -146,6 +155,8 @@               (catMaybes                  [("userData" .=) <$> _cifsUserData,                   ("keyPairName" .=) <$> _cifsKeyPairName,+                  ("attachedDiskMapping" .=) <$>+                    _cifsAttachedDiskMapping,                   Just ("instanceNames" .= _cifsInstanceNames),                   Just ("availabilityZone" .= _cifsAvailabilityZone),                   Just@@ -178,16 +189,16 @@     -> CreateInstancesFromSnapshotResponse createInstancesFromSnapshotResponse pResponseStatus_ =   CreateInstancesFromSnapshotResponse'-  {_cifsrsOperations = Nothing, _cifsrsResponseStatus = pResponseStatus_}+    {_cifsrsOperations = Nothing, _cifsrsResponseStatus = pResponseStatus_}   -- | An array of key-value pairs containing information about the results of your create instances from snapshot request. cifsrsOperations :: Lens' CreateInstancesFromSnapshotResponse [Operation]-cifsrsOperations = lens _cifsrsOperations (\ s a -> s{_cifsrsOperations = a}) . _Default . _Coerce;+cifsrsOperations = lens _cifsrsOperations (\ s a -> s{_cifsrsOperations = a}) . _Default . _Coerce  -- | -- | The response status code. cifsrsResponseStatus :: Lens' CreateInstancesFromSnapshotResponse Int-cifsrsResponseStatus = lens _cifsrsResponseStatus (\ s a -> s{_cifsrsResponseStatus = a});+cifsrsResponseStatus = lens _cifsrsResponseStatus (\ s a -> s{_cifsrsResponseStatus = a})  instance NFData CreateInstancesFromSnapshotResponse          where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Lightsail.CreateKeyPair--- 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@@ -66,7 +66,7 @@  -- | The name for your new key pair. ckpKeyPairName :: Lens' CreateKeyPair Text-ckpKeyPairName = lens _ckpKeyPairName (\ s a -> s{_ckpKeyPairName = a});+ckpKeyPairName = lens _ckpKeyPairName (\ s a -> s{_ckpKeyPairName = a})  instance AWSRequest CreateKeyPair where         type Rs CreateKeyPair = CreateKeyPairResponse@@ -132,32 +132,32 @@     -> CreateKeyPairResponse createKeyPairResponse pResponseStatus_ =   CreateKeyPairResponse'-  { _ckprsKeyPair = Nothing-  , _ckprsOperation = Nothing-  , _ckprsPublicKeyBase64 = Nothing-  , _ckprsPrivateKeyBase64 = Nothing-  , _ckprsResponseStatus = pResponseStatus_-  }+    { _ckprsKeyPair = Nothing+    , _ckprsOperation = Nothing+    , _ckprsPublicKeyBase64 = Nothing+    , _ckprsPrivateKeyBase64 = Nothing+    , _ckprsResponseStatus = pResponseStatus_+    }   -- | An array of key-value pairs containing information about the new key pair you just created. ckprsKeyPair :: Lens' CreateKeyPairResponse (Maybe KeyPair)-ckprsKeyPair = lens _ckprsKeyPair (\ s a -> s{_ckprsKeyPair = a});+ckprsKeyPair = lens _ckprsKeyPair (\ s a -> s{_ckprsKeyPair = a})  -- | An array of key-value pairs containing information about the results of your create key pair request. ckprsOperation :: Lens' CreateKeyPairResponse (Maybe Operation)-ckprsOperation = lens _ckprsOperation (\ s a -> s{_ckprsOperation = a});+ckprsOperation = lens _ckprsOperation (\ s a -> s{_ckprsOperation = a})  -- | A base64-encoded public key of the @ssh-rsa@ type. ckprsPublicKeyBase64 :: Lens' CreateKeyPairResponse (Maybe Text)-ckprsPublicKeyBase64 = lens _ckprsPublicKeyBase64 (\ s a -> s{_ckprsPublicKeyBase64 = a});+ckprsPublicKeyBase64 = lens _ckprsPublicKeyBase64 (\ s a -> s{_ckprsPublicKeyBase64 = a})  -- | A base64-encoded RSA private key. ckprsPrivateKeyBase64 :: Lens' CreateKeyPairResponse (Maybe Text)-ckprsPrivateKeyBase64 = lens _ckprsPrivateKeyBase64 (\ s a -> s{_ckprsPrivateKeyBase64 = a});+ckprsPrivateKeyBase64 = lens _ckprsPrivateKeyBase64 (\ s a -> s{_ckprsPrivateKeyBase64 = a})  -- | -- | The response status code. ckprsResponseStatus :: Lens' CreateKeyPairResponse Int-ckprsResponseStatus = lens _ckprsResponseStatus (\ s a -> s{_ckprsResponseStatus = a});+ckprsResponseStatus = lens _ckprsResponseStatus (\ s a -> s{_ckprsResponseStatus = a})  instance NFData CreateKeyPairResponse where

@@ -0,0 +1,193 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.Lightsail.CreateLoadBalancer+-- 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+-- Portability : non-portable (GHC extensions)+--+-- Creates a Lightsail load balancer. To learn more about deciding whether to load balance your application, see <https://lightsail.aws.amazon.com/ls/docs/how-to/article/configure-lightsail-instances-for-load-balancing Configure your Lightsail instances for load balancing> . You can create up to 5 load balancers per AWS Region in your account.+--+--+-- When you create a load balancer, you can specify a unique name and port settings. To change additional load balancer settings, use the @UpdateLoadBalancerAttribute@ operation.+--+module Network.AWS.Lightsail.CreateLoadBalancer+    (+    -- * Creating a Request+      createLoadBalancer+    , CreateLoadBalancer+    -- * Request Lenses+    , clbHealthCheckPath+    , clbCertificateName+    , clbCertificateDomainName+    , clbCertificateAlternativeNames+    , clbLoadBalancerName+    , clbInstancePort++    -- * Destructuring the Response+    , createLoadBalancerResponse+    , CreateLoadBalancerResponse+    -- * Response Lenses+    , clbrsOperations+    , clbrsResponseStatus+    ) where++import Network.AWS.Lens+import Network.AWS.Lightsail.Types+import Network.AWS.Lightsail.Types.Product+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response++-- | /See:/ 'createLoadBalancer' smart constructor.+data CreateLoadBalancer = CreateLoadBalancer'+  { _clbHealthCheckPath             :: !(Maybe Text)+  , _clbCertificateName             :: !(Maybe Text)+  , _clbCertificateDomainName       :: !(Maybe Text)+  , _clbCertificateAlternativeNames :: !(Maybe [Text])+  , _clbLoadBalancerName            :: !Text+  , _clbInstancePort                :: !Nat+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'CreateLoadBalancer' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'clbHealthCheckPath' - The path you provided to perform the load balancer health check. If you didn't specify a health check path, Lightsail uses the root path of your website (e.g., @"/"@ ). You may want to specify a custom health check path other than the root of your application if your home page loads slowly or has a lot of media or scripting on it.+--+-- * 'clbCertificateName' - The name of the SSL/TLS certificate. If you specify @certificateName@ , then @certificateDomainName@ is required (and vice-versa).+--+-- * 'clbCertificateDomainName' - The domain name with which your certificate is associated (e.g., @example.com@ ). If you specify @certificateDomainName@ , then @certificateName@ is required (and vice-versa).+--+-- * 'clbCertificateAlternativeNames' - The optional alternative domains and subdomains to use with your SSL/TLS certificate (e.g., @www.example.com@ , @example.com@ , @m.example.com@ , @blog.example.com@ ).+--+-- * 'clbLoadBalancerName' - The name of your load balancer.+--+-- * 'clbInstancePort' - The instance port where you're creating your load balancer.+createLoadBalancer+    :: Text -- ^ 'clbLoadBalancerName'+    -> Natural -- ^ 'clbInstancePort'+    -> CreateLoadBalancer+createLoadBalancer pLoadBalancerName_ pInstancePort_ =+  CreateLoadBalancer'+    { _clbHealthCheckPath = Nothing+    , _clbCertificateName = Nothing+    , _clbCertificateDomainName = Nothing+    , _clbCertificateAlternativeNames = Nothing+    , _clbLoadBalancerName = pLoadBalancerName_+    , _clbInstancePort = _Nat # pInstancePort_+    }+++-- | The path you provided to perform the load balancer health check. If you didn't specify a health check path, Lightsail uses the root path of your website (e.g., @"/"@ ). You may want to specify a custom health check path other than the root of your application if your home page loads slowly or has a lot of media or scripting on it.+clbHealthCheckPath :: Lens' CreateLoadBalancer (Maybe Text)+clbHealthCheckPath = lens _clbHealthCheckPath (\ s a -> s{_clbHealthCheckPath = a})++-- | The name of the SSL/TLS certificate. If you specify @certificateName@ , then @certificateDomainName@ is required (and vice-versa).+clbCertificateName :: Lens' CreateLoadBalancer (Maybe Text)+clbCertificateName = lens _clbCertificateName (\ s a -> s{_clbCertificateName = a})++-- | The domain name with which your certificate is associated (e.g., @example.com@ ). If you specify @certificateDomainName@ , then @certificateName@ is required (and vice-versa).+clbCertificateDomainName :: Lens' CreateLoadBalancer (Maybe Text)+clbCertificateDomainName = lens _clbCertificateDomainName (\ s a -> s{_clbCertificateDomainName = a})++-- | The optional alternative domains and subdomains to use with your SSL/TLS certificate (e.g., @www.example.com@ , @example.com@ , @m.example.com@ , @blog.example.com@ ).+clbCertificateAlternativeNames :: Lens' CreateLoadBalancer [Text]+clbCertificateAlternativeNames = lens _clbCertificateAlternativeNames (\ s a -> s{_clbCertificateAlternativeNames = a}) . _Default . _Coerce++-- | The name of your load balancer.+clbLoadBalancerName :: Lens' CreateLoadBalancer Text+clbLoadBalancerName = lens _clbLoadBalancerName (\ s a -> s{_clbLoadBalancerName = a})++-- | The instance port where you're creating your load balancer.+clbInstancePort :: Lens' CreateLoadBalancer Natural+clbInstancePort = lens _clbInstancePort (\ s a -> s{_clbInstancePort = a}) . _Nat++instance AWSRequest CreateLoadBalancer where+        type Rs CreateLoadBalancer =+             CreateLoadBalancerResponse+        request = postJSON lightsail+        response+          = receiveJSON+              (\ s h x ->+                 CreateLoadBalancerResponse' <$>+                   (x .?> "operations" .!@ mempty) <*>+                     (pure (fromEnum s)))++instance Hashable CreateLoadBalancer where++instance NFData CreateLoadBalancer where++instance ToHeaders CreateLoadBalancer where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("Lightsail_20161128.CreateLoadBalancer" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON CreateLoadBalancer where+        toJSON CreateLoadBalancer'{..}+          = object+              (catMaybes+                 [("healthCheckPath" .=) <$> _clbHealthCheckPath,+                  ("certificateName" .=) <$> _clbCertificateName,+                  ("certificateDomainName" .=) <$>+                    _clbCertificateDomainName,+                  ("certificateAlternativeNames" .=) <$>+                    _clbCertificateAlternativeNames,+                  Just ("loadBalancerName" .= _clbLoadBalancerName),+                  Just ("instancePort" .= _clbInstancePort)])++instance ToPath CreateLoadBalancer where+        toPath = const "/"++instance ToQuery CreateLoadBalancer where+        toQuery = const mempty++-- | /See:/ 'createLoadBalancerResponse' smart constructor.+data CreateLoadBalancerResponse = CreateLoadBalancerResponse'+  { _clbrsOperations     :: !(Maybe [Operation])+  , _clbrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'CreateLoadBalancerResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'clbrsOperations' - An object containing information about the API operations.+--+-- * 'clbrsResponseStatus' - -- | The response status code.+createLoadBalancerResponse+    :: Int -- ^ 'clbrsResponseStatus'+    -> CreateLoadBalancerResponse+createLoadBalancerResponse pResponseStatus_ =+  CreateLoadBalancerResponse'+    {_clbrsOperations = Nothing, _clbrsResponseStatus = pResponseStatus_}+++-- | An object containing information about the API operations.+clbrsOperations :: Lens' CreateLoadBalancerResponse [Operation]+clbrsOperations = lens _clbrsOperations (\ s a -> s{_clbrsOperations = a}) . _Default . _Coerce++-- | -- | The response status code.+clbrsResponseStatus :: Lens' CreateLoadBalancerResponse Int+clbrsResponseStatus = lens _clbrsResponseStatus (\ s a -> s{_clbrsResponseStatus = a})++instance NFData CreateLoadBalancerResponse where

@@ -0,0 +1,184 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.Lightsail.CreateLoadBalancerTLSCertificate+-- 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+-- Portability : non-portable (GHC extensions)+--+-- Creates a Lightsail load balancer TLS certificate.+--+--+-- TLS is just an updated, more secure version of Secure Socket Layer (SSL).+--+module Network.AWS.Lightsail.CreateLoadBalancerTLSCertificate+    (+    -- * Creating a Request+      createLoadBalancerTLSCertificate+    , CreateLoadBalancerTLSCertificate+    -- * Request Lenses+    , clbtcCertificateAlternativeNames+    , clbtcLoadBalancerName+    , clbtcCertificateName+    , clbtcCertificateDomainName++    -- * Destructuring the Response+    , createLoadBalancerTLSCertificateResponse+    , CreateLoadBalancerTLSCertificateResponse+    -- * Response Lenses+    , clbtcrsOperations+    , clbtcrsResponseStatus+    ) where++import Network.AWS.Lens+import Network.AWS.Lightsail.Types+import Network.AWS.Lightsail.Types.Product+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response++-- | /See:/ 'createLoadBalancerTLSCertificate' smart constructor.+data CreateLoadBalancerTLSCertificate = CreateLoadBalancerTLSCertificate'+  { _clbtcCertificateAlternativeNames :: !(Maybe [Text])+  , _clbtcLoadBalancerName            :: !Text+  , _clbtcCertificateName             :: !Text+  , _clbtcCertificateDomainName       :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'CreateLoadBalancerTLSCertificate' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'clbtcCertificateAlternativeNames' - An array of strings listing alternative domains and subdomains for your SSL/TLS certificate. Lightsail will de-dupe the names for you. You can have a maximum of 9 alternative names (in addition to the 1 primary domain). We do not support wildcards (e.g., @*.example.com@ ).+--+-- * 'clbtcLoadBalancerName' - The load balancer name where you want to create the SSL/TLS certificate.+--+-- * 'clbtcCertificateName' - The SSL/TLS certificate name. You can have up to 10 certificates in your account at one time. Each Lightsail load balancer can have up to 2 certificates associated with it at one time. There is also an overall limit to the number of certificates that can be issue in a 365-day period. For more information, see <http://docs.aws.amazon.com/acm/latest/userguide/acm-limits.html Limits> .+--+-- * 'clbtcCertificateDomainName' - The domain name (e.g., @example.com@ ) for your SSL/TLS certificate.+createLoadBalancerTLSCertificate+    :: Text -- ^ 'clbtcLoadBalancerName'+    -> Text -- ^ 'clbtcCertificateName'+    -> Text -- ^ 'clbtcCertificateDomainName'+    -> CreateLoadBalancerTLSCertificate+createLoadBalancerTLSCertificate pLoadBalancerName_ pCertificateName_ pCertificateDomainName_ =+  CreateLoadBalancerTLSCertificate'+    { _clbtcCertificateAlternativeNames = Nothing+    , _clbtcLoadBalancerName = pLoadBalancerName_+    , _clbtcCertificateName = pCertificateName_+    , _clbtcCertificateDomainName = pCertificateDomainName_+    }+++-- | An array of strings listing alternative domains and subdomains for your SSL/TLS certificate. Lightsail will de-dupe the names for you. You can have a maximum of 9 alternative names (in addition to the 1 primary domain). We do not support wildcards (e.g., @*.example.com@ ).+clbtcCertificateAlternativeNames :: Lens' CreateLoadBalancerTLSCertificate [Text]+clbtcCertificateAlternativeNames = lens _clbtcCertificateAlternativeNames (\ s a -> s{_clbtcCertificateAlternativeNames = a}) . _Default . _Coerce++-- | The load balancer name where you want to create the SSL/TLS certificate.+clbtcLoadBalancerName :: Lens' CreateLoadBalancerTLSCertificate Text+clbtcLoadBalancerName = lens _clbtcLoadBalancerName (\ s a -> s{_clbtcLoadBalancerName = a})++-- | The SSL/TLS certificate name. You can have up to 10 certificates in your account at one time. Each Lightsail load balancer can have up to 2 certificates associated with it at one time. There is also an overall limit to the number of certificates that can be issue in a 365-day period. For more information, see <http://docs.aws.amazon.com/acm/latest/userguide/acm-limits.html Limits> .+clbtcCertificateName :: Lens' CreateLoadBalancerTLSCertificate Text+clbtcCertificateName = lens _clbtcCertificateName (\ s a -> s{_clbtcCertificateName = a})++-- | The domain name (e.g., @example.com@ ) for your SSL/TLS certificate.+clbtcCertificateDomainName :: Lens' CreateLoadBalancerTLSCertificate Text+clbtcCertificateDomainName = lens _clbtcCertificateDomainName (\ s a -> s{_clbtcCertificateDomainName = a})++instance AWSRequest CreateLoadBalancerTLSCertificate+         where+        type Rs CreateLoadBalancerTLSCertificate =+             CreateLoadBalancerTLSCertificateResponse+        request = postJSON lightsail+        response+          = receiveJSON+              (\ s h x ->+                 CreateLoadBalancerTLSCertificateResponse' <$>+                   (x .?> "operations" .!@ mempty) <*>+                     (pure (fromEnum s)))++instance Hashable CreateLoadBalancerTLSCertificate+         where++instance NFData CreateLoadBalancerTLSCertificate+         where++instance ToHeaders CreateLoadBalancerTLSCertificate+         where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("Lightsail_20161128.CreateLoadBalancerTlsCertificate"+                       :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON CreateLoadBalancerTLSCertificate+         where+        toJSON CreateLoadBalancerTLSCertificate'{..}+          = object+              (catMaybes+                 [("certificateAlternativeNames" .=) <$>+                    _clbtcCertificateAlternativeNames,+                  Just ("loadBalancerName" .= _clbtcLoadBalancerName),+                  Just ("certificateName" .= _clbtcCertificateName),+                  Just+                    ("certificateDomainName" .=+                       _clbtcCertificateDomainName)])++instance ToPath CreateLoadBalancerTLSCertificate+         where+        toPath = const "/"++instance ToQuery CreateLoadBalancerTLSCertificate+         where+        toQuery = const mempty++-- | /See:/ 'createLoadBalancerTLSCertificateResponse' smart constructor.+data CreateLoadBalancerTLSCertificateResponse = CreateLoadBalancerTLSCertificateResponse'+  { _clbtcrsOperations     :: !(Maybe [Operation])+  , _clbtcrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'CreateLoadBalancerTLSCertificateResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'clbtcrsOperations' - An object containing information about the API operations.+--+-- * 'clbtcrsResponseStatus' - -- | The response status code.+createLoadBalancerTLSCertificateResponse+    :: Int -- ^ 'clbtcrsResponseStatus'+    -> CreateLoadBalancerTLSCertificateResponse+createLoadBalancerTLSCertificateResponse pResponseStatus_ =+  CreateLoadBalancerTLSCertificateResponse'+    {_clbtcrsOperations = Nothing, _clbtcrsResponseStatus = pResponseStatus_}+++-- | An object containing information about the API operations.+clbtcrsOperations :: Lens' CreateLoadBalancerTLSCertificateResponse [Operation]+clbtcrsOperations = lens _clbtcrsOperations (\ s a -> s{_clbtcrsOperations = a}) . _Default . _Coerce++-- | -- | The response status code.+clbtcrsResponseStatus :: Lens' CreateLoadBalancerTLSCertificateResponse Int+clbtcrsResponseStatus = lens _clbtcrsResponseStatus (\ s a -> s{_clbtcrsResponseStatus = a})++instance NFData+           CreateLoadBalancerTLSCertificateResponse+         where

@@ -0,0 +1,132 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.Lightsail.DeleteDisk+-- 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+-- Portability : non-portable (GHC extensions)+--+-- Deletes the specified block storage disk. The disk must be in the @available@ state (not attached to a Lightsail instance).+--+--+module Network.AWS.Lightsail.DeleteDisk+    (+    -- * Creating a Request+      deleteDisk+    , DeleteDisk+    -- * Request Lenses+    , dDiskName++    -- * Destructuring the Response+    , deleteDiskResponse+    , DeleteDiskResponse+    -- * Response Lenses+    , drsOperations+    , drsResponseStatus+    ) where++import Network.AWS.Lens+import Network.AWS.Lightsail.Types+import Network.AWS.Lightsail.Types.Product+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response++-- | /See:/ 'deleteDisk' smart constructor.+newtype DeleteDisk = DeleteDisk'+  { _dDiskName :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DeleteDisk' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dDiskName' - The unique name of the disk you want to delete (e.g., @my-disk@ ).+deleteDisk+    :: Text -- ^ 'dDiskName'+    -> DeleteDisk+deleteDisk pDiskName_ = DeleteDisk' {_dDiskName = pDiskName_}+++-- | The unique name of the disk you want to delete (e.g., @my-disk@ ).+dDiskName :: Lens' DeleteDisk Text+dDiskName = lens _dDiskName (\ s a -> s{_dDiskName = a})++instance AWSRequest DeleteDisk where+        type Rs DeleteDisk = DeleteDiskResponse+        request = postJSON lightsail+        response+          = receiveJSON+              (\ s h x ->+                 DeleteDiskResponse' <$>+                   (x .?> "operations" .!@ mempty) <*>+                     (pure (fromEnum s)))++instance Hashable DeleteDisk where++instance NFData DeleteDisk where++instance ToHeaders DeleteDisk where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("Lightsail_20161128.DeleteDisk" :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON DeleteDisk where+        toJSON DeleteDisk'{..}+          = object+              (catMaybes [Just ("diskName" .= _dDiskName)])++instance ToPath DeleteDisk where+        toPath = const "/"++instance ToQuery DeleteDisk where+        toQuery = const mempty++-- | /See:/ 'deleteDiskResponse' smart constructor.+data DeleteDiskResponse = DeleteDiskResponse'+  { _drsOperations     :: !(Maybe [Operation])+  , _drsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DeleteDiskResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'drsOperations' - An object describing the API operations.+--+-- * 'drsResponseStatus' - -- | The response status code.+deleteDiskResponse+    :: Int -- ^ 'drsResponseStatus'+    -> DeleteDiskResponse+deleteDiskResponse pResponseStatus_ =+  DeleteDiskResponse'+    {_drsOperations = Nothing, _drsResponseStatus = pResponseStatus_}+++-- | An object describing the API operations.+drsOperations :: Lens' DeleteDiskResponse [Operation]+drsOperations = lens _drsOperations (\ s a -> s{_drsOperations = a}) . _Default . _Coerce++-- | -- | The response status code.+drsResponseStatus :: Lens' DeleteDiskResponse Int+drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a})++instance NFData DeleteDiskResponse where

@@ -0,0 +1,138 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.Lightsail.DeleteDiskSnapshot+-- 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+-- Portability : non-portable (GHC extensions)+--+-- Deletes the specified disk snapshot.+--+--+-- When you make periodic snapshots of a disk, the snapshots are incremental, and only the blocks on the device that have changed since your last snapshot are saved in the new snapshot. When you delete a snapshot, only the data not needed for any other snapshot is removed. So regardless of which prior snapshots have been deleted, all active snapshots will have access to all the information needed to restore the disk.+--+module Network.AWS.Lightsail.DeleteDiskSnapshot+    (+    -- * Creating a Request+      deleteDiskSnapshot+    , DeleteDiskSnapshot+    -- * Request Lenses+    , ddsDiskSnapshotName++    -- * Destructuring the Response+    , deleteDiskSnapshotResponse+    , DeleteDiskSnapshotResponse+    -- * Response Lenses+    , ddsrsOperations+    , ddsrsResponseStatus+    ) where++import Network.AWS.Lens+import Network.AWS.Lightsail.Types+import Network.AWS.Lightsail.Types.Product+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response++-- | /See:/ 'deleteDiskSnapshot' smart constructor.+newtype DeleteDiskSnapshot = DeleteDiskSnapshot'+  { _ddsDiskSnapshotName :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DeleteDiskSnapshot' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ddsDiskSnapshotName' - The name of the disk snapshot you want to delete (e.g., @my-disk-snapshot@ ).+deleteDiskSnapshot+    :: Text -- ^ 'ddsDiskSnapshotName'+    -> DeleteDiskSnapshot+deleteDiskSnapshot pDiskSnapshotName_ =+  DeleteDiskSnapshot' {_ddsDiskSnapshotName = pDiskSnapshotName_}+++-- | The name of the disk snapshot you want to delete (e.g., @my-disk-snapshot@ ).+ddsDiskSnapshotName :: Lens' DeleteDiskSnapshot Text+ddsDiskSnapshotName = lens _ddsDiskSnapshotName (\ s a -> s{_ddsDiskSnapshotName = a})++instance AWSRequest DeleteDiskSnapshot where+        type Rs DeleteDiskSnapshot =+             DeleteDiskSnapshotResponse+        request = postJSON lightsail+        response+          = receiveJSON+              (\ s h x ->+                 DeleteDiskSnapshotResponse' <$>+                   (x .?> "operations" .!@ mempty) <*>+                     (pure (fromEnum s)))++instance Hashable DeleteDiskSnapshot where++instance NFData DeleteDiskSnapshot where++instance ToHeaders DeleteDiskSnapshot where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("Lightsail_20161128.DeleteDiskSnapshot" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON DeleteDiskSnapshot where+        toJSON DeleteDiskSnapshot'{..}+          = object+              (catMaybes+                 [Just ("diskSnapshotName" .= _ddsDiskSnapshotName)])++instance ToPath DeleteDiskSnapshot where+        toPath = const "/"++instance ToQuery DeleteDiskSnapshot where+        toQuery = const mempty++-- | /See:/ 'deleteDiskSnapshotResponse' smart constructor.+data DeleteDiskSnapshotResponse = DeleteDiskSnapshotResponse'+  { _ddsrsOperations     :: !(Maybe [Operation])+  , _ddsrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DeleteDiskSnapshotResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ddsrsOperations' - An object describing the API operations.+--+-- * 'ddsrsResponseStatus' - -- | The response status code.+deleteDiskSnapshotResponse+    :: Int -- ^ 'ddsrsResponseStatus'+    -> DeleteDiskSnapshotResponse+deleteDiskSnapshotResponse pResponseStatus_ =+  DeleteDiskSnapshotResponse'+    {_ddsrsOperations = Nothing, _ddsrsResponseStatus = pResponseStatus_}+++-- | An object describing the API operations.+ddsrsOperations :: Lens' DeleteDiskSnapshotResponse [Operation]+ddsrsOperations = lens _ddsrsOperations (\ s a -> s{_ddsrsOperations = a}) . _Default . _Coerce++-- | -- | The response status code.+ddsrsResponseStatus :: Lens' DeleteDiskSnapshotResponse Int+ddsrsResponseStatus = lens _ddsrsResponseStatus (\ s a -> s{_ddsrsResponseStatus = a})++instance NFData DeleteDiskSnapshotResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Lightsail.DeleteDomain--- 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@@ -33,8 +33,8 @@     , deleteDomainResponse     , DeleteDomainResponse     -- * Response Lenses-    , ddrsOperation-    , ddrsResponseStatus+    , delrsOperation+    , delrsResponseStatus     ) where  import Network.AWS.Lens@@ -63,7 +63,7 @@  -- | The specific domain name to delete. ddDomainName :: Lens' DeleteDomain Text-ddDomainName = lens _ddDomainName (\ s a -> s{_ddDomainName = a});+ddDomainName = lens _ddDomainName (\ s a -> s{_ddDomainName = a})  instance AWSRequest DeleteDomain where         type Rs DeleteDomain = DeleteDomainResponse@@ -100,8 +100,8 @@  -- | /See:/ 'deleteDomainResponse' smart constructor. data DeleteDomainResponse = DeleteDomainResponse'-  { _ddrsOperation      :: !(Maybe Operation)-  , _ddrsResponseStatus :: !Int+  { _delrsOperation      :: !(Maybe Operation)+  , _delrsResponseStatus :: !Int   } deriving (Eq, Read, Show, Data, Typeable, Generic)  @@ -109,23 +109,23 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'ddrsOperation' - An array of key-value pairs containing information about the results of your delete domain request.+-- * 'delrsOperation' - An array of key-value pairs containing information about the results of your delete domain request. ----- * 'ddrsResponseStatus' - -- | The response status code.+-- * 'delrsResponseStatus' - -- | The response status code. deleteDomainResponse-    :: Int -- ^ 'ddrsResponseStatus'+    :: Int -- ^ 'delrsResponseStatus'     -> DeleteDomainResponse deleteDomainResponse pResponseStatus_ =   DeleteDomainResponse'-  {_ddrsOperation = Nothing, _ddrsResponseStatus = pResponseStatus_}+    {_delrsOperation = Nothing, _delrsResponseStatus = pResponseStatus_}   -- | An array of key-value pairs containing information about the results of your delete domain request.-ddrsOperation :: Lens' DeleteDomainResponse (Maybe Operation)-ddrsOperation = lens _ddrsOperation (\ s a -> s{_ddrsOperation = a});+delrsOperation :: Lens' DeleteDomainResponse (Maybe Operation)+delrsOperation = lens _delrsOperation (\ s a -> s{_delrsOperation = a})  -- | -- | The response status code.-ddrsResponseStatus :: Lens' DeleteDomainResponse Int-ddrsResponseStatus = lens _ddrsResponseStatus (\ s a -> s{_ddrsResponseStatus = a});+delrsResponseStatus :: Lens' DeleteDomainResponse Int+delrsResponseStatus = lens _delrsResponseStatus (\ s a -> s{_delrsResponseStatus = a})  instance NFData DeleteDomainResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Lightsail.DeleteDomainEntry--- 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,16 +65,16 @@     -> DeleteDomainEntry deleteDomainEntry pDomainName_ pDomainEntry_ =   DeleteDomainEntry'-  {_ddeDomainName = pDomainName_, _ddeDomainEntry = pDomainEntry_}+    {_ddeDomainName = pDomainName_, _ddeDomainEntry = pDomainEntry_}   -- | The name of the domain entry to delete. ddeDomainName :: Lens' DeleteDomainEntry Text-ddeDomainName = lens _ddeDomainName (\ s a -> s{_ddeDomainName = a});+ddeDomainName = lens _ddeDomainName (\ s a -> s{_ddeDomainName = a})  -- | An array of key-value pairs containing information about your domain entries. ddeDomainEntry :: Lens' DeleteDomainEntry DomainEntry-ddeDomainEntry = lens _ddeDomainEntry (\ s a -> s{_ddeDomainEntry = a});+ddeDomainEntry = lens _ddeDomainEntry (\ s a -> s{_ddeDomainEntry = a})  instance AWSRequest DeleteDomainEntry where         type Rs DeleteDomainEntry = DeleteDomainEntryResponse@@ -131,15 +131,15 @@     -> DeleteDomainEntryResponse deleteDomainEntryResponse pResponseStatus_ =   DeleteDomainEntryResponse'-  {_ddersOperation = Nothing, _ddersResponseStatus = pResponseStatus_}+    {_ddersOperation = Nothing, _ddersResponseStatus = pResponseStatus_}   -- | An array of key-value pairs containing information about the results of your delete domain entry request. ddersOperation :: Lens' DeleteDomainEntryResponse (Maybe Operation)-ddersOperation = lens _ddersOperation (\ s a -> s{_ddersOperation = a});+ddersOperation = lens _ddersOperation (\ s a -> s{_ddersOperation = a})  -- | -- | The response status code. ddersResponseStatus :: Lens' DeleteDomainEntryResponse Int-ddersResponseStatus = lens _ddersResponseStatus (\ s a -> s{_ddersResponseStatus = a});+ddersResponseStatus = lens _ddersResponseStatus (\ s a -> s{_ddersResponseStatus = a})  instance NFData DeleteDomainEntryResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Lightsail.DeleteInstance--- 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@@ -64,7 +64,7 @@  -- | The name of the instance to delete. diInstanceName :: Lens' DeleteInstance Text-diInstanceName = lens _diInstanceName (\ s a -> s{_diInstanceName = a});+diInstanceName = lens _diInstanceName (\ s a -> s{_diInstanceName = a})  instance AWSRequest DeleteInstance where         type Rs DeleteInstance = DeleteInstanceResponse@@ -120,15 +120,15 @@     -> DeleteInstanceResponse deleteInstanceResponse pResponseStatus_ =   DeleteInstanceResponse'-  {_dirsOperations = Nothing, _dirsResponseStatus = pResponseStatus_}+    {_dirsOperations = Nothing, _dirsResponseStatus = pResponseStatus_}   -- | An array of key-value pairs containing information about the results of your delete instance request. dirsOperations :: Lens' DeleteInstanceResponse [Operation]-dirsOperations = lens _dirsOperations (\ s a -> s{_dirsOperations = a}) . _Default . _Coerce;+dirsOperations = lens _dirsOperations (\ s a -> s{_dirsOperations = a}) . _Default . _Coerce  -- | -- | The response status code. dirsResponseStatus :: Lens' DeleteInstanceResponse Int-dirsResponseStatus = lens _dirsResponseStatus (\ s a -> s{_dirsResponseStatus = a});+dirsResponseStatus = lens _dirsResponseStatus (\ s a -> s{_dirsResponseStatus = a})  instance NFData DeleteInstanceResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Lightsail.DeleteInstanceSnapshot--- 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@@ -64,7 +64,7 @@  -- | The name of the snapshot to delete. disInstanceSnapshotName :: Lens' DeleteInstanceSnapshot Text-disInstanceSnapshotName = lens _disInstanceSnapshotName (\ s a -> s{_disInstanceSnapshotName = a});+disInstanceSnapshotName = lens _disInstanceSnapshotName (\ s a -> s{_disInstanceSnapshotName = a})  instance AWSRequest DeleteInstanceSnapshot where         type Rs DeleteInstanceSnapshot =@@ -124,15 +124,15 @@     -> DeleteInstanceSnapshotResponse deleteInstanceSnapshotResponse pResponseStatus_ =   DeleteInstanceSnapshotResponse'-  {_disrsOperations = Nothing, _disrsResponseStatus = pResponseStatus_}+    {_disrsOperations = Nothing, _disrsResponseStatus = pResponseStatus_}   -- | An array of key-value pairs containing information about the results of your delete instance snapshot request. disrsOperations :: Lens' DeleteInstanceSnapshotResponse [Operation]-disrsOperations = lens _disrsOperations (\ s a -> s{_disrsOperations = a}) . _Default . _Coerce;+disrsOperations = lens _disrsOperations (\ s a -> s{_disrsOperations = a}) . _Default . _Coerce  -- | -- | The response status code. disrsResponseStatus :: Lens' DeleteInstanceSnapshotResponse Int-disrsResponseStatus = lens _disrsResponseStatus (\ s a -> s{_disrsResponseStatus = a});+disrsResponseStatus = lens _disrsResponseStatus (\ s a -> s{_disrsResponseStatus = a})  instance NFData DeleteInstanceSnapshotResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Lightsail.DeleteKeyPair--- 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@@ -63,7 +63,7 @@  -- | The name of the key pair to delete. dkpKeyPairName :: Lens' DeleteKeyPair Text-dkpKeyPairName = lens _dkpKeyPairName (\ s a -> s{_dkpKeyPairName = a});+dkpKeyPairName = lens _dkpKeyPairName (\ s a -> s{_dkpKeyPairName = a})  instance AWSRequest DeleteKeyPair where         type Rs DeleteKeyPair = DeleteKeyPairResponse@@ -117,15 +117,15 @@     -> DeleteKeyPairResponse deleteKeyPairResponse pResponseStatus_ =   DeleteKeyPairResponse'-  {_dkprsOperation = Nothing, _dkprsResponseStatus = pResponseStatus_}+    {_dkprsOperation = Nothing, _dkprsResponseStatus = pResponseStatus_}   -- | An array of key-value pairs containing information about the results of your delete key pair request. dkprsOperation :: Lens' DeleteKeyPairResponse (Maybe Operation)-dkprsOperation = lens _dkprsOperation (\ s a -> s{_dkprsOperation = a});+dkprsOperation = lens _dkprsOperation (\ s a -> s{_dkprsOperation = a})  -- | -- | The response status code. dkprsResponseStatus :: Lens' DeleteKeyPairResponse Int-dkprsResponseStatus = lens _dkprsResponseStatus (\ s a -> s{_dkprsResponseStatus = a});+dkprsResponseStatus = lens _dkprsResponseStatus (\ s a -> s{_dkprsResponseStatus = a})  instance NFData DeleteKeyPairResponse where

@@ -0,0 +1,136 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.Lightsail.DeleteLoadBalancer+-- 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+-- Portability : non-portable (GHC extensions)+--+-- Deletes a Lightsail load balancer and all its associated SSL/TLS certificates. Once the load balancer is deleted, you will need to create a new load balancer, create a new certificate, and verify domain ownership again.+--+--+module Network.AWS.Lightsail.DeleteLoadBalancer+    (+    -- * Creating a Request+      deleteLoadBalancer+    , DeleteLoadBalancer+    -- * Request Lenses+    , dlbLoadBalancerName++    -- * Destructuring the Response+    , deleteLoadBalancerResponse+    , DeleteLoadBalancerResponse+    -- * Response Lenses+    , dlbrsOperations+    , dlbrsResponseStatus+    ) where++import Network.AWS.Lens+import Network.AWS.Lightsail.Types+import Network.AWS.Lightsail.Types.Product+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response++-- | /See:/ 'deleteLoadBalancer' smart constructor.+newtype DeleteLoadBalancer = DeleteLoadBalancer'+  { _dlbLoadBalancerName :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DeleteLoadBalancer' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dlbLoadBalancerName' - The name of the load balancer you want to delete.+deleteLoadBalancer+    :: Text -- ^ 'dlbLoadBalancerName'+    -> DeleteLoadBalancer+deleteLoadBalancer pLoadBalancerName_ =+  DeleteLoadBalancer' {_dlbLoadBalancerName = pLoadBalancerName_}+++-- | The name of the load balancer you want to delete.+dlbLoadBalancerName :: Lens' DeleteLoadBalancer Text+dlbLoadBalancerName = lens _dlbLoadBalancerName (\ s a -> s{_dlbLoadBalancerName = a})++instance AWSRequest DeleteLoadBalancer where+        type Rs DeleteLoadBalancer =+             DeleteLoadBalancerResponse+        request = postJSON lightsail+        response+          = receiveJSON+              (\ s h x ->+                 DeleteLoadBalancerResponse' <$>+                   (x .?> "operations" .!@ mempty) <*>+                     (pure (fromEnum s)))++instance Hashable DeleteLoadBalancer where++instance NFData DeleteLoadBalancer where++instance ToHeaders DeleteLoadBalancer where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("Lightsail_20161128.DeleteLoadBalancer" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON DeleteLoadBalancer where+        toJSON DeleteLoadBalancer'{..}+          = object+              (catMaybes+                 [Just ("loadBalancerName" .= _dlbLoadBalancerName)])++instance ToPath DeleteLoadBalancer where+        toPath = const "/"++instance ToQuery DeleteLoadBalancer where+        toQuery = const mempty++-- | /See:/ 'deleteLoadBalancerResponse' smart constructor.+data DeleteLoadBalancerResponse = DeleteLoadBalancerResponse'+  { _dlbrsOperations     :: !(Maybe [Operation])+  , _dlbrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DeleteLoadBalancerResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dlbrsOperations' - An object describing the API operations.+--+-- * 'dlbrsResponseStatus' - -- | The response status code.+deleteLoadBalancerResponse+    :: Int -- ^ 'dlbrsResponseStatus'+    -> DeleteLoadBalancerResponse+deleteLoadBalancerResponse pResponseStatus_ =+  DeleteLoadBalancerResponse'+    {_dlbrsOperations = Nothing, _dlbrsResponseStatus = pResponseStatus_}+++-- | An object describing the API operations.+dlbrsOperations :: Lens' DeleteLoadBalancerResponse [Operation]+dlbrsOperations = lens _dlbrsOperations (\ s a -> s{_dlbrsOperations = a}) . _Default . _Coerce++-- | -- | The response status code.+dlbrsResponseStatus :: Lens' DeleteLoadBalancerResponse Int+dlbrsResponseStatus = lens _dlbrsResponseStatus (\ s a -> s{_dlbrsResponseStatus = a})++instance NFData DeleteLoadBalancerResponse where

@@ -0,0 +1,168 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.Lightsail.DeleteLoadBalancerTLSCertificate+-- 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+-- Portability : non-portable (GHC extensions)+--+-- Deletes an SSL/TLS certificate associated with a Lightsail load balancer.+--+--+module Network.AWS.Lightsail.DeleteLoadBalancerTLSCertificate+    (+    -- * Creating a Request+      deleteLoadBalancerTLSCertificate+    , DeleteLoadBalancerTLSCertificate+    -- * Request Lenses+    , dlbtcForce+    , dlbtcLoadBalancerName+    , dlbtcCertificateName++    -- * Destructuring the Response+    , deleteLoadBalancerTLSCertificateResponse+    , DeleteLoadBalancerTLSCertificateResponse+    -- * Response Lenses+    , dlbtcrsOperations+    , dlbtcrsResponseStatus+    ) where++import Network.AWS.Lens+import Network.AWS.Lightsail.Types+import Network.AWS.Lightsail.Types.Product+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response++-- | /See:/ 'deleteLoadBalancerTLSCertificate' smart constructor.+data DeleteLoadBalancerTLSCertificate = DeleteLoadBalancerTLSCertificate'+  { _dlbtcForce            :: !(Maybe Bool)+  , _dlbtcLoadBalancerName :: !Text+  , _dlbtcCertificateName  :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DeleteLoadBalancerTLSCertificate' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dlbtcForce' - When @true@ , forces the deletion of an SSL/TLS certificate. There can be two certificates associated with a Lightsail load balancer: the primary and the backup. The force parameter is required when the primary SSL/TLS certificate is in use by an instance attached to the load balancer.+--+-- * 'dlbtcLoadBalancerName' - The load balancer name.+--+-- * 'dlbtcCertificateName' - The SSL/TLS certificate name.+deleteLoadBalancerTLSCertificate+    :: Text -- ^ 'dlbtcLoadBalancerName'+    -> Text -- ^ 'dlbtcCertificateName'+    -> DeleteLoadBalancerTLSCertificate+deleteLoadBalancerTLSCertificate pLoadBalancerName_ pCertificateName_ =+  DeleteLoadBalancerTLSCertificate'+    { _dlbtcForce = Nothing+    , _dlbtcLoadBalancerName = pLoadBalancerName_+    , _dlbtcCertificateName = pCertificateName_+    }+++-- | When @true@ , forces the deletion of an SSL/TLS certificate. There can be two certificates associated with a Lightsail load balancer: the primary and the backup. The force parameter is required when the primary SSL/TLS certificate is in use by an instance attached to the load balancer.+dlbtcForce :: Lens' DeleteLoadBalancerTLSCertificate (Maybe Bool)+dlbtcForce = lens _dlbtcForce (\ s a -> s{_dlbtcForce = a})++-- | The load balancer name.+dlbtcLoadBalancerName :: Lens' DeleteLoadBalancerTLSCertificate Text+dlbtcLoadBalancerName = lens _dlbtcLoadBalancerName (\ s a -> s{_dlbtcLoadBalancerName = a})++-- | The SSL/TLS certificate name.+dlbtcCertificateName :: Lens' DeleteLoadBalancerTLSCertificate Text+dlbtcCertificateName = lens _dlbtcCertificateName (\ s a -> s{_dlbtcCertificateName = a})++instance AWSRequest DeleteLoadBalancerTLSCertificate+         where+        type Rs DeleteLoadBalancerTLSCertificate =+             DeleteLoadBalancerTLSCertificateResponse+        request = postJSON lightsail+        response+          = receiveJSON+              (\ s h x ->+                 DeleteLoadBalancerTLSCertificateResponse' <$>+                   (x .?> "operations" .!@ mempty) <*>+                     (pure (fromEnum s)))++instance Hashable DeleteLoadBalancerTLSCertificate+         where++instance NFData DeleteLoadBalancerTLSCertificate+         where++instance ToHeaders DeleteLoadBalancerTLSCertificate+         where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("Lightsail_20161128.DeleteLoadBalancerTlsCertificate"+                       :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON DeleteLoadBalancerTLSCertificate+         where+        toJSON DeleteLoadBalancerTLSCertificate'{..}+          = object+              (catMaybes+                 [("force" .=) <$> _dlbtcForce,+                  Just ("loadBalancerName" .= _dlbtcLoadBalancerName),+                  Just ("certificateName" .= _dlbtcCertificateName)])++instance ToPath DeleteLoadBalancerTLSCertificate+         where+        toPath = const "/"++instance ToQuery DeleteLoadBalancerTLSCertificate+         where+        toQuery = const mempty++-- | /See:/ 'deleteLoadBalancerTLSCertificateResponse' smart constructor.+data DeleteLoadBalancerTLSCertificateResponse = DeleteLoadBalancerTLSCertificateResponse'+  { _dlbtcrsOperations     :: !(Maybe [Operation])+  , _dlbtcrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DeleteLoadBalancerTLSCertificateResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dlbtcrsOperations' - An object describing the API operations.+--+-- * 'dlbtcrsResponseStatus' - -- | The response status code.+deleteLoadBalancerTLSCertificateResponse+    :: Int -- ^ 'dlbtcrsResponseStatus'+    -> DeleteLoadBalancerTLSCertificateResponse+deleteLoadBalancerTLSCertificateResponse pResponseStatus_ =+  DeleteLoadBalancerTLSCertificateResponse'+    {_dlbtcrsOperations = Nothing, _dlbtcrsResponseStatus = pResponseStatus_}+++-- | An object describing the API operations.+dlbtcrsOperations :: Lens' DeleteLoadBalancerTLSCertificateResponse [Operation]+dlbtcrsOperations = lens _dlbtcrsOperations (\ s a -> s{_dlbtcrsOperations = a}) . _Default . _Coerce++-- | -- | The response status code.+dlbtcrsResponseStatus :: Lens' DeleteLoadBalancerTLSCertificateResponse Int+dlbtcrsResponseStatus = lens _dlbtcrsResponseStatus (\ s a -> s{_dlbtcrsResponseStatus = a})++instance NFData+           DeleteLoadBalancerTLSCertificateResponse+         where

@@ -0,0 +1,132 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.Lightsail.DetachDisk+-- 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+-- Portability : non-portable (GHC extensions)+--+-- Detaches a stopped block storage disk from a Lightsail instance. Make sure to unmount any file systems on the device within your operating system before stopping the instance and detaching the disk.+--+--+module Network.AWS.Lightsail.DetachDisk+    (+    -- * Creating a Request+      detachDisk+    , DetachDisk+    -- * Request Lenses+    , ddDiskName++    -- * Destructuring the Response+    , detachDiskResponse+    , DetachDiskResponse+    -- * Response Lenses+    , ddrsOperations+    , ddrsResponseStatus+    ) where++import Network.AWS.Lens+import Network.AWS.Lightsail.Types+import Network.AWS.Lightsail.Types.Product+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response++-- | /See:/ 'detachDisk' smart constructor.+newtype DetachDisk = DetachDisk'+  { _ddDiskName :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DetachDisk' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ddDiskName' - The unique name of the disk you want to detach from your instance (e.g., @my-disk@ ).+detachDisk+    :: Text -- ^ 'ddDiskName'+    -> DetachDisk+detachDisk pDiskName_ = DetachDisk' {_ddDiskName = pDiskName_}+++-- | The unique name of the disk you want to detach from your instance (e.g., @my-disk@ ).+ddDiskName :: Lens' DetachDisk Text+ddDiskName = lens _ddDiskName (\ s a -> s{_ddDiskName = a})++instance AWSRequest DetachDisk where+        type Rs DetachDisk = DetachDiskResponse+        request = postJSON lightsail+        response+          = receiveJSON+              (\ s h x ->+                 DetachDiskResponse' <$>+                   (x .?> "operations" .!@ mempty) <*>+                     (pure (fromEnum s)))++instance Hashable DetachDisk where++instance NFData DetachDisk where++instance ToHeaders DetachDisk where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("Lightsail_20161128.DetachDisk" :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON DetachDisk where+        toJSON DetachDisk'{..}+          = object+              (catMaybes [Just ("diskName" .= _ddDiskName)])++instance ToPath DetachDisk where+        toPath = const "/"++instance ToQuery DetachDisk where+        toQuery = const mempty++-- | /See:/ 'detachDiskResponse' smart constructor.+data DetachDiskResponse = DetachDiskResponse'+  { _ddrsOperations     :: !(Maybe [Operation])+  , _ddrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DetachDiskResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ddrsOperations' - An object describing the API operations.+--+-- * 'ddrsResponseStatus' - -- | The response status code.+detachDiskResponse+    :: Int -- ^ 'ddrsResponseStatus'+    -> DetachDiskResponse+detachDiskResponse pResponseStatus_ =+  DetachDiskResponse'+    {_ddrsOperations = Nothing, _ddrsResponseStatus = pResponseStatus_}+++-- | An object describing the API operations.+ddrsOperations :: Lens' DetachDiskResponse [Operation]+ddrsOperations = lens _ddrsOperations (\ s a -> s{_ddrsOperations = a}) . _Default . _Coerce++-- | -- | The response status code.+ddrsResponseStatus :: Lens' DetachDiskResponse Int+ddrsResponseStatus = lens _ddrsResponseStatus (\ s a -> s{_ddrsResponseStatus = a})++instance NFData DetachDiskResponse where

@@ -0,0 +1,154 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.Lightsail.DetachInstancesFromLoadBalancer+-- 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+-- Portability : non-portable (GHC extensions)+--+-- Detaches the specified instances from a Lightsail load balancer.+--+--+-- This operation waits until the instances are no longer needed before they are detached from the load balancer.+--+module Network.AWS.Lightsail.DetachInstancesFromLoadBalancer+    (+    -- * Creating a Request+      detachInstancesFromLoadBalancer+    , DetachInstancesFromLoadBalancer+    -- * Request Lenses+    , diflbLoadBalancerName+    , diflbInstanceNames++    -- * Destructuring the Response+    , detachInstancesFromLoadBalancerResponse+    , DetachInstancesFromLoadBalancerResponse+    -- * Response Lenses+    , diflbrsOperations+    , diflbrsResponseStatus+    ) where++import Network.AWS.Lens+import Network.AWS.Lightsail.Types+import Network.AWS.Lightsail.Types.Product+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response++-- | /See:/ 'detachInstancesFromLoadBalancer' smart constructor.+data DetachInstancesFromLoadBalancer = DetachInstancesFromLoadBalancer'+  { _diflbLoadBalancerName :: !Text+  , _diflbInstanceNames    :: ![Text]+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DetachInstancesFromLoadBalancer' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'diflbLoadBalancerName' - The name of the Lightsail load balancer.+--+-- * 'diflbInstanceNames' - An array of strings containing the names of the instances you want to detach from the load balancer.+detachInstancesFromLoadBalancer+    :: Text -- ^ 'diflbLoadBalancerName'+    -> DetachInstancesFromLoadBalancer+detachInstancesFromLoadBalancer pLoadBalancerName_ =+  DetachInstancesFromLoadBalancer'+    {_diflbLoadBalancerName = pLoadBalancerName_, _diflbInstanceNames = mempty}+++-- | The name of the Lightsail load balancer.+diflbLoadBalancerName :: Lens' DetachInstancesFromLoadBalancer Text+diflbLoadBalancerName = lens _diflbLoadBalancerName (\ s a -> s{_diflbLoadBalancerName = a})++-- | An array of strings containing the names of the instances you want to detach from the load balancer.+diflbInstanceNames :: Lens' DetachInstancesFromLoadBalancer [Text]+diflbInstanceNames = lens _diflbInstanceNames (\ s a -> s{_diflbInstanceNames = a}) . _Coerce++instance AWSRequest DetachInstancesFromLoadBalancer+         where+        type Rs DetachInstancesFromLoadBalancer =+             DetachInstancesFromLoadBalancerResponse+        request = postJSON lightsail+        response+          = receiveJSON+              (\ s h x ->+                 DetachInstancesFromLoadBalancerResponse' <$>+                   (x .?> "operations" .!@ mempty) <*>+                     (pure (fromEnum s)))++instance Hashable DetachInstancesFromLoadBalancer+         where++instance NFData DetachInstancesFromLoadBalancer where++instance ToHeaders DetachInstancesFromLoadBalancer+         where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("Lightsail_20161128.DetachInstancesFromLoadBalancer"+                       :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON DetachInstancesFromLoadBalancer where+        toJSON DetachInstancesFromLoadBalancer'{..}+          = object+              (catMaybes+                 [Just ("loadBalancerName" .= _diflbLoadBalancerName),+                  Just ("instanceNames" .= _diflbInstanceNames)])++instance ToPath DetachInstancesFromLoadBalancer where+        toPath = const "/"++instance ToQuery DetachInstancesFromLoadBalancer+         where+        toQuery = const mempty++-- | /See:/ 'detachInstancesFromLoadBalancerResponse' smart constructor.+data DetachInstancesFromLoadBalancerResponse = DetachInstancesFromLoadBalancerResponse'+  { _diflbrsOperations     :: !(Maybe [Operation])+  , _diflbrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DetachInstancesFromLoadBalancerResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'diflbrsOperations' - An object describing the API operations.+--+-- * 'diflbrsResponseStatus' - -- | The response status code.+detachInstancesFromLoadBalancerResponse+    :: Int -- ^ 'diflbrsResponseStatus'+    -> DetachInstancesFromLoadBalancerResponse+detachInstancesFromLoadBalancerResponse pResponseStatus_ =+  DetachInstancesFromLoadBalancerResponse'+    {_diflbrsOperations = Nothing, _diflbrsResponseStatus = pResponseStatus_}+++-- | An object describing the API operations.+diflbrsOperations :: Lens' DetachInstancesFromLoadBalancerResponse [Operation]+diflbrsOperations = lens _diflbrsOperations (\ s a -> s{_diflbrsOperations = a}) . _Default . _Coerce++-- | -- | The response status code.+diflbrsResponseStatus :: Lens' DetachInstancesFromLoadBalancerResponse Int+diflbrsResponseStatus = lens _diflbrsResponseStatus (\ s a -> s{_diflbrsResponseStatus = a})++instance NFData+           DetachInstancesFromLoadBalancerResponse+         where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Lightsail.DetachStaticIP--- 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@@ -64,7 +64,7 @@  -- | The name of the static IP to detach from the instance. dsiStaticIPName :: Lens' DetachStaticIP Text-dsiStaticIPName = lens _dsiStaticIPName (\ s a -> s{_dsiStaticIPName = a});+dsiStaticIPName = lens _dsiStaticIPName (\ s a -> s{_dsiStaticIPName = a})  instance AWSRequest DetachStaticIP where         type Rs DetachStaticIP = DetachStaticIPResponse@@ -120,15 +120,15 @@     -> DetachStaticIPResponse detachStaticIPResponse pResponseStatus_ =   DetachStaticIPResponse'-  {_dsirsOperations = Nothing, _dsirsResponseStatus = pResponseStatus_}+    {_dsirsOperations = Nothing, _dsirsResponseStatus = pResponseStatus_}   -- | An array of key-value pairs containing information about the results of your detach static IP request. dsirsOperations :: Lens' DetachStaticIPResponse [Operation]-dsirsOperations = lens _dsirsOperations (\ s a -> s{_dsirsOperations = a}) . _Default . _Coerce;+dsirsOperations = lens _dsirsOperations (\ s a -> s{_dsirsOperations = a}) . _Default . _Coerce  -- | -- | The response status code. dsirsResponseStatus :: Lens' DetachStaticIPResponse Int-dsirsResponseStatus = lens _dsirsResponseStatus (\ s a -> s{_dsirsResponseStatus = a});+dsirsResponseStatus = lens _dsirsResponseStatus (\ s a -> s{_dsirsResponseStatus = a})  instance NFData DetachStaticIPResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Lightsail.DownloadDefaultKeyPair--- 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@@ -113,22 +113,22 @@     -> DownloadDefaultKeyPairResponse downloadDefaultKeyPairResponse pResponseStatus_ =   DownloadDefaultKeyPairResponse'-  { _ddkprsPublicKeyBase64 = Nothing-  , _ddkprsPrivateKeyBase64 = Nothing-  , _ddkprsResponseStatus = pResponseStatus_-  }+    { _ddkprsPublicKeyBase64 = Nothing+    , _ddkprsPrivateKeyBase64 = Nothing+    , _ddkprsResponseStatus = pResponseStatus_+    }   -- | A base64-encoded public key of the @ssh-rsa@ type. ddkprsPublicKeyBase64 :: Lens' DownloadDefaultKeyPairResponse (Maybe Text)-ddkprsPublicKeyBase64 = lens _ddkprsPublicKeyBase64 (\ s a -> s{_ddkprsPublicKeyBase64 = a});+ddkprsPublicKeyBase64 = lens _ddkprsPublicKeyBase64 (\ s a -> s{_ddkprsPublicKeyBase64 = a})  -- | A base64-encoded RSA private key. ddkprsPrivateKeyBase64 :: Lens' DownloadDefaultKeyPairResponse (Maybe Text)-ddkprsPrivateKeyBase64 = lens _ddkprsPrivateKeyBase64 (\ s a -> s{_ddkprsPrivateKeyBase64 = a});+ddkprsPrivateKeyBase64 = lens _ddkprsPrivateKeyBase64 (\ s a -> s{_ddkprsPrivateKeyBase64 = a})  -- | -- | The response status code. ddkprsResponseStatus :: Lens' DownloadDefaultKeyPairResponse Int-ddkprsResponseStatus = lens _ddkprsResponseStatus (\ s a -> s{_ddkprsResponseStatus = a});+ddkprsResponseStatus = lens _ddkprsResponseStatus (\ s a -> s{_ddkprsResponseStatus = a})  instance NFData DownloadDefaultKeyPairResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Lightsail.GetActiveNames--- 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@@ -66,7 +66,7 @@  -- | A token used for paginating results from your get active names request. ganPageToken :: Lens' GetActiveNames (Maybe Text)-ganPageToken = lens _ganPageToken (\ s a -> s{_ganPageToken = a});+ganPageToken = lens _ganPageToken (\ s a -> s{_ganPageToken = a})  instance AWSPager GetActiveNames where         page rq rs@@ -132,22 +132,22 @@     -> GetActiveNamesResponse getActiveNamesResponse pResponseStatus_ =   GetActiveNamesResponse'-  { _ganrsNextPageToken = Nothing-  , _ganrsActiveNames = Nothing-  , _ganrsResponseStatus = pResponseStatus_-  }+    { _ganrsNextPageToken = Nothing+    , _ganrsActiveNames = Nothing+    , _ganrsResponseStatus = pResponseStatus_+    }   -- | A token used for advancing to the next page of results from your get active names request. ganrsNextPageToken :: Lens' GetActiveNamesResponse (Maybe Text)-ganrsNextPageToken = lens _ganrsNextPageToken (\ s a -> s{_ganrsNextPageToken = a});+ganrsNextPageToken = lens _ganrsNextPageToken (\ s a -> s{_ganrsNextPageToken = a})  -- | The list of active names returned by the get active names request. ganrsActiveNames :: Lens' GetActiveNamesResponse [Text]-ganrsActiveNames = lens _ganrsActiveNames (\ s a -> s{_ganrsActiveNames = a}) . _Default . _Coerce;+ganrsActiveNames = lens _ganrsActiveNames (\ s a -> s{_ganrsActiveNames = a}) . _Default . _Coerce  -- | -- | The response status code. ganrsResponseStatus :: Lens' GetActiveNamesResponse Int-ganrsResponseStatus = lens _ganrsResponseStatus (\ s a -> s{_ganrsResponseStatus = a});+ganrsResponseStatus = lens _ganrsResponseStatus (\ s a -> s{_ganrsResponseStatus = a})  instance NFData GetActiveNamesResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Lightsail.GetBlueprints--- 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,11 +71,11 @@  -- | A Boolean value indicating whether to include inactive results in your request. gbIncludeInactive :: Lens' GetBlueprints (Maybe Bool)-gbIncludeInactive = lens _gbIncludeInactive (\ s a -> s{_gbIncludeInactive = a});+gbIncludeInactive = lens _gbIncludeInactive (\ s a -> s{_gbIncludeInactive = a})  -- | A token used for advancing to the next page of results from your get blueprints request. gbPageToken :: Lens' GetBlueprints (Maybe Text)-gbPageToken = lens _gbPageToken (\ s a -> s{_gbPageToken = a});+gbPageToken = lens _gbPageToken (\ s a -> s{_gbPageToken = a})  instance AWSPager GetBlueprints where         page rq rs@@ -143,22 +143,22 @@     -> GetBlueprintsResponse getBlueprintsResponse pResponseStatus_ =   GetBlueprintsResponse'-  { _gbsrsBlueprints = Nothing-  , _gbsrsNextPageToken = Nothing-  , _gbsrsResponseStatus = pResponseStatus_-  }+    { _gbsrsBlueprints = Nothing+    , _gbsrsNextPageToken = Nothing+    , _gbsrsResponseStatus = pResponseStatus_+    }   -- | An array of key-value pairs that contains information about the available blueprints. gbsrsBlueprints :: Lens' GetBlueprintsResponse [Blueprint]-gbsrsBlueprints = lens _gbsrsBlueprints (\ s a -> s{_gbsrsBlueprints = a}) . _Default . _Coerce;+gbsrsBlueprints = lens _gbsrsBlueprints (\ s a -> s{_gbsrsBlueprints = a}) . _Default . _Coerce  -- | A token used for advancing to the next page of results from your get blueprints request. gbsrsNextPageToken :: Lens' GetBlueprintsResponse (Maybe Text)-gbsrsNextPageToken = lens _gbsrsNextPageToken (\ s a -> s{_gbsrsNextPageToken = a});+gbsrsNextPageToken = lens _gbsrsNextPageToken (\ s a -> s{_gbsrsNextPageToken = a})  -- | -- | The response status code. gbsrsResponseStatus :: Lens' GetBlueprintsResponse Int-gbsrsResponseStatus = lens _gbsrsResponseStatus (\ s a -> s{_gbsrsResponseStatus = a});+gbsrsResponseStatus = lens _gbsrsResponseStatus (\ s a -> s{_gbsrsResponseStatus = a})  instance NFData GetBlueprintsResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Lightsail.GetBundles--- 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@@ -29,8 +29,8 @@       getBundles     , GetBundles     -- * Request Lenses-    , gIncludeInactive-    , gPageToken+    , gbsIncludeInactive+    , gbsPageToken      -- * Destructuring the Response     , getBundlesResponse@@ -51,8 +51,8 @@  -- | /See:/ 'getBundles' smart constructor. data GetBundles = GetBundles'-  { _gIncludeInactive :: !(Maybe Bool)-  , _gPageToken       :: !(Maybe Text)+  { _gbsIncludeInactive :: !(Maybe Bool)+  , _gbsPageToken       :: !(Maybe Text)   } deriving (Eq, Read, Show, Data, Typeable, Generic)  @@ -60,28 +60,29 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'gIncludeInactive' - A Boolean value that indicates whether to include inactive bundle results in your request.+-- * 'gbsIncludeInactive' - A Boolean value that indicates whether to include inactive bundle results in your request. ----- * 'gPageToken' - A token used for advancing to the next page of results from your get bundles request.+-- * 'gbsPageToken' - A token used for advancing to the next page of results from your get bundles request. getBundles     :: GetBundles-getBundles = GetBundles' {_gIncludeInactive = Nothing, _gPageToken = Nothing}+getBundles =+  GetBundles' {_gbsIncludeInactive = Nothing, _gbsPageToken = Nothing}   -- | A Boolean value that indicates whether to include inactive bundle results in your request.-gIncludeInactive :: Lens' GetBundles (Maybe Bool)-gIncludeInactive = lens _gIncludeInactive (\ s a -> s{_gIncludeInactive = a});+gbsIncludeInactive :: Lens' GetBundles (Maybe Bool)+gbsIncludeInactive = lens _gbsIncludeInactive (\ s a -> s{_gbsIncludeInactive = a})  -- | A token used for advancing to the next page of results from your get bundles request.-gPageToken :: Lens' GetBundles (Maybe Text)-gPageToken = lens _gPageToken (\ s a -> s{_gPageToken = a});+gbsPageToken :: Lens' GetBundles (Maybe Text)+gbsPageToken = lens _gbsPageToken (\ s a -> s{_gbsPageToken = a})  instance AWSPager GetBundles where         page rq rs           | stop (rs ^. gbrsNextPageToken) = Nothing           | stop (rs ^. gbrsBundles) = Nothing           | otherwise =-            Just $ rq & gPageToken .~ rs ^. gbrsNextPageToken+            Just $ rq & gbsPageToken .~ rs ^. gbrsNextPageToken  instance AWSRequest GetBundles where         type Rs GetBundles = GetBundlesResponse@@ -111,8 +112,8 @@         toJSON GetBundles'{..}           = object               (catMaybes-                 [("includeInactive" .=) <$> _gIncludeInactive,-                  ("pageToken" .=) <$> _gPageToken])+                 [("includeInactive" .=) <$> _gbsIncludeInactive,+                  ("pageToken" .=) <$> _gbsPageToken])  instance ToPath GetBundles where         toPath = const "/"@@ -142,22 +143,22 @@     -> GetBundlesResponse getBundlesResponse pResponseStatus_ =   GetBundlesResponse'-  { _gbrsNextPageToken = Nothing-  , _gbrsBundles = Nothing-  , _gbrsResponseStatus = pResponseStatus_-  }+    { _gbrsNextPageToken = Nothing+    , _gbrsBundles = Nothing+    , _gbrsResponseStatus = pResponseStatus_+    }   -- | A token used for advancing to the next page of results from your get active names request. gbrsNextPageToken :: Lens' GetBundlesResponse (Maybe Text)-gbrsNextPageToken = lens _gbrsNextPageToken (\ s a -> s{_gbrsNextPageToken = a});+gbrsNextPageToken = lens _gbrsNextPageToken (\ s a -> s{_gbrsNextPageToken = a})  -- | An array of key-value pairs that contains information about the available bundles. gbrsBundles :: Lens' GetBundlesResponse [Bundle]-gbrsBundles = lens _gbrsBundles (\ s a -> s{_gbrsBundles = a}) . _Default . _Coerce;+gbrsBundles = lens _gbrsBundles (\ s a -> s{_gbrsBundles = a}) . _Default . _Coerce  -- | -- | The response status code. gbrsResponseStatus :: Lens' GetBundlesResponse Int-gbrsResponseStatus = lens _gbrsResponseStatus (\ s a -> s{_gbrsResponseStatus = a});+gbrsResponseStatus = lens _gbrsResponseStatus (\ s a -> s{_gbrsResponseStatus = a})  instance NFData GetBundlesResponse where

@@ -0,0 +1,131 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.Lightsail.GetDisk+-- 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+-- Portability : non-portable (GHC extensions)+--+-- Returns information about a specific block storage disk.+--+--+module Network.AWS.Lightsail.GetDisk+    (+    -- * Creating a Request+      getDisk+    , GetDisk+    -- * Request Lenses+    , gdDiskName++    -- * Destructuring the Response+    , getDiskResponse+    , GetDiskResponse+    -- * Response Lenses+    , getrsDisk+    , getrsResponseStatus+    ) where++import Network.AWS.Lens+import Network.AWS.Lightsail.Types+import Network.AWS.Lightsail.Types.Product+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response++-- | /See:/ 'getDisk' smart constructor.+newtype GetDisk = GetDisk'+  { _gdDiskName :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'GetDisk' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'gdDiskName' - The name of the disk (e.g., @my-disk@ ).+getDisk+    :: Text -- ^ 'gdDiskName'+    -> GetDisk+getDisk pDiskName_ = GetDisk' {_gdDiskName = pDiskName_}+++-- | The name of the disk (e.g., @my-disk@ ).+gdDiskName :: Lens' GetDisk Text+gdDiskName = lens _gdDiskName (\ s a -> s{_gdDiskName = a})++instance AWSRequest GetDisk where+        type Rs GetDisk = GetDiskResponse+        request = postJSON lightsail+        response+          = receiveJSON+              (\ s h x ->+                 GetDiskResponse' <$>+                   (x .?> "disk") <*> (pure (fromEnum s)))++instance Hashable GetDisk where++instance NFData GetDisk where++instance ToHeaders GetDisk where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("Lightsail_20161128.GetDisk" :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON GetDisk where+        toJSON GetDisk'{..}+          = object+              (catMaybes [Just ("diskName" .= _gdDiskName)])++instance ToPath GetDisk where+        toPath = const "/"++instance ToQuery GetDisk where+        toQuery = const mempty++-- | /See:/ 'getDiskResponse' smart constructor.+data GetDiskResponse = GetDiskResponse'+  { _getrsDisk           :: !(Maybe Disk)+  , _getrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'GetDiskResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'getrsDisk' - An object containing information about the disk.+--+-- * 'getrsResponseStatus' - -- | The response status code.+getDiskResponse+    :: Int -- ^ 'getrsResponseStatus'+    -> GetDiskResponse+getDiskResponse pResponseStatus_ =+  GetDiskResponse'+    {_getrsDisk = Nothing, _getrsResponseStatus = pResponseStatus_}+++-- | An object containing information about the disk.+getrsDisk :: Lens' GetDiskResponse (Maybe Disk)+getrsDisk = lens _getrsDisk (\ s a -> s{_getrsDisk = a})++-- | -- | The response status code.+getrsResponseStatus :: Lens' GetDiskResponse Int+getrsResponseStatus = lens _getrsResponseStatus (\ s a -> s{_getrsResponseStatus = a})++instance NFData GetDiskResponse where

@@ -0,0 +1,133 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.Lightsail.GetDiskSnapshot+-- 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+-- Portability : non-portable (GHC extensions)+--+-- Returns information about a specific block storage disk snapshot.+--+--+module Network.AWS.Lightsail.GetDiskSnapshot+    (+    -- * Creating a Request+      getDiskSnapshot+    , GetDiskSnapshot+    -- * Request Lenses+    , gdsDiskSnapshotName++    -- * Destructuring the Response+    , getDiskSnapshotResponse+    , GetDiskSnapshotResponse+    -- * Response Lenses+    , gdsrsDiskSnapshot+    , gdsrsResponseStatus+    ) where++import Network.AWS.Lens+import Network.AWS.Lightsail.Types+import Network.AWS.Lightsail.Types.Product+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response++-- | /See:/ 'getDiskSnapshot' smart constructor.+newtype GetDiskSnapshot = GetDiskSnapshot'+  { _gdsDiskSnapshotName :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'GetDiskSnapshot' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'gdsDiskSnapshotName' - The name of the disk snapshot (e.g., @my-disk-snapshot@ ).+getDiskSnapshot+    :: Text -- ^ 'gdsDiskSnapshotName'+    -> GetDiskSnapshot+getDiskSnapshot pDiskSnapshotName_ =+  GetDiskSnapshot' {_gdsDiskSnapshotName = pDiskSnapshotName_}+++-- | The name of the disk snapshot (e.g., @my-disk-snapshot@ ).+gdsDiskSnapshotName :: Lens' GetDiskSnapshot Text+gdsDiskSnapshotName = lens _gdsDiskSnapshotName (\ s a -> s{_gdsDiskSnapshotName = a})++instance AWSRequest GetDiskSnapshot where+        type Rs GetDiskSnapshot = GetDiskSnapshotResponse+        request = postJSON lightsail+        response+          = receiveJSON+              (\ s h x ->+                 GetDiskSnapshotResponse' <$>+                   (x .?> "diskSnapshot") <*> (pure (fromEnum s)))++instance Hashable GetDiskSnapshot where++instance NFData GetDiskSnapshot where++instance ToHeaders GetDiskSnapshot where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("Lightsail_20161128.GetDiskSnapshot" :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON GetDiskSnapshot where+        toJSON GetDiskSnapshot'{..}+          = object+              (catMaybes+                 [Just ("diskSnapshotName" .= _gdsDiskSnapshotName)])++instance ToPath GetDiskSnapshot where+        toPath = const "/"++instance ToQuery GetDiskSnapshot where+        toQuery = const mempty++-- | /See:/ 'getDiskSnapshotResponse' smart constructor.+data GetDiskSnapshotResponse = GetDiskSnapshotResponse'+  { _gdsrsDiskSnapshot   :: !(Maybe DiskSnapshot)+  , _gdsrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'GetDiskSnapshotResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'gdsrsDiskSnapshot' - An object containing information about the disk snapshot.+--+-- * 'gdsrsResponseStatus' - -- | The response status code.+getDiskSnapshotResponse+    :: Int -- ^ 'gdsrsResponseStatus'+    -> GetDiskSnapshotResponse+getDiskSnapshotResponse pResponseStatus_ =+  GetDiskSnapshotResponse'+    {_gdsrsDiskSnapshot = Nothing, _gdsrsResponseStatus = pResponseStatus_}+++-- | An object containing information about the disk snapshot.+gdsrsDiskSnapshot :: Lens' GetDiskSnapshotResponse (Maybe DiskSnapshot)+gdsrsDiskSnapshot = lens _gdsrsDiskSnapshot (\ s a -> s{_gdsrsDiskSnapshot = a})++-- | -- | The response status code.+gdsrsResponseStatus :: Lens' GetDiskSnapshotResponse Int+gdsrsResponseStatus = lens _gdsrsResponseStatus (\ s a -> s{_gdsrsResponseStatus = a})++instance NFData GetDiskSnapshotResponse where

@@ -0,0 +1,146 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.Lightsail.GetDiskSnapshots+-- 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+-- Portability : non-portable (GHC extensions)+--+-- Returns information about all block storage disk snapshots in your AWS account and region.+--+--+-- If you are describing a long list of disk snapshots, you can paginate the output to make the list more manageable. You can use the pageToken and nextPageToken values to retrieve the next items in the list.+--+module Network.AWS.Lightsail.GetDiskSnapshots+    (+    -- * Creating a Request+      getDiskSnapshots+    , GetDiskSnapshots+    -- * Request Lenses+    , gdsPageToken++    -- * Destructuring the Response+    , getDiskSnapshotsResponse+    , GetDiskSnapshotsResponse+    -- * Response Lenses+    , gdssrsNextPageToken+    , gdssrsDiskSnapshots+    , gdssrsResponseStatus+    ) where++import Network.AWS.Lens+import Network.AWS.Lightsail.Types+import Network.AWS.Lightsail.Types.Product+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response++-- | /See:/ 'getDiskSnapshots' smart constructor.+newtype GetDiskSnapshots = GetDiskSnapshots'+  { _gdsPageToken :: Maybe Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'GetDiskSnapshots' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'gdsPageToken' - A token used for advancing to the next page of results from your GetDiskSnapshots request.+getDiskSnapshots+    :: GetDiskSnapshots+getDiskSnapshots = GetDiskSnapshots' {_gdsPageToken = Nothing}+++-- | A token used for advancing to the next page of results from your GetDiskSnapshots request.+gdsPageToken :: Lens' GetDiskSnapshots (Maybe Text)+gdsPageToken = lens _gdsPageToken (\ s a -> s{_gdsPageToken = a})++instance AWSRequest GetDiskSnapshots where+        type Rs GetDiskSnapshots = GetDiskSnapshotsResponse+        request = postJSON lightsail+        response+          = receiveJSON+              (\ s h x ->+                 GetDiskSnapshotsResponse' <$>+                   (x .?> "nextPageToken") <*>+                     (x .?> "diskSnapshots" .!@ mempty)+                     <*> (pure (fromEnum s)))++instance Hashable GetDiskSnapshots where++instance NFData GetDiskSnapshots where++instance ToHeaders GetDiskSnapshots where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("Lightsail_20161128.GetDiskSnapshots" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON GetDiskSnapshots where+        toJSON GetDiskSnapshots'{..}+          = object+              (catMaybes [("pageToken" .=) <$> _gdsPageToken])++instance ToPath GetDiskSnapshots where+        toPath = const "/"++instance ToQuery GetDiskSnapshots where+        toQuery = const mempty++-- | /See:/ 'getDiskSnapshotsResponse' smart constructor.+data GetDiskSnapshotsResponse = GetDiskSnapshotsResponse'+  { _gdssrsNextPageToken  :: !(Maybe Text)+  , _gdssrsDiskSnapshots  :: !(Maybe [DiskSnapshot])+  , _gdssrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'GetDiskSnapshotsResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'gdssrsNextPageToken' - A token used for advancing to the next page of results from your GetDiskSnapshots request.+--+-- * 'gdssrsDiskSnapshots' - An array of objects containing information about all block storage disk snapshots.+--+-- * 'gdssrsResponseStatus' - -- | The response status code.+getDiskSnapshotsResponse+    :: Int -- ^ 'gdssrsResponseStatus'+    -> GetDiskSnapshotsResponse+getDiskSnapshotsResponse pResponseStatus_ =+  GetDiskSnapshotsResponse'+    { _gdssrsNextPageToken = Nothing+    , _gdssrsDiskSnapshots = Nothing+    , _gdssrsResponseStatus = pResponseStatus_+    }+++-- | A token used for advancing to the next page of results from your GetDiskSnapshots request.+gdssrsNextPageToken :: Lens' GetDiskSnapshotsResponse (Maybe Text)+gdssrsNextPageToken = lens _gdssrsNextPageToken (\ s a -> s{_gdssrsNextPageToken = a})++-- | An array of objects containing information about all block storage disk snapshots.+gdssrsDiskSnapshots :: Lens' GetDiskSnapshotsResponse [DiskSnapshot]+gdssrsDiskSnapshots = lens _gdssrsDiskSnapshots (\ s a -> s{_gdssrsDiskSnapshots = a}) . _Default . _Coerce++-- | -- | The response status code.+gdssrsResponseStatus :: Lens' GetDiskSnapshotsResponse Int+gdssrsResponseStatus = lens _gdssrsResponseStatus (\ s a -> s{_gdssrsResponseStatus = a})++instance NFData GetDiskSnapshotsResponse where

@@ -0,0 +1,145 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.Lightsail.GetDisks+-- 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+-- Portability : non-portable (GHC extensions)+--+-- Returns information about all block storage disks in your AWS account and region.+--+--+-- If you are describing a long list of disks, you can paginate the output to make the list more manageable. You can use the pageToken and nextPageToken values to retrieve the next items in the list.+--+module Network.AWS.Lightsail.GetDisks+    (+    -- * Creating a Request+      getDisks+    , GetDisks+    -- * Request Lenses+    , gPageToken++    -- * Destructuring the Response+    , getDisksResponse+    , GetDisksResponse+    -- * Response Lenses+    , gddrsNextPageToken+    , gddrsDisks+    , gddrsResponseStatus+    ) where++import Network.AWS.Lens+import Network.AWS.Lightsail.Types+import Network.AWS.Lightsail.Types.Product+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response++-- | /See:/ 'getDisks' smart constructor.+newtype GetDisks = GetDisks'+  { _gPageToken :: Maybe Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'GetDisks' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'gPageToken' - A token used for advancing to the next page of results from your GetDisks request.+getDisks+    :: GetDisks+getDisks = GetDisks' {_gPageToken = Nothing}+++-- | A token used for advancing to the next page of results from your GetDisks request.+gPageToken :: Lens' GetDisks (Maybe Text)+gPageToken = lens _gPageToken (\ s a -> s{_gPageToken = a})++instance AWSRequest GetDisks where+        type Rs GetDisks = GetDisksResponse+        request = postJSON lightsail+        response+          = receiveJSON+              (\ s h x ->+                 GetDisksResponse' <$>+                   (x .?> "nextPageToken") <*>+                     (x .?> "disks" .!@ mempty)+                     <*> (pure (fromEnum s)))++instance Hashable GetDisks where++instance NFData GetDisks where++instance ToHeaders GetDisks where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("Lightsail_20161128.GetDisks" :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON GetDisks where+        toJSON GetDisks'{..}+          = object+              (catMaybes [("pageToken" .=) <$> _gPageToken])++instance ToPath GetDisks where+        toPath = const "/"++instance ToQuery GetDisks where+        toQuery = const mempty++-- | /See:/ 'getDisksResponse' smart constructor.+data GetDisksResponse = GetDisksResponse'+  { _gddrsNextPageToken  :: !(Maybe Text)+  , _gddrsDisks          :: !(Maybe [Disk])+  , _gddrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'GetDisksResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'gddrsNextPageToken' - A token used for advancing to the next page of results from your GetDisks request.+--+-- * 'gddrsDisks' - An array of objects containing information about all block storage disks.+--+-- * 'gddrsResponseStatus' - -- | The response status code.+getDisksResponse+    :: Int -- ^ 'gddrsResponseStatus'+    -> GetDisksResponse+getDisksResponse pResponseStatus_ =+  GetDisksResponse'+    { _gddrsNextPageToken = Nothing+    , _gddrsDisks = Nothing+    , _gddrsResponseStatus = pResponseStatus_+    }+++-- | A token used for advancing to the next page of results from your GetDisks request.+gddrsNextPageToken :: Lens' GetDisksResponse (Maybe Text)+gddrsNextPageToken = lens _gddrsNextPageToken (\ s a -> s{_gddrsNextPageToken = a})++-- | An array of objects containing information about all block storage disks.+gddrsDisks :: Lens' GetDisksResponse [Disk]+gddrsDisks = lens _gddrsDisks (\ s a -> s{_gddrsDisks = a}) . _Default . _Coerce++-- | -- | The response status code.+gddrsResponseStatus :: Lens' GetDisksResponse Int+gddrsResponseStatus = lens _gddrsResponseStatus (\ s a -> s{_gddrsResponseStatus = a})++instance NFData GetDisksResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Lightsail.GetDomain--- 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@@ -63,7 +63,7 @@  -- | The domain name for which your want to return information about. gdDomainName :: Lens' GetDomain Text-gdDomainName = lens _gdDomainName (\ s a -> s{_gdDomainName = a});+gdDomainName = lens _gdDomainName (\ s a -> s{_gdDomainName = a})  instance AWSRequest GetDomain where         type Rs GetDomain = GetDomainResponse@@ -117,15 +117,15 @@     -> GetDomainResponse getDomainResponse pResponseStatus_ =   GetDomainResponse'-  {_gdrsDomain = Nothing, _gdrsResponseStatus = pResponseStatus_}+    {_gdrsDomain = Nothing, _gdrsResponseStatus = pResponseStatus_}   -- | An array of key-value pairs containing information about your get domain request. gdrsDomain :: Lens' GetDomainResponse (Maybe Domain)-gdrsDomain = lens _gdrsDomain (\ s a -> s{_gdrsDomain = a});+gdrsDomain = lens _gdrsDomain (\ s a -> s{_gdrsDomain = a})  -- | -- | The response status code. gdrsResponseStatus :: Lens' GetDomainResponse Int-gdrsResponseStatus = lens _gdrsResponseStatus (\ s a -> s{_gdrsResponseStatus = a});+gdrsResponseStatus = lens _gdrsResponseStatus (\ s a -> s{_gdrsResponseStatus = a})  instance NFData GetDomainResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Lightsail.GetDomains--- 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@@ -35,9 +35,9 @@     , getDomainsResponse     , GetDomainsResponse     -- * Response Lenses-    , gdsrsNextPageToken-    , gdsrsDomains-    , gdsrsResponseStatus+    , ggrsNextPageToken+    , ggrsDomains+    , ggrsResponseStatus     ) where  import Network.AWS.Lens@@ -66,14 +66,14 @@  -- | A token used for advancing to the next page of results from your get domains request. gdPageToken :: Lens' GetDomains (Maybe Text)-gdPageToken = lens _gdPageToken (\ s a -> s{_gdPageToken = a});+gdPageToken = lens _gdPageToken (\ s a -> s{_gdPageToken = a})  instance AWSPager GetDomains where         page rq rs-          | stop (rs ^. gdsrsNextPageToken) = Nothing-          | stop (rs ^. gdsrsDomains) = Nothing+          | stop (rs ^. ggrsNextPageToken) = Nothing+          | stop (rs ^. ggrsDomains) = Nothing           | otherwise =-            Just $ rq & gdPageToken .~ rs ^. gdsrsNextPageToken+            Just $ rq & gdPageToken .~ rs ^. ggrsNextPageToken  instance AWSRequest GetDomains where         type Rs GetDomains = GetDomainsResponse@@ -112,9 +112,9 @@  -- | /See:/ 'getDomainsResponse' smart constructor. data GetDomainsResponse = GetDomainsResponse'-  { _gdsrsNextPageToken  :: !(Maybe Text)-  , _gdsrsDomains        :: !(Maybe [Domain])-  , _gdsrsResponseStatus :: !Int+  { _ggrsNextPageToken  :: !(Maybe Text)+  , _ggrsDomains        :: !(Maybe [Domain])+  , _ggrsResponseStatus :: !Int   } deriving (Eq, Read, Show, Data, Typeable, Generic)  @@ -122,32 +122,32 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'gdsrsNextPageToken' - A token used for advancing to the next page of results from your get active names request.+-- * 'ggrsNextPageToken' - A token used for advancing to the next page of results from your get active names request. ----- * 'gdsrsDomains' - An array of key-value pairs containing information about each of the domain entries in the user's account.+-- * 'ggrsDomains' - An array of key-value pairs containing information about each of the domain entries in the user's account. ----- * 'gdsrsResponseStatus' - -- | The response status code.+-- * 'ggrsResponseStatus' - -- | The response status code. getDomainsResponse-    :: Int -- ^ 'gdsrsResponseStatus'+    :: Int -- ^ 'ggrsResponseStatus'     -> GetDomainsResponse getDomainsResponse pResponseStatus_ =   GetDomainsResponse'-  { _gdsrsNextPageToken = Nothing-  , _gdsrsDomains = Nothing-  , _gdsrsResponseStatus = pResponseStatus_-  }+    { _ggrsNextPageToken = Nothing+    , _ggrsDomains = Nothing+    , _ggrsResponseStatus = pResponseStatus_+    }   -- | A token used for advancing to the next page of results from your get active names request.-gdsrsNextPageToken :: Lens' GetDomainsResponse (Maybe Text)-gdsrsNextPageToken = lens _gdsrsNextPageToken (\ s a -> s{_gdsrsNextPageToken = a});+ggrsNextPageToken :: Lens' GetDomainsResponse (Maybe Text)+ggrsNextPageToken = lens _ggrsNextPageToken (\ s a -> s{_ggrsNextPageToken = a})  -- | An array of key-value pairs containing information about each of the domain entries in the user's account.-gdsrsDomains :: Lens' GetDomainsResponse [Domain]-gdsrsDomains = lens _gdsrsDomains (\ s a -> s{_gdsrsDomains = a}) . _Default . _Coerce;+ggrsDomains :: Lens' GetDomainsResponse [Domain]+ggrsDomains = lens _ggrsDomains (\ s a -> s{_ggrsDomains = a}) . _Default . _Coerce  -- | -- | The response status code.-gdsrsResponseStatus :: Lens' GetDomainsResponse Int-gdsrsResponseStatus = lens _gdsrsResponseStatus (\ s a -> s{_gdsrsResponseStatus = a});+ggrsResponseStatus :: Lens' GetDomainsResponse Int+ggrsResponseStatus = lens _ggrsResponseStatus (\ s a -> s{_ggrsResponseStatus = a})  instance NFData GetDomainsResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Lightsail.GetInstance--- 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@@ -63,7 +63,7 @@  -- | The name of the instance. giInstanceName :: Lens' GetInstance Text-giInstanceName = lens _giInstanceName (\ s a -> s{_giInstanceName = a});+giInstanceName = lens _giInstanceName (\ s a -> s{_giInstanceName = a})  instance AWSRequest GetInstance where         type Rs GetInstance = GetInstanceResponse@@ -118,15 +118,15 @@     -> GetInstanceResponse getInstanceResponse pResponseStatus_ =   GetInstanceResponse'-  {_girsInstance = Nothing, _girsResponseStatus = pResponseStatus_}+    {_girsInstance = Nothing, _girsResponseStatus = pResponseStatus_}   -- | An array of key-value pairs containing information about the specified instance. girsInstance :: Lens' GetInstanceResponse (Maybe Instance)-girsInstance = lens _girsInstance (\ s a -> s{_girsInstance = a});+girsInstance = lens _girsInstance (\ s a -> s{_girsInstance = a})  -- | -- | The response status code. girsResponseStatus :: Lens' GetInstanceResponse Int-girsResponseStatus = lens _girsResponseStatus (\ s a -> s{_girsResponseStatus = a});+girsResponseStatus = lens _girsResponseStatus (\ s a -> s{_girsResponseStatus = a})  instance NFData GetInstanceResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Lightsail.GetInstanceAccessDetails--- 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@@ -64,16 +64,16 @@     -> GetInstanceAccessDetails getInstanceAccessDetails pInstanceName_ =   GetInstanceAccessDetails'-  {_giadProtocol = Nothing, _giadInstanceName = pInstanceName_}+    {_giadProtocol = Nothing, _giadInstanceName = pInstanceName_}   -- | The protocol to use to connect to your instance. Defaults to @ssh@ . giadProtocol :: Lens' GetInstanceAccessDetails (Maybe InstanceAccessProtocol)-giadProtocol = lens _giadProtocol (\ s a -> s{_giadProtocol = a});+giadProtocol = lens _giadProtocol (\ s a -> s{_giadProtocol = a})  -- | The name of the instance to access. giadInstanceName :: Lens' GetInstanceAccessDetails Text-giadInstanceName = lens _giadInstanceName (\ s a -> s{_giadInstanceName = a});+giadInstanceName = lens _giadInstanceName (\ s a -> s{_giadInstanceName = a})  instance AWSRequest GetInstanceAccessDetails where         type Rs GetInstanceAccessDetails =@@ -131,16 +131,16 @@     -> GetInstanceAccessDetailsResponse getInstanceAccessDetailsResponse pResponseStatus_ =   GetInstanceAccessDetailsResponse'-  {_giadrsAccessDetails = Nothing, _giadrsResponseStatus = pResponseStatus_}+    {_giadrsAccessDetails = Nothing, _giadrsResponseStatus = pResponseStatus_}   -- | An array of key-value pairs containing information about a get instance access request. giadrsAccessDetails :: Lens' GetInstanceAccessDetailsResponse (Maybe InstanceAccessDetails)-giadrsAccessDetails = lens _giadrsAccessDetails (\ s a -> s{_giadrsAccessDetails = a});+giadrsAccessDetails = lens _giadrsAccessDetails (\ s a -> s{_giadrsAccessDetails = a})  -- | -- | The response status code. giadrsResponseStatus :: Lens' GetInstanceAccessDetailsResponse Int-giadrsResponseStatus = lens _giadrsResponseStatus (\ s a -> s{_giadrsResponseStatus = a});+giadrsResponseStatus = lens _giadrsResponseStatus (\ s a -> s{_giadrsResponseStatus = a})  instance NFData GetInstanceAccessDetailsResponse          where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Lightsail.GetInstanceMetricData--- 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@@ -90,43 +90,43 @@     -> GetInstanceMetricData getInstanceMetricData pInstanceName_ pMetricName_ pPeriod_ pStartTime_ pEndTime_ pUnit_ =   GetInstanceMetricData'-  { _gimdInstanceName = pInstanceName_-  , _gimdMetricName = pMetricName_-  , _gimdPeriod = _Nat # pPeriod_-  , _gimdStartTime = _Time # pStartTime_-  , _gimdEndTime = _Time # pEndTime_-  , _gimdUnit = pUnit_-  , _gimdStatistics = mempty-  }+    { _gimdInstanceName = pInstanceName_+    , _gimdMetricName = pMetricName_+    , _gimdPeriod = _Nat # pPeriod_+    , _gimdStartTime = _Time # pStartTime_+    , _gimdEndTime = _Time # pEndTime_+    , _gimdUnit = pUnit_+    , _gimdStatistics = mempty+    }   -- | The name of the instance for which you want to get metrics data. gimdInstanceName :: Lens' GetInstanceMetricData Text-gimdInstanceName = lens _gimdInstanceName (\ s a -> s{_gimdInstanceName = a});+gimdInstanceName = lens _gimdInstanceName (\ s a -> s{_gimdInstanceName = a})  -- | The metric name to get data about. gimdMetricName :: Lens' GetInstanceMetricData InstanceMetricName-gimdMetricName = lens _gimdMetricName (\ s a -> s{_gimdMetricName = a});+gimdMetricName = lens _gimdMetricName (\ s a -> s{_gimdMetricName = a})  -- | The time period for which you are requesting data. gimdPeriod :: Lens' GetInstanceMetricData Natural-gimdPeriod = lens _gimdPeriod (\ s a -> s{_gimdPeriod = a}) . _Nat;+gimdPeriod = lens _gimdPeriod (\ s a -> s{_gimdPeriod = a}) . _Nat  -- | The start time of the time period. gimdStartTime :: Lens' GetInstanceMetricData UTCTime-gimdStartTime = lens _gimdStartTime (\ s a -> s{_gimdStartTime = a}) . _Time;+gimdStartTime = lens _gimdStartTime (\ s a -> s{_gimdStartTime = a}) . _Time  -- | The end time of the time period. gimdEndTime :: Lens' GetInstanceMetricData UTCTime-gimdEndTime = lens _gimdEndTime (\ s a -> s{_gimdEndTime = a}) . _Time;+gimdEndTime = lens _gimdEndTime (\ s a -> s{_gimdEndTime = a}) . _Time  -- | The unit. The list of valid values is below. gimdUnit :: Lens' GetInstanceMetricData MetricUnit-gimdUnit = lens _gimdUnit (\ s a -> s{_gimdUnit = a});+gimdUnit = lens _gimdUnit (\ s a -> s{_gimdUnit = a})  -- | The instance statistics. gimdStatistics :: Lens' GetInstanceMetricData [MetricStatistic]-gimdStatistics = lens _gimdStatistics (\ s a -> s{_gimdStatistics = a}) . _Coerce;+gimdStatistics = lens _gimdStatistics (\ s a -> s{_gimdStatistics = a}) . _Coerce  instance AWSRequest GetInstanceMetricData where         type Rs GetInstanceMetricData =@@ -194,22 +194,22 @@     -> GetInstanceMetricDataResponse getInstanceMetricDataResponse pResponseStatus_ =   GetInstanceMetricDataResponse'-  { _gimdrsMetricName = Nothing-  , _gimdrsMetricData = Nothing-  , _gimdrsResponseStatus = pResponseStatus_-  }+    { _gimdrsMetricName = Nothing+    , _gimdrsMetricData = Nothing+    , _gimdrsResponseStatus = pResponseStatus_+    }   -- | The metric name to return data for. gimdrsMetricName :: Lens' GetInstanceMetricDataResponse (Maybe InstanceMetricName)-gimdrsMetricName = lens _gimdrsMetricName (\ s a -> s{_gimdrsMetricName = a});+gimdrsMetricName = lens _gimdrsMetricName (\ s a -> s{_gimdrsMetricName = a})  -- | An array of key-value pairs containing information about the results of your get instance metric data request. gimdrsMetricData :: Lens' GetInstanceMetricDataResponse [MetricDatapoint]-gimdrsMetricData = lens _gimdrsMetricData (\ s a -> s{_gimdrsMetricData = a}) . _Default . _Coerce;+gimdrsMetricData = lens _gimdrsMetricData (\ s a -> s{_gimdrsMetricData = a}) . _Default . _Coerce  -- | -- | The response status code. gimdrsResponseStatus :: Lens' GetInstanceMetricDataResponse Int-gimdrsResponseStatus = lens _gimdrsResponseStatus (\ s a -> s{_gimdrsResponseStatus = a});+gimdrsResponseStatus = lens _gimdrsResponseStatus (\ s a -> s{_gimdrsResponseStatus = a})  instance NFData GetInstanceMetricDataResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Lightsail.GetInstancePortStates--- 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@@ -64,7 +64,7 @@  -- | The name of the instance. gipsInstanceName :: Lens' GetInstancePortStates Text-gipsInstanceName = lens _gipsInstanceName (\ s a -> s{_gipsInstanceName = a});+gipsInstanceName = lens _gipsInstanceName (\ s a -> s{_gipsInstanceName = a})  instance AWSRequest GetInstancePortStates where         type Rs GetInstancePortStates =@@ -122,15 +122,15 @@     -> GetInstancePortStatesResponse getInstancePortStatesResponse pResponseStatus_ =   GetInstancePortStatesResponse'-  {_gipsrsPortStates = Nothing, _gipsrsResponseStatus = pResponseStatus_}+    {_gipsrsPortStates = Nothing, _gipsrsResponseStatus = pResponseStatus_}   -- | Information about the port states resulting from your request. gipsrsPortStates :: Lens' GetInstancePortStatesResponse [InstancePortState]-gipsrsPortStates = lens _gipsrsPortStates (\ s a -> s{_gipsrsPortStates = a}) . _Default . _Coerce;+gipsrsPortStates = lens _gipsrsPortStates (\ s a -> s{_gipsrsPortStates = a}) . _Default . _Coerce  -- | -- | The response status code. gipsrsResponseStatus :: Lens' GetInstancePortStatesResponse Int-gipsrsResponseStatus = lens _gipsrsResponseStatus (\ s a -> s{_gipsrsResponseStatus = a});+gipsrsResponseStatus = lens _gipsrsResponseStatus (\ s a -> s{_gipsrsResponseStatus = a})  instance NFData GetInstancePortStatesResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Lightsail.GetInstanceSnapshot--- 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@@ -64,7 +64,7 @@  -- | The name of the snapshot for which you are requesting information. gisInstanceSnapshotName :: Lens' GetInstanceSnapshot Text-gisInstanceSnapshotName = lens _gisInstanceSnapshotName (\ s a -> s{_gisInstanceSnapshotName = a});+gisInstanceSnapshotName = lens _gisInstanceSnapshotName (\ s a -> s{_gisInstanceSnapshotName = a})  instance AWSRequest GetInstanceSnapshot where         type Rs GetInstanceSnapshot =@@ -123,15 +123,15 @@     -> GetInstanceSnapshotResponse getInstanceSnapshotResponse pResponseStatus_ =   GetInstanceSnapshotResponse'-  {_gisrsInstanceSnapshot = Nothing, _gisrsResponseStatus = pResponseStatus_}+    {_gisrsInstanceSnapshot = Nothing, _gisrsResponseStatus = pResponseStatus_}   -- | An array of key-value pairs containing information about the results of your get instance snapshot request. gisrsInstanceSnapshot :: Lens' GetInstanceSnapshotResponse (Maybe InstanceSnapshot)-gisrsInstanceSnapshot = lens _gisrsInstanceSnapshot (\ s a -> s{_gisrsInstanceSnapshot = a});+gisrsInstanceSnapshot = lens _gisrsInstanceSnapshot (\ s a -> s{_gisrsInstanceSnapshot = a})  -- | -- | The response status code. gisrsResponseStatus :: Lens' GetInstanceSnapshotResponse Int-gisrsResponseStatus = lens _gisrsResponseStatus (\ s a -> s{_gisrsResponseStatus = a});+gisrsResponseStatus = lens _gisrsResponseStatus (\ s a -> s{_gisrsResponseStatus = a})  instance NFData GetInstanceSnapshotResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Lightsail.GetInstanceSnapshots--- 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@@ -66,7 +66,7 @@  -- | A token used for advancing to the next page of results from your get instance snapshots request. gisPageToken :: Lens' GetInstanceSnapshots (Maybe Text)-gisPageToken = lens _gisPageToken (\ s a -> s{_gisPageToken = a});+gisPageToken = lens _gisPageToken (\ s a -> s{_gisPageToken = a})  instance AWSPager GetInstanceSnapshots where         page rq rs@@ -134,22 +134,22 @@     -> GetInstanceSnapshotsResponse getInstanceSnapshotsResponse pResponseStatus_ =   GetInstanceSnapshotsResponse'-  { _gissrsNextPageToken = Nothing-  , _gissrsInstanceSnapshots = Nothing-  , _gissrsResponseStatus = pResponseStatus_-  }+    { _gissrsNextPageToken = Nothing+    , _gissrsInstanceSnapshots = Nothing+    , _gissrsResponseStatus = pResponseStatus_+    }   -- | A token used for advancing to the next page of results from your get instance snapshots request. gissrsNextPageToken :: Lens' GetInstanceSnapshotsResponse (Maybe Text)-gissrsNextPageToken = lens _gissrsNextPageToken (\ s a -> s{_gissrsNextPageToken = a});+gissrsNextPageToken = lens _gissrsNextPageToken (\ s a -> s{_gissrsNextPageToken = a})  -- | An array of key-value pairs containing information about the results of your get instance snapshots request. gissrsInstanceSnapshots :: Lens' GetInstanceSnapshotsResponse [InstanceSnapshot]-gissrsInstanceSnapshots = lens _gissrsInstanceSnapshots (\ s a -> s{_gissrsInstanceSnapshots = a}) . _Default . _Coerce;+gissrsInstanceSnapshots = lens _gissrsInstanceSnapshots (\ s a -> s{_gissrsInstanceSnapshots = a}) . _Default . _Coerce  -- | -- | The response status code. gissrsResponseStatus :: Lens' GetInstanceSnapshotsResponse Int-gissrsResponseStatus = lens _gissrsResponseStatus (\ s a -> s{_gissrsResponseStatus = a});+gissrsResponseStatus = lens _gissrsResponseStatus (\ s a -> s{_gissrsResponseStatus = a})  instance NFData GetInstanceSnapshotsResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Lightsail.GetInstanceState--- 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@@ -33,8 +33,8 @@     , getInstanceStateResponse     , GetInstanceStateResponse     -- * Response Lenses-    , getrsState-    , getrsResponseStatus+    , gisirsState+    , gisirsResponseStatus     ) where  import Network.AWS.Lens@@ -64,7 +64,7 @@  -- | The name of the instance to get state information about. gisInstanceName :: Lens' GetInstanceState Text-gisInstanceName = lens _gisInstanceName (\ s a -> s{_gisInstanceName = a});+gisInstanceName = lens _gisInstanceName (\ s a -> s{_gisInstanceName = a})  instance AWSRequest GetInstanceState where         type Rs GetInstanceState = GetInstanceStateResponse@@ -103,8 +103,8 @@  -- | /See:/ 'getInstanceStateResponse' smart constructor. data GetInstanceStateResponse = GetInstanceStateResponse'-  { _getrsState          :: !(Maybe InstanceState)-  , _getrsResponseStatus :: !Int+  { _gisirsState          :: !(Maybe InstanceState)+  , _gisirsResponseStatus :: !Int   } deriving (Eq, Read, Show, Data, Typeable, Generic)  @@ -112,23 +112,23 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'getrsState' - The state of the instance.+-- * 'gisirsState' - The state of the instance. ----- * 'getrsResponseStatus' - -- | The response status code.+-- * 'gisirsResponseStatus' - -- | The response status code. getInstanceStateResponse-    :: Int -- ^ 'getrsResponseStatus'+    :: Int -- ^ 'gisirsResponseStatus'     -> GetInstanceStateResponse getInstanceStateResponse pResponseStatus_ =   GetInstanceStateResponse'-  {_getrsState = Nothing, _getrsResponseStatus = pResponseStatus_}+    {_gisirsState = Nothing, _gisirsResponseStatus = pResponseStatus_}   -- | The state of the instance.-getrsState :: Lens' GetInstanceStateResponse (Maybe InstanceState)-getrsState = lens _getrsState (\ s a -> s{_getrsState = a});+gisirsState :: Lens' GetInstanceStateResponse (Maybe InstanceState)+gisirsState = lens _gisirsState (\ s a -> s{_gisirsState = a})  -- | -- | The response status code.-getrsResponseStatus :: Lens' GetInstanceStateResponse Int-getrsResponseStatus = lens _getrsResponseStatus (\ s a -> s{_getrsResponseStatus = a});+gisirsResponseStatus :: Lens' GetInstanceStateResponse Int+gisirsResponseStatus = lens _gisirsResponseStatus (\ s a -> s{_gisirsResponseStatus = a})  instance NFData GetInstanceStateResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Lightsail.GetInstances--- 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@@ -66,7 +66,7 @@  -- | A token used for advancing to the next page of results from your get instances request. giPageToken :: Lens' GetInstances (Maybe Text)-giPageToken = lens _giPageToken (\ s a -> s{_giPageToken = a});+giPageToken = lens _giPageToken (\ s a -> s{_giPageToken = a})  instance AWSPager GetInstances where         page rq rs@@ -132,22 +132,22 @@     -> GetInstancesResponse getInstancesResponse pResponseStatus_ =   GetInstancesResponse'-  { _grsNextPageToken = Nothing-  , _grsInstances = Nothing-  , _grsResponseStatus = pResponseStatus_-  }+    { _grsNextPageToken = Nothing+    , _grsInstances = Nothing+    , _grsResponseStatus = pResponseStatus_+    }   -- | A token used for advancing to the next page of results from your get instances request. grsNextPageToken :: Lens' GetInstancesResponse (Maybe Text)-grsNextPageToken = lens _grsNextPageToken (\ s a -> s{_grsNextPageToken = a});+grsNextPageToken = lens _grsNextPageToken (\ s a -> s{_grsNextPageToken = a})  -- | An array of key-value pairs containing information about your instances. grsInstances :: Lens' GetInstancesResponse [Instance]-grsInstances = lens _grsInstances (\ s a -> s{_grsInstances = a}) . _Default . _Coerce;+grsInstances = lens _grsInstances (\ s a -> s{_grsInstances = a}) . _Default . _Coerce  -- | -- | The response status code. grsResponseStatus :: Lens' GetInstancesResponse Int-grsResponseStatus = lens _grsResponseStatus (\ s a -> s{_grsResponseStatus = a});+grsResponseStatus = lens _grsResponseStatus (\ s a -> s{_grsResponseStatus = a})  instance NFData GetInstancesResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Lightsail.GetKeyPair--- 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@@ -63,7 +63,7 @@  -- | The name of the key pair for which you are requesting information. gkpKeyPairName :: Lens' GetKeyPair Text-gkpKeyPairName = lens _gkpKeyPairName (\ s a -> s{_gkpKeyPairName = a});+gkpKeyPairName = lens _gkpKeyPairName (\ s a -> s{_gkpKeyPairName = a})  instance AWSRequest GetKeyPair where         type Rs GetKeyPair = GetKeyPairResponse@@ -117,15 +117,15 @@     -> GetKeyPairResponse getKeyPairResponse pResponseStatus_ =   GetKeyPairResponse'-  {_gkprsKeyPair = Nothing, _gkprsResponseStatus = pResponseStatus_}+    {_gkprsKeyPair = Nothing, _gkprsResponseStatus = pResponseStatus_}   -- | An array of key-value pairs containing information about the key pair. gkprsKeyPair :: Lens' GetKeyPairResponse (Maybe KeyPair)-gkprsKeyPair = lens _gkprsKeyPair (\ s a -> s{_gkprsKeyPair = a});+gkprsKeyPair = lens _gkprsKeyPair (\ s a -> s{_gkprsKeyPair = a})  -- | -- | The response status code. gkprsResponseStatus :: Lens' GetKeyPairResponse Int-gkprsResponseStatus = lens _gkprsResponseStatus (\ s a -> s{_gkprsResponseStatus = a});+gkprsResponseStatus = lens _gkprsResponseStatus (\ s a -> s{_gkprsResponseStatus = a})  instance NFData GetKeyPairResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Lightsail.GetKeyPairs--- 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@@ -66,7 +66,7 @@  -- | A token used for advancing to the next page of results from your get key pairs request. gkpPageToken :: Lens' GetKeyPairs (Maybe Text)-gkpPageToken = lens _gkpPageToken (\ s a -> s{_gkpPageToken = a});+gkpPageToken = lens _gkpPageToken (\ s a -> s{_gkpPageToken = a})  instance AWSPager GetKeyPairs where         page rq rs@@ -132,22 +132,22 @@     -> GetKeyPairsResponse getKeyPairsResponse pResponseStatus_ =   GetKeyPairsResponse'-  { _gkpsrsNextPageToken = Nothing-  , _gkpsrsKeyPairs = Nothing-  , _gkpsrsResponseStatus = pResponseStatus_-  }+    { _gkpsrsNextPageToken = Nothing+    , _gkpsrsKeyPairs = Nothing+    , _gkpsrsResponseStatus = pResponseStatus_+    }   -- | A token used for advancing to the next page of results from your get key pairs request. gkpsrsNextPageToken :: Lens' GetKeyPairsResponse (Maybe Text)-gkpsrsNextPageToken = lens _gkpsrsNextPageToken (\ s a -> s{_gkpsrsNextPageToken = a});+gkpsrsNextPageToken = lens _gkpsrsNextPageToken (\ s a -> s{_gkpsrsNextPageToken = a})  -- | An array of key-value pairs containing information about the key pairs. gkpsrsKeyPairs :: Lens' GetKeyPairsResponse [KeyPair]-gkpsrsKeyPairs = lens _gkpsrsKeyPairs (\ s a -> s{_gkpsrsKeyPairs = a}) . _Default . _Coerce;+gkpsrsKeyPairs = lens _gkpsrsKeyPairs (\ s a -> s{_gkpsrsKeyPairs = a}) . _Default . _Coerce  -- | -- | The response status code. gkpsrsResponseStatus :: Lens' GetKeyPairsResponse Int-gkpsrsResponseStatus = lens _gkpsrsResponseStatus (\ s a -> s{_gkpsrsResponseStatus = a});+gkpsrsResponseStatus = lens _gkpsrsResponseStatus (\ s a -> s{_gkpsrsResponseStatus = a})  instance NFData GetKeyPairsResponse where

@@ -0,0 +1,133 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.Lightsail.GetLoadBalancer+-- 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+-- Portability : non-portable (GHC extensions)+--+-- Returns information about the specified Lightsail load balancer.+--+--+module Network.AWS.Lightsail.GetLoadBalancer+    (+    -- * Creating a Request+      getLoadBalancer+    , GetLoadBalancer+    -- * Request Lenses+    , glbLoadBalancerName++    -- * Destructuring the Response+    , getLoadBalancerResponse+    , GetLoadBalancerResponse+    -- * Response Lenses+    , glbrsLoadBalancer+    , glbrsResponseStatus+    ) where++import Network.AWS.Lens+import Network.AWS.Lightsail.Types+import Network.AWS.Lightsail.Types.Product+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response++-- | /See:/ 'getLoadBalancer' smart constructor.+newtype GetLoadBalancer = GetLoadBalancer'+  { _glbLoadBalancerName :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'GetLoadBalancer' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'glbLoadBalancerName' - The name of the load balancer.+getLoadBalancer+    :: Text -- ^ 'glbLoadBalancerName'+    -> GetLoadBalancer+getLoadBalancer pLoadBalancerName_ =+  GetLoadBalancer' {_glbLoadBalancerName = pLoadBalancerName_}+++-- | The name of the load balancer.+glbLoadBalancerName :: Lens' GetLoadBalancer Text+glbLoadBalancerName = lens _glbLoadBalancerName (\ s a -> s{_glbLoadBalancerName = a})++instance AWSRequest GetLoadBalancer where+        type Rs GetLoadBalancer = GetLoadBalancerResponse+        request = postJSON lightsail+        response+          = receiveJSON+              (\ s h x ->+                 GetLoadBalancerResponse' <$>+                   (x .?> "loadBalancer") <*> (pure (fromEnum s)))++instance Hashable GetLoadBalancer where++instance NFData GetLoadBalancer where++instance ToHeaders GetLoadBalancer where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("Lightsail_20161128.GetLoadBalancer" :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON GetLoadBalancer where+        toJSON GetLoadBalancer'{..}+          = object+              (catMaybes+                 [Just ("loadBalancerName" .= _glbLoadBalancerName)])++instance ToPath GetLoadBalancer where+        toPath = const "/"++instance ToQuery GetLoadBalancer where+        toQuery = const mempty++-- | /See:/ 'getLoadBalancerResponse' smart constructor.+data GetLoadBalancerResponse = GetLoadBalancerResponse'+  { _glbrsLoadBalancer   :: !(Maybe LoadBalancer)+  , _glbrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'GetLoadBalancerResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'glbrsLoadBalancer' - An object containing information about your load balancer.+--+-- * 'glbrsResponseStatus' - -- | The response status code.+getLoadBalancerResponse+    :: Int -- ^ 'glbrsResponseStatus'+    -> GetLoadBalancerResponse+getLoadBalancerResponse pResponseStatus_ =+  GetLoadBalancerResponse'+    {_glbrsLoadBalancer = Nothing, _glbrsResponseStatus = pResponseStatus_}+++-- | An object containing information about your load balancer.+glbrsLoadBalancer :: Lens' GetLoadBalancerResponse (Maybe LoadBalancer)+glbrsLoadBalancer = lens _glbrsLoadBalancer (\ s a -> s{_glbrsLoadBalancer = a})++-- | -- | The response status code.+glbrsResponseStatus :: Lens' GetLoadBalancerResponse Int+glbrsResponseStatus = lens _glbrsResponseStatus (\ s a -> s{_glbrsResponseStatus = a})++instance NFData GetLoadBalancerResponse where

@@ -0,0 +1,216 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.Lightsail.GetLoadBalancerMetricData+-- 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+-- Portability : non-portable (GHC extensions)+--+-- Returns information about health metrics for your Lightsail load balancer.+--+--+module Network.AWS.Lightsail.GetLoadBalancerMetricData+    (+    -- * Creating a Request+      getLoadBalancerMetricData+    , GetLoadBalancerMetricData+    -- * Request Lenses+    , glbmdLoadBalancerName+    , glbmdMetricName+    , glbmdPeriod+    , glbmdStartTime+    , glbmdEndTime+    , glbmdUnit+    , glbmdStatistics++    -- * Destructuring the Response+    , getLoadBalancerMetricDataResponse+    , GetLoadBalancerMetricDataResponse+    -- * Response Lenses+    , glbmdrsMetricName+    , glbmdrsMetricData+    , glbmdrsResponseStatus+    ) where++import Network.AWS.Lens+import Network.AWS.Lightsail.Types+import Network.AWS.Lightsail.Types.Product+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response++-- | /See:/ 'getLoadBalancerMetricData' smart constructor.+data GetLoadBalancerMetricData = GetLoadBalancerMetricData'+  { _glbmdLoadBalancerName :: !Text+  , _glbmdMetricName       :: !LoadBalancerMetricName+  , _glbmdPeriod           :: !Nat+  , _glbmdStartTime        :: !POSIX+  , _glbmdEndTime          :: !POSIX+  , _glbmdUnit             :: !MetricUnit+  , _glbmdStatistics       :: ![MetricStatistic]+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'GetLoadBalancerMetricData' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'glbmdLoadBalancerName' - The name of the load balancer.+--+-- * 'glbmdMetricName' - The metric about which you want to return information. Valid values are listed below, along with the most useful @statistics@ to include in your request.     * __@ClientTLSNegotiationErrorCount@ __ - The number of TLS connections initiated by the client that did not establish a session with the load balancer. Possible causes include a mismatch of ciphers or protocols. @Statistics@ : The most useful statistic is @Sum@ .     * __@HealthyHostCount@ __ - The number of target instances that are considered healthy. @Statistics@ : The most useful statistic are @Average@ , @Minimum@ , and @Maximum@ .     * __@UnhealthyHostCount@ __ - The number of target instances that are considered unhealthy. @Statistics@ : The most useful statistic are @Average@ , @Minimum@ , and @Maximum@ .     * __@HTTPCode_LB_4XX_Count@ __ - The number of HTTP 4XX client error codes that originate from the load balancer. Client errors are generated when requests are malformed or incomplete. These requests have not been received by the target instance. This count does not include any response codes generated by the target instances. @Statistics@ : The most useful statistic is @Sum@ . Note that @Minimum@ , @Maximum@ , and @Average@ all return @1@ .     * __@HTTPCode_LB_5XX_Count@ __ - The number of HTTP 5XX server error codes that originate from the load balancer. This count does not include any response codes generated by the target instances. @Statistics@ : The most useful statistic is @Sum@ . Note that @Minimum@ , @Maximum@ , and @Average@ all return @1@ . Note that @Minimum@ , @Maximum@ , and @Average@ all return @1@ .     * __@HTTPCode_Instance_2XX_Count@ __ - The number of HTTP response codes generated by the target instances. This does not include any response codes generated by the load balancer. @Statistics@ : The most useful statistic is @Sum@ . Note that @Minimum@ , @Maximum@ , and @Average@ all return @1@ .     * __@HTTPCode_Instance_3XX_Count@ __ - The number of HTTP response codes generated by the target instances. This does not include any response codes generated by the load balancer.  @Statistics@ : The most useful statistic is @Sum@ . Note that @Minimum@ , @Maximum@ , and @Average@ all return @1@ .     * __@HTTPCode_Instance_4XX_Count@ __ - The number of HTTP response codes generated by the target instances. This does not include any response codes generated by the load balancer. @Statistics@ : The most useful statistic is @Sum@ . Note that @Minimum@ , @Maximum@ , and @Average@ all return @1@ .     * __@HTTPCode_Instance_5XX_Count@ __ - The number of HTTP response codes generated by the target instances. This does not include any response codes generated by the load balancer. @Statistics@ : The most useful statistic is @Sum@ . Note that @Minimum@ , @Maximum@ , and @Average@ all return @1@ .     * __@InstanceResponseTime@ __ - The time elapsed, in seconds, after the request leaves the load balancer until a response from the target instance is received. @Statistics@ : The most useful statistic is @Average@ .     * __@RejectedConnectionCount@ __ - The number of connections that were rejected because the load balancer had reached its maximum number of connections. @Statistics@ : The most useful statistic is @Sum@ .     * __@RequestCount@ __ - The number of requests processed over IPv4. This count includes only the requests with a response generated by a target instance of the load balancer. @Statistics@ : The most useful statistic is @Sum@ . Note that @Minimum@ , @Maximum@ , and @Average@ all return @1@ .+--+-- * 'glbmdPeriod' - The time period duration for your health data request.+--+-- * 'glbmdStartTime' - The start time of the period.+--+-- * 'glbmdEndTime' - The end time of the period.+--+-- * 'glbmdUnit' - The unit for the time period request. Valid values are listed below.+--+-- * 'glbmdStatistics' - An array of statistics that you want to request metrics for. Valid values are listed below.     * __@SampleCount@ __ - The count (number) of data points used for the statistical calculation.     * __@Average@ __ - The value of Sum / SampleCount during the specified period. By comparing this statistic with the Minimum and Maximum, you can determine the full scope of a metric and how close the average use is to the Minimum and Maximum. This comparison helps you to know when to increase or decrease your resources as needed.     * __@Sum@ __ - All values submitted for the matching metric added together. This statistic can be useful for determining the total volume of a metric.     * __@Minimum@ __ - The lowest value observed during the specified period. You can use this value to determine low volumes of activity for your application.     * __@Maximum@ __ - The highest value observed during the specified period. You can use this value to determine high volumes of activity for your application.+getLoadBalancerMetricData+    :: Text -- ^ 'glbmdLoadBalancerName'+    -> LoadBalancerMetricName -- ^ 'glbmdMetricName'+    -> Natural -- ^ 'glbmdPeriod'+    -> UTCTime -- ^ 'glbmdStartTime'+    -> UTCTime -- ^ 'glbmdEndTime'+    -> MetricUnit -- ^ 'glbmdUnit'+    -> GetLoadBalancerMetricData+getLoadBalancerMetricData pLoadBalancerName_ pMetricName_ pPeriod_ pStartTime_ pEndTime_ pUnit_ =+  GetLoadBalancerMetricData'+    { _glbmdLoadBalancerName = pLoadBalancerName_+    , _glbmdMetricName = pMetricName_+    , _glbmdPeriod = _Nat # pPeriod_+    , _glbmdStartTime = _Time # pStartTime_+    , _glbmdEndTime = _Time # pEndTime_+    , _glbmdUnit = pUnit_+    , _glbmdStatistics = mempty+    }+++-- | The name of the load balancer.+glbmdLoadBalancerName :: Lens' GetLoadBalancerMetricData Text+glbmdLoadBalancerName = lens _glbmdLoadBalancerName (\ s a -> s{_glbmdLoadBalancerName = a})++-- | The metric about which you want to return information. Valid values are listed below, along with the most useful @statistics@ to include in your request.     * __@ClientTLSNegotiationErrorCount@ __ - The number of TLS connections initiated by the client that did not establish a session with the load balancer. Possible causes include a mismatch of ciphers or protocols. @Statistics@ : The most useful statistic is @Sum@ .     * __@HealthyHostCount@ __ - The number of target instances that are considered healthy. @Statistics@ : The most useful statistic are @Average@ , @Minimum@ , and @Maximum@ .     * __@UnhealthyHostCount@ __ - The number of target instances that are considered unhealthy. @Statistics@ : The most useful statistic are @Average@ , @Minimum@ , and @Maximum@ .     * __@HTTPCode_LB_4XX_Count@ __ - The number of HTTP 4XX client error codes that originate from the load balancer. Client errors are generated when requests are malformed or incomplete. These requests have not been received by the target instance. This count does not include any response codes generated by the target instances. @Statistics@ : The most useful statistic is @Sum@ . Note that @Minimum@ , @Maximum@ , and @Average@ all return @1@ .     * __@HTTPCode_LB_5XX_Count@ __ - The number of HTTP 5XX server error codes that originate from the load balancer. This count does not include any response codes generated by the target instances. @Statistics@ : The most useful statistic is @Sum@ . Note that @Minimum@ , @Maximum@ , and @Average@ all return @1@ . Note that @Minimum@ , @Maximum@ , and @Average@ all return @1@ .     * __@HTTPCode_Instance_2XX_Count@ __ - The number of HTTP response codes generated by the target instances. This does not include any response codes generated by the load balancer. @Statistics@ : The most useful statistic is @Sum@ . Note that @Minimum@ , @Maximum@ , and @Average@ all return @1@ .     * __@HTTPCode_Instance_3XX_Count@ __ - The number of HTTP response codes generated by the target instances. This does not include any response codes generated by the load balancer.  @Statistics@ : The most useful statistic is @Sum@ . Note that @Minimum@ , @Maximum@ , and @Average@ all return @1@ .     * __@HTTPCode_Instance_4XX_Count@ __ - The number of HTTP response codes generated by the target instances. This does not include any response codes generated by the load balancer. @Statistics@ : The most useful statistic is @Sum@ . Note that @Minimum@ , @Maximum@ , and @Average@ all return @1@ .     * __@HTTPCode_Instance_5XX_Count@ __ - The number of HTTP response codes generated by the target instances. This does not include any response codes generated by the load balancer. @Statistics@ : The most useful statistic is @Sum@ . Note that @Minimum@ , @Maximum@ , and @Average@ all return @1@ .     * __@InstanceResponseTime@ __ - The time elapsed, in seconds, after the request leaves the load balancer until a response from the target instance is received. @Statistics@ : The most useful statistic is @Average@ .     * __@RejectedConnectionCount@ __ - The number of connections that were rejected because the load balancer had reached its maximum number of connections. @Statistics@ : The most useful statistic is @Sum@ .     * __@RequestCount@ __ - The number of requests processed over IPv4. This count includes only the requests with a response generated by a target instance of the load balancer. @Statistics@ : The most useful statistic is @Sum@ . Note that @Minimum@ , @Maximum@ , and @Average@ all return @1@ .+glbmdMetricName :: Lens' GetLoadBalancerMetricData LoadBalancerMetricName+glbmdMetricName = lens _glbmdMetricName (\ s a -> s{_glbmdMetricName = a})++-- | The time period duration for your health data request.+glbmdPeriod :: Lens' GetLoadBalancerMetricData Natural+glbmdPeriod = lens _glbmdPeriod (\ s a -> s{_glbmdPeriod = a}) . _Nat++-- | The start time of the period.+glbmdStartTime :: Lens' GetLoadBalancerMetricData UTCTime+glbmdStartTime = lens _glbmdStartTime (\ s a -> s{_glbmdStartTime = a}) . _Time++-- | The end time of the period.+glbmdEndTime :: Lens' GetLoadBalancerMetricData UTCTime+glbmdEndTime = lens _glbmdEndTime (\ s a -> s{_glbmdEndTime = a}) . _Time++-- | The unit for the time period request. Valid values are listed below.+glbmdUnit :: Lens' GetLoadBalancerMetricData MetricUnit+glbmdUnit = lens _glbmdUnit (\ s a -> s{_glbmdUnit = a})++-- | An array of statistics that you want to request metrics for. Valid values are listed below.     * __@SampleCount@ __ - The count (number) of data points used for the statistical calculation.     * __@Average@ __ - The value of Sum / SampleCount during the specified period. By comparing this statistic with the Minimum and Maximum, you can determine the full scope of a metric and how close the average use is to the Minimum and Maximum. This comparison helps you to know when to increase or decrease your resources as needed.     * __@Sum@ __ - All values submitted for the matching metric added together. This statistic can be useful for determining the total volume of a metric.     * __@Minimum@ __ - The lowest value observed during the specified period. You can use this value to determine low volumes of activity for your application.     * __@Maximum@ __ - The highest value observed during the specified period. You can use this value to determine high volumes of activity for your application.+glbmdStatistics :: Lens' GetLoadBalancerMetricData [MetricStatistic]+glbmdStatistics = lens _glbmdStatistics (\ s a -> s{_glbmdStatistics = a}) . _Coerce++instance AWSRequest GetLoadBalancerMetricData where+        type Rs GetLoadBalancerMetricData =+             GetLoadBalancerMetricDataResponse+        request = postJSON lightsail+        response+          = receiveJSON+              (\ s h x ->+                 GetLoadBalancerMetricDataResponse' <$>+                   (x .?> "metricName") <*>+                     (x .?> "metricData" .!@ mempty)+                     <*> (pure (fromEnum s)))++instance Hashable GetLoadBalancerMetricData where++instance NFData GetLoadBalancerMetricData where++instance ToHeaders GetLoadBalancerMetricData where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("Lightsail_20161128.GetLoadBalancerMetricData" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON GetLoadBalancerMetricData where+        toJSON GetLoadBalancerMetricData'{..}+          = object+              (catMaybes+                 [Just ("loadBalancerName" .= _glbmdLoadBalancerName),+                  Just ("metricName" .= _glbmdMetricName),+                  Just ("period" .= _glbmdPeriod),+                  Just ("startTime" .= _glbmdStartTime),+                  Just ("endTime" .= _glbmdEndTime),+                  Just ("unit" .= _glbmdUnit),+                  Just ("statistics" .= _glbmdStatistics)])++instance ToPath GetLoadBalancerMetricData where+        toPath = const "/"++instance ToQuery GetLoadBalancerMetricData where+        toQuery = const mempty++-- | /See:/ 'getLoadBalancerMetricDataResponse' smart constructor.+data GetLoadBalancerMetricDataResponse = GetLoadBalancerMetricDataResponse'+  { _glbmdrsMetricName     :: !(Maybe LoadBalancerMetricName)+  , _glbmdrsMetricData     :: !(Maybe [MetricDatapoint])+  , _glbmdrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'GetLoadBalancerMetricDataResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'glbmdrsMetricName' - The metric about which you are receiving information. Valid values are listed below, along with the most useful @statistics@ to include in your request.     * __@ClientTLSNegotiationErrorCount@ __ - The number of TLS connections initiated by the client that did not establish a session with the load balancer. Possible causes include a mismatch of ciphers or protocols. @Statistics@ : The most useful statistic is @Sum@ .     * __@HealthyHostCount@ __ - The number of target instances that are considered healthy. @Statistics@ : The most useful statistic are @Average@ , @Minimum@ , and @Maximum@ .     * __@UnhealthyHostCount@ __ - The number of target instances that are considered unhealthy. @Statistics@ : The most useful statistic are @Average@ , @Minimum@ , and @Maximum@ .     * __@HTTPCode_LB_4XX_Count@ __ - The number of HTTP 4XX client error codes that originate from the load balancer. Client errors are generated when requests are malformed or incomplete. These requests have not been received by the target instance. This count does not include any response codes generated by the target instances. @Statistics@ : The most useful statistic is @Sum@ . Note that @Minimum@ , @Maximum@ , and @Average@ all return @1@ .     * __@HTTPCode_LB_5XX_Count@ __ - The number of HTTP 5XX server error codes that originate from the load balancer. This count does not include any response codes generated by the target instances. @Statistics@ : The most useful statistic is @Sum@ . Note that @Minimum@ , @Maximum@ , and @Average@ all return @1@ . Note that @Minimum@ , @Maximum@ , and @Average@ all return @1@ .     * __@HTTPCode_Instance_2XX_Count@ __ - The number of HTTP response codes generated by the target instances. This does not include any response codes generated by the load balancer. @Statistics@ : The most useful statistic is @Sum@ . Note that @Minimum@ , @Maximum@ , and @Average@ all return @1@ .     * __@HTTPCode_Instance_3XX_Count@ __ - The number of HTTP response codes generated by the target instances. This does not include any response codes generated by the load balancer.  @Statistics@ : The most useful statistic is @Sum@ . Note that @Minimum@ , @Maximum@ , and @Average@ all return @1@ .     * __@HTTPCode_Instance_4XX_Count@ __ - The number of HTTP response codes generated by the target instances. This does not include any response codes generated by the load balancer. @Statistics@ : The most useful statistic is @Sum@ . Note that @Minimum@ , @Maximum@ , and @Average@ all return @1@ .     * __@HTTPCode_Instance_5XX_Count@ __ - The number of HTTP response codes generated by the target instances. This does not include any response codes generated by the load balancer. @Statistics@ : The most useful statistic is @Sum@ . Note that @Minimum@ , @Maximum@ , and @Average@ all return @1@ .     * __@InstanceResponseTime@ __ - The time elapsed, in seconds, after the request leaves the load balancer until a response from the target instance is received. @Statistics@ : The most useful statistic is @Average@ .     * __@RejectedConnectionCount@ __ - The number of connections that were rejected because the load balancer had reached its maximum number of connections. @Statistics@ : The most useful statistic is @Sum@ .     * __@RequestCount@ __ - The number of requests processed over IPv4. This count includes only the requests with a response generated by a target instance of the load balancer. @Statistics@ : The most useful statistic is @Sum@ . Note that @Minimum@ , @Maximum@ , and @Average@ all return @1@ .+--+-- * 'glbmdrsMetricData' - An array of metric datapoint objects.+--+-- * 'glbmdrsResponseStatus' - -- | The response status code.+getLoadBalancerMetricDataResponse+    :: Int -- ^ 'glbmdrsResponseStatus'+    -> GetLoadBalancerMetricDataResponse+getLoadBalancerMetricDataResponse pResponseStatus_ =+  GetLoadBalancerMetricDataResponse'+    { _glbmdrsMetricName = Nothing+    , _glbmdrsMetricData = Nothing+    , _glbmdrsResponseStatus = pResponseStatus_+    }+++-- | The metric about which you are receiving information. Valid values are listed below, along with the most useful @statistics@ to include in your request.     * __@ClientTLSNegotiationErrorCount@ __ - The number of TLS connections initiated by the client that did not establish a session with the load balancer. Possible causes include a mismatch of ciphers or protocols. @Statistics@ : The most useful statistic is @Sum@ .     * __@HealthyHostCount@ __ - The number of target instances that are considered healthy. @Statistics@ : The most useful statistic are @Average@ , @Minimum@ , and @Maximum@ .     * __@UnhealthyHostCount@ __ - The number of target instances that are considered unhealthy. @Statistics@ : The most useful statistic are @Average@ , @Minimum@ , and @Maximum@ .     * __@HTTPCode_LB_4XX_Count@ __ - The number of HTTP 4XX client error codes that originate from the load balancer. Client errors are generated when requests are malformed or incomplete. These requests have not been received by the target instance. This count does not include any response codes generated by the target instances. @Statistics@ : The most useful statistic is @Sum@ . Note that @Minimum@ , @Maximum@ , and @Average@ all return @1@ .     * __@HTTPCode_LB_5XX_Count@ __ - The number of HTTP 5XX server error codes that originate from the load balancer. This count does not include any response codes generated by the target instances. @Statistics@ : The most useful statistic is @Sum@ . Note that @Minimum@ , @Maximum@ , and @Average@ all return @1@ . Note that @Minimum@ , @Maximum@ , and @Average@ all return @1@ .     * __@HTTPCode_Instance_2XX_Count@ __ - The number of HTTP response codes generated by the target instances. This does not include any response codes generated by the load balancer. @Statistics@ : The most useful statistic is @Sum@ . Note that @Minimum@ , @Maximum@ , and @Average@ all return @1@ .     * __@HTTPCode_Instance_3XX_Count@ __ - The number of HTTP response codes generated by the target instances. This does not include any response codes generated by the load balancer.  @Statistics@ : The most useful statistic is @Sum@ . Note that @Minimum@ , @Maximum@ , and @Average@ all return @1@ .     * __@HTTPCode_Instance_4XX_Count@ __ - The number of HTTP response codes generated by the target instances. This does not include any response codes generated by the load balancer. @Statistics@ : The most useful statistic is @Sum@ . Note that @Minimum@ , @Maximum@ , and @Average@ all return @1@ .     * __@HTTPCode_Instance_5XX_Count@ __ - The number of HTTP response codes generated by the target instances. This does not include any response codes generated by the load balancer. @Statistics@ : The most useful statistic is @Sum@ . Note that @Minimum@ , @Maximum@ , and @Average@ all return @1@ .     * __@InstanceResponseTime@ __ - The time elapsed, in seconds, after the request leaves the load balancer until a response from the target instance is received. @Statistics@ : The most useful statistic is @Average@ .     * __@RejectedConnectionCount@ __ - The number of connections that were rejected because the load balancer had reached its maximum number of connections. @Statistics@ : The most useful statistic is @Sum@ .     * __@RequestCount@ __ - The number of requests processed over IPv4. This count includes only the requests with a response generated by a target instance of the load balancer. @Statistics@ : The most useful statistic is @Sum@ . Note that @Minimum@ , @Maximum@ , and @Average@ all return @1@ .+glbmdrsMetricName :: Lens' GetLoadBalancerMetricDataResponse (Maybe LoadBalancerMetricName)+glbmdrsMetricName = lens _glbmdrsMetricName (\ s a -> s{_glbmdrsMetricName = a})++-- | An array of metric datapoint objects.+glbmdrsMetricData :: Lens' GetLoadBalancerMetricDataResponse [MetricDatapoint]+glbmdrsMetricData = lens _glbmdrsMetricData (\ s a -> s{_glbmdrsMetricData = a}) . _Default . _Coerce++-- | -- | The response status code.+glbmdrsResponseStatus :: Lens' GetLoadBalancerMetricDataResponse Int+glbmdrsResponseStatus = lens _glbmdrsResponseStatus (\ s a -> s{_glbmdrsResponseStatus = a})++instance NFData GetLoadBalancerMetricDataResponse+         where

@@ -0,0 +1,148 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.Lightsail.GetLoadBalancerTLSCertificates+-- 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+-- Portability : non-portable (GHC extensions)+--+-- Returns information about the TLS certificates that are associated with the specified Lightsail load balancer.+--+--+-- TLS is just an updated, more secure version of Secure Socket Layer (SSL).+--+-- You can have a maximum of 2 certificates associated with a Lightsail load balancer. One is active and the other is inactive.+--+module Network.AWS.Lightsail.GetLoadBalancerTLSCertificates+    (+    -- * Creating a Request+      getLoadBalancerTLSCertificates+    , GetLoadBalancerTLSCertificates+    -- * Request Lenses+    , glbtcLoadBalancerName++    -- * Destructuring the Response+    , getLoadBalancerTLSCertificatesResponse+    , GetLoadBalancerTLSCertificatesResponse+    -- * Response Lenses+    , glbtcrsTlsCertificates+    , glbtcrsResponseStatus+    ) where++import Network.AWS.Lens+import Network.AWS.Lightsail.Types+import Network.AWS.Lightsail.Types.Product+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response++-- | /See:/ 'getLoadBalancerTLSCertificates' smart constructor.+newtype GetLoadBalancerTLSCertificates = GetLoadBalancerTLSCertificates'+  { _glbtcLoadBalancerName :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'GetLoadBalancerTLSCertificates' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'glbtcLoadBalancerName' - The name of the load balancer you associated with your SSL/TLS certificate.+getLoadBalancerTLSCertificates+    :: Text -- ^ 'glbtcLoadBalancerName'+    -> GetLoadBalancerTLSCertificates+getLoadBalancerTLSCertificates pLoadBalancerName_ =+  GetLoadBalancerTLSCertificates' {_glbtcLoadBalancerName = pLoadBalancerName_}+++-- | The name of the load balancer you associated with your SSL/TLS certificate.+glbtcLoadBalancerName :: Lens' GetLoadBalancerTLSCertificates Text+glbtcLoadBalancerName = lens _glbtcLoadBalancerName (\ s a -> s{_glbtcLoadBalancerName = a})++instance AWSRequest GetLoadBalancerTLSCertificates+         where+        type Rs GetLoadBalancerTLSCertificates =+             GetLoadBalancerTLSCertificatesResponse+        request = postJSON lightsail+        response+          = receiveJSON+              (\ s h x ->+                 GetLoadBalancerTLSCertificatesResponse' <$>+                   (x .?> "tlsCertificates" .!@ mempty) <*>+                     (pure (fromEnum s)))++instance Hashable GetLoadBalancerTLSCertificates+         where++instance NFData GetLoadBalancerTLSCertificates where++instance ToHeaders GetLoadBalancerTLSCertificates+         where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("Lightsail_20161128.GetLoadBalancerTlsCertificates"+                       :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON GetLoadBalancerTLSCertificates where+        toJSON GetLoadBalancerTLSCertificates'{..}+          = object+              (catMaybes+                 [Just+                    ("loadBalancerName" .= _glbtcLoadBalancerName)])++instance ToPath GetLoadBalancerTLSCertificates where+        toPath = const "/"++instance ToQuery GetLoadBalancerTLSCertificates where+        toQuery = const mempty++-- | /See:/ 'getLoadBalancerTLSCertificatesResponse' smart constructor.+data GetLoadBalancerTLSCertificatesResponse = GetLoadBalancerTLSCertificatesResponse'+  { _glbtcrsTlsCertificates :: !(Maybe [LoadBalancerTLSCertificate])+  , _glbtcrsResponseStatus  :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'GetLoadBalancerTLSCertificatesResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'glbtcrsTlsCertificates' - An array of LoadBalancerTlsCertificate objects describing your SSL/TLS certificates.+--+-- * 'glbtcrsResponseStatus' - -- | The response status code.+getLoadBalancerTLSCertificatesResponse+    :: Int -- ^ 'glbtcrsResponseStatus'+    -> GetLoadBalancerTLSCertificatesResponse+getLoadBalancerTLSCertificatesResponse pResponseStatus_ =+  GetLoadBalancerTLSCertificatesResponse'+    { _glbtcrsTlsCertificates = Nothing+    , _glbtcrsResponseStatus = pResponseStatus_+    }+++-- | An array of LoadBalancerTlsCertificate objects describing your SSL/TLS certificates.+glbtcrsTlsCertificates :: Lens' GetLoadBalancerTLSCertificatesResponse [LoadBalancerTLSCertificate]+glbtcrsTlsCertificates = lens _glbtcrsTlsCertificates (\ s a -> s{_glbtcrsTlsCertificates = a}) . _Default . _Coerce++-- | -- | The response status code.+glbtcrsResponseStatus :: Lens' GetLoadBalancerTLSCertificatesResponse Int+glbtcrsResponseStatus = lens _glbtcrsResponseStatus (\ s a -> s{_glbtcrsResponseStatus = a})++instance NFData+           GetLoadBalancerTLSCertificatesResponse+         where

@@ -0,0 +1,146 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.Lightsail.GetLoadBalancers+-- 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+-- Portability : non-portable (GHC extensions)+--+-- Returns information about all load balancers in an account.+--+--+-- If you are describing a long list of load balancers, you can paginate the output to make the list more manageable. You can use the pageToken and nextPageToken values to retrieve the next items in the list.+--+module Network.AWS.Lightsail.GetLoadBalancers+    (+    -- * Creating a Request+      getLoadBalancers+    , GetLoadBalancers+    -- * Request Lenses+    , glbPageToken++    -- * Destructuring the Response+    , getLoadBalancersResponse+    , GetLoadBalancersResponse+    -- * Response Lenses+    , glbsrsNextPageToken+    , glbsrsLoadBalancers+    , glbsrsResponseStatus+    ) where++import Network.AWS.Lens+import Network.AWS.Lightsail.Types+import Network.AWS.Lightsail.Types.Product+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response++-- | /See:/ 'getLoadBalancers' smart constructor.+newtype GetLoadBalancers = GetLoadBalancers'+  { _glbPageToken :: Maybe Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'GetLoadBalancers' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'glbPageToken' - A token used for paginating the results from your GetLoadBalancers request.+getLoadBalancers+    :: GetLoadBalancers+getLoadBalancers = GetLoadBalancers' {_glbPageToken = Nothing}+++-- | A token used for paginating the results from your GetLoadBalancers request.+glbPageToken :: Lens' GetLoadBalancers (Maybe Text)+glbPageToken = lens _glbPageToken (\ s a -> s{_glbPageToken = a})++instance AWSRequest GetLoadBalancers where+        type Rs GetLoadBalancers = GetLoadBalancersResponse+        request = postJSON lightsail+        response+          = receiveJSON+              (\ s h x ->+                 GetLoadBalancersResponse' <$>+                   (x .?> "nextPageToken") <*>+                     (x .?> "loadBalancers" .!@ mempty)+                     <*> (pure (fromEnum s)))++instance Hashable GetLoadBalancers where++instance NFData GetLoadBalancers where++instance ToHeaders GetLoadBalancers where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("Lightsail_20161128.GetLoadBalancers" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON GetLoadBalancers where+        toJSON GetLoadBalancers'{..}+          = object+              (catMaybes [("pageToken" .=) <$> _glbPageToken])++instance ToPath GetLoadBalancers where+        toPath = const "/"++instance ToQuery GetLoadBalancers where+        toQuery = const mempty++-- | /See:/ 'getLoadBalancersResponse' smart constructor.+data GetLoadBalancersResponse = GetLoadBalancersResponse'+  { _glbsrsNextPageToken  :: !(Maybe Text)+  , _glbsrsLoadBalancers  :: !(Maybe [LoadBalancer])+  , _glbsrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'GetLoadBalancersResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'glbsrsNextPageToken' - A token used for advancing to the next page of results from your GetLoadBalancers request.+--+-- * 'glbsrsLoadBalancers' - An array of LoadBalancer objects describing your load balancers.+--+-- * 'glbsrsResponseStatus' - -- | The response status code.+getLoadBalancersResponse+    :: Int -- ^ 'glbsrsResponseStatus'+    -> GetLoadBalancersResponse+getLoadBalancersResponse pResponseStatus_ =+  GetLoadBalancersResponse'+    { _glbsrsNextPageToken = Nothing+    , _glbsrsLoadBalancers = Nothing+    , _glbsrsResponseStatus = pResponseStatus_+    }+++-- | A token used for advancing to the next page of results from your GetLoadBalancers request.+glbsrsNextPageToken :: Lens' GetLoadBalancersResponse (Maybe Text)+glbsrsNextPageToken = lens _glbsrsNextPageToken (\ s a -> s{_glbsrsNextPageToken = a})++-- | An array of LoadBalancer objects describing your load balancers.+glbsrsLoadBalancers :: Lens' GetLoadBalancersResponse [LoadBalancer]+glbsrsLoadBalancers = lens _glbsrsLoadBalancers (\ s a -> s{_glbsrsLoadBalancers = a}) . _Default . _Coerce++-- | -- | The response status code.+glbsrsResponseStatus :: Lens' GetLoadBalancersResponse Int+glbsrsResponseStatus = lens _glbsrsResponseStatus (\ s a -> s{_glbsrsResponseStatus = a})++instance NFData GetLoadBalancersResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Lightsail.GetOperation--- 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@@ -63,7 +63,7 @@  -- | A GUID used to identify the operation. goOperationId :: Lens' GetOperation Text-goOperationId = lens _goOperationId (\ s a -> s{_goOperationId = a});+goOperationId = lens _goOperationId (\ s a -> s{_goOperationId = a})  instance AWSRequest GetOperation where         type Rs GetOperation = GetOperationResponse@@ -117,15 +117,15 @@     -> GetOperationResponse getOperationResponse pResponseStatus_ =   GetOperationResponse'-  {_gorsOperation = Nothing, _gorsResponseStatus = pResponseStatus_}+    {_gorsOperation = Nothing, _gorsResponseStatus = pResponseStatus_}   -- | An array of key-value pairs containing information about the results of your get operation request. gorsOperation :: Lens' GetOperationResponse (Maybe Operation)-gorsOperation = lens _gorsOperation (\ s a -> s{_gorsOperation = a});+gorsOperation = lens _gorsOperation (\ s a -> s{_gorsOperation = a})  -- | -- | The response status code. gorsResponseStatus :: Lens' GetOperationResponse Int-gorsResponseStatus = lens _gorsResponseStatus (\ s a -> s{_gorsResponseStatus = a});+gorsResponseStatus = lens _gorsResponseStatus (\ s a -> s{_gorsResponseStatus = a})  instance NFData GetOperationResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Lightsail.GetOperations--- 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,7 +68,7 @@  -- | A token used for advancing to the next page of results from your get operations request. goPageToken :: Lens' GetOperations (Maybe Text)-goPageToken = lens _goPageToken (\ s a -> s{_goPageToken = a});+goPageToken = lens _goPageToken (\ s a -> s{_goPageToken = a})  instance AWSPager GetOperations where         page rq rs@@ -134,22 +134,22 @@     -> GetOperationsResponse getOperationsResponse pResponseStatus_ =   GetOperationsResponse'-  { _gosrsNextPageToken = Nothing-  , _gosrsOperations = Nothing-  , _gosrsResponseStatus = pResponseStatus_-  }+    { _gosrsNextPageToken = Nothing+    , _gosrsOperations = Nothing+    , _gosrsResponseStatus = pResponseStatus_+    }   -- | A token used for advancing to the next page of results from your get operations request. gosrsNextPageToken :: Lens' GetOperationsResponse (Maybe Text)-gosrsNextPageToken = lens _gosrsNextPageToken (\ s a -> s{_gosrsNextPageToken = a});+gosrsNextPageToken = lens _gosrsNextPageToken (\ s a -> s{_gosrsNextPageToken = a})  -- | An array of key-value pairs containing information about the results of your get operations request. gosrsOperations :: Lens' GetOperationsResponse [Operation]-gosrsOperations = lens _gosrsOperations (\ s a -> s{_gosrsOperations = a}) . _Default . _Coerce;+gosrsOperations = lens _gosrsOperations (\ s a -> s{_gosrsOperations = a}) . _Default . _Coerce  -- | -- | The response status code. gosrsResponseStatus :: Lens' GetOperationsResponse Int-gosrsResponseStatus = lens _gosrsResponseStatus (\ s a -> s{_gosrsResponseStatus = a});+gosrsResponseStatus = lens _gosrsResponseStatus (\ s a -> s{_gosrsResponseStatus = a})  instance NFData GetOperationsResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Lightsail.GetOperationsForResource--- 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@@ -66,16 +66,16 @@     -> GetOperationsForResource getOperationsForResource pResourceName_ =   GetOperationsForResource'-  {_gofrPageToken = Nothing, _gofrResourceName = pResourceName_}+    {_gofrPageToken = Nothing, _gofrResourceName = pResourceName_}   -- | A token used for advancing to the next page of results from your get operations for resource request. gofrPageToken :: Lens' GetOperationsForResource (Maybe Text)-gofrPageToken = lens _gofrPageToken (\ s a -> s{_gofrPageToken = a});+gofrPageToken = lens _gofrPageToken (\ s a -> s{_gofrPageToken = a})  -- | The name of the resource for which you are requesting information. gofrResourceName :: Lens' GetOperationsForResource Text-gofrResourceName = lens _gofrResourceName (\ s a -> s{_gofrResourceName = a});+gofrResourceName = lens _gofrResourceName (\ s a -> s{_gofrResourceName = a})  instance AWSRequest GetOperationsForResource where         type Rs GetOperationsForResource =@@ -141,28 +141,28 @@     -> GetOperationsForResourceResponse getOperationsForResourceResponse pResponseStatus_ =   GetOperationsForResourceResponse'-  { _gofrrsNextPageCount = Nothing-  , _gofrrsNextPageToken = Nothing-  , _gofrrsOperations = Nothing-  , _gofrrsResponseStatus = pResponseStatus_-  }+    { _gofrrsNextPageCount = Nothing+    , _gofrrsNextPageToken = Nothing+    , _gofrrsOperations = Nothing+    , _gofrrsResponseStatus = pResponseStatus_+    }   -- | (Deprecated) Returns the number of pages of results that remain. gofrrsNextPageCount :: Lens' GetOperationsForResourceResponse (Maybe Text)-gofrrsNextPageCount = lens _gofrrsNextPageCount (\ s a -> s{_gofrrsNextPageCount = a});+gofrrsNextPageCount = lens _gofrrsNextPageCount (\ s a -> s{_gofrrsNextPageCount = a})  -- | An identifier that was returned from the previous call to this operation, which can be used to return the next set of items in the list. gofrrsNextPageToken :: Lens' GetOperationsForResourceResponse (Maybe Text)-gofrrsNextPageToken = lens _gofrrsNextPageToken (\ s a -> s{_gofrrsNextPageToken = a});+gofrrsNextPageToken = lens _gofrrsNextPageToken (\ s a -> s{_gofrrsNextPageToken = a})  -- | An array of key-value pairs containing information about the results of your get operations for resource request. gofrrsOperations :: Lens' GetOperationsForResourceResponse [Operation]-gofrrsOperations = lens _gofrrsOperations (\ s a -> s{_gofrrsOperations = a}) . _Default . _Coerce;+gofrrsOperations = lens _gofrrsOperations (\ s a -> s{_gofrrsOperations = a}) . _Default . _Coerce  -- | -- | The response status code. gofrrsResponseStatus :: Lens' GetOperationsForResourceResponse Int-gofrrsResponseStatus = lens _gofrrsResponseStatus (\ s a -> s{_gofrrsResponseStatus = a});+gofrrsResponseStatus = lens _gofrrsResponseStatus (\ s a -> s{_gofrrsResponseStatus = a})  instance NFData GetOperationsForResourceResponse          where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Lightsail.GetRegions--- 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@@ -54,15 +54,15 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'grIncludeAvailabilityZones' - A Boolean value indicating whether to also include Availability Zones in your get regions request. Availability Zones are indicated with a letter: e.g., @us-east-1a@ .+-- * 'grIncludeAvailabilityZones' - A Boolean value indicating whether to also include Availability Zones in your get regions request. Availability Zones are indicated with a letter: e.g., @us-east-2a@ . getRegions     :: GetRegions getRegions = GetRegions' {_grIncludeAvailabilityZones = Nothing}  --- | A Boolean value indicating whether to also include Availability Zones in your get regions request. Availability Zones are indicated with a letter: e.g., @us-east-1a@ .+-- | A Boolean value indicating whether to also include Availability Zones in your get regions request. Availability Zones are indicated with a letter: e.g., @us-east-2a@ . grIncludeAvailabilityZones :: Lens' GetRegions (Maybe Bool)-grIncludeAvailabilityZones = lens _grIncludeAvailabilityZones (\ s a -> s{_grIncludeAvailabilityZones = a});+grIncludeAvailabilityZones = lens _grIncludeAvailabilityZones (\ s a -> s{_grIncludeAvailabilityZones = a})  instance AWSRequest GetRegions where         type Rs GetRegions = GetRegionsResponse@@ -118,15 +118,15 @@     -> GetRegionsResponse getRegionsResponse pResponseStatus_ =   GetRegionsResponse'-  {_grrsRegions = Nothing, _grrsResponseStatus = pResponseStatus_}+    {_grrsRegions = Nothing, _grrsResponseStatus = pResponseStatus_}   -- | An array of key-value pairs containing information about your get regions request. grrsRegions :: Lens' GetRegionsResponse [RegionInfo]-grrsRegions = lens _grrsRegions (\ s a -> s{_grrsRegions = a}) . _Default . _Coerce;+grrsRegions = lens _grrsRegions (\ s a -> s{_grrsRegions = a}) . _Default . _Coerce  -- | -- | The response status code. grrsResponseStatus :: Lens' GetRegionsResponse Int-grrsResponseStatus = lens _grrsResponseStatus (\ s a -> s{_grrsResponseStatus = a});+grrsResponseStatus = lens _grrsResponseStatus (\ s a -> s{_grrsResponseStatus = a})  instance NFData GetRegionsResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Lightsail.GetStaticIP--- 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@@ -63,7 +63,7 @@  -- | The name of the static IP in Lightsail. gsiStaticIPName :: Lens' GetStaticIP Text-gsiStaticIPName = lens _gsiStaticIPName (\ s a -> s{_gsiStaticIPName = a});+gsiStaticIPName = lens _gsiStaticIPName (\ s a -> s{_gsiStaticIPName = a})  instance AWSRequest GetStaticIP where         type Rs GetStaticIP = GetStaticIPResponse@@ -118,15 +118,15 @@     -> GetStaticIPResponse getStaticIPResponse pResponseStatus_ =   GetStaticIPResponse'-  {_gsirsStaticIP = Nothing, _gsirsResponseStatus = pResponseStatus_}+    {_gsirsStaticIP = Nothing, _gsirsResponseStatus = pResponseStatus_}   -- | An array of key-value pairs containing information about the requested static IP. gsirsStaticIP :: Lens' GetStaticIPResponse (Maybe StaticIP)-gsirsStaticIP = lens _gsirsStaticIP (\ s a -> s{_gsirsStaticIP = a});+gsirsStaticIP = lens _gsirsStaticIP (\ s a -> s{_gsirsStaticIP = a})  -- | -- | The response status code. gsirsResponseStatus :: Lens' GetStaticIPResponse Int-gsirsResponseStatus = lens _gsirsResponseStatus (\ s a -> s{_gsirsResponseStatus = a});+gsirsResponseStatus = lens _gsirsResponseStatus (\ s a -> s{_gsirsResponseStatus = a})  instance NFData GetStaticIPResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Lightsail.GetStaticIPs--- 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@@ -66,7 +66,7 @@  -- | A token used for advancing to the next page of results from your get static IPs request. gsiPageToken :: Lens' GetStaticIPs (Maybe Text)-gsiPageToken = lens _gsiPageToken (\ s a -> s{_gsiPageToken = a});+gsiPageToken = lens _gsiPageToken (\ s a -> s{_gsiPageToken = a})  instance AWSPager GetStaticIPs where         page rq rs@@ -132,22 +132,22 @@     -> GetStaticIPsResponse getStaticIPsResponse pResponseStatus_ =   GetStaticIPsResponse'-  { _gsiprsNextPageToken = Nothing-  , _gsiprsStaticIPs = Nothing-  , _gsiprsResponseStatus = pResponseStatus_-  }+    { _gsiprsNextPageToken = Nothing+    , _gsiprsStaticIPs = Nothing+    , _gsiprsResponseStatus = pResponseStatus_+    }   -- | A token used for advancing to the next page of results from your get static IPs request. gsiprsNextPageToken :: Lens' GetStaticIPsResponse (Maybe Text)-gsiprsNextPageToken = lens _gsiprsNextPageToken (\ s a -> s{_gsiprsNextPageToken = a});+gsiprsNextPageToken = lens _gsiprsNextPageToken (\ s a -> s{_gsiprsNextPageToken = a})  -- | An array of key-value pairs containing information about your get static IPs request. gsiprsStaticIPs :: Lens' GetStaticIPsResponse [StaticIP]-gsiprsStaticIPs = lens _gsiprsStaticIPs (\ s a -> s{_gsiprsStaticIPs = a}) . _Default . _Coerce;+gsiprsStaticIPs = lens _gsiprsStaticIPs (\ s a -> s{_gsiprsStaticIPs = a}) . _Default . _Coerce  -- | -- | The response status code. gsiprsResponseStatus :: Lens' GetStaticIPsResponse Int-gsiprsResponseStatus = lens _gsiprsResponseStatus (\ s a -> s{_gsiprsResponseStatus = a});+gsiprsResponseStatus = lens _gsiprsResponseStatus (\ s a -> s{_gsiprsResponseStatus = a})  instance NFData GetStaticIPsResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Lightsail.ImportKeyPair--- 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,16 +65,16 @@     -> ImportKeyPair importKeyPair pKeyPairName_ pPublicKeyBase64_ =   ImportKeyPair'-  {_ikpKeyPairName = pKeyPairName_, _ikpPublicKeyBase64 = pPublicKeyBase64_}+    {_ikpKeyPairName = pKeyPairName_, _ikpPublicKeyBase64 = pPublicKeyBase64_}   -- | The name of the key pair for which you want to import the public key. ikpKeyPairName :: Lens' ImportKeyPair Text-ikpKeyPairName = lens _ikpKeyPairName (\ s a -> s{_ikpKeyPairName = a});+ikpKeyPairName = lens _ikpKeyPairName (\ s a -> s{_ikpKeyPairName = a})  -- | A base64-encoded public key of the @ssh-rsa@ type. ikpPublicKeyBase64 :: Lens' ImportKeyPair Text-ikpPublicKeyBase64 = lens _ikpPublicKeyBase64 (\ s a -> s{_ikpPublicKeyBase64 = a});+ikpPublicKeyBase64 = lens _ikpPublicKeyBase64 (\ s a -> s{_ikpPublicKeyBase64 = a})  instance AWSRequest ImportKeyPair where         type Rs ImportKeyPair = ImportKeyPairResponse@@ -130,15 +130,15 @@     -> ImportKeyPairResponse importKeyPairResponse pResponseStatus_ =   ImportKeyPairResponse'-  {_ikprsOperation = Nothing, _ikprsResponseStatus = pResponseStatus_}+    {_ikprsOperation = Nothing, _ikprsResponseStatus = pResponseStatus_}   -- | An array of key-value pairs containing information about the request operation. ikprsOperation :: Lens' ImportKeyPairResponse (Maybe Operation)-ikprsOperation = lens _ikprsOperation (\ s a -> s{_ikprsOperation = a});+ikprsOperation = lens _ikprsOperation (\ s a -> s{_ikprsOperation = a})  -- | -- | The response status code. ikprsResponseStatus :: Lens' ImportKeyPairResponse Int-ikprsResponseStatus = lens _ikprsResponseStatus (\ s a -> s{_ikprsResponseStatus = a});+ikprsResponseStatus = lens _ikprsResponseStatus (\ s a -> s{_ikprsResponseStatus = a})  instance NFData ImportKeyPairResponse where