packages feed

amazonka-ec2 (empty) → 0.0.0

raw patch · 161 files changed

+36110/−0 lines, 161 filesdep +amazonka-coredep +basesetup-changed

Dependencies added: amazonka-core, base

Files

+ LICENSE view
@@ -0,0 +1,373 @@+Mozilla Public License Version 2.0+==================================++1. Definitions+--------------++1.1. "Contributor"+    means each individual or legal entity that creates, contributes to+    the creation of, or owns Covered Software.++1.2. "Contributor Version"+    means the combination of the Contributions of others (if any) used+    by a Contributor and that particular Contributor's Contribution.++1.3. "Contribution"+    means Covered Software of a particular Contributor.++1.4. "Covered Software"+    means Source Code Form to which the initial Contributor has attached+    the notice in Exhibit A, the Executable Form of such Source Code+    Form, and Modifications of such Source Code Form, in each case+    including portions thereof.++1.5. "Incompatible With Secondary Licenses"+    means++    (a) that the initial Contributor has attached the notice described+        in Exhibit B to the Covered Software; or++    (b) that the Covered Software was made available under the terms of+        version 1.1 or earlier of the License, but not also under the+        terms of a Secondary License.++1.6. "Executable Form"+    means any form of the work other than Source Code Form.++1.7. "Larger Work"+    means a work that combines Covered Software with other material, in+    a separate file or files, that is not Covered Software.++1.8. "License"+    means this document.++1.9. "Licensable"+    means having the right to grant, to the maximum extent possible,+    whether at the time of the initial grant or subsequently, any and+    all of the rights conveyed by this License.++1.10. "Modifications"+    means any of the following:++    (a) any file in Source Code Form that results from an addition to,+        deletion from, or modification of the contents of Covered+        Software; or++    (b) any new file in Source Code Form that contains any Covered+        Software.++1.11. "Patent Claims" of a Contributor+    means any patent claim(s), including without limitation, method,+    process, and apparatus claims, in any patent Licensable by such+    Contributor that would be infringed, but for the grant of the+    License, by the making, using, selling, offering for sale, having+    made, import, or transfer of either its Contributions or its+    Contributor Version.++1.12. "Secondary License"+    means either the GNU General Public License, Version 2.0, the GNU+    Lesser General Public License, Version 2.1, the GNU Affero General+    Public License, Version 3.0, or any later versions of those+    licenses.++1.13. "Source Code Form"+    means the form of the work preferred for making modifications.++1.14. "You" (or "Your")+    means an individual or a legal entity exercising rights under this+    License. For legal entities, "You" includes any entity that+    controls, is controlled by, or is under common control with You. For+    purposes of this definition, "control" means (a) the power, direct+    or indirect, to cause the direction or management of such entity,+    whether by contract or otherwise, or (b) ownership of more than+    fifty percent (50%) of the outstanding shares or beneficial+    ownership of such entity.++2. License Grants and Conditions+--------------------------------++2.1. Grants++Each Contributor hereby grants You a world-wide, royalty-free,+non-exclusive license:++(a) under intellectual property rights (other than patent or trademark)+    Licensable by such Contributor to use, reproduce, make available,+    modify, display, perform, distribute, and otherwise exploit its+    Contributions, either on an unmodified basis, with Modifications, or+    as part of a Larger Work; and++(b) under Patent Claims of such Contributor to make, use, sell, offer+    for sale, have made, import, and otherwise transfer either its+    Contributions or its Contributor Version.++2.2. Effective Date++The licenses granted in Section 2.1 with respect to any Contribution+become effective for each Contribution on the date the Contributor first+distributes such Contribution.++2.3. Limitations on Grant Scope++The licenses granted in this Section 2 are the only rights granted under+this License. No additional rights or licenses will be implied from the+distribution or licensing of Covered Software under this License.+Notwithstanding Section 2.1(b) above, no patent license is granted by a+Contributor:++(a) for any code that a Contributor has removed from Covered Software;+    or++(b) for infringements caused by: (i) Your and any other third party's+    modifications of Covered Software, or (ii) the combination of its+    Contributions with other software (except as part of its Contributor+    Version); or++(c) under Patent Claims infringed by Covered Software in the absence of+    its Contributions.++This License does not grant any rights in the trademarks, service marks,+or logos of any Contributor (except as may be necessary to comply with+the notice requirements in Section 3.4).++2.4. Subsequent Licenses++No Contributor makes additional grants as a result of Your choice to+distribute the Covered Software under a subsequent version of this+License (see Section 10.2) or under the terms of a Secondary License (if+permitted under the terms of Section 3.3).++2.5. Representation++Each Contributor represents that the Contributor believes its+Contributions are its original creation(s) or it has sufficient rights+to grant the rights to its Contributions conveyed by this License.++2.6. Fair Use++This License is not intended to limit any rights You have under+applicable copyright doctrines of fair use, fair dealing, or other+equivalents.++2.7. Conditions++Sections 3.1, 3.2, 3.3, and 3.4 are conditions of the licenses granted+in Section 2.1.++3. Responsibilities+-------------------++3.1. Distribution of Source Form++All distribution of Covered Software in Source Code Form, including any+Modifications that You create or to which You contribute, must be under+the terms of this License. You must inform recipients that the Source+Code Form of the Covered Software is governed by the terms of this+License, and how they can obtain a copy of this License. You may not+attempt to alter or restrict the recipients' rights in the Source Code+Form.++3.2. Distribution of Executable Form++If You distribute Covered Software in Executable Form then:++(a) such Covered Software must also be made available in Source Code+    Form, as described in Section 3.1, and You must inform recipients of+    the Executable Form how they can obtain a copy of such Source Code+    Form by reasonable means in a timely manner, at a charge no more+    than the cost of distribution to the recipient; and++(b) You may distribute such Executable Form under the terms of this+    License, or sublicense it under different terms, provided that the+    license for the Executable Form does not attempt to limit or alter+    the recipients' rights in the Source Code Form under this License.++3.3. Distribution of a Larger Work++You may create and distribute a Larger Work under terms of Your choice,+provided that You also comply with the requirements of this License for+the Covered Software. If the Larger Work is a combination of Covered+Software with a work governed by one or more Secondary Licenses, and the+Covered Software is not Incompatible With Secondary Licenses, this+License permits You to additionally distribute such Covered Software+under the terms of such Secondary License(s), so that the recipient of+the Larger Work may, at their option, further distribute the Covered+Software under the terms of either this License or such Secondary+License(s).++3.4. Notices++You may not remove or alter the substance of any license notices+(including copyright notices, patent notices, disclaimers of warranty,+or limitations of liability) contained within the Source Code Form of+the Covered Software, except that You may alter any license notices to+the extent required to remedy known factual inaccuracies.++3.5. Application of Additional Terms++You may choose to offer, and to charge a fee for, warranty, support,+indemnity or liability obligations to one or more recipients of Covered+Software. However, You may do so only on Your own behalf, and not on+behalf of any Contributor. You must make it absolutely clear that any+such warranty, support, indemnity, or liability obligation is offered by+You alone, and You hereby agree to indemnify every Contributor for any+liability incurred by such Contributor as a result of warranty, support,+indemnity or liability terms You offer. You may include additional+disclaimers of warranty and limitations of liability specific to any+jurisdiction.++4. Inability to Comply Due to Statute or Regulation+---------------------------------------------------++If it is impossible for You to comply with any of the terms of this+License with respect to some or all of the Covered Software due to+statute, judicial order, or regulation then You must: (a) comply with+the terms of this License to the maximum extent possible; and (b)+describe the limitations and the code they affect. Such description must+be placed in a text file included with all distributions of the Covered+Software under this License. Except to the extent prohibited by statute+or regulation, such description must be sufficiently detailed for a+recipient of ordinary skill to be able to understand it.++5. Termination+--------------++5.1. The rights granted under this License will terminate automatically+if You fail to comply with any of its terms. However, if You become+compliant, then the rights granted under this License from a particular+Contributor are reinstated (a) provisionally, unless and until such+Contributor explicitly and finally terminates Your grants, and (b) on an+ongoing basis, if such Contributor fails to notify You of the+non-compliance by some reasonable means prior to 60 days after You have+come back into compliance. Moreover, Your grants from a particular+Contributor are reinstated on an ongoing basis if such Contributor+notifies You of the non-compliance by some reasonable means, this is the+first time You have received notice of non-compliance with this License+from such Contributor, and You become compliant prior to 30 days after+Your receipt of the notice.++5.2. If You initiate litigation against any entity by asserting a patent+infringement claim (excluding declaratory judgment actions,+counter-claims, and cross-claims) alleging that a Contributor Version+directly or indirectly infringes any patent, then the rights granted to+You by any and all Contributors for the Covered Software under Section+2.1 of this License shall terminate.++5.3. In the event of termination under Sections 5.1 or 5.2 above, all+end user license agreements (excluding distributors and resellers) which+have been validly granted by You or Your distributors under this License+prior to termination shall survive termination.++************************************************************************+*                                                                      *+*  6. Disclaimer of Warranty                                           *+*  -------------------------                                           *+*                                                                      *+*  Covered Software is provided under this License on an "as is"       *+*  basis, without warranty of any kind, either expressed, implied, or  *+*  statutory, including, without limitation, warranties that the       *+*  Covered Software is free of defects, merchantable, fit for a        *+*  particular purpose or non-infringing. The entire risk as to the     *+*  quality and performance of the Covered Software is with You.        *+*  Should any Covered Software prove defective in any respect, You     *+*  (not any Contributor) assume the cost of any necessary servicing,   *+*  repair, or correction. This disclaimer of warranty constitutes an   *+*  essential part of this License. No use of any Covered Software is   *+*  authorized under this License except under this disclaimer.         *+*                                                                      *+************************************************************************++************************************************************************+*                                                                      *+*  7. Limitation of Liability                                          *+*  --------------------------                                          *+*                                                                      *+*  Under no circumstances and under no legal theory, whether tort      *+*  (including negligence), contract, or otherwise, shall any           *+*  Contributor, or anyone who distributes Covered Software as          *+*  permitted above, be liable to You for any direct, indirect,         *+*  special, incidental, or consequential damages of any character      *+*  including, without limitation, damages for lost profits, loss of    *+*  goodwill, work stoppage, computer failure or malfunction, or any    *+*  and all other commercial damages or losses, even if such party      *+*  shall have been informed of the possibility of such damages. This   *+*  limitation of liability shall not apply to liability for death or   *+*  personal injury resulting from such party's negligence to the       *+*  extent applicable law prohibits such limitation. Some               *+*  jurisdictions do not allow the exclusion or limitation of           *+*  incidental or consequential damages, so this exclusion and          *+*  limitation may not apply to You.                                    *+*                                                                      *+************************************************************************++8. Litigation+-------------++Any litigation relating to this License may be brought only in the+courts of a jurisdiction where the defendant maintains its principal+place of business and such litigation shall be governed by laws of that+jurisdiction, without reference to its conflict-of-law provisions.+Nothing in this Section shall prevent a party's ability to bring+cross-claims or counter-claims.++9. Miscellaneous+----------------++This License represents the complete agreement concerning the subject+matter hereof. If any provision of this License is held to be+unenforceable, such provision shall be reformed only to the extent+necessary to make it enforceable. Any law or regulation which provides+that the language of a contract shall be construed against the drafter+shall not be used to construe this License against a Contributor.++10. Versions of the License+---------------------------++10.1. New Versions++Mozilla Foundation is the license steward. Except as provided in Section+10.3, no one other than the license steward has the right to modify or+publish new versions of this License. Each version will be given a+distinguishing version number.++10.2. Effect of New Versions++You may distribute the Covered Software under the terms of the version+of the License under which You originally received the Covered Software,+or under the terms of any subsequent version published by the license+steward.++10.3. Modified Versions++If you create software not governed by this License, and you want to+create a new license for such software, you may create and use a+modified version of this License if you rename the license and remove+any references to the name of the license steward (except to note that+such modified license differs from this License).++10.4. Distributing Source Code Form that is Incompatible With Secondary+Licenses++If You choose to distribute Source Code Form that is Incompatible With+Secondary Licenses under the terms of this version of the License, the+notice described in Exhibit B of this License must be attached.++Exhibit A - Source Code Form License Notice+-------------------------------------------++  This Source Code Form is subject to the terms of the Mozilla Public+  License, v. 2.0. If a copy of the MPL was not distributed with this+  file, You can obtain one at http://mozilla.org/MPL/2.0/.++If it is not possible or desirable to put the notice in a particular+file, then You may include the notice in a location (such as a LICENSE+file in a relevant directory) where a recipient would be likely to look+for such a notice.++You may add additional accurate notices of copyright ownership.++Exhibit B - "Incompatible With Secondary Licenses" Notice+---------------------------------------------------------++  This Source Code Form is "Incompatible With Secondary Licenses", as+  defined by the Mozilla Public License, v. 2.0.
+ README.md view
@@ -0,0 +1,26 @@+# Amazon Elastic Compute Cloud SDK++> _Warning:_ This is an experimental preview release which is still under heavy development and not intended for public consumption, _caveat emptor_!++* [description](#description)+* [Contribute](#contribute)+* [Licence](#licence)++## Description++Amazon Elastic Compute Cloud (Amazon EC2) is a web service that provides resizable compute capacity in the cloud. It is designed to make web-scale computing easier for developers. Amazon EC2’s simple web service interface allows you to obtain and configure capacity with minimal friction. It provides you with complete control of your computing resources and lets you run on Amazon’s proven computing environment. Amazon EC2 reduces the time required to obtain and boot new server instances to minutes, allowing you to quickly scale capacity, both up and down, as your computing requirements change. Amazon EC2 changes the economics of computing by allowing you to pay only for capacity that you actually use. Amazon EC2 provides developers the tools to build failure resilient applications and isolate themselves from common failure scenarios.++Documentation is available via [Hackage](http://hackage.haskell.org/package/amazonka-ec2)+and [AWS API Reference](http://docs.aws.amazon.com/AWSEC2/latest/APIReference/Welcome.html).+++## Contribute++For any problems, comments, or feedback please create an issue [here on GitHub](https://github.com/brendanhay/amazonka/issues).++> _Note:_ this library is an auto-generated Haskell package. Please see `amazonka-gen` for more information.+++## Licence++`amazonka-ec2` is released under the [Mozilla Public License Version 2.0](http://www.mozilla.org/MPL/).
+ Setup.hs view
@@ -0,0 +1,2 @@+import Distribution.Simple+main = defaultMain
+ amazonka-ec2.cabal view
@@ -0,0 +1,208 @@+name:                  amazonka-ec2+version:               0.0.0+synopsis:              Amazon Elastic Compute Cloud SDK.+homepage:              https://github.com/brendanhay/amazonka+license:               OtherLicense+license-file:          LICENSE+author:                Brendan Hay+maintainer:            Brendan Hay <brendan.g.hay@gmail.com>+copyright:             Copyright (c) 2013-2014 Brendan Hay+category:              Network, AWS, Cloud+build-type:            Simple+extra-source-files:    README.md+cabal-version:         >= 1.10++description:+    Amazon Elastic Compute Cloud (Amazon EC2) is a web service that+    provides resizable compute capacity in the cloud. It is designed to+    make web-scale computing easier for developers. Amazon EC2’s simple web+    service interface allows you to obtain and configure capacity with+    minimal friction. It provides you with complete control of your+    computing resources and lets you run on Amazon’s proven computing+    environment. Amazon EC2 reduces the time required to obtain and boot+    new server instances to minutes, allowing you to quickly scale+    capacity, both up and down, as your computing requirements change.+    Amazon EC2 changes the economics of computing by allowing you to pay+    only for capacity that you actually use. Amazon EC2 provides developers+    the tools to build failure resilient applications and isolate+    themselves from common failure scenarios.+    .+    /See:/ <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/Welcome.html AWS API Reference>+    .+    /Warning:/ This is an experimental preview release which is still under+    heavy development and not intended for public consumption, caveat emptor!++source-repository head+    type:     git+    location: git://github.com/brendanhay/amazonka.git++library+    default-language:  Haskell2010+    hs-source-dirs:    src gen++    ghc-options:       -Wall++    exposed-modules:+          Network.AWS.EC2+        , Network.AWS.EC2.AcceptVpcPeeringConnection+        , Network.AWS.EC2.AllocateAddress+        , Network.AWS.EC2.AssignPrivateIpAddresses+        , Network.AWS.EC2.AssociateAddress+        , Network.AWS.EC2.AssociateDhcpOptions+        , Network.AWS.EC2.AssociateRouteTable+        , Network.AWS.EC2.AttachInternetGateway+        , Network.AWS.EC2.AttachNetworkInterface+        , Network.AWS.EC2.AttachVolume+        , Network.AWS.EC2.AttachVpnGateway+        , Network.AWS.EC2.AuthorizeSecurityGroupEgress+        , Network.AWS.EC2.AuthorizeSecurityGroupIngress+        , Network.AWS.EC2.BundleInstance+        , Network.AWS.EC2.CancelBundleTask+        , Network.AWS.EC2.CancelConversionTask+        , Network.AWS.EC2.CancelExportTask+        , Network.AWS.EC2.CancelReservedInstancesListing+        , Network.AWS.EC2.CancelSpotInstanceRequests+        , Network.AWS.EC2.ConfirmProductInstance+        , Network.AWS.EC2.CopyImage+        , Network.AWS.EC2.CopySnapshot+        , Network.AWS.EC2.CreateCustomerGateway+        , Network.AWS.EC2.CreateDhcpOptions+        , Network.AWS.EC2.CreateImage+        , Network.AWS.EC2.CreateInstanceExportTask+        , Network.AWS.EC2.CreateInternetGateway+        , Network.AWS.EC2.CreateKeyPair+        , Network.AWS.EC2.CreateNetworkAcl+        , Network.AWS.EC2.CreateNetworkAclEntry+        , Network.AWS.EC2.CreateNetworkInterface+        , Network.AWS.EC2.CreatePlacementGroup+        , Network.AWS.EC2.CreateReservedInstancesListing+        , Network.AWS.EC2.CreateRoute+        , Network.AWS.EC2.CreateRouteTable+        , Network.AWS.EC2.CreateSecurityGroup+        , Network.AWS.EC2.CreateSnapshot+        , Network.AWS.EC2.CreateSpotDatafeedSubscription+        , Network.AWS.EC2.CreateSubnet+        , Network.AWS.EC2.CreateTags+        , Network.AWS.EC2.CreateVolume+        , Network.AWS.EC2.CreateVpc+        , Network.AWS.EC2.CreateVpcPeeringConnection+        , Network.AWS.EC2.CreateVpnConnection+        , Network.AWS.EC2.CreateVpnConnectionRoute+        , Network.AWS.EC2.CreateVpnGateway+        , Network.AWS.EC2.DeleteCustomerGateway+        , Network.AWS.EC2.DeleteDhcpOptions+        , Network.AWS.EC2.DeleteInternetGateway+        , Network.AWS.EC2.DeleteKeyPair+        , Network.AWS.EC2.DeleteNetworkAcl+        , Network.AWS.EC2.DeleteNetworkAclEntry+        , Network.AWS.EC2.DeleteNetworkInterface+        , Network.AWS.EC2.DeletePlacementGroup+        , Network.AWS.EC2.DeleteRoute+        , Network.AWS.EC2.DeleteRouteTable+        , Network.AWS.EC2.DeleteSecurityGroup+        , Network.AWS.EC2.DeleteSnapshot+        , Network.AWS.EC2.DeleteSpotDatafeedSubscription+        , Network.AWS.EC2.DeleteSubnet+        , Network.AWS.EC2.DeleteTags+        , Network.AWS.EC2.DeleteVolume+        , Network.AWS.EC2.DeleteVpc+        , Network.AWS.EC2.DeleteVpcPeeringConnection+        , Network.AWS.EC2.DeleteVpnConnection+        , Network.AWS.EC2.DeleteVpnConnectionRoute+        , Network.AWS.EC2.DeleteVpnGateway+        , Network.AWS.EC2.DeregisterImage+        , Network.AWS.EC2.DescribeAccountAttributes+        , Network.AWS.EC2.DescribeAddresses+        , Network.AWS.EC2.DescribeAvailabilityZones+        , Network.AWS.EC2.DescribeBundleTasks+        , Network.AWS.EC2.DescribeConversionTasks+        , Network.AWS.EC2.DescribeCustomerGateways+        , Network.AWS.EC2.DescribeDhcpOptions+        , Network.AWS.EC2.DescribeExportTasks+        , Network.AWS.EC2.DescribeImageAttribute+        , Network.AWS.EC2.DescribeImages+        , Network.AWS.EC2.DescribeInstanceAttribute+        , Network.AWS.EC2.DescribeInstanceStatus+        , Network.AWS.EC2.DescribeInstances+        , Network.AWS.EC2.DescribeInternetGateways+        , Network.AWS.EC2.DescribeKeyPairs+        , Network.AWS.EC2.DescribeNetworkAcls+        , Network.AWS.EC2.DescribeNetworkInterfaceAttribute+        , Network.AWS.EC2.DescribeNetworkInterfaces+        , Network.AWS.EC2.DescribePlacementGroups+        , Network.AWS.EC2.DescribeRegions+        , Network.AWS.EC2.DescribeReservedInstances+        , Network.AWS.EC2.DescribeReservedInstancesListings+        , Network.AWS.EC2.DescribeReservedInstancesModifications+        , Network.AWS.EC2.DescribeReservedInstancesOfferings+        , Network.AWS.EC2.DescribeRouteTables+        , Network.AWS.EC2.DescribeSecurityGroups+        , Network.AWS.EC2.DescribeSnapshotAttribute+        , Network.AWS.EC2.DescribeSnapshots+        , Network.AWS.EC2.DescribeSpotDatafeedSubscription+        , Network.AWS.EC2.DescribeSpotInstanceRequests+        , Network.AWS.EC2.DescribeSpotPriceHistory+        , Network.AWS.EC2.DescribeSubnets+        , Network.AWS.EC2.DescribeTags+        , Network.AWS.EC2.DescribeVolumeAttribute+        , Network.AWS.EC2.DescribeVolumeStatus+        , Network.AWS.EC2.DescribeVolumes+        , Network.AWS.EC2.DescribeVpcAttribute+        , Network.AWS.EC2.DescribeVpcPeeringConnections+        , Network.AWS.EC2.DescribeVpcs+        , Network.AWS.EC2.DescribeVpnConnections+        , Network.AWS.EC2.DescribeVpnGateways+        , Network.AWS.EC2.DetachInternetGateway+        , Network.AWS.EC2.DetachNetworkInterface+        , Network.AWS.EC2.DetachVolume+        , Network.AWS.EC2.DetachVpnGateway+        , Network.AWS.EC2.DisableVgwRoutePropagation+        , Network.AWS.EC2.DisassociateAddress+        , Network.AWS.EC2.DisassociateRouteTable+        , Network.AWS.EC2.EnableVgwRoutePropagation+        , Network.AWS.EC2.EnableVolumeIO+        , Network.AWS.EC2.GetConsoleOutput+        , Network.AWS.EC2.GetPasswordData+        , Network.AWS.EC2.ImportInstance+        , Network.AWS.EC2.ImportKeyPair+        , Network.AWS.EC2.ImportVolume+        , Network.AWS.EC2.ModifyImageAttribute+        , Network.AWS.EC2.ModifyInstanceAttribute+        , Network.AWS.EC2.ModifyNetworkInterfaceAttribute+        , Network.AWS.EC2.ModifyReservedInstances+        , Network.AWS.EC2.ModifySnapshotAttribute+        , Network.AWS.EC2.ModifySubnetAttribute+        , Network.AWS.EC2.ModifyVolumeAttribute+        , Network.AWS.EC2.ModifyVpcAttribute+        , Network.AWS.EC2.MonitorInstances+        , Network.AWS.EC2.PurchaseReservedInstancesOffering+        , Network.AWS.EC2.RebootInstances+        , Network.AWS.EC2.RegisterImage+        , Network.AWS.EC2.RejectVpcPeeringConnection+        , Network.AWS.EC2.ReleaseAddress+        , Network.AWS.EC2.ReplaceNetworkAclAssociation+        , Network.AWS.EC2.ReplaceNetworkAclEntry+        , Network.AWS.EC2.ReplaceRoute+        , Network.AWS.EC2.ReplaceRouteTableAssociation+        , Network.AWS.EC2.ReportInstanceStatus+        , Network.AWS.EC2.RequestSpotInstances+        , Network.AWS.EC2.ResetImageAttribute+        , Network.AWS.EC2.ResetInstanceAttribute+        , Network.AWS.EC2.ResetNetworkInterfaceAttribute+        , Network.AWS.EC2.ResetSnapshotAttribute+        , Network.AWS.EC2.RevokeSecurityGroupEgress+        , Network.AWS.EC2.RevokeSecurityGroupIngress+        , Network.AWS.EC2.RunInstances+        , Network.AWS.EC2.StartInstances+        , Network.AWS.EC2.StopInstances+        , Network.AWS.EC2.TerminateInstances+        , Network.AWS.EC2.Types+        , Network.AWS.EC2.UnassignPrivateIpAddresses+        , Network.AWS.EC2.UnmonitorInstances++    other-modules:+          Network.AWS.EC2.Internal++    build-depends:+          amazonka-core+        , base          >= 4.7 && < 5
+ gen/Network/AWS/EC2.hs view
@@ -0,0 +1,335 @@+-- Module      : Network.AWS.EC2+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Amazon Elastic Compute Cloud (Amazon EC2) is a web service that provides+-- resizable compute capacity in the cloud. It is designed to make web-scale+-- computing easier for developers. Amazon EC2’s simple web service interface+-- allows you to obtain and configure capacity with minimal friction. It+-- provides you with complete control of your computing resources and lets you+-- run on Amazon’s proven computing environment. Amazon EC2 reduces the time+-- required to obtain and boot new server instances to minutes, allowing you+-- to quickly scale capacity, both up and down, as your computing requirements+-- change. Amazon EC2 changes the economics of computing by allowing you to+-- pay only for capacity that you actually use. Amazon EC2 provides developers+-- the tools to build failure resilient applications and isolate themselves+-- from common failure scenarios.+module Network.AWS.EC2+    ( module Network.AWS.EC2.AcceptVpcPeeringConnection+    , module Network.AWS.EC2.AllocateAddress+    , module Network.AWS.EC2.AssignPrivateIpAddresses+    , module Network.AWS.EC2.AssociateAddress+    , module Network.AWS.EC2.AssociateDhcpOptions+    , module Network.AWS.EC2.AssociateRouteTable+    , module Network.AWS.EC2.AttachInternetGateway+    , module Network.AWS.EC2.AttachNetworkInterface+    , module Network.AWS.EC2.AttachVolume+    , module Network.AWS.EC2.AttachVpnGateway+    , module Network.AWS.EC2.AuthorizeSecurityGroupEgress+    , module Network.AWS.EC2.AuthorizeSecurityGroupIngress+    , module Network.AWS.EC2.BundleInstance+    , module Network.AWS.EC2.CancelBundleTask+    , module Network.AWS.EC2.CancelConversionTask+    , module Network.AWS.EC2.CancelExportTask+    , module Network.AWS.EC2.CancelReservedInstancesListing+    , module Network.AWS.EC2.CancelSpotInstanceRequests+    , module Network.AWS.EC2.ConfirmProductInstance+    , module Network.AWS.EC2.CopyImage+    , module Network.AWS.EC2.CopySnapshot+    , module Network.AWS.EC2.CreateCustomerGateway+    , module Network.AWS.EC2.CreateDhcpOptions+    , module Network.AWS.EC2.CreateImage+    , module Network.AWS.EC2.CreateInstanceExportTask+    , module Network.AWS.EC2.CreateInternetGateway+    , module Network.AWS.EC2.CreateKeyPair+    , module Network.AWS.EC2.CreateNetworkAcl+    , module Network.AWS.EC2.CreateNetworkAclEntry+    , module Network.AWS.EC2.CreateNetworkInterface+    , module Network.AWS.EC2.CreatePlacementGroup+    , module Network.AWS.EC2.CreateReservedInstancesListing+    , module Network.AWS.EC2.CreateRoute+    , module Network.AWS.EC2.CreateRouteTable+    , module Network.AWS.EC2.CreateSecurityGroup+    , module Network.AWS.EC2.CreateSnapshot+    , module Network.AWS.EC2.CreateSpotDatafeedSubscription+    , module Network.AWS.EC2.CreateSubnet+    , module Network.AWS.EC2.CreateTags+    , module Network.AWS.EC2.CreateVolume+    , module Network.AWS.EC2.CreateVpc+    , module Network.AWS.EC2.CreateVpcPeeringConnection+    , module Network.AWS.EC2.CreateVpnConnection+    , module Network.AWS.EC2.CreateVpnConnectionRoute+    , module Network.AWS.EC2.CreateVpnGateway+    , module Network.AWS.EC2.DeleteCustomerGateway+    , module Network.AWS.EC2.DeleteDhcpOptions+    , module Network.AWS.EC2.DeleteInternetGateway+    , module Network.AWS.EC2.DeleteKeyPair+    , module Network.AWS.EC2.DeleteNetworkAcl+    , module Network.AWS.EC2.DeleteNetworkAclEntry+    , module Network.AWS.EC2.DeleteNetworkInterface+    , module Network.AWS.EC2.DeletePlacementGroup+    , module Network.AWS.EC2.DeleteRoute+    , module Network.AWS.EC2.DeleteRouteTable+    , module Network.AWS.EC2.DeleteSecurityGroup+    , module Network.AWS.EC2.DeleteSnapshot+    , module Network.AWS.EC2.DeleteSpotDatafeedSubscription+    , module Network.AWS.EC2.DeleteSubnet+    , module Network.AWS.EC2.DeleteTags+    , module Network.AWS.EC2.DeleteVolume+    , module Network.AWS.EC2.DeleteVpc+    , module Network.AWS.EC2.DeleteVpcPeeringConnection+    , module Network.AWS.EC2.DeleteVpnConnection+    , module Network.AWS.EC2.DeleteVpnConnectionRoute+    , module Network.AWS.EC2.DeleteVpnGateway+    , module Network.AWS.EC2.DeregisterImage+    , module Network.AWS.EC2.DescribeAccountAttributes+    , module Network.AWS.EC2.DescribeAddresses+    , module Network.AWS.EC2.DescribeAvailabilityZones+    , module Network.AWS.EC2.DescribeBundleTasks+    , module Network.AWS.EC2.DescribeConversionTasks+    , module Network.AWS.EC2.DescribeCustomerGateways+    , module Network.AWS.EC2.DescribeDhcpOptions+    , module Network.AWS.EC2.DescribeExportTasks+    , module Network.AWS.EC2.DescribeImageAttribute+    , module Network.AWS.EC2.DescribeImages+    , module Network.AWS.EC2.DescribeInstanceAttribute+    , module Network.AWS.EC2.DescribeInstanceStatus+    , module Network.AWS.EC2.DescribeInstances+    , module Network.AWS.EC2.DescribeInternetGateways+    , module Network.AWS.EC2.DescribeKeyPairs+    , module Network.AWS.EC2.DescribeNetworkAcls+    , module Network.AWS.EC2.DescribeNetworkInterfaceAttribute+    , module Network.AWS.EC2.DescribeNetworkInterfaces+    , module Network.AWS.EC2.DescribePlacementGroups+    , module Network.AWS.EC2.DescribeRegions+    , module Network.AWS.EC2.DescribeReservedInstances+    , module Network.AWS.EC2.DescribeReservedInstancesListings+    , module Network.AWS.EC2.DescribeReservedInstancesModifications+    , module Network.AWS.EC2.DescribeReservedInstancesOfferings+    , module Network.AWS.EC2.DescribeRouteTables+    , module Network.AWS.EC2.DescribeSecurityGroups+    , module Network.AWS.EC2.DescribeSnapshotAttribute+    , module Network.AWS.EC2.DescribeSnapshots+    , module Network.AWS.EC2.DescribeSpotDatafeedSubscription+    , module Network.AWS.EC2.DescribeSpotInstanceRequests+    , module Network.AWS.EC2.DescribeSpotPriceHistory+    , module Network.AWS.EC2.DescribeSubnets+    , module Network.AWS.EC2.DescribeTags+    , module Network.AWS.EC2.DescribeVolumeAttribute+    , module Network.AWS.EC2.DescribeVolumeStatus+    , module Network.AWS.EC2.DescribeVolumes+    , module Network.AWS.EC2.DescribeVpcAttribute+    , module Network.AWS.EC2.DescribeVpcPeeringConnections+    , module Network.AWS.EC2.DescribeVpcs+    , module Network.AWS.EC2.DescribeVpnConnections+    , module Network.AWS.EC2.DescribeVpnGateways+    , module Network.AWS.EC2.DetachInternetGateway+    , module Network.AWS.EC2.DetachNetworkInterface+    , module Network.AWS.EC2.DetachVolume+    , module Network.AWS.EC2.DetachVpnGateway+    , module Network.AWS.EC2.DisableVgwRoutePropagation+    , module Network.AWS.EC2.DisassociateAddress+    , module Network.AWS.EC2.DisassociateRouteTable+    , module Network.AWS.EC2.EnableVgwRoutePropagation+    , module Network.AWS.EC2.EnableVolumeIO+    , module Network.AWS.EC2.GetConsoleOutput+    , module Network.AWS.EC2.GetPasswordData+    , module Network.AWS.EC2.ImportInstance+    , module Network.AWS.EC2.ImportKeyPair+    , module Network.AWS.EC2.ImportVolume+    , module Network.AWS.EC2.ModifyImageAttribute+    , module Network.AWS.EC2.ModifyInstanceAttribute+    , module Network.AWS.EC2.ModifyNetworkInterfaceAttribute+    , module Network.AWS.EC2.ModifyReservedInstances+    , module Network.AWS.EC2.ModifySnapshotAttribute+    , module Network.AWS.EC2.ModifySubnetAttribute+    , module Network.AWS.EC2.ModifyVolumeAttribute+    , module Network.AWS.EC2.ModifyVpcAttribute+    , module Network.AWS.EC2.MonitorInstances+    , module Network.AWS.EC2.PurchaseReservedInstancesOffering+    , module Network.AWS.EC2.RebootInstances+    , module Network.AWS.EC2.RegisterImage+    , module Network.AWS.EC2.RejectVpcPeeringConnection+    , module Network.AWS.EC2.ReleaseAddress+    , module Network.AWS.EC2.ReplaceNetworkAclAssociation+    , module Network.AWS.EC2.ReplaceNetworkAclEntry+    , module Network.AWS.EC2.ReplaceRoute+    , module Network.AWS.EC2.ReplaceRouteTableAssociation+    , module Network.AWS.EC2.ReportInstanceStatus+    , module Network.AWS.EC2.RequestSpotInstances+    , module Network.AWS.EC2.ResetImageAttribute+    , module Network.AWS.EC2.ResetInstanceAttribute+    , module Network.AWS.EC2.ResetNetworkInterfaceAttribute+    , module Network.AWS.EC2.ResetSnapshotAttribute+    , module Network.AWS.EC2.RevokeSecurityGroupEgress+    , module Network.AWS.EC2.RevokeSecurityGroupIngress+    , module Network.AWS.EC2.RunInstances+    , module Network.AWS.EC2.StartInstances+    , module Network.AWS.EC2.StopInstances+    , module Network.AWS.EC2.TerminateInstances+    , module Network.AWS.EC2.Types+    , module Network.AWS.EC2.UnassignPrivateIpAddresses+    , module Network.AWS.EC2.UnmonitorInstances+    ) where++import Network.AWS.EC2.AcceptVpcPeeringConnection+import Network.AWS.EC2.AllocateAddress+import Network.AWS.EC2.AssignPrivateIpAddresses+import Network.AWS.EC2.AssociateAddress+import Network.AWS.EC2.AssociateDhcpOptions+import Network.AWS.EC2.AssociateRouteTable+import Network.AWS.EC2.AttachInternetGateway+import Network.AWS.EC2.AttachNetworkInterface+import Network.AWS.EC2.AttachVolume+import Network.AWS.EC2.AttachVpnGateway+import Network.AWS.EC2.AuthorizeSecurityGroupEgress+import Network.AWS.EC2.AuthorizeSecurityGroupIngress+import Network.AWS.EC2.BundleInstance+import Network.AWS.EC2.CancelBundleTask+import Network.AWS.EC2.CancelConversionTask+import Network.AWS.EC2.CancelExportTask+import Network.AWS.EC2.CancelReservedInstancesListing+import Network.AWS.EC2.CancelSpotInstanceRequests+import Network.AWS.EC2.ConfirmProductInstance+import Network.AWS.EC2.CopyImage+import Network.AWS.EC2.CopySnapshot+import Network.AWS.EC2.CreateCustomerGateway+import Network.AWS.EC2.CreateDhcpOptions+import Network.AWS.EC2.CreateImage+import Network.AWS.EC2.CreateInstanceExportTask+import Network.AWS.EC2.CreateInternetGateway+import Network.AWS.EC2.CreateKeyPair+import Network.AWS.EC2.CreateNetworkAcl+import Network.AWS.EC2.CreateNetworkAclEntry+import Network.AWS.EC2.CreateNetworkInterface+import Network.AWS.EC2.CreatePlacementGroup+import Network.AWS.EC2.CreateReservedInstancesListing+import Network.AWS.EC2.CreateRoute+import Network.AWS.EC2.CreateRouteTable+import Network.AWS.EC2.CreateSecurityGroup+import Network.AWS.EC2.CreateSnapshot+import Network.AWS.EC2.CreateSpotDatafeedSubscription+import Network.AWS.EC2.CreateSubnet+import Network.AWS.EC2.CreateTags+import Network.AWS.EC2.CreateVolume+import Network.AWS.EC2.CreateVpc+import Network.AWS.EC2.CreateVpcPeeringConnection+import Network.AWS.EC2.CreateVpnConnection+import Network.AWS.EC2.CreateVpnConnectionRoute+import Network.AWS.EC2.CreateVpnGateway+import Network.AWS.EC2.DeleteCustomerGateway+import Network.AWS.EC2.DeleteDhcpOptions+import Network.AWS.EC2.DeleteInternetGateway+import Network.AWS.EC2.DeleteKeyPair+import Network.AWS.EC2.DeleteNetworkAcl+import Network.AWS.EC2.DeleteNetworkAclEntry+import Network.AWS.EC2.DeleteNetworkInterface+import Network.AWS.EC2.DeletePlacementGroup+import Network.AWS.EC2.DeleteRoute+import Network.AWS.EC2.DeleteRouteTable+import Network.AWS.EC2.DeleteSecurityGroup+import Network.AWS.EC2.DeleteSnapshot+import Network.AWS.EC2.DeleteSpotDatafeedSubscription+import Network.AWS.EC2.DeleteSubnet+import Network.AWS.EC2.DeleteTags+import Network.AWS.EC2.DeleteVolume+import Network.AWS.EC2.DeleteVpc+import Network.AWS.EC2.DeleteVpcPeeringConnection+import Network.AWS.EC2.DeleteVpnConnection+import Network.AWS.EC2.DeleteVpnConnectionRoute+import Network.AWS.EC2.DeleteVpnGateway+import Network.AWS.EC2.DeregisterImage+import Network.AWS.EC2.DescribeAccountAttributes+import Network.AWS.EC2.DescribeAddresses+import Network.AWS.EC2.DescribeAvailabilityZones+import Network.AWS.EC2.DescribeBundleTasks+import Network.AWS.EC2.DescribeConversionTasks+import Network.AWS.EC2.DescribeCustomerGateways+import Network.AWS.EC2.DescribeDhcpOptions+import Network.AWS.EC2.DescribeExportTasks+import Network.AWS.EC2.DescribeImageAttribute+import Network.AWS.EC2.DescribeImages+import Network.AWS.EC2.DescribeInstanceAttribute+import Network.AWS.EC2.DescribeInstanceStatus+import Network.AWS.EC2.DescribeInstances+import Network.AWS.EC2.DescribeInternetGateways+import Network.AWS.EC2.DescribeKeyPairs+import Network.AWS.EC2.DescribeNetworkAcls+import Network.AWS.EC2.DescribeNetworkInterfaceAttribute+import Network.AWS.EC2.DescribeNetworkInterfaces+import Network.AWS.EC2.DescribePlacementGroups+import Network.AWS.EC2.DescribeRegions+import Network.AWS.EC2.DescribeReservedInstances+import Network.AWS.EC2.DescribeReservedInstancesListings+import Network.AWS.EC2.DescribeReservedInstancesModifications+import Network.AWS.EC2.DescribeReservedInstancesOfferings+import Network.AWS.EC2.DescribeRouteTables+import Network.AWS.EC2.DescribeSecurityGroups+import Network.AWS.EC2.DescribeSnapshotAttribute+import Network.AWS.EC2.DescribeSnapshots+import Network.AWS.EC2.DescribeSpotDatafeedSubscription+import Network.AWS.EC2.DescribeSpotInstanceRequests+import Network.AWS.EC2.DescribeSpotPriceHistory+import Network.AWS.EC2.DescribeSubnets+import Network.AWS.EC2.DescribeTags+import Network.AWS.EC2.DescribeVolumeAttribute+import Network.AWS.EC2.DescribeVolumeStatus+import Network.AWS.EC2.DescribeVolumes+import Network.AWS.EC2.DescribeVpcAttribute+import Network.AWS.EC2.DescribeVpcPeeringConnections+import Network.AWS.EC2.DescribeVpcs+import Network.AWS.EC2.DescribeVpnConnections+import Network.AWS.EC2.DescribeVpnGateways+import Network.AWS.EC2.DetachInternetGateway+import Network.AWS.EC2.DetachNetworkInterface+import Network.AWS.EC2.DetachVolume+import Network.AWS.EC2.DetachVpnGateway+import Network.AWS.EC2.DisableVgwRoutePropagation+import Network.AWS.EC2.DisassociateAddress+import Network.AWS.EC2.DisassociateRouteTable+import Network.AWS.EC2.EnableVgwRoutePropagation+import Network.AWS.EC2.EnableVolumeIO+import Network.AWS.EC2.GetConsoleOutput+import Network.AWS.EC2.GetPasswordData+import Network.AWS.EC2.ImportInstance+import Network.AWS.EC2.ImportKeyPair+import Network.AWS.EC2.ImportVolume+import Network.AWS.EC2.ModifyImageAttribute+import Network.AWS.EC2.ModifyInstanceAttribute+import Network.AWS.EC2.ModifyNetworkInterfaceAttribute+import Network.AWS.EC2.ModifyReservedInstances+import Network.AWS.EC2.ModifySnapshotAttribute+import Network.AWS.EC2.ModifySubnetAttribute+import Network.AWS.EC2.ModifyVolumeAttribute+import Network.AWS.EC2.ModifyVpcAttribute+import Network.AWS.EC2.MonitorInstances+import Network.AWS.EC2.PurchaseReservedInstancesOffering+import Network.AWS.EC2.RebootInstances+import Network.AWS.EC2.RegisterImage+import Network.AWS.EC2.RejectVpcPeeringConnection+import Network.AWS.EC2.ReleaseAddress+import Network.AWS.EC2.ReplaceNetworkAclAssociation+import Network.AWS.EC2.ReplaceNetworkAclEntry+import Network.AWS.EC2.ReplaceRoute+import Network.AWS.EC2.ReplaceRouteTableAssociation+import Network.AWS.EC2.ReportInstanceStatus+import Network.AWS.EC2.RequestSpotInstances+import Network.AWS.EC2.ResetImageAttribute+import Network.AWS.EC2.ResetInstanceAttribute+import Network.AWS.EC2.ResetNetworkInterfaceAttribute+import Network.AWS.EC2.ResetSnapshotAttribute+import Network.AWS.EC2.RevokeSecurityGroupEgress+import Network.AWS.EC2.RevokeSecurityGroupIngress+import Network.AWS.EC2.RunInstances+import Network.AWS.EC2.StartInstances+import Network.AWS.EC2.StopInstances+import Network.AWS.EC2.TerminateInstances+import Network.AWS.EC2.Types+import Network.AWS.EC2.UnassignPrivateIpAddresses+import Network.AWS.EC2.UnmonitorInstances
+ gen/Network/AWS/EC2/AcceptVpcPeeringConnection.hs view
@@ -0,0 +1,121 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.AcceptVpcPeeringConnection+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Accept a VPC peering connection request. To accept a request, the VPC+-- peering connection must be in the pending-acceptance state, and you must be+-- the owner of the peer VPC. Use the DescribeVpcPeeringConnections request to+-- view your outstanding VPC peering connection requests.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-AcceptVpcPeeringConnection.html>+module Network.AWS.EC2.AcceptVpcPeeringConnection+    (+    -- * Request+      AcceptVpcPeeringConnection+    -- ** Request constructor+    , acceptVpcPeeringConnection+    -- ** Request lenses+    , avpcDryRun+    , avpcVpcPeeringConnectionId++    -- * Response+    , AcceptVpcPeeringConnectionResponse+    -- ** Response constructor+    , acceptVpcPeeringConnectionResponse+    -- ** Response lenses+    , avpcrVpcPeeringConnection+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data AcceptVpcPeeringConnection = AcceptVpcPeeringConnection+    { _avpcDryRun                 :: Maybe Bool+    , _avpcVpcPeeringConnectionId :: Maybe Text+    } deriving (Eq, Ord, Show)++-- | 'AcceptVpcPeeringConnection' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'avpcDryRun' @::@ 'Maybe' 'Bool'+--+-- * 'avpcVpcPeeringConnectionId' @::@ 'Maybe' 'Text'+--+acceptVpcPeeringConnection :: AcceptVpcPeeringConnection+acceptVpcPeeringConnection = AcceptVpcPeeringConnection+    { _avpcDryRun                 = Nothing+    , _avpcVpcPeeringConnectionId = Nothing+    }++avpcDryRun :: Lens' AcceptVpcPeeringConnection (Maybe Bool)+avpcDryRun = lens _avpcDryRun (\s a -> s { _avpcDryRun = a })++-- | The ID of the VPC peering connection.+avpcVpcPeeringConnectionId :: Lens' AcceptVpcPeeringConnection (Maybe Text)+avpcVpcPeeringConnectionId =+    lens _avpcVpcPeeringConnectionId+        (\s a -> s { _avpcVpcPeeringConnectionId = a })++newtype AcceptVpcPeeringConnectionResponse = AcceptVpcPeeringConnectionResponse+    { _avpcrVpcPeeringConnection :: Maybe VpcPeeringConnection+    } deriving (Eq, Show)++-- | 'AcceptVpcPeeringConnectionResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'avpcrVpcPeeringConnection' @::@ 'Maybe' 'VpcPeeringConnection'+--+acceptVpcPeeringConnectionResponse :: AcceptVpcPeeringConnectionResponse+acceptVpcPeeringConnectionResponse = AcceptVpcPeeringConnectionResponse+    { _avpcrVpcPeeringConnection = Nothing+    }++-- | Information about the VPC peering connection.+avpcrVpcPeeringConnection :: Lens' AcceptVpcPeeringConnectionResponse (Maybe VpcPeeringConnection)+avpcrVpcPeeringConnection =+    lens _avpcrVpcPeeringConnection+        (\s a -> s { _avpcrVpcPeeringConnection = a })++instance ToPath AcceptVpcPeeringConnection where+    toPath = const "/"++instance ToQuery AcceptVpcPeeringConnection where+    toQuery AcceptVpcPeeringConnection{..} = mconcat+        [ "dryRun"                 =? _avpcDryRun+        , "vpcPeeringConnectionId" =? _avpcVpcPeeringConnectionId+        ]++instance ToHeaders AcceptVpcPeeringConnection++instance AWSRequest AcceptVpcPeeringConnection where+    type Sv AcceptVpcPeeringConnection = EC2+    type Rs AcceptVpcPeeringConnection = AcceptVpcPeeringConnectionResponse++    request  = post "AcceptVpcPeeringConnection"+    response = xmlResponse++instance FromXML AcceptVpcPeeringConnectionResponse where+    parseXML x = AcceptVpcPeeringConnectionResponse+        <$> x .@? "vpcPeeringConnection"
+ gen/Network/AWS/EC2/AllocateAddress.hs view
@@ -0,0 +1,139 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.AllocateAddress+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Acquires an Elastic IP address. An Elastic IP address is for use either in+-- the EC2-Classic platform or in a VPC. For more information, see Elastic IP+-- Addresses in the Amazon Elastic Compute Cloud User Guide.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-AllocateAddress.html>+module Network.AWS.EC2.AllocateAddress+    (+    -- * Request+      AllocateAddress+    -- ** Request constructor+    , allocateAddress+    -- ** Request lenses+    , aaDomain+    , aaDryRun++    -- * Response+    , AllocateAddressResponse+    -- ** Response constructor+    , allocateAddressResponse+    -- ** Response lenses+    , aarAllocationId+    , aarDomain+    , aarPublicIp+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data AllocateAddress = AllocateAddress+    { _aaDomain :: Maybe Text+    , _aaDryRun :: Maybe Bool+    } deriving (Eq, Ord, Show)++-- | 'AllocateAddress' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'aaDomain' @::@ 'Maybe' 'Text'+--+-- * 'aaDryRun' @::@ 'Maybe' 'Bool'+--+allocateAddress :: AllocateAddress+allocateAddress = AllocateAddress+    { _aaDryRun = Nothing+    , _aaDomain = Nothing+    }++-- | Set to vpc to allocate the address for use with instances in a VPC.+-- Default: The address is for use with instances in EC2-Classic.+aaDomain :: Lens' AllocateAddress (Maybe Text)+aaDomain = lens _aaDomain (\s a -> s { _aaDomain = a })++aaDryRun :: Lens' AllocateAddress (Maybe Bool)+aaDryRun = lens _aaDryRun (\s a -> s { _aaDryRun = a })++data AllocateAddressResponse = AllocateAddressResponse+    { _aarAllocationId :: Maybe Text+    , _aarDomain       :: Maybe Text+    , _aarPublicIp     :: Maybe Text+    } deriving (Eq, Ord, Show)++-- | 'AllocateAddressResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'aarAllocationId' @::@ 'Maybe' 'Text'+--+-- * 'aarDomain' @::@ 'Maybe' 'Text'+--+-- * 'aarPublicIp' @::@ 'Maybe' 'Text'+--+allocateAddressResponse :: AllocateAddressResponse+allocateAddressResponse = AllocateAddressResponse+    { _aarPublicIp     = Nothing+    , _aarDomain       = Nothing+    , _aarAllocationId = Nothing+    }++-- | [EC2-VPC] The ID that AWS assigns to represent the allocation of the+-- Elastic IP address for use with instances in a VPC.+aarAllocationId :: Lens' AllocateAddressResponse (Maybe Text)+aarAllocationId = lens _aarAllocationId (\s a -> s { _aarAllocationId = a })++-- | Indicates whether this Elastic IP address is for use with instances in+-- EC2-Classic (standard) or instances in a VPC (vpc).+aarDomain :: Lens' AllocateAddressResponse (Maybe Text)+aarDomain = lens _aarDomain (\s a -> s { _aarDomain = a })++-- | The Elastic IP address.+aarPublicIp :: Lens' AllocateAddressResponse (Maybe Text)+aarPublicIp = lens _aarPublicIp (\s a -> s { _aarPublicIp = a })++instance ToPath AllocateAddress where+    toPath = const "/"++instance ToQuery AllocateAddress where+    toQuery AllocateAddress{..} = mconcat+        [ "Domain" =? _aaDomain+        , "dryRun" =? _aaDryRun+        ]++instance ToHeaders AllocateAddress++instance AWSRequest AllocateAddress where+    type Sv AllocateAddress = EC2+    type Rs AllocateAddress = AllocateAddressResponse++    request  = post "AllocateAddress"+    response = xmlResponse++instance FromXML AllocateAddressResponse where+    parseXML x = AllocateAddressResponse+        <$> x .@? "allocationId"+        <*> x .@? "domain"+        <*> x .@? "publicIp"
+ gen/Network/AWS/EC2/AssignPrivateIpAddresses.hs view
@@ -0,0 +1,140 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.AssignPrivateIpAddresses+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Assigns one or more secondary private IP addresses to the specified network+-- interface. You can specify one or more specific secondary IP addresses, or+-- you can specify the number of secondary IP addresses to be automatically+-- assigned within the subnet's CIDR block range. The number of secondary IP+-- addresses that you can assign to an instance varies by instance type. For+-- information about instance types, see Instance Types in the Amazon Elastic+-- Compute Cloud User Guide. For more information about Elastic IP addresses,+-- see Elastic IP Addresses in the Amazon Elastic Compute Cloud User Guide.+-- AssignPrivateIpAddresses is available only in EC2-VPC.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-AssignPrivateIpAddresses.html>+module Network.AWS.EC2.AssignPrivateIpAddresses+    (+    -- * Request+      AssignPrivateIpAddresses+    -- ** Request constructor+    , assignPrivateIpAddresses+    -- ** Request lenses+    , apiaAllowReassignment+    , apiaNetworkInterfaceId+    , apiaPrivateIpAddresses+    , apiaSecondaryPrivateIpAddressCount++    -- * Response+    , AssignPrivateIpAddressesResponse+    -- ** Response constructor+    , assignPrivateIpAddressesResponse+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data AssignPrivateIpAddresses = AssignPrivateIpAddresses+    { _apiaAllowReassignment              :: Maybe Bool+    , _apiaNetworkInterfaceId             :: Text+    , _apiaPrivateIpAddresses             :: List "PrivateIpAddress" Text+    , _apiaSecondaryPrivateIpAddressCount :: Maybe Int+    } deriving (Eq, Ord, Show)++-- | 'AssignPrivateIpAddresses' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'apiaAllowReassignment' @::@ 'Maybe' 'Bool'+--+-- * 'apiaNetworkInterfaceId' @::@ 'Text'+--+-- * 'apiaPrivateIpAddresses' @::@ ['Text']+--+-- * 'apiaSecondaryPrivateIpAddressCount' @::@ 'Maybe' 'Int'+--+assignPrivateIpAddresses :: Text -- ^ 'apiaNetworkInterfaceId'+                         -> AssignPrivateIpAddresses+assignPrivateIpAddresses p1 = AssignPrivateIpAddresses+    { _apiaNetworkInterfaceId             = p1+    , _apiaPrivateIpAddresses             = mempty+    , _apiaSecondaryPrivateIpAddressCount = Nothing+    , _apiaAllowReassignment              = Nothing+    }++-- | Indicates whether to allow an IP address that is already assigned to+-- another network interface or instance to be reassigned to the specified+-- network interface.+apiaAllowReassignment :: Lens' AssignPrivateIpAddresses (Maybe Bool)+apiaAllowReassignment =+    lens _apiaAllowReassignment (\s a -> s { _apiaAllowReassignment = a })++-- | The ID of the network interface.+apiaNetworkInterfaceId :: Lens' AssignPrivateIpAddresses Text+apiaNetworkInterfaceId =+    lens _apiaNetworkInterfaceId (\s a -> s { _apiaNetworkInterfaceId = a })++-- | One or more IP addresses to be assigned as a secondary private IP address+-- to the network interface. You can't specify this parameter when also+-- specifying a number of secondary IP addresses. If you don't specify an IP+-- address, Amazon EC2 automatically selects an IP address within the subnet+-- range.+apiaPrivateIpAddresses :: Lens' AssignPrivateIpAddresses [Text]+apiaPrivateIpAddresses =+    lens _apiaPrivateIpAddresses (\s a -> s { _apiaPrivateIpAddresses = a })+        . _List++-- | The number of secondary IP addresses to assign to the network interface.+-- You can't specify this parameter when also specifying private IP+-- addresses.+apiaSecondaryPrivateIpAddressCount :: Lens' AssignPrivateIpAddresses (Maybe Int)+apiaSecondaryPrivateIpAddressCount =+    lens _apiaSecondaryPrivateIpAddressCount+        (\s a -> s { _apiaSecondaryPrivateIpAddressCount = a })++data AssignPrivateIpAddressesResponse = AssignPrivateIpAddressesResponse+    deriving (Eq, Ord, Show, Generic)++-- | 'AssignPrivateIpAddressesResponse' constructor.+assignPrivateIpAddressesResponse :: AssignPrivateIpAddressesResponse+assignPrivateIpAddressesResponse = AssignPrivateIpAddressesResponse++instance ToPath AssignPrivateIpAddresses where+    toPath = const "/"++instance ToQuery AssignPrivateIpAddresses where+    toQuery AssignPrivateIpAddresses{..} = mconcat+        [ "allowReassignment"              =? _apiaAllowReassignment+        , "networkInterfaceId"             =? _apiaNetworkInterfaceId+        , "privateIpAddress"               =? _apiaPrivateIpAddresses+        , "secondaryPrivateIpAddressCount" =? _apiaSecondaryPrivateIpAddressCount+        ]++instance ToHeaders AssignPrivateIpAddresses++instance AWSRequest AssignPrivateIpAddresses where+    type Sv AssignPrivateIpAddresses = EC2+    type Rs AssignPrivateIpAddresses = AssignPrivateIpAddressesResponse++    request  = post "AssignPrivateIpAddresses"+    response = nullResponse AssignPrivateIpAddressesResponse
+ gen/Network/AWS/EC2/AssociateAddress.hs view
@@ -0,0 +1,188 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.AssociateAddress+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Associates an Elastic IP address with an instance or a network interface.+-- An Elastic IP address is for use in either the EC2-Classic platform or in a+-- VPC. For more information, see Elastic IP Addresses in the Amazon Elastic+-- Compute Cloud User Guide. [EC2-Classic, VPC in an EC2-VPC-only account] If+-- the Elastic IP address is already associated with a different instance, it+-- is disassociated from that instance and associated with the specified+-- instance. [VPC in an EC2-Classic account] If you don't specify a private IP+-- address, the Elastic IP address is associated with the primary IP address.+-- If the Elastic IP address is already associated with a different instance+-- or a network interface, you get an error unless you allow reassociation.+-- This is an idempotent operation. If you perform the operation more than+-- once, Amazon EC2 doesn't return an error.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-AssociateAddress.html>+module Network.AWS.EC2.AssociateAddress+    (+    -- * Request+      AssociateAddress+    -- ** Request constructor+    , associateAddress+    -- ** Request lenses+    , aa1AllocationId+    , aa1AllowReassociation+    , aa1DryRun+    , aa1InstanceId+    , aa1NetworkInterfaceId+    , aa1PrivateIpAddress+    , aa1PublicIp++    -- * Response+    , AssociateAddressResponse+    -- ** Response constructor+    , associateAddressResponse+    -- ** Response lenses+    , aarAssociationId+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data AssociateAddress = AssociateAddress+    { _aa1AllocationId       :: Maybe Text+    , _aa1AllowReassociation :: Maybe Bool+    , _aa1DryRun             :: Maybe Bool+    , _aa1InstanceId         :: Maybe Text+    , _aa1NetworkInterfaceId :: Maybe Text+    , _aa1PrivateIpAddress   :: Maybe Text+    , _aa1PublicIp           :: Maybe Text+    } deriving (Eq, Ord, Show)++-- | 'AssociateAddress' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'aa1AllocationId' @::@ 'Maybe' 'Text'+--+-- * 'aa1AllowReassociation' @::@ 'Maybe' 'Bool'+--+-- * 'aa1DryRun' @::@ 'Maybe' 'Bool'+--+-- * 'aa1InstanceId' @::@ 'Maybe' 'Text'+--+-- * 'aa1NetworkInterfaceId' @::@ 'Maybe' 'Text'+--+-- * 'aa1PrivateIpAddress' @::@ 'Maybe' 'Text'+--+-- * 'aa1PublicIp' @::@ 'Maybe' 'Text'+--+associateAddress :: AssociateAddress+associateAddress = AssociateAddress+    { _aa1DryRun             = Nothing+    , _aa1InstanceId         = Nothing+    , _aa1PublicIp           = Nothing+    , _aa1AllocationId       = Nothing+    , _aa1NetworkInterfaceId = Nothing+    , _aa1PrivateIpAddress   = Nothing+    , _aa1AllowReassociation = Nothing+    }++-- | [EC2-VPC] The allocation ID. This is required for EC2-VPC.+aa1AllocationId :: Lens' AssociateAddress (Maybe Text)+aa1AllocationId = lens _aa1AllocationId (\s a -> s { _aa1AllocationId = a })++-- | [EC2-VPC] Allows an Elastic IP address that is already associated with an+-- instance or network interface to be re-associated with the specified+-- instance or network interface. Otherwise, the operation fails. Default:+-- false.+aa1AllowReassociation :: Lens' AssociateAddress (Maybe Bool)+aa1AllowReassociation =+    lens _aa1AllowReassociation (\s a -> s { _aa1AllowReassociation = a })++aa1DryRun :: Lens' AssociateAddress (Maybe Bool)+aa1DryRun = lens _aa1DryRun (\s a -> s { _aa1DryRun = a })++-- | The ID of the instance. This is required for EC2-Classic. For EC2-VPC,+-- you can specify either the instance ID or the network interface ID, but+-- not both. The operation fails if you specify an instance ID unless+-- exactly one network interface is attached.+aa1InstanceId :: Lens' AssociateAddress (Maybe Text)+aa1InstanceId = lens _aa1InstanceId (\s a -> s { _aa1InstanceId = a })++-- | [EC2-VPC] The ID of the network interface. If the instance has more than+-- one network interface, you must specify a network interface ID.+aa1NetworkInterfaceId :: Lens' AssociateAddress (Maybe Text)+aa1NetworkInterfaceId =+    lens _aa1NetworkInterfaceId (\s a -> s { _aa1NetworkInterfaceId = a })++-- | [EC2-VPC] The primary or secondary private IP address to associate with+-- the Elastic IP address. If no private IP address is specified, the+-- Elastic IP address is associated with the primary private IP address.+aa1PrivateIpAddress :: Lens' AssociateAddress (Maybe Text)+aa1PrivateIpAddress =+    lens _aa1PrivateIpAddress (\s a -> s { _aa1PrivateIpAddress = a })++-- | The Elastic IP address. This is required for EC2-Classic.+aa1PublicIp :: Lens' AssociateAddress (Maybe Text)+aa1PublicIp = lens _aa1PublicIp (\s a -> s { _aa1PublicIp = a })++newtype AssociateAddressResponse = AssociateAddressResponse+    { _aarAssociationId :: Maybe Text+    } deriving (Eq, Ord, Show, Monoid)++-- | 'AssociateAddressResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'aarAssociationId' @::@ 'Maybe' 'Text'+--+associateAddressResponse :: AssociateAddressResponse+associateAddressResponse = AssociateAddressResponse+    { _aarAssociationId = Nothing+    }++-- | [EC2-VPC] The ID that represents the association of the Elastic IP+-- address with an instance.+aarAssociationId :: Lens' AssociateAddressResponse (Maybe Text)+aarAssociationId = lens _aarAssociationId (\s a -> s { _aarAssociationId = a })++instance ToPath AssociateAddress where+    toPath = const "/"++instance ToQuery AssociateAddress where+    toQuery AssociateAddress{..} = mconcat+        [ "AllocationId"       =? _aa1AllocationId+        , "allowReassociation" =? _aa1AllowReassociation+        , "dryRun"             =? _aa1DryRun+        , "InstanceId"         =? _aa1InstanceId+        , "networkInterfaceId" =? _aa1NetworkInterfaceId+        , "privateIpAddress"   =? _aa1PrivateIpAddress+        , "PublicIp"           =? _aa1PublicIp+        ]++instance ToHeaders AssociateAddress++instance AWSRequest AssociateAddress where+    type Sv AssociateAddress = EC2+    type Rs AssociateAddress = AssociateAddressResponse++    request  = post "AssociateAddress"+    response = xmlResponse++instance FromXML AssociateAddressResponse where+    parseXML x = AssociateAddressResponse+        <$> x .@? "associationId"
+ gen/Network/AWS/EC2/AssociateDhcpOptions.hs view
@@ -0,0 +1,117 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.AssociateDhcpOptions+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Associates a set of DHCP options (that you've previously created) with the+-- specified VPC, or associates no DHCP options with the VPC. After you+-- associate the options with the VPC, any existing instances and all new+-- instances that you launch in that VPC use the options. You don't need to+-- restart or relaunch the instances. They automatically pick up the changes+-- within a few hours, depending on how frequently the instance renews its+-- DHCP lease. You can explicitly renew the lease using the operating system+-- on the instance. For more information, see DHCP Options Sets in the Amazon+-- Virtual Private Cloud User Guide.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-AssociateDhcpOptions.html>+module Network.AWS.EC2.AssociateDhcpOptions+    (+    -- * Request+      AssociateDhcpOptions+    -- ** Request constructor+    , associateDhcpOptions+    -- ** Request lenses+    , adoDhcpOptionsId+    , adoDryRun+    , adoVpcId++    -- * Response+    , AssociateDhcpOptionsResponse+    -- ** Response constructor+    , associateDhcpOptionsResponse+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data AssociateDhcpOptions = AssociateDhcpOptions+    { _adoDhcpOptionsId :: Text+    , _adoDryRun        :: Maybe Bool+    , _adoVpcId         :: Text+    } deriving (Eq, Ord, Show)++-- | 'AssociateDhcpOptions' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'adoDhcpOptionsId' @::@ 'Text'+--+-- * 'adoDryRun' @::@ 'Maybe' 'Bool'+--+-- * 'adoVpcId' @::@ 'Text'+--+associateDhcpOptions :: Text -- ^ 'adoDhcpOptionsId'+                     -> Text -- ^ 'adoVpcId'+                     -> AssociateDhcpOptions+associateDhcpOptions p1 p2 = AssociateDhcpOptions+    { _adoDhcpOptionsId = p1+    , _adoVpcId         = p2+    , _adoDryRun        = Nothing+    }++-- | The ID of the DHCP options set, or default to associate no DHCP options+-- with the VPC.+adoDhcpOptionsId :: Lens' AssociateDhcpOptions Text+adoDhcpOptionsId = lens _adoDhcpOptionsId (\s a -> s { _adoDhcpOptionsId = a })++adoDryRun :: Lens' AssociateDhcpOptions (Maybe Bool)+adoDryRun = lens _adoDryRun (\s a -> s { _adoDryRun = a })++-- | The ID of the VPC.+adoVpcId :: Lens' AssociateDhcpOptions Text+adoVpcId = lens _adoVpcId (\s a -> s { _adoVpcId = a })++data AssociateDhcpOptionsResponse = AssociateDhcpOptionsResponse+    deriving (Eq, Ord, Show, Generic)++-- | 'AssociateDhcpOptionsResponse' constructor.+associateDhcpOptionsResponse :: AssociateDhcpOptionsResponse+associateDhcpOptionsResponse = AssociateDhcpOptionsResponse++instance ToPath AssociateDhcpOptions where+    toPath = const "/"++instance ToQuery AssociateDhcpOptions where+    toQuery AssociateDhcpOptions{..} = mconcat+        [ "DhcpOptionsId" =? _adoDhcpOptionsId+        , "dryRun"        =? _adoDryRun+        , "VpcId"         =? _adoVpcId+        ]++instance ToHeaders AssociateDhcpOptions++instance AWSRequest AssociateDhcpOptions where+    type Sv AssociateDhcpOptions = EC2+    type Rs AssociateDhcpOptions = AssociateDhcpOptionsResponse++    request  = post "AssociateDhcpOptions"+    response = nullResponse AssociateDhcpOptionsResponse
+ gen/Network/AWS/EC2/AssociateRouteTable.hs view
@@ -0,0 +1,133 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.AssociateRouteTable+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Associates a subnet with a route table. The subnet and route table must be+-- in the same VPC. This association causes traffic originating from the+-- subnet to be routed according to the routes in the route table. The action+-- returns an association ID, which you need in order to disassociate the+-- route table from the subnet later. A route table can be associated with+-- multiple subnets. For more information about route tables, see Route Tables+-- in the Amazon Virtual Private Cloud User Guide.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-AssociateRouteTable.html>+module Network.AWS.EC2.AssociateRouteTable+    (+    -- * Request+      AssociateRouteTable+    -- ** Request constructor+    , associateRouteTable+    -- ** Request lenses+    , artDryRun+    , artRouteTableId+    , artSubnetId++    -- * Response+    , AssociateRouteTableResponse+    -- ** Response constructor+    , associateRouteTableResponse+    -- ** Response lenses+    , artrAssociationId+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data AssociateRouteTable = AssociateRouteTable+    { _artDryRun       :: Maybe Bool+    , _artRouteTableId :: Text+    , _artSubnetId     :: Text+    } deriving (Eq, Ord, Show)++-- | 'AssociateRouteTable' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'artDryRun' @::@ 'Maybe' 'Bool'+--+-- * 'artRouteTableId' @::@ 'Text'+--+-- * 'artSubnetId' @::@ 'Text'+--+associateRouteTable :: Text -- ^ 'artSubnetId'+                    -> Text -- ^ 'artRouteTableId'+                    -> AssociateRouteTable+associateRouteTable p1 p2 = AssociateRouteTable+    { _artSubnetId     = p1+    , _artRouteTableId = p2+    , _artDryRun       = Nothing+    }++artDryRun :: Lens' AssociateRouteTable (Maybe Bool)+artDryRun = lens _artDryRun (\s a -> s { _artDryRun = a })++-- | The ID of the route table.+artRouteTableId :: Lens' AssociateRouteTable Text+artRouteTableId = lens _artRouteTableId (\s a -> s { _artRouteTableId = a })++-- | The ID of the subnet.+artSubnetId :: Lens' AssociateRouteTable Text+artSubnetId = lens _artSubnetId (\s a -> s { _artSubnetId = a })++newtype AssociateRouteTableResponse = AssociateRouteTableResponse+    { _artrAssociationId :: Maybe Text+    } deriving (Eq, Ord, Show, Monoid)++-- | 'AssociateRouteTableResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'artrAssociationId' @::@ 'Maybe' 'Text'+--+associateRouteTableResponse :: AssociateRouteTableResponse+associateRouteTableResponse = AssociateRouteTableResponse+    { _artrAssociationId = Nothing+    }++-- | The route table association ID (needed to disassociate the route table).+artrAssociationId :: Lens' AssociateRouteTableResponse (Maybe Text)+artrAssociationId =+    lens _artrAssociationId (\s a -> s { _artrAssociationId = a })++instance ToPath AssociateRouteTable where+    toPath = const "/"++instance ToQuery AssociateRouteTable where+    toQuery AssociateRouteTable{..} = mconcat+        [ "dryRun"       =? _artDryRun+        , "routeTableId" =? _artRouteTableId+        , "subnetId"     =? _artSubnetId+        ]++instance ToHeaders AssociateRouteTable++instance AWSRequest AssociateRouteTable where+    type Sv AssociateRouteTable = EC2+    type Rs AssociateRouteTable = AssociateRouteTableResponse++    request  = post "AssociateRouteTable"+    response = xmlResponse++instance FromXML AssociateRouteTableResponse where+    parseXML x = AssociateRouteTableResponse+        <$> x .@? "associationId"
+ gen/Network/AWS/EC2/AttachInternetGateway.hs view
@@ -0,0 +1,111 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.AttachInternetGateway+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Attaches an Internet gateway to a VPC, enabling connectivity between the+-- Internet and the VPC. For more information about your VPC and Internet+-- gateway, see the Amazon Virtual Private Cloud User Guide.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-AttachInternetGateway.html>+module Network.AWS.EC2.AttachInternetGateway+    (+    -- * Request+      AttachInternetGateway+    -- ** Request constructor+    , attachInternetGateway+    -- ** Request lenses+    , aigDryRun+    , aigInternetGatewayId+    , aigVpcId++    -- * Response+    , AttachInternetGatewayResponse+    -- ** Response constructor+    , attachInternetGatewayResponse+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data AttachInternetGateway = AttachInternetGateway+    { _aigDryRun            :: Maybe Bool+    , _aigInternetGatewayId :: Text+    , _aigVpcId             :: Text+    } deriving (Eq, Ord, Show)++-- | 'AttachInternetGateway' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'aigDryRun' @::@ 'Maybe' 'Bool'+--+-- * 'aigInternetGatewayId' @::@ 'Text'+--+-- * 'aigVpcId' @::@ 'Text'+--+attachInternetGateway :: Text -- ^ 'aigInternetGatewayId'+                      -> Text -- ^ 'aigVpcId'+                      -> AttachInternetGateway+attachInternetGateway p1 p2 = AttachInternetGateway+    { _aigInternetGatewayId = p1+    , _aigVpcId             = p2+    , _aigDryRun            = Nothing+    }++aigDryRun :: Lens' AttachInternetGateway (Maybe Bool)+aigDryRun = lens _aigDryRun (\s a -> s { _aigDryRun = a })++-- | The ID of the Internet gateway.+aigInternetGatewayId :: Lens' AttachInternetGateway Text+aigInternetGatewayId =+    lens _aigInternetGatewayId (\s a -> s { _aigInternetGatewayId = a })++-- | The ID of the VPC.+aigVpcId :: Lens' AttachInternetGateway Text+aigVpcId = lens _aigVpcId (\s a -> s { _aigVpcId = a })++data AttachInternetGatewayResponse = AttachInternetGatewayResponse+    deriving (Eq, Ord, Show, Generic)++-- | 'AttachInternetGatewayResponse' constructor.+attachInternetGatewayResponse :: AttachInternetGatewayResponse+attachInternetGatewayResponse = AttachInternetGatewayResponse++instance ToPath AttachInternetGateway where+    toPath = const "/"++instance ToQuery AttachInternetGateway where+    toQuery AttachInternetGateway{..} = mconcat+        [ "dryRun"            =? _aigDryRun+        , "internetGatewayId" =? _aigInternetGatewayId+        , "vpcId"             =? _aigVpcId+        ]++instance ToHeaders AttachInternetGateway++instance AWSRequest AttachInternetGateway where+    type Sv AttachInternetGateway = EC2+    type Rs AttachInternetGateway = AttachInternetGatewayResponse++    request  = post "AttachInternetGateway"+    response = nullResponse AttachInternetGatewayResponse
+ gen/Network/AWS/EC2/AttachNetworkInterface.hs view
@@ -0,0 +1,138 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.AttachNetworkInterface+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Attaches a network interface to an instance.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-AttachNetworkInterface.html>+module Network.AWS.EC2.AttachNetworkInterface+    (+    -- * Request+      AttachNetworkInterface+    -- ** Request constructor+    , attachNetworkInterface+    -- ** Request lenses+    , aniDeviceIndex+    , aniDryRun+    , aniInstanceId+    , aniNetworkInterfaceId++    -- * Response+    , AttachNetworkInterfaceResponse+    -- ** Response constructor+    , attachNetworkInterfaceResponse+    -- ** Response lenses+    , anirAttachmentId+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data AttachNetworkInterface = AttachNetworkInterface+    { _aniDeviceIndex        :: Int+    , _aniDryRun             :: Maybe Bool+    , _aniInstanceId         :: Text+    , _aniNetworkInterfaceId :: Text+    } deriving (Eq, Ord, Show)++-- | 'AttachNetworkInterface' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'aniDeviceIndex' @::@ 'Int'+--+-- * 'aniDryRun' @::@ 'Maybe' 'Bool'+--+-- * 'aniInstanceId' @::@ 'Text'+--+-- * 'aniNetworkInterfaceId' @::@ 'Text'+--+attachNetworkInterface :: Text -- ^ 'aniNetworkInterfaceId'+                       -> Text -- ^ 'aniInstanceId'+                       -> Int -- ^ 'aniDeviceIndex'+                       -> AttachNetworkInterface+attachNetworkInterface p1 p2 p3 = AttachNetworkInterface+    { _aniNetworkInterfaceId = p1+    , _aniInstanceId         = p2+    , _aniDeviceIndex        = p3+    , _aniDryRun             = Nothing+    }++-- | The index of the device for the network interface attachment.+aniDeviceIndex :: Lens' AttachNetworkInterface Int+aniDeviceIndex = lens _aniDeviceIndex (\s a -> s { _aniDeviceIndex = a })++aniDryRun :: Lens' AttachNetworkInterface (Maybe Bool)+aniDryRun = lens _aniDryRun (\s a -> s { _aniDryRun = a })++-- | The ID of the instance.+aniInstanceId :: Lens' AttachNetworkInterface Text+aniInstanceId = lens _aniInstanceId (\s a -> s { _aniInstanceId = a })++-- | The ID of the network interface.+aniNetworkInterfaceId :: Lens' AttachNetworkInterface Text+aniNetworkInterfaceId =+    lens _aniNetworkInterfaceId (\s a -> s { _aniNetworkInterfaceId = a })++newtype AttachNetworkInterfaceResponse = AttachNetworkInterfaceResponse+    { _anirAttachmentId :: Maybe Text+    } deriving (Eq, Ord, Show, Monoid)++-- | 'AttachNetworkInterfaceResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'anirAttachmentId' @::@ 'Maybe' 'Text'+--+attachNetworkInterfaceResponse :: AttachNetworkInterfaceResponse+attachNetworkInterfaceResponse = AttachNetworkInterfaceResponse+    { _anirAttachmentId = Nothing+    }++-- | The ID of the network interface attachment.+anirAttachmentId :: Lens' AttachNetworkInterfaceResponse (Maybe Text)+anirAttachmentId = lens _anirAttachmentId (\s a -> s { _anirAttachmentId = a })++instance ToPath AttachNetworkInterface where+    toPath = const "/"++instance ToQuery AttachNetworkInterface where+    toQuery AttachNetworkInterface{..} = mconcat+        [ "deviceIndex"        =? _aniDeviceIndex+        , "dryRun"             =? _aniDryRun+        , "instanceId"         =? _aniInstanceId+        , "networkInterfaceId" =? _aniNetworkInterfaceId+        ]++instance ToHeaders AttachNetworkInterface++instance AWSRequest AttachNetworkInterface where+    type Sv AttachNetworkInterface = EC2+    type Rs AttachNetworkInterface = AttachNetworkInterfaceResponse++    request  = post "AttachNetworkInterface"+    response = xmlResponse++instance FromXML AttachNetworkInterfaceResponse where+    parseXML x = AttachNetworkInterfaceResponse+        <$> x .@? "attachmentId"
+ gen/Network/AWS/EC2/AttachVolume.hs view
@@ -0,0 +1,210 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.AttachVolume+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Attaches an Amazon EBS volume to a running or stopped instance and exposes+-- it to the instance with the specified device name. Encrypted Amazon EBS+-- volumes may only be attached to instances that support Amazon EBS+-- encryption. For more information, see Amazon EBS Encryption in the Amazon+-- Elastic Compute Cloud User Guide. For a list of supported device names, see+-- Attaching an Amazon EBS Volume to an Instance. Any device names that aren't+-- reserved for instance store volumes can be used for Amazon EBS volumes. For+-- more information, see Amazon EC2 Instance Store in the Amazon Elastic+-- Compute Cloud User Guide. If a volume has an AWS Marketplace product code:+-- The volume can only be attached as the root device of a stopped instance.+-- You must be subscribed to the AWS Marketplace code that is on the volume.+-- The configuration (instance type, operating system) of the instance must+-- support that specific AWS Marketplace code. For example, you cannot take a+-- volume from a Windows instance and attach it to a Linux instance. AWS+-- Marketplace product codes are copied from the volume to the instance. For+-- an overview of the AWS Marketplace, see+-- https://aws.amazon.com/marketplace/help/200900000. For more information+-- about how to use the AWS Marketplace, see AWS Marketplace. For more+-- information about Amazon EBS volumes, see Attaching Amazon EBS Volumes in+-- the Amazon Elastic Compute Cloud User Guide.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-AttachVolume.html>+module Network.AWS.EC2.AttachVolume+    (+    -- * Request+      AttachVolume+    -- ** Request constructor+    , attachVolume+    -- ** Request lenses+    , avDevice+    , avDryRun+    , avInstanceId+    , avVolumeId++    -- * Response+    , AttachVolumeResponse+    -- ** Response constructor+    , attachVolumeResponse+    -- ** Response lenses+    , avrAttachTime+    , avrDeleteOnTermination+    , avrDevice+    , avrInstanceId+    , avrState+    , avrVolumeId+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data AttachVolume = AttachVolume+    { _avDevice     :: Text+    , _avDryRun     :: Maybe Bool+    , _avInstanceId :: Text+    , _avVolumeId   :: Text+    } deriving (Eq, Ord, Show)++-- | 'AttachVolume' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'avDevice' @::@ 'Text'+--+-- * 'avDryRun' @::@ 'Maybe' 'Bool'+--+-- * 'avInstanceId' @::@ 'Text'+--+-- * 'avVolumeId' @::@ 'Text'+--+attachVolume :: Text -- ^ 'avVolumeId'+             -> Text -- ^ 'avInstanceId'+             -> Text -- ^ 'avDevice'+             -> AttachVolume+attachVolume p1 p2 p3 = AttachVolume+    { _avVolumeId   = p1+    , _avInstanceId = p2+    , _avDevice     = p3+    , _avDryRun     = Nothing+    }++-- | The device name to expose to the instance (for example, /dev/sdh or+-- xvdh).+avDevice :: Lens' AttachVolume Text+avDevice = lens _avDevice (\s a -> s { _avDevice = a })++avDryRun :: Lens' AttachVolume (Maybe Bool)+avDryRun = lens _avDryRun (\s a -> s { _avDryRun = a })++-- | The ID of the instance.+avInstanceId :: Lens' AttachVolume Text+avInstanceId = lens _avInstanceId (\s a -> s { _avInstanceId = a })++-- | The ID of the Amazon EBS volume. The volume and instance must be within+-- the same Availability Zone.+avVolumeId :: Lens' AttachVolume Text+avVolumeId = lens _avVolumeId (\s a -> s { _avVolumeId = a })++data AttachVolumeResponse = AttachVolumeResponse+    { _avrAttachTime          :: Maybe RFC822+    , _avrDeleteOnTermination :: Maybe Bool+    , _avrDevice              :: Maybe Text+    , _avrInstanceId          :: Maybe Text+    , _avrState               :: Maybe Text+    , _avrVolumeId            :: Maybe Text+    } deriving (Eq, Ord, Show)++-- | 'AttachVolumeResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'avrAttachTime' @::@ 'Maybe' 'UTCTime'+--+-- * 'avrDeleteOnTermination' @::@ 'Maybe' 'Bool'+--+-- * 'avrDevice' @::@ 'Maybe' 'Text'+--+-- * 'avrInstanceId' @::@ 'Maybe' 'Text'+--+-- * 'avrState' @::@ 'Maybe' 'Text'+--+-- * 'avrVolumeId' @::@ 'Maybe' 'Text'+--+attachVolumeResponse :: AttachVolumeResponse+attachVolumeResponse = AttachVolumeResponse+    { _avrVolumeId            = Nothing+    , _avrInstanceId          = Nothing+    , _avrDevice              = Nothing+    , _avrState               = Nothing+    , _avrAttachTime          = Nothing+    , _avrDeleteOnTermination = Nothing+    }++-- | The time stamp when the attachment initiated.+avrAttachTime :: Lens' AttachVolumeResponse (Maybe UTCTime)+avrAttachTime = lens _avrAttachTime (\s a -> s { _avrAttachTime = a }) . mapping _Time++-- | Indicates whether the Amazon EBS volume is deleted on instance+-- termination.+avrDeleteOnTermination :: Lens' AttachVolumeResponse (Maybe Bool)+avrDeleteOnTermination =+    lens _avrDeleteOnTermination (\s a -> s { _avrDeleteOnTermination = a })++-- | The device name.+avrDevice :: Lens' AttachVolumeResponse (Maybe Text)+avrDevice = lens _avrDevice (\s a -> s { _avrDevice = a })++-- | The ID of the instance.+avrInstanceId :: Lens' AttachVolumeResponse (Maybe Text)+avrInstanceId = lens _avrInstanceId (\s a -> s { _avrInstanceId = a })++-- | The attachment state of the volume.+avrState :: Lens' AttachVolumeResponse (Maybe Text)+avrState = lens _avrState (\s a -> s { _avrState = a })++-- | The ID of the volume.+avrVolumeId :: Lens' AttachVolumeResponse (Maybe Text)+avrVolumeId = lens _avrVolumeId (\s a -> s { _avrVolumeId = a })++instance ToPath AttachVolume where+    toPath = const "/"++instance ToQuery AttachVolume where+    toQuery AttachVolume{..} = mconcat+        [ "Device"     =? _avDevice+        , "dryRun"     =? _avDryRun+        , "InstanceId" =? _avInstanceId+        , "VolumeId"   =? _avVolumeId+        ]++instance ToHeaders AttachVolume++instance AWSRequest AttachVolume where+    type Sv AttachVolume = EC2+    type Rs AttachVolume = AttachVolumeResponse++    request  = post "AttachVolume"+    response = xmlResponse++instance FromXML AttachVolumeResponse where+    parseXML x = AttachVolumeResponse+        <$> x .@? "attachTime"+        <*> x .@? "deleteOnTermination"+        <*> x .@? "device"+        <*> x .@? "instanceId"+        <*> x .@? "status"+        <*> x .@? "volumeId"
+ gen/Network/AWS/EC2/AttachVpnGateway.hs view
@@ -0,0 +1,129 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.AttachVpnGateway+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Attaches a virtual private gateway to a VPC. For more information, see+-- Adding a Hardware Virtual Private Gateway to Your VPC in the Amazon Virtual+-- Private Cloud User Guide.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-AttachVpnGateway.html>+module Network.AWS.EC2.AttachVpnGateway+    (+    -- * Request+      AttachVpnGateway+    -- ** Request constructor+    , attachVpnGateway+    -- ** Request lenses+    , avgDryRun+    , avgVpcId+    , avgVpnGatewayId++    -- * Response+    , AttachVpnGatewayResponse+    -- ** Response constructor+    , attachVpnGatewayResponse+    -- ** Response lenses+    , avgrVpcAttachment+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data AttachVpnGateway = AttachVpnGateway+    { _avgDryRun       :: Maybe Bool+    , _avgVpcId        :: Text+    , _avgVpnGatewayId :: Text+    } deriving (Eq, Ord, Show)++-- | 'AttachVpnGateway' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'avgDryRun' @::@ 'Maybe' 'Bool'+--+-- * 'avgVpcId' @::@ 'Text'+--+-- * 'avgVpnGatewayId' @::@ 'Text'+--+attachVpnGateway :: Text -- ^ 'avgVpnGatewayId'+                 -> Text -- ^ 'avgVpcId'+                 -> AttachVpnGateway+attachVpnGateway p1 p2 = AttachVpnGateway+    { _avgVpnGatewayId = p1+    , _avgVpcId        = p2+    , _avgDryRun       = Nothing+    }++avgDryRun :: Lens' AttachVpnGateway (Maybe Bool)+avgDryRun = lens _avgDryRun (\s a -> s { _avgDryRun = a })++-- | The ID of the VPC.+avgVpcId :: Lens' AttachVpnGateway Text+avgVpcId = lens _avgVpcId (\s a -> s { _avgVpcId = a })++-- | The ID of the virtual private gateway.+avgVpnGatewayId :: Lens' AttachVpnGateway Text+avgVpnGatewayId = lens _avgVpnGatewayId (\s a -> s { _avgVpnGatewayId = a })++newtype AttachVpnGatewayResponse = AttachVpnGatewayResponse+    { _avgrVpcAttachment :: Maybe VpcAttachment+    } deriving (Eq, Show)++-- | 'AttachVpnGatewayResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'avgrVpcAttachment' @::@ 'Maybe' 'VpcAttachment'+--+attachVpnGatewayResponse :: AttachVpnGatewayResponse+attachVpnGatewayResponse = AttachVpnGatewayResponse+    { _avgrVpcAttachment = Nothing+    }++-- | Information about the attachment.+avgrVpcAttachment :: Lens' AttachVpnGatewayResponse (Maybe VpcAttachment)+avgrVpcAttachment =+    lens _avgrVpcAttachment (\s a -> s { _avgrVpcAttachment = a })++instance ToPath AttachVpnGateway where+    toPath = const "/"++instance ToQuery AttachVpnGateway where+    toQuery AttachVpnGateway{..} = mconcat+        [ "dryRun"       =? _avgDryRun+        , "VpcId"        =? _avgVpcId+        , "VpnGatewayId" =? _avgVpnGatewayId+        ]++instance ToHeaders AttachVpnGateway++instance AWSRequest AttachVpnGateway where+    type Sv AttachVpnGateway = EC2+    type Rs AttachVpnGateway = AttachVpnGatewayResponse++    request  = post "AttachVpnGateway"+    response = xmlResponse++instance FromXML AttachVpnGatewayResponse where+    parseXML x = AttachVpnGatewayResponse+        <$> x .@? "attachment"
+ gen/Network/AWS/EC2/AuthorizeSecurityGroupEgress.hs view
@@ -0,0 +1,196 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.AuthorizeSecurityGroupEgress+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Adds one or more egress rules to a security group for use with a VPC.+-- Specifically, this action permits instances to send traffic to one or more+-- destination CIDR IP address ranges, or to one or more destination security+-- groups for the same VPC. You can have up to 50 rules per security group+-- (covering both ingress and egress rules). A security group is for use with+-- instances either in the EC2-Classic platform or in a specific VPC. This+-- action doesn't apply to security groups for use in EC2-Classic. For more+-- information, see Security Groups for Your VPC in the Amazon Virtual Private+-- Cloud User Guide. Each rule consists of the protocol (for example, TCP),+-- plus either a CIDR range or a source group. For the TCP and UDP protocols,+-- you must also specify the destination port or port range. For the ICMP+-- protocol, you must also specify the ICMP type and code. You can use -1 for+-- the type or code to mean all types or all codes. Rule changes are+-- propagated to affected instances as quickly as possible. However, a small+-- delay might occur.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-AuthorizeSecurityGroupEgress.html>+module Network.AWS.EC2.AuthorizeSecurityGroupEgress+    (+    -- * Request+      AuthorizeSecurityGroupEgress+    -- ** Request constructor+    , authorizeSecurityGroupEgress+    -- ** Request lenses+    , asgeCidrIp+    , asgeDryRun+    , asgeFromPort+    , asgeGroupId+    , asgeIpPermissions+    , asgeIpProtocol+    , asgeSourceSecurityGroupName+    , asgeSourceSecurityGroupOwnerId+    , asgeToPort++    -- * Response+    , AuthorizeSecurityGroupEgressResponse+    -- ** Response constructor+    , authorizeSecurityGroupEgressResponse+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data AuthorizeSecurityGroupEgress = AuthorizeSecurityGroupEgress+    { _asgeCidrIp                     :: Maybe Text+    , _asgeDryRun                     :: Maybe Bool+    , _asgeFromPort                   :: Maybe Int+    , _asgeGroupId                    :: Text+    , _asgeIpPermissions              :: List "item" IpPermission+    , _asgeIpProtocol                 :: Maybe Text+    , _asgeSourceSecurityGroupName    :: Maybe Text+    , _asgeSourceSecurityGroupOwnerId :: Maybe Text+    , _asgeToPort                     :: Maybe Int+    } deriving (Eq, Show)++-- | 'AuthorizeSecurityGroupEgress' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'asgeCidrIp' @::@ 'Maybe' 'Text'+--+-- * 'asgeDryRun' @::@ 'Maybe' 'Bool'+--+-- * 'asgeFromPort' @::@ 'Maybe' 'Int'+--+-- * 'asgeGroupId' @::@ 'Text'+--+-- * 'asgeIpPermissions' @::@ ['IpPermission']+--+-- * 'asgeIpProtocol' @::@ 'Maybe' 'Text'+--+-- * 'asgeSourceSecurityGroupName' @::@ 'Maybe' 'Text'+--+-- * 'asgeSourceSecurityGroupOwnerId' @::@ 'Maybe' 'Text'+--+-- * 'asgeToPort' @::@ 'Maybe' 'Int'+--+authorizeSecurityGroupEgress :: Text -- ^ 'asgeGroupId'+                             -> AuthorizeSecurityGroupEgress+authorizeSecurityGroupEgress p1 = AuthorizeSecurityGroupEgress+    { _asgeGroupId                    = p1+    , _asgeDryRun                     = Nothing+    , _asgeSourceSecurityGroupName    = Nothing+    , _asgeSourceSecurityGroupOwnerId = Nothing+    , _asgeIpProtocol                 = Nothing+    , _asgeFromPort                   = Nothing+    , _asgeToPort                     = Nothing+    , _asgeCidrIp                     = Nothing+    , _asgeIpPermissions              = mempty+    }++-- | The CIDR IP address range. You can't specify this parameter when+-- specifying a source security group.+asgeCidrIp :: Lens' AuthorizeSecurityGroupEgress (Maybe Text)+asgeCidrIp = lens _asgeCidrIp (\s a -> s { _asgeCidrIp = a })++asgeDryRun :: Lens' AuthorizeSecurityGroupEgress (Maybe Bool)+asgeDryRun = lens _asgeDryRun (\s a -> s { _asgeDryRun = a })++-- | The start of port range for the TCP and UDP protocols, or an ICMP type+-- number. For the ICMP type number, use -1 to specify all ICMP types.+asgeFromPort :: Lens' AuthorizeSecurityGroupEgress (Maybe Int)+asgeFromPort = lens _asgeFromPort (\s a -> s { _asgeFromPort = a })++-- | The ID of the security group.+asgeGroupId :: Lens' AuthorizeSecurityGroupEgress Text+asgeGroupId = lens _asgeGroupId (\s a -> s { _asgeGroupId = a })++-- | A set of IP permissions. You can't specify a destination security group+-- and a CIDR IP address range.+asgeIpPermissions :: Lens' AuthorizeSecurityGroupEgress [IpPermission]+asgeIpPermissions =+    lens _asgeIpPermissions (\s a -> s { _asgeIpPermissions = a })+        . _List++-- | The IP protocol name (tcp, udp, icmp) or number (see Protocol Numbers).+-- Use -1 to specify all.+asgeIpProtocol :: Lens' AuthorizeSecurityGroupEgress (Maybe Text)+asgeIpProtocol = lens _asgeIpProtocol (\s a -> s { _asgeIpProtocol = a })++-- | [EC2-Classic, default VPC] The name of the destination security group.+-- You can't specify a destination security group and a CIDR IP address+-- range.+asgeSourceSecurityGroupName :: Lens' AuthorizeSecurityGroupEgress (Maybe Text)+asgeSourceSecurityGroupName =+    lens _asgeSourceSecurityGroupName+        (\s a -> s { _asgeSourceSecurityGroupName = a })++-- | The ID of the destination security group. You can't specify a destination+-- security group and a CIDR IP address range.+asgeSourceSecurityGroupOwnerId :: Lens' AuthorizeSecurityGroupEgress (Maybe Text)+asgeSourceSecurityGroupOwnerId =+    lens _asgeSourceSecurityGroupOwnerId+        (\s a -> s { _asgeSourceSecurityGroupOwnerId = a })++-- | The end of port range for the TCP and UDP protocols, or an ICMP code+-- number. For the ICMP code number, use -1 to specify all ICMP codes for+-- the ICMP type.+asgeToPort :: Lens' AuthorizeSecurityGroupEgress (Maybe Int)+asgeToPort = lens _asgeToPort (\s a -> s { _asgeToPort = a })++data AuthorizeSecurityGroupEgressResponse = AuthorizeSecurityGroupEgressResponse+    deriving (Eq, Ord, Show, Generic)++-- | 'AuthorizeSecurityGroupEgressResponse' constructor.+authorizeSecurityGroupEgressResponse :: AuthorizeSecurityGroupEgressResponse+authorizeSecurityGroupEgressResponse = AuthorizeSecurityGroupEgressResponse++instance ToPath AuthorizeSecurityGroupEgress where+    toPath = const "/"++instance ToQuery AuthorizeSecurityGroupEgress where+    toQuery AuthorizeSecurityGroupEgress{..} = mconcat+        [ "cidrIp"                     =? _asgeCidrIp+        , "dryRun"                     =? _asgeDryRun+        , "fromPort"                   =? _asgeFromPort+        , "groupId"                    =? _asgeGroupId+        , "ipPermissions"              =? _asgeIpPermissions+        , "ipProtocol"                 =? _asgeIpProtocol+        , "sourceSecurityGroupName"    =? _asgeSourceSecurityGroupName+        , "sourceSecurityGroupOwnerId" =? _asgeSourceSecurityGroupOwnerId+        , "toPort"                     =? _asgeToPort+        ]++instance ToHeaders AuthorizeSecurityGroupEgress++instance AWSRequest AuthorizeSecurityGroupEgress where+    type Sv AuthorizeSecurityGroupEgress = EC2+    type Rs AuthorizeSecurityGroupEgress = AuthorizeSecurityGroupEgressResponse++    request  = post "AuthorizeSecurityGroupEgress"+    response = nullResponse AuthorizeSecurityGroupEgressResponse
+ gen/Network/AWS/EC2/AuthorizeSecurityGroupIngress.hs view
@@ -0,0 +1,202 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.AuthorizeSecurityGroupIngress+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Adds one or more ingress rules to a security group. EC2-Classic: You can+-- have up to 100 rules per group. EC2-VPC: You can have up to 50 rules per+-- group (covering both ingress and egress rules). Rule changes are propagated+-- to instances within the security group as quickly as possible. However, a+-- small delay might occur. [EC2-Classic] This action gives one or more CIDR+-- IP address ranges permission to access a security group in your account, or+-- gives one or more security groups (called the source groups) permission to+-- access a security group for your account. A source group can be for your+-- own AWS account, or another. [EC2-VPC] This action gives one or more CIDR+-- IP address ranges permission to access a security group in your VPC, or+-- gives one or more other security groups (called the source groups)+-- permission to access a security group for your VPC. The security groups+-- must all be for the same VPC.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-AuthorizeSecurityGroupIngress.html>+module Network.AWS.EC2.AuthorizeSecurityGroupIngress+    (+    -- * Request+      AuthorizeSecurityGroupIngress+    -- ** Request constructor+    , authorizeSecurityGroupIngress+    -- ** Request lenses+    , asgiCidrIp+    , asgiDryRun+    , asgiFromPort+    , asgiGroupId+    , asgiGroupName+    , asgiIpPermissions+    , asgiIpProtocol+    , asgiSourceSecurityGroupName+    , asgiSourceSecurityGroupOwnerId+    , asgiToPort++    -- * Response+    , AuthorizeSecurityGroupIngressResponse+    -- ** Response constructor+    , authorizeSecurityGroupIngressResponse+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data AuthorizeSecurityGroupIngress = AuthorizeSecurityGroupIngress+    { _asgiCidrIp                     :: Maybe Text+    , _asgiDryRun                     :: Maybe Bool+    , _asgiFromPort                   :: Maybe Int+    , _asgiGroupId                    :: Maybe Text+    , _asgiGroupName                  :: Maybe Text+    , _asgiIpPermissions              :: List "item" IpPermission+    , _asgiIpProtocol                 :: Maybe Text+    , _asgiSourceSecurityGroupName    :: Maybe Text+    , _asgiSourceSecurityGroupOwnerId :: Maybe Text+    , _asgiToPort                     :: Maybe Int+    } deriving (Eq, Show)++-- | 'AuthorizeSecurityGroupIngress' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'asgiCidrIp' @::@ 'Maybe' 'Text'+--+-- * 'asgiDryRun' @::@ 'Maybe' 'Bool'+--+-- * 'asgiFromPort' @::@ 'Maybe' 'Int'+--+-- * 'asgiGroupId' @::@ 'Maybe' 'Text'+--+-- * 'asgiGroupName' @::@ 'Maybe' 'Text'+--+-- * 'asgiIpPermissions' @::@ ['IpPermission']+--+-- * 'asgiIpProtocol' @::@ 'Maybe' 'Text'+--+-- * 'asgiSourceSecurityGroupName' @::@ 'Maybe' 'Text'+--+-- * 'asgiSourceSecurityGroupOwnerId' @::@ 'Maybe' 'Text'+--+-- * 'asgiToPort' @::@ 'Maybe' 'Int'+--+authorizeSecurityGroupIngress :: AuthorizeSecurityGroupIngress+authorizeSecurityGroupIngress = AuthorizeSecurityGroupIngress+    { _asgiDryRun                     = Nothing+    , _asgiGroupName                  = Nothing+    , _asgiGroupId                    = Nothing+    , _asgiSourceSecurityGroupName    = Nothing+    , _asgiSourceSecurityGroupOwnerId = Nothing+    , _asgiIpProtocol                 = Nothing+    , _asgiFromPort                   = Nothing+    , _asgiToPort                     = Nothing+    , _asgiCidrIp                     = Nothing+    , _asgiIpPermissions              = mempty+    }++-- | The CIDR IP address range. You can't specify this parameter when+-- specifying a source security group.+asgiCidrIp :: Lens' AuthorizeSecurityGroupIngress (Maybe Text)+asgiCidrIp = lens _asgiCidrIp (\s a -> s { _asgiCidrIp = a })++asgiDryRun :: Lens' AuthorizeSecurityGroupIngress (Maybe Bool)+asgiDryRun = lens _asgiDryRun (\s a -> s { _asgiDryRun = a })++-- | The start of port range for the TCP and UDP protocols, or an ICMP type+-- number. For the ICMP type number, use -1 to specify all ICMP types.+asgiFromPort :: Lens' AuthorizeSecurityGroupIngress (Maybe Int)+asgiFromPort = lens _asgiFromPort (\s a -> s { _asgiFromPort = a })++-- | The ID of the security group.+asgiGroupId :: Lens' AuthorizeSecurityGroupIngress (Maybe Text)+asgiGroupId = lens _asgiGroupId (\s a -> s { _asgiGroupId = a })++-- | [EC2-Classic, default VPC] The name of the security group.+asgiGroupName :: Lens' AuthorizeSecurityGroupIngress (Maybe Text)+asgiGroupName = lens _asgiGroupName (\s a -> s { _asgiGroupName = a })++-- | A set of IP permissions. You can't specify a source security group and a+-- CIDR IP address range.+asgiIpPermissions :: Lens' AuthorizeSecurityGroupIngress [IpPermission]+asgiIpPermissions =+    lens _asgiIpPermissions (\s a -> s { _asgiIpPermissions = a })+        . _List++-- | The IP protocol name (tcp, udp, icmp) or number (see Protocol Numbers).+-- Use -1 to specify all.+asgiIpProtocol :: Lens' AuthorizeSecurityGroupIngress (Maybe Text)+asgiIpProtocol = lens _asgiIpProtocol (\s a -> s { _asgiIpProtocol = a })++-- | [EC2-Classic, default VPC] The name of the source security group. You+-- can't specify a source security group and a CIDR IP address range.+asgiSourceSecurityGroupName :: Lens' AuthorizeSecurityGroupIngress (Maybe Text)+asgiSourceSecurityGroupName =+    lens _asgiSourceSecurityGroupName+        (\s a -> s { _asgiSourceSecurityGroupName = a })++-- | The ID of the source security group. You can't specify a source security+-- group and a CIDR IP address range.+asgiSourceSecurityGroupOwnerId :: Lens' AuthorizeSecurityGroupIngress (Maybe Text)+asgiSourceSecurityGroupOwnerId =+    lens _asgiSourceSecurityGroupOwnerId+        (\s a -> s { _asgiSourceSecurityGroupOwnerId = a })++-- | The end of port range for the TCP and UDP protocols, or an ICMP code+-- number. For the ICMP code number, use -1 to specify all ICMP codes for+-- the ICMP type.+asgiToPort :: Lens' AuthorizeSecurityGroupIngress (Maybe Int)+asgiToPort = lens _asgiToPort (\s a -> s { _asgiToPort = a })++data AuthorizeSecurityGroupIngressResponse = AuthorizeSecurityGroupIngressResponse+    deriving (Eq, Ord, Show, Generic)++-- | 'AuthorizeSecurityGroupIngressResponse' constructor.+authorizeSecurityGroupIngressResponse :: AuthorizeSecurityGroupIngressResponse+authorizeSecurityGroupIngressResponse = AuthorizeSecurityGroupIngressResponse++instance ToPath AuthorizeSecurityGroupIngress where+    toPath = const "/"++instance ToQuery AuthorizeSecurityGroupIngress where+    toQuery AuthorizeSecurityGroupIngress{..} = mconcat+        [ "CidrIp"                     =? _asgiCidrIp+        , "dryRun"                     =? _asgiDryRun+        , "FromPort"                   =? _asgiFromPort+        , "GroupId"                    =? _asgiGroupId+        , "GroupName"                  =? _asgiGroupName+        , "IpPermissions"              =? _asgiIpPermissions+        , "IpProtocol"                 =? _asgiIpProtocol+        , "SourceSecurityGroupName"    =? _asgiSourceSecurityGroupName+        , "SourceSecurityGroupOwnerId" =? _asgiSourceSecurityGroupOwnerId+        , "ToPort"                     =? _asgiToPort+        ]++instance ToHeaders AuthorizeSecurityGroupIngress++instance AWSRequest AuthorizeSecurityGroupIngress where+    type Sv AuthorizeSecurityGroupIngress = EC2+    type Rs AuthorizeSecurityGroupIngress = AuthorizeSecurityGroupIngressResponse++    request  = post "AuthorizeSecurityGroupIngress"+    response = nullResponse AuthorizeSecurityGroupIngressResponse
+ gen/Network/AWS/EC2/BundleInstance.hs view
@@ -0,0 +1,132 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.BundleInstance+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Bundles an Amazon instance store-backed Windows instance. During bundling,+-- only the root device volume (C:\) is bundled. Data on other instance store+-- volumes is not preserved. For more information, see Creating an Instance+-- Store-Backed Windows AMI.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-BundleInstance.html>+module Network.AWS.EC2.BundleInstance+    (+    -- * Request+      BundleInstance+    -- ** Request constructor+    , bundleInstance+    -- ** Request lenses+    , biDryRun+    , biInstanceId+    , biStorage++    -- * Response+    , BundleInstanceResponse+    -- ** Response constructor+    , bundleInstanceResponse+    -- ** Response lenses+    , birBundleTask+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data BundleInstance = BundleInstance+    { _biDryRun     :: Maybe Bool+    , _biInstanceId :: Text+    , _biStorage    :: Storage+    } deriving (Eq, Show)++-- | 'BundleInstance' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'biDryRun' @::@ 'Maybe' 'Bool'+--+-- * 'biInstanceId' @::@ 'Text'+--+-- * 'biStorage' @::@ 'Storage'+--+bundleInstance :: Text -- ^ 'biInstanceId'+               -> Storage -- ^ 'biStorage'+               -> BundleInstance+bundleInstance p1 p2 = BundleInstance+    { _biInstanceId = p1+    , _biStorage    = p2+    , _biDryRun     = Nothing+    }++biDryRun :: Lens' BundleInstance (Maybe Bool)+biDryRun = lens _biDryRun (\s a -> s { _biDryRun = a })++-- | The ID of the instance to bundle.+biInstanceId :: Lens' BundleInstance Text+biInstanceId = lens _biInstanceId (\s a -> s { _biInstanceId = a })++-- | The bucket in which to store the AMI. You can specify a bucket that you+-- already own or a new bucket that Amazon EC2 creates on your behalf. If+-- you specify a bucket that belongs to someone else, Amazon EC2 returns an+-- error.+biStorage :: Lens' BundleInstance Storage+biStorage = lens _biStorage (\s a -> s { _biStorage = a })++newtype BundleInstanceResponse = BundleInstanceResponse+    { _birBundleTask :: Maybe BundleTask+    } deriving (Eq, Show)++-- | 'BundleInstanceResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'birBundleTask' @::@ 'Maybe' 'BundleTask'+--+bundleInstanceResponse :: BundleInstanceResponse+bundleInstanceResponse = BundleInstanceResponse+    { _birBundleTask = Nothing+    }++-- | Information about the bundle task.+birBundleTask :: Lens' BundleInstanceResponse (Maybe BundleTask)+birBundleTask = lens _birBundleTask (\s a -> s { _birBundleTask = a })++instance ToPath BundleInstance where+    toPath = const "/"++instance ToQuery BundleInstance where+    toQuery BundleInstance{..} = mconcat+        [ "dryRun"     =? _biDryRun+        , "InstanceId" =? _biInstanceId+        , "Storage"    =? _biStorage+        ]++instance ToHeaders BundleInstance++instance AWSRequest BundleInstance where+    type Sv BundleInstance = EC2+    type Rs BundleInstance = BundleInstanceResponse++    request  = post "BundleInstance"+    response = xmlResponse++instance FromXML BundleInstanceResponse where+    parseXML x = BundleInstanceResponse+        <$> x .@? "bundleInstanceTask"
+ gen/Network/AWS/EC2/CancelBundleTask.hs view
@@ -0,0 +1,115 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.CancelBundleTask+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Cancels a bundling operation for an instance store-backed Windows instance.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-CancelBundleTask.html>+module Network.AWS.EC2.CancelBundleTask+    (+    -- * Request+      CancelBundleTask+    -- ** Request constructor+    , cancelBundleTask+    -- ** Request lenses+    , cbtBundleId+    , cbtDryRun++    -- * Response+    , CancelBundleTaskResponse+    -- ** Response constructor+    , cancelBundleTaskResponse+    -- ** Response lenses+    , cbtrBundleTask+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data CancelBundleTask = CancelBundleTask+    { _cbtBundleId :: Text+    , _cbtDryRun   :: Maybe Bool+    } deriving (Eq, Ord, Show)++-- | 'CancelBundleTask' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'cbtBundleId' @::@ 'Text'+--+-- * 'cbtDryRun' @::@ 'Maybe' 'Bool'+--+cancelBundleTask :: Text -- ^ 'cbtBundleId'+                 -> CancelBundleTask+cancelBundleTask p1 = CancelBundleTask+    { _cbtBundleId = p1+    , _cbtDryRun   = Nothing+    }++-- | The ID of the bundle task.+cbtBundleId :: Lens' CancelBundleTask Text+cbtBundleId = lens _cbtBundleId (\s a -> s { _cbtBundleId = a })++cbtDryRun :: Lens' CancelBundleTask (Maybe Bool)+cbtDryRun = lens _cbtDryRun (\s a -> s { _cbtDryRun = a })++newtype CancelBundleTaskResponse = CancelBundleTaskResponse+    { _cbtrBundleTask :: Maybe BundleTask+    } deriving (Eq, Show)++-- | 'CancelBundleTaskResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'cbtrBundleTask' @::@ 'Maybe' 'BundleTask'+--+cancelBundleTaskResponse :: CancelBundleTaskResponse+cancelBundleTaskResponse = CancelBundleTaskResponse+    { _cbtrBundleTask = Nothing+    }++-- | The bundle task.+cbtrBundleTask :: Lens' CancelBundleTaskResponse (Maybe BundleTask)+cbtrBundleTask = lens _cbtrBundleTask (\s a -> s { _cbtrBundleTask = a })++instance ToPath CancelBundleTask where+    toPath = const "/"++instance ToQuery CancelBundleTask where+    toQuery CancelBundleTask{..} = mconcat+        [ "BundleId" =? _cbtBundleId+        , "dryRun"   =? _cbtDryRun+        ]++instance ToHeaders CancelBundleTask++instance AWSRequest CancelBundleTask where+    type Sv CancelBundleTask = EC2+    type Rs CancelBundleTask = CancelBundleTaskResponse++    request  = post "CancelBundleTask"+    response = xmlResponse++instance FromXML CancelBundleTaskResponse where+    parseXML x = CancelBundleTaskResponse+        <$> x .@? "bundleInstanceTask"
+ gen/Network/AWS/EC2/CancelConversionTask.hs view
@@ -0,0 +1,113 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.CancelConversionTask+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Cancels an active conversion task. The task can be the import of an+-- instance or volume. The action removes all artifacts of the conversion,+-- including a partially uploaded volume or instance. If the conversion is+-- complete or is in the process of transferring the final disk image, the+-- command fails and returns an exception. For more information, see Using the+-- Command Line Tools to Import Your Virtual Machine to Amazon EC2 in the+-- Amazon Elastic Compute Cloud User Guide.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-CancelConversionTask.html>+module Network.AWS.EC2.CancelConversionTask+    (+    -- * Request+      CancelConversionTask+    -- ** Request constructor+    , cancelConversionTask+    -- ** Request lenses+    , cctConversionTaskId+    , cctDryRun+    , cctReasonMessage++    -- * Response+    , CancelConversionTaskResponse+    -- ** Response constructor+    , cancelConversionTaskResponse+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data CancelConversionTask = CancelConversionTask+    { _cctConversionTaskId :: Text+    , _cctDryRun           :: Maybe Bool+    , _cctReasonMessage    :: Maybe Text+    } deriving (Eq, Ord, Show)++-- | 'CancelConversionTask' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'cctConversionTaskId' @::@ 'Text'+--+-- * 'cctDryRun' @::@ 'Maybe' 'Bool'+--+-- * 'cctReasonMessage' @::@ 'Maybe' 'Text'+--+cancelConversionTask :: Text -- ^ 'cctConversionTaskId'+                     -> CancelConversionTask+cancelConversionTask p1 = CancelConversionTask+    { _cctConversionTaskId = p1+    , _cctDryRun           = Nothing+    , _cctReasonMessage    = Nothing+    }++-- | The ID of the conversion task.+cctConversionTaskId :: Lens' CancelConversionTask Text+cctConversionTaskId =+    lens _cctConversionTaskId (\s a -> s { _cctConversionTaskId = a })++cctDryRun :: Lens' CancelConversionTask (Maybe Bool)+cctDryRun = lens _cctDryRun (\s a -> s { _cctDryRun = a })++cctReasonMessage :: Lens' CancelConversionTask (Maybe Text)+cctReasonMessage = lens _cctReasonMessage (\s a -> s { _cctReasonMessage = a })++data CancelConversionTaskResponse = CancelConversionTaskResponse+    deriving (Eq, Ord, Show, Generic)++-- | 'CancelConversionTaskResponse' constructor.+cancelConversionTaskResponse :: CancelConversionTaskResponse+cancelConversionTaskResponse = CancelConversionTaskResponse++instance ToPath CancelConversionTask where+    toPath = const "/"++instance ToQuery CancelConversionTask where+    toQuery CancelConversionTask{..} = mconcat+        [ "conversionTaskId" =? _cctConversionTaskId+        , "dryRun"           =? _cctDryRun+        , "reasonMessage"    =? _cctReasonMessage+        ]++instance ToHeaders CancelConversionTask++instance AWSRequest CancelConversionTask where+    type Sv CancelConversionTask = EC2+    type Rs CancelConversionTask = CancelConversionTaskResponse++    request  = post "CancelConversionTask"+    response = nullResponse CancelConversionTaskResponse
+ gen/Network/AWS/EC2/CancelExportTask.hs view
@@ -0,0 +1,92 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.CancelExportTask+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Cancels an active export task. The request removes all artifacts of the+-- export, including any partially-created Amazon S3 objects. If the export+-- task is complete or is in the process of transferring the final disk image,+-- the command fails and returns an error.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-CancelExportTask.html>+module Network.AWS.EC2.CancelExportTask+    (+    -- * Request+      CancelExportTask+    -- ** Request constructor+    , cancelExportTask+    -- ** Request lenses+    , cetExportTaskId++    -- * Response+    , CancelExportTaskResponse+    -- ** Response constructor+    , cancelExportTaskResponse+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++newtype CancelExportTask = CancelExportTask+    { _cetExportTaskId :: Text+    } deriving (Eq, Ord, Show, Monoid, IsString)++-- | 'CancelExportTask' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'cetExportTaskId' @::@ 'Text'+--+cancelExportTask :: Text -- ^ 'cetExportTaskId'+                 -> CancelExportTask+cancelExportTask p1 = CancelExportTask+    { _cetExportTaskId = p1+    }++-- | The ID of the export task. This is the ID returned by+-- CreateInstanceExportTask.+cetExportTaskId :: Lens' CancelExportTask Text+cetExportTaskId = lens _cetExportTaskId (\s a -> s { _cetExportTaskId = a })++data CancelExportTaskResponse = CancelExportTaskResponse+    deriving (Eq, Ord, Show, Generic)++-- | 'CancelExportTaskResponse' constructor.+cancelExportTaskResponse :: CancelExportTaskResponse+cancelExportTaskResponse = CancelExportTaskResponse++instance ToPath CancelExportTask where+    toPath = const "/"++instance ToQuery CancelExportTask where+    toQuery CancelExportTask{..} = mconcat+        [ "exportTaskId" =? _cetExportTaskId+        ]++instance ToHeaders CancelExportTask++instance AWSRequest CancelExportTask where+    type Sv CancelExportTask = EC2+    type Rs CancelExportTask = CancelExportTaskResponse++    request  = post "CancelExportTask"+    response = nullResponse CancelExportTaskResponse
+ gen/Network/AWS/EC2/CancelReservedInstancesListing.hs view
@@ -0,0 +1,119 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.CancelReservedInstancesListing+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Cancels the specified Reserved Instance listing in the Reserved Instance+-- Marketplace. For more information, see Reserved Instance Marketplace in the+-- Amazon Elastic Compute Cloud User Guide.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-CancelReservedInstancesListing.html>+module Network.AWS.EC2.CancelReservedInstancesListing+    (+    -- * Request+      CancelReservedInstancesListing+    -- ** Request constructor+    , cancelReservedInstancesListing+    -- ** Request lenses+    , crilReservedInstancesListingId++    -- * Response+    , CancelReservedInstancesListingResponse+    -- ** Response constructor+    , cancelReservedInstancesListingResponse+    -- ** Response lenses+    , crilrReservedInstancesListings+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++newtype CancelReservedInstancesListing = CancelReservedInstancesListing+    { _crilReservedInstancesListingId :: Text+    } deriving (Eq, Ord, Show, Monoid, IsString)++-- | 'CancelReservedInstancesListing' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'crilReservedInstancesListingId' @::@ 'Text'+--+cancelReservedInstancesListing :: Text -- ^ 'crilReservedInstancesListingId'+                               -> CancelReservedInstancesListing+cancelReservedInstancesListing p1 = CancelReservedInstancesListing+    { _crilReservedInstancesListingId = p1+    }++-- | The ID of the Reserved Instance listing.+crilReservedInstancesListingId :: Lens' CancelReservedInstancesListing Text+crilReservedInstancesListingId =+    lens _crilReservedInstancesListingId+        (\s a -> s { _crilReservedInstancesListingId = a })++newtype CancelReservedInstancesListingResponse = CancelReservedInstancesListingResponse+    { _crilrReservedInstancesListings :: List "item" ReservedInstancesListing+    } deriving (Eq, Show, Monoid, Semigroup)++instance GHC.Exts.IsList CancelReservedInstancesListingResponse where+    type Item CancelReservedInstancesListingResponse = ReservedInstancesListing++    fromList = CancelReservedInstancesListingResponse . GHC.Exts.fromList+    toList   = GHC.Exts.toList . _crilrReservedInstancesListings++-- | 'CancelReservedInstancesListingResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'crilrReservedInstancesListings' @::@ ['ReservedInstancesListing']+--+cancelReservedInstancesListingResponse :: CancelReservedInstancesListingResponse+cancelReservedInstancesListingResponse = CancelReservedInstancesListingResponse+    { _crilrReservedInstancesListings = mempty+    }++-- | The Reserved Instance listing.+crilrReservedInstancesListings :: Lens' CancelReservedInstancesListingResponse [ReservedInstancesListing]+crilrReservedInstancesListings =+    lens _crilrReservedInstancesListings+        (\s a -> s { _crilrReservedInstancesListings = a })+            . _List++instance ToPath CancelReservedInstancesListing where+    toPath = const "/"++instance ToQuery CancelReservedInstancesListing where+    toQuery CancelReservedInstancesListing{..} = mconcat+        [ "reservedInstancesListingId" =? _crilReservedInstancesListingId+        ]++instance ToHeaders CancelReservedInstancesListing++instance AWSRequest CancelReservedInstancesListing where+    type Sv CancelReservedInstancesListing = EC2+    type Rs CancelReservedInstancesListing = CancelReservedInstancesListingResponse++    request  = post "CancelReservedInstancesListing"+    response = xmlResponse++instance FromXML CancelReservedInstancesListingResponse where+    parseXML x = CancelReservedInstancesListingResponse+        <$> x .@  "reservedInstancesListingsSet"
+ gen/Network/AWS/EC2/CancelSpotInstanceRequests.hs view
@@ -0,0 +1,133 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.CancelSpotInstanceRequests+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Cancels one or more Spot Instance requests. Spot Instances are instances+-- that Amazon EC2 starts on your behalf when the maximum price that you+-- specify exceeds the current Spot Price. Amazon EC2 periodically sets the+-- Spot Price based on available Spot Instance capacity and current Spot+-- Instance requests. For more information about Spot Instances, see Spot+-- Instances in the Amazon Elastic Compute Cloud User Guide. Canceling a Spot+-- Instance request does not terminate running Spot Instances associated with+-- the request.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-CancelSpotInstanceRequests.html>+module Network.AWS.EC2.CancelSpotInstanceRequests+    (+    -- * Request+      CancelSpotInstanceRequests+    -- ** Request constructor+    , cancelSpotInstanceRequests+    -- ** Request lenses+    , csirDryRun+    , csirSpotInstanceRequestIds++    -- * Response+    , CancelSpotInstanceRequestsResponse+    -- ** Response constructor+    , cancelSpotInstanceRequestsResponse+    -- ** Response lenses+    , csirrCancelledSpotInstanceRequests+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data CancelSpotInstanceRequests = CancelSpotInstanceRequests+    { _csirDryRun                 :: Maybe Bool+    , _csirSpotInstanceRequestIds :: List "SpotInstanceRequestId" Text+    } deriving (Eq, Ord, Show)++-- | 'CancelSpotInstanceRequests' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'csirDryRun' @::@ 'Maybe' 'Bool'+--+-- * 'csirSpotInstanceRequestIds' @::@ ['Text']+--+cancelSpotInstanceRequests :: CancelSpotInstanceRequests+cancelSpotInstanceRequests = CancelSpotInstanceRequests+    { _csirDryRun                 = Nothing+    , _csirSpotInstanceRequestIds = mempty+    }++csirDryRun :: Lens' CancelSpotInstanceRequests (Maybe Bool)+csirDryRun = lens _csirDryRun (\s a -> s { _csirDryRun = a })++-- | One or more Spot Instance request IDs.+csirSpotInstanceRequestIds :: Lens' CancelSpotInstanceRequests [Text]+csirSpotInstanceRequestIds =+    lens _csirSpotInstanceRequestIds+        (\s a -> s { _csirSpotInstanceRequestIds = a })+            . _List++newtype CancelSpotInstanceRequestsResponse = CancelSpotInstanceRequestsResponse+    { _csirrCancelledSpotInstanceRequests :: List "item" CancelledSpotInstanceRequest+    } deriving (Eq, Show, Monoid, Semigroup)++instance GHC.Exts.IsList CancelSpotInstanceRequestsResponse where+    type Item CancelSpotInstanceRequestsResponse = CancelledSpotInstanceRequest++    fromList = CancelSpotInstanceRequestsResponse . GHC.Exts.fromList+    toList   = GHC.Exts.toList . _csirrCancelledSpotInstanceRequests++-- | 'CancelSpotInstanceRequestsResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'csirrCancelledSpotInstanceRequests' @::@ ['CancelledSpotInstanceRequest']+--+cancelSpotInstanceRequestsResponse :: CancelSpotInstanceRequestsResponse+cancelSpotInstanceRequestsResponse = CancelSpotInstanceRequestsResponse+    { _csirrCancelledSpotInstanceRequests = mempty+    }++-- | One or more Spot Instance requests.+csirrCancelledSpotInstanceRequests :: Lens' CancelSpotInstanceRequestsResponse [CancelledSpotInstanceRequest]+csirrCancelledSpotInstanceRequests =+    lens _csirrCancelledSpotInstanceRequests+        (\s a -> s { _csirrCancelledSpotInstanceRequests = a })+            . _List++instance ToPath CancelSpotInstanceRequests where+    toPath = const "/"++instance ToQuery CancelSpotInstanceRequests where+    toQuery CancelSpotInstanceRequests{..} = mconcat+        [ "dryRun"                =? _csirDryRun+        , "SpotInstanceRequestId" =? _csirSpotInstanceRequestIds+        ]++instance ToHeaders CancelSpotInstanceRequests++instance AWSRequest CancelSpotInstanceRequests where+    type Sv CancelSpotInstanceRequests = EC2+    type Rs CancelSpotInstanceRequests = CancelSpotInstanceRequestsResponse++    request  = post "CancelSpotInstanceRequests"+    response = xmlResponse++instance FromXML CancelSpotInstanceRequestsResponse where+    parseXML x = CancelSpotInstanceRequestsResponse+        <$> x .@  "spotInstanceRequestSet"
+ gen/Network/AWS/EC2/ConfirmProductInstance.hs view
@@ -0,0 +1,130 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.ConfirmProductInstance+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Determines whether a product code is associated with an instance. This+-- action can only be used by the owner of the product code. It is useful when+-- a product code owner needs to verify whether another user's instance is+-- eligible for support.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-ConfirmProductInstance.html>+module Network.AWS.EC2.ConfirmProductInstance+    (+    -- * Request+      ConfirmProductInstance+    -- ** Request constructor+    , confirmProductInstance+    -- ** Request lenses+    , cpiDryRun+    , cpiInstanceId+    , cpiProductCode++    -- * Response+    , ConfirmProductInstanceResponse+    -- ** Response constructor+    , confirmProductInstanceResponse+    -- ** Response lenses+    , cpirOwnerId+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data ConfirmProductInstance = ConfirmProductInstance+    { _cpiDryRun      :: Maybe Bool+    , _cpiInstanceId  :: Text+    , _cpiProductCode :: Text+    } deriving (Eq, Ord, Show)++-- | 'ConfirmProductInstance' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'cpiDryRun' @::@ 'Maybe' 'Bool'+--+-- * 'cpiInstanceId' @::@ 'Text'+--+-- * 'cpiProductCode' @::@ 'Text'+--+confirmProductInstance :: Text -- ^ 'cpiProductCode'+                       -> Text -- ^ 'cpiInstanceId'+                       -> ConfirmProductInstance+confirmProductInstance p1 p2 = ConfirmProductInstance+    { _cpiProductCode = p1+    , _cpiInstanceId  = p2+    , _cpiDryRun      = Nothing+    }++cpiDryRun :: Lens' ConfirmProductInstance (Maybe Bool)+cpiDryRun = lens _cpiDryRun (\s a -> s { _cpiDryRun = a })++-- | The ID of the instance.+cpiInstanceId :: Lens' ConfirmProductInstance Text+cpiInstanceId = lens _cpiInstanceId (\s a -> s { _cpiInstanceId = a })++-- | The product code. This must be a product code that you own.+cpiProductCode :: Lens' ConfirmProductInstance Text+cpiProductCode = lens _cpiProductCode (\s a -> s { _cpiProductCode = a })++newtype ConfirmProductInstanceResponse = ConfirmProductInstanceResponse+    { _cpirOwnerId :: Maybe Text+    } deriving (Eq, Ord, Show, Monoid)++-- | 'ConfirmProductInstanceResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'cpirOwnerId' @::@ 'Maybe' 'Text'+--+confirmProductInstanceResponse :: ConfirmProductInstanceResponse+confirmProductInstanceResponse = ConfirmProductInstanceResponse+    { _cpirOwnerId = Nothing+    }++-- | The AWS account ID of the instance owner. This is only present if the+-- product code is attached to the instance.+cpirOwnerId :: Lens' ConfirmProductInstanceResponse (Maybe Text)+cpirOwnerId = lens _cpirOwnerId (\s a -> s { _cpirOwnerId = a })++instance ToPath ConfirmProductInstance where+    toPath = const "/"++instance ToQuery ConfirmProductInstance where+    toQuery ConfirmProductInstance{..} = mconcat+        [ "dryRun"      =? _cpiDryRun+        , "InstanceId"  =? _cpiInstanceId+        , "ProductCode" =? _cpiProductCode+        ]++instance ToHeaders ConfirmProductInstance++instance AWSRequest ConfirmProductInstance where+    type Sv ConfirmProductInstance = EC2+    type Rs ConfirmProductInstance = ConfirmProductInstanceResponse++    request  = post "ConfirmProductInstance"+    response = xmlResponse++instance FromXML ConfirmProductInstanceResponse where+    parseXML x = ConfirmProductInstanceResponse+        <$> x .@? "ownerId"
+ gen/Network/AWS/EC2/CopyImage.hs view
@@ -0,0 +1,163 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.CopyImage+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Initiates the copy of an AMI from the specified source region to the region+-- in which the request was made. You specify the destination region by using+-- its endpoint when making the request. AMIs that use encrypted Amazon EBS+-- snapshots cannot be copied with this method. For more information, see+-- Copying AMIs in the Amazon Elastic Compute Cloud User Guide.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-CopyImage.html>+module Network.AWS.EC2.CopyImage+    (+    -- * Request+      CopyImage+    -- ** Request constructor+    , copyImage+    -- ** Request lenses+    , ciClientToken+    , ciDescription+    , ciDryRun+    , ciName+    , ciSourceImageId+    , ciSourceRegion++    -- * Response+    , CopyImageResponse+    -- ** Response constructor+    , copyImageResponse+    -- ** Response lenses+    , cir1ImageId+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data CopyImage = CopyImage+    { _ciClientToken   :: Maybe Text+    , _ciDescription   :: Maybe Text+    , _ciDryRun        :: Maybe Bool+    , _ciName          :: Text+    , _ciSourceImageId :: Text+    , _ciSourceRegion  :: Text+    } deriving (Eq, Ord, Show)++-- | 'CopyImage' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'ciClientToken' @::@ 'Maybe' 'Text'+--+-- * 'ciDescription' @::@ 'Maybe' 'Text'+--+-- * 'ciDryRun' @::@ 'Maybe' 'Bool'+--+-- * 'ciName' @::@ 'Text'+--+-- * 'ciSourceImageId' @::@ 'Text'+--+-- * 'ciSourceRegion' @::@ 'Text'+--+copyImage :: Text -- ^ 'ciSourceRegion'+          -> Text -- ^ 'ciSourceImageId'+          -> Text -- ^ 'ciName'+          -> CopyImage+copyImage p1 p2 p3 = CopyImage+    { _ciSourceRegion  = p1+    , _ciSourceImageId = p2+    , _ciName          = p3+    , _ciDryRun        = Nothing+    , _ciDescription   = Nothing+    , _ciClientToken   = Nothing+    }++-- | Unique, case-sensitive identifier you provide to ensure idempotency of+-- the request. For more information, see How to Ensure Idempotency in the+-- Amazon Elastic Compute Cloud User Guide.+ciClientToken :: Lens' CopyImage (Maybe Text)+ciClientToken = lens _ciClientToken (\s a -> s { _ciClientToken = a })++-- | A description for the new AMI in the destination region.+ciDescription :: Lens' CopyImage (Maybe Text)+ciDescription = lens _ciDescription (\s a -> s { _ciDescription = a })++ciDryRun :: Lens' CopyImage (Maybe Bool)+ciDryRun = lens _ciDryRun (\s a -> s { _ciDryRun = a })++-- | The name of the new AMI in the destination region.+ciName :: Lens' CopyImage Text+ciName = lens _ciName (\s a -> s { _ciName = a })++-- | The ID of the AMI to copy.+ciSourceImageId :: Lens' CopyImage Text+ciSourceImageId = lens _ciSourceImageId (\s a -> s { _ciSourceImageId = a })++-- | The name of the region that contains the AMI to copy.+ciSourceRegion :: Lens' CopyImage Text+ciSourceRegion = lens _ciSourceRegion (\s a -> s { _ciSourceRegion = a })++newtype CopyImageResponse = CopyImageResponse+    { _cir1ImageId :: Maybe Text+    } deriving (Eq, Ord, Show, Monoid)++-- | 'CopyImageResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'cir1ImageId' @::@ 'Maybe' 'Text'+--+copyImageResponse :: CopyImageResponse+copyImageResponse = CopyImageResponse+    { _cir1ImageId = Nothing+    }++-- | The ID of the new AMI.+cir1ImageId :: Lens' CopyImageResponse (Maybe Text)+cir1ImageId = lens _cir1ImageId (\s a -> s { _cir1ImageId = a })++instance ToPath CopyImage where+    toPath = const "/"++instance ToQuery CopyImage where+    toQuery CopyImage{..} = mconcat+        [ "ClientToken"   =? _ciClientToken+        , "Description"   =? _ciDescription+        , "dryRun"        =? _ciDryRun+        , "Name"          =? _ciName+        , "SourceImageId" =? _ciSourceImageId+        , "SourceRegion"  =? _ciSourceRegion+        ]++instance ToHeaders CopyImage++instance AWSRequest CopyImage where+    type Sv CopyImage = EC2+    type Rs CopyImage = CopyImageResponse++    request  = post "CopyImage"+    response = xmlResponse++instance FromXML CopyImageResponse where+    parseXML x = CopyImageResponse+        <$> x .@? "imageId"
+ gen/Network/AWS/EC2/CopySnapshot.hs view
@@ -0,0 +1,178 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.CopySnapshot+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Copies a point-in-time snapshot of an Amazon EBS volume and stores it in+-- Amazon S3. You can copy the snapshot within the same region or from one+-- region to another. You can use the snapshot to create Amazon EBS volumes or+-- Amazon Machine Images (AMIs). The snapshot is copied to the regional+-- endpoint that you send the HTTP request to. Copies of encrypted Amazon EBS+-- snapshots remain encrypted. Copies of unencrypted snapshots remain+-- unencrypted. For more information, see Copying an Amazon EBS Snapshot in+-- the Amazon Elastic Compute Cloud User Guide.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-CopySnapshot.html>+module Network.AWS.EC2.CopySnapshot+    (+    -- * Request+      CopySnapshot+    -- ** Request constructor+    , copySnapshot+    -- ** Request lenses+    , csDescription+    , csDestinationRegion+    , csDryRun+    , csPresignedUrl+    , csSourceRegion+    , csSourceSnapshotId++    -- * Response+    , CopySnapshotResponse+    -- ** Response constructor+    , copySnapshotResponse+    -- ** Response lenses+    , csrSnapshotId+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data CopySnapshot = CopySnapshot+    { _csDescription       :: Maybe Text+    , _csDestinationRegion :: Maybe Text+    , _csDryRun            :: Maybe Bool+    , _csPresignedUrl      :: Maybe Text+    , _csSourceRegion      :: Text+    , _csSourceSnapshotId  :: Text+    } deriving (Eq, Ord, Show)++-- | 'CopySnapshot' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'csDescription' @::@ 'Maybe' 'Text'+--+-- * 'csDestinationRegion' @::@ 'Maybe' 'Text'+--+-- * 'csDryRun' @::@ 'Maybe' 'Bool'+--+-- * 'csPresignedUrl' @::@ 'Maybe' 'Text'+--+-- * 'csSourceRegion' @::@ 'Text'+--+-- * 'csSourceSnapshotId' @::@ 'Text'+--+copySnapshot :: Text -- ^ 'csSourceRegion'+             -> Text -- ^ 'csSourceSnapshotId'+             -> CopySnapshot+copySnapshot p1 p2 = CopySnapshot+    { _csSourceRegion      = p1+    , _csSourceSnapshotId  = p2+    , _csDryRun            = Nothing+    , _csDescription       = Nothing+    , _csDestinationRegion = Nothing+    , _csPresignedUrl      = Nothing+    }++-- | A description for the new Amazon EBS snapshot.+csDescription :: Lens' CopySnapshot (Maybe Text)+csDescription = lens _csDescription (\s a -> s { _csDescription = a })++-- | The destination region of the snapshot copy operation. This parameter is+-- required in the PresignedUrl.+csDestinationRegion :: Lens' CopySnapshot (Maybe Text)+csDestinationRegion =+    lens _csDestinationRegion (\s a -> s { _csDestinationRegion = a })++csDryRun :: Lens' CopySnapshot (Maybe Bool)+csDryRun = lens _csDryRun (\s a -> s { _csDryRun = a })++-- | The pre-signed URL that facilitates copying an encrypted snapshot. This+-- parameter is only required when copying an encrypted snapshot with the+-- Amazon EC2 Query API; it is available as an optional parameter in all+-- other cases. The PresignedUrl should use the snapshot source endpoint,+-- the CopySnapshot action, and include the SourceRegion, SourceSnapshotId,+-- and DestinationRegion parameters. The PresignedUrl must be signed using+-- AWS Signature Version 4. Because Amazon EBS snapshots are stored in+-- Amazon S3, the signing algorithm for this parameter uses the same logic+-- that is described in Authenticating Requests by Using Query Parameters+-- (AWS Signature Version 4) in the Amazon Simple Storage Service API+-- Reference. An invalid or improperly signed PresignedUrl will cause the+-- copy operation to fail asynchronously, and the snapshot will move to an+-- error state.+csPresignedUrl :: Lens' CopySnapshot (Maybe Text)+csPresignedUrl = lens _csPresignedUrl (\s a -> s { _csPresignedUrl = a })++-- | The ID of the region that contains the snapshot to be copied.+csSourceRegion :: Lens' CopySnapshot Text+csSourceRegion = lens _csSourceRegion (\s a -> s { _csSourceRegion = a })++-- | The ID of the Amazon EBS snapshot to copy.+csSourceSnapshotId :: Lens' CopySnapshot Text+csSourceSnapshotId =+    lens _csSourceSnapshotId (\s a -> s { _csSourceSnapshotId = a })++newtype CopySnapshotResponse = CopySnapshotResponse+    { _csrSnapshotId :: Maybe Text+    } deriving (Eq, Ord, Show, Monoid)++-- | 'CopySnapshotResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'csrSnapshotId' @::@ 'Maybe' 'Text'+--+copySnapshotResponse :: CopySnapshotResponse+copySnapshotResponse = CopySnapshotResponse+    { _csrSnapshotId = Nothing+    }++-- | The ID of the new snapshot.+csrSnapshotId :: Lens' CopySnapshotResponse (Maybe Text)+csrSnapshotId = lens _csrSnapshotId (\s a -> s { _csrSnapshotId = a })++instance ToPath CopySnapshot where+    toPath = const "/"++instance ToQuery CopySnapshot where+    toQuery CopySnapshot{..} = mconcat+        [ "Description"       =? _csDescription+        , "destinationRegion" =? _csDestinationRegion+        , "dryRun"            =? _csDryRun+        , "presignedUrl"      =? _csPresignedUrl+        , "SourceRegion"      =? _csSourceRegion+        , "SourceSnapshotId"  =? _csSourceSnapshotId+        ]++instance ToHeaders CopySnapshot++instance AWSRequest CopySnapshot where+    type Sv CopySnapshot = EC2+    type Rs CopySnapshot = CopySnapshotResponse++    request  = post "CopySnapshot"+    response = xmlResponse++instance FromXML CopySnapshotResponse where+    parseXML x = CopySnapshotResponse+        <$> x .@? "snapshotId"
+ gen/Network/AWS/EC2/CreateCustomerGateway.hs view
@@ -0,0 +1,151 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.CreateCustomerGateway+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Provides information to AWS about your VPN customer gateway device. The+-- customer gateway is the appliance at your end of the VPN connection. (The+-- device on the AWS side of the VPN connection is the virtual private+-- gateway.) You must provide the Internet-routable IP address of the customer+-- gateway's external interface. The IP address must be static and can't be+-- behind a device performing network address translation (NAT). For devices+-- that use Border Gateway Protocol (BGP), you can also provide the device's+-- BGP Autonomous System Number (ASN). You can use an existing ASN assigned to+-- your network. If you don't have an ASN already, you can use a private ASN+-- (in the 64512 - 65534 range). For more information about VPN customer+-- gateways, see Adding a Hardware Virtual Private Gateway to Your VPC in the+-- Amazon Virtual Private Cloud User Guide.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-CreateCustomerGateway.html>+module Network.AWS.EC2.CreateCustomerGateway+    (+    -- * Request+      CreateCustomerGateway+    -- ** Request constructor+    , createCustomerGateway+    -- ** Request lenses+    , ccgBgpAsn+    , ccgDryRun+    , ccgPublicIp+    , ccgType++    -- * Response+    , CreateCustomerGatewayResponse+    -- ** Response constructor+    , createCustomerGatewayResponse+    -- ** Response lenses+    , ccgrCustomerGateway+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data CreateCustomerGateway = CreateCustomerGateway+    { _ccgBgpAsn   :: Int+    , _ccgDryRun   :: Maybe Bool+    , _ccgPublicIp :: Text+    , _ccgType     :: Text+    } deriving (Eq, Ord, Show)++-- | 'CreateCustomerGateway' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'ccgBgpAsn' @::@ 'Int'+--+-- * 'ccgDryRun' @::@ 'Maybe' 'Bool'+--+-- * 'ccgPublicIp' @::@ 'Text'+--+-- * 'ccgType' @::@ 'Text'+--+createCustomerGateway :: Text -- ^ 'ccgType'+                      -> Text -- ^ 'ccgPublicIp'+                      -> Int -- ^ 'ccgBgpAsn'+                      -> CreateCustomerGateway+createCustomerGateway p1 p2 p3 = CreateCustomerGateway+    { _ccgType     = p1+    , _ccgPublicIp = p2+    , _ccgBgpAsn   = p3+    , _ccgDryRun   = Nothing+    }++-- | For devices that support BGP, the customer gateway's BGP ASN. Default:+-- 65000.+ccgBgpAsn :: Lens' CreateCustomerGateway Int+ccgBgpAsn = lens _ccgBgpAsn (\s a -> s { _ccgBgpAsn = a })++ccgDryRun :: Lens' CreateCustomerGateway (Maybe Bool)+ccgDryRun = lens _ccgDryRun (\s a -> s { _ccgDryRun = a })++-- | The Internet-routable IP address for the customer gateway's outside+-- interface. The address must be static.+ccgPublicIp :: Lens' CreateCustomerGateway Text+ccgPublicIp = lens _ccgPublicIp (\s a -> s { _ccgPublicIp = a })++-- | The type of VPN connection that this customer gateway supports (ipsec.1).+ccgType :: Lens' CreateCustomerGateway Text+ccgType = lens _ccgType (\s a -> s { _ccgType = a })++newtype CreateCustomerGatewayResponse = CreateCustomerGatewayResponse+    { _ccgrCustomerGateway :: Maybe CustomerGateway+    } deriving (Eq, Show)++-- | 'CreateCustomerGatewayResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'ccgrCustomerGateway' @::@ 'Maybe' 'CustomerGateway'+--+createCustomerGatewayResponse :: CreateCustomerGatewayResponse+createCustomerGatewayResponse = CreateCustomerGatewayResponse+    { _ccgrCustomerGateway = Nothing+    }++-- | Information about the customer gateway.+ccgrCustomerGateway :: Lens' CreateCustomerGatewayResponse (Maybe CustomerGateway)+ccgrCustomerGateway =+    lens _ccgrCustomerGateway (\s a -> s { _ccgrCustomerGateway = a })++instance ToPath CreateCustomerGateway where+    toPath = const "/"++instance ToQuery CreateCustomerGateway where+    toQuery CreateCustomerGateway{..} = mconcat+        [ "BgpAsn"    =? _ccgBgpAsn+        , "dryRun"    =? _ccgDryRun+        , "IpAddress" =? _ccgPublicIp+        , "Type"      =? _ccgType+        ]++instance ToHeaders CreateCustomerGateway++instance AWSRequest CreateCustomerGateway where+    type Sv CreateCustomerGateway = EC2+    type Rs CreateCustomerGateway = CreateCustomerGatewayResponse++    request  = post "CreateCustomerGateway"+    response = xmlResponse++instance FromXML CreateCustomerGatewayResponse where+    parseXML x = CreateCustomerGatewayResponse+        <$> x .@? "customerGateway"
+ gen/Network/AWS/EC2/CreateDhcpOptions.hs view
@@ -0,0 +1,139 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.CreateDhcpOptions+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Creates a set of DHCP options for your VPC. After creating the set, you+-- must associate it with the VPC, causing all existing and new instances that+-- you launch in the VPC to use this set of DHCP options. The following are+-- the individual DHCP options you can specify. For more information about the+-- options, see RFC 2132. domain-name-servers - The IP addresses of up to four+-- domain name servers, or AmazonProvidedDNS. The default DHCP option set+-- specifies AmazonProvidedDNS. If specifying more than one domain name+-- server, specify the IP addresses in a single parameter, separated by+-- commas. domain-name - If you're using AmazonProvidedDNS in us-east-1,+-- specify ec2.internal. If you're using AmazonProvidedDNS in another region,+-- specify region.compute.internal (for example,+-- ap-northeast-1.compute.internal). Otherwise, specify a domain name (for+-- example, MyCompany.com). If specifying more than one domain name, separate+-- them with spaces. ntp-servers - The IP addresses of up to four Network Time+-- Protocol (NTP) servers. netbios-name-servers - The IP addresses of up to+-- four NetBIOS name servers. netbios-node-type - The NetBIOS node type (1, 2,+-- 4, or 8). We recommend that you specify 2 (broadcast and multicast are not+-- currently supported). For more information about these node types, see RFC+-- 2132. Your VPC automatically starts out with a set of DHCP options that+-- includes only a DNS server that we provide (AmazonProvidedDNS). If you+-- create a set of options, and if your VPC has an Internet gateway, make sure+-- to set the domain-name-servers option either to AmazonProvidedDNS or to a+-- domain name server of your choice. For more information about DHCP options,+-- see DHCP Options Sets in the Amazon Virtual Private Cloud User Guide.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-CreateDhcpOptions.html>+module Network.AWS.EC2.CreateDhcpOptions+    (+    -- * Request+      CreateDhcpOptions+    -- ** Request constructor+    , createDhcpOptions+    -- ** Request lenses+    , cdoDhcpConfigurations+    , cdoDryRun++    -- * Response+    , CreateDhcpOptionsResponse+    -- ** Response constructor+    , createDhcpOptionsResponse+    -- ** Response lenses+    , cdorDhcpOptions+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data CreateDhcpOptions = CreateDhcpOptions+    { _cdoDhcpConfigurations :: List "item" NewDhcpConfiguration+    , _cdoDryRun             :: Maybe Bool+    } deriving (Eq, Show)++-- | 'CreateDhcpOptions' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'cdoDhcpConfigurations' @::@ ['NewDhcpConfiguration']+--+-- * 'cdoDryRun' @::@ 'Maybe' 'Bool'+--+createDhcpOptions :: CreateDhcpOptions+createDhcpOptions = CreateDhcpOptions+    { _cdoDryRun             = Nothing+    , _cdoDhcpConfigurations = mempty+    }++-- | A DHCP configuration option.+cdoDhcpConfigurations :: Lens' CreateDhcpOptions [NewDhcpConfiguration]+cdoDhcpConfigurations =+    lens _cdoDhcpConfigurations (\s a -> s { _cdoDhcpConfigurations = a })+        . _List++cdoDryRun :: Lens' CreateDhcpOptions (Maybe Bool)+cdoDryRun = lens _cdoDryRun (\s a -> s { _cdoDryRun = a })++newtype CreateDhcpOptionsResponse = CreateDhcpOptionsResponse+    { _cdorDhcpOptions :: Maybe DhcpOptions+    } deriving (Eq, Show)++-- | 'CreateDhcpOptionsResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'cdorDhcpOptions' @::@ 'Maybe' 'DhcpOptions'+--+createDhcpOptionsResponse :: CreateDhcpOptionsResponse+createDhcpOptionsResponse = CreateDhcpOptionsResponse+    { _cdorDhcpOptions = Nothing+    }++-- | A set of DHCP options.+cdorDhcpOptions :: Lens' CreateDhcpOptionsResponse (Maybe DhcpOptions)+cdorDhcpOptions = lens _cdorDhcpOptions (\s a -> s { _cdorDhcpOptions = a })++instance ToPath CreateDhcpOptions where+    toPath = const "/"++instance ToQuery CreateDhcpOptions where+    toQuery CreateDhcpOptions{..} = mconcat+        [ "dhcpConfiguration" =? _cdoDhcpConfigurations+        , "dryRun"            =? _cdoDryRun+        ]++instance ToHeaders CreateDhcpOptions++instance AWSRequest CreateDhcpOptions where+    type Sv CreateDhcpOptions = EC2+    type Rs CreateDhcpOptions = CreateDhcpOptionsResponse++    request  = post "CreateDhcpOptions"+    response = xmlResponse++instance FromXML CreateDhcpOptionsResponse where+    parseXML x = CreateDhcpOptionsResponse+        <$> x .@? "dhcpOptions"
+ gen/Network/AWS/EC2/CreateImage.hs view
@@ -0,0 +1,171 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.CreateImage+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Creates an Amazon EBS-backed AMI from an Amazon EBS-backed instance that is+-- either running or stopped. If you customized your instance with instance+-- store volumes or EBS volumes in addition to the root device volume, the new+-- AMI contains block device mapping information for those volumes. When you+-- launch an instance from this new AMI, the instance automatically launches+-- with those additional volumes. For more information, see Creating Amazon+-- EBS-Backed Linux AMIs in the Amazon Elastic Compute Cloud User Guide.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-CreateImage.html>+module Network.AWS.EC2.CreateImage+    (+    -- * Request+      CreateImage+    -- ** Request constructor+    , createImage+    -- ** Request lenses+    , ci1BlockDeviceMappings+    , ci1Description+    , ci1DryRun+    , ci1InstanceId+    , ci1Name+    , ci1NoReboot++    -- * Response+    , CreateImageResponse+    -- ** Response constructor+    , createImageResponse+    -- ** Response lenses+    , cirImageId+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data CreateImage = CreateImage+    { _ci1BlockDeviceMappings :: List "BlockDeviceMapping" BlockDeviceMapping+    , _ci1Description         :: Maybe Text+    , _ci1DryRun              :: Maybe Bool+    , _ci1InstanceId          :: Text+    , _ci1Name                :: Text+    , _ci1NoReboot            :: Maybe Bool+    } deriving (Eq, Show)++-- | 'CreateImage' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'ci1BlockDeviceMappings' @::@ ['BlockDeviceMapping']+--+-- * 'ci1Description' @::@ 'Maybe' 'Text'+--+-- * 'ci1DryRun' @::@ 'Maybe' 'Bool'+--+-- * 'ci1InstanceId' @::@ 'Text'+--+-- * 'ci1Name' @::@ 'Text'+--+-- * 'ci1NoReboot' @::@ 'Maybe' 'Bool'+--+createImage :: Text -- ^ 'ci1InstanceId'+            -> Text -- ^ 'ci1Name'+            -> CreateImage+createImage p1 p2 = CreateImage+    { _ci1InstanceId          = p1+    , _ci1Name                = p2+    , _ci1DryRun              = Nothing+    , _ci1Description         = Nothing+    , _ci1NoReboot            = Nothing+    , _ci1BlockDeviceMappings = mempty+    }++-- | Information about one or more block device mappings.+ci1BlockDeviceMappings :: Lens' CreateImage [BlockDeviceMapping]+ci1BlockDeviceMappings =+    lens _ci1BlockDeviceMappings (\s a -> s { _ci1BlockDeviceMappings = a })+        . _List++-- | A description for the new image.+ci1Description :: Lens' CreateImage (Maybe Text)+ci1Description = lens _ci1Description (\s a -> s { _ci1Description = a })++ci1DryRun :: Lens' CreateImage (Maybe Bool)+ci1DryRun = lens _ci1DryRun (\s a -> s { _ci1DryRun = a })++-- | The ID of the instance.+ci1InstanceId :: Lens' CreateImage Text+ci1InstanceId = lens _ci1InstanceId (\s a -> s { _ci1InstanceId = a })++-- | A name for the new image. Constraints: 3-128 alphanumeric characters,+-- parentheses (()), square brackets ([]), spaces ( ), periods (.), slashes+-- (/), dashes (-), single quotes ('), at-signs (@), or underscores(_).+ci1Name :: Lens' CreateImage Text+ci1Name = lens _ci1Name (\s a -> s { _ci1Name = a })++-- | By default, this parameter is set to false, which means Amazon EC2+-- attempts to shut down the instance cleanly before image creation and then+-- reboots the instance. When the parameter is set to true, Amazon EC2+-- doesn't shut down the instance before creating the image. When this+-- option is used, file system integrity on the created image can't be+-- guaranteed.+ci1NoReboot :: Lens' CreateImage (Maybe Bool)+ci1NoReboot = lens _ci1NoReboot (\s a -> s { _ci1NoReboot = a })++newtype CreateImageResponse = CreateImageResponse+    { _cirImageId :: Maybe Text+    } deriving (Eq, Ord, Show, Monoid)++-- | 'CreateImageResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'cirImageId' @::@ 'Maybe' 'Text'+--+createImageResponse :: CreateImageResponse+createImageResponse = CreateImageResponse+    { _cirImageId = Nothing+    }++-- | The ID of the new AMI.+cirImageId :: Lens' CreateImageResponse (Maybe Text)+cirImageId = lens _cirImageId (\s a -> s { _cirImageId = a })++instance ToPath CreateImage where+    toPath = const "/"++instance ToQuery CreateImage where+    toQuery CreateImage{..} = mconcat+        [ "blockDeviceMapping" =? _ci1BlockDeviceMappings+        , "description"        =? _ci1Description+        , "dryRun"             =? _ci1DryRun+        , "instanceId"         =? _ci1InstanceId+        , "name"               =? _ci1Name+        , "noReboot"           =? _ci1NoReboot+        ]++instance ToHeaders CreateImage++instance AWSRequest CreateImage where+    type Sv CreateImage = EC2+    type Rs CreateImage = CreateImageResponse++    request  = post "CreateImage"+    response = xmlResponse++instance FromXML CreateImageResponse where+    parseXML x = CreateImageResponse+        <$> x .@? "imageId"
+ gen/Network/AWS/EC2/CreateInstanceExportTask.hs view
@@ -0,0 +1,140 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.CreateInstanceExportTask+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Exports a running or stopped instance to an Amazon S3 bucket. For+-- information about the supported operating systems, image formats, and known+-- limitations for the types of instances you can export, see Exporting EC2+-- Instances in the Amazon Elastic Compute Cloud User Guide.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-CreateInstanceExportTask.html>+module Network.AWS.EC2.CreateInstanceExportTask+    (+    -- * Request+      CreateInstanceExportTask+    -- ** Request constructor+    , createInstanceExportTask+    -- ** Request lenses+    , cietDescription+    , cietExportToS3Task+    , cietInstanceId+    , cietTargetEnvironment++    -- * Response+    , CreateInstanceExportTaskResponse+    -- ** Response constructor+    , createInstanceExportTaskResponse+    -- ** Response lenses+    , cietrExportTask+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data CreateInstanceExportTask = CreateInstanceExportTask+    { _cietDescription       :: Maybe Text+    , _cietExportToS3Task    :: Maybe ExportToS3TaskSpecification+    , _cietInstanceId        :: Text+    , _cietTargetEnvironment :: Maybe Text+    } deriving (Eq, Show)++-- | 'CreateInstanceExportTask' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'cietDescription' @::@ 'Maybe' 'Text'+--+-- * 'cietExportToS3Task' @::@ 'Maybe' 'ExportToS3TaskSpecification'+--+-- * 'cietInstanceId' @::@ 'Text'+--+-- * 'cietTargetEnvironment' @::@ 'Maybe' 'Text'+--+createInstanceExportTask :: Text -- ^ 'cietInstanceId'+                         -> CreateInstanceExportTask+createInstanceExportTask p1 = CreateInstanceExportTask+    { _cietInstanceId        = p1+    , _cietDescription       = Nothing+    , _cietTargetEnvironment = Nothing+    , _cietExportToS3Task    = Nothing+    }++-- | A description for the conversion task or the resource being exported. The+-- maximum length is 255 bytes.+cietDescription :: Lens' CreateInstanceExportTask (Maybe Text)+cietDescription = lens _cietDescription (\s a -> s { _cietDescription = a })++cietExportToS3Task :: Lens' CreateInstanceExportTask (Maybe ExportToS3TaskSpecification)+cietExportToS3Task =+    lens _cietExportToS3Task (\s a -> s { _cietExportToS3Task = a })++-- | The ID of the instance.+cietInstanceId :: Lens' CreateInstanceExportTask Text+cietInstanceId = lens _cietInstanceId (\s a -> s { _cietInstanceId = a })++-- | The target virtualization environment.+cietTargetEnvironment :: Lens' CreateInstanceExportTask (Maybe Text)+cietTargetEnvironment =+    lens _cietTargetEnvironment (\s a -> s { _cietTargetEnvironment = a })++newtype CreateInstanceExportTaskResponse = CreateInstanceExportTaskResponse+    { _cietrExportTask :: Maybe ExportTask+    } deriving (Eq, Show)++-- | 'CreateInstanceExportTaskResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'cietrExportTask' @::@ 'Maybe' 'ExportTask'+--+createInstanceExportTaskResponse :: CreateInstanceExportTaskResponse+createInstanceExportTaskResponse = CreateInstanceExportTaskResponse+    { _cietrExportTask = Nothing+    }++cietrExportTask :: Lens' CreateInstanceExportTaskResponse (Maybe ExportTask)+cietrExportTask = lens _cietrExportTask (\s a -> s { _cietrExportTask = a })++instance ToPath CreateInstanceExportTask where+    toPath = const "/"++instance ToQuery CreateInstanceExportTask where+    toQuery CreateInstanceExportTask{..} = mconcat+        [ "description"       =? _cietDescription+        , "exportToS3"        =? _cietExportToS3Task+        , "instanceId"        =? _cietInstanceId+        , "targetEnvironment" =? _cietTargetEnvironment+        ]++instance ToHeaders CreateInstanceExportTask++instance AWSRequest CreateInstanceExportTask where+    type Sv CreateInstanceExportTask = EC2+    type Rs CreateInstanceExportTask = CreateInstanceExportTaskResponse++    request  = post "CreateInstanceExportTask"+    response = xmlResponse++instance FromXML CreateInstanceExportTaskResponse where+    parseXML x = CreateInstanceExportTaskResponse+        <$> x .@? "exportTask"
+ gen/Network/AWS/EC2/CreateInternetGateway.hs view
@@ -0,0 +1,108 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.CreateInternetGateway+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Creates an Internet gateway for use with a VPC. After creating the Internet+-- gateway, you attach it to a VPC using AttachInternetGateway. For more+-- information about your VPC and Internet gateway, see the Amazon Virtual+-- Private Cloud User Guide.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-CreateInternetGateway.html>+module Network.AWS.EC2.CreateInternetGateway+    (+    -- * Request+      CreateInternetGateway+    -- ** Request constructor+    , createInternetGateway+    -- ** Request lenses+    , cigDryRun++    -- * Response+    , CreateInternetGatewayResponse+    -- ** Response constructor+    , createInternetGatewayResponse+    -- ** Response lenses+    , cigrInternetGateway+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++newtype CreateInternetGateway = CreateInternetGateway+    { _cigDryRun :: Maybe Bool+    } deriving (Eq, Ord, Show)++-- | 'CreateInternetGateway' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'cigDryRun' @::@ 'Maybe' 'Bool'+--+createInternetGateway :: CreateInternetGateway+createInternetGateway = CreateInternetGateway+    { _cigDryRun = Nothing+    }++cigDryRun :: Lens' CreateInternetGateway (Maybe Bool)+cigDryRun = lens _cigDryRun (\s a -> s { _cigDryRun = a })++newtype CreateInternetGatewayResponse = CreateInternetGatewayResponse+    { _cigrInternetGateway :: Maybe InternetGateway+    } deriving (Eq, Show)++-- | 'CreateInternetGatewayResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'cigrInternetGateway' @::@ 'Maybe' 'InternetGateway'+--+createInternetGatewayResponse :: CreateInternetGatewayResponse+createInternetGatewayResponse = CreateInternetGatewayResponse+    { _cigrInternetGateway = Nothing+    }++-- | Information about the Internet gateway.+cigrInternetGateway :: Lens' CreateInternetGatewayResponse (Maybe InternetGateway)+cigrInternetGateway =+    lens _cigrInternetGateway (\s a -> s { _cigrInternetGateway = a })++instance ToPath CreateInternetGateway where+    toPath = const "/"++instance ToQuery CreateInternetGateway where+    toQuery CreateInternetGateway{..} = mconcat+        [ "dryRun" =? _cigDryRun+        ]++instance ToHeaders CreateInternetGateway++instance AWSRequest CreateInternetGateway where+    type Sv CreateInternetGateway = EC2+    type Rs CreateInternetGateway = CreateInternetGatewayResponse++    request  = post "CreateInternetGateway"+    response = xmlResponse++instance FromXML CreateInternetGatewayResponse where+    parseXML x = CreateInternetGatewayResponse+        <$> x .@? "internetGateway"
+ gen/Network/AWS/EC2/CreateKeyPair.hs view
@@ -0,0 +1,144 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.CreateKeyPair+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Creates a 2048-bit RSA key pair with the specified name. Amazon EC2 stores+-- the public key and displays the private key for you to save to a file. The+-- private key is returned as an unencrypted PEM encoded PKCS#8 private key.+-- If a key with the specified name already exists, Amazon EC2 returns an+-- error. You can have up to five thousand key pairs per region. The key pair+-- returned to you is available only in the region in which you create it. To+-- create a key pair that is available in all regions, use ImportKeyPair. For+-- more information about key pairs, see Key Pairs in the Amazon Elastic+-- Compute Cloud User Guide.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-CreateKeyPair.html>+module Network.AWS.EC2.CreateKeyPair+    (+    -- * Request+      CreateKeyPair+    -- ** Request constructor+    , createKeyPair+    -- ** Request lenses+    , ckpDryRun+    , ckpKeyName++    -- * Response+    , CreateKeyPairResponse+    -- ** Response constructor+    , createKeyPairResponse+    -- ** Response lenses+    , ckprKeyFingerprint+    , ckprKeyMaterial+    , ckprKeyName+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data CreateKeyPair = CreateKeyPair+    { _ckpDryRun  :: Maybe Bool+    , _ckpKeyName :: Text+    } deriving (Eq, Ord, Show)++-- | 'CreateKeyPair' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'ckpDryRun' @::@ 'Maybe' 'Bool'+--+-- * 'ckpKeyName' @::@ 'Text'+--+createKeyPair :: Text -- ^ 'ckpKeyName'+              -> CreateKeyPair+createKeyPair p1 = CreateKeyPair+    { _ckpKeyName = p1+    , _ckpDryRun  = Nothing+    }++ckpDryRun :: Lens' CreateKeyPair (Maybe Bool)+ckpDryRun = lens _ckpDryRun (\s a -> s { _ckpDryRun = a })++-- | A unique name for the key pair. Constraints: Up to 255 ASCII characters.+ckpKeyName :: Lens' CreateKeyPair Text+ckpKeyName = lens _ckpKeyName (\s a -> s { _ckpKeyName = a })++data CreateKeyPairResponse = CreateKeyPairResponse+    { _ckprKeyFingerprint :: Maybe Text+    , _ckprKeyMaterial    :: Maybe Text+    , _ckprKeyName        :: Maybe Text+    } deriving (Eq, Ord, Show)++-- | 'CreateKeyPairResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'ckprKeyFingerprint' @::@ 'Maybe' 'Text'+--+-- * 'ckprKeyMaterial' @::@ 'Maybe' 'Text'+--+-- * 'ckprKeyName' @::@ 'Maybe' 'Text'+--+createKeyPairResponse :: CreateKeyPairResponse+createKeyPairResponse = CreateKeyPairResponse+    { _ckprKeyName        = Nothing+    , _ckprKeyFingerprint = Nothing+    , _ckprKeyMaterial    = Nothing+    }++-- | The SHA-1 digest of the DER encoded private key.+ckprKeyFingerprint :: Lens' CreateKeyPairResponse (Maybe Text)+ckprKeyFingerprint =+    lens _ckprKeyFingerprint (\s a -> s { _ckprKeyFingerprint = a })++-- | An unencrypted PEM encoded RSA private key.+ckprKeyMaterial :: Lens' CreateKeyPairResponse (Maybe Text)+ckprKeyMaterial = lens _ckprKeyMaterial (\s a -> s { _ckprKeyMaterial = a })++-- | The name of the key pair.+ckprKeyName :: Lens' CreateKeyPairResponse (Maybe Text)+ckprKeyName = lens _ckprKeyName (\s a -> s { _ckprKeyName = a })++instance ToPath CreateKeyPair where+    toPath = const "/"++instance ToQuery CreateKeyPair where+    toQuery CreateKeyPair{..} = mconcat+        [ "dryRun"  =? _ckpDryRun+        , "KeyName" =? _ckpKeyName+        ]++instance ToHeaders CreateKeyPair++instance AWSRequest CreateKeyPair where+    type Sv CreateKeyPair = EC2+    type Rs CreateKeyPair = CreateKeyPairResponse++    request  = post "CreateKeyPair"+    response = xmlResponse++instance FromXML CreateKeyPairResponse where+    parseXML x = CreateKeyPairResponse+        <$> x .@? "keyFingerprint"+        <*> x .@? "keyMaterial"+        <*> x .@? "keyName"
+ gen/Network/AWS/EC2/CreateNetworkAcl.hs view
@@ -0,0 +1,118 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.CreateNetworkAcl+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Creates a network ACL in a VPC. Network ACLs provide an optional layer of+-- security (in addition to security groups) for the instances in your VPC.+-- For more information about network ACLs, see Network ACLs in the Amazon+-- Virtual Private Cloud User Guide.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-CreateNetworkAcl.html>+module Network.AWS.EC2.CreateNetworkAcl+    (+    -- * Request+      CreateNetworkAcl+    -- ** Request constructor+    , createNetworkAcl+    -- ** Request lenses+    , cnaDryRun+    , cnaVpcId++    -- * Response+    , CreateNetworkAclResponse+    -- ** Response constructor+    , createNetworkAclResponse+    -- ** Response lenses+    , cnarNetworkAcl+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data CreateNetworkAcl = CreateNetworkAcl+    { _cnaDryRun :: Maybe Bool+    , _cnaVpcId  :: Text+    } deriving (Eq, Ord, Show)++-- | 'CreateNetworkAcl' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'cnaDryRun' @::@ 'Maybe' 'Bool'+--+-- * 'cnaVpcId' @::@ 'Text'+--+createNetworkAcl :: Text -- ^ 'cnaVpcId'+                 -> CreateNetworkAcl+createNetworkAcl p1 = CreateNetworkAcl+    { _cnaVpcId  = p1+    , _cnaDryRun = Nothing+    }++cnaDryRun :: Lens' CreateNetworkAcl (Maybe Bool)+cnaDryRun = lens _cnaDryRun (\s a -> s { _cnaDryRun = a })++-- | The ID of the VPC.+cnaVpcId :: Lens' CreateNetworkAcl Text+cnaVpcId = lens _cnaVpcId (\s a -> s { _cnaVpcId = a })++newtype CreateNetworkAclResponse = CreateNetworkAclResponse+    { _cnarNetworkAcl :: Maybe NetworkAcl+    } deriving (Eq, Show)++-- | 'CreateNetworkAclResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'cnarNetworkAcl' @::@ 'Maybe' 'NetworkAcl'+--+createNetworkAclResponse :: CreateNetworkAclResponse+createNetworkAclResponse = CreateNetworkAclResponse+    { _cnarNetworkAcl = Nothing+    }++-- | Information about the network ACL.+cnarNetworkAcl :: Lens' CreateNetworkAclResponse (Maybe NetworkAcl)+cnarNetworkAcl = lens _cnarNetworkAcl (\s a -> s { _cnarNetworkAcl = a })++instance ToPath CreateNetworkAcl where+    toPath = const "/"++instance ToQuery CreateNetworkAcl where+    toQuery CreateNetworkAcl{..} = mconcat+        [ "dryRun" =? _cnaDryRun+        , "vpcId"  =? _cnaVpcId+        ]++instance ToHeaders CreateNetworkAcl++instance AWSRequest CreateNetworkAcl where+    type Sv CreateNetworkAcl = EC2+    type Rs CreateNetworkAcl = CreateNetworkAclResponse++    request  = post "CreateNetworkAcl"+    response = xmlResponse++instance FromXML CreateNetworkAclResponse where+    parseXML x = CreateNetworkAclResponse+        <$> x .@? "networkAcl"
+ gen/Network/AWS/EC2/CreateNetworkAclEntry.hs view
@@ -0,0 +1,189 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.CreateNetworkAclEntry+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Creates an entry (a rule) in a network ACL with the specified rule number.+-- Each network ACL has a set of numbered ingress rules and a separate set of+-- numbered egress rules. When determining whether a packet should be allowed+-- in or out of a subnet associated with the ACL, we process the entries in+-- the ACL according to the rule numbers, in ascending order. Each network ACL+-- has a set of ingress rules and a separate set of egress rules. We recommend+-- that you leave room between the rule numbers (for example, 100, 110, 120,+-- ...), and not number them one right after the other (for example, 101, 102,+-- 103, ...). This makes it easier to add a rule between existing ones without+-- having to renumber the rules. After you add an entry, you can't modify it;+-- you must either replace it, or create an entry and delete the old one. For+-- more information about network ACLs, see Network ACLs in the Amazon Virtual+-- Private Cloud User Guide.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-CreateNetworkAclEntry.html>+module Network.AWS.EC2.CreateNetworkAclEntry+    (+    -- * Request+      CreateNetworkAclEntry+    -- ** Request constructor+    , createNetworkAclEntry+    -- ** Request lenses+    , cnaeCidrBlock+    , cnaeDryRun+    , cnaeEgress+    , cnaeIcmpTypeCode+    , cnaeNetworkAclId+    , cnaePortRange+    , cnaeProtocol+    , cnaeRuleAction+    , cnaeRuleNumber++    -- * Response+    , CreateNetworkAclEntryResponse+    -- ** Response constructor+    , createNetworkAclEntryResponse+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data CreateNetworkAclEntry = CreateNetworkAclEntry+    { _cnaeCidrBlock    :: Text+    , _cnaeDryRun       :: Maybe Bool+    , _cnaeEgress       :: Bool+    , _cnaeIcmpTypeCode :: Maybe IcmpTypeCode+    , _cnaeNetworkAclId :: Text+    , _cnaePortRange    :: Maybe PortRange+    , _cnaeProtocol     :: Text+    , _cnaeRuleAction   :: Text+    , _cnaeRuleNumber   :: Int+    } deriving (Eq, Show)++-- | 'CreateNetworkAclEntry' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'cnaeCidrBlock' @::@ 'Text'+--+-- * 'cnaeDryRun' @::@ 'Maybe' 'Bool'+--+-- * 'cnaeEgress' @::@ 'Bool'+--+-- * 'cnaeIcmpTypeCode' @::@ 'Maybe' 'IcmpTypeCode'+--+-- * 'cnaeNetworkAclId' @::@ 'Text'+--+-- * 'cnaePortRange' @::@ 'Maybe' 'PortRange'+--+-- * 'cnaeProtocol' @::@ 'Text'+--+-- * 'cnaeRuleAction' @::@ 'Text'+--+-- * 'cnaeRuleNumber' @::@ 'Int'+--+createNetworkAclEntry :: Text -- ^ 'cnaeNetworkAclId'+                      -> Int -- ^ 'cnaeRuleNumber'+                      -> Text -- ^ 'cnaeProtocol'+                      -> Text -- ^ 'cnaeRuleAction'+                      -> Bool -- ^ 'cnaeEgress'+                      -> Text -- ^ 'cnaeCidrBlock'+                      -> CreateNetworkAclEntry+createNetworkAclEntry p1 p2 p3 p4 p5 p6 = CreateNetworkAclEntry+    { _cnaeNetworkAclId = p1+    , _cnaeRuleNumber   = p2+    , _cnaeProtocol     = p3+    , _cnaeRuleAction   = p4+    , _cnaeEgress       = p5+    , _cnaeCidrBlock    = p6+    , _cnaeDryRun       = Nothing+    , _cnaeIcmpTypeCode = Nothing+    , _cnaePortRange    = Nothing+    }++-- | The network range to allow or deny, in CIDR notation (for example+-- 172.16.0.0/24).+cnaeCidrBlock :: Lens' CreateNetworkAclEntry Text+cnaeCidrBlock = lens _cnaeCidrBlock (\s a -> s { _cnaeCidrBlock = a })++cnaeDryRun :: Lens' CreateNetworkAclEntry (Maybe Bool)+cnaeDryRun = lens _cnaeDryRun (\s a -> s { _cnaeDryRun = a })++-- | Indicates whether this is an egress rule (rule is applied to traffic+-- leaving the subnet).+cnaeEgress :: Lens' CreateNetworkAclEntry Bool+cnaeEgress = lens _cnaeEgress (\s a -> s { _cnaeEgress = a })++-- | ICMP protocol: The ICMP type and code. Required if specifying ICMP for+-- the protocol.+cnaeIcmpTypeCode :: Lens' CreateNetworkAclEntry (Maybe IcmpTypeCode)+cnaeIcmpTypeCode = lens _cnaeIcmpTypeCode (\s a -> s { _cnaeIcmpTypeCode = a })++-- | The ID of the network ACL.+cnaeNetworkAclId :: Lens' CreateNetworkAclEntry Text+cnaeNetworkAclId = lens _cnaeNetworkAclId (\s a -> s { _cnaeNetworkAclId = a })++-- | TCP or UDP protocols: The range of ports the rule applies to.+cnaePortRange :: Lens' CreateNetworkAclEntry (Maybe PortRange)+cnaePortRange = lens _cnaePortRange (\s a -> s { _cnaePortRange = a })++-- | The protocol. A value of -1 means all protocols.+cnaeProtocol :: Lens' CreateNetworkAclEntry Text+cnaeProtocol = lens _cnaeProtocol (\s a -> s { _cnaeProtocol = a })++-- | Indicates whether to allow or deny the traffic that matches the rule.+cnaeRuleAction :: Lens' CreateNetworkAclEntry Text+cnaeRuleAction = lens _cnaeRuleAction (\s a -> s { _cnaeRuleAction = a })++-- | The rule number for the entry (for example, 100). ACL entries are+-- processed in ascending order by rule number. Constraints: Positive+-- integer from 1 to 32766.+cnaeRuleNumber :: Lens' CreateNetworkAclEntry Int+cnaeRuleNumber = lens _cnaeRuleNumber (\s a -> s { _cnaeRuleNumber = a })++data CreateNetworkAclEntryResponse = CreateNetworkAclEntryResponse+    deriving (Eq, Ord, Show, Generic)++-- | 'CreateNetworkAclEntryResponse' constructor.+createNetworkAclEntryResponse :: CreateNetworkAclEntryResponse+createNetworkAclEntryResponse = CreateNetworkAclEntryResponse++instance ToPath CreateNetworkAclEntry where+    toPath = const "/"++instance ToQuery CreateNetworkAclEntry where+    toQuery CreateNetworkAclEntry{..} = mconcat+        [ "cidrBlock"    =? _cnaeCidrBlock+        , "dryRun"       =? _cnaeDryRun+        , "egress"       =? _cnaeEgress+        , "Icmp"         =? _cnaeIcmpTypeCode+        , "networkAclId" =? _cnaeNetworkAclId+        , "portRange"    =? _cnaePortRange+        , "protocol"     =? _cnaeProtocol+        , "ruleAction"   =? _cnaeRuleAction+        , "ruleNumber"   =? _cnaeRuleNumber+        ]++instance ToHeaders CreateNetworkAclEntry++instance AWSRequest CreateNetworkAclEntry where+    type Sv CreateNetworkAclEntry = EC2+    type Rs CreateNetworkAclEntry = CreateNetworkAclEntryResponse++    request  = post "CreateNetworkAclEntry"+    response = nullResponse CreateNetworkAclEntryResponse
+ gen/Network/AWS/EC2/CreateNetworkInterface.hs view
@@ -0,0 +1,184 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.CreateNetworkInterface+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Creates a network interface in the specified subnet. For more information+-- about network interfaces, see Elastic Network Interfaces in the Amazon+-- Elastic Compute Cloud User Guide.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-CreateNetworkInterface.html>+module Network.AWS.EC2.CreateNetworkInterface+    (+    -- * Request+      CreateNetworkInterface+    -- ** Request constructor+    , createNetworkInterface+    -- ** Request lenses+    , cniDescription+    , cniDryRun+    , cniGroups+    , cniPrivateIpAddress+    , cniPrivateIpAddresses+    , cniSecondaryPrivateIpAddressCount+    , cniSubnetId++    -- * Response+    , CreateNetworkInterfaceResponse+    -- ** Response constructor+    , createNetworkInterfaceResponse+    -- ** Response lenses+    , cnirNetworkInterface+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data CreateNetworkInterface = CreateNetworkInterface+    { _cniDescription                    :: Maybe Text+    , _cniDryRun                         :: Maybe Bool+    , _cniGroups                         :: List "SecurityGroupId" Text+    , _cniPrivateIpAddress               :: Maybe Text+    , _cniPrivateIpAddresses             :: List "item" PrivateIpAddressSpecification+    , _cniSecondaryPrivateIpAddressCount :: Maybe Int+    , _cniSubnetId                       :: Text+    } deriving (Eq, Show)++-- | 'CreateNetworkInterface' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'cniDescription' @::@ 'Maybe' 'Text'+--+-- * 'cniDryRun' @::@ 'Maybe' 'Bool'+--+-- * 'cniGroups' @::@ ['Text']+--+-- * 'cniPrivateIpAddress' @::@ 'Maybe' 'Text'+--+-- * 'cniPrivateIpAddresses' @::@ ['PrivateIpAddressSpecification']+--+-- * 'cniSecondaryPrivateIpAddressCount' @::@ 'Maybe' 'Int'+--+-- * 'cniSubnetId' @::@ 'Text'+--+createNetworkInterface :: Text -- ^ 'cniSubnetId'+                       -> CreateNetworkInterface+createNetworkInterface p1 = CreateNetworkInterface+    { _cniSubnetId                       = p1+    , _cniDescription                    = Nothing+    , _cniPrivateIpAddress               = Nothing+    , _cniGroups                         = mempty+    , _cniPrivateIpAddresses             = mempty+    , _cniSecondaryPrivateIpAddressCount = Nothing+    , _cniDryRun                         = Nothing+    }++-- | A description for the network interface.+cniDescription :: Lens' CreateNetworkInterface (Maybe Text)+cniDescription = lens _cniDescription (\s a -> s { _cniDescription = a })++cniDryRun :: Lens' CreateNetworkInterface (Maybe Bool)+cniDryRun = lens _cniDryRun (\s a -> s { _cniDryRun = a })++-- | The IDs of one or more security groups.+cniGroups :: Lens' CreateNetworkInterface [Text]+cniGroups = lens _cniGroups (\s a -> s { _cniGroups = a }) . _List++-- | The primary private IP address of the network interface. If you don't+-- specify an IP address, Amazon EC2 selects one for you from the subnet+-- range. If you specify an IP address, you cannot indicate any IP addresses+-- specified in privateIpAddresses as primary (only one IP address can be+-- designated as primary).+cniPrivateIpAddress :: Lens' CreateNetworkInterface (Maybe Text)+cniPrivateIpAddress =+    lens _cniPrivateIpAddress (\s a -> s { _cniPrivateIpAddress = a })++-- | One or more private IP addresses.+cniPrivateIpAddresses :: Lens' CreateNetworkInterface [PrivateIpAddressSpecification]+cniPrivateIpAddresses =+    lens _cniPrivateIpAddresses (\s a -> s { _cniPrivateIpAddresses = a })+        . _List++-- | The number of secondary private IP addresses to assign to a network+-- interface. When you specify a number of secondary IP addresses, Amazon+-- EC2 selects these IP addresses within the subnet range. You can't specify+-- this option and specify more than one private IP address using+-- privateIpAddresses. The number of IP addresses you can assign to a+-- network interface varies by instance type. For more information, see+-- Private IP Addresses Per ENI Per Instance Type in the Amazon Elastic+-- Compute Cloud User Guide.+cniSecondaryPrivateIpAddressCount :: Lens' CreateNetworkInterface (Maybe Int)+cniSecondaryPrivateIpAddressCount =+    lens _cniSecondaryPrivateIpAddressCount+        (\s a -> s { _cniSecondaryPrivateIpAddressCount = a })++-- | The ID of the subnet to associate with the network interface.+cniSubnetId :: Lens' CreateNetworkInterface Text+cniSubnetId = lens _cniSubnetId (\s a -> s { _cniSubnetId = a })++newtype CreateNetworkInterfaceResponse = CreateNetworkInterfaceResponse+    { _cnirNetworkInterface :: Maybe NetworkInterface+    } deriving (Eq, Show)++-- | 'CreateNetworkInterfaceResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'cnirNetworkInterface' @::@ 'Maybe' 'NetworkInterface'+--+createNetworkInterfaceResponse :: CreateNetworkInterfaceResponse+createNetworkInterfaceResponse = CreateNetworkInterfaceResponse+    { _cnirNetworkInterface = Nothing+    }++-- | Information about the network interface.+cnirNetworkInterface :: Lens' CreateNetworkInterfaceResponse (Maybe NetworkInterface)+cnirNetworkInterface =+    lens _cnirNetworkInterface (\s a -> s { _cnirNetworkInterface = a })++instance ToPath CreateNetworkInterface where+    toPath = const "/"++instance ToQuery CreateNetworkInterface where+    toQuery CreateNetworkInterface{..} = mconcat+        [ "description"                    =? _cniDescription+        , "dryRun"                         =? _cniDryRun+        , "SecurityGroupId"                =? _cniGroups+        , "privateIpAddress"               =? _cniPrivateIpAddress+        , "privateIpAddresses"             =? _cniPrivateIpAddresses+        , "secondaryPrivateIpAddressCount" =? _cniSecondaryPrivateIpAddressCount+        , "subnetId"                       =? _cniSubnetId+        ]++instance ToHeaders CreateNetworkInterface++instance AWSRequest CreateNetworkInterface where+    type Sv CreateNetworkInterface = EC2+    type Rs CreateNetworkInterface = CreateNetworkInterfaceResponse++    request  = post "CreateNetworkInterface"+    response = xmlResponse++instance FromXML CreateNetworkInterfaceResponse where+    parseXML x = CreateNetworkInterfaceResponse+        <$> x .@? "networkInterface"
+ gen/Network/AWS/EC2/CreatePlacementGroup.hs view
@@ -0,0 +1,111 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.CreatePlacementGroup+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Creates a placement group that you launch cluster instances into. You must+-- give the group a name that's unique within the scope of your account. For+-- more information about placement groups and cluster instances, see Cluster+-- Instances in the Amazon Elastic Compute Cloud User Guide.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-CreatePlacementGroup.html>+module Network.AWS.EC2.CreatePlacementGroup+    (+    -- * Request+      CreatePlacementGroup+    -- ** Request constructor+    , createPlacementGroup+    -- ** Request lenses+    , cpgDryRun+    , cpgGroupName+    , cpgStrategy++    -- * Response+    , CreatePlacementGroupResponse+    -- ** Response constructor+    , createPlacementGroupResponse+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data CreatePlacementGroup = CreatePlacementGroup+    { _cpgDryRun    :: Maybe Bool+    , _cpgGroupName :: Text+    , _cpgStrategy  :: Text+    } deriving (Eq, Ord, Show)++-- | 'CreatePlacementGroup' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'cpgDryRun' @::@ 'Maybe' 'Bool'+--+-- * 'cpgGroupName' @::@ 'Text'+--+-- * 'cpgStrategy' @::@ 'Text'+--+createPlacementGroup :: Text -- ^ 'cpgGroupName'+                     -> Text -- ^ 'cpgStrategy'+                     -> CreatePlacementGroup+createPlacementGroup p1 p2 = CreatePlacementGroup+    { _cpgGroupName = p1+    , _cpgStrategy  = p2+    , _cpgDryRun    = Nothing+    }++cpgDryRun :: Lens' CreatePlacementGroup (Maybe Bool)+cpgDryRun = lens _cpgDryRun (\s a -> s { _cpgDryRun = a })++-- | A name for the placement group. Constraints: Up to 255 ASCII characters.+cpgGroupName :: Lens' CreatePlacementGroup Text+cpgGroupName = lens _cpgGroupName (\s a -> s { _cpgGroupName = a })++-- | The placement strategy.+cpgStrategy :: Lens' CreatePlacementGroup Text+cpgStrategy = lens _cpgStrategy (\s a -> s { _cpgStrategy = a })++data CreatePlacementGroupResponse = CreatePlacementGroupResponse+    deriving (Eq, Ord, Show, Generic)++-- | 'CreatePlacementGroupResponse' constructor.+createPlacementGroupResponse :: CreatePlacementGroupResponse+createPlacementGroupResponse = CreatePlacementGroupResponse++instance ToPath CreatePlacementGroup where+    toPath = const "/"++instance ToQuery CreatePlacementGroup where+    toQuery CreatePlacementGroup{..} = mconcat+        [ "dryRun"    =? _cpgDryRun+        , "groupName" =? _cpgGroupName+        , "strategy"  =? _cpgStrategy+        ]++instance ToHeaders CreatePlacementGroup++instance AWSRequest CreatePlacementGroup where+    type Sv CreatePlacementGroup = EC2+    type Rs CreatePlacementGroup = CreatePlacementGroupResponse++    request  = post "CreatePlacementGroup"+    response = nullResponse CreatePlacementGroupResponse
+ gen/Network/AWS/EC2/CreateReservedInstancesListing.hs view
@@ -0,0 +1,172 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.CreateReservedInstancesListing+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Creates a listing for Amazon EC2 Reserved Instances to be sold in the+-- Reserved Instance Marketplace. You can submit one Reserved Instance listing+-- at a time. To get a list of your Reserved Instances, you can use the+-- DescribeReservedInstances operation. The Reserved Instance Marketplace+-- matches sellers who want to resell Reserved Instance capacity that they no+-- longer need with buyers who want to purchase additional capacity. Reserved+-- Instances bought and sold through the Reserved Instance Marketplace work+-- like any other Reserved Instances. To sell your Reserved Instances, you+-- must first register as a Seller in the Reserved Instance Marketplace. After+-- completing the registration process, you can create a Reserved Instance+-- Marketplace listing of some or all of your Reserved Instances, and specify+-- the upfront price to receive for them. Your Reserved Instance listings then+-- become available for purchase. To view the details of your Reserved+-- Instance listing, you can use the DescribeReservedInstancesListings+-- operation. For more information, see Reserved Instance Marketplace in the+-- Amazon Elastic Compute Cloud User Guide.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-CreateReservedInstancesListing.html>+module Network.AWS.EC2.CreateReservedInstancesListing+    (+    -- * Request+      CreateReservedInstancesListing+    -- ** Request constructor+    , createReservedInstancesListing+    -- ** Request lenses+    , crilClientToken+    , crilInstanceCount+    , crilPriceSchedules+    , crilReservedInstancesId++    -- * Response+    , CreateReservedInstancesListingResponse+    -- ** Response constructor+    , createReservedInstancesListingResponse+    -- ** Response lenses+    , crilr1ReservedInstancesListings+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data CreateReservedInstancesListing = CreateReservedInstancesListing+    { _crilClientToken         :: Text+    , _crilInstanceCount       :: Int+    , _crilPriceSchedules      :: List "item" PriceScheduleSpecification+    , _crilReservedInstancesId :: Text+    } deriving (Eq, Show)++-- | 'CreateReservedInstancesListing' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'crilClientToken' @::@ 'Text'+--+-- * 'crilInstanceCount' @::@ 'Int'+--+-- * 'crilPriceSchedules' @::@ ['PriceScheduleSpecification']+--+-- * 'crilReservedInstancesId' @::@ 'Text'+--+createReservedInstancesListing :: Text -- ^ 'crilReservedInstancesId'+                               -> Int -- ^ 'crilInstanceCount'+                               -> Text -- ^ 'crilClientToken'+                               -> CreateReservedInstancesListing+createReservedInstancesListing p1 p2 p3 = CreateReservedInstancesListing+    { _crilReservedInstancesId = p1+    , _crilInstanceCount       = p2+    , _crilClientToken         = p3+    , _crilPriceSchedules      = mempty+    }++-- | Unique, case-sensitive identifier you provide to ensure idempotency of+-- your listings. This helps avoid duplicate listings. For more information,+-- see Ensuring Idempotency in the Amazon Elastic Compute Cloud User Guide.+crilClientToken :: Lens' CreateReservedInstancesListing Text+crilClientToken = lens _crilClientToken (\s a -> s { _crilClientToken = a })++-- | The number of instances that are a part of a Reserved Instance account to+-- be listed in the Reserved Instance Marketplace. This number should be+-- less than or equal to the instance count associated with the Reserved+-- Instance ID specified in this call.+crilInstanceCount :: Lens' CreateReservedInstancesListing Int+crilInstanceCount =+    lens _crilInstanceCount (\s a -> s { _crilInstanceCount = a })++-- | A list specifying the price of the Reserved Instance for each month+-- remaining in the Reserved Instance term.+crilPriceSchedules :: Lens' CreateReservedInstancesListing [PriceScheduleSpecification]+crilPriceSchedules =+    lens _crilPriceSchedules (\s a -> s { _crilPriceSchedules = a })+        . _List++-- | The ID of the active Reserved Instance.+crilReservedInstancesId :: Lens' CreateReservedInstancesListing Text+crilReservedInstancesId =+    lens _crilReservedInstancesId (\s a -> s { _crilReservedInstancesId = a })++newtype CreateReservedInstancesListingResponse = CreateReservedInstancesListingResponse+    { _crilr1ReservedInstancesListings :: List "item" ReservedInstancesListing+    } deriving (Eq, Show, Monoid, Semigroup)++instance GHC.Exts.IsList CreateReservedInstancesListingResponse where+    type Item CreateReservedInstancesListingResponse = ReservedInstancesListing++    fromList = CreateReservedInstancesListingResponse . GHC.Exts.fromList+    toList   = GHC.Exts.toList . _crilr1ReservedInstancesListings++-- | 'CreateReservedInstancesListingResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'crilr1ReservedInstancesListings' @::@ ['ReservedInstancesListing']+--+createReservedInstancesListingResponse :: CreateReservedInstancesListingResponse+createReservedInstancesListingResponse = CreateReservedInstancesListingResponse+    { _crilr1ReservedInstancesListings = mempty+    }++-- | Information about the Reserved Instances listing.+crilr1ReservedInstancesListings :: Lens' CreateReservedInstancesListingResponse [ReservedInstancesListing]+crilr1ReservedInstancesListings =+    lens _crilr1ReservedInstancesListings+        (\s a -> s { _crilr1ReservedInstancesListings = a })+            . _List++instance ToPath CreateReservedInstancesListing where+    toPath = const "/"++instance ToQuery CreateReservedInstancesListing where+    toQuery CreateReservedInstancesListing{..} = mconcat+        [ "clientToken"         =? _crilClientToken+        , "instanceCount"       =? _crilInstanceCount+        , "priceSchedules"      =? _crilPriceSchedules+        , "reservedInstancesId" =? _crilReservedInstancesId+        ]++instance ToHeaders CreateReservedInstancesListing++instance AWSRequest CreateReservedInstancesListing where+    type Sv CreateReservedInstancesListing = EC2+    type Rs CreateReservedInstancesListing = CreateReservedInstancesListingResponse++    request  = post "CreateReservedInstancesListing"+    response = xmlResponse++instance FromXML CreateReservedInstancesListingResponse where+    parseXML x = CreateReservedInstancesListingResponse+        <$> x .@  "reservedInstancesListingsSet"
+ gen/Network/AWS/EC2/CreateRoute.hs view
@@ -0,0 +1,166 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.CreateRoute+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Creates a route in a route table within a VPC. You must specify one of the+-- following targets: Internet gateway or virtual private gateway, NAT+-- instance, VPC peering connection, or network interface. When determining+-- how to route traffic, we use the route with the most specific match. For+-- example, let's say the traffic is destined for 192.0.2.3, and the route+-- table includes the following two routes: 192.0.2.0/24 (goes to some target+-- A) 192.0.2.0/28 (goes to some target B) Both routes apply to the traffic+-- destined for 192.0.2.3. However, the second route in the list covers a+-- smaller number of IP addresses and is therefore more specific, so we use+-- that route to determine where to target the traffic. For more information+-- about route tables, see Route Tables in the Amazon Virtual Private Cloud+-- User Guide.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-CreateRoute.html>+module Network.AWS.EC2.CreateRoute+    (+    -- * Request+      CreateRoute+    -- ** Request constructor+    , createRoute+    -- ** Request lenses+    , crDestinationCidrBlock+    , crDryRun+    , crGatewayId+    , crInstanceId+    , crNetworkInterfaceId+    , crRouteTableId+    , crVpcPeeringConnectionId++    -- * Response+    , CreateRouteResponse+    -- ** Response constructor+    , createRouteResponse+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data CreateRoute = CreateRoute+    { _crDestinationCidrBlock   :: Text+    , _crDryRun                 :: Maybe Bool+    , _crGatewayId              :: Maybe Text+    , _crInstanceId             :: Maybe Text+    , _crNetworkInterfaceId     :: Maybe Text+    , _crRouteTableId           :: Text+    , _crVpcPeeringConnectionId :: Maybe Text+    } deriving (Eq, Ord, Show)++-- | 'CreateRoute' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'crDestinationCidrBlock' @::@ 'Text'+--+-- * 'crDryRun' @::@ 'Maybe' 'Bool'+--+-- * 'crGatewayId' @::@ 'Maybe' 'Text'+--+-- * 'crInstanceId' @::@ 'Maybe' 'Text'+--+-- * 'crNetworkInterfaceId' @::@ 'Maybe' 'Text'+--+-- * 'crRouteTableId' @::@ 'Text'+--+-- * 'crVpcPeeringConnectionId' @::@ 'Maybe' 'Text'+--+createRoute :: Text -- ^ 'crRouteTableId'+            -> Text -- ^ 'crDestinationCidrBlock'+            -> CreateRoute+createRoute p1 p2 = CreateRoute+    { _crRouteTableId           = p1+    , _crDestinationCidrBlock   = p2+    , _crDryRun                 = Nothing+    , _crGatewayId              = Nothing+    , _crInstanceId             = Nothing+    , _crNetworkInterfaceId     = Nothing+    , _crVpcPeeringConnectionId = Nothing+    }++-- | The CIDR address block used for the destination match. Routing decisions+-- are based on the most specific match.+crDestinationCidrBlock :: Lens' CreateRoute Text+crDestinationCidrBlock =+    lens _crDestinationCidrBlock (\s a -> s { _crDestinationCidrBlock = a })++crDryRun :: Lens' CreateRoute (Maybe Bool)+crDryRun = lens _crDryRun (\s a -> s { _crDryRun = a })++-- | The ID of an Internet gateway or virtual private gateway attached to your+-- VPC.+crGatewayId :: Lens' CreateRoute (Maybe Text)+crGatewayId = lens _crGatewayId (\s a -> s { _crGatewayId = a })++-- | The ID of a NAT instance in your VPC. The operation fails if you specify+-- an instance ID unless exactly one network interface is attached.+crInstanceId :: Lens' CreateRoute (Maybe Text)+crInstanceId = lens _crInstanceId (\s a -> s { _crInstanceId = a })++-- | The ID of a network interface.+crNetworkInterfaceId :: Lens' CreateRoute (Maybe Text)+crNetworkInterfaceId =+    lens _crNetworkInterfaceId (\s a -> s { _crNetworkInterfaceId = a })++-- | The ID of the route table for the route.+crRouteTableId :: Lens' CreateRoute Text+crRouteTableId = lens _crRouteTableId (\s a -> s { _crRouteTableId = a })++-- | The ID of a VPC peering connection.+crVpcPeeringConnectionId :: Lens' CreateRoute (Maybe Text)+crVpcPeeringConnectionId =+    lens _crVpcPeeringConnectionId+        (\s a -> s { _crVpcPeeringConnectionId = a })++data CreateRouteResponse = CreateRouteResponse+    deriving (Eq, Ord, Show, Generic)++-- | 'CreateRouteResponse' constructor.+createRouteResponse :: CreateRouteResponse+createRouteResponse = CreateRouteResponse++instance ToPath CreateRoute where+    toPath = const "/"++instance ToQuery CreateRoute where+    toQuery CreateRoute{..} = mconcat+        [ "destinationCidrBlock"   =? _crDestinationCidrBlock+        , "dryRun"                 =? _crDryRun+        , "gatewayId"              =? _crGatewayId+        , "instanceId"             =? _crInstanceId+        , "networkInterfaceId"     =? _crNetworkInterfaceId+        , "routeTableId"           =? _crRouteTableId+        , "vpcPeeringConnectionId" =? _crVpcPeeringConnectionId+        ]++instance ToHeaders CreateRoute++instance AWSRequest CreateRoute where+    type Sv CreateRoute = EC2+    type Rs CreateRoute = CreateRouteResponse++    request  = post "CreateRoute"+    response = nullResponse CreateRouteResponse
+ gen/Network/AWS/EC2/CreateRouteTable.hs view
@@ -0,0 +1,118 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.CreateRouteTable+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Creates a route table for the specified VPC. After you create a route+-- table, you can add routes and associate the table with a subnet. For more+-- information about route tables, see Route Tables in the Amazon Virtual+-- Private Cloud User Guide.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-CreateRouteTable.html>+module Network.AWS.EC2.CreateRouteTable+    (+    -- * Request+      CreateRouteTable+    -- ** Request constructor+    , createRouteTable+    -- ** Request lenses+    , crtDryRun+    , crtVpcId++    -- * Response+    , CreateRouteTableResponse+    -- ** Response constructor+    , createRouteTableResponse+    -- ** Response lenses+    , crtrRouteTable+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data CreateRouteTable = CreateRouteTable+    { _crtDryRun :: Maybe Bool+    , _crtVpcId  :: Text+    } deriving (Eq, Ord, Show)++-- | 'CreateRouteTable' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'crtDryRun' @::@ 'Maybe' 'Bool'+--+-- * 'crtVpcId' @::@ 'Text'+--+createRouteTable :: Text -- ^ 'crtVpcId'+                 -> CreateRouteTable+createRouteTable p1 = CreateRouteTable+    { _crtVpcId  = p1+    , _crtDryRun = Nothing+    }++crtDryRun :: Lens' CreateRouteTable (Maybe Bool)+crtDryRun = lens _crtDryRun (\s a -> s { _crtDryRun = a })++-- | The ID of the VPC.+crtVpcId :: Lens' CreateRouteTable Text+crtVpcId = lens _crtVpcId (\s a -> s { _crtVpcId = a })++newtype CreateRouteTableResponse = CreateRouteTableResponse+    { _crtrRouteTable :: Maybe RouteTable+    } deriving (Eq, Show)++-- | 'CreateRouteTableResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'crtrRouteTable' @::@ 'Maybe' 'RouteTable'+--+createRouteTableResponse :: CreateRouteTableResponse+createRouteTableResponse = CreateRouteTableResponse+    { _crtrRouteTable = Nothing+    }++-- | Information about the route table.+crtrRouteTable :: Lens' CreateRouteTableResponse (Maybe RouteTable)+crtrRouteTable = lens _crtrRouteTable (\s a -> s { _crtrRouteTable = a })++instance ToPath CreateRouteTable where+    toPath = const "/"++instance ToQuery CreateRouteTable where+    toQuery CreateRouteTable{..} = mconcat+        [ "dryRun" =? _crtDryRun+        , "vpcId"  =? _crtVpcId+        ]++instance ToHeaders CreateRouteTable++instance AWSRequest CreateRouteTable where+    type Sv CreateRouteTable = EC2+    type Rs CreateRouteTable = CreateRouteTableResponse++    request  = post "CreateRouteTable"+    response = xmlResponse++instance FromXML CreateRouteTableResponse where+    parseXML x = CreateRouteTableResponse+        <$> x .@? "routeTable"
+ gen/Network/AWS/EC2/CreateSecurityGroup.hs view
@@ -0,0 +1,158 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.CreateSecurityGroup+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Creates a security group. A security group is for use with instances either+-- in the EC2-Classic platform or in a specific VPC. For more information, see+-- Amazon EC2 Security Groups in the Amazon Elastic Compute Cloud User Guide+-- and Security Groups for Your VPC in the Amazon Virtual Private Cloud User+-- Guide. EC2-Classic: You can have up to 500 security groups. EC2-VPC: You+-- can create up to 100 security groups per VPC. When you create a security+-- group, you specify a friendly name of your choice. You can have a security+-- group for use in EC2-Classic with the same name as a security group for use+-- in a VPC. However, you can't have two security groups for use in+-- EC2-Classic with the same name or two security groups for use in a VPC with+-- the same name. You have a default security group for use in EC2-Classic and+-- a default security group for use in your VPC. If you don't specify a+-- security group when you launch an instance, the instance is launched into+-- the appropriate default security group. A default security group includes a+-- default rule that grants instances unrestricted network access to each+-- other. You can add or remove rules from your security groups using+-- AuthorizeSecurityGroupIngress, AuthorizeSecurityGroupEgress,+-- RevokeSecurityGroupIngress, and RevokeSecurityGroupEgress.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-CreateSecurityGroup.html>+module Network.AWS.EC2.CreateSecurityGroup+    (+    -- * Request+      CreateSecurityGroup+    -- ** Request constructor+    , createSecurityGroup+    -- ** Request lenses+    , csgDescription+    , csgDryRun+    , csgGroupName+    , csgVpcId++    -- * Response+    , CreateSecurityGroupResponse+    -- ** Response constructor+    , createSecurityGroupResponse+    -- ** Response lenses+    , csgrGroupId+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data CreateSecurityGroup = CreateSecurityGroup+    { _csgDescription :: Text+    , _csgDryRun      :: Maybe Bool+    , _csgGroupName   :: Text+    , _csgVpcId       :: Maybe Text+    } deriving (Eq, Ord, Show)++-- | 'CreateSecurityGroup' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'csgDescription' @::@ 'Text'+--+-- * 'csgDryRun' @::@ 'Maybe' 'Bool'+--+-- * 'csgGroupName' @::@ 'Text'+--+-- * 'csgVpcId' @::@ 'Maybe' 'Text'+--+createSecurityGroup :: Text -- ^ 'csgGroupName'+                    -> Text -- ^ 'csgDescription'+                    -> CreateSecurityGroup+createSecurityGroup p1 p2 = CreateSecurityGroup+    { _csgGroupName   = p1+    , _csgDescription = p2+    , _csgDryRun      = Nothing+    , _csgVpcId       = Nothing+    }++-- | A description for the security group. This is informational only.+-- Constraints: Up to 255 characters in length Constraints for EC2-Classic:+-- ASCII characters Constraints for EC2-VPC: a-z, A-Z, 0-9, spaces, and+-- ._-:/()#,@[]+=&amp;;{}!$*.+csgDescription :: Lens' CreateSecurityGroup Text+csgDescription = lens _csgDescription (\s a -> s { _csgDescription = a })++csgDryRun :: Lens' CreateSecurityGroup (Maybe Bool)+csgDryRun = lens _csgDryRun (\s a -> s { _csgDryRun = a })++-- | The name of the security group. Constraints: Up to 255 characters in+-- length Constraints for EC2-Classic: ASCII characters Constraints for+-- EC2-VPC: a-z, A-Z, 0-9, spaces, and ._-:/()#,@[]+=&amp;;{}!$*.+csgGroupName :: Lens' CreateSecurityGroup Text+csgGroupName = lens _csgGroupName (\s a -> s { _csgGroupName = a })++-- | [EC2-VPC] The ID of the VPC. Required for EC2-VPC.+csgVpcId :: Lens' CreateSecurityGroup (Maybe Text)+csgVpcId = lens _csgVpcId (\s a -> s { _csgVpcId = a })++newtype CreateSecurityGroupResponse = CreateSecurityGroupResponse+    { _csgrGroupId :: Maybe Text+    } deriving (Eq, Ord, Show, Monoid)++-- | 'CreateSecurityGroupResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'csgrGroupId' @::@ 'Maybe' 'Text'+--+createSecurityGroupResponse :: CreateSecurityGroupResponse+createSecurityGroupResponse = CreateSecurityGroupResponse+    { _csgrGroupId = Nothing+    }++-- | The ID of the security group.+csgrGroupId :: Lens' CreateSecurityGroupResponse (Maybe Text)+csgrGroupId = lens _csgrGroupId (\s a -> s { _csgrGroupId = a })++instance ToPath CreateSecurityGroup where+    toPath = const "/"++instance ToQuery CreateSecurityGroup where+    toQuery CreateSecurityGroup{..} = mconcat+        [ "GroupDescription" =? _csgDescription+        , "dryRun"           =? _csgDryRun+        , "GroupName"        =? _csgGroupName+        , "VpcId"            =? _csgVpcId+        ]++instance ToHeaders CreateSecurityGroup++instance AWSRequest CreateSecurityGroup where+    type Sv CreateSecurityGroup = EC2+    type Rs CreateSecurityGroup = CreateSecurityGroupResponse++    request  = post "CreateSecurityGroup"+    response = xmlResponse++instance FromXML CreateSecurityGroupResponse where+    parseXML x = CreateSecurityGroupResponse+        <$> x .@? "groupId"
+ gen/Network/AWS/EC2/CreateSnapshot.hs view
@@ -0,0 +1,246 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.CreateSnapshot+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Creates a snapshot of an Amazon EBS volume and stores it in Amazon S3. You+-- can use snapshots for backups, to make copies of Amazon EBS volumes, and to+-- save data before shutting down an instance. When a snapshot is created, any+-- AWS Marketplace product codes that are associated with the source volume+-- are propagated to the snapshot. You can take a snapshot of an attached+-- volume that is in use. However, snapshots only capture data that has been+-- written to your Amazon EBS volume 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 volume+-- long enough to take a snapshot, your snapshot should be complete. However,+-- if you cannot pause all file writes to the volume, you should unmount the+-- volume from within the instance, issue the snapshot command, and then+-- remount the volume to ensure a consistent and complete snapshot. You may+-- remount and use your volume while the snapshot status is pending. To create+-- a snapshot for Amazon EBS volumes that serve as root devices, you should+-- stop the instance before taking the snapshot. Snapshots that are taken from+-- encrypted volumes are automatically encrypted. Volumes that are created+-- from encrypted snapshots are also automatically encrypted. Your encrypted+-- volumes and any associated snapshots always remain protected. For more+-- information, see Amazon Elastic Block Store and Amazon EBS Encryption in+-- the Amazon Elastic Compute Cloud User Guide.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-CreateSnapshot.html>+module Network.AWS.EC2.CreateSnapshot+    (+    -- * Request+      CreateSnapshot+    -- ** Request constructor+    , createSnapshot+    -- ** Request lenses+    , cs2Description+    , cs2DryRun+    , cs2VolumeId++    -- * Response+    , CreateSnapshotResponse+    -- ** Response constructor+    , createSnapshotResponse+    -- ** Response lenses+    , csr1Description+    , csr1Encrypted+    , csr1OwnerAlias+    , csr1OwnerId+    , csr1Progress+    , csr1SnapshotId+    , csr1StartTime+    , csr1State+    , csr1Tags+    , csr1VolumeId+    , csr1VolumeSize+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data CreateSnapshot = CreateSnapshot+    { _cs2Description :: Maybe Text+    , _cs2DryRun      :: Maybe Bool+    , _cs2VolumeId    :: Text+    } deriving (Eq, Ord, Show)++-- | 'CreateSnapshot' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'cs2Description' @::@ 'Maybe' 'Text'+--+-- * 'cs2DryRun' @::@ 'Maybe' 'Bool'+--+-- * 'cs2VolumeId' @::@ 'Text'+--+createSnapshot :: Text -- ^ 'cs2VolumeId'+               -> CreateSnapshot+createSnapshot p1 = CreateSnapshot+    { _cs2VolumeId    = p1+    , _cs2DryRun      = Nothing+    , _cs2Description = Nothing+    }++-- | A description for the snapshot.+cs2Description :: Lens' CreateSnapshot (Maybe Text)+cs2Description = lens _cs2Description (\s a -> s { _cs2Description = a })++cs2DryRun :: Lens' CreateSnapshot (Maybe Bool)+cs2DryRun = lens _cs2DryRun (\s a -> s { _cs2DryRun = a })++-- | The ID of the Amazon EBS volume.+cs2VolumeId :: Lens' CreateSnapshot Text+cs2VolumeId = lens _cs2VolumeId (\s a -> s { _cs2VolumeId = a })++data CreateSnapshotResponse = CreateSnapshotResponse+    { _csr1Description :: Maybe Text+    , _csr1Encrypted   :: Maybe Bool+    , _csr1OwnerAlias  :: Maybe Text+    , _csr1OwnerId     :: Maybe Text+    , _csr1Progress    :: Maybe Text+    , _csr1SnapshotId  :: Maybe Text+    , _csr1StartTime   :: Maybe RFC822+    , _csr1State       :: Maybe Text+    , _csr1Tags        :: List "item" Tag+    , _csr1VolumeId    :: Maybe Text+    , _csr1VolumeSize  :: Maybe Int+    } deriving (Eq, Show)++-- | 'CreateSnapshotResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'csr1Description' @::@ 'Maybe' 'Text'+--+-- * 'csr1Encrypted' @::@ 'Maybe' 'Bool'+--+-- * 'csr1OwnerAlias' @::@ 'Maybe' 'Text'+--+-- * 'csr1OwnerId' @::@ 'Maybe' 'Text'+--+-- * 'csr1Progress' @::@ 'Maybe' 'Text'+--+-- * 'csr1SnapshotId' @::@ 'Maybe' 'Text'+--+-- * 'csr1StartTime' @::@ 'Maybe' 'UTCTime'+--+-- * 'csr1State' @::@ 'Maybe' 'Text'+--+-- * 'csr1Tags' @::@ ['Tag']+--+-- * 'csr1VolumeId' @::@ 'Maybe' 'Text'+--+-- * 'csr1VolumeSize' @::@ 'Maybe' 'Int'+--+createSnapshotResponse :: CreateSnapshotResponse+createSnapshotResponse = CreateSnapshotResponse+    { _csr1SnapshotId  = Nothing+    , _csr1VolumeId    = Nothing+    , _csr1State       = Nothing+    , _csr1StartTime   = Nothing+    , _csr1Progress    = Nothing+    , _csr1OwnerId     = Nothing+    , _csr1Description = Nothing+    , _csr1VolumeSize  = Nothing+    , _csr1OwnerAlias  = Nothing+    , _csr1Tags        = mempty+    , _csr1Encrypted   = Nothing+    }++-- | The description for the snapshot.+csr1Description :: Lens' CreateSnapshotResponse (Maybe Text)+csr1Description = lens _csr1Description (\s a -> s { _csr1Description = a })++-- | Indicates whether the snapshot is encrypted.+csr1Encrypted :: Lens' CreateSnapshotResponse (Maybe Bool)+csr1Encrypted = lens _csr1Encrypted (\s a -> s { _csr1Encrypted = a })++-- | The AWS account alias (for example, amazon, self) or AWS account ID that+-- owns the snapshot.+csr1OwnerAlias :: Lens' CreateSnapshotResponse (Maybe Text)+csr1OwnerAlias = lens _csr1OwnerAlias (\s a -> s { _csr1OwnerAlias = a })++-- | The AWS account ID of the Amazon EBS snapshot owner.+csr1OwnerId :: Lens' CreateSnapshotResponse (Maybe Text)+csr1OwnerId = lens _csr1OwnerId (\s a -> s { _csr1OwnerId = a })++-- | The progress of the snapshot, as a percentage.+csr1Progress :: Lens' CreateSnapshotResponse (Maybe Text)+csr1Progress = lens _csr1Progress (\s a -> s { _csr1Progress = a })++-- | The ID of the snapshot.+csr1SnapshotId :: Lens' CreateSnapshotResponse (Maybe Text)+csr1SnapshotId = lens _csr1SnapshotId (\s a -> s { _csr1SnapshotId = a })++-- | The time stamp when the snapshot was initiated.+csr1StartTime :: Lens' CreateSnapshotResponse (Maybe UTCTime)+csr1StartTime = lens _csr1StartTime (\s a -> s { _csr1StartTime = a }) . mapping _Time++-- | The snapshot state.+csr1State :: Lens' CreateSnapshotResponse (Maybe Text)+csr1State = lens _csr1State (\s a -> s { _csr1State = a })++-- | Any tags assigned to the snapshot.+csr1Tags :: Lens' CreateSnapshotResponse [Tag]+csr1Tags = lens _csr1Tags (\s a -> s { _csr1Tags = a }) . _List++-- | The ID of the volume.+csr1VolumeId :: Lens' CreateSnapshotResponse (Maybe Text)+csr1VolumeId = lens _csr1VolumeId (\s a -> s { _csr1VolumeId = a })++-- | The size of the volume, in GiB.+csr1VolumeSize :: Lens' CreateSnapshotResponse (Maybe Int)+csr1VolumeSize = lens _csr1VolumeSize (\s a -> s { _csr1VolumeSize = a })++instance ToPath CreateSnapshot where+    toPath = const "/"++instance ToQuery CreateSnapshot where+    toQuery CreateSnapshot{..} = mconcat+        [ "Description" =? _cs2Description+        , "dryRun"      =? _cs2DryRun+        , "VolumeId"    =? _cs2VolumeId+        ]++instance ToHeaders CreateSnapshot++instance AWSRequest CreateSnapshot where+    type Sv CreateSnapshot = EC2+    type Rs CreateSnapshot = CreateSnapshotResponse++    request  = post "CreateSnapshot"+    response = xmlResponse++instance FromXML CreateSnapshotResponse where+    parseXML x = CreateSnapshotResponse+        <$> x .@? "description"+        <*> x .@? "encrypted"+        <*> x .@? "ownerAlias"+        <*> x .@? "ownerId"+        <*> x .@? "progress"+        <*> x .@? "snapshotId"+        <*> x .@? "startTime"+        <*> x .@? "status"+        <*> x .@  "tagSet"+        <*> x .@? "volumeId"+        <*> x .@? "volumeSize"
+ gen/Network/AWS/EC2/CreateSpotDatafeedSubscription.hs view
@@ -0,0 +1,131 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.CreateSpotDatafeedSubscription+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Creates a datafeed for Spot Instances, enabling you to view Spot Instance+-- usage logs. You can create one data feed per AWS account. For more+-- information, see Spot Instances in the Amazon Elastic Compute Cloud User+-- Guide.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-CreateSpotDatafeedSubscription.html>+module Network.AWS.EC2.CreateSpotDatafeedSubscription+    (+    -- * Request+      CreateSpotDatafeedSubscription+    -- ** Request constructor+    , createSpotDatafeedSubscription+    -- ** Request lenses+    , csdsBucket+    , csdsDryRun+    , csdsPrefix++    -- * Response+    , CreateSpotDatafeedSubscriptionResponse+    -- ** Response constructor+    , createSpotDatafeedSubscriptionResponse+    -- ** Response lenses+    , csdsrSpotDatafeedSubscription+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data CreateSpotDatafeedSubscription = CreateSpotDatafeedSubscription+    { _csdsBucket :: Text+    , _csdsDryRun :: Maybe Bool+    , _csdsPrefix :: Maybe Text+    } deriving (Eq, Ord, Show)++-- | 'CreateSpotDatafeedSubscription' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'csdsBucket' @::@ 'Text'+--+-- * 'csdsDryRun' @::@ 'Maybe' 'Bool'+--+-- * 'csdsPrefix' @::@ 'Maybe' 'Text'+--+createSpotDatafeedSubscription :: Text -- ^ 'csdsBucket'+                               -> CreateSpotDatafeedSubscription+createSpotDatafeedSubscription p1 = CreateSpotDatafeedSubscription+    { _csdsBucket = p1+    , _csdsDryRun = Nothing+    , _csdsPrefix = Nothing+    }++-- | The Amazon S3 bucket in which to store the Spot Instance datafeed.+-- Constraints: Must be a valid bucket associated with your AWS account.+csdsBucket :: Lens' CreateSpotDatafeedSubscription Text+csdsBucket = lens _csdsBucket (\s a -> s { _csdsBucket = a })++csdsDryRun :: Lens' CreateSpotDatafeedSubscription (Maybe Bool)+csdsDryRun = lens _csdsDryRun (\s a -> s { _csdsDryRun = a })++-- | A prefix for the datafeed file names.+csdsPrefix :: Lens' CreateSpotDatafeedSubscription (Maybe Text)+csdsPrefix = lens _csdsPrefix (\s a -> s { _csdsPrefix = a })++newtype CreateSpotDatafeedSubscriptionResponse = CreateSpotDatafeedSubscriptionResponse+    { _csdsrSpotDatafeedSubscription :: Maybe SpotDatafeedSubscription+    } deriving (Eq, Show)++-- | 'CreateSpotDatafeedSubscriptionResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'csdsrSpotDatafeedSubscription' @::@ 'Maybe' 'SpotDatafeedSubscription'+--+createSpotDatafeedSubscriptionResponse :: CreateSpotDatafeedSubscriptionResponse+createSpotDatafeedSubscriptionResponse = CreateSpotDatafeedSubscriptionResponse+    { _csdsrSpotDatafeedSubscription = Nothing+    }++-- | The Spot Instance datafeed subscription.+csdsrSpotDatafeedSubscription :: Lens' CreateSpotDatafeedSubscriptionResponse (Maybe SpotDatafeedSubscription)+csdsrSpotDatafeedSubscription =+    lens _csdsrSpotDatafeedSubscription+        (\s a -> s { _csdsrSpotDatafeedSubscription = a })++instance ToPath CreateSpotDatafeedSubscription where+    toPath = const "/"++instance ToQuery CreateSpotDatafeedSubscription where+    toQuery CreateSpotDatafeedSubscription{..} = mconcat+        [ "bucket" =? _csdsBucket+        , "dryRun" =? _csdsDryRun+        , "prefix" =? _csdsPrefix+        ]++instance ToHeaders CreateSpotDatafeedSubscription++instance AWSRequest CreateSpotDatafeedSubscription where+    type Sv CreateSpotDatafeedSubscription = EC2+    type Rs CreateSpotDatafeedSubscription = CreateSpotDatafeedSubscriptionResponse++    request  = post "CreateSpotDatafeedSubscription"+    response = xmlResponse++instance FromXML CreateSpotDatafeedSubscriptionResponse where+    parseXML x = CreateSpotDatafeedSubscriptionResponse+        <$> x .@? "spotDatafeedSubscription"
+ gen/Network/AWS/EC2/CreateSubnet.hs view
@@ -0,0 +1,156 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.CreateSubnet+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Creates a subnet in an existing VPC. When you create each subnet, you+-- provide the VPC ID and the CIDR block you want for the subnet. After you+-- create a subnet, you can't change its CIDR block. The subnet's CIDR block+-- can be the same as the VPC's CIDR block (assuming you want only a single+-- subnet in the VPC), or a subset of the VPC's CIDR block. If you create more+-- than one subnet in a VPC, the subnets' CIDR blocks must not overlap. The+-- smallest subnet (and VPC) you can create uses a /28 netmask (16 IP+-- addresses), and the largest uses a /16 netmask (65,536 IP addresses). AWS+-- reserves both the first four and the last IP address in each subnet's CIDR+-- block. They're not available for use. If you add more than one subnet to a+-- VPC, they're set up in a star topology with a logical router in the middle.+-- If you launch an instance in a VPC using an Amazon EBS-backed AMI, the IP+-- address doesn't change if you stop and restart the instance (unlike a+-- similar instance launched outside a VPC, which gets a new IP address when+-- restarted). It's therefore possible to have a subnet with no running+-- instances (they're all stopped), but no remaining IP addresses available.+-- For more information about subnets, see Your VPC and Subnets in the Amazon+-- Virtual Private Cloud User Guide.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-CreateSubnet.html>+module Network.AWS.EC2.CreateSubnet+    (+    -- * Request+      CreateSubnet+    -- ** Request constructor+    , createSubnet+    -- ** Request lenses+    , cs1AvailabilityZone+    , cs1CidrBlock+    , cs1DryRun+    , cs1VpcId++    -- * Response+    , CreateSubnetResponse+    -- ** Response constructor+    , createSubnetResponse+    -- ** Response lenses+    , csrSubnet+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data CreateSubnet = CreateSubnet+    { _cs1AvailabilityZone :: Maybe Text+    , _cs1CidrBlock        :: Text+    , _cs1DryRun           :: Maybe Bool+    , _cs1VpcId            :: Text+    } deriving (Eq, Ord, Show)++-- | 'CreateSubnet' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'cs1AvailabilityZone' @::@ 'Maybe' 'Text'+--+-- * 'cs1CidrBlock' @::@ 'Text'+--+-- * 'cs1DryRun' @::@ 'Maybe' 'Bool'+--+-- * 'cs1VpcId' @::@ 'Text'+--+createSubnet :: Text -- ^ 'cs1VpcId'+             -> Text -- ^ 'cs1CidrBlock'+             -> CreateSubnet+createSubnet p1 p2 = CreateSubnet+    { _cs1VpcId            = p1+    , _cs1CidrBlock        = p2+    , _cs1DryRun           = Nothing+    , _cs1AvailabilityZone = Nothing+    }++-- | The Availability Zone for the subnet. Default: Amazon EC2 selects one for+-- you (recommended).+cs1AvailabilityZone :: Lens' CreateSubnet (Maybe Text)+cs1AvailabilityZone =+    lens _cs1AvailabilityZone (\s a -> s { _cs1AvailabilityZone = a })++-- | The network range for the subnet, in CIDR notation. For example,+-- 10.0.0.0/24.+cs1CidrBlock :: Lens' CreateSubnet Text+cs1CidrBlock = lens _cs1CidrBlock (\s a -> s { _cs1CidrBlock = a })++cs1DryRun :: Lens' CreateSubnet (Maybe Bool)+cs1DryRun = lens _cs1DryRun (\s a -> s { _cs1DryRun = a })++-- | The ID of the VPC.+cs1VpcId :: Lens' CreateSubnet Text+cs1VpcId = lens _cs1VpcId (\s a -> s { _cs1VpcId = a })++newtype CreateSubnetResponse = CreateSubnetResponse+    { _csrSubnet :: Maybe Subnet+    } deriving (Eq, Show)++-- | 'CreateSubnetResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'csrSubnet' @::@ 'Maybe' 'Subnet'+--+createSubnetResponse :: CreateSubnetResponse+createSubnetResponse = CreateSubnetResponse+    { _csrSubnet = Nothing+    }++-- | Information about the subnet.+csrSubnet :: Lens' CreateSubnetResponse (Maybe Subnet)+csrSubnet = lens _csrSubnet (\s a -> s { _csrSubnet = a })++instance ToPath CreateSubnet where+    toPath = const "/"++instance ToQuery CreateSubnet where+    toQuery CreateSubnet{..} = mconcat+        [ "AvailabilityZone" =? _cs1AvailabilityZone+        , "CidrBlock"        =? _cs1CidrBlock+        , "dryRun"           =? _cs1DryRun+        , "VpcId"            =? _cs1VpcId+        ]++instance ToHeaders CreateSubnet++instance AWSRequest CreateSubnet where+    type Sv CreateSubnet = EC2+    type Rs CreateSubnet = CreateSubnetResponse++    request  = post "CreateSubnet"+    response = xmlResponse++instance FromXML CreateSubnetResponse where+    parseXML x = CreateSubnetResponse+        <$> x .@? "subnet"
+ gen/Network/AWS/EC2/CreateTags.hs view
@@ -0,0 +1,112 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.CreateTags+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Adds or overwrites one or more tags for the specified EC2 resource or+-- resources. Each resource can have a maximum of 10 tags. Each tag consists+-- of a key and optional value. Tag keys must be unique per resource. For more+-- information about tags, see Tagging Your Resources in the Amazon Elastic+-- Compute Cloud User Guide.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-CreateTags.html>+module Network.AWS.EC2.CreateTags+    (+    -- * Request+      CreateTags+    -- ** Request constructor+    , createTags+    -- ** Request lenses+    , ct1DryRun+    , ct1Resources+    , ct1Tags++    -- * Response+    , CreateTagsResponse+    -- ** Response constructor+    , createTagsResponse+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data CreateTags = CreateTags+    { _ct1DryRun    :: Maybe Bool+    , _ct1Resources :: List "ResourceId" Text+    , _ct1Tags      :: List "item" Tag+    } deriving (Eq, Show)++-- | 'CreateTags' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'ct1DryRun' @::@ 'Maybe' 'Bool'+--+-- * 'ct1Resources' @::@ ['Text']+--+-- * 'ct1Tags' @::@ ['Tag']+--+createTags :: CreateTags+createTags = CreateTags+    { _ct1DryRun    = Nothing+    , _ct1Resources = mempty+    , _ct1Tags      = mempty+    }++ct1DryRun :: Lens' CreateTags (Maybe Bool)+ct1DryRun = lens _ct1DryRun (\s a -> s { _ct1DryRun = a })++-- | The IDs of one or more resources to tag. For example, ami-1a2b3c4d.+ct1Resources :: Lens' CreateTags [Text]+ct1Resources = lens _ct1Resources (\s a -> s { _ct1Resources = a }) . _List++-- | One or more tags. The value parameter is required, but if you don't want+-- the tag to have a value, specify the parameter with no value, and we set+-- the value to an empty string.+ct1Tags :: Lens' CreateTags [Tag]+ct1Tags = lens _ct1Tags (\s a -> s { _ct1Tags = a }) . _List++data CreateTagsResponse = CreateTagsResponse+    deriving (Eq, Ord, Show, Generic)++-- | 'CreateTagsResponse' constructor.+createTagsResponse :: CreateTagsResponse+createTagsResponse = CreateTagsResponse++instance ToPath CreateTags where+    toPath = const "/"++instance ToQuery CreateTags where+    toQuery CreateTags{..} = mconcat+        [ "dryRun"     =? _ct1DryRun+        , "ResourceId" =? _ct1Resources+        , "Tag"        =? _ct1Tags+        ]++instance ToHeaders CreateTags++instance AWSRequest CreateTags where+    type Sv CreateTags = EC2+    type Rs CreateTags = CreateTagsResponse++    request  = post "CreateTags"+    response = nullResponse CreateTagsResponse
+ gen/Network/AWS/EC2/CreateVolume.hs view
@@ -0,0 +1,295 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.CreateVolume+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Creates an Amazon EBS volume that can be attached to an instance in the+-- same Availability Zone. The volume is created in the specified region. You+-- can create a new empty volume or restore a volume from an Amazon EBS+-- snapshot. Any AWS Marketplace product codes from the snapshot are+-- propagated to the volume. You can create encrypted volumes with the+-- Encrypted parameter. Encrypted volumes may only be attached to instances+-- that support Amazon EBS encryption. Volumes that are created from encrypted+-- snapshots are also automatically encrypted. For more information, see+-- Amazon EBS Encryption in the Amazon Elastic Compute Cloud User Guide. For+-- more information, see Creating or Restoring an Amazon EBS Volume in the+-- Amazon Elastic Compute Cloud User Guide.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-CreateVolume.html>+module Network.AWS.EC2.CreateVolume+    (+    -- * Request+      CreateVolume+    -- ** Request constructor+    , createVolume+    -- ** Request lenses+    , cv1AvailabilityZone+    , cv1DryRun+    , cv1Encrypted+    , cv1Iops+    , cv1Size+    , cv1SnapshotId+    , cv1VolumeType++    -- * Response+    , CreateVolumeResponse+    -- ** Response constructor+    , createVolumeResponse+    -- ** Response lenses+    , cvrAttachments+    , cvrAvailabilityZone+    , cvrCreateTime+    , cvrEncrypted+    , cvrIops+    , cvrSize+    , cvrSnapshotId+    , cvrState+    , cvrTags+    , cvrVolumeId+    , cvrVolumeType+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data CreateVolume = CreateVolume+    { _cv1AvailabilityZone :: Text+    , _cv1DryRun           :: Maybe Bool+    , _cv1Encrypted        :: Maybe Bool+    , _cv1Iops             :: Maybe Int+    , _cv1Size             :: Maybe Int+    , _cv1SnapshotId       :: Maybe Text+    , _cv1VolumeType       :: Maybe Text+    } deriving (Eq, Ord, Show)++-- | 'CreateVolume' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'cv1AvailabilityZone' @::@ 'Text'+--+-- * 'cv1DryRun' @::@ 'Maybe' 'Bool'+--+-- * 'cv1Encrypted' @::@ 'Maybe' 'Bool'+--+-- * 'cv1Iops' @::@ 'Maybe' 'Int'+--+-- * 'cv1Size' @::@ 'Maybe' 'Int'+--+-- * 'cv1SnapshotId' @::@ 'Maybe' 'Text'+--+-- * 'cv1VolumeType' @::@ 'Maybe' 'Text'+--+createVolume :: Text -- ^ 'cv1AvailabilityZone'+             -> CreateVolume+createVolume p1 = CreateVolume+    { _cv1AvailabilityZone = p1+    , _cv1DryRun           = Nothing+    , _cv1Size             = Nothing+    , _cv1SnapshotId       = Nothing+    , _cv1VolumeType       = Nothing+    , _cv1Iops             = Nothing+    , _cv1Encrypted        = Nothing+    }++-- | The Availability Zone in which to create the volume. Use+-- DescribeAvailabilityZones to list the Availability Zones that are+-- currently available to you.+cv1AvailabilityZone :: Lens' CreateVolume Text+cv1AvailabilityZone =+    lens _cv1AvailabilityZone (\s a -> s { _cv1AvailabilityZone = a })++cv1DryRun :: Lens' CreateVolume (Maybe Bool)+cv1DryRun = lens _cv1DryRun (\s a -> s { _cv1DryRun = a })++-- | Specifies whether the volume should be encrypted.+cv1Encrypted :: Lens' CreateVolume (Maybe Bool)+cv1Encrypted = lens _cv1Encrypted (\s a -> s { _cv1Encrypted = a })++-- | Only valid for Provisioned IOPS (SSD) volumes. The number of I/O+-- operations per second (IOPS) to provision for the volume.+cv1Iops :: Lens' CreateVolume (Maybe Int)+cv1Iops = lens _cv1Iops (\s a -> s { _cv1Iops = a })++-- | The size of the volume, in GiBs. Constraints: If the volume type is io1,+-- the minimum size of the volume is 10 GiB. Default: If you're creating the+-- volume from a snapshot and don't specify a volume size, the default is+-- the snapshot size.+cv1Size :: Lens' CreateVolume (Maybe Int)+cv1Size = lens _cv1Size (\s a -> s { _cv1Size = a })++-- | The snapshot from which to create the volume.+cv1SnapshotId :: Lens' CreateVolume (Maybe Text)+cv1SnapshotId = lens _cv1SnapshotId (\s a -> s { _cv1SnapshotId = a })++-- | The volume type. This can be gp2 for General Purpose (SSD) volumes, io1+-- for Provisioned IOPS (SSD) volumes, or standard for Magnetic volumes.+-- Default: standard.+cv1VolumeType :: Lens' CreateVolume (Maybe Text)+cv1VolumeType = lens _cv1VolumeType (\s a -> s { _cv1VolumeType = a })++data CreateVolumeResponse = CreateVolumeResponse+    { _cvrAttachments      :: List "item" VolumeAttachment+    , _cvrAvailabilityZone :: Maybe Text+    , _cvrCreateTime       :: Maybe RFC822+    , _cvrEncrypted        :: Maybe Bool+    , _cvrIops             :: Maybe Int+    , _cvrSize             :: Maybe Int+    , _cvrSnapshotId       :: Maybe Text+    , _cvrState            :: Maybe Text+    , _cvrTags             :: List "item" Tag+    , _cvrVolumeId         :: Maybe Text+    , _cvrVolumeType       :: Maybe Text+    } deriving (Eq, Show)++-- | 'CreateVolumeResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'cvrAttachments' @::@ ['VolumeAttachment']+--+-- * 'cvrAvailabilityZone' @::@ 'Maybe' 'Text'+--+-- * 'cvrCreateTime' @::@ 'Maybe' 'UTCTime'+--+-- * 'cvrEncrypted' @::@ 'Maybe' 'Bool'+--+-- * 'cvrIops' @::@ 'Maybe' 'Int'+--+-- * 'cvrSize' @::@ 'Maybe' 'Int'+--+-- * 'cvrSnapshotId' @::@ 'Maybe' 'Text'+--+-- * 'cvrState' @::@ 'Maybe' 'Text'+--+-- * 'cvrTags' @::@ ['Tag']+--+-- * 'cvrVolumeId' @::@ 'Maybe' 'Text'+--+-- * 'cvrVolumeType' @::@ 'Maybe' 'Text'+--+createVolumeResponse :: CreateVolumeResponse+createVolumeResponse = CreateVolumeResponse+    { _cvrVolumeId         = Nothing+    , _cvrSize             = Nothing+    , _cvrSnapshotId       = Nothing+    , _cvrAvailabilityZone = Nothing+    , _cvrState            = Nothing+    , _cvrCreateTime       = Nothing+    , _cvrAttachments      = mempty+    , _cvrTags             = mempty+    , _cvrVolumeType       = Nothing+    , _cvrIops             = Nothing+    , _cvrEncrypted        = Nothing+    }++cvrAttachments :: Lens' CreateVolumeResponse [VolumeAttachment]+cvrAttachments = lens _cvrAttachments (\s a -> s { _cvrAttachments = a }) . _List++-- | The Availability Zone for the volume.+cvrAvailabilityZone :: Lens' CreateVolumeResponse (Maybe Text)+cvrAvailabilityZone =+    lens _cvrAvailabilityZone (\s a -> s { _cvrAvailabilityZone = a })++-- | The time stamp when volume creation was initiated.+cvrCreateTime :: Lens' CreateVolumeResponse (Maybe UTCTime)+cvrCreateTime = lens _cvrCreateTime (\s a -> s { _cvrCreateTime = a }) . mapping _Time++-- | Indicates whether the volume is encrypted.+cvrEncrypted :: Lens' CreateVolumeResponse (Maybe Bool)+cvrEncrypted = lens _cvrEncrypted (\s a -> s { _cvrEncrypted = a })++-- | The number of I/O operations per second (IOPS) that the volume supports.+-- For Provisioned IOPS (SSD) volumes, this represents the number of IOPS+-- that are provisioned for the volume. For General Purpose (SSD) volumes,+-- this represents the baseline performance of the volume and the rate at+-- which the volume accumulates I/O credits for bursting. For more+-- information on General Purpose (SSD) baseline performance, I/O credits,+-- and bursting, see Amazon EBS Volume Types in the Amazon Elastic Compute+-- Cloud User Guide. Constraint: Range is 100 to 4000 for Provisioned IOPS+-- (SSD) volumes and 3 to 3072 for General Purpose (SSD) volumes. Condition:+-- This parameter is required for requests to create io1 volumes; it is not+-- used in requests to create standard or gp2 volumes.+cvrIops :: Lens' CreateVolumeResponse (Maybe Int)+cvrIops = lens _cvrIops (\s a -> s { _cvrIops = a })++-- | The size of the volume, in GiBs.+cvrSize :: Lens' CreateVolumeResponse (Maybe Int)+cvrSize = lens _cvrSize (\s a -> s { _cvrSize = a })++-- | The snapshot from which the volume was created, if applicable.+cvrSnapshotId :: Lens' CreateVolumeResponse (Maybe Text)+cvrSnapshotId = lens _cvrSnapshotId (\s a -> s { _cvrSnapshotId = a })++-- | The volume state.+cvrState :: Lens' CreateVolumeResponse (Maybe Text)+cvrState = lens _cvrState (\s a -> s { _cvrState = a })++-- | Any tags assigned to the volume.+cvrTags :: Lens' CreateVolumeResponse [Tag]+cvrTags = lens _cvrTags (\s a -> s { _cvrTags = a }) . _List++-- | The ID of the volume.+cvrVolumeId :: Lens' CreateVolumeResponse (Maybe Text)+cvrVolumeId = lens _cvrVolumeId (\s a -> s { _cvrVolumeId = a })++-- | The volume type. This can be gp2 for General Purpose (SSD) volumes, io1+-- for Provisioned IOPS (SSD) volumes, or standard for Magnetic volumes.+cvrVolumeType :: Lens' CreateVolumeResponse (Maybe Text)+cvrVolumeType = lens _cvrVolumeType (\s a -> s { _cvrVolumeType = a })++instance ToPath CreateVolume where+    toPath = const "/"++instance ToQuery CreateVolume where+    toQuery CreateVolume{..} = mconcat+        [ "AvailabilityZone" =? _cv1AvailabilityZone+        , "dryRun"           =? _cv1DryRun+        , "encrypted"        =? _cv1Encrypted+        , "Iops"             =? _cv1Iops+        , "Size"             =? _cv1Size+        , "SnapshotId"       =? _cv1SnapshotId+        , "VolumeType"       =? _cv1VolumeType+        ]++instance ToHeaders CreateVolume++instance AWSRequest CreateVolume where+    type Sv CreateVolume = EC2+    type Rs CreateVolume = CreateVolumeResponse++    request  = post "CreateVolume"+    response = xmlResponse++instance FromXML CreateVolumeResponse where+    parseXML x = CreateVolumeResponse+        <$> x .@  "attachmentSet"+        <*> x .@? "availabilityZone"+        <*> x .@? "createTime"+        <*> x .@? "encrypted"+        <*> x .@? "iops"+        <*> x .@? "size"+        <*> x .@? "snapshotId"+        <*> x .@? "status"+        <*> x .@  "tagSet"+        <*> x .@? "volumeId"+        <*> x .@? "volumeType"
+ gen/Network/AWS/EC2/CreateVpc.hs view
@@ -0,0 +1,139 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.CreateVpc+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Creates a VPC with the specified CIDR block. The smallest VPC you can+-- create uses a /28 netmask (16 IP addresses), and the largest uses a /16+-- netmask (65,536 IP addresses). To help you decide how big to make your VPC,+-- see Your VPC and Subnets in the Amazon Virtual Private Cloud User Guide. By+-- default, each instance you launch in the VPC has the default DHCP options,+-- which includes only a default DNS server that we provide+-- (AmazonProvidedDNS). For more information about DHCP options, see DHCP+-- Options Sets in the Amazon Virtual Private Cloud User Guide.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-CreateVpc.html>+module Network.AWS.EC2.CreateVpc+    (+    -- * Request+      CreateVpc+    -- ** Request constructor+    , createVpc+    -- ** Request lenses+    , cvCidrBlock+    , cvDryRun+    , cvInstanceTenancy++    -- * Response+    , CreateVpcResponse+    -- ** Response constructor+    , createVpcResponse+    -- ** Response lenses+    , cvrVpc+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data CreateVpc = CreateVpc+    { _cvCidrBlock       :: Text+    , _cvDryRun          :: Maybe Bool+    , _cvInstanceTenancy :: Maybe Text+    } deriving (Eq, Ord, Show)++-- | 'CreateVpc' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'cvCidrBlock' @::@ 'Text'+--+-- * 'cvDryRun' @::@ 'Maybe' 'Bool'+--+-- * 'cvInstanceTenancy' @::@ 'Maybe' 'Text'+--+createVpc :: Text -- ^ 'cvCidrBlock'+          -> CreateVpc+createVpc p1 = CreateVpc+    { _cvCidrBlock       = p1+    , _cvDryRun          = Nothing+    , _cvInstanceTenancy = Nothing+    }++-- | The network range for the VPC, in CIDR notation. For example,+-- 10.0.0.0/16.+cvCidrBlock :: Lens' CreateVpc Text+cvCidrBlock = lens _cvCidrBlock (\s a -> s { _cvCidrBlock = a })++cvDryRun :: Lens' CreateVpc (Maybe Bool)+cvDryRun = lens _cvDryRun (\s a -> s { _cvDryRun = a })++-- | The supported tenancy options for instances launched into the VPC. A+-- value of default means that instances can be launched with any tenancy; a+-- value of dedicated means all instances launched into the VPC are launched+-- as dedicated tenancy instances regardless of the tenancy assigned to the+-- instance at launch. Dedicated tenancy instances run on single-tenant+-- hardware. Default: default.+cvInstanceTenancy :: Lens' CreateVpc (Maybe Text)+cvInstanceTenancy =+    lens _cvInstanceTenancy (\s a -> s { _cvInstanceTenancy = a })++newtype CreateVpcResponse = CreateVpcResponse+    { _cvrVpc :: Maybe Vpc+    } deriving (Eq, Show)++-- | 'CreateVpcResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'cvrVpc' @::@ 'Maybe' 'Vpc'+--+createVpcResponse :: CreateVpcResponse+createVpcResponse = CreateVpcResponse+    { _cvrVpc = Nothing+    }++-- | Information about the VPC.+cvrVpc :: Lens' CreateVpcResponse (Maybe Vpc)+cvrVpc = lens _cvrVpc (\s a -> s { _cvrVpc = a })++instance ToPath CreateVpc where+    toPath = const "/"++instance ToQuery CreateVpc where+    toQuery CreateVpc{..} = mconcat+        [ "CidrBlock"       =? _cvCidrBlock+        , "dryRun"          =? _cvDryRun+        , "instanceTenancy" =? _cvInstanceTenancy+        ]++instance ToHeaders CreateVpc++instance AWSRequest CreateVpc where+    type Sv CreateVpc = EC2+    type Rs CreateVpc = CreateVpcResponse++    request  = post "CreateVpc"+    response = xmlResponse++instance FromXML CreateVpcResponse where+    parseXML x = CreateVpcResponse+        <$> x .@? "vpc"
+ gen/Network/AWS/EC2/CreateVpcPeeringConnection.hs view
@@ -0,0 +1,145 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.CreateVpcPeeringConnection+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Requests a VPC peering connection between two VPCs: a requester VPC that+-- you own and a peer VPC with which to create the connection. The peer VPC+-- can belong to another AWS account. The requester VPC and peer VPC cannot+-- have overlapping CIDR blocks. The owner of the peer VPC must accept the+-- peering request to activate the peering connection. The VPC peering+-- connection request expires after 7 days, after which it cannot be accepted+-- or rejected. A CreateVpcPeeringConnection request between VPCs with+-- overlapping CIDR blocks results in the VPC peering connection having a+-- status of failed.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-CreateVpcPeeringConnection.html>+module Network.AWS.EC2.CreateVpcPeeringConnection+    (+    -- * Request+      CreateVpcPeeringConnection+    -- ** Request constructor+    , createVpcPeeringConnection+    -- ** Request lenses+    , cvpcDryRun+    , cvpcPeerOwnerId+    , cvpcPeerVpcId+    , cvpcVpcId++    -- * Response+    , CreateVpcPeeringConnectionResponse+    -- ** Response constructor+    , createVpcPeeringConnectionResponse+    -- ** Response lenses+    , cvpcrVpcPeeringConnection+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data CreateVpcPeeringConnection = CreateVpcPeeringConnection+    { _cvpcDryRun      :: Maybe Bool+    , _cvpcPeerOwnerId :: Maybe Text+    , _cvpcPeerVpcId   :: Maybe Text+    , _cvpcVpcId       :: Maybe Text+    } deriving (Eq, Ord, Show)++-- | 'CreateVpcPeeringConnection' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'cvpcDryRun' @::@ 'Maybe' 'Bool'+--+-- * 'cvpcPeerOwnerId' @::@ 'Maybe' 'Text'+--+-- * 'cvpcPeerVpcId' @::@ 'Maybe' 'Text'+--+-- * 'cvpcVpcId' @::@ 'Maybe' 'Text'+--+createVpcPeeringConnection :: CreateVpcPeeringConnection+createVpcPeeringConnection = CreateVpcPeeringConnection+    { _cvpcDryRun      = Nothing+    , _cvpcVpcId       = Nothing+    , _cvpcPeerVpcId   = Nothing+    , _cvpcPeerOwnerId = Nothing+    }++cvpcDryRun :: Lens' CreateVpcPeeringConnection (Maybe Bool)+cvpcDryRun = lens _cvpcDryRun (\s a -> s { _cvpcDryRun = a })++-- | The AWS account ID of the owner of the peer VPC. Default: Your AWS+-- account ID.+cvpcPeerOwnerId :: Lens' CreateVpcPeeringConnection (Maybe Text)+cvpcPeerOwnerId = lens _cvpcPeerOwnerId (\s a -> s { _cvpcPeerOwnerId = a })++-- | The ID of the VPC with which you are creating the VPC peering connection.+cvpcPeerVpcId :: Lens' CreateVpcPeeringConnection (Maybe Text)+cvpcPeerVpcId = lens _cvpcPeerVpcId (\s a -> s { _cvpcPeerVpcId = a })++-- | The ID of the requester VPC.+cvpcVpcId :: Lens' CreateVpcPeeringConnection (Maybe Text)+cvpcVpcId = lens _cvpcVpcId (\s a -> s { _cvpcVpcId = a })++newtype CreateVpcPeeringConnectionResponse = CreateVpcPeeringConnectionResponse+    { _cvpcrVpcPeeringConnection :: Maybe VpcPeeringConnection+    } deriving (Eq, Show)++-- | 'CreateVpcPeeringConnectionResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'cvpcrVpcPeeringConnection' @::@ 'Maybe' 'VpcPeeringConnection'+--+createVpcPeeringConnectionResponse :: CreateVpcPeeringConnectionResponse+createVpcPeeringConnectionResponse = CreateVpcPeeringConnectionResponse+    { _cvpcrVpcPeeringConnection = Nothing+    }++-- | Information about the VPC peering connection.+cvpcrVpcPeeringConnection :: Lens' CreateVpcPeeringConnectionResponse (Maybe VpcPeeringConnection)+cvpcrVpcPeeringConnection =+    lens _cvpcrVpcPeeringConnection+        (\s a -> s { _cvpcrVpcPeeringConnection = a })++instance ToPath CreateVpcPeeringConnection where+    toPath = const "/"++instance ToQuery CreateVpcPeeringConnection where+    toQuery CreateVpcPeeringConnection{..} = mconcat+        [ "dryRun"      =? _cvpcDryRun+        , "peerOwnerId" =? _cvpcPeerOwnerId+        , "peerVpcId"   =? _cvpcPeerVpcId+        , "vpcId"       =? _cvpcVpcId+        ]++instance ToHeaders CreateVpcPeeringConnection++instance AWSRequest CreateVpcPeeringConnection where+    type Sv CreateVpcPeeringConnection = EC2+    type Rs CreateVpcPeeringConnection = CreateVpcPeeringConnectionResponse++    request  = post "CreateVpcPeeringConnection"+    response = xmlResponse++instance FromXML CreateVpcPeeringConnectionResponse where+    parseXML x = CreateVpcPeeringConnectionResponse+        <$> x .@? "vpcPeeringConnection"
+ gen/Network/AWS/EC2/CreateVpnConnection.hs view
@@ -0,0 +1,161 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.CreateVpnConnection+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Creates a VPN connection between an existing virtual private gateway and a+-- VPN customer gateway. The only supported connection type is ipsec.1. The+-- response includes information that you need to give to your network+-- administrator to configure your customer gateway. We strongly recommend+-- that you use HTTPS when calling this operation because the response+-- contains sensitive cryptographic information for configuring your customer+-- gateway. If you decide to shut down your VPN connection for any reason and+-- later create a new VPN connection, you must reconfigure your customer+-- gateway with the new information returned from this call. For more+-- information about VPN connections, see Adding a Hardware Virtual Private+-- Gateway to Your VPC in the Amazon Virtual Private Cloud User Guide.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-CreateVpnConnection.html>+module Network.AWS.EC2.CreateVpnConnection+    (+    -- * Request+      CreateVpnConnection+    -- ** Request constructor+    , createVpnConnection+    -- ** Request lenses+    , cvcCustomerGatewayId+    , cvcDryRun+    , cvcOptions+    , cvcType+    , cvcVpnGatewayId++    -- * Response+    , CreateVpnConnectionResponse+    -- ** Response constructor+    , createVpnConnectionResponse+    -- ** Response lenses+    , cvcrVpnConnection+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data CreateVpnConnection = CreateVpnConnection+    { _cvcCustomerGatewayId :: Text+    , _cvcDryRun            :: Maybe Bool+    , _cvcOptions           :: Maybe VpnConnectionOptionsSpecification+    , _cvcType              :: Text+    , _cvcVpnGatewayId      :: Text+    } deriving (Eq, Show)++-- | 'CreateVpnConnection' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'cvcCustomerGatewayId' @::@ 'Text'+--+-- * 'cvcDryRun' @::@ 'Maybe' 'Bool'+--+-- * 'cvcOptions' @::@ 'Maybe' 'VpnConnectionOptionsSpecification'+--+-- * 'cvcType' @::@ 'Text'+--+-- * 'cvcVpnGatewayId' @::@ 'Text'+--+createVpnConnection :: Text -- ^ 'cvcType'+                    -> Text -- ^ 'cvcCustomerGatewayId'+                    -> Text -- ^ 'cvcVpnGatewayId'+                    -> CreateVpnConnection+createVpnConnection p1 p2 p3 = CreateVpnConnection+    { _cvcType              = p1+    , _cvcCustomerGatewayId = p2+    , _cvcVpnGatewayId      = p3+    , _cvcDryRun            = Nothing+    , _cvcOptions           = Nothing+    }++-- | The ID of the customer gateway.+cvcCustomerGatewayId :: Lens' CreateVpnConnection Text+cvcCustomerGatewayId =+    lens _cvcCustomerGatewayId (\s a -> s { _cvcCustomerGatewayId = a })++cvcDryRun :: Lens' CreateVpnConnection (Maybe Bool)+cvcDryRun = lens _cvcDryRun (\s a -> s { _cvcDryRun = a })++-- | Indicates whether the VPN connection requires static routes. If you are+-- creating a VPN connection for a device that does not support BGP, you+-- must specify true. Default: false.+cvcOptions :: Lens' CreateVpnConnection (Maybe VpnConnectionOptionsSpecification)+cvcOptions = lens _cvcOptions (\s a -> s { _cvcOptions = a })++-- | The type of VPN connection (ipsec.1).+cvcType :: Lens' CreateVpnConnection Text+cvcType = lens _cvcType (\s a -> s { _cvcType = a })++-- | The ID of the virtual private gateway.+cvcVpnGatewayId :: Lens' CreateVpnConnection Text+cvcVpnGatewayId = lens _cvcVpnGatewayId (\s a -> s { _cvcVpnGatewayId = a })++newtype CreateVpnConnectionResponse = CreateVpnConnectionResponse+    { _cvcrVpnConnection :: Maybe VpnConnection+    } deriving (Eq, Show)++-- | 'CreateVpnConnectionResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'cvcrVpnConnection' @::@ 'Maybe' 'VpnConnection'+--+createVpnConnectionResponse :: CreateVpnConnectionResponse+createVpnConnectionResponse = CreateVpnConnectionResponse+    { _cvcrVpnConnection = Nothing+    }++-- | Information about the VPN connection.+cvcrVpnConnection :: Lens' CreateVpnConnectionResponse (Maybe VpnConnection)+cvcrVpnConnection =+    lens _cvcrVpnConnection (\s a -> s { _cvcrVpnConnection = a })++instance ToPath CreateVpnConnection where+    toPath = const "/"++instance ToQuery CreateVpnConnection where+    toQuery CreateVpnConnection{..} = mconcat+        [ "CustomerGatewayId" =? _cvcCustomerGatewayId+        , "dryRun"            =? _cvcDryRun+        , "options"           =? _cvcOptions+        , "Type"              =? _cvcType+        , "VpnGatewayId"      =? _cvcVpnGatewayId+        ]++instance ToHeaders CreateVpnConnection++instance AWSRequest CreateVpnConnection where+    type Sv CreateVpnConnection = EC2+    type Rs CreateVpnConnection = CreateVpnConnectionResponse++    request  = post "CreateVpnConnection"+    response = xmlResponse++instance FromXML CreateVpnConnectionResponse where+    parseXML x = CreateVpnConnectionResponse+        <$> x .@? "vpnConnection"
+ gen/Network/AWS/EC2/CreateVpnConnectionRoute.hs view
@@ -0,0 +1,107 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.CreateVpnConnectionRoute+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Creates a static route associated with a VPN connection between an existing+-- virtual private gateway and a VPN customer gateway. The static route allows+-- traffic to be routed from the virtual private gateway to the VPN customer+-- gateway. For more information about VPN connections, see Adding a Hardware+-- Virtual Private Gateway to Your VPC in the Amazon Virtual Private Cloud+-- User Guide.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-CreateVpnConnectionRoute.html>+module Network.AWS.EC2.CreateVpnConnectionRoute+    (+    -- * Request+      CreateVpnConnectionRoute+    -- ** Request constructor+    , createVpnConnectionRoute+    -- ** Request lenses+    , cvcrDestinationCidrBlock+    , cvcrVpnConnectionId++    -- * Response+    , CreateVpnConnectionRouteResponse+    -- ** Response constructor+    , createVpnConnectionRouteResponse+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data CreateVpnConnectionRoute = CreateVpnConnectionRoute+    { _cvcrDestinationCidrBlock :: Text+    , _cvcrVpnConnectionId      :: Text+    } deriving (Eq, Ord, Show)++-- | 'CreateVpnConnectionRoute' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'cvcrDestinationCidrBlock' @::@ 'Text'+--+-- * 'cvcrVpnConnectionId' @::@ 'Text'+--+createVpnConnectionRoute :: Text -- ^ 'cvcrVpnConnectionId'+                         -> Text -- ^ 'cvcrDestinationCidrBlock'+                         -> CreateVpnConnectionRoute+createVpnConnectionRoute p1 p2 = CreateVpnConnectionRoute+    { _cvcrVpnConnectionId      = p1+    , _cvcrDestinationCidrBlock = p2+    }++-- | The CIDR block associated with the local subnet of the customer network.+cvcrDestinationCidrBlock :: Lens' CreateVpnConnectionRoute Text+cvcrDestinationCidrBlock =+    lens _cvcrDestinationCidrBlock+        (\s a -> s { _cvcrDestinationCidrBlock = a })++-- | The ID of the VPN connection.+cvcrVpnConnectionId :: Lens' CreateVpnConnectionRoute Text+cvcrVpnConnectionId =+    lens _cvcrVpnConnectionId (\s a -> s { _cvcrVpnConnectionId = a })++data CreateVpnConnectionRouteResponse = CreateVpnConnectionRouteResponse+    deriving (Eq, Ord, Show, Generic)++-- | 'CreateVpnConnectionRouteResponse' constructor.+createVpnConnectionRouteResponse :: CreateVpnConnectionRouteResponse+createVpnConnectionRouteResponse = CreateVpnConnectionRouteResponse++instance ToPath CreateVpnConnectionRoute where+    toPath = const "/"++instance ToQuery CreateVpnConnectionRoute where+    toQuery CreateVpnConnectionRoute{..} = mconcat+        [ "DestinationCidrBlock" =? _cvcrDestinationCidrBlock+        , "VpnConnectionId"      =? _cvcrVpnConnectionId+        ]++instance ToHeaders CreateVpnConnectionRoute++instance AWSRequest CreateVpnConnectionRoute where+    type Sv CreateVpnConnectionRoute = EC2+    type Rs CreateVpnConnectionRoute = CreateVpnConnectionRouteResponse++    request  = post "CreateVpnConnectionRoute"+    response = nullResponse CreateVpnConnectionRouteResponse
+ gen/Network/AWS/EC2/CreateVpnGateway.hs view
@@ -0,0 +1,130 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.CreateVpnGateway+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Creates a virtual private gateway. A virtual private gateway is the+-- endpoint on the VPC side of your VPN connection. You can create a virtual+-- private gateway before creating the VPC itself. For more information about+-- virtual private gateways, see Adding a Hardware Virtual Private Gateway to+-- Your VPC in the Amazon Virtual Private Cloud User Guide.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-CreateVpnGateway.html>+module Network.AWS.EC2.CreateVpnGateway+    (+    -- * Request+      CreateVpnGateway+    -- ** Request constructor+    , createVpnGateway+    -- ** Request lenses+    , cvgAvailabilityZone+    , cvgDryRun+    , cvgType++    -- * Response+    , CreateVpnGatewayResponse+    -- ** Response constructor+    , createVpnGatewayResponse+    -- ** Response lenses+    , cvgrVpnGateway+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data CreateVpnGateway = CreateVpnGateway+    { _cvgAvailabilityZone :: Maybe Text+    , _cvgDryRun           :: Maybe Bool+    , _cvgType             :: Text+    } deriving (Eq, Ord, Show)++-- | 'CreateVpnGateway' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'cvgAvailabilityZone' @::@ 'Maybe' 'Text'+--+-- * 'cvgDryRun' @::@ 'Maybe' 'Bool'+--+-- * 'cvgType' @::@ 'Text'+--+createVpnGateway :: Text -- ^ 'cvgType'+                 -> CreateVpnGateway+createVpnGateway p1 = CreateVpnGateway+    { _cvgType             = p1+    , _cvgDryRun           = Nothing+    , _cvgAvailabilityZone = Nothing+    }++-- | The Availability Zone for the virtual private gateway.+cvgAvailabilityZone :: Lens' CreateVpnGateway (Maybe Text)+cvgAvailabilityZone =+    lens _cvgAvailabilityZone (\s a -> s { _cvgAvailabilityZone = a })++cvgDryRun :: Lens' CreateVpnGateway (Maybe Bool)+cvgDryRun = lens _cvgDryRun (\s a -> s { _cvgDryRun = a })++-- | The type of VPN connection this virtual private gateway supports.+cvgType :: Lens' CreateVpnGateway Text+cvgType = lens _cvgType (\s a -> s { _cvgType = a })++newtype CreateVpnGatewayResponse = CreateVpnGatewayResponse+    { _cvgrVpnGateway :: Maybe VpnGateway+    } deriving (Eq, Show)++-- | 'CreateVpnGatewayResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'cvgrVpnGateway' @::@ 'Maybe' 'VpnGateway'+--+createVpnGatewayResponse :: CreateVpnGatewayResponse+createVpnGatewayResponse = CreateVpnGatewayResponse+    { _cvgrVpnGateway = Nothing+    }++-- | Information about the virtual private gateway.+cvgrVpnGateway :: Lens' CreateVpnGatewayResponse (Maybe VpnGateway)+cvgrVpnGateway = lens _cvgrVpnGateway (\s a -> s { _cvgrVpnGateway = a })++instance ToPath CreateVpnGateway where+    toPath = const "/"++instance ToQuery CreateVpnGateway where+    toQuery CreateVpnGateway{..} = mconcat+        [ "AvailabilityZone" =? _cvgAvailabilityZone+        , "dryRun"           =? _cvgDryRun+        , "Type"             =? _cvgType+        ]++instance ToHeaders CreateVpnGateway++instance AWSRequest CreateVpnGateway where+    type Sv CreateVpnGateway = EC2+    type Rs CreateVpnGateway = CreateVpnGatewayResponse++    request  = post "CreateVpnGateway"+    response = xmlResponse++instance FromXML CreateVpnGatewayResponse where+    parseXML x = CreateVpnGatewayResponse+        <$> x .@? "vpnGateway"
+ gen/Network/AWS/EC2/DeleteCustomerGateway.hs view
@@ -0,0 +1,99 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.DeleteCustomerGateway+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Deletes the specified customer gateway. You must delete the VPN connection+-- before you can delete the customer gateway.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-DeleteCustomerGateway.html>+module Network.AWS.EC2.DeleteCustomerGateway+    (+    -- * Request+      DeleteCustomerGateway+    -- ** Request constructor+    , deleteCustomerGateway+    -- ** Request lenses+    , dcg1CustomerGatewayId+    , dcg1DryRun++    -- * Response+    , DeleteCustomerGatewayResponse+    -- ** Response constructor+    , deleteCustomerGatewayResponse+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data DeleteCustomerGateway = DeleteCustomerGateway+    { _dcg1CustomerGatewayId :: Text+    , _dcg1DryRun            :: Maybe Bool+    } deriving (Eq, Ord, Show)++-- | 'DeleteCustomerGateway' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'dcg1CustomerGatewayId' @::@ 'Text'+--+-- * 'dcg1DryRun' @::@ 'Maybe' 'Bool'+--+deleteCustomerGateway :: Text -- ^ 'dcg1CustomerGatewayId'+                      -> DeleteCustomerGateway+deleteCustomerGateway p1 = DeleteCustomerGateway+    { _dcg1CustomerGatewayId = p1+    , _dcg1DryRun            = Nothing+    }++-- | The ID of the customer gateway.+dcg1CustomerGatewayId :: Lens' DeleteCustomerGateway Text+dcg1CustomerGatewayId =+    lens _dcg1CustomerGatewayId (\s a -> s { _dcg1CustomerGatewayId = a })++dcg1DryRun :: Lens' DeleteCustomerGateway (Maybe Bool)+dcg1DryRun = lens _dcg1DryRun (\s a -> s { _dcg1DryRun = a })++data DeleteCustomerGatewayResponse = DeleteCustomerGatewayResponse+    deriving (Eq, Ord, Show, Generic)++-- | 'DeleteCustomerGatewayResponse' constructor.+deleteCustomerGatewayResponse :: DeleteCustomerGatewayResponse+deleteCustomerGatewayResponse = DeleteCustomerGatewayResponse++instance ToPath DeleteCustomerGateway where+    toPath = const "/"++instance ToQuery DeleteCustomerGateway where+    toQuery DeleteCustomerGateway{..} = mconcat+        [ "CustomerGatewayId" =? _dcg1CustomerGatewayId+        , "dryRun"            =? _dcg1DryRun+        ]++instance ToHeaders DeleteCustomerGateway++instance AWSRequest DeleteCustomerGateway where+    type Sv DeleteCustomerGateway = EC2+    type Rs DeleteCustomerGateway = DeleteCustomerGatewayResponse++    request  = post "DeleteCustomerGateway"+    response = nullResponse DeleteCustomerGatewayResponse
+ gen/Network/AWS/EC2/DeleteDhcpOptions.hs view
@@ -0,0 +1,101 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.DeleteDhcpOptions+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Deletes the specified set of DHCP options. You must disassociate the set of+-- DHCP options before you can delete it. You can disassociate the set of DHCP+-- options by associating either a new set of options or the default set of+-- options with the VPC.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-DeleteDhcpOptions.html>+module Network.AWS.EC2.DeleteDhcpOptions+    (+    -- * Request+      DeleteDhcpOptions+    -- ** Request constructor+    , deleteDhcpOptions+    -- ** Request lenses+    , ddo1DhcpOptionsId+    , ddo1DryRun++    -- * Response+    , DeleteDhcpOptionsResponse+    -- ** Response constructor+    , deleteDhcpOptionsResponse+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data DeleteDhcpOptions = DeleteDhcpOptions+    { _ddo1DhcpOptionsId :: Text+    , _ddo1DryRun        :: Maybe Bool+    } deriving (Eq, Ord, Show)++-- | 'DeleteDhcpOptions' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'ddo1DhcpOptionsId' @::@ 'Text'+--+-- * 'ddo1DryRun' @::@ 'Maybe' 'Bool'+--+deleteDhcpOptions :: Text -- ^ 'ddo1DhcpOptionsId'+                  -> DeleteDhcpOptions+deleteDhcpOptions p1 = DeleteDhcpOptions+    { _ddo1DhcpOptionsId = p1+    , _ddo1DryRun        = Nothing+    }++-- | The ID of the DHCP options set.+ddo1DhcpOptionsId :: Lens' DeleteDhcpOptions Text+ddo1DhcpOptionsId =+    lens _ddo1DhcpOptionsId (\s a -> s { _ddo1DhcpOptionsId = a })++ddo1DryRun :: Lens' DeleteDhcpOptions (Maybe Bool)+ddo1DryRun = lens _ddo1DryRun (\s a -> s { _ddo1DryRun = a })++data DeleteDhcpOptionsResponse = DeleteDhcpOptionsResponse+    deriving (Eq, Ord, Show, Generic)++-- | 'DeleteDhcpOptionsResponse' constructor.+deleteDhcpOptionsResponse :: DeleteDhcpOptionsResponse+deleteDhcpOptionsResponse = DeleteDhcpOptionsResponse++instance ToPath DeleteDhcpOptions where+    toPath = const "/"++instance ToQuery DeleteDhcpOptions where+    toQuery DeleteDhcpOptions{..} = mconcat+        [ "DhcpOptionsId" =? _ddo1DhcpOptionsId+        , "dryRun"        =? _ddo1DryRun+        ]++instance ToHeaders DeleteDhcpOptions++instance AWSRequest DeleteDhcpOptions where+    type Sv DeleteDhcpOptions = EC2+    type Rs DeleteDhcpOptions = DeleteDhcpOptionsResponse++    request  = post "DeleteDhcpOptions"+    response = nullResponse DeleteDhcpOptionsResponse
+ gen/Network/AWS/EC2/DeleteInternetGateway.hs view
@@ -0,0 +1,99 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.DeleteInternetGateway+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Deletes the specified Internet gateway. You must detach the Internet+-- gateway from the VPC before you can delete it.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-DeleteInternetGateway.html>+module Network.AWS.EC2.DeleteInternetGateway+    (+    -- * Request+      DeleteInternetGateway+    -- ** Request constructor+    , deleteInternetGateway+    -- ** Request lenses+    , dig2DryRun+    , dig2InternetGatewayId++    -- * Response+    , DeleteInternetGatewayResponse+    -- ** Response constructor+    , deleteInternetGatewayResponse+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data DeleteInternetGateway = DeleteInternetGateway+    { _dig2DryRun            :: Maybe Bool+    , _dig2InternetGatewayId :: Text+    } deriving (Eq, Ord, Show)++-- | 'DeleteInternetGateway' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'dig2DryRun' @::@ 'Maybe' 'Bool'+--+-- * 'dig2InternetGatewayId' @::@ 'Text'+--+deleteInternetGateway :: Text -- ^ 'dig2InternetGatewayId'+                      -> DeleteInternetGateway+deleteInternetGateway p1 = DeleteInternetGateway+    { _dig2InternetGatewayId = p1+    , _dig2DryRun            = Nothing+    }++dig2DryRun :: Lens' DeleteInternetGateway (Maybe Bool)+dig2DryRun = lens _dig2DryRun (\s a -> s { _dig2DryRun = a })++-- | The ID of the Internet gateway.+dig2InternetGatewayId :: Lens' DeleteInternetGateway Text+dig2InternetGatewayId =+    lens _dig2InternetGatewayId (\s a -> s { _dig2InternetGatewayId = a })++data DeleteInternetGatewayResponse = DeleteInternetGatewayResponse+    deriving (Eq, Ord, Show, Generic)++-- | 'DeleteInternetGatewayResponse' constructor.+deleteInternetGatewayResponse :: DeleteInternetGatewayResponse+deleteInternetGatewayResponse = DeleteInternetGatewayResponse++instance ToPath DeleteInternetGateway where+    toPath = const "/"++instance ToQuery DeleteInternetGateway where+    toQuery DeleteInternetGateway{..} = mconcat+        [ "dryRun"            =? _dig2DryRun+        , "internetGatewayId" =? _dig2InternetGatewayId+        ]++instance ToHeaders DeleteInternetGateway++instance AWSRequest DeleteInternetGateway where+    type Sv DeleteInternetGateway = EC2+    type Rs DeleteInternetGateway = DeleteInternetGatewayResponse++    request  = post "DeleteInternetGateway"+    response = nullResponse DeleteInternetGatewayResponse
+ gen/Network/AWS/EC2/DeleteKeyPair.hs view
@@ -0,0 +1,97 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.DeleteKeyPair+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Deletes the specified key pair, by removing the public key from Amazon EC2.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-DeleteKeyPair.html>+module Network.AWS.EC2.DeleteKeyPair+    (+    -- * Request+      DeleteKeyPair+    -- ** Request constructor+    , deleteKeyPair+    -- ** Request lenses+    , dkpDryRun+    , dkpKeyName++    -- * Response+    , DeleteKeyPairResponse+    -- ** Response constructor+    , deleteKeyPairResponse+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data DeleteKeyPair = DeleteKeyPair+    { _dkpDryRun  :: Maybe Bool+    , _dkpKeyName :: Text+    } deriving (Eq, Ord, Show)++-- | 'DeleteKeyPair' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'dkpDryRun' @::@ 'Maybe' 'Bool'+--+-- * 'dkpKeyName' @::@ 'Text'+--+deleteKeyPair :: Text -- ^ 'dkpKeyName'+              -> DeleteKeyPair+deleteKeyPair p1 = DeleteKeyPair+    { _dkpKeyName = p1+    , _dkpDryRun  = Nothing+    }++dkpDryRun :: Lens' DeleteKeyPair (Maybe Bool)+dkpDryRun = lens _dkpDryRun (\s a -> s { _dkpDryRun = a })++-- | The name of the key pair.+dkpKeyName :: Lens' DeleteKeyPair Text+dkpKeyName = lens _dkpKeyName (\s a -> s { _dkpKeyName = a })++data DeleteKeyPairResponse = DeleteKeyPairResponse+    deriving (Eq, Ord, Show, Generic)++-- | 'DeleteKeyPairResponse' constructor.+deleteKeyPairResponse :: DeleteKeyPairResponse+deleteKeyPairResponse = DeleteKeyPairResponse++instance ToPath DeleteKeyPair where+    toPath = const "/"++instance ToQuery DeleteKeyPair where+    toQuery DeleteKeyPair{..} = mconcat+        [ "dryRun"  =? _dkpDryRun+        , "KeyName" =? _dkpKeyName+        ]++instance ToHeaders DeleteKeyPair++instance AWSRequest DeleteKeyPair where+    type Sv DeleteKeyPair = EC2+    type Rs DeleteKeyPair = DeleteKeyPairResponse++    request  = post "DeleteKeyPair"+    response = nullResponse DeleteKeyPairResponse
+ gen/Network/AWS/EC2/DeleteNetworkAcl.hs view
@@ -0,0 +1,98 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.DeleteNetworkAcl+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Deletes the specified network ACL. You can't delete the ACL if it's+-- associated with any subnets. You can't delete the default network ACL.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-DeleteNetworkAcl.html>+module Network.AWS.EC2.DeleteNetworkAcl+    (+    -- * Request+      DeleteNetworkAcl+    -- ** Request constructor+    , deleteNetworkAcl+    -- ** Request lenses+    , dnaDryRun+    , dnaNetworkAclId++    -- * Response+    , DeleteNetworkAclResponse+    -- ** Response constructor+    , deleteNetworkAclResponse+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data DeleteNetworkAcl = DeleteNetworkAcl+    { _dnaDryRun       :: Maybe Bool+    , _dnaNetworkAclId :: Text+    } deriving (Eq, Ord, Show)++-- | 'DeleteNetworkAcl' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'dnaDryRun' @::@ 'Maybe' 'Bool'+--+-- * 'dnaNetworkAclId' @::@ 'Text'+--+deleteNetworkAcl :: Text -- ^ 'dnaNetworkAclId'+                 -> DeleteNetworkAcl+deleteNetworkAcl p1 = DeleteNetworkAcl+    { _dnaNetworkAclId = p1+    , _dnaDryRun       = Nothing+    }++dnaDryRun :: Lens' DeleteNetworkAcl (Maybe Bool)+dnaDryRun = lens _dnaDryRun (\s a -> s { _dnaDryRun = a })++-- | The ID of the network ACL.+dnaNetworkAclId :: Lens' DeleteNetworkAcl Text+dnaNetworkAclId = lens _dnaNetworkAclId (\s a -> s { _dnaNetworkAclId = a })++data DeleteNetworkAclResponse = DeleteNetworkAclResponse+    deriving (Eq, Ord, Show, Generic)++-- | 'DeleteNetworkAclResponse' constructor.+deleteNetworkAclResponse :: DeleteNetworkAclResponse+deleteNetworkAclResponse = DeleteNetworkAclResponse++instance ToPath DeleteNetworkAcl where+    toPath = const "/"++instance ToQuery DeleteNetworkAcl where+    toQuery DeleteNetworkAcl{..} = mconcat+        [ "dryRun"       =? _dnaDryRun+        , "networkAclId" =? _dnaNetworkAclId+        ]++instance ToHeaders DeleteNetworkAcl++instance AWSRequest DeleteNetworkAcl where+    type Sv DeleteNetworkAcl = EC2+    type Rs DeleteNetworkAcl = DeleteNetworkAclResponse++    request  = post "DeleteNetworkAcl"+    response = nullResponse DeleteNetworkAclResponse
+ gen/Network/AWS/EC2/DeleteNetworkAclEntry.hs view
@@ -0,0 +1,120 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.DeleteNetworkAclEntry+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Deletes the specified ingress or egress entry (rule) from the specified+-- network ACL.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-DeleteNetworkAclEntry.html>+module Network.AWS.EC2.DeleteNetworkAclEntry+    (+    -- * Request+      DeleteNetworkAclEntry+    -- ** Request constructor+    , deleteNetworkAclEntry+    -- ** Request lenses+    , dnaeDryRun+    , dnaeEgress+    , dnaeNetworkAclId+    , dnaeRuleNumber++    -- * Response+    , DeleteNetworkAclEntryResponse+    -- ** Response constructor+    , deleteNetworkAclEntryResponse+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data DeleteNetworkAclEntry = DeleteNetworkAclEntry+    { _dnaeDryRun       :: Maybe Bool+    , _dnaeEgress       :: Bool+    , _dnaeNetworkAclId :: Text+    , _dnaeRuleNumber   :: Int+    } deriving (Eq, Ord, Show)++-- | 'DeleteNetworkAclEntry' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'dnaeDryRun' @::@ 'Maybe' 'Bool'+--+-- * 'dnaeEgress' @::@ 'Bool'+--+-- * 'dnaeNetworkAclId' @::@ 'Text'+--+-- * 'dnaeRuleNumber' @::@ 'Int'+--+deleteNetworkAclEntry :: Text -- ^ 'dnaeNetworkAclId'+                      -> Int -- ^ 'dnaeRuleNumber'+                      -> Bool -- ^ 'dnaeEgress'+                      -> DeleteNetworkAclEntry+deleteNetworkAclEntry p1 p2 p3 = DeleteNetworkAclEntry+    { _dnaeNetworkAclId = p1+    , _dnaeRuleNumber   = p2+    , _dnaeEgress       = p3+    , _dnaeDryRun       = Nothing+    }++dnaeDryRun :: Lens' DeleteNetworkAclEntry (Maybe Bool)+dnaeDryRun = lens _dnaeDryRun (\s a -> s { _dnaeDryRun = a })++-- | Indicates whether the rule is an egress rule.+dnaeEgress :: Lens' DeleteNetworkAclEntry Bool+dnaeEgress = lens _dnaeEgress (\s a -> s { _dnaeEgress = a })++-- | The ID of the network ACL.+dnaeNetworkAclId :: Lens' DeleteNetworkAclEntry Text+dnaeNetworkAclId = lens _dnaeNetworkAclId (\s a -> s { _dnaeNetworkAclId = a })++-- | The rule number of the entry to delete.+dnaeRuleNumber :: Lens' DeleteNetworkAclEntry Int+dnaeRuleNumber = lens _dnaeRuleNumber (\s a -> s { _dnaeRuleNumber = a })++data DeleteNetworkAclEntryResponse = DeleteNetworkAclEntryResponse+    deriving (Eq, Ord, Show, Generic)++-- | 'DeleteNetworkAclEntryResponse' constructor.+deleteNetworkAclEntryResponse :: DeleteNetworkAclEntryResponse+deleteNetworkAclEntryResponse = DeleteNetworkAclEntryResponse++instance ToPath DeleteNetworkAclEntry where+    toPath = const "/"++instance ToQuery DeleteNetworkAclEntry where+    toQuery DeleteNetworkAclEntry{..} = mconcat+        [ "dryRun"       =? _dnaeDryRun+        , "egress"       =? _dnaeEgress+        , "networkAclId" =? _dnaeNetworkAclId+        , "ruleNumber"   =? _dnaeRuleNumber+        ]++instance ToHeaders DeleteNetworkAclEntry++instance AWSRequest DeleteNetworkAclEntry where+    type Sv DeleteNetworkAclEntry = EC2+    type Rs DeleteNetworkAclEntry = DeleteNetworkAclEntryResponse++    request  = post "DeleteNetworkAclEntry"+    response = nullResponse DeleteNetworkAclEntryResponse
+ gen/Network/AWS/EC2/DeleteNetworkInterface.hs view
@@ -0,0 +1,99 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.DeleteNetworkInterface+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Deletes the specified network interface. You must detach the network+-- interface before you can delete it.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-DeleteNetworkInterface.html>+module Network.AWS.EC2.DeleteNetworkInterface+    (+    -- * Request+      DeleteNetworkInterface+    -- ** Request constructor+    , deleteNetworkInterface+    -- ** Request lenses+    , dni2DryRun+    , dni2NetworkInterfaceId++    -- * Response+    , DeleteNetworkInterfaceResponse+    -- ** Response constructor+    , deleteNetworkInterfaceResponse+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data DeleteNetworkInterface = DeleteNetworkInterface+    { _dni2DryRun             :: Maybe Bool+    , _dni2NetworkInterfaceId :: Text+    } deriving (Eq, Ord, Show)++-- | 'DeleteNetworkInterface' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'dni2DryRun' @::@ 'Maybe' 'Bool'+--+-- * 'dni2NetworkInterfaceId' @::@ 'Text'+--+deleteNetworkInterface :: Text -- ^ 'dni2NetworkInterfaceId'+                       -> DeleteNetworkInterface+deleteNetworkInterface p1 = DeleteNetworkInterface+    { _dni2NetworkInterfaceId = p1+    , _dni2DryRun             = Nothing+    }++dni2DryRun :: Lens' DeleteNetworkInterface (Maybe Bool)+dni2DryRun = lens _dni2DryRun (\s a -> s { _dni2DryRun = a })++-- | The ID of the network interface.+dni2NetworkInterfaceId :: Lens' DeleteNetworkInterface Text+dni2NetworkInterfaceId =+    lens _dni2NetworkInterfaceId (\s a -> s { _dni2NetworkInterfaceId = a })++data DeleteNetworkInterfaceResponse = DeleteNetworkInterfaceResponse+    deriving (Eq, Ord, Show, Generic)++-- | 'DeleteNetworkInterfaceResponse' constructor.+deleteNetworkInterfaceResponse :: DeleteNetworkInterfaceResponse+deleteNetworkInterfaceResponse = DeleteNetworkInterfaceResponse++instance ToPath DeleteNetworkInterface where+    toPath = const "/"++instance ToQuery DeleteNetworkInterface where+    toQuery DeleteNetworkInterface{..} = mconcat+        [ "dryRun"             =? _dni2DryRun+        , "networkInterfaceId" =? _dni2NetworkInterfaceId+        ]++instance ToHeaders DeleteNetworkInterface++instance AWSRequest DeleteNetworkInterface where+    type Sv DeleteNetworkInterface = EC2+    type Rs DeleteNetworkInterface = DeleteNetworkInterfaceResponse++    request  = post "DeleteNetworkInterface"+    response = nullResponse DeleteNetworkInterfaceResponse
+ gen/Network/AWS/EC2/DeletePlacementGroup.hs view
@@ -0,0 +1,100 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.DeletePlacementGroup+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Deletes the specified placement group. You must terminate all instances in+-- the placement group before you can delete the placement group. For more+-- information about placement groups and cluster instances, see Cluster+-- Instances in the Amazon Elastic Compute Cloud User Guide.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-DeletePlacementGroup.html>+module Network.AWS.EC2.DeletePlacementGroup+    (+    -- * Request+      DeletePlacementGroup+    -- ** Request constructor+    , deletePlacementGroup+    -- ** Request lenses+    , dpgDryRun+    , dpgGroupName++    -- * Response+    , DeletePlacementGroupResponse+    -- ** Response constructor+    , deletePlacementGroupResponse+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data DeletePlacementGroup = DeletePlacementGroup+    { _dpgDryRun    :: Maybe Bool+    , _dpgGroupName :: Text+    } deriving (Eq, Ord, Show)++-- | 'DeletePlacementGroup' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'dpgDryRun' @::@ 'Maybe' 'Bool'+--+-- * 'dpgGroupName' @::@ 'Text'+--+deletePlacementGroup :: Text -- ^ 'dpgGroupName'+                     -> DeletePlacementGroup+deletePlacementGroup p1 = DeletePlacementGroup+    { _dpgGroupName = p1+    , _dpgDryRun    = Nothing+    }++dpgDryRun :: Lens' DeletePlacementGroup (Maybe Bool)+dpgDryRun = lens _dpgDryRun (\s a -> s { _dpgDryRun = a })++-- | The name of the placement group.+dpgGroupName :: Lens' DeletePlacementGroup Text+dpgGroupName = lens _dpgGroupName (\s a -> s { _dpgGroupName = a })++data DeletePlacementGroupResponse = DeletePlacementGroupResponse+    deriving (Eq, Ord, Show, Generic)++-- | 'DeletePlacementGroupResponse' constructor.+deletePlacementGroupResponse :: DeletePlacementGroupResponse+deletePlacementGroupResponse = DeletePlacementGroupResponse++instance ToPath DeletePlacementGroup where+    toPath = const "/"++instance ToQuery DeletePlacementGroup where+    toQuery DeletePlacementGroup{..} = mconcat+        [ "dryRun"    =? _dpgDryRun+        , "groupName" =? _dpgGroupName+        ]++instance ToHeaders DeletePlacementGroup++instance AWSRequest DeletePlacementGroup where+    type Sv DeletePlacementGroup = EC2+    type Rs DeletePlacementGroup = DeletePlacementGroupResponse++    request  = post "DeletePlacementGroup"+    response = nullResponse DeletePlacementGroupResponse
+ gen/Network/AWS/EC2/DeleteRoute.hs view
@@ -0,0 +1,110 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.DeleteRoute+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Deletes the specified route from the specified route table.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-DeleteRoute.html>+module Network.AWS.EC2.DeleteRoute+    (+    -- * Request+      DeleteRoute+    -- ** Request constructor+    , deleteRoute+    -- ** Request lenses+    , drDestinationCidrBlock+    , drDryRun+    , drRouteTableId++    -- * Response+    , DeleteRouteResponse+    -- ** Response constructor+    , deleteRouteResponse+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data DeleteRoute = DeleteRoute+    { _drDestinationCidrBlock :: Text+    , _drDryRun               :: Maybe Bool+    , _drRouteTableId         :: Text+    } deriving (Eq, Ord, Show)++-- | 'DeleteRoute' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'drDestinationCidrBlock' @::@ 'Text'+--+-- * 'drDryRun' @::@ 'Maybe' 'Bool'+--+-- * 'drRouteTableId' @::@ 'Text'+--+deleteRoute :: Text -- ^ 'drRouteTableId'+            -> Text -- ^ 'drDestinationCidrBlock'+            -> DeleteRoute+deleteRoute p1 p2 = DeleteRoute+    { _drRouteTableId         = p1+    , _drDestinationCidrBlock = p2+    , _drDryRun               = Nothing+    }++-- | The CIDR range for the route. The value you specify must match the CIDR+-- for the route exactly.+drDestinationCidrBlock :: Lens' DeleteRoute Text+drDestinationCidrBlock =+    lens _drDestinationCidrBlock (\s a -> s { _drDestinationCidrBlock = a })++drDryRun :: Lens' DeleteRoute (Maybe Bool)+drDryRun = lens _drDryRun (\s a -> s { _drDryRun = a })++-- | The ID of the route table.+drRouteTableId :: Lens' DeleteRoute Text+drRouteTableId = lens _drRouteTableId (\s a -> s { _drRouteTableId = a })++data DeleteRouteResponse = DeleteRouteResponse+    deriving (Eq, Ord, Show, Generic)++-- | 'DeleteRouteResponse' constructor.+deleteRouteResponse :: DeleteRouteResponse+deleteRouteResponse = DeleteRouteResponse++instance ToPath DeleteRoute where+    toPath = const "/"++instance ToQuery DeleteRoute where+    toQuery DeleteRoute{..} = mconcat+        [ "destinationCidrBlock" =? _drDestinationCidrBlock+        , "dryRun"               =? _drDryRun+        , "routeTableId"         =? _drRouteTableId+        ]++instance ToHeaders DeleteRoute++instance AWSRequest DeleteRoute where+    type Sv DeleteRoute = EC2+    type Rs DeleteRoute = DeleteRouteResponse++    request  = post "DeleteRoute"+    response = nullResponse DeleteRouteResponse
+ gen/Network/AWS/EC2/DeleteRouteTable.hs view
@@ -0,0 +1,99 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.DeleteRouteTable+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Deletes the specified route table. You must disassociate the route table+-- from any subnets before you can delete it. You can't delete the main route+-- table.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-DeleteRouteTable.html>+module Network.AWS.EC2.DeleteRouteTable+    (+    -- * Request+      DeleteRouteTable+    -- ** Request constructor+    , deleteRouteTable+    -- ** Request lenses+    , drt1DryRun+    , drt1RouteTableId++    -- * Response+    , DeleteRouteTableResponse+    -- ** Response constructor+    , deleteRouteTableResponse+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data DeleteRouteTable = DeleteRouteTable+    { _drt1DryRun       :: Maybe Bool+    , _drt1RouteTableId :: Text+    } deriving (Eq, Ord, Show)++-- | 'DeleteRouteTable' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'drt1DryRun' @::@ 'Maybe' 'Bool'+--+-- * 'drt1RouteTableId' @::@ 'Text'+--+deleteRouteTable :: Text -- ^ 'drt1RouteTableId'+                 -> DeleteRouteTable+deleteRouteTable p1 = DeleteRouteTable+    { _drt1RouteTableId = p1+    , _drt1DryRun       = Nothing+    }++drt1DryRun :: Lens' DeleteRouteTable (Maybe Bool)+drt1DryRun = lens _drt1DryRun (\s a -> s { _drt1DryRun = a })++-- | The ID of the route table.+drt1RouteTableId :: Lens' DeleteRouteTable Text+drt1RouteTableId = lens _drt1RouteTableId (\s a -> s { _drt1RouteTableId = a })++data DeleteRouteTableResponse = DeleteRouteTableResponse+    deriving (Eq, Ord, Show, Generic)++-- | 'DeleteRouteTableResponse' constructor.+deleteRouteTableResponse :: DeleteRouteTableResponse+deleteRouteTableResponse = DeleteRouteTableResponse++instance ToPath DeleteRouteTable where+    toPath = const "/"++instance ToQuery DeleteRouteTable where+    toQuery DeleteRouteTable{..} = mconcat+        [ "dryRun"       =? _drt1DryRun+        , "routeTableId" =? _drt1RouteTableId+        ]++instance ToHeaders DeleteRouteTable++instance AWSRequest DeleteRouteTable where+    type Sv DeleteRouteTable = EC2+    type Rs DeleteRouteTable = DeleteRouteTableResponse++    request  = post "DeleteRouteTable"+    response = nullResponse DeleteRouteTableResponse
+ gen/Network/AWS/EC2/DeleteSecurityGroup.hs view
@@ -0,0 +1,110 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.DeleteSecurityGroup+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Deletes a security group. If you attempt to delete a security group that is+-- associated with an instance, or is referenced by another security group,+-- the operation fails with InvalidGroup.InUse in EC2-Classic or+-- DependencyViolation in EC2-VPC.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-DeleteSecurityGroup.html>+module Network.AWS.EC2.DeleteSecurityGroup+    (+    -- * Request+      DeleteSecurityGroup+    -- ** Request constructor+    , deleteSecurityGroup+    -- ** Request lenses+    , dsgDryRun+    , dsgGroupId+    , dsgGroupName++    -- * Response+    , DeleteSecurityGroupResponse+    -- ** Response constructor+    , deleteSecurityGroupResponse+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data DeleteSecurityGroup = DeleteSecurityGroup+    { _dsgDryRun    :: Maybe Bool+    , _dsgGroupId   :: Maybe Text+    , _dsgGroupName :: Maybe Text+    } deriving (Eq, Ord, Show)++-- | 'DeleteSecurityGroup' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'dsgDryRun' @::@ 'Maybe' 'Bool'+--+-- * 'dsgGroupId' @::@ 'Maybe' 'Text'+--+-- * 'dsgGroupName' @::@ 'Maybe' 'Text'+--+deleteSecurityGroup :: DeleteSecurityGroup+deleteSecurityGroup = DeleteSecurityGroup+    { _dsgDryRun    = Nothing+    , _dsgGroupName = Nothing+    , _dsgGroupId   = Nothing+    }++dsgDryRun :: Lens' DeleteSecurityGroup (Maybe Bool)+dsgDryRun = lens _dsgDryRun (\s a -> s { _dsgDryRun = a })++-- | The ID of the security group. Required for a nondefault VPC.+dsgGroupId :: Lens' DeleteSecurityGroup (Maybe Text)+dsgGroupId = lens _dsgGroupId (\s a -> s { _dsgGroupId = a })++-- | [EC2-Classic, default VPC] The name of the security group. You can+-- specify either the security group name or the security group ID.+dsgGroupName :: Lens' DeleteSecurityGroup (Maybe Text)+dsgGroupName = lens _dsgGroupName (\s a -> s { _dsgGroupName = a })++data DeleteSecurityGroupResponse = DeleteSecurityGroupResponse+    deriving (Eq, Ord, Show, Generic)++-- | 'DeleteSecurityGroupResponse' constructor.+deleteSecurityGroupResponse :: DeleteSecurityGroupResponse+deleteSecurityGroupResponse = DeleteSecurityGroupResponse++instance ToPath DeleteSecurityGroup where+    toPath = const "/"++instance ToQuery DeleteSecurityGroup where+    toQuery DeleteSecurityGroup{..} = mconcat+        [ "dryRun"    =? _dsgDryRun+        , "GroupId"   =? _dsgGroupId+        , "GroupName" =? _dsgGroupName+        ]++instance ToHeaders DeleteSecurityGroup++instance AWSRequest DeleteSecurityGroup where+    type Sv DeleteSecurityGroup = EC2+    type Rs DeleteSecurityGroup = DeleteSecurityGroupResponse++    request  = post "DeleteSecurityGroup"+    response = nullResponse DeleteSecurityGroupResponse
+ gen/Network/AWS/EC2/DeleteSnapshot.hs view
@@ -0,0 +1,106 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.DeleteSnapshot+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Deletes the specified snapshot. When you make periodic snapshots of a+-- volume, 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 volume. You cannot delete a snapshot of the root device of an Amazon+-- EBS volume used by a registered AMI. You must first de-register the AMI+-- before you can delete the snapshot. For more information, see Deleting an+-- Amazon EBS Snapshot in the Amazon Elastic Compute Cloud User Guide.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-DeleteSnapshot.html>+module Network.AWS.EC2.DeleteSnapshot+    (+    -- * Request+      DeleteSnapshot+    -- ** Request constructor+    , deleteSnapshot+    -- ** Request lenses+    , ds3DryRun+    , ds3SnapshotId++    -- * Response+    , DeleteSnapshotResponse+    -- ** Response constructor+    , deleteSnapshotResponse+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data DeleteSnapshot = DeleteSnapshot+    { _ds3DryRun     :: Maybe Bool+    , _ds3SnapshotId :: Text+    } deriving (Eq, Ord, Show)++-- | 'DeleteSnapshot' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'ds3DryRun' @::@ 'Maybe' 'Bool'+--+-- * 'ds3SnapshotId' @::@ 'Text'+--+deleteSnapshot :: Text -- ^ 'ds3SnapshotId'+               -> DeleteSnapshot+deleteSnapshot p1 = DeleteSnapshot+    { _ds3SnapshotId = p1+    , _ds3DryRun     = Nothing+    }++ds3DryRun :: Lens' DeleteSnapshot (Maybe Bool)+ds3DryRun = lens _ds3DryRun (\s a -> s { _ds3DryRun = a })++-- | The ID of the Amazon EBS snapshot.+ds3SnapshotId :: Lens' DeleteSnapshot Text+ds3SnapshotId = lens _ds3SnapshotId (\s a -> s { _ds3SnapshotId = a })++data DeleteSnapshotResponse = DeleteSnapshotResponse+    deriving (Eq, Ord, Show, Generic)++-- | 'DeleteSnapshotResponse' constructor.+deleteSnapshotResponse :: DeleteSnapshotResponse+deleteSnapshotResponse = DeleteSnapshotResponse++instance ToPath DeleteSnapshot where+    toPath = const "/"++instance ToQuery DeleteSnapshot where+    toQuery DeleteSnapshot{..} = mconcat+        [ "dryRun"     =? _ds3DryRun+        , "SnapshotId" =? _ds3SnapshotId+        ]++instance ToHeaders DeleteSnapshot++instance AWSRequest DeleteSnapshot where+    type Sv DeleteSnapshot = EC2+    type Rs DeleteSnapshot = DeleteSnapshotResponse++    request  = post "DeleteSnapshot"+    response = nullResponse DeleteSnapshotResponse
+ gen/Network/AWS/EC2/DeleteSpotDatafeedSubscription.hs view
@@ -0,0 +1,87 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.DeleteSpotDatafeedSubscription+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Deletes the datafeed for Spot Instances. For more information, see Spot+-- Instances in the Amazon Elastic Compute Cloud User Guide.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-DeleteSpotDatafeedSubscription.html>+module Network.AWS.EC2.DeleteSpotDatafeedSubscription+    (+    -- * Request+      DeleteSpotDatafeedSubscription+    -- ** Request constructor+    , deleteSpotDatafeedSubscription+    -- ** Request lenses+    , dsds1DryRun++    -- * Response+    , DeleteSpotDatafeedSubscriptionResponse+    -- ** Response constructor+    , deleteSpotDatafeedSubscriptionResponse+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++newtype DeleteSpotDatafeedSubscription = DeleteSpotDatafeedSubscription+    { _dsds1DryRun :: Maybe Bool+    } deriving (Eq, Ord, Show)++-- | 'DeleteSpotDatafeedSubscription' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'dsds1DryRun' @::@ 'Maybe' 'Bool'+--+deleteSpotDatafeedSubscription :: DeleteSpotDatafeedSubscription+deleteSpotDatafeedSubscription = DeleteSpotDatafeedSubscription+    { _dsds1DryRun = Nothing+    }++dsds1DryRun :: Lens' DeleteSpotDatafeedSubscription (Maybe Bool)+dsds1DryRun = lens _dsds1DryRun (\s a -> s { _dsds1DryRun = a })++data DeleteSpotDatafeedSubscriptionResponse = DeleteSpotDatafeedSubscriptionResponse+    deriving (Eq, Ord, Show, Generic)++-- | 'DeleteSpotDatafeedSubscriptionResponse' constructor.+deleteSpotDatafeedSubscriptionResponse :: DeleteSpotDatafeedSubscriptionResponse+deleteSpotDatafeedSubscriptionResponse = DeleteSpotDatafeedSubscriptionResponse++instance ToPath DeleteSpotDatafeedSubscription where+    toPath = const "/"++instance ToQuery DeleteSpotDatafeedSubscription where+    toQuery DeleteSpotDatafeedSubscription{..} = mconcat+        [ "dryRun" =? _dsds1DryRun+        ]++instance ToHeaders DeleteSpotDatafeedSubscription++instance AWSRequest DeleteSpotDatafeedSubscription where+    type Sv DeleteSpotDatafeedSubscription = EC2+    type Rs DeleteSpotDatafeedSubscription = DeleteSpotDatafeedSubscriptionResponse++    request  = post "DeleteSpotDatafeedSubscription"+    response = nullResponse DeleteSpotDatafeedSubscriptionResponse
+ gen/Network/AWS/EC2/DeleteSubnet.hs view
@@ -0,0 +1,98 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.DeleteSubnet+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Deletes the specified subnet. You must terminate all running instances in+-- the subnet before you can delete the subnet.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-DeleteSubnet.html>+module Network.AWS.EC2.DeleteSubnet+    (+    -- * Request+      DeleteSubnet+    -- ** Request constructor+    , deleteSubnet+    -- ** Request lenses+    , ds2DryRun+    , ds2SubnetId++    -- * Response+    , DeleteSubnetResponse+    -- ** Response constructor+    , deleteSubnetResponse+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data DeleteSubnet = DeleteSubnet+    { _ds2DryRun   :: Maybe Bool+    , _ds2SubnetId :: Text+    } deriving (Eq, Ord, Show)++-- | 'DeleteSubnet' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'ds2DryRun' @::@ 'Maybe' 'Bool'+--+-- * 'ds2SubnetId' @::@ 'Text'+--+deleteSubnet :: Text -- ^ 'ds2SubnetId'+             -> DeleteSubnet+deleteSubnet p1 = DeleteSubnet+    { _ds2SubnetId = p1+    , _ds2DryRun   = Nothing+    }++ds2DryRun :: Lens' DeleteSubnet (Maybe Bool)+ds2DryRun = lens _ds2DryRun (\s a -> s { _ds2DryRun = a })++-- | The ID of the subnet.+ds2SubnetId :: Lens' DeleteSubnet Text+ds2SubnetId = lens _ds2SubnetId (\s a -> s { _ds2SubnetId = a })++data DeleteSubnetResponse = DeleteSubnetResponse+    deriving (Eq, Ord, Show, Generic)++-- | 'DeleteSubnetResponse' constructor.+deleteSubnetResponse :: DeleteSubnetResponse+deleteSubnetResponse = DeleteSubnetResponse++instance ToPath DeleteSubnet where+    toPath = const "/"++instance ToQuery DeleteSubnet where+    toQuery DeleteSubnet{..} = mconcat+        [ "dryRun"   =? _ds2DryRun+        , "SubnetId" =? _ds2SubnetId+        ]++instance ToHeaders DeleteSubnet++instance AWSRequest DeleteSubnet where+    type Sv DeleteSubnet = EC2+    type Rs DeleteSubnet = DeleteSubnetResponse++    request  = post "DeleteSubnet"+    response = nullResponse DeleteSubnetResponse
+ gen/Network/AWS/EC2/DeleteTags.hs view
@@ -0,0 +1,113 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.DeleteTags+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Deletes the specified set of tags from the specified set of resources. This+-- call is designed to follow a DescribeTags request. For more information+-- about tags, see Tagging Your Resources in the Amazon Elastic Compute Cloud+-- User Guide.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-DeleteTags.html>+module Network.AWS.EC2.DeleteTags+    (+    -- * Request+      DeleteTags+    -- ** Request constructor+    , deleteTags+    -- ** Request lenses+    , dt1DryRun+    , dt1Resources+    , dt1Tags++    -- * Response+    , DeleteTagsResponse+    -- ** Response constructor+    , deleteTagsResponse+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data DeleteTags = DeleteTags+    { _dt1DryRun    :: Maybe Bool+    , _dt1Resources :: List "ResourceId" Text+    , _dt1Tags      :: List "item" Tag+    } deriving (Eq, Show)++-- | 'DeleteTags' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'dt1DryRun' @::@ 'Maybe' 'Bool'+--+-- * 'dt1Resources' @::@ ['Text']+--+-- * 'dt1Tags' @::@ ['Tag']+--+deleteTags :: DeleteTags+deleteTags = DeleteTags+    { _dt1DryRun    = Nothing+    , _dt1Resources = mempty+    , _dt1Tags      = mempty+    }++dt1DryRun :: Lens' DeleteTags (Maybe Bool)+dt1DryRun = lens _dt1DryRun (\s a -> s { _dt1DryRun = a })++-- | The ID of the resource. For example, ami-1a2b3c4d. You can specify more+-- than one resource ID.+dt1Resources :: Lens' DeleteTags [Text]+dt1Resources = lens _dt1Resources (\s a -> s { _dt1Resources = a }) . _List++-- | One or more tags to delete. If you omit the value parameter, we delete+-- the tag regardless of its value. If you specify this parameter with an+-- empty string as the value, we delete the key only if its value is an+-- empty string.+dt1Tags :: Lens' DeleteTags [Tag]+dt1Tags = lens _dt1Tags (\s a -> s { _dt1Tags = a }) . _List++data DeleteTagsResponse = DeleteTagsResponse+    deriving (Eq, Ord, Show, Generic)++-- | 'DeleteTagsResponse' constructor.+deleteTagsResponse :: DeleteTagsResponse+deleteTagsResponse = DeleteTagsResponse++instance ToPath DeleteTags where+    toPath = const "/"++instance ToQuery DeleteTags where+    toQuery DeleteTags{..} = mconcat+        [ "dryRun"     =? _dt1DryRun+        , "resourceId" =? _dt1Resources+        , "tag"        =? _dt1Tags+        ]++instance ToHeaders DeleteTags++instance AWSRequest DeleteTags where+    type Sv DeleteTags = EC2+    type Rs DeleteTags = DeleteTagsResponse++    request  = post "DeleteTags"+    response = nullResponse DeleteTagsResponse
+ gen/Network/AWS/EC2/DeleteVolume.hs view
@@ -0,0 +1,100 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.DeleteVolume+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Deletes the specified Amazon EBS volume. The volume must be in the+-- available state (not attached to an instance). For more information, see+-- Deleting an Amazon EBS Volume in the Amazon Elastic Compute Cloud User+-- Guide.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-DeleteVolume.html>+module Network.AWS.EC2.DeleteVolume+    (+    -- * Request+      DeleteVolume+    -- ** Request constructor+    , deleteVolume+    -- ** Request lenses+    , dv4DryRun+    , dv4VolumeId++    -- * Response+    , DeleteVolumeResponse+    -- ** Response constructor+    , deleteVolumeResponse+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data DeleteVolume = DeleteVolume+    { _dv4DryRun   :: Maybe Bool+    , _dv4VolumeId :: Text+    } deriving (Eq, Ord, Show)++-- | 'DeleteVolume' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'dv4DryRun' @::@ 'Maybe' 'Bool'+--+-- * 'dv4VolumeId' @::@ 'Text'+--+deleteVolume :: Text -- ^ 'dv4VolumeId'+             -> DeleteVolume+deleteVolume p1 = DeleteVolume+    { _dv4VolumeId = p1+    , _dv4DryRun   = Nothing+    }++dv4DryRun :: Lens' DeleteVolume (Maybe Bool)+dv4DryRun = lens _dv4DryRun (\s a -> s { _dv4DryRun = a })++-- | The ID of the volume.+dv4VolumeId :: Lens' DeleteVolume Text+dv4VolumeId = lens _dv4VolumeId (\s a -> s { _dv4VolumeId = a })++data DeleteVolumeResponse = DeleteVolumeResponse+    deriving (Eq, Ord, Show, Generic)++-- | 'DeleteVolumeResponse' constructor.+deleteVolumeResponse :: DeleteVolumeResponse+deleteVolumeResponse = DeleteVolumeResponse++instance ToPath DeleteVolume where+    toPath = const "/"++instance ToQuery DeleteVolume where+    toQuery DeleteVolume{..} = mconcat+        [ "dryRun"   =? _dv4DryRun+        , "VolumeId" =? _dv4VolumeId+        ]++instance ToHeaders DeleteVolume++instance AWSRequest DeleteVolume where+    type Sv DeleteVolume = EC2+    type Rs DeleteVolume = DeleteVolumeResponse++    request  = post "DeleteVolume"+    response = nullResponse DeleteVolumeResponse
+ gen/Network/AWS/EC2/DeleteVpc.hs view
@@ -0,0 +1,102 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.DeleteVpc+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Deletes the specified VPC. You must detach or delete all gateways and+-- resources that are associated with the VPC before you can delete it. For+-- example, you must terminate all instances running in the VPC, delete all+-- security groups associated with the VPC (except the default one), delete+-- all route tables associated with the VPC (except the default one), and so+-- on.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-DeleteVpc.html>+module Network.AWS.EC2.DeleteVpc+    (+    -- * Request+      DeleteVpc+    -- ** Request constructor+    , deleteVpc+    -- ** Request lenses+    , dv3DryRun+    , dv3VpcId++    -- * Response+    , DeleteVpcResponse+    -- ** Response constructor+    , deleteVpcResponse+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data DeleteVpc = DeleteVpc+    { _dv3DryRun :: Maybe Bool+    , _dv3VpcId  :: Text+    } deriving (Eq, Ord, Show)++-- | 'DeleteVpc' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'dv3DryRun' @::@ 'Maybe' 'Bool'+--+-- * 'dv3VpcId' @::@ 'Text'+--+deleteVpc :: Text -- ^ 'dv3VpcId'+          -> DeleteVpc+deleteVpc p1 = DeleteVpc+    { _dv3VpcId  = p1+    , _dv3DryRun = Nothing+    }++dv3DryRun :: Lens' DeleteVpc (Maybe Bool)+dv3DryRun = lens _dv3DryRun (\s a -> s { _dv3DryRun = a })++-- | The ID of the VPC.+dv3VpcId :: Lens' DeleteVpc Text+dv3VpcId = lens _dv3VpcId (\s a -> s { _dv3VpcId = a })++data DeleteVpcResponse = DeleteVpcResponse+    deriving (Eq, Ord, Show, Generic)++-- | 'DeleteVpcResponse' constructor.+deleteVpcResponse :: DeleteVpcResponse+deleteVpcResponse = DeleteVpcResponse++instance ToPath DeleteVpc where+    toPath = const "/"++instance ToQuery DeleteVpc where+    toQuery DeleteVpc{..} = mconcat+        [ "dryRun" =? _dv3DryRun+        , "VpcId"  =? _dv3VpcId+        ]++instance ToHeaders DeleteVpc++instance AWSRequest DeleteVpc where+    type Sv DeleteVpc = EC2+    type Rs DeleteVpc = DeleteVpcResponse++    request  = post "DeleteVpc"+    response = nullResponse DeleteVpcResponse
+ gen/Network/AWS/EC2/DeleteVpcPeeringConnection.hs view
@@ -0,0 +1,120 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.DeleteVpcPeeringConnection+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Deletes a VPC peering connection. Either the owner of the requester VPC or+-- the owner of the peer VPC can delete the VPC peering connection if it's in+-- the active state. The owner of the requester VPC can delete a VPC peering+-- connection in the pending-acceptance state.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-DeleteVpcPeeringConnection.html>+module Network.AWS.EC2.DeleteVpcPeeringConnection+    (+    -- * Request+      DeleteVpcPeeringConnection+    -- ** Request constructor+    , deleteVpcPeeringConnection+    -- ** Request lenses+    , dvpcDryRun+    , dvpcVpcPeeringConnectionId++    -- * Response+    , DeleteVpcPeeringConnectionResponse+    -- ** Response constructor+    , deleteVpcPeeringConnectionResponse+    -- ** Response lenses+    , dvpcrReturn+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data DeleteVpcPeeringConnection = DeleteVpcPeeringConnection+    { _dvpcDryRun                 :: Maybe Bool+    , _dvpcVpcPeeringConnectionId :: Text+    } deriving (Eq, Ord, Show)++-- | 'DeleteVpcPeeringConnection' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'dvpcDryRun' @::@ 'Maybe' 'Bool'+--+-- * 'dvpcVpcPeeringConnectionId' @::@ 'Text'+--+deleteVpcPeeringConnection :: Text -- ^ 'dvpcVpcPeeringConnectionId'+                           -> DeleteVpcPeeringConnection+deleteVpcPeeringConnection p1 = DeleteVpcPeeringConnection+    { _dvpcVpcPeeringConnectionId = p1+    , _dvpcDryRun                 = Nothing+    }++dvpcDryRun :: Lens' DeleteVpcPeeringConnection (Maybe Bool)+dvpcDryRun = lens _dvpcDryRun (\s a -> s { _dvpcDryRun = a })++-- | The ID of the VPC peering connection.+dvpcVpcPeeringConnectionId :: Lens' DeleteVpcPeeringConnection Text+dvpcVpcPeeringConnectionId =+    lens _dvpcVpcPeeringConnectionId+        (\s a -> s { _dvpcVpcPeeringConnectionId = a })++newtype DeleteVpcPeeringConnectionResponse = DeleteVpcPeeringConnectionResponse+    { _dvpcrReturn :: Maybe Bool+    } deriving (Eq, Ord, Show)++-- | 'DeleteVpcPeeringConnectionResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'dvpcrReturn' @::@ 'Maybe' 'Bool'+--+deleteVpcPeeringConnectionResponse :: DeleteVpcPeeringConnectionResponse+deleteVpcPeeringConnectionResponse = DeleteVpcPeeringConnectionResponse+    { _dvpcrReturn = Nothing+    }++-- | Returns true if the request succeeds; otherwise, it returns an error.+dvpcrReturn :: Lens' DeleteVpcPeeringConnectionResponse (Maybe Bool)+dvpcrReturn = lens _dvpcrReturn (\s a -> s { _dvpcrReturn = a })++instance ToPath DeleteVpcPeeringConnection where+    toPath = const "/"++instance ToQuery DeleteVpcPeeringConnection where+    toQuery DeleteVpcPeeringConnection{..} = mconcat+        [ "dryRun"                 =? _dvpcDryRun+        , "vpcPeeringConnectionId" =? _dvpcVpcPeeringConnectionId+        ]++instance ToHeaders DeleteVpcPeeringConnection++instance AWSRequest DeleteVpcPeeringConnection where+    type Sv DeleteVpcPeeringConnection = EC2+    type Rs DeleteVpcPeeringConnection = DeleteVpcPeeringConnectionResponse++    request  = post "DeleteVpcPeeringConnection"+    response = xmlResponse++instance FromXML DeleteVpcPeeringConnectionResponse where+    parseXML x = DeleteVpcPeeringConnectionResponse+        <$> x .@? "return"
+ gen/Network/AWS/EC2/DeleteVpnConnection.hs view
@@ -0,0 +1,106 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.DeleteVpnConnection+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Deletes the specified VPN connection. If you're deleting the VPC and its+-- associated components, we recommend that you detach the virtual private+-- gateway from the VPC and delete the VPC before deleting the VPN connection.+-- If you believe that the tunnel credentials for your VPN connection have+-- been compromised, you can delete the VPN connection and create a new one+-- that has new keys, without needing to delete the VPC or virtual private+-- gateway. If you create a new VPN connection, you must reconfigure the+-- customer gateway using the new configuration information returned with the+-- new VPN connection ID.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-DeleteVpnConnection.html>+module Network.AWS.EC2.DeleteVpnConnection+    (+    -- * Request+      DeleteVpnConnection+    -- ** Request constructor+    , deleteVpnConnection+    -- ** Request lenses+    , dvcDryRun+    , dvcVpnConnectionId++    -- * Response+    , DeleteVpnConnectionResponse+    -- ** Response constructor+    , deleteVpnConnectionResponse+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data DeleteVpnConnection = DeleteVpnConnection+    { _dvcDryRun          :: Maybe Bool+    , _dvcVpnConnectionId :: Text+    } deriving (Eq, Ord, Show)++-- | 'DeleteVpnConnection' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'dvcDryRun' @::@ 'Maybe' 'Bool'+--+-- * 'dvcVpnConnectionId' @::@ 'Text'+--+deleteVpnConnection :: Text -- ^ 'dvcVpnConnectionId'+                    -> DeleteVpnConnection+deleteVpnConnection p1 = DeleteVpnConnection+    { _dvcVpnConnectionId = p1+    , _dvcDryRun          = Nothing+    }++dvcDryRun :: Lens' DeleteVpnConnection (Maybe Bool)+dvcDryRun = lens _dvcDryRun (\s a -> s { _dvcDryRun = a })++-- | The ID of the VPN connection.+dvcVpnConnectionId :: Lens' DeleteVpnConnection Text+dvcVpnConnectionId =+    lens _dvcVpnConnectionId (\s a -> s { _dvcVpnConnectionId = a })++data DeleteVpnConnectionResponse = DeleteVpnConnectionResponse+    deriving (Eq, Ord, Show, Generic)++-- | 'DeleteVpnConnectionResponse' constructor.+deleteVpnConnectionResponse :: DeleteVpnConnectionResponse+deleteVpnConnectionResponse = DeleteVpnConnectionResponse++instance ToPath DeleteVpnConnection where+    toPath = const "/"++instance ToQuery DeleteVpnConnection where+    toQuery DeleteVpnConnection{..} = mconcat+        [ "dryRun"          =? _dvcDryRun+        , "VpnConnectionId" =? _dvcVpnConnectionId+        ]++instance ToHeaders DeleteVpnConnection++instance AWSRequest DeleteVpnConnection where+    type Sv DeleteVpnConnection = EC2+    type Rs DeleteVpnConnection = DeleteVpnConnectionResponse++    request  = post "DeleteVpnConnection"+    response = nullResponse DeleteVpnConnectionResponse
+ gen/Network/AWS/EC2/DeleteVpnConnectionRoute.hs view
@@ -0,0 +1,105 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.DeleteVpnConnectionRoute+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Deletes the specified static route associated with a VPN connection between+-- an existing virtual private gateway and a VPN customer gateway. The static+-- route allows traffic to be routed from the virtual private gateway to the+-- VPN customer gateway.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-DeleteVpnConnectionRoute.html>+module Network.AWS.EC2.DeleteVpnConnectionRoute+    (+    -- * Request+      DeleteVpnConnectionRoute+    -- ** Request constructor+    , deleteVpnConnectionRoute+    -- ** Request lenses+    , dvcrDestinationCidrBlock+    , dvcrVpnConnectionId++    -- * Response+    , DeleteVpnConnectionRouteResponse+    -- ** Response constructor+    , deleteVpnConnectionRouteResponse+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data DeleteVpnConnectionRoute = DeleteVpnConnectionRoute+    { _dvcrDestinationCidrBlock :: Text+    , _dvcrVpnConnectionId      :: Text+    } deriving (Eq, Ord, Show)++-- | 'DeleteVpnConnectionRoute' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'dvcrDestinationCidrBlock' @::@ 'Text'+--+-- * 'dvcrVpnConnectionId' @::@ 'Text'+--+deleteVpnConnectionRoute :: Text -- ^ 'dvcrVpnConnectionId'+                         -> Text -- ^ 'dvcrDestinationCidrBlock'+                         -> DeleteVpnConnectionRoute+deleteVpnConnectionRoute p1 p2 = DeleteVpnConnectionRoute+    { _dvcrVpnConnectionId      = p1+    , _dvcrDestinationCidrBlock = p2+    }++-- | The CIDR block associated with the local subnet of the customer network.+dvcrDestinationCidrBlock :: Lens' DeleteVpnConnectionRoute Text+dvcrDestinationCidrBlock =+    lens _dvcrDestinationCidrBlock+        (\s a -> s { _dvcrDestinationCidrBlock = a })++-- | The ID of the VPN connection.+dvcrVpnConnectionId :: Lens' DeleteVpnConnectionRoute Text+dvcrVpnConnectionId =+    lens _dvcrVpnConnectionId (\s a -> s { _dvcrVpnConnectionId = a })++data DeleteVpnConnectionRouteResponse = DeleteVpnConnectionRouteResponse+    deriving (Eq, Ord, Show, Generic)++-- | 'DeleteVpnConnectionRouteResponse' constructor.+deleteVpnConnectionRouteResponse :: DeleteVpnConnectionRouteResponse+deleteVpnConnectionRouteResponse = DeleteVpnConnectionRouteResponse++instance ToPath DeleteVpnConnectionRoute where+    toPath = const "/"++instance ToQuery DeleteVpnConnectionRoute where+    toQuery DeleteVpnConnectionRoute{..} = mconcat+        [ "DestinationCidrBlock" =? _dvcrDestinationCidrBlock+        , "VpnConnectionId"      =? _dvcrVpnConnectionId+        ]++instance ToHeaders DeleteVpnConnectionRoute++instance AWSRequest DeleteVpnConnectionRoute where+    type Sv DeleteVpnConnectionRoute = EC2+    type Rs DeleteVpnConnectionRoute = DeleteVpnConnectionRouteResponse++    request  = post "DeleteVpnConnectionRoute"+    response = nullResponse DeleteVpnConnectionRouteResponse
+ gen/Network/AWS/EC2/DeleteVpnGateway.hs view
@@ -0,0 +1,101 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.DeleteVpnGateway+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Deletes the specified virtual private gateway. We recommend that before you+-- delete a virtual private gateway, you detach it from the VPC and delete the+-- VPN connection. Note that you don't need to delete the virtual private+-- gateway if you plan to delete and recreate the VPN connection between your+-- VPC and your network.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-DeleteVpnGateway.html>+module Network.AWS.EC2.DeleteVpnGateway+    (+    -- * Request+      DeleteVpnGateway+    -- ** Request constructor+    , deleteVpnGateway+    -- ** Request lenses+    , dvgDryRun+    , dvgVpnGatewayId++    -- * Response+    , DeleteVpnGatewayResponse+    -- ** Response constructor+    , deleteVpnGatewayResponse+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data DeleteVpnGateway = DeleteVpnGateway+    { _dvgDryRun       :: Maybe Bool+    , _dvgVpnGatewayId :: Text+    } deriving (Eq, Ord, Show)++-- | 'DeleteVpnGateway' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'dvgDryRun' @::@ 'Maybe' 'Bool'+--+-- * 'dvgVpnGatewayId' @::@ 'Text'+--+deleteVpnGateway :: Text -- ^ 'dvgVpnGatewayId'+                 -> DeleteVpnGateway+deleteVpnGateway p1 = DeleteVpnGateway+    { _dvgVpnGatewayId = p1+    , _dvgDryRun       = Nothing+    }++dvgDryRun :: Lens' DeleteVpnGateway (Maybe Bool)+dvgDryRun = lens _dvgDryRun (\s a -> s { _dvgDryRun = a })++-- | The ID of the virtual private gateway.+dvgVpnGatewayId :: Lens' DeleteVpnGateway Text+dvgVpnGatewayId = lens _dvgVpnGatewayId (\s a -> s { _dvgVpnGatewayId = a })++data DeleteVpnGatewayResponse = DeleteVpnGatewayResponse+    deriving (Eq, Ord, Show, Generic)++-- | 'DeleteVpnGatewayResponse' constructor.+deleteVpnGatewayResponse :: DeleteVpnGatewayResponse+deleteVpnGatewayResponse = DeleteVpnGatewayResponse++instance ToPath DeleteVpnGateway where+    toPath = const "/"++instance ToQuery DeleteVpnGateway where+    toQuery DeleteVpnGateway{..} = mconcat+        [ "dryRun"       =? _dvgDryRun+        , "VpnGatewayId" =? _dvgVpnGatewayId+        ]++instance ToHeaders DeleteVpnGateway++instance AWSRequest DeleteVpnGateway where+    type Sv DeleteVpnGateway = EC2+    type Rs DeleteVpnGateway = DeleteVpnGatewayResponse++    request  = post "DeleteVpnGateway"+    response = nullResponse DeleteVpnGatewayResponse
+ gen/Network/AWS/EC2/DeregisterImage.hs view
@@ -0,0 +1,98 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.DeregisterImage+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Deregisters the specified AMI. After you deregister an AMI, it can't be+-- used to launch new instances. This command does not delete the AMI.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-DeregisterImage.html>+module Network.AWS.EC2.DeregisterImage+    (+    -- * Request+      DeregisterImage+    -- ** Request constructor+    , deregisterImage+    -- ** Request lenses+    , diDryRun+    , diImageId++    -- * Response+    , DeregisterImageResponse+    -- ** Response constructor+    , deregisterImageResponse+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data DeregisterImage = DeregisterImage+    { _diDryRun  :: Maybe Bool+    , _diImageId :: Text+    } deriving (Eq, Ord, Show)++-- | 'DeregisterImage' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'diDryRun' @::@ 'Maybe' 'Bool'+--+-- * 'diImageId' @::@ 'Text'+--+deregisterImage :: Text -- ^ 'diImageId'+                -> DeregisterImage+deregisterImage p1 = DeregisterImage+    { _diImageId = p1+    , _diDryRun  = Nothing+    }++diDryRun :: Lens' DeregisterImage (Maybe Bool)+diDryRun = lens _diDryRun (\s a -> s { _diDryRun = a })++-- | The ID of the AMI.+diImageId :: Lens' DeregisterImage Text+diImageId = lens _diImageId (\s a -> s { _diImageId = a })++data DeregisterImageResponse = DeregisterImageResponse+    deriving (Eq, Ord, Show, Generic)++-- | 'DeregisterImageResponse' constructor.+deregisterImageResponse :: DeregisterImageResponse+deregisterImageResponse = DeregisterImageResponse++instance ToPath DeregisterImage where+    toPath = const "/"++instance ToQuery DeregisterImage where+    toQuery DeregisterImage{..} = mconcat+        [ "dryRun"  =? _diDryRun+        , "ImageId" =? _diImageId+        ]++instance ToHeaders DeregisterImage++instance AWSRequest DeregisterImage where+    type Sv DeregisterImage = EC2+    type Rs DeregisterImage = DeregisterImageResponse++    request  = post "DeregisterImage"+    response = nullResponse DeregisterImageResponse
+ gen/Network/AWS/EC2/DescribeAccountAttributes.hs view
@@ -0,0 +1,124 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.DescribeAccountAttributes+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Describes the specified attribute of your AWS account.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-DescribeAccountAttributes.html>+module Network.AWS.EC2.DescribeAccountAttributes+    (+    -- * Request+      DescribeAccountAttributes+    -- ** Request constructor+    , describeAccountAttributes+    -- ** Request lenses+    , daaAttributeNames+    , daaDryRun++    -- * Response+    , DescribeAccountAttributesResponse+    -- ** Response constructor+    , describeAccountAttributesResponse+    -- ** Response lenses+    , daarAccountAttributes+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data DescribeAccountAttributes = DescribeAccountAttributes+    { _daaAttributeNames :: List "attributeName" Text+    , _daaDryRun         :: Maybe Bool+    } deriving (Eq, Ord, Show)++-- | 'DescribeAccountAttributes' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'daaAttributeNames' @::@ ['Text']+--+-- * 'daaDryRun' @::@ 'Maybe' 'Bool'+--+describeAccountAttributes :: DescribeAccountAttributes+describeAccountAttributes = DescribeAccountAttributes+    { _daaDryRun         = Nothing+    , _daaAttributeNames = mempty+    }++-- | One or more account attribute names.+daaAttributeNames :: Lens' DescribeAccountAttributes [Text]+daaAttributeNames =+    lens _daaAttributeNames (\s a -> s { _daaAttributeNames = a })+        . _List++daaDryRun :: Lens' DescribeAccountAttributes (Maybe Bool)+daaDryRun = lens _daaDryRun (\s a -> s { _daaDryRun = a })++newtype DescribeAccountAttributesResponse = DescribeAccountAttributesResponse+    { _daarAccountAttributes :: List "item" AccountAttribute+    } deriving (Eq, Show, Monoid, Semigroup)++instance GHC.Exts.IsList DescribeAccountAttributesResponse where+    type Item DescribeAccountAttributesResponse = AccountAttribute++    fromList = DescribeAccountAttributesResponse . GHC.Exts.fromList+    toList   = GHC.Exts.toList . _daarAccountAttributes++-- | 'DescribeAccountAttributesResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'daarAccountAttributes' @::@ ['AccountAttribute']+--+describeAccountAttributesResponse :: DescribeAccountAttributesResponse+describeAccountAttributesResponse = DescribeAccountAttributesResponse+    { _daarAccountAttributes = mempty+    }++-- | Information about one or more account attributes.+daarAccountAttributes :: Lens' DescribeAccountAttributesResponse [AccountAttribute]+daarAccountAttributes =+    lens _daarAccountAttributes (\s a -> s { _daarAccountAttributes = a })+        . _List++instance ToPath DescribeAccountAttributes where+    toPath = const "/"++instance ToQuery DescribeAccountAttributes where+    toQuery DescribeAccountAttributes{..} = mconcat+        [ "attributeName" =? _daaAttributeNames+        , "dryRun"        =? _daaDryRun+        ]++instance ToHeaders DescribeAccountAttributes++instance AWSRequest DescribeAccountAttributes where+    type Sv DescribeAccountAttributes = EC2+    type Rs DescribeAccountAttributes = DescribeAccountAttributesResponse++    request  = post "DescribeAccountAttributes"+    response = xmlResponse++instance FromXML DescribeAccountAttributesResponse where+    parseXML x = DescribeAccountAttributesResponse+        <$> x .@  "accountAttributeSet"
+ gen/Network/AWS/EC2/DescribeAddresses.hs view
@@ -0,0 +1,154 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.DescribeAddresses+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Describes one or more of your Elastic IP addresses. An Elastic IP address+-- is for use in either the EC2-Classic platform or in a VPC. For more+-- information, see Elastic IP Addresses in the Amazon Elastic Compute Cloud+-- User Guide.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-DescribeAddresses.html>+module Network.AWS.EC2.DescribeAddresses+    (+    -- * Request+      DescribeAddresses+    -- ** Request constructor+    , describeAddresses+    -- ** Request lenses+    , daAllocationIds+    , daDryRun+    , daFilters+    , daPublicIps++    -- * Response+    , DescribeAddressesResponse+    -- ** Response constructor+    , describeAddressesResponse+    -- ** Response lenses+    , darAddresses+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data DescribeAddresses = DescribeAddresses+    { _daAllocationIds :: List "AllocationId" Text+    , _daDryRun        :: Maybe Bool+    , _daFilters       :: List "Filter" Filter+    , _daPublicIps     :: List "PublicIp" Text+    } deriving (Eq, Show)++-- | 'DescribeAddresses' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'daAllocationIds' @::@ ['Text']+--+-- * 'daDryRun' @::@ 'Maybe' 'Bool'+--+-- * 'daFilters' @::@ ['Filter']+--+-- * 'daPublicIps' @::@ ['Text']+--+describeAddresses :: DescribeAddresses+describeAddresses = DescribeAddresses+    { _daDryRun        = Nothing+    , _daPublicIps     = mempty+    , _daFilters       = mempty+    , _daAllocationIds = mempty+    }++-- | [EC2-VPC] One or more allocation IDs. Default: Describes all your Elastic+-- IP addresses.+daAllocationIds :: Lens' DescribeAddresses [Text]+daAllocationIds = lens _daAllocationIds (\s a -> s { _daAllocationIds = a }) . _List++daDryRun :: Lens' DescribeAddresses (Maybe Bool)+daDryRun = lens _daDryRun (\s a -> s { _daDryRun = a })++-- | One or more filters. Filter names and values are case-sensitive.+-- allocation-id - [EC2-VPC] The allocation ID for the address.+-- association-id - [EC2-VPC] The association ID for the address. domain -+-- Indicates whether the address is for use in EC2-Classic (standard) or in+-- a VPC (vpc). instance-id - The ID of the instance the address is+-- associated with, if any. network-interface-id - [EC2-VPC] The ID of the+-- network interface that the address is associated with, if any.+-- network-interface-owner-id - The AWS account ID of the owner.+-- private-ip-address - [EC2-VPC] The private IP address associated with the+-- Elastic IP address. public-ip - The Elastic IP address.+daFilters :: Lens' DescribeAddresses [Filter]+daFilters = lens _daFilters (\s a -> s { _daFilters = a }) . _List++-- | [EC2-Classic] One or more Elastic IP addresses. Default: Describes all+-- your Elastic IP addresses.+daPublicIps :: Lens' DescribeAddresses [Text]+daPublicIps = lens _daPublicIps (\s a -> s { _daPublicIps = a }) . _List++newtype DescribeAddressesResponse = DescribeAddressesResponse+    { _darAddresses :: List "item" Address+    } deriving (Eq, Show, Monoid, Semigroup)++instance GHC.Exts.IsList DescribeAddressesResponse where+    type Item DescribeAddressesResponse = Address++    fromList = DescribeAddressesResponse . GHC.Exts.fromList+    toList   = GHC.Exts.toList . _darAddresses++-- | 'DescribeAddressesResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'darAddresses' @::@ ['Address']+--+describeAddressesResponse :: DescribeAddressesResponse+describeAddressesResponse = DescribeAddressesResponse+    { _darAddresses = mempty+    }++-- | Information about one or more Elastic IP addresses.+darAddresses :: Lens' DescribeAddressesResponse [Address]+darAddresses = lens _darAddresses (\s a -> s { _darAddresses = a }) . _List++instance ToPath DescribeAddresses where+    toPath = const "/"++instance ToQuery DescribeAddresses where+    toQuery DescribeAddresses{..} = mconcat+        [ "AllocationId" =? _daAllocationIds+        , "dryRun"       =? _daDryRun+        , "Filter"       =? _daFilters+        , "PublicIp"     =? _daPublicIps+        ]++instance ToHeaders DescribeAddresses++instance AWSRequest DescribeAddresses where+    type Sv DescribeAddresses = EC2+    type Rs DescribeAddresses = DescribeAddressesResponse++    request  = post "DescribeAddresses"+    response = xmlResponse++instance FromXML DescribeAddressesResponse where+    parseXML x = DescribeAddressesResponse+        <$> x .@  "addressesSet"
+ gen/Network/AWS/EC2/DescribeAvailabilityZones.hs view
@@ -0,0 +1,141 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.DescribeAvailabilityZones+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Describes one or more of the Availability Zones that are available to you.+-- The results include zones only for the region you're currently using. If+-- there is an event impacting an Availability Zone, you can use this request+-- to view the state and any provided message for that Availability Zone. For+-- more information, see Regions and Availability Zones in the Amazon Elastic+-- Compute Cloud User Guide.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-DescribeAvailabilityZones.html>+module Network.AWS.EC2.DescribeAvailabilityZones+    (+    -- * Request+      DescribeAvailabilityZones+    -- ** Request constructor+    , describeAvailabilityZones+    -- ** Request lenses+    , dazDryRun+    , dazFilters+    , dazZoneNames++    -- * Response+    , DescribeAvailabilityZonesResponse+    -- ** Response constructor+    , describeAvailabilityZonesResponse+    -- ** Response lenses+    , dazrAvailabilityZones+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data DescribeAvailabilityZones = DescribeAvailabilityZones+    { _dazDryRun    :: Maybe Bool+    , _dazFilters   :: List "Filter" Filter+    , _dazZoneNames :: List "ZoneName" Text+    } deriving (Eq, Show)++-- | 'DescribeAvailabilityZones' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'dazDryRun' @::@ 'Maybe' 'Bool'+--+-- * 'dazFilters' @::@ ['Filter']+--+-- * 'dazZoneNames' @::@ ['Text']+--+describeAvailabilityZones :: DescribeAvailabilityZones+describeAvailabilityZones = DescribeAvailabilityZones+    { _dazDryRun    = Nothing+    , _dazZoneNames = mempty+    , _dazFilters   = mempty+    }++dazDryRun :: Lens' DescribeAvailabilityZones (Maybe Bool)+dazDryRun = lens _dazDryRun (\s a -> s { _dazDryRun = a })++-- | One or more filters. message - Information about the Availability Zone.+-- region-name - The name of the region for the Availability Zone (for+-- example, us-east-1). state - The state of the Availability Zone+-- (available | impaired | unavailable). zone-name - The name of the+-- Availability Zone (for example, us-east-1a).+dazFilters :: Lens' DescribeAvailabilityZones [Filter]+dazFilters = lens _dazFilters (\s a -> s { _dazFilters = a }) . _List++-- | The names of one or more Availability Zones.+dazZoneNames :: Lens' DescribeAvailabilityZones [Text]+dazZoneNames = lens _dazZoneNames (\s a -> s { _dazZoneNames = a }) . _List++newtype DescribeAvailabilityZonesResponse = DescribeAvailabilityZonesResponse+    { _dazrAvailabilityZones :: List "item" AvailabilityZone+    } deriving (Eq, Show, Monoid, Semigroup)++instance GHC.Exts.IsList DescribeAvailabilityZonesResponse where+    type Item DescribeAvailabilityZonesResponse = AvailabilityZone++    fromList = DescribeAvailabilityZonesResponse . GHC.Exts.fromList+    toList   = GHC.Exts.toList . _dazrAvailabilityZones++-- | 'DescribeAvailabilityZonesResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'dazrAvailabilityZones' @::@ ['AvailabilityZone']+--+describeAvailabilityZonesResponse :: DescribeAvailabilityZonesResponse+describeAvailabilityZonesResponse = DescribeAvailabilityZonesResponse+    { _dazrAvailabilityZones = mempty+    }++-- | Information about one or more Availability Zones.+dazrAvailabilityZones :: Lens' DescribeAvailabilityZonesResponse [AvailabilityZone]+dazrAvailabilityZones =+    lens _dazrAvailabilityZones (\s a -> s { _dazrAvailabilityZones = a })+        . _List++instance ToPath DescribeAvailabilityZones where+    toPath = const "/"++instance ToQuery DescribeAvailabilityZones where+    toQuery DescribeAvailabilityZones{..} = mconcat+        [ "dryRun"   =? _dazDryRun+        , "Filter"   =? _dazFilters+        , "ZoneName" =? _dazZoneNames+        ]++instance ToHeaders DescribeAvailabilityZones++instance AWSRequest DescribeAvailabilityZones where+    type Sv DescribeAvailabilityZones = EC2+    type Rs DescribeAvailabilityZones = DescribeAvailabilityZonesResponse++    request  = post "DescribeAvailabilityZones"+    response = xmlResponse++instance FromXML DescribeAvailabilityZonesResponse where+    parseXML x = DescribeAvailabilityZonesResponse+        <$> x .@  "availabilityZoneInfo"
+ gen/Network/AWS/EC2/DescribeBundleTasks.hs view
@@ -0,0 +1,139 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.DescribeBundleTasks+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Describes one or more of your bundling tasks.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-DescribeBundleTasks.html>+module Network.AWS.EC2.DescribeBundleTasks+    (+    -- * Request+      DescribeBundleTasks+    -- ** Request constructor+    , describeBundleTasks+    -- ** Request lenses+    , dbtBundleIds+    , dbtDryRun+    , dbtFilters++    -- * Response+    , DescribeBundleTasksResponse+    -- ** Response constructor+    , describeBundleTasksResponse+    -- ** Response lenses+    , dbtrBundleTasks+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data DescribeBundleTasks = DescribeBundleTasks+    { _dbtBundleIds :: List "BundleId" Text+    , _dbtDryRun    :: Maybe Bool+    , _dbtFilters   :: List "Filter" Filter+    } deriving (Eq, Show)++-- | 'DescribeBundleTasks' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'dbtBundleIds' @::@ ['Text']+--+-- * 'dbtDryRun' @::@ 'Maybe' 'Bool'+--+-- * 'dbtFilters' @::@ ['Filter']+--+describeBundleTasks :: DescribeBundleTasks+describeBundleTasks = DescribeBundleTasks+    { _dbtDryRun    = Nothing+    , _dbtBundleIds = mempty+    , _dbtFilters   = mempty+    }++-- | One or more bundle task IDs. Default: Describes all your bundle tasks.+dbtBundleIds :: Lens' DescribeBundleTasks [Text]+dbtBundleIds = lens _dbtBundleIds (\s a -> s { _dbtBundleIds = a }) . _List++dbtDryRun :: Lens' DescribeBundleTasks (Maybe Bool)+dbtDryRun = lens _dbtDryRun (\s a -> s { _dbtDryRun = a })++-- | One or more filters. bundle-id - The ID of the bundle task. error-code -+-- If the task failed, the error code returned. error-message - If the task+-- failed, the error message returned. instance-id - The ID of the instance.+-- progress - The level of task completion, as a percentage (for example,+-- 20%). s3-bucket - The Amazon S3 bucket to store the AMI. s3-prefix - The+-- beginning of the AMI name. start-time - The time the task started (for+-- example, 2013-09-15T17:15:20.000Z). state - The state of the task+-- (pending | waiting-for-shutdown | bundling | storing | cancelling |+-- complete | failed). update-time - The time of the most recent update for+-- the task.+dbtFilters :: Lens' DescribeBundleTasks [Filter]+dbtFilters = lens _dbtFilters (\s a -> s { _dbtFilters = a }) . _List++newtype DescribeBundleTasksResponse = DescribeBundleTasksResponse+    { _dbtrBundleTasks :: List "item" BundleTask+    } deriving (Eq, Show, Monoid, Semigroup)++instance GHC.Exts.IsList DescribeBundleTasksResponse where+    type Item DescribeBundleTasksResponse = BundleTask++    fromList = DescribeBundleTasksResponse . GHC.Exts.fromList+    toList   = GHC.Exts.toList . _dbtrBundleTasks++-- | 'DescribeBundleTasksResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'dbtrBundleTasks' @::@ ['BundleTask']+--+describeBundleTasksResponse :: DescribeBundleTasksResponse+describeBundleTasksResponse = DescribeBundleTasksResponse+    { _dbtrBundleTasks = mempty+    }++-- | Information about one or more bundle tasks.+dbtrBundleTasks :: Lens' DescribeBundleTasksResponse [BundleTask]+dbtrBundleTasks = lens _dbtrBundleTasks (\s a -> s { _dbtrBundleTasks = a }) . _List++instance ToPath DescribeBundleTasks where+    toPath = const "/"++instance ToQuery DescribeBundleTasks where+    toQuery DescribeBundleTasks{..} = mconcat+        [ "BundleId" =? _dbtBundleIds+        , "dryRun"   =? _dbtDryRun+        , "Filter"   =? _dbtFilters+        ]++instance ToHeaders DescribeBundleTasks++instance AWSRequest DescribeBundleTasks where+    type Sv DescribeBundleTasks = EC2+    type Rs DescribeBundleTasks = DescribeBundleTasksResponse++    request  = post "DescribeBundleTasks"+    response = xmlResponse++instance FromXML DescribeBundleTasksResponse where+    parseXML x = DescribeBundleTasksResponse+        <$> x .@  "bundleInstanceTasksSet"
+ gen/Network/AWS/EC2/DescribeConversionTasks.hs view
@@ -0,0 +1,134 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.DescribeConversionTasks+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Describes one or more of your conversion tasks. For more information, see+-- Using the Command Line Tools to Import Your Virtual Machine to Amazon EC2+-- in the Amazon Elastic Compute Cloud User Guide.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-DescribeConversionTasks.html>+module Network.AWS.EC2.DescribeConversionTasks+    (+    -- * Request+      DescribeConversionTasks+    -- ** Request constructor+    , describeConversionTasks+    -- ** Request lenses+    , dctConversionTaskIds+    , dctDryRun+    , dctFilters++    -- * Response+    , DescribeConversionTasksResponse+    -- ** Response constructor+    , describeConversionTasksResponse+    -- ** Response lenses+    , dctrConversionTasks+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data DescribeConversionTasks = DescribeConversionTasks+    { _dctConversionTaskIds :: List "item" Text+    , _dctDryRun            :: Maybe Bool+    , _dctFilters           :: List "Filter" Filter+    } deriving (Eq, Show)++-- | 'DescribeConversionTasks' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'dctConversionTaskIds' @::@ ['Text']+--+-- * 'dctDryRun' @::@ 'Maybe' 'Bool'+--+-- * 'dctFilters' @::@ ['Filter']+--+describeConversionTasks :: DescribeConversionTasks+describeConversionTasks = DescribeConversionTasks+    { _dctDryRun            = Nothing+    , _dctFilters           = mempty+    , _dctConversionTaskIds = mempty+    }++-- | One or more conversion task IDs.+dctConversionTaskIds :: Lens' DescribeConversionTasks [Text]+dctConversionTaskIds =+    lens _dctConversionTaskIds (\s a -> s { _dctConversionTaskIds = a })+        . _List++dctDryRun :: Lens' DescribeConversionTasks (Maybe Bool)+dctDryRun = lens _dctDryRun (\s a -> s { _dctDryRun = a })++dctFilters :: Lens' DescribeConversionTasks [Filter]+dctFilters = lens _dctFilters (\s a -> s { _dctFilters = a }) . _List++newtype DescribeConversionTasksResponse = DescribeConversionTasksResponse+    { _dctrConversionTasks :: List "item" ConversionTask+    } deriving (Eq, Show, Monoid, Semigroup)++instance GHC.Exts.IsList DescribeConversionTasksResponse where+    type Item DescribeConversionTasksResponse = ConversionTask++    fromList = DescribeConversionTasksResponse . GHC.Exts.fromList+    toList   = GHC.Exts.toList . _dctrConversionTasks++-- | 'DescribeConversionTasksResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'dctrConversionTasks' @::@ ['ConversionTask']+--+describeConversionTasksResponse :: DescribeConversionTasksResponse+describeConversionTasksResponse = DescribeConversionTasksResponse+    { _dctrConversionTasks = mempty+    }++dctrConversionTasks :: Lens' DescribeConversionTasksResponse [ConversionTask]+dctrConversionTasks =+    lens _dctrConversionTasks (\s a -> s { _dctrConversionTasks = a })+        . _List++instance ToPath DescribeConversionTasks where+    toPath = const "/"++instance ToQuery DescribeConversionTasks where+    toQuery DescribeConversionTasks{..} = mconcat+        [ "conversionTaskId" =? _dctConversionTaskIds+        , "dryRun"           =? _dctDryRun+        , "filter"           =? _dctFilters+        ]++instance ToHeaders DescribeConversionTasks++instance AWSRequest DescribeConversionTasks where+    type Sv DescribeConversionTasks = EC2+    type Rs DescribeConversionTasks = DescribeConversionTasksResponse++    request  = post "DescribeConversionTasks"+    response = xmlResponse++instance FromXML DescribeConversionTasksResponse where+    parseXML x = DescribeConversionTasksResponse+        <$> x .@  "conversionTasks"
+ gen/Network/AWS/EC2/DescribeCustomerGateways.hs view
@@ -0,0 +1,151 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.DescribeCustomerGateways+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Describes one or more of your VPN customer gateways. For more information+-- about VPN customer gateways, see Adding a Hardware Virtual Private Gateway+-- to Your VPC in the Amazon Virtual Private Cloud User Guide.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-DescribeCustomerGateways.html>+module Network.AWS.EC2.DescribeCustomerGateways+    (+    -- * Request+      DescribeCustomerGateways+    -- ** Request constructor+    , describeCustomerGateways+    -- ** Request lenses+    , dcgCustomerGatewayIds+    , dcgDryRun+    , dcgFilters++    -- * Response+    , DescribeCustomerGatewaysResponse+    -- ** Response constructor+    , describeCustomerGatewaysResponse+    -- ** Response lenses+    , dcgrCustomerGateways+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data DescribeCustomerGateways = DescribeCustomerGateways+    { _dcgCustomerGatewayIds :: List "CustomerGatewayId" Text+    , _dcgDryRun             :: Maybe Bool+    , _dcgFilters            :: List "Filter" Filter+    } deriving (Eq, Show)++-- | 'DescribeCustomerGateways' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'dcgCustomerGatewayIds' @::@ ['Text']+--+-- * 'dcgDryRun' @::@ 'Maybe' 'Bool'+--+-- * 'dcgFilters' @::@ ['Filter']+--+describeCustomerGateways :: DescribeCustomerGateways+describeCustomerGateways = DescribeCustomerGateways+    { _dcgDryRun             = Nothing+    , _dcgCustomerGatewayIds = mempty+    , _dcgFilters            = mempty+    }++-- | One or more customer gateway IDs. Default: Describes all your customer+-- gateways.+dcgCustomerGatewayIds :: Lens' DescribeCustomerGateways [Text]+dcgCustomerGatewayIds =+    lens _dcgCustomerGatewayIds (\s a -> s { _dcgCustomerGatewayIds = a })+        . _List++dcgDryRun :: Lens' DescribeCustomerGateways (Maybe Bool)+dcgDryRun = lens _dcgDryRun (\s a -> s { _dcgDryRun = a })++-- | One or more filters. bgp-asn - The customer gateway's Border Gateway+-- Protocol (BGP) Autonomous System Number (ASN). customer-gateway-id - The+-- ID of the customer gateway. ip-address - The IP address of the customer+-- gateway's Internet-routable external interface. state - The state of the+-- customer gateway (pending | available | deleting | deleted). type - The+-- type of customer gateway. Currently, the only supported type is ipsec.1.+-- tag:key=value - The key/value combination of a tag assigned to the+-- resource. tag-key - The key of a tag assigned to the resource. This+-- filter is independent of the tag-value filter. For example, if you use+-- both the filter "tag-key=Purpose" and the filter "tag-value=X", you get+-- any resources assigned both the tag key Purpose (regardless of what the+-- tag's value is), and the tag value X (regardless of what the tag's key+-- is). If you want to list only resources where Purpose is X, see the+-- tag:key=value filter. tag-value - The value of a tag assigned to the+-- resource. This filter is independent of the tag-key filter.+dcgFilters :: Lens' DescribeCustomerGateways [Filter]+dcgFilters = lens _dcgFilters (\s a -> s { _dcgFilters = a }) . _List++newtype DescribeCustomerGatewaysResponse = DescribeCustomerGatewaysResponse+    { _dcgrCustomerGateways :: List "item" CustomerGateway+    } deriving (Eq, Show, Monoid, Semigroup)++instance GHC.Exts.IsList DescribeCustomerGatewaysResponse where+    type Item DescribeCustomerGatewaysResponse = CustomerGateway++    fromList = DescribeCustomerGatewaysResponse . GHC.Exts.fromList+    toList   = GHC.Exts.toList . _dcgrCustomerGateways++-- | 'DescribeCustomerGatewaysResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'dcgrCustomerGateways' @::@ ['CustomerGateway']+--+describeCustomerGatewaysResponse :: DescribeCustomerGatewaysResponse+describeCustomerGatewaysResponse = DescribeCustomerGatewaysResponse+    { _dcgrCustomerGateways = mempty+    }++-- | Information about one or more customer gateways.+dcgrCustomerGateways :: Lens' DescribeCustomerGatewaysResponse [CustomerGateway]+dcgrCustomerGateways =+    lens _dcgrCustomerGateways (\s a -> s { _dcgrCustomerGateways = a })+        . _List++instance ToPath DescribeCustomerGateways where+    toPath = const "/"++instance ToQuery DescribeCustomerGateways where+    toQuery DescribeCustomerGateways{..} = mconcat+        [ "CustomerGatewayId" =? _dcgCustomerGatewayIds+        , "dryRun"            =? _dcgDryRun+        , "Filter"            =? _dcgFilters+        ]++instance ToHeaders DescribeCustomerGateways++instance AWSRequest DescribeCustomerGateways where+    type Sv DescribeCustomerGateways = EC2+    type Rs DescribeCustomerGateways = DescribeCustomerGatewaysResponse++    request  = post "DescribeCustomerGateways"+    response = xmlResponse++instance FromXML DescribeCustomerGatewaysResponse where+    parseXML x = DescribeCustomerGatewaysResponse+        <$> x .@  "customerGatewaySet"
+ gen/Network/AWS/EC2/DescribeDhcpOptions.hs view
@@ -0,0 +1,146 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.DescribeDhcpOptions+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Describes one or more of your DHCP options sets. For more information about+-- DHCP options sets, see DHCP Options Sets in the Amazon Virtual Private+-- Cloud User Guide.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-DescribeDhcpOptions.html>+module Network.AWS.EC2.DescribeDhcpOptions+    (+    -- * Request+      DescribeDhcpOptions+    -- ** Request constructor+    , describeDhcpOptions+    -- ** Request lenses+    , ddoDhcpOptionsIds+    , ddoDryRun+    , ddoFilters++    -- * Response+    , DescribeDhcpOptionsResponse+    -- ** Response constructor+    , describeDhcpOptionsResponse+    -- ** Response lenses+    , ddorDhcpOptions+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data DescribeDhcpOptions = DescribeDhcpOptions+    { _ddoDhcpOptionsIds :: List "DhcpOptionsId" Text+    , _ddoDryRun         :: Maybe Bool+    , _ddoFilters        :: List "Filter" Filter+    } deriving (Eq, Show)++-- | 'DescribeDhcpOptions' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'ddoDhcpOptionsIds' @::@ ['Text']+--+-- * 'ddoDryRun' @::@ 'Maybe' 'Bool'+--+-- * 'ddoFilters' @::@ ['Filter']+--+describeDhcpOptions :: DescribeDhcpOptions+describeDhcpOptions = DescribeDhcpOptions+    { _ddoDryRun         = Nothing+    , _ddoDhcpOptionsIds = mempty+    , _ddoFilters        = mempty+    }++-- | The IDs of one or more DHCP options sets. Default: Describes all your+-- DHCP options sets.+ddoDhcpOptionsIds :: Lens' DescribeDhcpOptions [Text]+ddoDhcpOptionsIds =+    lens _ddoDhcpOptionsIds (\s a -> s { _ddoDhcpOptionsIds = a })+        . _List++ddoDryRun :: Lens' DescribeDhcpOptions (Maybe Bool)+ddoDryRun = lens _ddoDryRun (\s a -> s { _ddoDryRun = a })++-- | One or more filters. dhcp-options-id - The ID of a set of DHCP options.+-- key - The key for one of the options (for example, domain-name). value -+-- The value for one of the options. tag:key=value - The key/value+-- combination of a tag assigned to the resource. tag-key - The key of a tag+-- assigned to the resource. This filter is independent of the tag-value+-- filter. For example, if you use both the filter "tag-key=Purpose" and the+-- filter "tag-value=X", you get any resources assigned both the tag key+-- Purpose (regardless of what the tag's value is), and the tag value X+-- (regardless of what the tag's key is). If you want to list only resources+-- where Purpose is X, see the tag:key=value filter. tag-value - The value+-- of a tag assigned to the resource. This filter is independent of the+-- tag-key filter.+ddoFilters :: Lens' DescribeDhcpOptions [Filter]+ddoFilters = lens _ddoFilters (\s a -> s { _ddoFilters = a }) . _List++newtype DescribeDhcpOptionsResponse = DescribeDhcpOptionsResponse+    { _ddorDhcpOptions :: List "item" DhcpOptions+    } deriving (Eq, Show, Monoid, Semigroup)++instance GHC.Exts.IsList DescribeDhcpOptionsResponse where+    type Item DescribeDhcpOptionsResponse = DhcpOptions++    fromList = DescribeDhcpOptionsResponse . GHC.Exts.fromList+    toList   = GHC.Exts.toList . _ddorDhcpOptions++-- | 'DescribeDhcpOptionsResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'ddorDhcpOptions' @::@ ['DhcpOptions']+--+describeDhcpOptionsResponse :: DescribeDhcpOptionsResponse+describeDhcpOptionsResponse = DescribeDhcpOptionsResponse+    { _ddorDhcpOptions = mempty+    }++-- | Information about one or more DHCP options sets.+ddorDhcpOptions :: Lens' DescribeDhcpOptionsResponse [DhcpOptions]+ddorDhcpOptions = lens _ddorDhcpOptions (\s a -> s { _ddorDhcpOptions = a }) . _List++instance ToPath DescribeDhcpOptions where+    toPath = const "/"++instance ToQuery DescribeDhcpOptions where+    toQuery DescribeDhcpOptions{..} = mconcat+        [ "DhcpOptionsId" =? _ddoDhcpOptionsIds+        , "dryRun"        =? _ddoDryRun+        , "Filter"        =? _ddoFilters+        ]++instance ToHeaders DescribeDhcpOptions++instance AWSRequest DescribeDhcpOptions where+    type Sv DescribeDhcpOptions = EC2+    type Rs DescribeDhcpOptions = DescribeDhcpOptionsResponse++    request  = post "DescribeDhcpOptions"+    response = xmlResponse++instance FromXML DescribeDhcpOptionsResponse where+    parseXML x = DescribeDhcpOptionsResponse+        <$> x .@  "dhcpOptionsSet"
+ gen/Network/AWS/EC2/DescribeExportTasks.hs view
@@ -0,0 +1,116 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.DescribeExportTasks+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Describes one or more of your export tasks.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-DescribeExportTasks.html>+module Network.AWS.EC2.DescribeExportTasks+    (+    -- * Request+      DescribeExportTasks+    -- ** Request constructor+    , describeExportTasks+    -- ** Request lenses+    , detExportTaskIds++    -- * Response+    , DescribeExportTasksResponse+    -- ** Response constructor+    , describeExportTasksResponse+    -- ** Response lenses+    , detrExportTasks+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++newtype DescribeExportTasks = DescribeExportTasks+    { _detExportTaskIds :: List "ExportTaskId" Text+    } deriving (Eq, Ord, Show, Monoid, Semigroup)++instance GHC.Exts.IsList DescribeExportTasks where+    type Item DescribeExportTasks = Text++    fromList = DescribeExportTasks . GHC.Exts.fromList+    toList   = GHC.Exts.toList . _detExportTaskIds++-- | 'DescribeExportTasks' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'detExportTaskIds' @::@ ['Text']+--+describeExportTasks :: DescribeExportTasks+describeExportTasks = DescribeExportTasks+    { _detExportTaskIds = mempty+    }++-- | One or more export task IDs.+detExportTaskIds :: Lens' DescribeExportTasks [Text]+detExportTaskIds = lens _detExportTaskIds (\s a -> s { _detExportTaskIds = a }) . _List++newtype DescribeExportTasksResponse = DescribeExportTasksResponse+    { _detrExportTasks :: List "item" ExportTask+    } deriving (Eq, Show, Monoid, Semigroup)++instance GHC.Exts.IsList DescribeExportTasksResponse where+    type Item DescribeExportTasksResponse = ExportTask++    fromList = DescribeExportTasksResponse . GHC.Exts.fromList+    toList   = GHC.Exts.toList . _detrExportTasks++-- | 'DescribeExportTasksResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'detrExportTasks' @::@ ['ExportTask']+--+describeExportTasksResponse :: DescribeExportTasksResponse+describeExportTasksResponse = DescribeExportTasksResponse+    { _detrExportTasks = mempty+    }++detrExportTasks :: Lens' DescribeExportTasksResponse [ExportTask]+detrExportTasks = lens _detrExportTasks (\s a -> s { _detrExportTasks = a }) . _List++instance ToPath DescribeExportTasks where+    toPath = const "/"++instance ToQuery DescribeExportTasks where+    toQuery DescribeExportTasks{..} = mconcat+        [ "exportTaskId" =? _detExportTaskIds+        ]++instance ToHeaders DescribeExportTasks++instance AWSRequest DescribeExportTasks where+    type Sv DescribeExportTasks = EC2+    type Rs DescribeExportTasks = DescribeExportTasksResponse++    request  = post "DescribeExportTasks"+    response = xmlResponse++instance FromXML DescribeExportTasksResponse where+    parseXML x = DescribeExportTasksResponse+        <$> x .@  "exportTaskSet"
+ gen/Network/AWS/EC2/DescribeImageAttribute.hs view
@@ -0,0 +1,201 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.DescribeImageAttribute+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Describes the specified attribute of the specified AMI. You can specify+-- only one attribute at a time.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-DescribeImageAttribute.html>+module Network.AWS.EC2.DescribeImageAttribute+    (+    -- * Request+      DescribeImageAttribute+    -- ** Request constructor+    , describeImageAttribute+    -- ** Request lenses+    , dia1Attribute+    , dia1DryRun+    , dia1ImageId++    -- * Response+    , DescribeImageAttributeResponse+    -- ** Response constructor+    , describeImageAttributeResponse+    -- ** Response lenses+    , diarBlockDeviceMappings+    , diarDescription+    , diarImageId+    , diarKernelId+    , diarLaunchPermissions+    , diarProductCodes+    , diarRamdiskId+    , diarSriovNetSupport+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data DescribeImageAttribute = DescribeImageAttribute+    { _dia1Attribute :: Text+    , _dia1DryRun    :: Maybe Bool+    , _dia1ImageId   :: Text+    } deriving (Eq, Ord, Show)++-- | 'DescribeImageAttribute' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'dia1Attribute' @::@ 'Text'+--+-- * 'dia1DryRun' @::@ 'Maybe' 'Bool'+--+-- * 'dia1ImageId' @::@ 'Text'+--+describeImageAttribute :: Text -- ^ 'dia1ImageId'+                       -> Text -- ^ 'dia1Attribute'+                       -> DescribeImageAttribute+describeImageAttribute p1 p2 = DescribeImageAttribute+    { _dia1ImageId   = p1+    , _dia1Attribute = p2+    , _dia1DryRun    = Nothing+    }++-- | The AMI attribute.+dia1Attribute :: Lens' DescribeImageAttribute Text+dia1Attribute = lens _dia1Attribute (\s a -> s { _dia1Attribute = a })++dia1DryRun :: Lens' DescribeImageAttribute (Maybe Bool)+dia1DryRun = lens _dia1DryRun (\s a -> s { _dia1DryRun = a })++-- | The ID of the AMI.+dia1ImageId :: Lens' DescribeImageAttribute Text+dia1ImageId = lens _dia1ImageId (\s a -> s { _dia1ImageId = a })++data DescribeImageAttributeResponse = DescribeImageAttributeResponse+    { _diarBlockDeviceMappings :: List "item" BlockDeviceMapping+    , _diarDescription         :: Maybe AttributeValue+    , _diarImageId             :: Maybe Text+    , _diarKernelId            :: Maybe AttributeValue+    , _diarLaunchPermissions   :: List "item" LaunchPermission+    , _diarProductCodes        :: List "item" ProductCode+    , _diarRamdiskId           :: Maybe AttributeValue+    , _diarSriovNetSupport     :: Maybe AttributeValue+    } deriving (Eq, Show)++-- | 'DescribeImageAttributeResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'diarBlockDeviceMappings' @::@ ['BlockDeviceMapping']+--+-- * 'diarDescription' @::@ 'Maybe' 'AttributeValue'+--+-- * 'diarImageId' @::@ 'Maybe' 'Text'+--+-- * 'diarKernelId' @::@ 'Maybe' 'AttributeValue'+--+-- * 'diarLaunchPermissions' @::@ ['LaunchPermission']+--+-- * 'diarProductCodes' @::@ ['ProductCode']+--+-- * 'diarRamdiskId' @::@ 'Maybe' 'AttributeValue'+--+-- * 'diarSriovNetSupport' @::@ 'Maybe' 'AttributeValue'+--+describeImageAttributeResponse :: DescribeImageAttributeResponse+describeImageAttributeResponse = DescribeImageAttributeResponse+    { _diarImageId             = Nothing+    , _diarLaunchPermissions   = mempty+    , _diarProductCodes        = mempty+    , _diarKernelId            = Nothing+    , _diarRamdiskId           = Nothing+    , _diarDescription         = Nothing+    , _diarSriovNetSupport     = Nothing+    , _diarBlockDeviceMappings = mempty+    }++-- | One or more block device mapping entries.+diarBlockDeviceMappings :: Lens' DescribeImageAttributeResponse [BlockDeviceMapping]+diarBlockDeviceMappings =+    lens _diarBlockDeviceMappings (\s a -> s { _diarBlockDeviceMappings = a })+        . _List++-- | A description for the AMI.+diarDescription :: Lens' DescribeImageAttributeResponse (Maybe AttributeValue)+diarDescription = lens _diarDescription (\s a -> s { _diarDescription = a })++-- | The ID of the AMI.+diarImageId :: Lens' DescribeImageAttributeResponse (Maybe Text)+diarImageId = lens _diarImageId (\s a -> s { _diarImageId = a })++-- | The kernel ID.+diarKernelId :: Lens' DescribeImageAttributeResponse (Maybe AttributeValue)+diarKernelId = lens _diarKernelId (\s a -> s { _diarKernelId = a })++-- | One or more launch permissions.+diarLaunchPermissions :: Lens' DescribeImageAttributeResponse [LaunchPermission]+diarLaunchPermissions =+    lens _diarLaunchPermissions (\s a -> s { _diarLaunchPermissions = a })+        . _List++-- | One or more product codes.+diarProductCodes :: Lens' DescribeImageAttributeResponse [ProductCode]+diarProductCodes = lens _diarProductCodes (\s a -> s { _diarProductCodes = a }) . _List++-- | The RAM disk ID.+diarRamdiskId :: Lens' DescribeImageAttributeResponse (Maybe AttributeValue)+diarRamdiskId = lens _diarRamdiskId (\s a -> s { _diarRamdiskId = a })++diarSriovNetSupport :: Lens' DescribeImageAttributeResponse (Maybe AttributeValue)+diarSriovNetSupport =+    lens _diarSriovNetSupport (\s a -> s { _diarSriovNetSupport = a })++instance ToPath DescribeImageAttribute where+    toPath = const "/"++instance ToQuery DescribeImageAttribute where+    toQuery DescribeImageAttribute{..} = mconcat+        [ "Attribute" =? _dia1Attribute+        , "dryRun"    =? _dia1DryRun+        , "ImageId"   =? _dia1ImageId+        ]++instance ToHeaders DescribeImageAttribute++instance AWSRequest DescribeImageAttribute where+    type Sv DescribeImageAttribute = EC2+    type Rs DescribeImageAttribute = DescribeImageAttributeResponse++    request  = post "DescribeImageAttribute"+    response = xmlResponse++instance FromXML DescribeImageAttributeResponse where+    parseXML x = DescribeImageAttributeResponse+        <$> x .@  "blockDeviceMapping"+        <*> x .@? "description"+        <*> x .@? "imageId"+        <*> x .@? "kernel"+        <*> x .@  "launchPermission"+        <*> x .@  "productCodes"+        <*> x .@? "ramdisk"+        <*> x .@? "sriovNetSupport"
+ gen/Network/AWS/EC2/DescribeImages.hs view
@@ -0,0 +1,191 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.DescribeImages+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Describes one or more of the images (AMIs, AKIs, and ARIs) available to+-- you. Images available to you include public images, private images that you+-- own, and private images owned by other AWS accounts but for which you have+-- explicit launch permissions.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-DescribeImages.html>+module Network.AWS.EC2.DescribeImages+    (+    -- * Request+      DescribeImages+    -- ** Request constructor+    , describeImages+    -- ** Request lenses+    , di2DryRun+    , di2ExecutableUsers+    , di2Filters+    , di2ImageIds+    , di2Owners++    -- * Response+    , DescribeImagesResponse+    -- ** Response constructor+    , describeImagesResponse+    -- ** Response lenses+    , dirImages+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data DescribeImages = DescribeImages+    { _di2DryRun          :: Maybe Bool+    , _di2ExecutableUsers :: List "ExecutableBy" Text+    , _di2Filters         :: List "Filter" Filter+    , _di2ImageIds        :: List "ImageId" Text+    , _di2Owners          :: List "Owner" Text+    } deriving (Eq, Show)++-- | 'DescribeImages' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'di2DryRun' @::@ 'Maybe' 'Bool'+--+-- * 'di2ExecutableUsers' @::@ ['Text']+--+-- * 'di2Filters' @::@ ['Filter']+--+-- * 'di2ImageIds' @::@ ['Text']+--+-- * 'di2Owners' @::@ ['Text']+--+describeImages :: DescribeImages+describeImages = DescribeImages+    { _di2DryRun          = Nothing+    , _di2ImageIds        = mempty+    , _di2Owners          = mempty+    , _di2ExecutableUsers = mempty+    , _di2Filters         = mempty+    }++di2DryRun :: Lens' DescribeImages (Maybe Bool)+di2DryRun = lens _di2DryRun (\s a -> s { _di2DryRun = a })++-- | Scopes the images by users with explicit launch permissions. Specify an+-- AWS account ID, self (the sender of the request), or all (public AMIs).+di2ExecutableUsers :: Lens' DescribeImages [Text]+di2ExecutableUsers =+    lens _di2ExecutableUsers (\s a -> s { _di2ExecutableUsers = a })+        . _List++-- | One or more filters. architecture - The image architecture (i386 |+-- x86_64). block-device-mapping.delete-on-termination - A Boolean value+-- that indicates whether the Amazon EBS volume is deleted on instance+-- termination. block-device-mapping.device-name - The device name for the+-- Amazon EBS volume (for example, /dev/sdh).+-- block-device-mapping.snapshot-id - The ID of the snapshot used for the+-- Amazon EBS volume. block-device-mapping.volume-size - The volume size of+-- the Amazon EBS volume, in GiB. block-device-mapping.volume-type - The+-- volume type of the Amazon EBS volume (gp2 | standard | io1). description+-- - The description of the image (provided during image creation).+-- hypervisor - The hypervisor type (ovm | xen). image-id - The ID of the+-- image. image-type - The image type (machine | kernel | ramdisk).+-- is-public - A Boolean that indicates whether the image is public.+-- kernel-id - The kernel ID. manifest-location - The location of the image+-- manifest. name - The name of the AMI (provided during image creation).+-- owner-alias - The AWS account alias (for example, amazon). owner-id - The+-- AWS account ID of the image owner. platform - The platform. To only list+-- Windows-based AMIs, use windows. product-code - The product code.+-- product-code.type - The type of the product code (devpay | marketplace).+-- ramdisk-id - The RAM disk ID. root-device-name - The name of the root+-- device volume (for example, /dev/sda1). root-device-type - The type of+-- the root device volume (ebs | instance-store). state - The state of the+-- image (available | pending | failed). state-reason-code - The reason code+-- for the state change. state-reason-message - The message for the state+-- change. tag:key=value - The key/value combination of a tag assigned to+-- the resource. tag-key - The key of a tag assigned to the resource. This+-- filter is independent of the tag-value filter. For example, if you use+-- both the filter "tag-key=Purpose" and the filter "tag-value=X", you get+-- any resources assigned both the tag key Purpose (regardless of what the+-- tag's value is), and the tag value X (regardless of what the tag's key+-- is). If you want to list only resources where Purpose is X, see the+-- tag:key=value filter. tag-value - The value of a tag assigned to the+-- resource. This filter is independent of the tag-key filter.+-- virtualization-type - The virtualization type (paravirtual | hvm).+di2Filters :: Lens' DescribeImages [Filter]+di2Filters = lens _di2Filters (\s a -> s { _di2Filters = a }) . _List++-- | One or more image IDs. Default: Describes all images available to you.+di2ImageIds :: Lens' DescribeImages [Text]+di2ImageIds = lens _di2ImageIds (\s a -> s { _di2ImageIds = a }) . _List++-- | Filters the images by the owner. Specify an AWS account ID, amazon (owner+-- is Amazon), aws-marketplace (owner is AWS Marketplace), self (owner is+-- the sender of the request), or all (all owners).+di2Owners :: Lens' DescribeImages [Text]+di2Owners = lens _di2Owners (\s a -> s { _di2Owners = a }) . _List++newtype DescribeImagesResponse = DescribeImagesResponse+    { _dirImages :: List "item" Image+    } deriving (Eq, Show, Monoid, Semigroup)++instance GHC.Exts.IsList DescribeImagesResponse where+    type Item DescribeImagesResponse = Image++    fromList = DescribeImagesResponse . GHC.Exts.fromList+    toList   = GHC.Exts.toList . _dirImages++-- | 'DescribeImagesResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'dirImages' @::@ ['Image']+--+describeImagesResponse :: DescribeImagesResponse+describeImagesResponse = DescribeImagesResponse+    { _dirImages = mempty+    }++-- | Information about one or more images.+dirImages :: Lens' DescribeImagesResponse [Image]+dirImages = lens _dirImages (\s a -> s { _dirImages = a }) . _List++instance ToPath DescribeImages where+    toPath = const "/"++instance ToQuery DescribeImages where+    toQuery DescribeImages{..} = mconcat+        [ "dryRun"       =? _di2DryRun+        , "ExecutableBy" =? _di2ExecutableUsers+        , "Filter"       =? _di2Filters+        , "ImageId"      =? _di2ImageIds+        , "Owner"        =? _di2Owners+        ]++instance ToHeaders DescribeImages++instance AWSRequest DescribeImages where+    type Sv DescribeImages = EC2+    type Rs DescribeImages = DescribeImagesResponse++    request  = post "DescribeImages"+    response = xmlResponse++instance FromXML DescribeImagesResponse where+    parseXML x = DescribeImagesResponse+        <$> x .@  "imagesSet"
+ gen/Network/AWS/EC2/DescribeInstanceAttribute.hs view
@@ -0,0 +1,278 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.DescribeInstanceAttribute+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Describes the specified attribute of the specified instance. You can+-- specify only one attribute at a time. Valid attribute values are:+-- instanceType | kernel | ramdisk | userData | disableApiTermination |+-- instanceInitiatedShutdownBehavior | rootDeviceName | blockDeviceMapping |+-- productCodes | sourceDestCheck | groupSet | ebsOptimized | sriovNetSupport.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-DescribeInstanceAttribute.html>+module Network.AWS.EC2.DescribeInstanceAttribute+    (+    -- * Request+      DescribeInstanceAttribute+    -- ** Request constructor+    , describeInstanceAttribute+    -- ** Request lenses+    , diaAttribute+    , diaDryRun+    , diaInstanceId++    -- * Response+    , DescribeInstanceAttributeResponse+    -- ** Response constructor+    , describeInstanceAttributeResponse+    -- ** Response lenses+    , diar1BlockDeviceMappings+    , diar1DisableApiTermination+    , diar1EbsOptimized+    , diar1Groups+    , diar1InstanceId+    , diar1InstanceInitiatedShutdownBehavior+    , diar1InstanceType+    , diar1KernelId+    , diar1ProductCodes+    , diar1RamdiskId+    , diar1RootDeviceName+    , diar1SourceDestCheck+    , diar1SriovNetSupport+    , diar1UserData+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data DescribeInstanceAttribute = DescribeInstanceAttribute+    { _diaAttribute  :: Text+    , _diaDryRun     :: Maybe Bool+    , _diaInstanceId :: Text+    } deriving (Eq, Ord, Show)++-- | 'DescribeInstanceAttribute' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'diaAttribute' @::@ 'Text'+--+-- * 'diaDryRun' @::@ 'Maybe' 'Bool'+--+-- * 'diaInstanceId' @::@ 'Text'+--+describeInstanceAttribute :: Text -- ^ 'diaInstanceId'+                          -> Text -- ^ 'diaAttribute'+                          -> DescribeInstanceAttribute+describeInstanceAttribute p1 p2 = DescribeInstanceAttribute+    { _diaInstanceId = p1+    , _diaAttribute  = p2+    , _diaDryRun     = Nothing+    }++-- | The instance attribute.+diaAttribute :: Lens' DescribeInstanceAttribute Text+diaAttribute = lens _diaAttribute (\s a -> s { _diaAttribute = a })++diaDryRun :: Lens' DescribeInstanceAttribute (Maybe Bool)+diaDryRun = lens _diaDryRun (\s a -> s { _diaDryRun = a })++-- | The ID of the instance.+diaInstanceId :: Lens' DescribeInstanceAttribute Text+diaInstanceId = lens _diaInstanceId (\s a -> s { _diaInstanceId = a })++data DescribeInstanceAttributeResponse = DescribeInstanceAttributeResponse+    { _diar1BlockDeviceMappings               :: List "item" InstanceBlockDeviceMapping+    , _diar1DisableApiTermination             :: Maybe AttributeBooleanValue+    , _diar1EbsOptimized                      :: Maybe AttributeBooleanValue+    , _diar1Groups                            :: List "item" GroupIdentifier+    , _diar1InstanceId                        :: Maybe Text+    , _diar1InstanceInitiatedShutdownBehavior :: Maybe AttributeValue+    , _diar1InstanceType                      :: Maybe AttributeValue+    , _diar1KernelId                          :: Maybe AttributeValue+    , _diar1ProductCodes                      :: List "item" ProductCode+    , _diar1RamdiskId                         :: Maybe AttributeValue+    , _diar1RootDeviceName                    :: Maybe AttributeValue+    , _diar1SourceDestCheck                   :: Maybe AttributeBooleanValue+    , _diar1SriovNetSupport                   :: Maybe AttributeValue+    , _diar1UserData                          :: Maybe AttributeValue+    } deriving (Eq, Show)++-- | 'DescribeInstanceAttributeResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'diar1BlockDeviceMappings' @::@ ['InstanceBlockDeviceMapping']+--+-- * 'diar1DisableApiTermination' @::@ 'Maybe' 'AttributeBooleanValue'+--+-- * 'diar1EbsOptimized' @::@ 'Maybe' 'AttributeBooleanValue'+--+-- * 'diar1Groups' @::@ ['GroupIdentifier']+--+-- * 'diar1InstanceId' @::@ 'Maybe' 'Text'+--+-- * 'diar1InstanceInitiatedShutdownBehavior' @::@ 'Maybe' 'AttributeValue'+--+-- * 'diar1InstanceType' @::@ 'Maybe' 'AttributeValue'+--+-- * 'diar1KernelId' @::@ 'Maybe' 'AttributeValue'+--+-- * 'diar1ProductCodes' @::@ ['ProductCode']+--+-- * 'diar1RamdiskId' @::@ 'Maybe' 'AttributeValue'+--+-- * 'diar1RootDeviceName' @::@ 'Maybe' 'AttributeValue'+--+-- * 'diar1SourceDestCheck' @::@ 'Maybe' 'AttributeBooleanValue'+--+-- * 'diar1SriovNetSupport' @::@ 'Maybe' 'AttributeValue'+--+-- * 'diar1UserData' @::@ 'Maybe' 'AttributeValue'+--+describeInstanceAttributeResponse :: DescribeInstanceAttributeResponse+describeInstanceAttributeResponse = DescribeInstanceAttributeResponse+    { _diar1InstanceId                        = Nothing+    , _diar1InstanceType                      = Nothing+    , _diar1KernelId                          = Nothing+    , _diar1RamdiskId                         = Nothing+    , _diar1UserData                          = Nothing+    , _diar1DisableApiTermination             = Nothing+    , _diar1InstanceInitiatedShutdownBehavior = Nothing+    , _diar1RootDeviceName                    = Nothing+    , _diar1BlockDeviceMappings               = mempty+    , _diar1ProductCodes                      = mempty+    , _diar1EbsOptimized                      = Nothing+    , _diar1SriovNetSupport                   = Nothing+    , _diar1SourceDestCheck                   = Nothing+    , _diar1Groups                            = mempty+    }++-- | The block device mapping of the instance.+diar1BlockDeviceMappings :: Lens' DescribeInstanceAttributeResponse [InstanceBlockDeviceMapping]+diar1BlockDeviceMappings =+    lens _diar1BlockDeviceMappings+        (\s a -> s { _diar1BlockDeviceMappings = a })+            . _List++-- | If the value is true, you can't terminate the instance through the Amazon+-- EC2 console, CLI, or API; otherwise, you can.+diar1DisableApiTermination :: Lens' DescribeInstanceAttributeResponse (Maybe AttributeBooleanValue)+diar1DisableApiTermination =+    lens _diar1DisableApiTermination+        (\s a -> s { _diar1DisableApiTermination = a })++-- | Indicates whether the instance is optimized for EBS I/O.+diar1EbsOptimized :: Lens' DescribeInstanceAttributeResponse (Maybe AttributeBooleanValue)+diar1EbsOptimized =+    lens _diar1EbsOptimized (\s a -> s { _diar1EbsOptimized = a })++-- | The security groups associated with the instance.+diar1Groups :: Lens' DescribeInstanceAttributeResponse [GroupIdentifier]+diar1Groups = lens _diar1Groups (\s a -> s { _diar1Groups = a }) . _List++-- | The ID of the instance.+diar1InstanceId :: Lens' DescribeInstanceAttributeResponse (Maybe Text)+diar1InstanceId = lens _diar1InstanceId (\s a -> s { _diar1InstanceId = a })++-- | Indicates whether an instance stops or terminates when you initiate+-- shutdown from the instance (using the operating system command for system+-- shutdown).+diar1InstanceInitiatedShutdownBehavior :: Lens' DescribeInstanceAttributeResponse (Maybe AttributeValue)+diar1InstanceInitiatedShutdownBehavior =+    lens _diar1InstanceInitiatedShutdownBehavior+        (\s a -> s { _diar1InstanceInitiatedShutdownBehavior = a })++-- | The instance type.+diar1InstanceType :: Lens' DescribeInstanceAttributeResponse (Maybe AttributeValue)+diar1InstanceType =+    lens _diar1InstanceType (\s a -> s { _diar1InstanceType = a })++-- | The kernel ID.+diar1KernelId :: Lens' DescribeInstanceAttributeResponse (Maybe AttributeValue)+diar1KernelId = lens _diar1KernelId (\s a -> s { _diar1KernelId = a })++-- | A list of product codes.+diar1ProductCodes :: Lens' DescribeInstanceAttributeResponse [ProductCode]+diar1ProductCodes =+    lens _diar1ProductCodes (\s a -> s { _diar1ProductCodes = a })+        . _List++-- | The RAM disk ID.+diar1RamdiskId :: Lens' DescribeInstanceAttributeResponse (Maybe AttributeValue)+diar1RamdiskId = lens _diar1RamdiskId (\s a -> s { _diar1RamdiskId = a })++-- | The name of the root device (for example, /dev/sda1).+diar1RootDeviceName :: Lens' DescribeInstanceAttributeResponse (Maybe AttributeValue)+diar1RootDeviceName =+    lens _diar1RootDeviceName (\s a -> s { _diar1RootDeviceName = a })++-- | Indicates whether source/destination checking is enabled. A value of true+-- means checking is enabled, and false means checking is disabled. This+-- value must be false for a NAT instance to perform NAT.+diar1SourceDestCheck :: Lens' DescribeInstanceAttributeResponse (Maybe AttributeBooleanValue)+diar1SourceDestCheck =+    lens _diar1SourceDestCheck (\s a -> s { _diar1SourceDestCheck = a })++diar1SriovNetSupport :: Lens' DescribeInstanceAttributeResponse (Maybe AttributeValue)+diar1SriovNetSupport =+    lens _diar1SriovNetSupport (\s a -> s { _diar1SriovNetSupport = a })++-- | The Base64-encoded MIME user data.+diar1UserData :: Lens' DescribeInstanceAttributeResponse (Maybe AttributeValue)+diar1UserData = lens _diar1UserData (\s a -> s { _diar1UserData = a })++instance ToPath DescribeInstanceAttribute where+    toPath = const "/"++instance ToQuery DescribeInstanceAttribute where+    toQuery DescribeInstanceAttribute{..} = mconcat+        [ "attribute"  =? _diaAttribute+        , "dryRun"     =? _diaDryRun+        , "instanceId" =? _diaInstanceId+        ]++instance ToHeaders DescribeInstanceAttribute++instance AWSRequest DescribeInstanceAttribute where+    type Sv DescribeInstanceAttribute = EC2+    type Rs DescribeInstanceAttribute = DescribeInstanceAttributeResponse++    request  = post "DescribeInstanceAttribute"+    response = xmlResponse++instance FromXML DescribeInstanceAttributeResponse where+    parseXML x = DescribeInstanceAttributeResponse+        <$> x .@  "blockDeviceMapping"+        <*> x .@? "disableApiTermination"+        <*> x .@? "ebsOptimized"+        <*> x .@  "groupSet"+        <*> x .@? "instanceId"+        <*> x .@? "instanceInitiatedShutdownBehavior"+        <*> x .@? "instanceType"+        <*> x .@? "kernel"+        <*> x .@  "productCodes"+        <*> x .@? "ramdisk"+        <*> x .@? "rootDeviceName"+        <*> x .@? "sourceDestCheck"+        <*> x .@? "sriovNetSupport"+        <*> x .@? "userData"
+ gen/Network/AWS/EC2/DescribeInstanceStatus.hs view
@@ -0,0 +1,246 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.DescribeInstanceStatus+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Describes the status of one or more instances, including any scheduled+-- events. Instance status has two main components: System Status reports+-- impaired functionality that stems from issues related to the systems that+-- support an instance, such as such as hardware failures and network+-- connectivity problems. This call reports such problems as impaired+-- reachability. Instance Status reports impaired functionality that arises+-- from problems internal to the instance. This call reports such problems as+-- impaired reachability. Instance status provides information about four+-- types of scheduled events for an instance that may require your attention:+-- Scheduled Reboot: When Amazon EC2 determines that an instance must be+-- rebooted, the instances status returns one of two event codes:+-- system-reboot or instance-reboot. System reboot commonly occurs if certain+-- maintenance or upgrade operations require a reboot of the underlying host+-- that supports an instance. Instance reboot commonly occurs if the instance+-- must be rebooted, rather than the underlying host. Rebooting events include+-- a scheduled start and end time. System Maintenance: When Amazon EC2+-- determines that an instance requires maintenance that requires power or+-- network impact, the instance status is the event code system-maintenance.+-- System maintenance is either power maintenance or network maintenance. For+-- power maintenance, your instance will be unavailable for a brief period of+-- time and then rebooted. For network maintenance, your instance will+-- experience a brief loss of network connectivity. System maintenance events+-- include a scheduled start and end time. You will also be notified by email+-- if one of your instances is set for system maintenance. The email message+-- indicates when your instance is scheduled for maintenance. Scheduled+-- Retirement: When Amazon EC2 determines that an instance must be shut down,+-- the instance status is the event code instance-retirement. Retirement+-- commonly occurs when the underlying host is degraded and must be replaced.+-- Retirement events include a scheduled start and end time. You will also be+-- notified by email if one of your instances is set to retiring. The email+-- message indicates when your instance will be permanently retired. Scheduled+-- Stop: When Amazon EC2 determines that an instance must be shut down, the+-- instances status returns an event code called instance-stop. Stop events+-- include a scheduled start and end time. You will also be notified by email+-- if one of your instances is set to stop. The email message indicates when+-- your instance will be stopped. When your instance is retired, it will+-- either be terminated (if its root device type is the instance-store) or+-- stopped (if its root device type is an EBS volume). Instances stopped due+-- to retirement will not be restarted, but you can do so manually. You can+-- also avoid retirement of EBS-backed instances by manually restarting your+-- instance when its event code is instance-retirement. This ensures that your+-- instance is started on a different underlying host. For more information+-- about failed status checks, see Troubleshooting Instances with Failed+-- Status Checks in the Amazon Elastic Compute Cloud User Guide. For more+-- information about working with scheduled events, see Working with an+-- Instance That Has a Scheduled Event in the Amazon Elastic Compute Cloud+-- User Guide.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-DescribeInstanceStatus.html>+module Network.AWS.EC2.DescribeInstanceStatus+    (+    -- * Request+      DescribeInstanceStatus+    -- ** Request constructor+    , describeInstanceStatus+    -- ** Request lenses+    , disDryRun+    , disFilters+    , disIncludeAllInstances+    , disInstanceIds+    , disMaxResults+    , disNextToken++    -- * Response+    , DescribeInstanceStatusResponse+    -- ** Response constructor+    , describeInstanceStatusResponse+    -- ** Response lenses+    , disrInstanceStatuses+    , disrNextToken+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data DescribeInstanceStatus = DescribeInstanceStatus+    { _disDryRun              :: Maybe Bool+    , _disFilters             :: List "Filter" Filter+    , _disIncludeAllInstances :: Maybe Bool+    , _disInstanceIds         :: List "InstanceId" Text+    , _disMaxResults          :: Maybe Int+    , _disNextToken           :: Maybe Text+    } deriving (Eq, Show)++-- | 'DescribeInstanceStatus' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'disDryRun' @::@ 'Maybe' 'Bool'+--+-- * 'disFilters' @::@ ['Filter']+--+-- * 'disIncludeAllInstances' @::@ 'Maybe' 'Bool'+--+-- * 'disInstanceIds' @::@ ['Text']+--+-- * 'disMaxResults' @::@ 'Maybe' 'Int'+--+-- * 'disNextToken' @::@ 'Maybe' 'Text'+--+describeInstanceStatus :: DescribeInstanceStatus+describeInstanceStatus = DescribeInstanceStatus+    { _disDryRun              = Nothing+    , _disInstanceIds         = mempty+    , _disFilters             = mempty+    , _disNextToken           = Nothing+    , _disMaxResults          = Nothing+    , _disIncludeAllInstances = Nothing+    }++disDryRun :: Lens' DescribeInstanceStatus (Maybe Bool)+disDryRun = lens _disDryRun (\s a -> s { _disDryRun = a })++-- | One or more filters. availability-zone - The Availability Zone of the+-- instance. event.code - The code identifying the type of event+-- (instance-reboot | system-reboot | system-maintenance |+-- instance-retirement | instance-stop). event.description - A description+-- of the event. event.not-after - The latest end time for the scheduled+-- event, for example: 2010-09-15T17:15:20.000Z. event.not-before - The+-- earliest start time for the scheduled event, for example:+-- 2010-09-15T17:15:20.000Z. instance-state-code - A code representing the+-- state of the instance, as a 16-bit unsigned integer. The high byte is an+-- opaque internal value and should be ignored. The low byte is set based on+-- the state represented. The valid values are 0 (pending), 16 (running), 32+-- (shutting-down), 48 (terminated), 64 (stopping), and 80 (stopped).+-- instance-state-name - The state of the instance (pending | running |+-- shutting-down | terminated | stopping | stopped).+-- instance-status.reachability - Filters on instance status where the name+-- is reachability (passed | failed | initializing | insufficient-data).+-- instance-status.status - The status of the instance (ok | impaired |+-- initializing | insufficient-data | not-applicable).+-- system-status.reachability - Filters on system status where the name is+-- reachability (passed | failed | initializing | insufficient-data).+-- system-status.status - The system status of the instance (ok | impaired |+-- initializing | insufficient-data | not-applicable).+disFilters :: Lens' DescribeInstanceStatus [Filter]+disFilters = lens _disFilters (\s a -> s { _disFilters = a }) . _List++-- | When true, includes the health status for all instances. When false,+-- includes the health status for running instances only. Default: false.+disIncludeAllInstances :: Lens' DescribeInstanceStatus (Maybe Bool)+disIncludeAllInstances =+    lens _disIncludeAllInstances (\s a -> s { _disIncludeAllInstances = a })++-- | One or more instance IDs. Default: Describes all your instances.+-- Constraints: Maximum 100 explicitly specified instance IDs.+disInstanceIds :: Lens' DescribeInstanceStatus [Text]+disInstanceIds = lens _disInstanceIds (\s a -> s { _disInstanceIds = a }) . _List++-- | The maximum number of paginated instance items per response. The call+-- also returns a token that you can specify in a subsequent call to get the+-- next set of results. If the value is greater than 1000, we return only+-- 1000 items. Default: 1000.+disMaxResults :: Lens' DescribeInstanceStatus (Maybe Int)+disMaxResults = lens _disMaxResults (\s a -> s { _disMaxResults = a })++-- | The next paginated set of results to return. (You received this token+-- from a prior call.).+disNextToken :: Lens' DescribeInstanceStatus (Maybe Text)+disNextToken = lens _disNextToken (\s a -> s { _disNextToken = a })++data DescribeInstanceStatusResponse = DescribeInstanceStatusResponse+    { _disrInstanceStatuses :: List "item" InstanceStatus+    , _disrNextToken        :: Maybe Text+    } deriving (Eq, Show)++-- | 'DescribeInstanceStatusResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'disrInstanceStatuses' @::@ ['InstanceStatus']+--+-- * 'disrNextToken' @::@ 'Maybe' 'Text'+--+describeInstanceStatusResponse :: DescribeInstanceStatusResponse+describeInstanceStatusResponse = DescribeInstanceStatusResponse+    { _disrInstanceStatuses = mempty+    , _disrNextToken        = Nothing+    }++-- | One or more instance status descriptions.+disrInstanceStatuses :: Lens' DescribeInstanceStatusResponse [InstanceStatus]+disrInstanceStatuses =+    lens _disrInstanceStatuses (\s a -> s { _disrInstanceStatuses = a })+        . _List++-- | The next paginated set of results to return.+disrNextToken :: Lens' DescribeInstanceStatusResponse (Maybe Text)+disrNextToken = lens _disrNextToken (\s a -> s { _disrNextToken = a })++instance ToPath DescribeInstanceStatus where+    toPath = const "/"++instance ToQuery DescribeInstanceStatus where+    toQuery DescribeInstanceStatus{..} = mconcat+        [ "dryRun"              =? _disDryRun+        , "Filter"              =? _disFilters+        , "includeAllInstances" =? _disIncludeAllInstances+        , "InstanceId"          =? _disInstanceIds+        , "MaxResults"          =? _disMaxResults+        , "NextToken"           =? _disNextToken+        ]++instance ToHeaders DescribeInstanceStatus++instance AWSRequest DescribeInstanceStatus where+    type Sv DescribeInstanceStatus = EC2+    type Rs DescribeInstanceStatus = DescribeInstanceStatusResponse++    request  = post "DescribeInstanceStatus"+    response = xmlResponse++instance FromXML DescribeInstanceStatusResponse where+    parseXML x = DescribeInstanceStatusResponse+        <$> x .@  "instanceStatusSet"+        <*> x .@? "nextToken"++instance AWSPager DescribeInstanceStatus where+    page rq rs+        | stop (rq ^. disNextToken) = Nothing+        | otherwise = (\x -> rq & disNextToken ?~ x)+            <$> (rs ^. disrNextToken)
+ gen/Network/AWS/EC2/DescribeInstances.hs view
@@ -0,0 +1,297 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.DescribeInstances+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Describes one or more of your instances. If you specify one or more+-- instance IDs, Amazon EC2 returns information for those instances. If you do+-- not specify instance IDs, Amazon EC2 returns information for all relevant+-- instances. If you specify an instance ID that is not valid, an error is+-- returned. If you specify an instance that you do not own, it is not+-- included in the returned results. Recently terminated instances might+-- appear in the returned results. This interval is usually less than one+-- hour.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-DescribeInstances.html>+module Network.AWS.EC2.DescribeInstances+    (+    -- * Request+      DescribeInstances+    -- ** Request constructor+    , describeInstances+    -- ** Request lenses+    , di1DryRun+    , di1Filters+    , di1InstanceIds+    , di1MaxResults+    , di1NextToken++    -- * Response+    , DescribeInstancesResponse+    -- ** Response constructor+    , describeInstancesResponse+    -- ** Response lenses+    , dirNextToken+    , dirReservations+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data DescribeInstances = DescribeInstances+    { _di1DryRun      :: Maybe Bool+    , _di1Filters     :: List "Filter" Filter+    , _di1InstanceIds :: List "InstanceId" Text+    , _di1MaxResults  :: Maybe Int+    , _di1NextToken   :: Maybe Text+    } deriving (Eq, Show)++-- | 'DescribeInstances' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'di1DryRun' @::@ 'Maybe' 'Bool'+--+-- * 'di1Filters' @::@ ['Filter']+--+-- * 'di1InstanceIds' @::@ ['Text']+--+-- * 'di1MaxResults' @::@ 'Maybe' 'Int'+--+-- * 'di1NextToken' @::@ 'Maybe' 'Text'+--+describeInstances :: DescribeInstances+describeInstances = DescribeInstances+    { _di1DryRun      = Nothing+    , _di1InstanceIds = mempty+    , _di1Filters     = mempty+    , _di1NextToken   = Nothing+    , _di1MaxResults  = Nothing+    }++di1DryRun :: Lens' DescribeInstances (Maybe Bool)+di1DryRun = lens _di1DryRun (\s a -> s { _di1DryRun = a })++-- | One or more filters. architecture - The instance architecture (i386 |+-- x86_64). availability-zone - The Availability Zone of the instance.+-- block-device-mapping.attach-time - The attach time for an Amazon EBS+-- volume mapped to the instance, for example, 2010-09-15T17:15:20.000Z.+-- block-device-mapping.delete-on-termination - A Boolean that indicates+-- whether the Amazon EBS volume is deleted on instance termination.+-- block-device-mapping.device-name - The device name for the Amazon EBS+-- volume (for example, /dev/sdh). block-device-mapping.status - The status+-- for the Amazon EBS volume (attaching | attached | detaching | detached).+-- block-device-mapping.volume-id - The volume ID of the Amazon EBS volume.+-- client-token - The idempotency token you provided when you launched the+-- instance. dns-name - The public DNS name of the instance. group-id - The+-- ID of the security group for the instance. If the instance is in+-- EC2-Classic or a default VPC, you can use group-name instead. group-name+-- - The name of the security group for the instance. If the instance is in+-- a nondefault VPC, you must use group-id instead. hypervisor - The+-- hypervisor type of the instance (ovm | xen). iam-instance-profile.arn -+-- The instance profile associated with the instance. Specified as an ARN.+-- image-id - The ID of the image used to launch the instance. instance-id -+-- The ID of the instance. instance-lifecycle - Indicates whether this is a+-- Spot Instance (spot). instance-state-code - The state of the instance, as+-- a 16-bit unsigned integer. The high byte is an opaque internal value and+-- should be ignored. The low byte is set based on the state represented.+-- The valid values are: 0 (pending), 16 (running), 32 (shutting-down), 48+-- (terminated), 64 (stopping), and 80 (stopped). instance-state-name - The+-- state of the instance (pending | running | shutting-down | terminated |+-- stopping | stopped). instance-type - The type of instance (for example,+-- m1.small). instance.group-id - The ID of the security group for the+-- instance. If the instance is in EC2-Classic or a default VPC, you can use+-- instance.group-name instead. instance.group-name - The name of the+-- security group for the instance. If the instance is in a nondefault VPC,+-- you must use instance.group-id instead. ip-address - The public IP+-- address of the instance. kernel-id - The kernel ID. key-name - The name+-- of the key pair used when the instance was launched. launch-index - When+-- launching multiple instances, this is the index for the instance in the+-- launch group (for example, 0, 1, 2, and so on). launch-time - The time+-- when the instance was launched. monitoring-state - Indicates whether+-- monitoring is enabled for the instance (disabled | enabled). owner-id -+-- The AWS account ID of the instance owner. placement-group-name - The name+-- of the placement group for the instance. platform - The platform. Use+-- windows if you have Windows instances; otherwise, leave blank.+-- private-dns-name - The private DNS name of the instance.+-- private-ip-address - The private IP address of the instance. product-code+-- - The product code associated with the AMI used to launch the instance.+-- product-code.type - The type of product code (devpay | marketplace).+-- ramdisk-id - The RAM disk ID. reason - The reason for the current state+-- of the instance (for example, shows "User Initiated [date]" when you stop+-- or terminate the instance). Similar to the state-reason-code filter.+-- requester-id - The ID of the entity that launched the instance on your+-- behalf (for example, AWS Management Console, Auto Scaling, and so on).+-- reservation-id - The ID of the instance's reservation. A reservation ID+-- is created any time you launch an instance. A reservation ID has a+-- one-to-one relationship with an instance launch request, but can be+-- associated with more than one instance if you launch multiple instances+-- using the same launch request. For example, if you launch one instance,+-- you'll get one reservation ID. If you launch ten instances using the same+-- launch request, you'll also get one reservation ID. root-device-name -+-- The name of the root device for the instance (for example, /dev/sda1).+-- root-device-type - The type of root device that the instance uses (ebs |+-- instance-store). source-dest-check - Indicates whether the instance+-- performs source/destination checking. A value of true means that checking+-- is enabled, and false means checking is disabled. The value must be false+-- for the instance to perform network address translation (NAT) in your+-- VPC. spot-instance-request-id - The ID of the Spot Instance request.+-- state-reason-code - The reason code for the state change.+-- state-reason-message - A message that describes the state change.+-- subnet-id - The ID of the subnet for the instance. tag:key=value - The+-- key/value combination of a tag assigned to the resource, where tag:key is+-- the tag's key. tag-key - The key of a tag assigned to the resource. This+-- filter is independent of the tag-value filter. For example, if you use+-- both the filter "tag-key=Purpose" and the filter "tag-value=X", you get+-- any resources assigned both the tag key Purpose (regardless of what the+-- tag's value is), and the tag value X (regardless of what the tag's key+-- is). If you want to list only resources where Purpose is X, see the+-- tag:key=value filter. tag-value - The value of a tag assigned to the+-- resource. This filter is independent of the tag-key filter. tenancy - The+-- tenancy of an instance (dedicated | default). virtualization-type - The+-- virtualization type of the instance (paravirtual | hvm). vpc-id - The ID+-- of the VPC that the instance is running in. network-interface.description+-- - The description of the network interface. network-interface.subnet-id -+-- The ID of the subnet for the network interface. network-interface.vpc-id+-- - The ID of the VPC for the network interface.+-- network-interface.network-interface.id - The ID of the network interface.+-- network-interface.owner-id - The ID of the owner of the network+-- interface. network-interface.availability-zone - The Availability Zone+-- for the network interface. network-interface.requester-id - The requester+-- ID for the network interface. network-interface.requester-managed -+-- Indicates whether the network interface is being managed by AWS.+-- network-interface.status - The status of the network interface+-- (available) | in-use). network-interface.mac-address - The MAC address of+-- the network interface. network-interface-private-dns-name - The private+-- DNS name of the network interface.+-- network-interface.source-destination-check - Whether the network+-- interface performs source/destination checking. A value of true means+-- checking is enabled, and false means checking is disabled. The value must+-- be false for the network interface to perform network address translation+-- (NAT) in your VPC. network-interface.group-id - The ID of a security+-- group associated with the network interface. network-interface.group-name+-- - The name of a security group associated with the network interface.+-- network-interface.attachment.attachment-id - The ID of the interface+-- attachment. network-interface.attachment.instance-id - The ID of the+-- instance to which the network interface is attached.+-- network-interface.attachment.instance-owner-id - The owner ID of the+-- instance to which the network interface is attached.+-- network-interface.addresses.private-ip-address - The private IP address+-- associated with the network interface.+-- network-interface.attachment.device-index - The device index to which the+-- network interface is attached. network-interface.attachment.status - The+-- status of the attachment (attaching | attached | detaching | detached).+-- network-interface.attachment.attach-time - The time that the network+-- interface was attached to an instance.+-- network-interface.attachment.delete-on-termination - Specifies whether+-- the attachment is deleted when an instance is terminated.+-- network-interface.addresses.primary - Specifies whether the IP address of+-- the network interface is the primary private IP address.+-- network-interface.addresses.association.public-ip - The ID of the+-- association of an Elastic IP address with a network interface.+-- network-interface.addresses.association.ip-owner-id - The owner ID of the+-- private IP address associated with the network interface.+-- association.public-ip - The address of the Elastic IP address bound to+-- the network interface. association.ip-owner-id - The owner of the Elastic+-- IP address associated with the network interface.+-- association.allocation-id - The allocation ID returned when you allocated+-- the Elastic IP address for your network interface.+-- association.association-id - The association ID returned when the network+-- interface was associated with an IP address.+di1Filters :: Lens' DescribeInstances [Filter]+di1Filters = lens _di1Filters (\s a -> s { _di1Filters = a }) . _List++-- | One or more instance IDs. Default: Describes all your instances.+di1InstanceIds :: Lens' DescribeInstances [Text]+di1InstanceIds = lens _di1InstanceIds (\s a -> s { _di1InstanceIds = a }) . _List++-- | The maximum number of items to return for this call. The call also+-- returns a token that you can specify in a subsequent call to get the next+-- set of results. If the value is greater than 1000, we return only 1000+-- items.+di1MaxResults :: Lens' DescribeInstances (Maybe Int)+di1MaxResults = lens _di1MaxResults (\s a -> s { _di1MaxResults = a })++-- | The token for the next set of items to return. (You received this token+-- from a prior call.).+di1NextToken :: Lens' DescribeInstances (Maybe Text)+di1NextToken = lens _di1NextToken (\s a -> s { _di1NextToken = a })++data DescribeInstancesResponse = DescribeInstancesResponse+    { _dirNextToken    :: Maybe Text+    , _dirReservations :: List "item" Reservation+    } deriving (Eq, Show)++-- | 'DescribeInstancesResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'dirNextToken' @::@ 'Maybe' 'Text'+--+-- * 'dirReservations' @::@ ['Reservation']+--+describeInstancesResponse :: DescribeInstancesResponse+describeInstancesResponse = DescribeInstancesResponse+    { _dirReservations = mempty+    , _dirNextToken    = Nothing+    }++-- | The token to use when requesting the next set of items. If there are no+-- additional items to return, the string is empty.+dirNextToken :: Lens' DescribeInstancesResponse (Maybe Text)+dirNextToken = lens _dirNextToken (\s a -> s { _dirNextToken = a })++-- | One or more reservations.+dirReservations :: Lens' DescribeInstancesResponse [Reservation]+dirReservations = lens _dirReservations (\s a -> s { _dirReservations = a }) . _List++instance ToPath DescribeInstances where+    toPath = const "/"++instance ToQuery DescribeInstances where+    toQuery DescribeInstances{..} = mconcat+        [ "dryRun"     =? _di1DryRun+        , "Filter"     =? _di1Filters+        , "InstanceId" =? _di1InstanceIds+        , "maxResults" =? _di1MaxResults+        , "nextToken"  =? _di1NextToken+        ]++instance ToHeaders DescribeInstances++instance AWSRequest DescribeInstances where+    type Sv DescribeInstances = EC2+    type Rs DescribeInstances = DescribeInstancesResponse++    request  = post "DescribeInstances"+    response = xmlResponse++instance FromXML DescribeInstancesResponse where+    parseXML x = DescribeInstancesResponse+        <$> x .@? "nextToken"+        <*> x .@  "reservationSet"++instance AWSPager DescribeInstances where+    page rq rs+        | stop (rq ^. di1NextToken) = Nothing+        | otherwise = (\x -> rq & di1NextToken ?~ x)+            <$> (rs ^. dirNextToken)
+ gen/Network/AWS/EC2/DescribeInternetGateways.hs view
@@ -0,0 +1,147 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.DescribeInternetGateways+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Describes one or more of your Internet gateways.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-DescribeInternetGateways.html>+module Network.AWS.EC2.DescribeInternetGateways+    (+    -- * Request+      DescribeInternetGateways+    -- ** Request constructor+    , describeInternetGateways+    -- ** Request lenses+    , dig1DryRun+    , dig1Filters+    , dig1InternetGatewayIds++    -- * Response+    , DescribeInternetGatewaysResponse+    -- ** Response constructor+    , describeInternetGatewaysResponse+    -- ** Response lenses+    , digrInternetGateways+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data DescribeInternetGateways = DescribeInternetGateways+    { _dig1DryRun             :: Maybe Bool+    , _dig1Filters            :: List "Filter" Filter+    , _dig1InternetGatewayIds :: List "item" Text+    } deriving (Eq, Show)++-- | 'DescribeInternetGateways' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'dig1DryRun' @::@ 'Maybe' 'Bool'+--+-- * 'dig1Filters' @::@ ['Filter']+--+-- * 'dig1InternetGatewayIds' @::@ ['Text']+--+describeInternetGateways :: DescribeInternetGateways+describeInternetGateways = DescribeInternetGateways+    { _dig1DryRun             = Nothing+    , _dig1InternetGatewayIds = mempty+    , _dig1Filters            = mempty+    }++dig1DryRun :: Lens' DescribeInternetGateways (Maybe Bool)+dig1DryRun = lens _dig1DryRun (\s a -> s { _dig1DryRun = a })++-- | One or more filters. attachment.state - The current state of the+-- attachment between the gateway and the VPC (available). Present only if a+-- VPC is attached. attachment.vpc-id - The ID of an attached VPC.+-- internet-gateway-id - The ID of the Internet gateway. tag:key=value - The+-- key/value combination of a tag assigned to the resource. tag-key - The+-- key of a tag assigned to the resource. This filter is independent of the+-- tag-value filter. For example, if you use both the filter+-- "tag-key=Purpose" and the filter "tag-value=X", you get any resources+-- assigned both the tag key Purpose (regardless of what the tag's value+-- is), and the tag value X (regardless of what the tag's key is). If you+-- want to list only resources where Purpose is X, see the tag:key=value+-- filter. tag-value - The value of a tag assigned to the resource. This+-- filter is independent of the tag-key filter.+dig1Filters :: Lens' DescribeInternetGateways [Filter]+dig1Filters = lens _dig1Filters (\s a -> s { _dig1Filters = a }) . _List++-- | One or more Internet gateway IDs. Default: Describes all your Internet+-- gateways.+dig1InternetGatewayIds :: Lens' DescribeInternetGateways [Text]+dig1InternetGatewayIds =+    lens _dig1InternetGatewayIds (\s a -> s { _dig1InternetGatewayIds = a })+        . _List++newtype DescribeInternetGatewaysResponse = DescribeInternetGatewaysResponse+    { _digrInternetGateways :: List "item" InternetGateway+    } deriving (Eq, Show, Monoid, Semigroup)++instance GHC.Exts.IsList DescribeInternetGatewaysResponse where+    type Item DescribeInternetGatewaysResponse = InternetGateway++    fromList = DescribeInternetGatewaysResponse . GHC.Exts.fromList+    toList   = GHC.Exts.toList . _digrInternetGateways++-- | 'DescribeInternetGatewaysResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'digrInternetGateways' @::@ ['InternetGateway']+--+describeInternetGatewaysResponse :: DescribeInternetGatewaysResponse+describeInternetGatewaysResponse = DescribeInternetGatewaysResponse+    { _digrInternetGateways = mempty+    }++-- | Information about one or more Internet gateways.+digrInternetGateways :: Lens' DescribeInternetGatewaysResponse [InternetGateway]+digrInternetGateways =+    lens _digrInternetGateways (\s a -> s { _digrInternetGateways = a })+        . _List++instance ToPath DescribeInternetGateways where+    toPath = const "/"++instance ToQuery DescribeInternetGateways where+    toQuery DescribeInternetGateways{..} = mconcat+        [ "dryRun"            =? _dig1DryRun+        , "Filter"            =? _dig1Filters+        , "internetGatewayId" =? _dig1InternetGatewayIds+        ]++instance ToHeaders DescribeInternetGateways++instance AWSRequest DescribeInternetGateways where+    type Sv DescribeInternetGateways = EC2+    type Rs DescribeInternetGateways = DescribeInternetGatewaysResponse++    request  = post "DescribeInternetGateways"+    response = xmlResponse++instance FromXML DescribeInternetGatewaysResponse where+    parseXML x = DescribeInternetGatewaysResponse+        <$> x .@  "internetGatewaySet"
+ gen/Network/AWS/EC2/DescribeKeyPairs.hs view
@@ -0,0 +1,132 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.DescribeKeyPairs+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Describes one or more of your key pairs. For more information about key+-- pairs, see Key Pairs in the Amazon Elastic Compute Cloud User Guide.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-DescribeKeyPairs.html>+module Network.AWS.EC2.DescribeKeyPairs+    (+    -- * Request+      DescribeKeyPairs+    -- ** Request constructor+    , describeKeyPairs+    -- ** Request lenses+    , dkp1DryRun+    , dkp1Filters+    , dkp1KeyNames++    -- * Response+    , DescribeKeyPairsResponse+    -- ** Response constructor+    , describeKeyPairsResponse+    -- ** Response lenses+    , dkprKeyPairs+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data DescribeKeyPairs = DescribeKeyPairs+    { _dkp1DryRun   :: Maybe Bool+    , _dkp1Filters  :: List "Filter" Filter+    , _dkp1KeyNames :: List "KeyName" Text+    } deriving (Eq, Show)++-- | 'DescribeKeyPairs' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'dkp1DryRun' @::@ 'Maybe' 'Bool'+--+-- * 'dkp1Filters' @::@ ['Filter']+--+-- * 'dkp1KeyNames' @::@ ['Text']+--+describeKeyPairs :: DescribeKeyPairs+describeKeyPairs = DescribeKeyPairs+    { _dkp1DryRun   = Nothing+    , _dkp1KeyNames = mempty+    , _dkp1Filters  = mempty+    }++dkp1DryRun :: Lens' DescribeKeyPairs (Maybe Bool)+dkp1DryRun = lens _dkp1DryRun (\s a -> s { _dkp1DryRun = a })++-- | One or more filters. fingerprint - The fingerprint of the key pair.+-- key-name - The name of the key pair.+dkp1Filters :: Lens' DescribeKeyPairs [Filter]+dkp1Filters = lens _dkp1Filters (\s a -> s { _dkp1Filters = a }) . _List++-- | One or more key pair names. Default: Describes all your key pairs.+dkp1KeyNames :: Lens' DescribeKeyPairs [Text]+dkp1KeyNames = lens _dkp1KeyNames (\s a -> s { _dkp1KeyNames = a }) . _List++newtype DescribeKeyPairsResponse = DescribeKeyPairsResponse+    { _dkprKeyPairs :: List "item" KeyPairInfo+    } deriving (Eq, Show, Monoid, Semigroup)++instance GHC.Exts.IsList DescribeKeyPairsResponse where+    type Item DescribeKeyPairsResponse = KeyPairInfo++    fromList = DescribeKeyPairsResponse . GHC.Exts.fromList+    toList   = GHC.Exts.toList . _dkprKeyPairs++-- | 'DescribeKeyPairsResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'dkprKeyPairs' @::@ ['KeyPairInfo']+--+describeKeyPairsResponse :: DescribeKeyPairsResponse+describeKeyPairsResponse = DescribeKeyPairsResponse+    { _dkprKeyPairs = mempty+    }++-- | Information about one or more key pairs.+dkprKeyPairs :: Lens' DescribeKeyPairsResponse [KeyPairInfo]+dkprKeyPairs = lens _dkprKeyPairs (\s a -> s { _dkprKeyPairs = a }) . _List++instance ToPath DescribeKeyPairs where+    toPath = const "/"++instance ToQuery DescribeKeyPairs where+    toQuery DescribeKeyPairs{..} = mconcat+        [ "dryRun"  =? _dkp1DryRun+        , "Filter"  =? _dkp1Filters+        , "KeyName" =? _dkp1KeyNames+        ]++instance ToHeaders DescribeKeyPairs++instance AWSRequest DescribeKeyPairs where+    type Sv DescribeKeyPairs = EC2+    type Rs DescribeKeyPairs = DescribeKeyPairsResponse++    request  = post "DescribeKeyPairs"+    response = xmlResponse++instance FromXML DescribeKeyPairsResponse where+    parseXML x = DescribeKeyPairsResponse+        <$> x .@  "keySet"
+ gen/Network/AWS/EC2/DescribeNetworkAcls.hs view
@@ -0,0 +1,157 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.DescribeNetworkAcls+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Describes one or more of your network ACLs. For more information about+-- network ACLs, see Network ACLs in the Amazon Virtual Private Cloud User+-- Guide.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-DescribeNetworkAcls.html>+module Network.AWS.EC2.DescribeNetworkAcls+    (+    -- * Request+      DescribeNetworkAcls+    -- ** Request constructor+    , describeNetworkAcls+    -- ** Request lenses+    , dna1DryRun+    , dna1Filters+    , dna1NetworkAclIds++    -- * Response+    , DescribeNetworkAclsResponse+    -- ** Response constructor+    , describeNetworkAclsResponse+    -- ** Response lenses+    , dnarNetworkAcls+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data DescribeNetworkAcls = DescribeNetworkAcls+    { _dna1DryRun        :: Maybe Bool+    , _dna1Filters       :: List "Filter" Filter+    , _dna1NetworkAclIds :: List "item" Text+    } deriving (Eq, Show)++-- | 'DescribeNetworkAcls' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'dna1DryRun' @::@ 'Maybe' 'Bool'+--+-- * 'dna1Filters' @::@ ['Filter']+--+-- * 'dna1NetworkAclIds' @::@ ['Text']+--+describeNetworkAcls :: DescribeNetworkAcls+describeNetworkAcls = DescribeNetworkAcls+    { _dna1DryRun        = Nothing+    , _dna1NetworkAclIds = mempty+    , _dna1Filters       = mempty+    }++dna1DryRun :: Lens' DescribeNetworkAcls (Maybe Bool)+dna1DryRun = lens _dna1DryRun (\s a -> s { _dna1DryRun = a })++-- | One or more filters. association.association-id - The ID of an+-- association ID for the ACL. association.network-acl-id - The ID of the+-- network ACL involved in the association. association.subnet-id - The ID+-- of the subnet involved in the association. default - Indicates whether+-- the ACL is the default network ACL for the VPC. entry.cidr - The CIDR+-- range specified in the entry. entry.egress - Indicates whether the entry+-- applies to egress traffic. entry.icmp.code - The ICMP code specified in+-- the entry, if any. entry.icmp.type - The ICMP type specified in the+-- entry, if any. entry.port-range.from - The start of the port range+-- specified in the entry. entry.port-range.to - The end of the port range+-- specified in the entry. entry.protocol - The protocol specified in the+-- entry (tcp | udp | icmp or a protocol number). entry.rule-action - Allows+-- or denies the matching traffic (allow | deny). entry.rule-number - The+-- number of an entry (in other words, rule) in the ACL's set of entries.+-- network-acl-id - The ID of the network ACL. tag:key=value - The key/value+-- combination of a tag assigned to the resource. tag-key - The key of a tag+-- assigned to the resource. This filter is independent of the tag-value+-- filter. For example, if you use both the filter "tag-key=Purpose" and the+-- filter "tag-value=X", you get any resources assigned both the tag key+-- Purpose (regardless of what the tag's value is), and the tag value X+-- (regardless of what the tag's key is). If you want to list only resources+-- where Purpose is X, see the tag:key=value filter. tag-value - The value+-- of a tag assigned to the resource. This filter is independent of the+-- tag-key filter. vpc-id - The ID of the VPC for the network ACL.+dna1Filters :: Lens' DescribeNetworkAcls [Filter]+dna1Filters = lens _dna1Filters (\s a -> s { _dna1Filters = a }) . _List++-- | One or more network ACL IDs. Default: Describes all your network ACLs.+dna1NetworkAclIds :: Lens' DescribeNetworkAcls [Text]+dna1NetworkAclIds =+    lens _dna1NetworkAclIds (\s a -> s { _dna1NetworkAclIds = a })+        . _List++newtype DescribeNetworkAclsResponse = DescribeNetworkAclsResponse+    { _dnarNetworkAcls :: List "item" NetworkAcl+    } deriving (Eq, Show, Monoid, Semigroup)++instance GHC.Exts.IsList DescribeNetworkAclsResponse where+    type Item DescribeNetworkAclsResponse = NetworkAcl++    fromList = DescribeNetworkAclsResponse . GHC.Exts.fromList+    toList   = GHC.Exts.toList . _dnarNetworkAcls++-- | 'DescribeNetworkAclsResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'dnarNetworkAcls' @::@ ['NetworkAcl']+--+describeNetworkAclsResponse :: DescribeNetworkAclsResponse+describeNetworkAclsResponse = DescribeNetworkAclsResponse+    { _dnarNetworkAcls = mempty+    }++-- | Information about one or more network ACLs.+dnarNetworkAcls :: Lens' DescribeNetworkAclsResponse [NetworkAcl]+dnarNetworkAcls = lens _dnarNetworkAcls (\s a -> s { _dnarNetworkAcls = a }) . _List++instance ToPath DescribeNetworkAcls where+    toPath = const "/"++instance ToQuery DescribeNetworkAcls where+    toQuery DescribeNetworkAcls{..} = mconcat+        [ "dryRun"       =? _dna1DryRun+        , "Filter"       =? _dna1Filters+        , "NetworkAclId" =? _dna1NetworkAclIds+        ]++instance ToHeaders DescribeNetworkAcls++instance AWSRequest DescribeNetworkAcls where+    type Sv DescribeNetworkAcls = EC2+    type Rs DescribeNetworkAcls = DescribeNetworkAclsResponse++    request  = post "DescribeNetworkAcls"+    response = xmlResponse++instance FromXML DescribeNetworkAclsResponse where+    parseXML x = DescribeNetworkAclsResponse+        <$> x .@  "networkAclSet"
+ gen/Network/AWS/EC2/DescribeNetworkInterfaceAttribute.hs view
@@ -0,0 +1,169 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.DescribeNetworkInterfaceAttribute+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Describes a network interface attribute. You can specify only one attribute+-- at a time.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-DescribeNetworkInterfaceAttribute.html>+module Network.AWS.EC2.DescribeNetworkInterfaceAttribute+    (+    -- * Request+      DescribeNetworkInterfaceAttribute+    -- ** Request constructor+    , describeNetworkInterfaceAttribute+    -- ** Request lenses+    , dniaAttribute+    , dniaDryRun+    , dniaNetworkInterfaceId++    -- * Response+    , DescribeNetworkInterfaceAttributeResponse+    -- ** Response constructor+    , describeNetworkInterfaceAttributeResponse+    -- ** Response lenses+    , dniarAttachment+    , dniarDescription+    , dniarGroups+    , dniarNetworkInterfaceId+    , dniarSourceDestCheck+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data DescribeNetworkInterfaceAttribute = DescribeNetworkInterfaceAttribute+    { _dniaAttribute          :: Maybe Text+    , _dniaDryRun             :: Maybe Bool+    , _dniaNetworkInterfaceId :: Text+    } deriving (Eq, Ord, Show)++-- | 'DescribeNetworkInterfaceAttribute' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'dniaAttribute' @::@ 'Maybe' 'Text'+--+-- * 'dniaDryRun' @::@ 'Maybe' 'Bool'+--+-- * 'dniaNetworkInterfaceId' @::@ 'Text'+--+describeNetworkInterfaceAttribute :: Text -- ^ 'dniaNetworkInterfaceId'+                                  -> DescribeNetworkInterfaceAttribute+describeNetworkInterfaceAttribute p1 = DescribeNetworkInterfaceAttribute+    { _dniaNetworkInterfaceId = p1+    , _dniaDryRun             = Nothing+    , _dniaAttribute          = Nothing+    }++-- | The attribute of the network interface.+dniaAttribute :: Lens' DescribeNetworkInterfaceAttribute (Maybe Text)+dniaAttribute = lens _dniaAttribute (\s a -> s { _dniaAttribute = a })++dniaDryRun :: Lens' DescribeNetworkInterfaceAttribute (Maybe Bool)+dniaDryRun = lens _dniaDryRun (\s a -> s { _dniaDryRun = a })++-- | The ID of the network interface.+dniaNetworkInterfaceId :: Lens' DescribeNetworkInterfaceAttribute Text+dniaNetworkInterfaceId =+    lens _dniaNetworkInterfaceId (\s a -> s { _dniaNetworkInterfaceId = a })++data DescribeNetworkInterfaceAttributeResponse = DescribeNetworkInterfaceAttributeResponse+    { _dniarAttachment         :: Maybe NetworkInterfaceAttachment+    , _dniarDescription        :: Maybe AttributeValue+    , _dniarGroups             :: List "item" GroupIdentifier+    , _dniarNetworkInterfaceId :: Maybe Text+    , _dniarSourceDestCheck    :: Maybe AttributeBooleanValue+    } deriving (Eq, Show)++-- | 'DescribeNetworkInterfaceAttributeResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'dniarAttachment' @::@ 'Maybe' 'NetworkInterfaceAttachment'+--+-- * 'dniarDescription' @::@ 'Maybe' 'AttributeValue'+--+-- * 'dniarGroups' @::@ ['GroupIdentifier']+--+-- * 'dniarNetworkInterfaceId' @::@ 'Maybe' 'Text'+--+-- * 'dniarSourceDestCheck' @::@ 'Maybe' 'AttributeBooleanValue'+--+describeNetworkInterfaceAttributeResponse :: DescribeNetworkInterfaceAttributeResponse+describeNetworkInterfaceAttributeResponse = DescribeNetworkInterfaceAttributeResponse+    { _dniarNetworkInterfaceId = Nothing+    , _dniarDescription        = Nothing+    , _dniarSourceDestCheck    = Nothing+    , _dniarGroups             = mempty+    , _dniarAttachment         = Nothing+    }++-- | The attachment (if any) of the network interface.+dniarAttachment :: Lens' DescribeNetworkInterfaceAttributeResponse (Maybe NetworkInterfaceAttachment)+dniarAttachment = lens _dniarAttachment (\s a -> s { _dniarAttachment = a })++-- | The description of the network interface.+dniarDescription :: Lens' DescribeNetworkInterfaceAttributeResponse (Maybe AttributeValue)+dniarDescription = lens _dniarDescription (\s a -> s { _dniarDescription = a })++-- | The security groups associated with the network interface.+dniarGroups :: Lens' DescribeNetworkInterfaceAttributeResponse [GroupIdentifier]+dniarGroups = lens _dniarGroups (\s a -> s { _dniarGroups = a }) . _List++-- | The ID of the network interface.+dniarNetworkInterfaceId :: Lens' DescribeNetworkInterfaceAttributeResponse (Maybe Text)+dniarNetworkInterfaceId =+    lens _dniarNetworkInterfaceId (\s a -> s { _dniarNetworkInterfaceId = a })++-- | Indicates whether source/destination checking is enabled.+dniarSourceDestCheck :: Lens' DescribeNetworkInterfaceAttributeResponse (Maybe AttributeBooleanValue)+dniarSourceDestCheck =+    lens _dniarSourceDestCheck (\s a -> s { _dniarSourceDestCheck = a })++instance ToPath DescribeNetworkInterfaceAttribute where+    toPath = const "/"++instance ToQuery DescribeNetworkInterfaceAttribute where+    toQuery DescribeNetworkInterfaceAttribute{..} = mconcat+        [ "attribute"          =? _dniaAttribute+        , "dryRun"             =? _dniaDryRun+        , "networkInterfaceId" =? _dniaNetworkInterfaceId+        ]++instance ToHeaders DescribeNetworkInterfaceAttribute++instance AWSRequest DescribeNetworkInterfaceAttribute where+    type Sv DescribeNetworkInterfaceAttribute = EC2+    type Rs DescribeNetworkInterfaceAttribute = DescribeNetworkInterfaceAttributeResponse++    request  = post "DescribeNetworkInterfaceAttribute"+    response = xmlResponse++instance FromXML DescribeNetworkInterfaceAttributeResponse where+    parseXML x = DescribeNetworkInterfaceAttributeResponse+        <$> x .@? "attachment"+        <*> x .@? "description"+        <*> x .@  "groupSet"+        <*> x .@? "networkInterfaceId"+        <*> x .@? "sourceDestCheck"
+ gen/Network/AWS/EC2/DescribeNetworkInterfaces.hs view
@@ -0,0 +1,188 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.DescribeNetworkInterfaces+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Describes one or more of your network interfaces.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-DescribeNetworkInterfaces.html>+module Network.AWS.EC2.DescribeNetworkInterfaces+    (+    -- * Request+      DescribeNetworkInterfaces+    -- ** Request constructor+    , describeNetworkInterfaces+    -- ** Request lenses+    , dni1DryRun+    , dni1Filters+    , dni1NetworkInterfaceIds++    -- * Response+    , DescribeNetworkInterfacesResponse+    -- ** Response constructor+    , describeNetworkInterfacesResponse+    -- ** Response lenses+    , dnirNetworkInterfaces+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data DescribeNetworkInterfaces = DescribeNetworkInterfaces+    { _dni1DryRun              :: Maybe Bool+    , _dni1Filters             :: List "Filter" Filter+    , _dni1NetworkInterfaceIds :: List "item" Text+    } deriving (Eq, Show)++-- | 'DescribeNetworkInterfaces' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'dni1DryRun' @::@ 'Maybe' 'Bool'+--+-- * 'dni1Filters' @::@ ['Filter']+--+-- * 'dni1NetworkInterfaceIds' @::@ ['Text']+--+describeNetworkInterfaces :: DescribeNetworkInterfaces+describeNetworkInterfaces = DescribeNetworkInterfaces+    { _dni1DryRun              = Nothing+    , _dni1NetworkInterfaceIds = mempty+    , _dni1Filters             = mempty+    }++dni1DryRun :: Lens' DescribeNetworkInterfaces (Maybe Bool)+dni1DryRun = lens _dni1DryRun (\s a -> s { _dni1DryRun = a })++-- | One or more filters. addresses.private-ip-address - The private IP+-- addresses associated with the network interface. addresses.primary -+-- Whether the private IP address is the primary IP address associated with+-- the network interface. addresses.association.public-ip - The association+-- ID returned when the network interface was associated with the Elastic IP+-- address. addresses.association.owner-id - The owner ID of the addresses+-- associated with the network interface. association.association-id - The+-- association ID returned when the network interface was associated with an+-- IP address. association.allocation-id - The allocation ID returned when+-- you allocated the Elastic IP address for your network interface.+-- association.ip-owner-id - The owner of the Elastic IP address associated+-- with the network interface. association.public-ip - The address of the+-- Elastic IP address bound to the network interface.+-- association.public-dns-name - The public DNS name for the network+-- interface. attachment.attachment-id - The ID of the interface attachment.+-- attachment.instance-id - The ID of the instance to which the network+-- interface is attached. attachment.instance-owner-id - The owner ID of the+-- instance to which the network interface is attached.+-- attachment.device-index - The device index to which the network interface+-- is attached. attachment.status - The status of the attachment (attaching+-- | attached | detaching | detached). attachment.attach.time - The time+-- that the network interface was attached to an instance.+-- attachment.delete-on-termination - Indicates whether the attachment is+-- deleted when an instance is terminated. availability-zone - The+-- Availability Zone of the network interface. description - The description+-- of the network interface. group-id - The ID of a security group+-- associated with the network interface. group-name - The name of a+-- security group associated with the network interface. mac-address - The+-- MAC address of the network interface. network-interface-id - The ID of+-- the network interface. owner-id - The AWS account ID of the network+-- interface owner. private-ip-address - The private IP address or addresses+-- of the network interface. private-dns-name - The private DNS name of the+-- network interface. requester-id - The ID of the entity that launched the+-- instance on your behalf (for example, AWS Management Console, Auto+-- Scaling, and so on). requester-managed - Indicates whether the network+-- interface is being managed by an AWS service (for example, AWS Management+-- Console, Auto Scaling, and so on). source-desk-check - Indicates whether+-- the network interface performs source/destination checking. A value of+-- true means checking is enabled, and false means checking is disabled. The+-- value must be false for the network interface to perform Network Address+-- Translation (NAT) in your VPC. status - The status of the network+-- interface. If the network interface is not attached to an instance, the+-- status is available; if a network interface is attached to an instance+-- the status is in-use. subnet-id - The ID of the subnet for the network+-- interface. tag:key=value - The key/value combination of a tag assigned to+-- the resource. tag-key - The key of a tag assigned to the resource. This+-- filter is independent of the tag-value filter. For example, if you use+-- both the filter "tag-key=Purpose" and the filter "tag-value=X", you get+-- any resources assigned both the tag key Purpose (regardless of what the+-- tag's value is), and the tag value X (regardless of what the tag's key+-- is). If you want to list only resources where Purpose is X, see the+-- tag:key=value filter. tag-value - The value of a tag assigned to the+-- resource. This filter is independent of the tag-key filter. vpc-id - The+-- ID of the VPC for the network interface.+dni1Filters :: Lens' DescribeNetworkInterfaces [Filter]+dni1Filters = lens _dni1Filters (\s a -> s { _dni1Filters = a }) . _List++-- | One or more network interface IDs. Default: Describes all your network+-- interfaces.+dni1NetworkInterfaceIds :: Lens' DescribeNetworkInterfaces [Text]+dni1NetworkInterfaceIds =+    lens _dni1NetworkInterfaceIds (\s a -> s { _dni1NetworkInterfaceIds = a })+        . _List++newtype DescribeNetworkInterfacesResponse = DescribeNetworkInterfacesResponse+    { _dnirNetworkInterfaces :: List "item" NetworkInterface+    } deriving (Eq, Show, Monoid, Semigroup)++instance GHC.Exts.IsList DescribeNetworkInterfacesResponse where+    type Item DescribeNetworkInterfacesResponse = NetworkInterface++    fromList = DescribeNetworkInterfacesResponse . GHC.Exts.fromList+    toList   = GHC.Exts.toList . _dnirNetworkInterfaces++-- | 'DescribeNetworkInterfacesResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'dnirNetworkInterfaces' @::@ ['NetworkInterface']+--+describeNetworkInterfacesResponse :: DescribeNetworkInterfacesResponse+describeNetworkInterfacesResponse = DescribeNetworkInterfacesResponse+    { _dnirNetworkInterfaces = mempty+    }++-- | Information about one or more network interfaces.+dnirNetworkInterfaces :: Lens' DescribeNetworkInterfacesResponse [NetworkInterface]+dnirNetworkInterfaces =+    lens _dnirNetworkInterfaces (\s a -> s { _dnirNetworkInterfaces = a })+        . _List++instance ToPath DescribeNetworkInterfaces where+    toPath = const "/"++instance ToQuery DescribeNetworkInterfaces where+    toQuery DescribeNetworkInterfaces{..} = mconcat+        [ "dryRun"             =? _dni1DryRun+        , "filter"             =? _dni1Filters+        , "NetworkInterfaceId" =? _dni1NetworkInterfaceIds+        ]++instance ToHeaders DescribeNetworkInterfaces++instance AWSRequest DescribeNetworkInterfaces where+    type Sv DescribeNetworkInterfaces = EC2+    type Rs DescribeNetworkInterfaces = DescribeNetworkInterfacesResponse++    request  = post "DescribeNetworkInterfaces"+    response = xmlResponse++instance FromXML DescribeNetworkInterfacesResponse where+    parseXML x = DescribeNetworkInterfacesResponse+        <$> x .@  "networkInterfaceSet"
+ gen/Network/AWS/EC2/DescribePlacementGroups.hs view
@@ -0,0 +1,137 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.DescribePlacementGroups+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Describes one or more of your placement groups. For more information about+-- placement groups and cluster instances, see Cluster Instances in the Amazon+-- Elastic Compute Cloud User Guide.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-DescribePlacementGroups.html>+module Network.AWS.EC2.DescribePlacementGroups+    (+    -- * Request+      DescribePlacementGroups+    -- ** Request constructor+    , describePlacementGroups+    -- ** Request lenses+    , dpg1DryRun+    , dpg1Filters+    , dpg1GroupNames++    -- * Response+    , DescribePlacementGroupsResponse+    -- ** Response constructor+    , describePlacementGroupsResponse+    -- ** Response lenses+    , dpgrPlacementGroups+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data DescribePlacementGroups = DescribePlacementGroups+    { _dpg1DryRun     :: Maybe Bool+    , _dpg1Filters    :: List "Filter" Filter+    , _dpg1GroupNames :: List "groupName" Text+    } deriving (Eq, Show)++-- | 'DescribePlacementGroups' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'dpg1DryRun' @::@ 'Maybe' 'Bool'+--+-- * 'dpg1Filters' @::@ ['Filter']+--+-- * 'dpg1GroupNames' @::@ ['Text']+--+describePlacementGroups :: DescribePlacementGroups+describePlacementGroups = DescribePlacementGroups+    { _dpg1DryRun     = Nothing+    , _dpg1GroupNames = mempty+    , _dpg1Filters    = mempty+    }++dpg1DryRun :: Lens' DescribePlacementGroups (Maybe Bool)+dpg1DryRun = lens _dpg1DryRun (\s a -> s { _dpg1DryRun = a })++-- | One or more filters. group-name - The name of the placement group. state+-- - The state of the placement group (pending | available | deleting |+-- deleted). strategy - The strategy of the placement group (cluster).+dpg1Filters :: Lens' DescribePlacementGroups [Filter]+dpg1Filters = lens _dpg1Filters (\s a -> s { _dpg1Filters = a }) . _List++-- | One or more placement group names. Default: Describes all your placement+-- groups, or only those otherwise specified.+dpg1GroupNames :: Lens' DescribePlacementGroups [Text]+dpg1GroupNames = lens _dpg1GroupNames (\s a -> s { _dpg1GroupNames = a }) . _List++newtype DescribePlacementGroupsResponse = DescribePlacementGroupsResponse+    { _dpgrPlacementGroups :: List "item" PlacementGroup+    } deriving (Eq, Show, Monoid, Semigroup)++instance GHC.Exts.IsList DescribePlacementGroupsResponse where+    type Item DescribePlacementGroupsResponse = PlacementGroup++    fromList = DescribePlacementGroupsResponse . GHC.Exts.fromList+    toList   = GHC.Exts.toList . _dpgrPlacementGroups++-- | 'DescribePlacementGroupsResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'dpgrPlacementGroups' @::@ ['PlacementGroup']+--+describePlacementGroupsResponse :: DescribePlacementGroupsResponse+describePlacementGroupsResponse = DescribePlacementGroupsResponse+    { _dpgrPlacementGroups = mempty+    }++-- | One or more placement groups.+dpgrPlacementGroups :: Lens' DescribePlacementGroupsResponse [PlacementGroup]+dpgrPlacementGroups =+    lens _dpgrPlacementGroups (\s a -> s { _dpgrPlacementGroups = a })+        . _List++instance ToPath DescribePlacementGroups where+    toPath = const "/"++instance ToQuery DescribePlacementGroups where+    toQuery DescribePlacementGroups{..} = mconcat+        [ "dryRun"    =? _dpg1DryRun+        , "Filter"    =? _dpg1Filters+        , "groupName" =? _dpg1GroupNames+        ]++instance ToHeaders DescribePlacementGroups++instance AWSRequest DescribePlacementGroups where+    type Sv DescribePlacementGroups = EC2+    type Rs DescribePlacementGroups = DescribePlacementGroupsResponse++    request  = post "DescribePlacementGroups"+    response = xmlResponse++instance FromXML DescribePlacementGroupsResponse where+    parseXML x = DescribePlacementGroupsResponse+        <$> x .@  "placementGroupSet"
+ gen/Network/AWS/EC2/DescribeRegions.hs view
@@ -0,0 +1,133 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.DescribeRegions+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Describes one or more regions that are currently available to you. For a+-- list of the regions supported by Amazon EC2, see Regions and Endpoints.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-DescribeRegions.html>+module Network.AWS.EC2.DescribeRegions+    (+    -- * Request+      DescribeRegions+    -- ** Request constructor+    , describeRegions+    -- ** Request lenses+    , dr1DryRun+    , dr1Filters+    , dr1RegionNames++    -- * Response+    , DescribeRegionsResponse+    -- ** Response constructor+    , describeRegionsResponse+    -- ** Response lenses+    , drrRegions+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data DescribeRegions = DescribeRegions+    { _dr1DryRun      :: Maybe Bool+    , _dr1Filters     :: List "Filter" Filter+    , _dr1RegionNames :: List "RegionName" Text+    } deriving (Eq, Show)++-- | 'DescribeRegions' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'dr1DryRun' @::@ 'Maybe' 'Bool'+--+-- * 'dr1Filters' @::@ ['Filter']+--+-- * 'dr1RegionNames' @::@ ['Text']+--+describeRegions :: DescribeRegions+describeRegions = DescribeRegions+    { _dr1DryRun      = Nothing+    , _dr1RegionNames = mempty+    , _dr1Filters     = mempty+    }++dr1DryRun :: Lens' DescribeRegions (Maybe Bool)+dr1DryRun = lens _dr1DryRun (\s a -> s { _dr1DryRun = a })++-- | One or more filters. endpoint - The endpoint of the region (for example,+-- ec2.us-east-1.amazonaws.com). region-name - The name of the region (for+-- example, us-east-1).+dr1Filters :: Lens' DescribeRegions [Filter]+dr1Filters = lens _dr1Filters (\s a -> s { _dr1Filters = a }) . _List++-- | The names of one or more regions.+dr1RegionNames :: Lens' DescribeRegions [Text]+dr1RegionNames = lens _dr1RegionNames (\s a -> s { _dr1RegionNames = a }) . _List++newtype DescribeRegionsResponse = DescribeRegionsResponse+    { _drrRegions :: List "item" Region+    } deriving (Eq, Show, Monoid, Semigroup)++instance GHC.Exts.IsList DescribeRegionsResponse where+    type Item DescribeRegionsResponse = Region++    fromList = DescribeRegionsResponse . GHC.Exts.fromList+    toList   = GHC.Exts.toList . _drrRegions++-- | 'DescribeRegionsResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'drrRegions' @::@ ['Region']+--+describeRegionsResponse :: DescribeRegionsResponse+describeRegionsResponse = DescribeRegionsResponse+    { _drrRegions = mempty+    }++-- | Information about one or more regions.+drrRegions :: Lens' DescribeRegionsResponse [Region]+drrRegions = lens _drrRegions (\s a -> s { _drrRegions = a }) . _List++instance ToPath DescribeRegions where+    toPath = const "/"++instance ToQuery DescribeRegions where+    toQuery DescribeRegions{..} = mconcat+        [ "dryRun"     =? _dr1DryRun+        , "Filter"     =? _dr1Filters+        , "RegionName" =? _dr1RegionNames+        ]++instance ToHeaders DescribeRegions++instance AWSRequest DescribeRegions where+    type Sv DescribeRegions = EC2+    type Rs DescribeRegions = DescribeRegionsResponse++    request  = post "DescribeRegions"+    response = xmlResponse++instance FromXML DescribeRegionsResponse where+    parseXML x = DescribeRegionsResponse+        <$> x .@  "regionInfo"
+ gen/Network/AWS/EC2/DescribeReservedInstances.hs view
@@ -0,0 +1,171 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.DescribeReservedInstances+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Describes one or more of the Reserved Instances that you purchased. For+-- more information about Reserved Instances, see Reserved Instances in the+-- Amazon Elastic Compute Cloud User Guide.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-DescribeReservedInstances.html>+module Network.AWS.EC2.DescribeReservedInstances+    (+    -- * Request+      DescribeReservedInstances+    -- ** Request constructor+    , describeReservedInstances+    -- ** Request lenses+    , driDryRun+    , driFilters+    , driOfferingType+    , driReservedInstancesIds++    -- * Response+    , DescribeReservedInstancesResponse+    -- ** Response constructor+    , describeReservedInstancesResponse+    -- ** Response lenses+    , drirReservedInstances+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data DescribeReservedInstances = DescribeReservedInstances+    { _driDryRun               :: Maybe Bool+    , _driFilters              :: List "Filter" Filter+    , _driOfferingType         :: Maybe Text+    , _driReservedInstancesIds :: List "ReservedInstancesId" Text+    } deriving (Eq, Show)++-- | 'DescribeReservedInstances' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'driDryRun' @::@ 'Maybe' 'Bool'+--+-- * 'driFilters' @::@ ['Filter']+--+-- * 'driOfferingType' @::@ 'Maybe' 'Text'+--+-- * 'driReservedInstancesIds' @::@ ['Text']+--+describeReservedInstances :: DescribeReservedInstances+describeReservedInstances = DescribeReservedInstances+    { _driDryRun               = Nothing+    , _driReservedInstancesIds = mempty+    , _driFilters              = mempty+    , _driOfferingType         = Nothing+    }++driDryRun :: Lens' DescribeReservedInstances (Maybe Bool)+driDryRun = lens _driDryRun (\s a -> s { _driDryRun = a })++-- | One or more filters. availability-zone - The Availability Zone where the+-- Reserved Instance can be used. duration - The duration of the Reserved+-- Instance (one year or three years), in seconds (31536000 | 94608000). end+-- - The time when the Reserved Instance expires (for example,+-- 2014-08-07T11:54:42.000Z). fixed-price - The purchase price of the+-- Reserved Instance (for example, 9800.0). instance-type - The instance+-- type on which the Reserved Instance can be used. product-description -+-- The product description of the Reserved Instance (Linux/UNIX | Linux/UNIX+-- (Amazon VPC) | Windows | Windows (Amazon VPC)). reserved-instances-id -+-- The ID of the Reserved Instance. start - The time at which the Reserved+-- Instance purchase request was placed (for example,+-- 2014-08-07T11:54:42.000Z). state - The state of the Reserved Instance+-- (pending-payment | active | payment-failed | retired). tag:key=value -+-- The key/value combination of a tag assigned to the resource. tag-key -+-- The key of a tag assigned to the resource. This filter is independent of+-- the tag-value filter. For example, if you use both the filter+-- "tag-key=Purpose" and the filter "tag-value=X", you get any resources+-- assigned both the tag key Purpose (regardless of what the tag's value+-- is), and the tag value X (regardless of what the tag's key is). If you+-- want to list only resources where Purpose is X, see the tag:key=value+-- filter. tag-value - The value of a tag assigned to the resource. This+-- filter is independent of the tag-key filter. usage-price - The usage+-- price of the Reserved Instance, per hour (for example, 0.84).+driFilters :: Lens' DescribeReservedInstances [Filter]+driFilters = lens _driFilters (\s a -> s { _driFilters = a }) . _List++-- | The Reserved Instance offering type. If you are using tools that predate+-- the 2011-11-01 API version, you only have access to the Medium+-- Utilization Reserved Instance offering type.+driOfferingType :: Lens' DescribeReservedInstances (Maybe Text)+driOfferingType = lens _driOfferingType (\s a -> s { _driOfferingType = a })++-- | One or more Reserved Instance IDs. Default: Describes all your Reserved+-- Instances, or only those otherwise specified.+driReservedInstancesIds :: Lens' DescribeReservedInstances [Text]+driReservedInstancesIds =+    lens _driReservedInstancesIds (\s a -> s { _driReservedInstancesIds = a })+        . _List++newtype DescribeReservedInstancesResponse = DescribeReservedInstancesResponse+    { _drirReservedInstances :: List "item" ReservedInstances+    } deriving (Eq, Show, Monoid, Semigroup)++instance GHC.Exts.IsList DescribeReservedInstancesResponse where+    type Item DescribeReservedInstancesResponse = ReservedInstances++    fromList = DescribeReservedInstancesResponse . GHC.Exts.fromList+    toList   = GHC.Exts.toList . _drirReservedInstances++-- | 'DescribeReservedInstancesResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'drirReservedInstances' @::@ ['ReservedInstances']+--+describeReservedInstancesResponse :: DescribeReservedInstancesResponse+describeReservedInstancesResponse = DescribeReservedInstancesResponse+    { _drirReservedInstances = mempty+    }++-- | A list of Reserved Instances.+drirReservedInstances :: Lens' DescribeReservedInstancesResponse [ReservedInstances]+drirReservedInstances =+    lens _drirReservedInstances (\s a -> s { _drirReservedInstances = a })+        . _List++instance ToPath DescribeReservedInstances where+    toPath = const "/"++instance ToQuery DescribeReservedInstances where+    toQuery DescribeReservedInstances{..} = mconcat+        [ "dryRun"              =? _driDryRun+        , "Filter"              =? _driFilters+        , "offeringType"        =? _driOfferingType+        , "ReservedInstancesId" =? _driReservedInstancesIds+        ]++instance ToHeaders DescribeReservedInstances++instance AWSRequest DescribeReservedInstances where+    type Sv DescribeReservedInstances = EC2+    type Rs DescribeReservedInstances = DescribeReservedInstancesResponse++    request  = post "DescribeReservedInstances"+    response = xmlResponse++instance FromXML DescribeReservedInstancesResponse where+    parseXML x = DescribeReservedInstancesResponse+        <$> x .@  "reservedInstancesSet"
+ gen/Network/AWS/EC2/DescribeReservedInstancesListings.hs view
@@ -0,0 +1,156 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.DescribeReservedInstancesListings+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Describes your account's Reserved Instance listings in the Reserved+-- Instance Marketplace. The Reserved Instance Marketplace matches sellers who+-- want to resell Reserved Instance capacity that they no longer need with+-- buyers who want to purchase additional capacity. Reserved Instances bought+-- and sold through the Reserved Instance Marketplace work like any other+-- Reserved Instances. As a seller, you choose to list some or all of your+-- Reserved Instances, and you specify the upfront price to receive for them.+-- Your Reserved Instances are then listed in the Reserved Instance+-- Marketplace and are available for purchase. As a buyer, you specify the+-- configuration of the Reserved Instance to purchase, and the Marketplace+-- matches what you're searching for with what's available. The Marketplace+-- first sells the lowest priced Reserved Instances to you, and continues to+-- sell available Reserved Instance listings to you until your demand is met.+-- You are charged based on the total price of all of the listings that you+-- purchase. For more information, see Reserved Instance Marketplace in the+-- Amazon Elastic Compute Cloud User Guide.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-DescribeReservedInstancesListings.html>+module Network.AWS.EC2.DescribeReservedInstancesListings+    (+    -- * Request+      DescribeReservedInstancesListings+    -- ** Request constructor+    , describeReservedInstancesListings+    -- ** Request lenses+    , drilFilters+    , drilReservedInstancesId+    , drilReservedInstancesListingId++    -- * Response+    , DescribeReservedInstancesListingsResponse+    -- ** Response constructor+    , describeReservedInstancesListingsResponse+    -- ** Response lenses+    , drilrReservedInstancesListings+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data DescribeReservedInstancesListings = DescribeReservedInstancesListings+    { _drilFilters                    :: List "Filter" Filter+    , _drilReservedInstancesId        :: Maybe Text+    , _drilReservedInstancesListingId :: Maybe Text+    } deriving (Eq, Show)++-- | 'DescribeReservedInstancesListings' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'drilFilters' @::@ ['Filter']+--+-- * 'drilReservedInstancesId' @::@ 'Maybe' 'Text'+--+-- * 'drilReservedInstancesListingId' @::@ 'Maybe' 'Text'+--+describeReservedInstancesListings :: DescribeReservedInstancesListings+describeReservedInstancesListings = DescribeReservedInstancesListings+    { _drilReservedInstancesId        = Nothing+    , _drilReservedInstancesListingId = Nothing+    , _drilFilters                    = mempty+    }++-- | One or more filters. reserved-instances-id - The ID of the Reserved+-- Instances. reserved-instances-listing-id - The ID of the Reserved+-- Instances listing. status - The status of the Reserved Instance listing+-- (pending | active | cancelled | closed). status-message - The reason for+-- the status.+drilFilters :: Lens' DescribeReservedInstancesListings [Filter]+drilFilters = lens _drilFilters (\s a -> s { _drilFilters = a }) . _List++-- | One or more Reserved Instance IDs.+drilReservedInstancesId :: Lens' DescribeReservedInstancesListings (Maybe Text)+drilReservedInstancesId =+    lens _drilReservedInstancesId (\s a -> s { _drilReservedInstancesId = a })++-- | One or more Reserved Instance Listing IDs.+drilReservedInstancesListingId :: Lens' DescribeReservedInstancesListings (Maybe Text)+drilReservedInstancesListingId =+    lens _drilReservedInstancesListingId+        (\s a -> s { _drilReservedInstancesListingId = a })++newtype DescribeReservedInstancesListingsResponse = DescribeReservedInstancesListingsResponse+    { _drilrReservedInstancesListings :: List "item" ReservedInstancesListing+    } deriving (Eq, Show, Monoid, Semigroup)++instance GHC.Exts.IsList DescribeReservedInstancesListingsResponse where+    type Item DescribeReservedInstancesListingsResponse = ReservedInstancesListing++    fromList = DescribeReservedInstancesListingsResponse . GHC.Exts.fromList+    toList   = GHC.Exts.toList . _drilrReservedInstancesListings++-- | 'DescribeReservedInstancesListingsResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'drilrReservedInstancesListings' @::@ ['ReservedInstancesListing']+--+describeReservedInstancesListingsResponse :: DescribeReservedInstancesListingsResponse+describeReservedInstancesListingsResponse = DescribeReservedInstancesListingsResponse+    { _drilrReservedInstancesListings = mempty+    }++-- | Information about the Reserved Instance listing.+drilrReservedInstancesListings :: Lens' DescribeReservedInstancesListingsResponse [ReservedInstancesListing]+drilrReservedInstancesListings =+    lens _drilrReservedInstancesListings+        (\s a -> s { _drilrReservedInstancesListings = a })+            . _List++instance ToPath DescribeReservedInstancesListings where+    toPath = const "/"++instance ToQuery DescribeReservedInstancesListings where+    toQuery DescribeReservedInstancesListings{..} = mconcat+        [ "filters"                    =? _drilFilters+        , "reservedInstancesId"        =? _drilReservedInstancesId+        , "reservedInstancesListingId" =? _drilReservedInstancesListingId+        ]++instance ToHeaders DescribeReservedInstancesListings++instance AWSRequest DescribeReservedInstancesListings where+    type Sv DescribeReservedInstancesListings = EC2+    type Rs DescribeReservedInstancesListings = DescribeReservedInstancesListingsResponse++    request  = post "DescribeReservedInstancesListings"+    response = xmlResponse++instance FromXML DescribeReservedInstancesListingsResponse where+    parseXML x = DescribeReservedInstancesListingsResponse+        <$> x .@  "reservedInstancesListingsSet"
+ gen/Network/AWS/EC2/DescribeReservedInstancesModifications.hs view
@@ -0,0 +1,171 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.DescribeReservedInstancesModifications+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Describes the modifications made to your Reserved Instances. If no+-- parameter is specified, information about all your Reserved Instances+-- modification requests is returned. If a modification ID is specified, only+-- information about the specific modification is returned. For more+-- information, see Modifying Reserved Instances in the Amazon Elastic Compute+-- Cloud User Guide.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-DescribeReservedInstancesModifications.html>+module Network.AWS.EC2.DescribeReservedInstancesModifications+    (+    -- * Request+      DescribeReservedInstancesModifications+    -- ** Request constructor+    , describeReservedInstancesModifications+    -- ** Request lenses+    , drimFilters+    , drimNextToken+    , drimReservedInstancesModificationIds++    -- * Response+    , DescribeReservedInstancesModificationsResponse+    -- ** Response constructor+    , describeReservedInstancesModificationsResponse+    -- ** Response lenses+    , drimrNextToken+    , drimrReservedInstancesModifications+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data DescribeReservedInstancesModifications = DescribeReservedInstancesModifications+    { _drimFilters                          :: List "Filter" Filter+    , _drimNextToken                        :: Maybe Text+    , _drimReservedInstancesModificationIds :: List "ReservedInstancesModificationId" Text+    } deriving (Eq, Show)++-- | 'DescribeReservedInstancesModifications' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'drimFilters' @::@ ['Filter']+--+-- * 'drimNextToken' @::@ 'Maybe' 'Text'+--+-- * 'drimReservedInstancesModificationIds' @::@ ['Text']+--+describeReservedInstancesModifications :: DescribeReservedInstancesModifications+describeReservedInstancesModifications = DescribeReservedInstancesModifications+    { _drimReservedInstancesModificationIds = mempty+    , _drimNextToken                        = Nothing+    , _drimFilters                          = mempty+    }++-- | One or more filters. client-token - The idempotency token for the+-- modification request. create-date - The time when the modification+-- request was created. effective-date - The time when the modification+-- becomes effective. modification-result.reserved-instances-id - The ID for+-- the Reserved Instances created as part of the modification request. This+-- ID is only available when the status of the modification is fulfilled.+-- modification-result.target-configuration.availability-zone - The+-- Availability Zone for the new Reserved Instances.+-- modification-result.target-configuration.instance-count - The number of+-- new Reserved Instances.+-- modification-result.target-configuration.instance-type - The instance+-- type of the new Reserved Instances.+-- modification-result.target-configuration.platform - The network platform+-- of the new Reserved Instances (EC2-Classic | EC2-VPC).+-- reserved-instances-id - The ID of the Reserved Instances modified.+-- reserved-instances-modification-id - The ID of the modification request.+-- status - The status of the Reserved Instances modification request+-- (processing | fulfilled | failed). status-message - The reason for the+-- status. update-date - The time when the modification request was last+-- updated.+drimFilters :: Lens' DescribeReservedInstancesModifications [Filter]+drimFilters = lens _drimFilters (\s a -> s { _drimFilters = a }) . _List++-- | The token for the next page of data.+drimNextToken :: Lens' DescribeReservedInstancesModifications (Maybe Text)+drimNextToken = lens _drimNextToken (\s a -> s { _drimNextToken = a })++-- | IDs for the submitted modification request.+drimReservedInstancesModificationIds :: Lens' DescribeReservedInstancesModifications [Text]+drimReservedInstancesModificationIds =+    lens _drimReservedInstancesModificationIds+        (\s a -> s { _drimReservedInstancesModificationIds = a })+            . _List++data DescribeReservedInstancesModificationsResponse = DescribeReservedInstancesModificationsResponse+    { _drimrNextToken                      :: Maybe Text+    , _drimrReservedInstancesModifications :: List "item" ReservedInstancesModification+    } deriving (Eq, Show)++-- | 'DescribeReservedInstancesModificationsResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'drimrNextToken' @::@ 'Maybe' 'Text'+--+-- * 'drimrReservedInstancesModifications' @::@ ['ReservedInstancesModification']+--+describeReservedInstancesModificationsResponse :: DescribeReservedInstancesModificationsResponse+describeReservedInstancesModificationsResponse = DescribeReservedInstancesModificationsResponse+    { _drimrReservedInstancesModifications = mempty+    , _drimrNextToken                      = Nothing+    }++-- | The token for the next page of data.+drimrNextToken :: Lens' DescribeReservedInstancesModificationsResponse (Maybe Text)+drimrNextToken = lens _drimrNextToken (\s a -> s { _drimrNextToken = a })++-- | The Reserved Instance modification information.+drimrReservedInstancesModifications :: Lens' DescribeReservedInstancesModificationsResponse [ReservedInstancesModification]+drimrReservedInstancesModifications =+    lens _drimrReservedInstancesModifications+        (\s a -> s { _drimrReservedInstancesModifications = a })+            . _List++instance ToPath DescribeReservedInstancesModifications where+    toPath = const "/"++instance ToQuery DescribeReservedInstancesModifications where+    toQuery DescribeReservedInstancesModifications{..} = mconcat+        [ "Filter"                          =? _drimFilters+        , "nextToken"                       =? _drimNextToken+        , "ReservedInstancesModificationId" =? _drimReservedInstancesModificationIds+        ]++instance ToHeaders DescribeReservedInstancesModifications++instance AWSRequest DescribeReservedInstancesModifications where+    type Sv DescribeReservedInstancesModifications = EC2+    type Rs DescribeReservedInstancesModifications = DescribeReservedInstancesModificationsResponse++    request  = post "DescribeReservedInstancesModifications"+    response = xmlResponse++instance FromXML DescribeReservedInstancesModificationsResponse where+    parseXML x = DescribeReservedInstancesModificationsResponse+        <$> x .@? "nextToken"+        <*> x .@  "reservedInstancesModificationsSet"++instance AWSPager DescribeReservedInstancesModifications where+    page rq rs+        | stop (rq ^. drimNextToken) = Nothing+        | otherwise = (\x -> rq & drimNextToken ?~ x)+            <$> (rs ^. drimrNextToken)
+ gen/Network/AWS/EC2/DescribeReservedInstancesOfferings.hs view
@@ -0,0 +1,289 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.DescribeReservedInstancesOfferings+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Describes Reserved Instance offerings that are available for purchase. With+-- Reserved Instances, you purchase the right to launch instances for a period+-- of time. During that time period, you do not receive insufficient capacity+-- errors, and you pay a lower usage rate than the rate charged for On-Demand+-- instances for the actual time used. For more information, see Reserved+-- Instance Marketplace in the Amazon Elastic Compute Cloud User Guide.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-DescribeReservedInstancesOfferings.html>+module Network.AWS.EC2.DescribeReservedInstancesOfferings+    (+    -- * Request+      DescribeReservedInstancesOfferings+    -- ** Request constructor+    , describeReservedInstancesOfferings+    -- ** Request lenses+    , drioAvailabilityZone+    , drioDryRun+    , drioFilters+    , drioIncludeMarketplace+    , drioInstanceTenancy+    , drioInstanceType+    , drioMaxDuration+    , drioMaxInstanceCount+    , drioMaxResults+    , drioMinDuration+    , drioNextToken+    , drioOfferingType+    , drioProductDescription+    , drioReservedInstancesOfferingIds++    -- * Response+    , DescribeReservedInstancesOfferingsResponse+    -- ** Response constructor+    , describeReservedInstancesOfferingsResponse+    -- ** Response lenses+    , driorNextToken+    , driorReservedInstancesOfferings+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data DescribeReservedInstancesOfferings = DescribeReservedInstancesOfferings+    { _drioAvailabilityZone             :: Maybe Text+    , _drioDryRun                       :: Maybe Bool+    , _drioFilters                      :: List "Filter" Filter+    , _drioIncludeMarketplace           :: Maybe Bool+    , _drioInstanceTenancy              :: Maybe Text+    , _drioInstanceType                 :: Maybe Text+    , _drioMaxDuration                  :: Maybe Integer+    , _drioMaxInstanceCount             :: Maybe Int+    , _drioMaxResults                   :: Maybe Int+    , _drioMinDuration                  :: Maybe Integer+    , _drioNextToken                    :: Maybe Text+    , _drioOfferingType                 :: Maybe Text+    , _drioProductDescription           :: Maybe Text+    , _drioReservedInstancesOfferingIds :: List "ReservedInstancesOfferingId" Text+    } deriving (Eq, Show)++-- | 'DescribeReservedInstancesOfferings' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'drioAvailabilityZone' @::@ 'Maybe' 'Text'+--+-- * 'drioDryRun' @::@ 'Maybe' 'Bool'+--+-- * 'drioFilters' @::@ ['Filter']+--+-- * 'drioIncludeMarketplace' @::@ 'Maybe' 'Bool'+--+-- * 'drioInstanceTenancy' @::@ 'Maybe' 'Text'+--+-- * 'drioInstanceType' @::@ 'Maybe' 'Text'+--+-- * 'drioMaxDuration' @::@ 'Maybe' 'Integer'+--+-- * 'drioMaxInstanceCount' @::@ 'Maybe' 'Int'+--+-- * 'drioMaxResults' @::@ 'Maybe' 'Int'+--+-- * 'drioMinDuration' @::@ 'Maybe' 'Integer'+--+-- * 'drioNextToken' @::@ 'Maybe' 'Text'+--+-- * 'drioOfferingType' @::@ 'Maybe' 'Text'+--+-- * 'drioProductDescription' @::@ 'Maybe' 'Text'+--+-- * 'drioReservedInstancesOfferingIds' @::@ ['Text']+--+describeReservedInstancesOfferings :: DescribeReservedInstancesOfferings+describeReservedInstancesOfferings = DescribeReservedInstancesOfferings+    { _drioDryRun                       = Nothing+    , _drioReservedInstancesOfferingIds = mempty+    , _drioInstanceType                 = Nothing+    , _drioAvailabilityZone             = Nothing+    , _drioProductDescription           = Nothing+    , _drioFilters                      = mempty+    , _drioInstanceTenancy              = Nothing+    , _drioOfferingType                 = Nothing+    , _drioNextToken                    = Nothing+    , _drioMaxResults                   = Nothing+    , _drioIncludeMarketplace           = Nothing+    , _drioMinDuration                  = Nothing+    , _drioMaxDuration                  = Nothing+    , _drioMaxInstanceCount             = Nothing+    }++-- | The Availability Zone in which the Reserved Instance can be used.+drioAvailabilityZone :: Lens' DescribeReservedInstancesOfferings (Maybe Text)+drioAvailabilityZone =+    lens _drioAvailabilityZone (\s a -> s { _drioAvailabilityZone = a })++drioDryRun :: Lens' DescribeReservedInstancesOfferings (Maybe Bool)+drioDryRun = lens _drioDryRun (\s a -> s { _drioDryRun = a })++-- | One or more filters. availability-zone - The Availability Zone where the+-- Reserved Instance can be used. duration - The duration of the Reserved+-- Instance (for example, one year or three years), in seconds (31536000 |+-- 94608000). fixed-price - The purchase price of the Reserved Instance (for+-- example, 9800.0). instance-type - The instance type on which the Reserved+-- Instance can be used. marketplace - Set to true to show only Reserved+-- Instance Marketplace offerings. When this filter is not used, which is+-- the default behavior, all offerings from AWS and Reserved Instance+-- Marketplace are listed. product-description - The description of the+-- Reserved Instance (Linux/UNIX | Linux/UNIX (Amazon VPC) | Windows |+-- Windows (Amazon VPC)). reserved-instances-offering-id - The Reserved+-- Instances offering ID. usage-price - The usage price of the Reserved+-- Instance, per hour (for example, 0.84).+drioFilters :: Lens' DescribeReservedInstancesOfferings [Filter]+drioFilters = lens _drioFilters (\s a -> s { _drioFilters = a }) . _List++-- | Include Marketplace offerings in the response.+drioIncludeMarketplace :: Lens' DescribeReservedInstancesOfferings (Maybe Bool)+drioIncludeMarketplace =+    lens _drioIncludeMarketplace (\s a -> s { _drioIncludeMarketplace = a })++-- | The tenancy of the Reserved Instance offering. A Reserved Instance with+-- dedicated tenancy runs on single-tenant hardware and can only be launched+-- within a VPC. Default: default.+drioInstanceTenancy :: Lens' DescribeReservedInstancesOfferings (Maybe Text)+drioInstanceTenancy =+    lens _drioInstanceTenancy (\s a -> s { _drioInstanceTenancy = a })++-- | The instance type on which the Reserved Instance can be used. For more+-- information, see Instance Types in the Amazon Elastic Compute Cloud User+-- Guide.+drioInstanceType :: Lens' DescribeReservedInstancesOfferings (Maybe Text)+drioInstanceType = lens _drioInstanceType (\s a -> s { _drioInstanceType = a })++-- | The maximum duration (in seconds) to filter when searching for offerings.+-- Default: 94608000 (3 years).+drioMaxDuration :: Lens' DescribeReservedInstancesOfferings (Maybe Integer)+drioMaxDuration = lens _drioMaxDuration (\s a -> s { _drioMaxDuration = a })++-- | The maximum number of instances to filter when searching for offerings.+-- Default: 20.+drioMaxInstanceCount :: Lens' DescribeReservedInstancesOfferings (Maybe Int)+drioMaxInstanceCount =+    lens _drioMaxInstanceCount (\s a -> s { _drioMaxInstanceCount = a })++-- | The maximum number of offerings to return. The maximum is 100. Default:+-- 100.+drioMaxResults :: Lens' DescribeReservedInstancesOfferings (Maybe Int)+drioMaxResults = lens _drioMaxResults (\s a -> s { _drioMaxResults = a })++-- | The minimum duration (in seconds) to filter when searching for offerings.+-- Default: 2592000 (1 month).+drioMinDuration :: Lens' DescribeReservedInstancesOfferings (Maybe Integer)+drioMinDuration = lens _drioMinDuration (\s a -> s { _drioMinDuration = a })++-- | The token to use when requesting the next paginated set of offerings.+drioNextToken :: Lens' DescribeReservedInstancesOfferings (Maybe Text)+drioNextToken = lens _drioNextToken (\s a -> s { _drioNextToken = a })++-- | The Reserved Instance offering type. If you are using tools that predate+-- the 2011-11-01 API version, you only have access to the Medium+-- Utilization Reserved Instance offering type.+drioOfferingType :: Lens' DescribeReservedInstancesOfferings (Maybe Text)+drioOfferingType = lens _drioOfferingType (\s a -> s { _drioOfferingType = a })++-- | The Reserved Instance description. Instances that include (Amazon VPC) in+-- the description are for use with Amazon VPC.+drioProductDescription :: Lens' DescribeReservedInstancesOfferings (Maybe Text)+drioProductDescription =+    lens _drioProductDescription (\s a -> s { _drioProductDescription = a })++-- | One or more Reserved Instances offering IDs.+drioReservedInstancesOfferingIds :: Lens' DescribeReservedInstancesOfferings [Text]+drioReservedInstancesOfferingIds =+    lens _drioReservedInstancesOfferingIds+        (\s a -> s { _drioReservedInstancesOfferingIds = a })+            . _List++data DescribeReservedInstancesOfferingsResponse = DescribeReservedInstancesOfferingsResponse+    { _driorNextToken                  :: Maybe Text+    , _driorReservedInstancesOfferings :: List "item" ReservedInstancesOffering+    } deriving (Eq, Show)++-- | 'DescribeReservedInstancesOfferingsResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'driorNextToken' @::@ 'Maybe' 'Text'+--+-- * 'driorReservedInstancesOfferings' @::@ ['ReservedInstancesOffering']+--+describeReservedInstancesOfferingsResponse :: DescribeReservedInstancesOfferingsResponse+describeReservedInstancesOfferingsResponse = DescribeReservedInstancesOfferingsResponse+    { _driorReservedInstancesOfferings = mempty+    , _driorNextToken                  = Nothing+    }++-- | The next paginated set of results to return.+driorNextToken :: Lens' DescribeReservedInstancesOfferingsResponse (Maybe Text)+driorNextToken = lens _driorNextToken (\s a -> s { _driorNextToken = a })++-- | A list of Reserved Instances offerings.+driorReservedInstancesOfferings :: Lens' DescribeReservedInstancesOfferingsResponse [ReservedInstancesOffering]+driorReservedInstancesOfferings =+    lens _driorReservedInstancesOfferings+        (\s a -> s { _driorReservedInstancesOfferings = a })+            . _List++instance ToPath DescribeReservedInstancesOfferings where+    toPath = const "/"++instance ToQuery DescribeReservedInstancesOfferings where+    toQuery DescribeReservedInstancesOfferings{..} = mconcat+        [ "AvailabilityZone"            =? _drioAvailabilityZone+        , "dryRun"                      =? _drioDryRun+        , "Filter"                      =? _drioFilters+        , "IncludeMarketplace"          =? _drioIncludeMarketplace+        , "instanceTenancy"             =? _drioInstanceTenancy+        , "InstanceType"                =? _drioInstanceType+        , "MaxDuration"                 =? _drioMaxDuration+        , "MaxInstanceCount"            =? _drioMaxInstanceCount+        , "maxResults"                  =? _drioMaxResults+        , "MinDuration"                 =? _drioMinDuration+        , "nextToken"                   =? _drioNextToken+        , "offeringType"                =? _drioOfferingType+        , "ProductDescription"          =? _drioProductDescription+        , "ReservedInstancesOfferingId" =? _drioReservedInstancesOfferingIds+        ]++instance ToHeaders DescribeReservedInstancesOfferings++instance AWSRequest DescribeReservedInstancesOfferings where+    type Sv DescribeReservedInstancesOfferings = EC2+    type Rs DescribeReservedInstancesOfferings = DescribeReservedInstancesOfferingsResponse++    request  = post "DescribeReservedInstancesOfferings"+    response = xmlResponse++instance FromXML DescribeReservedInstancesOfferingsResponse where+    parseXML x = DescribeReservedInstancesOfferingsResponse+        <$> x .@? "nextToken"+        <*> x .@  "reservedInstancesOfferingsSet"++instance AWSPager DescribeReservedInstancesOfferings where+    page rq rs+        | stop (rq ^. drioNextToken) = Nothing+        | otherwise = (\x -> rq & drioNextToken ?~ x)+            <$> (rs ^. driorNextToken)
+ gen/Network/AWS/EC2/DescribeRouteTables.hs view
@@ -0,0 +1,162 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.DescribeRouteTables+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Describes one or more of your route tables. For more information about+-- route tables, see Route Tables in the Amazon Virtual Private Cloud User+-- Guide.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-DescribeRouteTables.html>+module Network.AWS.EC2.DescribeRouteTables+    (+    -- * Request+      DescribeRouteTables+    -- ** Request constructor+    , describeRouteTables+    -- ** Request lenses+    , drt2DryRun+    , drt2Filters+    , drt2RouteTableIds++    -- * Response+    , DescribeRouteTablesResponse+    -- ** Response constructor+    , describeRouteTablesResponse+    -- ** Response lenses+    , drtrRouteTables+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data DescribeRouteTables = DescribeRouteTables+    { _drt2DryRun        :: Maybe Bool+    , _drt2Filters       :: List "Filter" Filter+    , _drt2RouteTableIds :: List "item" Text+    } deriving (Eq, Show)++-- | 'DescribeRouteTables' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'drt2DryRun' @::@ 'Maybe' 'Bool'+--+-- * 'drt2Filters' @::@ ['Filter']+--+-- * 'drt2RouteTableIds' @::@ ['Text']+--+describeRouteTables :: DescribeRouteTables+describeRouteTables = DescribeRouteTables+    { _drt2DryRun        = Nothing+    , _drt2RouteTableIds = mempty+    , _drt2Filters       = mempty+    }++drt2DryRun :: Lens' DescribeRouteTables (Maybe Bool)+drt2DryRun = lens _drt2DryRun (\s a -> s { _drt2DryRun = a })++-- | One or more filters. association.route-table-association-id - The ID of+-- an association ID for the route table. association.route-table-id - The+-- ID of the route table involved in the association. association.subnet-id+-- - The ID of the subnet involved in the association. association.main -+-- Indicates whether the route table is the main route table for the VPC.+-- route-table-id - The ID of the route table. route.destination-cidr-block+-- - The CIDR range specified in a route in the table. route.gateway-id -+-- The ID of a gateway specified in a route in the table. route.instance-id+-- - The ID of an instance specified in a route in the table. route.origin -+-- Describes how the route was created. CreateRouteTable indicates that the+-- route was automatically created when the route table was created;+-- CreateRoute indicates that the route was manually added to the route+-- table; EnableVgwRoutePropagation indicates that the route was propagated+-- by route propagation. route.state - The state of a route in the route+-- table (active | blackhole). The blackhole state indicates that the+-- route's target isn't available (for example, the specified gateway isn't+-- attached to the VPC, the specified NAT instance has been terminated, and+-- so on). route.vpc-peering-connection-id - The ID of a VPC peering+-- connection specified in a route in the table. tag:key=value - The+-- key/value combination of a tag assigned to the resource. tag-key - The+-- key of a tag assigned to the resource. This filter is independent of the+-- tag-value filter. For example, if you use both the filter+-- "tag-key=Purpose" and the filter "tag-value=X", you get any resources+-- assigned both the tag key Purpose (regardless of what the tag's value+-- is), and the tag value X (regardless of what the tag's key is). If you+-- want to list only resources where Purpose is X, see the tag:key=value+-- filter. tag-value - The value of a tag assigned to the resource. This+-- filter is independent of the tag-key filter. vpc-id - The ID of the VPC+-- for the route table.+drt2Filters :: Lens' DescribeRouteTables [Filter]+drt2Filters = lens _drt2Filters (\s a -> s { _drt2Filters = a }) . _List++-- | One or more route table IDs. Default: Describes all your route tables.+drt2RouteTableIds :: Lens' DescribeRouteTables [Text]+drt2RouteTableIds =+    lens _drt2RouteTableIds (\s a -> s { _drt2RouteTableIds = a })+        . _List++newtype DescribeRouteTablesResponse = DescribeRouteTablesResponse+    { _drtrRouteTables :: List "item" RouteTable+    } deriving (Eq, Show, Monoid, Semigroup)++instance GHC.Exts.IsList DescribeRouteTablesResponse where+    type Item DescribeRouteTablesResponse = RouteTable++    fromList = DescribeRouteTablesResponse . GHC.Exts.fromList+    toList   = GHC.Exts.toList . _drtrRouteTables++-- | 'DescribeRouteTablesResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'drtrRouteTables' @::@ ['RouteTable']+--+describeRouteTablesResponse :: DescribeRouteTablesResponse+describeRouteTablesResponse = DescribeRouteTablesResponse+    { _drtrRouteTables = mempty+    }++-- | Information about one or more route tables.+drtrRouteTables :: Lens' DescribeRouteTablesResponse [RouteTable]+drtrRouteTables = lens _drtrRouteTables (\s a -> s { _drtrRouteTables = a }) . _List++instance ToPath DescribeRouteTables where+    toPath = const "/"++instance ToQuery DescribeRouteTables where+    toQuery DescribeRouteTables{..} = mconcat+        [ "dryRun"       =? _drt2DryRun+        , "Filter"       =? _drt2Filters+        , "RouteTableId" =? _drt2RouteTableIds+        ]++instance ToHeaders DescribeRouteTables++instance AWSRequest DescribeRouteTables where+    type Sv DescribeRouteTables = EC2+    type Rs DescribeRouteTables = DescribeRouteTablesResponse++    request  = post "DescribeRouteTables"+    response = xmlResponse++instance FromXML DescribeRouteTablesResponse where+    parseXML x = DescribeRouteTablesResponse+        <$> x .@  "routeTableSet"
+ gen/Network/AWS/EC2/DescribeSecurityGroups.hs view
@@ -0,0 +1,163 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.DescribeSecurityGroups+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Describes one or more of your security groups. A security group is for use+-- with instances either in the EC2-Classic platform or in a specific VPC. For+-- more information, see Amazon EC2 Security Groups in the Amazon Elastic+-- Compute Cloud User Guide and Security Groups for Your VPC in the Amazon+-- Virtual Private Cloud User Guide.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-DescribeSecurityGroups.html>+module Network.AWS.EC2.DescribeSecurityGroups+    (+    -- * Request+      DescribeSecurityGroups+    -- ** Request constructor+    , describeSecurityGroups+    -- ** Request lenses+    , dsg1DryRun+    , dsg1Filters+    , dsg1GroupIds+    , dsg1GroupNames++    -- * Response+    , DescribeSecurityGroupsResponse+    -- ** Response constructor+    , describeSecurityGroupsResponse+    -- ** Response lenses+    , dsgrSecurityGroups+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data DescribeSecurityGroups = DescribeSecurityGroups+    { _dsg1DryRun     :: Maybe Bool+    , _dsg1Filters    :: List "Filter" Filter+    , _dsg1GroupIds   :: List "groupId" Text+    , _dsg1GroupNames :: List "GroupName" Text+    } deriving (Eq, Show)++-- | 'DescribeSecurityGroups' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'dsg1DryRun' @::@ 'Maybe' 'Bool'+--+-- * 'dsg1Filters' @::@ ['Filter']+--+-- * 'dsg1GroupIds' @::@ ['Text']+--+-- * 'dsg1GroupNames' @::@ ['Text']+--+describeSecurityGroups :: DescribeSecurityGroups+describeSecurityGroups = DescribeSecurityGroups+    { _dsg1DryRun     = Nothing+    , _dsg1GroupNames = mempty+    , _dsg1GroupIds   = mempty+    , _dsg1Filters    = mempty+    }++dsg1DryRun :: Lens' DescribeSecurityGroups (Maybe Bool)+dsg1DryRun = lens _dsg1DryRun (\s a -> s { _dsg1DryRun = a })++-- | One or more filters. description - The description of the security group.+-- group-id - The ID of the security group. group-name - The name of the+-- security group. ip-permission.cidr - A CIDR range that has been granted+-- permission. ip-permission.from-port - The start of port range for the TCP+-- and UDP protocols, or an ICMP type number. ip-permission.group-id - The+-- ID of a security group that has been granted permission.+-- ip-permission.group-name - The name of a security group that has been+-- granted permission. ip-permission.protocol - The IP protocol for the+-- permission (tcp | udp | icmp or a protocol number). ip-permission.to-port+-- - The end of port range for the TCP and UDP protocols, or an ICMP code.+-- ip-permission.user-id - The ID of an AWS account that has been granted+-- permission. owner-id - The AWS account ID of the owner of the security+-- group. tag-key - The key of a tag assigned to the security group.+-- tag-value - The value of a tag assigned to the security group. vpc-id -+-- The ID of the VPC specified when the security group was created.+dsg1Filters :: Lens' DescribeSecurityGroups [Filter]+dsg1Filters = lens _dsg1Filters (\s a -> s { _dsg1Filters = a }) . _List++-- | One or more security group IDs. Required for nondefault VPCs. Default:+-- Describes all your security groups.+dsg1GroupIds :: Lens' DescribeSecurityGroups [Text]+dsg1GroupIds = lens _dsg1GroupIds (\s a -> s { _dsg1GroupIds = a }) . _List++-- | [EC2-Classic, default VPC] One or more security group names. You can+-- specify either the security group name or the security group ID. Default:+-- Describes all your security groups.+dsg1GroupNames :: Lens' DescribeSecurityGroups [Text]+dsg1GroupNames = lens _dsg1GroupNames (\s a -> s { _dsg1GroupNames = a }) . _List++newtype DescribeSecurityGroupsResponse = DescribeSecurityGroupsResponse+    { _dsgrSecurityGroups :: List "item" SecurityGroup+    } deriving (Eq, Show, Monoid, Semigroup)++instance GHC.Exts.IsList DescribeSecurityGroupsResponse where+    type Item DescribeSecurityGroupsResponse = SecurityGroup++    fromList = DescribeSecurityGroupsResponse . GHC.Exts.fromList+    toList   = GHC.Exts.toList . _dsgrSecurityGroups++-- | 'DescribeSecurityGroupsResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'dsgrSecurityGroups' @::@ ['SecurityGroup']+--+describeSecurityGroupsResponse :: DescribeSecurityGroupsResponse+describeSecurityGroupsResponse = DescribeSecurityGroupsResponse+    { _dsgrSecurityGroups = mempty+    }++-- | Information about one or more security groups.+dsgrSecurityGroups :: Lens' DescribeSecurityGroupsResponse [SecurityGroup]+dsgrSecurityGroups =+    lens _dsgrSecurityGroups (\s a -> s { _dsgrSecurityGroups = a })+        . _List++instance ToPath DescribeSecurityGroups where+    toPath = const "/"++instance ToQuery DescribeSecurityGroups where+    toQuery DescribeSecurityGroups{..} = mconcat+        [ "dryRun"    =? _dsg1DryRun+        , "Filter"    =? _dsg1Filters+        , "GroupId"   =? _dsg1GroupIds+        , "GroupName" =? _dsg1GroupNames+        ]++instance ToHeaders DescribeSecurityGroups++instance AWSRequest DescribeSecurityGroups where+    type Sv DescribeSecurityGroups = EC2+    type Rs DescribeSecurityGroups = DescribeSecurityGroupsResponse++    request  = post "DescribeSecurityGroups"+    response = xmlResponse++instance FromXML DescribeSecurityGroupsResponse where+    parseXML x = DescribeSecurityGroupsResponse+        <$> x .@  "securityGroupInfo"
+ gen/Network/AWS/EC2/DescribeSnapshotAttribute.hs view
@@ -0,0 +1,152 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.DescribeSnapshotAttribute+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Describes the specified attribute of the specified snapshot. You can+-- specify only one attribute at a time. For more information about Amazon EBS+-- snapshots, see Amazon EBS Snapshots in the Amazon Elastic Compute Cloud+-- User Guide.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-DescribeSnapshotAttribute.html>+module Network.AWS.EC2.DescribeSnapshotAttribute+    (+    -- * Request+      DescribeSnapshotAttribute+    -- ** Request constructor+    , describeSnapshotAttribute+    -- ** Request lenses+    , dsaAttribute+    , dsaDryRun+    , dsaSnapshotId++    -- * Response+    , DescribeSnapshotAttributeResponse+    -- ** Response constructor+    , describeSnapshotAttributeResponse+    -- ** Response lenses+    , dsarCreateVolumePermissions+    , dsarProductCodes+    , dsarSnapshotId+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data DescribeSnapshotAttribute = DescribeSnapshotAttribute+    { _dsaAttribute  :: Text+    , _dsaDryRun     :: Maybe Bool+    , _dsaSnapshotId :: Text+    } deriving (Eq, Ord, Show)++-- | 'DescribeSnapshotAttribute' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'dsaAttribute' @::@ 'Text'+--+-- * 'dsaDryRun' @::@ 'Maybe' 'Bool'+--+-- * 'dsaSnapshotId' @::@ 'Text'+--+describeSnapshotAttribute :: Text -- ^ 'dsaSnapshotId'+                          -> Text -- ^ 'dsaAttribute'+                          -> DescribeSnapshotAttribute+describeSnapshotAttribute p1 p2 = DescribeSnapshotAttribute+    { _dsaSnapshotId = p1+    , _dsaAttribute  = p2+    , _dsaDryRun     = Nothing+    }++-- | The snapshot attribute you would like to view.+dsaAttribute :: Lens' DescribeSnapshotAttribute Text+dsaAttribute = lens _dsaAttribute (\s a -> s { _dsaAttribute = a })++dsaDryRun :: Lens' DescribeSnapshotAttribute (Maybe Bool)+dsaDryRun = lens _dsaDryRun (\s a -> s { _dsaDryRun = a })++-- | The ID of the Amazon EBS snapshot.+dsaSnapshotId :: Lens' DescribeSnapshotAttribute Text+dsaSnapshotId = lens _dsaSnapshotId (\s a -> s { _dsaSnapshotId = a })++data DescribeSnapshotAttributeResponse = DescribeSnapshotAttributeResponse+    { _dsarCreateVolumePermissions :: List "item" CreateVolumePermission+    , _dsarProductCodes            :: List "item" ProductCode+    , _dsarSnapshotId              :: Maybe Text+    } deriving (Eq, Show)++-- | 'DescribeSnapshotAttributeResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'dsarCreateVolumePermissions' @::@ ['CreateVolumePermission']+--+-- * 'dsarProductCodes' @::@ ['ProductCode']+--+-- * 'dsarSnapshotId' @::@ 'Maybe' 'Text'+--+describeSnapshotAttributeResponse :: DescribeSnapshotAttributeResponse+describeSnapshotAttributeResponse = DescribeSnapshotAttributeResponse+    { _dsarSnapshotId              = Nothing+    , _dsarCreateVolumePermissions = mempty+    , _dsarProductCodes            = mempty+    }++-- | A list of permissions for creating volumes from the snapshot.+dsarCreateVolumePermissions :: Lens' DescribeSnapshotAttributeResponse [CreateVolumePermission]+dsarCreateVolumePermissions =+    lens _dsarCreateVolumePermissions+        (\s a -> s { _dsarCreateVolumePermissions = a })+            . _List++-- | A list of product codes.+dsarProductCodes :: Lens' DescribeSnapshotAttributeResponse [ProductCode]+dsarProductCodes = lens _dsarProductCodes (\s a -> s { _dsarProductCodes = a }) . _List++-- | The ID of the Amazon EBS snapshot.+dsarSnapshotId :: Lens' DescribeSnapshotAttributeResponse (Maybe Text)+dsarSnapshotId = lens _dsarSnapshotId (\s a -> s { _dsarSnapshotId = a })++instance ToPath DescribeSnapshotAttribute where+    toPath = const "/"++instance ToQuery DescribeSnapshotAttribute where+    toQuery DescribeSnapshotAttribute{..} = mconcat+        [ "Attribute"  =? _dsaAttribute+        , "dryRun"     =? _dsaDryRun+        , "SnapshotId" =? _dsaSnapshotId+        ]++instance ToHeaders DescribeSnapshotAttribute++instance AWSRequest DescribeSnapshotAttribute where+    type Sv DescribeSnapshotAttribute = EC2+    type Rs DescribeSnapshotAttribute = DescribeSnapshotAttributeResponse++    request  = post "DescribeSnapshotAttribute"+    response = xmlResponse++instance FromXML DescribeSnapshotAttributeResponse where+    parseXML x = DescribeSnapshotAttributeResponse+        <$> x .@  "createVolumePermission"+        <*> x .@  "productCodes"+        <*> x .@? "snapshotId"
+ gen/Network/AWS/EC2/DescribeSnapshots.hs view
@@ -0,0 +1,195 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.DescribeSnapshots+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Describes one or more of the Amazon EBS snapshots available to you.+-- Available snapshots include public snapshots available for any AWS account+-- to launch, private snapshots that you own, and private snapshots owned by+-- another AWS account but for which you've been given explicit create volume+-- permissions. The create volume permissions fall into the following+-- categories: public: The owner of the snapshot granted create volume+-- permissions for the snapshot to the all group. All AWS accounts have create+-- volume permissions for these snapshots. explicit: The owner of the snapshot+-- granted create volume permissions to a specific AWS account. implicit: An+-- AWS account has implicit create volume permissions for all snapshots it+-- owns. The list of snapshots returned can be modified by specifying snapshot+-- IDs, snapshot owners, or AWS accounts with create volume permissions. If no+-- options are specified, Amazon EC2 returns all snapshots for which you have+-- create volume permissions. If you specify one or more snapshot IDs, only+-- snapshots that have the specified IDs are returned. If you specify an+-- invalid snapshot ID, an error is returned. If you specify a snapshot ID for+-- which you do not have access, it is not included in the returned results.+-- If you specify one or more snapshot owners, only snapshots from the+-- specified owners and for which you have access are returned. The results+-- can include the AWS account IDs of the specified owners, amazon for+-- snapshots owned by Amazon, or self for snapshots that you own. If you+-- specify a list of restorable users, only snapshots with create snapshot+-- permissions for those users are returned. You can specify AWS account IDs+-- (if you own the snapshots), self for snapshots for which you own or have+-- explicit permissions, or all for public snapshots. For more information+-- about Amazon EBS snapshots, see Amazon EBS Snapshots in the Amazon Elastic+-- Compute Cloud User Guide.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-DescribeSnapshots.html>+module Network.AWS.EC2.DescribeSnapshots+    (+    -- * Request+      DescribeSnapshots+    -- ** Request constructor+    , describeSnapshots+    -- ** Request lenses+    , ds1DryRun+    , ds1Filters+    , ds1OwnerIds+    , ds1RestorableByUserIds+    , ds1SnapshotIds++    -- * Response+    , DescribeSnapshotsResponse+    -- ** Response constructor+    , describeSnapshotsResponse+    -- ** Response lenses+    , dsrSnapshots+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data DescribeSnapshots = DescribeSnapshots+    { _ds1DryRun              :: Maybe Bool+    , _ds1Filters             :: List "Filter" Filter+    , _ds1OwnerIds            :: List "Owner" Text+    , _ds1RestorableByUserIds :: List "RestorableBy" Text+    , _ds1SnapshotIds         :: List "SnapshotId" Text+    } deriving (Eq, Show)++-- | 'DescribeSnapshots' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'ds1DryRun' @::@ 'Maybe' 'Bool'+--+-- * 'ds1Filters' @::@ ['Filter']+--+-- * 'ds1OwnerIds' @::@ ['Text']+--+-- * 'ds1RestorableByUserIds' @::@ ['Text']+--+-- * 'ds1SnapshotIds' @::@ ['Text']+--+describeSnapshots :: DescribeSnapshots+describeSnapshots = DescribeSnapshots+    { _ds1DryRun              = Nothing+    , _ds1SnapshotIds         = mempty+    , _ds1OwnerIds            = mempty+    , _ds1RestorableByUserIds = mempty+    , _ds1Filters             = mempty+    }++ds1DryRun :: Lens' DescribeSnapshots (Maybe Bool)+ds1DryRun = lens _ds1DryRun (\s a -> s { _ds1DryRun = a })++-- | One or more filters. description - A description of the snapshot.+-- owner-alias - The AWS account alias (for example, amazon) that owns the+-- snapshot. owner-id - The ID of the AWS account that owns the snapshot.+-- progress - The progress of the snapshot, as a percentage (for example,+-- 80%). snapshot-id - The snapshot ID. start-time - The time stamp when the+-- snapshot was initiated. status - The status of the snapshot (pending |+-- completed | error). tag:key=value - The key/value combination of a tag+-- assigned to the resource. tag-key - The key of a tag assigned to the+-- resource. This filter is independent of the tag-value filter. For+-- example, if you use both the filter "tag-key=Purpose" and the filter+-- "tag-value=X", you get any resources assigned both the tag key Purpose+-- (regardless of what the tag's value is), and the tag value X (regardless+-- of what the tag's key is). If you want to list only resources where+-- Purpose is X, see the tag:key=value filter. tag-value - The value of a+-- tag assigned to the resource. This filter is independent of the tag-key+-- filter. volume-id - The ID of the volume the snapshot is for. volume-size+-- - The size of the volume, in GiB.+ds1Filters :: Lens' DescribeSnapshots [Filter]+ds1Filters = lens _ds1Filters (\s a -> s { _ds1Filters = a }) . _List++-- | Returns the snapshots owned by the specified owner. Multiple owners can+-- be specified.+ds1OwnerIds :: Lens' DescribeSnapshots [Text]+ds1OwnerIds = lens _ds1OwnerIds (\s a -> s { _ds1OwnerIds = a }) . _List++-- | One or more AWS accounts IDs that can create volumes from the snapshot.+ds1RestorableByUserIds :: Lens' DescribeSnapshots [Text]+ds1RestorableByUserIds =+    lens _ds1RestorableByUserIds (\s a -> s { _ds1RestorableByUserIds = a })+        . _List++-- | One or more snapshot IDs. Default: Describes snapshots for which you have+-- launch permissions.+ds1SnapshotIds :: Lens' DescribeSnapshots [Text]+ds1SnapshotIds = lens _ds1SnapshotIds (\s a -> s { _ds1SnapshotIds = a }) . _List++newtype DescribeSnapshotsResponse = DescribeSnapshotsResponse+    { _dsrSnapshots :: List "item" Snapshot+    } deriving (Eq, Show, Monoid, Semigroup)++instance GHC.Exts.IsList DescribeSnapshotsResponse where+    type Item DescribeSnapshotsResponse = Snapshot++    fromList = DescribeSnapshotsResponse . GHC.Exts.fromList+    toList   = GHC.Exts.toList . _dsrSnapshots++-- | 'DescribeSnapshotsResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'dsrSnapshots' @::@ ['Snapshot']+--+describeSnapshotsResponse :: DescribeSnapshotsResponse+describeSnapshotsResponse = DescribeSnapshotsResponse+    { _dsrSnapshots = mempty+    }++dsrSnapshots :: Lens' DescribeSnapshotsResponse [Snapshot]+dsrSnapshots = lens _dsrSnapshots (\s a -> s { _dsrSnapshots = a }) . _List++instance ToPath DescribeSnapshots where+    toPath = const "/"++instance ToQuery DescribeSnapshots where+    toQuery DescribeSnapshots{..} = mconcat+        [ "dryRun"       =? _ds1DryRun+        , "Filter"       =? _ds1Filters+        , "Owner"        =? _ds1OwnerIds+        , "RestorableBy" =? _ds1RestorableByUserIds+        , "SnapshotId"   =? _ds1SnapshotIds+        ]++instance ToHeaders DescribeSnapshots++instance AWSRequest DescribeSnapshots where+    type Sv DescribeSnapshots = EC2+    type Rs DescribeSnapshots = DescribeSnapshotsResponse++    request  = post "DescribeSnapshots"+    response = xmlResponse++instance FromXML DescribeSnapshotsResponse where+    parseXML x = DescribeSnapshotsResponse+        <$> x .@  "snapshotSet"
+ gen/Network/AWS/EC2/DescribeSpotDatafeedSubscription.hs view
@@ -0,0 +1,107 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.DescribeSpotDatafeedSubscription+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Describes the datafeed for Spot Instances. For more information, see Spot+-- Instances in the Amazon Elastic Compute Cloud User Guide.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-DescribeSpotDatafeedSubscription.html>+module Network.AWS.EC2.DescribeSpotDatafeedSubscription+    (+    -- * Request+      DescribeSpotDatafeedSubscription+    -- ** Request constructor+    , describeSpotDatafeedSubscription+    -- ** Request lenses+    , dsdsDryRun++    -- * Response+    , DescribeSpotDatafeedSubscriptionResponse+    -- ** Response constructor+    , describeSpotDatafeedSubscriptionResponse+    -- ** Response lenses+    , dsdsrSpotDatafeedSubscription+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++newtype DescribeSpotDatafeedSubscription = DescribeSpotDatafeedSubscription+    { _dsdsDryRun :: Maybe Bool+    } deriving (Eq, Ord, Show)++-- | 'DescribeSpotDatafeedSubscription' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'dsdsDryRun' @::@ 'Maybe' 'Bool'+--+describeSpotDatafeedSubscription :: DescribeSpotDatafeedSubscription+describeSpotDatafeedSubscription = DescribeSpotDatafeedSubscription+    { _dsdsDryRun = Nothing+    }++dsdsDryRun :: Lens' DescribeSpotDatafeedSubscription (Maybe Bool)+dsdsDryRun = lens _dsdsDryRun (\s a -> s { _dsdsDryRun = a })++newtype DescribeSpotDatafeedSubscriptionResponse = DescribeSpotDatafeedSubscriptionResponse+    { _dsdsrSpotDatafeedSubscription :: Maybe SpotDatafeedSubscription+    } deriving (Eq, Show)++-- | 'DescribeSpotDatafeedSubscriptionResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'dsdsrSpotDatafeedSubscription' @::@ 'Maybe' 'SpotDatafeedSubscription'+--+describeSpotDatafeedSubscriptionResponse :: DescribeSpotDatafeedSubscriptionResponse+describeSpotDatafeedSubscriptionResponse = DescribeSpotDatafeedSubscriptionResponse+    { _dsdsrSpotDatafeedSubscription = Nothing+    }++-- | The Spot Instance datafeed subscription.+dsdsrSpotDatafeedSubscription :: Lens' DescribeSpotDatafeedSubscriptionResponse (Maybe SpotDatafeedSubscription)+dsdsrSpotDatafeedSubscription =+    lens _dsdsrSpotDatafeedSubscription+        (\s a -> s { _dsdsrSpotDatafeedSubscription = a })++instance ToPath DescribeSpotDatafeedSubscription where+    toPath = const "/"++instance ToQuery DescribeSpotDatafeedSubscription where+    toQuery DescribeSpotDatafeedSubscription{..} = mconcat+        [ "dryRun" =? _dsdsDryRun+        ]++instance ToHeaders DescribeSpotDatafeedSubscription++instance AWSRequest DescribeSpotDatafeedSubscription where+    type Sv DescribeSpotDatafeedSubscription = EC2+    type Rs DescribeSpotDatafeedSubscription = DescribeSpotDatafeedSubscriptionResponse++    request  = post "DescribeSpotDatafeedSubscription"+    response = xmlResponse++instance FromXML DescribeSpotDatafeedSubscriptionResponse where+    parseXML x = DescribeSpotDatafeedSubscriptionResponse+        <$> x .@? "spotDatafeedSubscription"
+ gen/Network/AWS/EC2/DescribeSpotInstanceRequests.hs view
@@ -0,0 +1,201 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.DescribeSpotInstanceRequests+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Describes the Spot Instance requests that belong to your account. Spot+-- Instances are instances that Amazon EC2 starts on your behalf when the+-- maximum price that you specify exceeds the current Spot Price. Amazon EC2+-- periodically sets the Spot Price based on available Spot Instance capacity+-- and current Spot Instance requests. For more information about Spot+-- Instances, see Spot Instances in the Amazon Elastic Compute Cloud User+-- Guide. You can use DescribeSpotInstanceRequests to find a running Spot+-- Instance by examining the response. If the status of the Spot Instance is+-- fulfilled, the instance ID appears in the response and contains the+-- identifier of the instance. Alternatively, you can use DescribeInstances+-- with a filter to look for instances where the instance lifecycle is spot.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-DescribeSpotInstanceRequests.html>+module Network.AWS.EC2.DescribeSpotInstanceRequests+    (+    -- * Request+      DescribeSpotInstanceRequests+    -- ** Request constructor+    , describeSpotInstanceRequests+    -- ** Request lenses+    , dsirDryRun+    , dsirFilters+    , dsirSpotInstanceRequestIds++    -- * Response+    , DescribeSpotInstanceRequestsResponse+    -- ** Response constructor+    , describeSpotInstanceRequestsResponse+    -- ** Response lenses+    , dsirrSpotInstanceRequests+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data DescribeSpotInstanceRequests = DescribeSpotInstanceRequests+    { _dsirDryRun                 :: Maybe Bool+    , _dsirFilters                :: List "Filter" Filter+    , _dsirSpotInstanceRequestIds :: List "SpotInstanceRequestId" Text+    } deriving (Eq, Show)++-- | 'DescribeSpotInstanceRequests' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'dsirDryRun' @::@ 'Maybe' 'Bool'+--+-- * 'dsirFilters' @::@ ['Filter']+--+-- * 'dsirSpotInstanceRequestIds' @::@ ['Text']+--+describeSpotInstanceRequests :: DescribeSpotInstanceRequests+describeSpotInstanceRequests = DescribeSpotInstanceRequests+    { _dsirDryRun                 = Nothing+    , _dsirSpotInstanceRequestIds = mempty+    , _dsirFilters                = mempty+    }++dsirDryRun :: Lens' DescribeSpotInstanceRequests (Maybe Bool)+dsirDryRun = lens _dsirDryRun (\s a -> s { _dsirDryRun = a })++-- | One or more filters. availability-zone-group - The Availability Zone+-- group. create-time - The time stamp when the Spot Instance request was+-- created. fault-code - The fault code related to the request.+-- fault-message - The fault message related to the request. instance-id -+-- The ID of the instance that fulfilled the request. launch-group - The+-- Spot Instance launch group.+-- launch.block-device-mapping.delete-on-termination - Indicates whether the+-- Amazon EBS volume is deleted on instance termination.+-- launch.block-device-mapping.device-name - The device name for the Amazon+-- EBS volume (for example, /dev/sdh).+-- launch.block-device-mapping.snapshot-id - The ID of the snapshot used for+-- the Amazon EBS volume. launch.block-device-mapping.volume-size - The size+-- of the Amazon EBS volume, in GiB. launch.block-device-mapping.volume-type+-- - The type of the Amazon EBS volume (gp2 | standard | io1).+-- launch.group-id - The security group for the instance. launch.image-id -+-- The ID of the AMI. launch.instance-type - The type of instance (for+-- example, m1.small). launch.kernel-id - The kernel ID. launch.key-name -+-- The name of the key pair the instance launched with.+-- launch.monitoring-enabled - Whether monitoring is enabled for the Spot+-- Instance. launch.ramdisk-id - The RAM disk ID.+-- network-interface.network-interface-id - The ID of the network interface.+-- network-interface.device-index - The index of the device for the network+-- interface attachment on the instance. network-interface.subnet-id - The+-- ID of the subnet for the instance. network-interface.description - A+-- description of the network interface.+-- network-interface.private-ip-address - The primary private IP address of+-- the network interface. network-interface.delete-on-termination -+-- Indicates whether the network interface is deleted when the instance is+-- terminated. network-interface.group-id - The ID of the security group+-- associated with the network interface. network-interface.group-name - The+-- name of the security group associated with the network interface.+-- network-interface.addresses.primary - Indicates whether the IP address is+-- the primary private IP address. product-description - The product+-- description associated with the instance (Linux/UNIX | Windows).+-- spot-instance-request-id - The Spot Instance request ID. spot-price - The+-- maximum hourly price for any Spot Instance launched to fulfill the+-- request. state - The state of the Spot Instance request (open | active |+-- closed | cancelled | failed). Spot bid status information can help you+-- track your Amazon EC2 Spot Instance requests. For information, see+-- Tracking Spot Requests with Bid Status Codes in the Amazon Elastic+-- Compute Cloud User Guide. status-code - The short code describing the+-- most recent evaluation of your Spot Instance request. status-message -+-- The message explaining the status of the Spot Instance request.+-- tag:key=value - The key/value combination of a tag assigned to the+-- resource. tag-key - The key of a tag assigned to the resource. This+-- filter is independent of the tag-value filter. For example, if you use+-- both the filter "tag-key=Purpose" and the filter "tag-value=X", you get+-- any resources assigned both the tag key Purpose (regardless of what the+-- tag's value is), and the tag value X (regardless of what the tag's key+-- is). If you want to list only resources where Purpose is X, see the+-- tag:key=value filter. tag-value - The value of a tag assigned to the+-- resource. This filter is independent of the tag-key filter. type - The+-- type of Spot Instance request (one-time | persistent).+-- launched-availability-zone - The Availability Zone in which the bid is+-- launched. valid-from - The start date of the request. valid-until - The+-- end date of the request.+dsirFilters :: Lens' DescribeSpotInstanceRequests [Filter]+dsirFilters = lens _dsirFilters (\s a -> s { _dsirFilters = a }) . _List++-- | One or more Spot Instance request IDs.+dsirSpotInstanceRequestIds :: Lens' DescribeSpotInstanceRequests [Text]+dsirSpotInstanceRequestIds =+    lens _dsirSpotInstanceRequestIds+        (\s a -> s { _dsirSpotInstanceRequestIds = a })+            . _List++newtype DescribeSpotInstanceRequestsResponse = DescribeSpotInstanceRequestsResponse+    { _dsirrSpotInstanceRequests :: List "item" SpotInstanceRequest+    } deriving (Eq, Show, Monoid, Semigroup)++instance GHC.Exts.IsList DescribeSpotInstanceRequestsResponse where+    type Item DescribeSpotInstanceRequestsResponse = SpotInstanceRequest++    fromList = DescribeSpotInstanceRequestsResponse . GHC.Exts.fromList+    toList   = GHC.Exts.toList . _dsirrSpotInstanceRequests++-- | 'DescribeSpotInstanceRequestsResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'dsirrSpotInstanceRequests' @::@ ['SpotInstanceRequest']+--+describeSpotInstanceRequestsResponse :: DescribeSpotInstanceRequestsResponse+describeSpotInstanceRequestsResponse = DescribeSpotInstanceRequestsResponse+    { _dsirrSpotInstanceRequests = mempty+    }++-- | One or more Spot Instance requests.+dsirrSpotInstanceRequests :: Lens' DescribeSpotInstanceRequestsResponse [SpotInstanceRequest]+dsirrSpotInstanceRequests =+    lens _dsirrSpotInstanceRequests+        (\s a -> s { _dsirrSpotInstanceRequests = a })+            . _List++instance ToPath DescribeSpotInstanceRequests where+    toPath = const "/"++instance ToQuery DescribeSpotInstanceRequests where+    toQuery DescribeSpotInstanceRequests{..} = mconcat+        [ "dryRun"                =? _dsirDryRun+        , "Filter"                =? _dsirFilters+        , "SpotInstanceRequestId" =? _dsirSpotInstanceRequestIds+        ]++instance ToHeaders DescribeSpotInstanceRequests++instance AWSRequest DescribeSpotInstanceRequests where+    type Sv DescribeSpotInstanceRequests = EC2+    type Rs DescribeSpotInstanceRequests = DescribeSpotInstanceRequestsResponse++    request  = post "DescribeSpotInstanceRequests"+    response = xmlResponse++instance FromXML DescribeSpotInstanceRequestsResponse where+    parseXML x = DescribeSpotInstanceRequestsResponse+        <$> x .@  "spotInstanceRequestSet"
+ gen/Network/AWS/EC2/DescribeSpotPriceHistory.hs view
@@ -0,0 +1,234 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.DescribeSpotPriceHistory+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Describes the Spot Price history. Spot Instances are instances that Amazon+-- EC2 starts on your behalf when the maximum price that you specify exceeds+-- the current Spot Price. Amazon EC2 periodically sets the Spot Price based+-- on available Spot Instance capacity and current Spot Instance requests. For+-- more information about Spot Instances, see Spot Instances in the Amazon+-- Elastic Compute Cloud User Guide. When you specify an Availability Zone,+-- this operation describes the price history for the specified Availability+-- Zone with the most recent set of prices listed first. If you don't specify+-- an Availability Zone, you get the prices across all Availability Zones,+-- starting with the most recent set. However, if you're using an API version+-- earlier than 2011-05-15, you get the lowest price across the region for the+-- specified time period. The prices returned are listed in chronological+-- order, from the oldest to the most recent. When you specify the start and+-- end time options, this operation returns two pieces of data: the prices of+-- the instance types within the time range that you specified and the time+-- when the price changed. The price is valid within the time period that you+-- specified; the response merely indicates the last time that the price+-- changed.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-DescribeSpotPriceHistory.html>+module Network.AWS.EC2.DescribeSpotPriceHistory+    (+    -- * Request+      DescribeSpotPriceHistory+    -- ** Request constructor+    , describeSpotPriceHistory+    -- ** Request lenses+    , dsphAvailabilityZone+    , dsphDryRun+    , dsphEndTime+    , dsphFilters+    , dsphInstanceTypes+    , dsphMaxResults+    , dsphNextToken+    , dsphProductDescriptions+    , dsphStartTime++    -- * Response+    , DescribeSpotPriceHistoryResponse+    -- ** Response constructor+    , describeSpotPriceHistoryResponse+    -- ** Response lenses+    , dsphrNextToken+    , dsphrSpotPriceHistory+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data DescribeSpotPriceHistory = DescribeSpotPriceHistory+    { _dsphAvailabilityZone    :: Maybe Text+    , _dsphDryRun              :: Maybe Bool+    , _dsphEndTime             :: Maybe RFC822+    , _dsphFilters             :: List "Filter" Filter+    , _dsphInstanceTypes       :: List "InstanceType" Text+    , _dsphMaxResults          :: Maybe Int+    , _dsphNextToken           :: Maybe Text+    , _dsphProductDescriptions :: List "ProductDescription" Text+    , _dsphStartTime           :: Maybe RFC822+    } deriving (Eq, Show)++-- | 'DescribeSpotPriceHistory' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'dsphAvailabilityZone' @::@ 'Maybe' 'Text'+--+-- * 'dsphDryRun' @::@ 'Maybe' 'Bool'+--+-- * 'dsphEndTime' @::@ 'Maybe' 'UTCTime'+--+-- * 'dsphFilters' @::@ ['Filter']+--+-- * 'dsphInstanceTypes' @::@ ['Text']+--+-- * 'dsphMaxResults' @::@ 'Maybe' 'Int'+--+-- * 'dsphNextToken' @::@ 'Maybe' 'Text'+--+-- * 'dsphProductDescriptions' @::@ ['Text']+--+-- * 'dsphStartTime' @::@ 'Maybe' 'UTCTime'+--+describeSpotPriceHistory :: DescribeSpotPriceHistory+describeSpotPriceHistory = DescribeSpotPriceHistory+    { _dsphDryRun              = Nothing+    , _dsphStartTime           = Nothing+    , _dsphEndTime             = Nothing+    , _dsphInstanceTypes       = mempty+    , _dsphProductDescriptions = mempty+    , _dsphFilters             = mempty+    , _dsphAvailabilityZone    = Nothing+    , _dsphMaxResults          = Nothing+    , _dsphNextToken           = Nothing+    }++-- | The Availability Zone.+dsphAvailabilityZone :: Lens' DescribeSpotPriceHistory (Maybe Text)+dsphAvailabilityZone =+    lens _dsphAvailabilityZone (\s a -> s { _dsphAvailabilityZone = a })++dsphDryRun :: Lens' DescribeSpotPriceHistory (Maybe Bool)+dsphDryRun = lens _dsphDryRun (\s a -> s { _dsphDryRun = a })++-- | The end date and time of the Spot Price history data.+dsphEndTime :: Lens' DescribeSpotPriceHistory (Maybe UTCTime)+dsphEndTime = lens _dsphEndTime (\s a -> s { _dsphEndTime = a }) . mapping _Time++-- | One or more filters. availability-zone - The Availability Zone for which+-- prices should be returned. instance-type - The type of instance (for+-- example, m1.small). product-description - The product description for the+-- Spot Price (Linux/UNIX | SUSE Linux | Windows | Linux/UNIX (Amazon VPC) |+-- SUSE Linux (Amazon VPC) | Windows (Amazon VPC)). spot-price - The Spot+-- Price. The value must match exactly (or use wildcards; greater than or+-- less than comparison is not supported). timestamp - The timestamp of the+-- Spot Price history (for example, 2010-08-16T05:06:11.000Z). You can use+-- wildcards (* and ?). Greater than or less than comparison is not+-- supported.+dsphFilters :: Lens' DescribeSpotPriceHistory [Filter]+dsphFilters = lens _dsphFilters (\s a -> s { _dsphFilters = a }) . _List++-- | One or more instance types.+dsphInstanceTypes :: Lens' DescribeSpotPriceHistory [Text]+dsphInstanceTypes =+    lens _dsphInstanceTypes (\s a -> s { _dsphInstanceTypes = a })+        . _List++-- | The number of rows to return.+dsphMaxResults :: Lens' DescribeSpotPriceHistory (Maybe Int)+dsphMaxResults = lens _dsphMaxResults (\s a -> s { _dsphMaxResults = a })++-- | The next set of rows to return.+dsphNextToken :: Lens' DescribeSpotPriceHistory (Maybe Text)+dsphNextToken = lens _dsphNextToken (\s a -> s { _dsphNextToken = a })++-- | One or more basic product descriptions.+dsphProductDescriptions :: Lens' DescribeSpotPriceHistory [Text]+dsphProductDescriptions =+    lens _dsphProductDescriptions (\s a -> s { _dsphProductDescriptions = a })+        . _List++-- | The start date and time of the Spot Price history data.+dsphStartTime :: Lens' DescribeSpotPriceHistory (Maybe UTCTime)+dsphStartTime = lens _dsphStartTime (\s a -> s { _dsphStartTime = a }) . mapping _Time++data DescribeSpotPriceHistoryResponse = DescribeSpotPriceHistoryResponse+    { _dsphrNextToken        :: Maybe Text+    , _dsphrSpotPriceHistory :: List "item" SpotPrice+    } deriving (Eq, Show)++-- | 'DescribeSpotPriceHistoryResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'dsphrNextToken' @::@ 'Maybe' 'Text'+--+-- * 'dsphrSpotPriceHistory' @::@ ['SpotPrice']+--+describeSpotPriceHistoryResponse :: DescribeSpotPriceHistoryResponse+describeSpotPriceHistoryResponse = DescribeSpotPriceHistoryResponse+    { _dsphrSpotPriceHistory = mempty+    , _dsphrNextToken        = Nothing+    }++-- | The string marking the next set of results. This is empty if there are no+-- more results.+dsphrNextToken :: Lens' DescribeSpotPriceHistoryResponse (Maybe Text)+dsphrNextToken = lens _dsphrNextToken (\s a -> s { _dsphrNextToken = a })++-- | The historical Spot Prices.+dsphrSpotPriceHistory :: Lens' DescribeSpotPriceHistoryResponse [SpotPrice]+dsphrSpotPriceHistory =+    lens _dsphrSpotPriceHistory (\s a -> s { _dsphrSpotPriceHistory = a })+        . _List++instance ToPath DescribeSpotPriceHistory where+    toPath = const "/"++instance ToQuery DescribeSpotPriceHistory where+    toQuery DescribeSpotPriceHistory{..} = mconcat+        [ "availabilityZone"   =? _dsphAvailabilityZone+        , "dryRun"             =? _dsphDryRun+        , "endTime"            =? _dsphEndTime+        , "Filter"             =? _dsphFilters+        , "InstanceType"       =? _dsphInstanceTypes+        , "maxResults"         =? _dsphMaxResults+        , "nextToken"          =? _dsphNextToken+        , "ProductDescription" =? _dsphProductDescriptions+        , "startTime"          =? _dsphStartTime+        ]++instance ToHeaders DescribeSpotPriceHistory++instance AWSRequest DescribeSpotPriceHistory where+    type Sv DescribeSpotPriceHistory = EC2+    type Rs DescribeSpotPriceHistory = DescribeSpotPriceHistoryResponse++    request  = post "DescribeSpotPriceHistory"+    response = xmlResponse++instance FromXML DescribeSpotPriceHistoryResponse where+    parseXML x = DescribeSpotPriceHistoryResponse+        <$> x .@? "nextToken"+        <*> x .@  "spotPriceHistorySet"++instance AWSPager DescribeSpotPriceHistory where+    page rq rs+        | stop (rq ^. dsphNextToken) = Nothing+        | otherwise = (\x -> rq & dsphNextToken ?~ x)+            <$> (rs ^. dsphrNextToken)
+ gen/Network/AWS/EC2/DescribeSubnets.hs view
@@ -0,0 +1,150 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.DescribeSubnets+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Describes one or more of your subnets. For more information about subnets,+-- see Your VPC and Subnets in the Amazon Virtual Private Cloud User Guide.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-DescribeSubnets.html>+module Network.AWS.EC2.DescribeSubnets+    (+    -- * Request+      DescribeSubnets+    -- ** Request constructor+    , describeSubnets+    -- ** Request lenses+    , dsDryRun+    , dsFilters+    , dsSubnetIds++    -- * Response+    , DescribeSubnetsResponse+    -- ** Response constructor+    , describeSubnetsResponse+    -- ** Response lenses+    , dsrSubnets+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data DescribeSubnets = DescribeSubnets+    { _dsDryRun    :: Maybe Bool+    , _dsFilters   :: List "Filter" Filter+    , _dsSubnetIds :: List "SubnetId" Text+    } deriving (Eq, Show)++-- | 'DescribeSubnets' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'dsDryRun' @::@ 'Maybe' 'Bool'+--+-- * 'dsFilters' @::@ ['Filter']+--+-- * 'dsSubnetIds' @::@ ['Text']+--+describeSubnets :: DescribeSubnets+describeSubnets = DescribeSubnets+    { _dsDryRun    = Nothing+    , _dsSubnetIds = mempty+    , _dsFilters   = mempty+    }++dsDryRun :: Lens' DescribeSubnets (Maybe Bool)+dsDryRun = lens _dsDryRun (\s a -> s { _dsDryRun = a })++-- | One or more filters. availabilityZone - The Availability Zone for the+-- subnet. You can also use availability-zone as the filter name.+-- available-ip-address-count - The number of IP addresses in the subnet+-- that are available. cidrBlock - The CIDR block of the subnet. The CIDR+-- block you specify must exactly match the subnet's CIDR block for+-- information to be returned for the subnet. You can also use cidr or+-- cidr-block as the filter names. defaultForAz - Indicates whether this is+-- the default subnet for the Availability Zone. You can also use+-- default-for-az as the filter name. state - The state of the subnet+-- (pending | available). subnet-id - The ID of the subnet. tag:key=value -+-- The key/value combination of a tag assigned to the resource. tag-key -+-- The key of a tag assigned to the resource. This filter is independent of+-- the tag-value filter. For example, if you use both the filter+-- "tag-key=Purpose" and the filter "tag-value=X", you get any resources+-- assigned both the tag key Purpose (regardless of what the tag's value+-- is), and the tag value X (regardless of what the tag's key is). If you+-- want to list only resources where Purpose is X, see the tag:key=value+-- filter. tag-value - The value of a tag assigned to the resource. This+-- filter is independent of the tag-key filter. vpc-id - The ID of the VPC+-- for the subnet.+dsFilters :: Lens' DescribeSubnets [Filter]+dsFilters = lens _dsFilters (\s a -> s { _dsFilters = a }) . _List++-- | One or more subnet IDs. Default: Describes all your subnets.+dsSubnetIds :: Lens' DescribeSubnets [Text]+dsSubnetIds = lens _dsSubnetIds (\s a -> s { _dsSubnetIds = a }) . _List++newtype DescribeSubnetsResponse = DescribeSubnetsResponse+    { _dsrSubnets :: List "item" Subnet+    } deriving (Eq, Show, Monoid, Semigroup)++instance GHC.Exts.IsList DescribeSubnetsResponse where+    type Item DescribeSubnetsResponse = Subnet++    fromList = DescribeSubnetsResponse . GHC.Exts.fromList+    toList   = GHC.Exts.toList . _dsrSubnets++-- | 'DescribeSubnetsResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'dsrSubnets' @::@ ['Subnet']+--+describeSubnetsResponse :: DescribeSubnetsResponse+describeSubnetsResponse = DescribeSubnetsResponse+    { _dsrSubnets = mempty+    }++-- | Information about one or more subnets.+dsrSubnets :: Lens' DescribeSubnetsResponse [Subnet]+dsrSubnets = lens _dsrSubnets (\s a -> s { _dsrSubnets = a }) . _List++instance ToPath DescribeSubnets where+    toPath = const "/"++instance ToQuery DescribeSubnets where+    toQuery DescribeSubnets{..} = mconcat+        [ "dryRun"   =? _dsDryRun+        , "Filter"   =? _dsFilters+        , "SubnetId" =? _dsSubnetIds+        ]++instance ToHeaders DescribeSubnets++instance AWSRequest DescribeSubnets where+    type Sv DescribeSubnets = EC2+    type Rs DescribeSubnets = DescribeSubnetsResponse++    request  = post "DescribeSubnets"+    response = xmlResponse++instance FromXML DescribeSubnetsResponse where+    parseXML x = DescribeSubnetsResponse+        <$> x .@  "subnetSet"
+ gen/Network/AWS/EC2/DescribeTags.hs view
@@ -0,0 +1,162 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.DescribeTags+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Describes one or more of the tags for your EC2 resources. For more+-- information about tags, see Tagging Your Resources in the Amazon Elastic+-- Compute Cloud User Guide.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-DescribeTags.html>+module Network.AWS.EC2.DescribeTags+    (+    -- * Request+      DescribeTags+    -- ** Request constructor+    , describeTags+    -- ** Request lenses+    , dtDryRun+    , dtFilters+    , dtMaxResults+    , dtNextToken++    -- * Response+    , DescribeTagsResponse+    -- ** Response constructor+    , describeTagsResponse+    -- ** Response lenses+    , dtrNextToken+    , dtrTags+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data DescribeTags = DescribeTags+    { _dtDryRun     :: Maybe Bool+    , _dtFilters    :: List "Filter" Filter+    , _dtMaxResults :: Maybe Int+    , _dtNextToken  :: Maybe Text+    } deriving (Eq, Show)++-- | 'DescribeTags' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'dtDryRun' @::@ 'Maybe' 'Bool'+--+-- * 'dtFilters' @::@ ['Filter']+--+-- * 'dtMaxResults' @::@ 'Maybe' 'Int'+--+-- * 'dtNextToken' @::@ 'Maybe' 'Text'+--+describeTags :: DescribeTags+describeTags = DescribeTags+    { _dtDryRun     = Nothing+    , _dtFilters    = mempty+    , _dtMaxResults = Nothing+    , _dtNextToken  = Nothing+    }++dtDryRun :: Lens' DescribeTags (Maybe Bool)+dtDryRun = lens _dtDryRun (\s a -> s { _dtDryRun = a })++-- | One or more filters. key - The tag key. resource-id - The resource ID.+-- resource-type - The resource type (customer-gateway | dhcp-options |+-- image | instance | internet-gateway | network-acl | network-interface |+-- reserved-instances | route-table | security-group | snapshot |+-- spot-instances-request | subnet | volume | vpc | vpn-connection |+-- vpn-gateway). value - The tag value.+dtFilters :: Lens' DescribeTags [Filter]+dtFilters = lens _dtFilters (\s a -> s { _dtFilters = a }) . _List++-- | The maximum number of items to return for this call. The call also+-- returns a token that you can specify in a subsequent call to get the next+-- set of results. If the value is greater than 1000, we return only 1000+-- items.+dtMaxResults :: Lens' DescribeTags (Maybe Int)+dtMaxResults = lens _dtMaxResults (\s a -> s { _dtMaxResults = a })++-- | The token for the next set of items to return. (You received this token+-- from a prior call.).+dtNextToken :: Lens' DescribeTags (Maybe Text)+dtNextToken = lens _dtNextToken (\s a -> s { _dtNextToken = a })++data DescribeTagsResponse = DescribeTagsResponse+    { _dtrNextToken :: Maybe Text+    , _dtrTags      :: List "item" TagDescription+    } deriving (Eq, Show)++-- | 'DescribeTagsResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'dtrNextToken' @::@ 'Maybe' 'Text'+--+-- * 'dtrTags' @::@ ['TagDescription']+--+describeTagsResponse :: DescribeTagsResponse+describeTagsResponse = DescribeTagsResponse+    { _dtrTags      = mempty+    , _dtrNextToken = Nothing+    }++-- | The token to use when requesting the next set of items. If there are no+-- additional items to return, the string is empty.+dtrNextToken :: Lens' DescribeTagsResponse (Maybe Text)+dtrNextToken = lens _dtrNextToken (\s a -> s { _dtrNextToken = a })++-- | A list of tags.+dtrTags :: Lens' DescribeTagsResponse [TagDescription]+dtrTags = lens _dtrTags (\s a -> s { _dtrTags = a }) . _List++instance ToPath DescribeTags where+    toPath = const "/"++instance ToQuery DescribeTags where+    toQuery DescribeTags{..} = mconcat+        [ "dryRun"     =? _dtDryRun+        , "Filter"     =? _dtFilters+        , "maxResults" =? _dtMaxResults+        , "nextToken"  =? _dtNextToken+        ]++instance ToHeaders DescribeTags++instance AWSRequest DescribeTags where+    type Sv DescribeTags = EC2+    type Rs DescribeTags = DescribeTagsResponse++    request  = post "DescribeTags"+    response = xmlResponse++instance FromXML DescribeTagsResponse where+    parseXML x = DescribeTagsResponse+        <$> x .@? "nextToken"+        <*> x .@  "tagSet"++instance AWSPager DescribeTags where+    page rq rs+        | stop (rq ^. dtNextToken) = Nothing+        | otherwise = (\x -> rq & dtNextToken ?~ x)+            <$> (rs ^. dtrNextToken)
+ gen/Network/AWS/EC2/DescribeVolumeAttribute.hs view
@@ -0,0 +1,148 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.DescribeVolumeAttribute+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Describes the specified attribute of the specified volume. You can specify+-- only one attribute at a time. For more information about Amazon EBS+-- volumes, see Amazon EBS Volumes in the Amazon Elastic Compute Cloud User+-- Guide.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-DescribeVolumeAttribute.html>+module Network.AWS.EC2.DescribeVolumeAttribute+    (+    -- * Request+      DescribeVolumeAttribute+    -- ** Request constructor+    , describeVolumeAttribute+    -- ** Request lenses+    , dvaAttribute+    , dvaDryRun+    , dvaVolumeId++    -- * Response+    , DescribeVolumeAttributeResponse+    -- ** Response constructor+    , describeVolumeAttributeResponse+    -- ** Response lenses+    , dvarAutoEnableIO+    , dvarProductCodes+    , dvarVolumeId+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data DescribeVolumeAttribute = DescribeVolumeAttribute+    { _dvaAttribute :: Maybe Text+    , _dvaDryRun    :: Maybe Bool+    , _dvaVolumeId  :: Text+    } deriving (Eq, Ord, Show)++-- | 'DescribeVolumeAttribute' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'dvaAttribute' @::@ 'Maybe' 'Text'+--+-- * 'dvaDryRun' @::@ 'Maybe' 'Bool'+--+-- * 'dvaVolumeId' @::@ 'Text'+--+describeVolumeAttribute :: Text -- ^ 'dvaVolumeId'+                        -> DescribeVolumeAttribute+describeVolumeAttribute p1 = DescribeVolumeAttribute+    { _dvaVolumeId  = p1+    , _dvaDryRun    = Nothing+    , _dvaAttribute = Nothing+    }++-- | The instance attribute.+dvaAttribute :: Lens' DescribeVolumeAttribute (Maybe Text)+dvaAttribute = lens _dvaAttribute (\s a -> s { _dvaAttribute = a })++dvaDryRun :: Lens' DescribeVolumeAttribute (Maybe Bool)+dvaDryRun = lens _dvaDryRun (\s a -> s { _dvaDryRun = a })++-- | The ID of the volume.+dvaVolumeId :: Lens' DescribeVolumeAttribute Text+dvaVolumeId = lens _dvaVolumeId (\s a -> s { _dvaVolumeId = a })++data DescribeVolumeAttributeResponse = DescribeVolumeAttributeResponse+    { _dvarAutoEnableIO :: Maybe AttributeBooleanValue+    , _dvarProductCodes :: List "item" ProductCode+    , _dvarVolumeId     :: Maybe Text+    } deriving (Eq, Show)++-- | 'DescribeVolumeAttributeResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'dvarAutoEnableIO' @::@ 'Maybe' 'AttributeBooleanValue'+--+-- * 'dvarProductCodes' @::@ ['ProductCode']+--+-- * 'dvarVolumeId' @::@ 'Maybe' 'Text'+--+describeVolumeAttributeResponse :: DescribeVolumeAttributeResponse+describeVolumeAttributeResponse = DescribeVolumeAttributeResponse+    { _dvarVolumeId     = Nothing+    , _dvarAutoEnableIO = Nothing+    , _dvarProductCodes = mempty+    }++-- | The state of autoEnableIO attribute.+dvarAutoEnableIO :: Lens' DescribeVolumeAttributeResponse (Maybe AttributeBooleanValue)+dvarAutoEnableIO = lens _dvarAutoEnableIO (\s a -> s { _dvarAutoEnableIO = a })++-- | A list of product codes.+dvarProductCodes :: Lens' DescribeVolumeAttributeResponse [ProductCode]+dvarProductCodes = lens _dvarProductCodes (\s a -> s { _dvarProductCodes = a }) . _List++-- | The ID of the volume.+dvarVolumeId :: Lens' DescribeVolumeAttributeResponse (Maybe Text)+dvarVolumeId = lens _dvarVolumeId (\s a -> s { _dvarVolumeId = a })++instance ToPath DescribeVolumeAttribute where+    toPath = const "/"++instance ToQuery DescribeVolumeAttribute where+    toQuery DescribeVolumeAttribute{..} = mconcat+        [ "Attribute" =? _dvaAttribute+        , "dryRun"    =? _dvaDryRun+        , "VolumeId"  =? _dvaVolumeId+        ]++instance ToHeaders DescribeVolumeAttribute++instance AWSRequest DescribeVolumeAttribute where+    type Sv DescribeVolumeAttribute = EC2+    type Rs DescribeVolumeAttribute = DescribeVolumeAttributeResponse++    request  = post "DescribeVolumeAttribute"+    response = xmlResponse++instance FromXML DescribeVolumeAttributeResponse where+    parseXML x = DescribeVolumeAttributeResponse+        <$> x .@? "autoEnableIO"+        <*> x .@  "productCodes"+        <*> x .@? "volumeId"
+ gen/Network/AWS/EC2/DescribeVolumeStatus.hs view
@@ -0,0 +1,202 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.DescribeVolumeStatus+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Describes the status of the specified volumes. Volume status provides the+-- result of the checks performed on your volumes to determine events that can+-- impair the performance of your volumes. The performance of a volume can be+-- affected if an issue occurs on the volume's underlying host. If the+-- volume's underlying host experiences a power outage or system issue, after+-- the system is restored, there could be data inconsistencies on the volume.+-- Volume events notify you if this occurs. Volume actions notify you if any+-- action needs to be taken in response to the event. The DescribeVolumeStatus+-- operation provides the following information about the specified volumes:+-- Status: Reflects the current status of the volume. The possible values are+-- ok, impaired , warning, or insufficient-data. If all checks pass, the+-- overall status of the volume is ok. If the check fails, the overall status+-- is impaired. If the status is insufficient-data, then the checks may still+-- be taking place on your volume at the time. We recommend that you retry the+-- request. For more information on volume status, see Monitoring the Status+-- of Your Volumes. Events: Reflect the cause of a volume status and may+-- require you to take action. For example, if your volume returns an impaired+-- status, then the volume event might be potential-data-inconsistency. This+-- means that your volume has been affected by an issue with the underlying+-- host, has all I/O operations disabled, and may have inconsistent data.+-- Actions: Reflect the actions you may have to take in response to an event.+-- For example, if the status of the volume is impaired and the volume event+-- shows potential-data-inconsistency, then the action shows enable-volume-io.+-- This means that you may want to enable the I/O operations for the volume by+-- calling the EnableVolumeIO action and then check the volume for data+-- consistency.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-DescribeVolumeStatus.html>+module Network.AWS.EC2.DescribeVolumeStatus+    (+    -- * Request+      DescribeVolumeStatus+    -- ** Request constructor+    , describeVolumeStatus+    -- ** Request lenses+    , dvsDryRun+    , dvsFilters+    , dvsMaxResults+    , dvsNextToken+    , dvsVolumeIds++    -- * Response+    , DescribeVolumeStatusResponse+    -- ** Response constructor+    , describeVolumeStatusResponse+    -- ** Response lenses+    , dvsrNextToken+    , dvsrVolumeStatuses+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data DescribeVolumeStatus = DescribeVolumeStatus+    { _dvsDryRun     :: Maybe Bool+    , _dvsFilters    :: List "Filter" Filter+    , _dvsMaxResults :: Maybe Int+    , _dvsNextToken  :: Maybe Text+    , _dvsVolumeIds  :: List "VolumeId" Text+    } deriving (Eq, Show)++-- | 'DescribeVolumeStatus' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'dvsDryRun' @::@ 'Maybe' 'Bool'+--+-- * 'dvsFilters' @::@ ['Filter']+--+-- * 'dvsMaxResults' @::@ 'Maybe' 'Int'+--+-- * 'dvsNextToken' @::@ 'Maybe' 'Text'+--+-- * 'dvsVolumeIds' @::@ ['Text']+--+describeVolumeStatus :: DescribeVolumeStatus+describeVolumeStatus = DescribeVolumeStatus+    { _dvsDryRun     = Nothing+    , _dvsVolumeIds  = mempty+    , _dvsFilters    = mempty+    , _dvsNextToken  = Nothing+    , _dvsMaxResults = Nothing+    }++dvsDryRun :: Lens' DescribeVolumeStatus (Maybe Bool)+dvsDryRun = lens _dvsDryRun (\s a -> s { _dvsDryRun = a })++-- | One or more filters. action.code - The action code for the event (for+-- example, enable-volume-io). action.description - A description of the+-- action. action.event-id - The event ID associated with the action.+-- availability-zone - The Availability Zone of the instance.+-- event.description - A description of the event. event.event-id - The+-- event ID. event.event-type - The event type (for io-enabled: passed |+-- failed; for io-performance: io-performance:degraded |+-- io-performance:severely-degraded | io-performance:stalled).+-- event.not-after - The latest end time for the event. event.not-before -+-- The earliest start time for the event. volume-status.details-name - The+-- cause for volume-status.status (io-enabled | io-performance).+-- volume-status.details-status - The status of volume-status.details-name+-- (for io-enabled: passed | failed; for io-performance: normal | degraded |+-- severely-degraded | stalled). volume-status.status - The status of the+-- volume (ok | impaired | warning | insufficient-data).+dvsFilters :: Lens' DescribeVolumeStatus [Filter]+dvsFilters = lens _dvsFilters (\s a -> s { _dvsFilters = a }) . _List++-- | The maximum number of paginated volume items per response.+dvsMaxResults :: Lens' DescribeVolumeStatus (Maybe Int)+dvsMaxResults = lens _dvsMaxResults (\s a -> s { _dvsMaxResults = a })++-- | The next paginated set of results to return using the pagination token+-- returned by a previous call.+dvsNextToken :: Lens' DescribeVolumeStatus (Maybe Text)+dvsNextToken = lens _dvsNextToken (\s a -> s { _dvsNextToken = a })++-- | One or more volume IDs. Default: Describes all your volumes.+dvsVolumeIds :: Lens' DescribeVolumeStatus [Text]+dvsVolumeIds = lens _dvsVolumeIds (\s a -> s { _dvsVolumeIds = a }) . _List++data DescribeVolumeStatusResponse = DescribeVolumeStatusResponse+    { _dvsrNextToken      :: Maybe Text+    , _dvsrVolumeStatuses :: List "item" VolumeStatusItem+    } deriving (Eq, Show)++-- | 'DescribeVolumeStatusResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'dvsrNextToken' @::@ 'Maybe' 'Text'+--+-- * 'dvsrVolumeStatuses' @::@ ['VolumeStatusItem']+--+describeVolumeStatusResponse :: DescribeVolumeStatusResponse+describeVolumeStatusResponse = DescribeVolumeStatusResponse+    { _dvsrVolumeStatuses = mempty+    , _dvsrNextToken      = Nothing+    }++-- | The next paginated set of results to return.+dvsrNextToken :: Lens' DescribeVolumeStatusResponse (Maybe Text)+dvsrNextToken = lens _dvsrNextToken (\s a -> s { _dvsrNextToken = a })++-- | A list of volumes.+dvsrVolumeStatuses :: Lens' DescribeVolumeStatusResponse [VolumeStatusItem]+dvsrVolumeStatuses =+    lens _dvsrVolumeStatuses (\s a -> s { _dvsrVolumeStatuses = a })+        . _List++instance ToPath DescribeVolumeStatus where+    toPath = const "/"++instance ToQuery DescribeVolumeStatus where+    toQuery DescribeVolumeStatus{..} = mconcat+        [ "dryRun"     =? _dvsDryRun+        , "Filter"     =? _dvsFilters+        , "MaxResults" =? _dvsMaxResults+        , "NextToken"  =? _dvsNextToken+        , "VolumeId"   =? _dvsVolumeIds+        ]++instance ToHeaders DescribeVolumeStatus++instance AWSRequest DescribeVolumeStatus where+    type Sv DescribeVolumeStatus = EC2+    type Rs DescribeVolumeStatus = DescribeVolumeStatusResponse++    request  = post "DescribeVolumeStatus"+    response = xmlResponse++instance FromXML DescribeVolumeStatusResponse where+    parseXML x = DescribeVolumeStatusResponse+        <$> x .@? "nextToken"+        <*> x .@  "volumeStatusSet"++instance AWSPager DescribeVolumeStatus where+    page rq rs+        | stop (rq ^. dvsNextToken) = Nothing+        | otherwise = (\x -> rq & dvsNextToken ?~ x)+            <$> (rs ^. dvsrNextToken)
+ gen/Network/AWS/EC2/DescribeVolumes.hs view
@@ -0,0 +1,196 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.DescribeVolumes+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Describes the specified Amazon EBS volumes. If you are describing a long+-- list of volumes, you can paginate the output to make the list more+-- manageable. The MaxResults parameter sets the maximum number of results+-- returned in a single page. If the list of results exceeds your MaxResults+-- value, then that number of results is returned along with a NextToken value+-- that can be passed to a subsequent DescribeVolumes request to retrieve the+-- remaining results. For more information about Amazon EBS volumes, see+-- Amazon EBS Volumes in the Amazon Elastic Compute Cloud User Guide.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-DescribeVolumes.html>+module Network.AWS.EC2.DescribeVolumes+    (+    -- * Request+      DescribeVolumes+    -- ** Request constructor+    , describeVolumes+    -- ** Request lenses+    , dv2DryRun+    , dv2Filters+    , dv2MaxResults+    , dv2NextToken+    , dv2VolumeIds++    -- * Response+    , DescribeVolumesResponse+    -- ** Response constructor+    , describeVolumesResponse+    -- ** Response lenses+    , dvrNextToken+    , dvrVolumes+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data DescribeVolumes = DescribeVolumes+    { _dv2DryRun     :: Maybe Bool+    , _dv2Filters    :: List "Filter" Filter+    , _dv2MaxResults :: Maybe Int+    , _dv2NextToken  :: Maybe Text+    , _dv2VolumeIds  :: List "VolumeId" Text+    } deriving (Eq, Show)++-- | 'DescribeVolumes' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'dv2DryRun' @::@ 'Maybe' 'Bool'+--+-- * 'dv2Filters' @::@ ['Filter']+--+-- * 'dv2MaxResults' @::@ 'Maybe' 'Int'+--+-- * 'dv2NextToken' @::@ 'Maybe' 'Text'+--+-- * 'dv2VolumeIds' @::@ ['Text']+--+describeVolumes :: DescribeVolumes+describeVolumes = DescribeVolumes+    { _dv2DryRun     = Nothing+    , _dv2VolumeIds  = mempty+    , _dv2Filters    = mempty+    , _dv2NextToken  = Nothing+    , _dv2MaxResults = Nothing+    }++dv2DryRun :: Lens' DescribeVolumes (Maybe Bool)+dv2DryRun = lens _dv2DryRun (\s a -> s { _dv2DryRun = a })++-- | One or more filters. attachment.attach-time - The time stamp when the+-- attachment initiated. attachment.delete-on-termination - Whether the+-- volume is deleted on instance termination. attachment.device - The device+-- name that is exposed to the instance (for example, /dev/sda1).+-- attachment.instance-id - The ID of the instance the volume is attached+-- to. attachment.status - The attachment state (attaching | attached |+-- detaching | detached). availability-zone - The Availability Zone in which+-- the volume was created. create-time - The time stamp when the volume was+-- created. encrypted - The encryption status of the volume. size - The size+-- of the volume, in GiB. snapshot-id - The snapshot from which the volume+-- was created. status - The status of the volume (creating | available |+-- in-use | deleting | deleted | error). tag:key=value - The key/value+-- combination of a tag assigned to the resource. tag-key - The key of a tag+-- assigned to the resource. This filter is independent of the tag-value+-- filter. For example, if you use both the filter "tag-key=Purpose" and the+-- filter "tag-value=X", you get any resources assigned both the tag key+-- Purpose (regardless of what the tag's value is), and the tag value X+-- (regardless of what the tag's key is). If you want to list only resources+-- where Purpose is X, see the tag:key=value filter. tag-value - The value+-- of a tag assigned to the resource. This filter is independent of the+-- tag-key filter. volume-id - The volume ID. volume-type - The Amazon EBS+-- volume type. This can be gp2 for General Purpose (SSD) volumes, io1 for+-- Provisioned IOPS (SSD) volumes, or standard for Magnetic volumes.+dv2Filters :: Lens' DescribeVolumes [Filter]+dv2Filters = lens _dv2Filters (\s a -> s { _dv2Filters = a }) . _List++-- | The maximum number of volume results returned by DescribeVolumes in+-- paginated output. When this parameter is used, DescribeVolumes only+-- returns MaxResults results in a single page along with a NextToken+-- response element. The remaining results of the initial request can be+-- seen by sending another DescribeVolumes request with the returned+-- NextToken value. This value can be between 5 and 1000; if MaxResults is+-- given a value larger than 1000, only 1000 results are returned. If this+-- parameter is not used, then DescribeVolumes returns all results.+dv2MaxResults :: Lens' DescribeVolumes (Maybe Int)+dv2MaxResults = lens _dv2MaxResults (\s a -> s { _dv2MaxResults = a })++-- | The NextToken value returned from a previous paginated DescribeVolumes+-- request where MaxResults was used and the results exceeded the value of+-- that parameter. Pagination continues from the end of the previous results+-- that returned the NextToken value. This value is null when there are no+-- more results to return.+dv2NextToken :: Lens' DescribeVolumes (Maybe Text)+dv2NextToken = lens _dv2NextToken (\s a -> s { _dv2NextToken = a })++-- | One or more volume IDs.+dv2VolumeIds :: Lens' DescribeVolumes [Text]+dv2VolumeIds = lens _dv2VolumeIds (\s a -> s { _dv2VolumeIds = a }) . _List++data DescribeVolumesResponse = DescribeVolumesResponse+    { _dvrNextToken :: Maybe Text+    , _dvrVolumes   :: List "item" Volume+    } deriving (Eq, Show)++-- | 'DescribeVolumesResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'dvrNextToken' @::@ 'Maybe' 'Text'+--+-- * 'dvrVolumes' @::@ ['Volume']+--+describeVolumesResponse :: DescribeVolumesResponse+describeVolumesResponse = DescribeVolumesResponse+    { _dvrVolumes   = mempty+    , _dvrNextToken = Nothing+    }++-- | The NextToken value to include in a future DescribeVolumes request. When+-- the results of a DescribeVolumes request exceed MaxResults, this value+-- can be used to retrieve the next page of results. This value is null when+-- there are no more results to return.+dvrNextToken :: Lens' DescribeVolumesResponse (Maybe Text)+dvrNextToken = lens _dvrNextToken (\s a -> s { _dvrNextToken = a })++dvrVolumes :: Lens' DescribeVolumesResponse [Volume]+dvrVolumes = lens _dvrVolumes (\s a -> s { _dvrVolumes = a }) . _List++instance ToPath DescribeVolumes where+    toPath = const "/"++instance ToQuery DescribeVolumes where+    toQuery DescribeVolumes{..} = mconcat+        [ "dryRun"     =? _dv2DryRun+        , "Filter"     =? _dv2Filters+        , "maxResults" =? _dv2MaxResults+        , "nextToken"  =? _dv2NextToken+        , "VolumeId"   =? _dv2VolumeIds+        ]++instance ToHeaders DescribeVolumes++instance AWSRequest DescribeVolumes where+    type Sv DescribeVolumes = EC2+    type Rs DescribeVolumes = DescribeVolumesResponse++    request  = post "DescribeVolumes"+    response = xmlResponse++instance FromXML DescribeVolumesResponse where+    parseXML x = DescribeVolumesResponse+        <$> x .@? "nextToken"+        <*> x .@  "volumeSet"
+ gen/Network/AWS/EC2/DescribeVpcAttribute.hs view
@@ -0,0 +1,152 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.DescribeVpcAttribute+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Describes the specified attribute of the specified VPC. You can specify+-- only one attribute at a time.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-DescribeVpcAttribute.html>+module Network.AWS.EC2.DescribeVpcAttribute+    (+    -- * Request+      DescribeVpcAttribute+    -- ** Request constructor+    , describeVpcAttribute+    -- ** Request lenses+    , dva1Attribute+    , dva1DryRun+    , dva1VpcId++    -- * Response+    , DescribeVpcAttributeResponse+    -- ** Response constructor+    , describeVpcAttributeResponse+    -- ** Response lenses+    , dvarEnableDnsHostnames+    , dvarEnableDnsSupport+    , dvarVpcId+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data DescribeVpcAttribute = DescribeVpcAttribute+    { _dva1Attribute :: Maybe Text+    , _dva1DryRun    :: Maybe Bool+    , _dva1VpcId     :: Text+    } deriving (Eq, Ord, Show)++-- | 'DescribeVpcAttribute' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'dva1Attribute' @::@ 'Maybe' 'Text'+--+-- * 'dva1DryRun' @::@ 'Maybe' 'Bool'+--+-- * 'dva1VpcId' @::@ 'Text'+--+describeVpcAttribute :: Text -- ^ 'dva1VpcId'+                     -> DescribeVpcAttribute+describeVpcAttribute p1 = DescribeVpcAttribute+    { _dva1VpcId     = p1+    , _dva1DryRun    = Nothing+    , _dva1Attribute = Nothing+    }++-- | The VPC attribute.+dva1Attribute :: Lens' DescribeVpcAttribute (Maybe Text)+dva1Attribute = lens _dva1Attribute (\s a -> s { _dva1Attribute = a })++dva1DryRun :: Lens' DescribeVpcAttribute (Maybe Bool)+dva1DryRun = lens _dva1DryRun (\s a -> s { _dva1DryRun = a })++-- | The ID of the VPC.+dva1VpcId :: Lens' DescribeVpcAttribute Text+dva1VpcId = lens _dva1VpcId (\s a -> s { _dva1VpcId = a })++data DescribeVpcAttributeResponse = DescribeVpcAttributeResponse+    { _dvarEnableDnsHostnames :: Maybe AttributeBooleanValue+    , _dvarEnableDnsSupport   :: Maybe AttributeBooleanValue+    , _dvarVpcId              :: Maybe Text+    } deriving (Eq, Show)++-- | 'DescribeVpcAttributeResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'dvarEnableDnsHostnames' @::@ 'Maybe' 'AttributeBooleanValue'+--+-- * 'dvarEnableDnsSupport' @::@ 'Maybe' 'AttributeBooleanValue'+--+-- * 'dvarVpcId' @::@ 'Maybe' 'Text'+--+describeVpcAttributeResponse :: DescribeVpcAttributeResponse+describeVpcAttributeResponse = DescribeVpcAttributeResponse+    { _dvarVpcId              = Nothing+    , _dvarEnableDnsSupport   = Nothing+    , _dvarEnableDnsHostnames = Nothing+    }++-- | Indicates whether the instances launched in the VPC get DNS hostnames. If+-- this attribute is true, instances in the VPC get DNS hostnames;+-- otherwise, they do not.+dvarEnableDnsHostnames :: Lens' DescribeVpcAttributeResponse (Maybe AttributeBooleanValue)+dvarEnableDnsHostnames =+    lens _dvarEnableDnsHostnames (\s a -> s { _dvarEnableDnsHostnames = a })++-- | Indicates whether DNS resolution is enabled for the VPC. If this+-- attribute is true, the Amazon DNS server resolves DNS hostnames for your+-- instances to their corresponding IP addresses; otherwise, it does not.+dvarEnableDnsSupport :: Lens' DescribeVpcAttributeResponse (Maybe AttributeBooleanValue)+dvarEnableDnsSupport =+    lens _dvarEnableDnsSupport (\s a -> s { _dvarEnableDnsSupport = a })++-- | The ID of the VPC.+dvarVpcId :: Lens' DescribeVpcAttributeResponse (Maybe Text)+dvarVpcId = lens _dvarVpcId (\s a -> s { _dvarVpcId = a })++instance ToPath DescribeVpcAttribute where+    toPath = const "/"++instance ToQuery DescribeVpcAttribute where+    toQuery DescribeVpcAttribute{..} = mconcat+        [ "Attribute" =? _dva1Attribute+        , "dryRun"    =? _dva1DryRun+        , "VpcId"     =? _dva1VpcId+        ]++instance ToHeaders DescribeVpcAttribute++instance AWSRequest DescribeVpcAttribute where+    type Sv DescribeVpcAttribute = EC2+    type Rs DescribeVpcAttribute = DescribeVpcAttributeResponse++    request  = post "DescribeVpcAttribute"+    response = xmlResponse++instance FromXML DescribeVpcAttributeResponse where+    parseXML x = DescribeVpcAttributeResponse+        <$> x .@? "enableDnsHostnames"+        <*> x .@? "enableDnsSupport"+        <*> x .@? "vpcId"
+ gen/Network/AWS/EC2/DescribeVpcPeeringConnections.hs view
@@ -0,0 +1,157 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.DescribeVpcPeeringConnections+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Describes one or more of your VPC peering connections.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-DescribeVpcPeeringConnections.html>+module Network.AWS.EC2.DescribeVpcPeeringConnections+    (+    -- * Request+      DescribeVpcPeeringConnections+    -- ** Request constructor+    , describeVpcPeeringConnections+    -- ** Request lenses+    , dvpc1DryRun+    , dvpc1Filters+    , dvpc1VpcPeeringConnectionIds++    -- * Response+    , DescribeVpcPeeringConnectionsResponse+    -- ** Response constructor+    , describeVpcPeeringConnectionsResponse+    -- ** Response lenses+    , dvpcrVpcPeeringConnections+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data DescribeVpcPeeringConnections = DescribeVpcPeeringConnections+    { _dvpc1DryRun                  :: Maybe Bool+    , _dvpc1Filters                 :: List "Filter" Filter+    , _dvpc1VpcPeeringConnectionIds :: List "item" Text+    } deriving (Eq, Show)++-- | 'DescribeVpcPeeringConnections' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'dvpc1DryRun' @::@ 'Maybe' 'Bool'+--+-- * 'dvpc1Filters' @::@ ['Filter']+--+-- * 'dvpc1VpcPeeringConnectionIds' @::@ ['Text']+--+describeVpcPeeringConnections :: DescribeVpcPeeringConnections+describeVpcPeeringConnections = DescribeVpcPeeringConnections+    { _dvpc1DryRun                  = Nothing+    , _dvpc1VpcPeeringConnectionIds = mempty+    , _dvpc1Filters                 = mempty+    }++dvpc1DryRun :: Lens' DescribeVpcPeeringConnections (Maybe Bool)+dvpc1DryRun = lens _dvpc1DryRun (\s a -> s { _dvpc1DryRun = a })++-- | One or more filters. accepter-vpc-info.cidr-block - The CIDR block of the+-- peer VPC. accepter-vpc-info.owner-id - The AWS account ID of the owner of+-- the peer VPC. accepter-vpc-info.vpc-id - The ID of the peer VPC.+-- expiration-time - The expiration date and time for the VPC peering+-- connection. requester-vpc-info.cidr-block - The CIDR block of the+-- requester's VPC. requester-vpc-info.owner-id - The AWS account ID of the+-- owner of the requester VPC. requester-vpc-info.vpc-id - The ID of the+-- requester VPC. status-code - The status of the VPC peering connection+-- (pending-acceptance | failed | expired | provisioning | active | deleted+-- | rejected). status-message - A message that provides more information+-- about the status of the VPC peering connection, if applicable.+-- tag:key=value - The key/value combination of a tag assigned to the+-- resource. tag-key - The key of a tag assigned to the resource. This+-- filter is independent of the tag-value filter. For example, if you use+-- both the filter "tag-key=Purpose" and the filter "tag-value=X", you get+-- any resources assigned both the tag key Purpose (regardless of what the+-- tag's value is), and the tag value X (regardless of what the tag's key+-- is). If you want to list only resources where Purpose is X, see the+-- tag:key=value filter. tag-value - The value of a tag assigned to the+-- resource. This filter is independent of the tag-key filter.+-- vpc-peering-connection-id - The ID of the VPC peering connection.+dvpc1Filters :: Lens' DescribeVpcPeeringConnections [Filter]+dvpc1Filters = lens _dvpc1Filters (\s a -> s { _dvpc1Filters = a }) . _List++-- | One or more VPC peering connection IDs. Default: Describes all your VPC+-- peering connections.+dvpc1VpcPeeringConnectionIds :: Lens' DescribeVpcPeeringConnections [Text]+dvpc1VpcPeeringConnectionIds =+    lens _dvpc1VpcPeeringConnectionIds+        (\s a -> s { _dvpc1VpcPeeringConnectionIds = a })+            . _List++newtype DescribeVpcPeeringConnectionsResponse = DescribeVpcPeeringConnectionsResponse+    { _dvpcrVpcPeeringConnections :: List "item" VpcPeeringConnection+    } deriving (Eq, Show, Monoid, Semigroup)++instance GHC.Exts.IsList DescribeVpcPeeringConnectionsResponse where+    type Item DescribeVpcPeeringConnectionsResponse = VpcPeeringConnection++    fromList = DescribeVpcPeeringConnectionsResponse . GHC.Exts.fromList+    toList   = GHC.Exts.toList . _dvpcrVpcPeeringConnections++-- | 'DescribeVpcPeeringConnectionsResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'dvpcrVpcPeeringConnections' @::@ ['VpcPeeringConnection']+--+describeVpcPeeringConnectionsResponse :: DescribeVpcPeeringConnectionsResponse+describeVpcPeeringConnectionsResponse = DescribeVpcPeeringConnectionsResponse+    { _dvpcrVpcPeeringConnections = mempty+    }++-- | Information about the VPC peering connections.+dvpcrVpcPeeringConnections :: Lens' DescribeVpcPeeringConnectionsResponse [VpcPeeringConnection]+dvpcrVpcPeeringConnections =+    lens _dvpcrVpcPeeringConnections+        (\s a -> s { _dvpcrVpcPeeringConnections = a })+            . _List++instance ToPath DescribeVpcPeeringConnections where+    toPath = const "/"++instance ToQuery DescribeVpcPeeringConnections where+    toQuery DescribeVpcPeeringConnections{..} = mconcat+        [ "dryRun"                 =? _dvpc1DryRun+        , "Filter"                 =? _dvpc1Filters+        , "VpcPeeringConnectionId" =? _dvpc1VpcPeeringConnectionIds+        ]++instance ToHeaders DescribeVpcPeeringConnections++instance AWSRequest DescribeVpcPeeringConnections where+    type Sv DescribeVpcPeeringConnections = EC2+    type Rs DescribeVpcPeeringConnections = DescribeVpcPeeringConnectionsResponse++    request  = post "DescribeVpcPeeringConnections"+    response = xmlResponse++instance FromXML DescribeVpcPeeringConnectionsResponse where+    parseXML x = DescribeVpcPeeringConnectionsResponse+        <$> x .@  "vpcPeeringConnectionSet"
+ gen/Network/AWS/EC2/DescribeVpcs.hs view
@@ -0,0 +1,144 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.DescribeVpcs+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Describes one or more of your VPCs.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-DescribeVpcs.html>+module Network.AWS.EC2.DescribeVpcs+    (+    -- * Request+      DescribeVpcs+    -- ** Request constructor+    , describeVpcs+    -- ** Request lenses+    , dv1DryRun+    , dv1Filters+    , dv1VpcIds++    -- * Response+    , DescribeVpcsResponse+    -- ** Response constructor+    , describeVpcsResponse+    -- ** Response lenses+    , dvrVpcs+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data DescribeVpcs = DescribeVpcs+    { _dv1DryRun  :: Maybe Bool+    , _dv1Filters :: List "Filter" Filter+    , _dv1VpcIds  :: List "VpcId" Text+    } deriving (Eq, Show)++-- | 'DescribeVpcs' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'dv1DryRun' @::@ 'Maybe' 'Bool'+--+-- * 'dv1Filters' @::@ ['Filter']+--+-- * 'dv1VpcIds' @::@ ['Text']+--+describeVpcs :: DescribeVpcs+describeVpcs = DescribeVpcs+    { _dv1DryRun  = Nothing+    , _dv1VpcIds  = mempty+    , _dv1Filters = mempty+    }++dv1DryRun :: Lens' DescribeVpcs (Maybe Bool)+dv1DryRun = lens _dv1DryRun (\s a -> s { _dv1DryRun = a })++-- | One or more filters. cidr - The CIDR block of the VPC. The CIDR block you+-- specify must exactly match the VPC's CIDR block for information to be+-- returned for the VPC. Must contain the slash followed by one or two+-- digits (for example, /28). dhcp-options-id - The ID of a set of DHCP+-- options. isDefault - Indicates whether the VPC is the default VPC. state+-- - The state of the VPC (pending | available). tag:key=value - The+-- key/value combination of a tag assigned to the resource. tag-key - The+-- key of a tag assigned to the resource. This filter is independent of the+-- tag-value filter. For example, if you use both the filter+-- "tag-key=Purpose" and the filter "tag-value=X", you get any resources+-- assigned both the tag key Purpose (regardless of what the tag's value+-- is), and the tag value X (regardless of what the tag's key is). If you+-- want to list only resources where Purpose is X, see the tag:key=value+-- filter. tag-value - The value of a tag assigned to the resource. This+-- filter is independent of the tag-key filter. vpc-id - The ID of the VPC.+dv1Filters :: Lens' DescribeVpcs [Filter]+dv1Filters = lens _dv1Filters (\s a -> s { _dv1Filters = a }) . _List++-- | One or more VPC IDs. Default: Describes all your VPCs.+dv1VpcIds :: Lens' DescribeVpcs [Text]+dv1VpcIds = lens _dv1VpcIds (\s a -> s { _dv1VpcIds = a }) . _List++newtype DescribeVpcsResponse = DescribeVpcsResponse+    { _dvrVpcs :: List "item" Vpc+    } deriving (Eq, Show, Monoid, Semigroup)++instance GHC.Exts.IsList DescribeVpcsResponse where+    type Item DescribeVpcsResponse = Vpc++    fromList = DescribeVpcsResponse . GHC.Exts.fromList+    toList   = GHC.Exts.toList . _dvrVpcs++-- | 'DescribeVpcsResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'dvrVpcs' @::@ ['Vpc']+--+describeVpcsResponse :: DescribeVpcsResponse+describeVpcsResponse = DescribeVpcsResponse+    { _dvrVpcs = mempty+    }++-- | Information about one or more VPCs.+dvrVpcs :: Lens' DescribeVpcsResponse [Vpc]+dvrVpcs = lens _dvrVpcs (\s a -> s { _dvrVpcs = a }) . _List++instance ToPath DescribeVpcs where+    toPath = const "/"++instance ToQuery DescribeVpcs where+    toQuery DescribeVpcs{..} = mconcat+        [ "dryRun" =? _dv1DryRun+        , "Filter" =? _dv1Filters+        , "VpcId"  =? _dv1VpcIds+        ]++instance ToHeaders DescribeVpcs++instance AWSRequest DescribeVpcs where+    type Sv DescribeVpcs = EC2+    type Rs DescribeVpcs = DescribeVpcsResponse++    request  = post "DescribeVpcs"+    response = xmlResponse++instance FromXML DescribeVpcsResponse where+    parseXML x = DescribeVpcsResponse+        <$> x .@  "vpcSet"
+ gen/Network/AWS/EC2/DescribeVpnConnections.hs view
@@ -0,0 +1,156 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.DescribeVpnConnections+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Describes one or more of your VPN connections. For more information about+-- VPN connections, see Adding a Hardware Virtual Private Gateway to Your VPC+-- in the Amazon Virtual Private Cloud User Guide.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-DescribeVpnConnections.html>+module Network.AWS.EC2.DescribeVpnConnections+    (+    -- * Request+      DescribeVpnConnections+    -- ** Request constructor+    , describeVpnConnections+    -- ** Request lenses+    , dvc1DryRun+    , dvc1Filters+    , dvc1VpnConnectionIds++    -- * Response+    , DescribeVpnConnectionsResponse+    -- ** Response constructor+    , describeVpnConnectionsResponse+    -- ** Response lenses+    , dvcrVpnConnections+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data DescribeVpnConnections = DescribeVpnConnections+    { _dvc1DryRun           :: Maybe Bool+    , _dvc1Filters          :: List "Filter" Filter+    , _dvc1VpnConnectionIds :: List "VpnConnectionId" Text+    } deriving (Eq, Show)++-- | 'DescribeVpnConnections' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'dvc1DryRun' @::@ 'Maybe' 'Bool'+--+-- * 'dvc1Filters' @::@ ['Filter']+--+-- * 'dvc1VpnConnectionIds' @::@ ['Text']+--+describeVpnConnections :: DescribeVpnConnections+describeVpnConnections = DescribeVpnConnections+    { _dvc1DryRun           = Nothing+    , _dvc1VpnConnectionIds = mempty+    , _dvc1Filters          = mempty+    }++dvc1DryRun :: Lens' DescribeVpnConnections (Maybe Bool)+dvc1DryRun = lens _dvc1DryRun (\s a -> s { _dvc1DryRun = a })++-- | One or more filters. customer-gateway-configuration - The configuration+-- information for the customer gateway. customer-gateway-id - The ID of a+-- customer gateway associated with the VPN connection. state - The state of+-- the VPN connection (pending | available | deleting | deleted).+-- option.static-routes-only - Indicates whether the connection has static+-- routes only. Used for devices that do not support Border Gateway Protocol+-- (BGP). route.destination-cidr-block - The destination CIDR block. This+-- corresponds to the subnet used in a customer data center. bgp-asn - The+-- BGP Autonomous System Number (ASN) associated with a BGP device.+-- tag:key=value - The key/value combination of a tag assigned to the+-- resource. tag-key - The key of a tag assigned to the resource. This+-- filter is independent of the tag-value filter. For example, if you use+-- both the filter "tag-key=Purpose" and the filter "tag-value=X", you get+-- any resources assigned both the tag key Purpose (regardless of what the+-- tag's value is), and the tag value X (regardless of what the tag's key+-- is). If you want to list only resources where Purpose is X, see the+-- tag:key=value filter. tag-value - The value of a tag assigned to the+-- resource. This filter is independent of the tag-key filter. type - The+-- type of VPN connection. Currently the only supported type is ipsec.1.+-- vpn-connection-id - The ID of the VPN connection. vpn-gateway-id - The ID+-- of a virtual private gateway associated with the VPN connection.+dvc1Filters :: Lens' DescribeVpnConnections [Filter]+dvc1Filters = lens _dvc1Filters (\s a -> s { _dvc1Filters = a }) . _List++-- | One or more VPN connection IDs. Default: Describes your VPN connections.+dvc1VpnConnectionIds :: Lens' DescribeVpnConnections [Text]+dvc1VpnConnectionIds =+    lens _dvc1VpnConnectionIds (\s a -> s { _dvc1VpnConnectionIds = a })+        . _List++newtype DescribeVpnConnectionsResponse = DescribeVpnConnectionsResponse+    { _dvcrVpnConnections :: List "item" VpnConnection+    } deriving (Eq, Show, Monoid, Semigroup)++instance GHC.Exts.IsList DescribeVpnConnectionsResponse where+    type Item DescribeVpnConnectionsResponse = VpnConnection++    fromList = DescribeVpnConnectionsResponse . GHC.Exts.fromList+    toList   = GHC.Exts.toList . _dvcrVpnConnections++-- | 'DescribeVpnConnectionsResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'dvcrVpnConnections' @::@ ['VpnConnection']+--+describeVpnConnectionsResponse :: DescribeVpnConnectionsResponse+describeVpnConnectionsResponse = DescribeVpnConnectionsResponse+    { _dvcrVpnConnections = mempty+    }++-- | Information about one or more VPN connections.+dvcrVpnConnections :: Lens' DescribeVpnConnectionsResponse [VpnConnection]+dvcrVpnConnections =+    lens _dvcrVpnConnections (\s a -> s { _dvcrVpnConnections = a })+        . _List++instance ToPath DescribeVpnConnections where+    toPath = const "/"++instance ToQuery DescribeVpnConnections where+    toQuery DescribeVpnConnections{..} = mconcat+        [ "dryRun"          =? _dvc1DryRun+        , "Filter"          =? _dvc1Filters+        , "VpnConnectionId" =? _dvc1VpnConnectionIds+        ]++instance ToHeaders DescribeVpnConnections++instance AWSRequest DescribeVpnConnections where+    type Sv DescribeVpnConnections = EC2+    type Rs DescribeVpnConnections = DescribeVpnConnectionsResponse++    request  = post "DescribeVpnConnections"+    response = xmlResponse++instance FromXML DescribeVpnConnectionsResponse where+    parseXML x = DescribeVpnConnectionsResponse+        <$> x .@  "vpnConnectionSet"
+ gen/Network/AWS/EC2/DescribeVpnGateways.hs view
@@ -0,0 +1,151 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.DescribeVpnGateways+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Describes one or more of your virtual private gateways. For more+-- information about virtual private gateways, see Adding an IPsec Hardware+-- VPN to Your VPC in the Amazon Virtual Private Cloud User Guide.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-DescribeVpnGateways.html>+module Network.AWS.EC2.DescribeVpnGateways+    (+    -- * Request+      DescribeVpnGateways+    -- ** Request constructor+    , describeVpnGateways+    -- ** Request lenses+    , dvg2DryRun+    , dvg2Filters+    , dvg2VpnGatewayIds++    -- * Response+    , DescribeVpnGatewaysResponse+    -- ** Response constructor+    , describeVpnGatewaysResponse+    -- ** Response lenses+    , dvgrVpnGateways+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data DescribeVpnGateways = DescribeVpnGateways+    { _dvg2DryRun        :: Maybe Bool+    , _dvg2Filters       :: List "Filter" Filter+    , _dvg2VpnGatewayIds :: List "VpnGatewayId" Text+    } deriving (Eq, Show)++-- | 'DescribeVpnGateways' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'dvg2DryRun' @::@ 'Maybe' 'Bool'+--+-- * 'dvg2Filters' @::@ ['Filter']+--+-- * 'dvg2VpnGatewayIds' @::@ ['Text']+--+describeVpnGateways :: DescribeVpnGateways+describeVpnGateways = DescribeVpnGateways+    { _dvg2DryRun        = Nothing+    , _dvg2VpnGatewayIds = mempty+    , _dvg2Filters       = mempty+    }++dvg2DryRun :: Lens' DescribeVpnGateways (Maybe Bool)+dvg2DryRun = lens _dvg2DryRun (\s a -> s { _dvg2DryRun = a })++-- | One or more filters. attachment.state - The current state of the+-- attachment between the gateway and the VPC (attaching | attached |+-- detaching | detached). attachment.vpc-id - The ID of an attached VPC.+-- availability-zone - The Availability Zone for the virtual private+-- gateway. state - The state of the virtual private gateway (pending |+-- available | deleting | deleted). tag:key=value - The key/value+-- combination of a tag assigned to the resource. tag-key - The key of a tag+-- assigned to the resource. This filter is independent of the tag-value+-- filter. For example, if you use both the filter "tag-key=Purpose" and the+-- filter "tag-value=X", you get any resources assigned both the tag key+-- Purpose (regardless of what the tag's value is), and the tag value X+-- (regardless of what the tag's key is). If you want to list only resources+-- where Purpose is X, see the tag:key=value filter. tag-value - The value+-- of a tag assigned to the resource. This filter is independent of the+-- tag-key filter. type - The type of virtual private gateway. Currently the+-- only supported type is ipsec.1. vpn-gateway-id - The ID of the virtual+-- private gateway.+dvg2Filters :: Lens' DescribeVpnGateways [Filter]+dvg2Filters = lens _dvg2Filters (\s a -> s { _dvg2Filters = a }) . _List++-- | One or more virtual private gateway IDs. Default: Describes all your+-- virtual private gateways.+dvg2VpnGatewayIds :: Lens' DescribeVpnGateways [Text]+dvg2VpnGatewayIds =+    lens _dvg2VpnGatewayIds (\s a -> s { _dvg2VpnGatewayIds = a })+        . _List++newtype DescribeVpnGatewaysResponse = DescribeVpnGatewaysResponse+    { _dvgrVpnGateways :: List "item" VpnGateway+    } deriving (Eq, Show, Monoid, Semigroup)++instance GHC.Exts.IsList DescribeVpnGatewaysResponse where+    type Item DescribeVpnGatewaysResponse = VpnGateway++    fromList = DescribeVpnGatewaysResponse . GHC.Exts.fromList+    toList   = GHC.Exts.toList . _dvgrVpnGateways++-- | 'DescribeVpnGatewaysResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'dvgrVpnGateways' @::@ ['VpnGateway']+--+describeVpnGatewaysResponse :: DescribeVpnGatewaysResponse+describeVpnGatewaysResponse = DescribeVpnGatewaysResponse+    { _dvgrVpnGateways = mempty+    }++-- | Information about one or more virtual private gateways.+dvgrVpnGateways :: Lens' DescribeVpnGatewaysResponse [VpnGateway]+dvgrVpnGateways = lens _dvgrVpnGateways (\s a -> s { _dvgrVpnGateways = a }) . _List++instance ToPath DescribeVpnGateways where+    toPath = const "/"++instance ToQuery DescribeVpnGateways where+    toQuery DescribeVpnGateways{..} = mconcat+        [ "dryRun"       =? _dvg2DryRun+        , "Filter"       =? _dvg2Filters+        , "VpnGatewayId" =? _dvg2VpnGatewayIds+        ]++instance ToHeaders DescribeVpnGateways++instance AWSRequest DescribeVpnGateways where+    type Sv DescribeVpnGateways = EC2+    type Rs DescribeVpnGateways = DescribeVpnGatewaysResponse++    request  = post "DescribeVpnGateways"+    response = xmlResponse++instance FromXML DescribeVpnGatewaysResponse where+    parseXML x = DescribeVpnGatewaysResponse+        <$> x .@  "vpnGatewaySet"
+ gen/Network/AWS/EC2/DetachInternetGateway.hs view
@@ -0,0 +1,111 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.DetachInternetGateway+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Detaches an Internet gateway from a VPC, disabling connectivity between the+-- Internet and the VPC. The VPC must not contain any running instances with+-- Elastic IP addresses.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-DetachInternetGateway.html>+module Network.AWS.EC2.DetachInternetGateway+    (+    -- * Request+      DetachInternetGateway+    -- ** Request constructor+    , detachInternetGateway+    -- ** Request lenses+    , digDryRun+    , digInternetGatewayId+    , digVpcId++    -- * Response+    , DetachInternetGatewayResponse+    -- ** Response constructor+    , detachInternetGatewayResponse+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data DetachInternetGateway = DetachInternetGateway+    { _digDryRun            :: Maybe Bool+    , _digInternetGatewayId :: Text+    , _digVpcId             :: Text+    } deriving (Eq, Ord, Show)++-- | 'DetachInternetGateway' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'digDryRun' @::@ 'Maybe' 'Bool'+--+-- * 'digInternetGatewayId' @::@ 'Text'+--+-- * 'digVpcId' @::@ 'Text'+--+detachInternetGateway :: Text -- ^ 'digInternetGatewayId'+                      -> Text -- ^ 'digVpcId'+                      -> DetachInternetGateway+detachInternetGateway p1 p2 = DetachInternetGateway+    { _digInternetGatewayId = p1+    , _digVpcId             = p2+    , _digDryRun            = Nothing+    }++digDryRun :: Lens' DetachInternetGateway (Maybe Bool)+digDryRun = lens _digDryRun (\s a -> s { _digDryRun = a })++-- | The ID of the Internet gateway.+digInternetGatewayId :: Lens' DetachInternetGateway Text+digInternetGatewayId =+    lens _digInternetGatewayId (\s a -> s { _digInternetGatewayId = a })++-- | The ID of the VPC.+digVpcId :: Lens' DetachInternetGateway Text+digVpcId = lens _digVpcId (\s a -> s { _digVpcId = a })++data DetachInternetGatewayResponse = DetachInternetGatewayResponse+    deriving (Eq, Ord, Show, Generic)++-- | 'DetachInternetGatewayResponse' constructor.+detachInternetGatewayResponse :: DetachInternetGatewayResponse+detachInternetGatewayResponse = DetachInternetGatewayResponse++instance ToPath DetachInternetGateway where+    toPath = const "/"++instance ToQuery DetachInternetGateway where+    toQuery DetachInternetGateway{..} = mconcat+        [ "dryRun"            =? _digDryRun+        , "internetGatewayId" =? _digInternetGatewayId+        , "vpcId"             =? _digVpcId+        ]++instance ToHeaders DetachInternetGateway++instance AWSRequest DetachInternetGateway where+    type Sv DetachInternetGateway = EC2+    type Rs DetachInternetGateway = DetachInternetGatewayResponse++    request  = post "DetachInternetGateway"+    response = nullResponse DetachInternetGatewayResponse
+ gen/Network/AWS/EC2/DetachNetworkInterface.hs view
@@ -0,0 +1,107 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.DetachNetworkInterface+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Detaches a network interface from an instance.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-DetachNetworkInterface.html>+module Network.AWS.EC2.DetachNetworkInterface+    (+    -- * Request+      DetachNetworkInterface+    -- ** Request constructor+    , detachNetworkInterface+    -- ** Request lenses+    , dniAttachmentId+    , dniDryRun+    , dniForce++    -- * Response+    , DetachNetworkInterfaceResponse+    -- ** Response constructor+    , detachNetworkInterfaceResponse+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data DetachNetworkInterface = DetachNetworkInterface+    { _dniAttachmentId :: Text+    , _dniDryRun       :: Maybe Bool+    , _dniForce        :: Maybe Bool+    } deriving (Eq, Ord, Show)++-- | 'DetachNetworkInterface' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'dniAttachmentId' @::@ 'Text'+--+-- * 'dniDryRun' @::@ 'Maybe' 'Bool'+--+-- * 'dniForce' @::@ 'Maybe' 'Bool'+--+detachNetworkInterface :: Text -- ^ 'dniAttachmentId'+                       -> DetachNetworkInterface+detachNetworkInterface p1 = DetachNetworkInterface+    { _dniAttachmentId = p1+    , _dniDryRun       = Nothing+    , _dniForce        = Nothing+    }++-- | The ID of the attachment.+dniAttachmentId :: Lens' DetachNetworkInterface Text+dniAttachmentId = lens _dniAttachmentId (\s a -> s { _dniAttachmentId = a })++dniDryRun :: Lens' DetachNetworkInterface (Maybe Bool)+dniDryRun = lens _dniDryRun (\s a -> s { _dniDryRun = a })++-- | Specifies whether to force a detachment.+dniForce :: Lens' DetachNetworkInterface (Maybe Bool)+dniForce = lens _dniForce (\s a -> s { _dniForce = a })++data DetachNetworkInterfaceResponse = DetachNetworkInterfaceResponse+    deriving (Eq, Ord, Show, Generic)++-- | 'DetachNetworkInterfaceResponse' constructor.+detachNetworkInterfaceResponse :: DetachNetworkInterfaceResponse+detachNetworkInterfaceResponse = DetachNetworkInterfaceResponse++instance ToPath DetachNetworkInterface where+    toPath = const "/"++instance ToQuery DetachNetworkInterface where+    toQuery DetachNetworkInterface{..} = mconcat+        [ "attachmentId" =? _dniAttachmentId+        , "dryRun"       =? _dniDryRun+        , "force"        =? _dniForce+        ]++instance ToHeaders DetachNetworkInterface++instance AWSRequest DetachNetworkInterface where+    type Sv DetachNetworkInterface = EC2+    type Rs DetachNetworkInterface = DetachNetworkInterfaceResponse++    request  = post "DetachNetworkInterface"+    response = nullResponse DetachNetworkInterfaceResponse
+ gen/Network/AWS/EC2/DetachVolume.hs view
@@ -0,0 +1,212 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.DetachVolume+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Detaches an Amazon EBS volume from an instance. Make sure to unmount any+-- file systems on the device within your operating system before detaching+-- the volume. Failure to do so results in the volume being stuck in a busy+-- state while detaching. If an Amazon EBS volume is the root device of an+-- instance, it can't be detached while the instance is running. To detach the+-- root volume, stop the instance first. If the root volume is detached from+-- an instance with an AWS Marketplace product code, then the AWS Marketplace+-- product codes from that volume are no longer associated with the instance.+-- For more information, see Detaching an Amazon EBS Volume in the Amazon+-- Elastic Compute Cloud User Guide.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-DetachVolume.html>+module Network.AWS.EC2.DetachVolume+    (+    -- * Request+      DetachVolume+    -- ** Request constructor+    , detachVolume+    -- ** Request lenses+    , dvDevice+    , dvDryRun+    , dvForce+    , dvInstanceId+    , dvVolumeId++    -- * Response+    , DetachVolumeResponse+    -- ** Response constructor+    , detachVolumeResponse+    -- ** Response lenses+    , dvrAttachTime+    , dvrDeleteOnTermination+    , dvrDevice+    , dvrInstanceId+    , dvrState+    , dvrVolumeId+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data DetachVolume = DetachVolume+    { _dvDevice     :: Maybe Text+    , _dvDryRun     :: Maybe Bool+    , _dvForce      :: Maybe Bool+    , _dvInstanceId :: Maybe Text+    , _dvVolumeId   :: Text+    } deriving (Eq, Ord, Show)++-- | 'DetachVolume' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'dvDevice' @::@ 'Maybe' 'Text'+--+-- * 'dvDryRun' @::@ 'Maybe' 'Bool'+--+-- * 'dvForce' @::@ 'Maybe' 'Bool'+--+-- * 'dvInstanceId' @::@ 'Maybe' 'Text'+--+-- * 'dvVolumeId' @::@ 'Text'+--+detachVolume :: Text -- ^ 'dvVolumeId'+             -> DetachVolume+detachVolume p1 = DetachVolume+    { _dvVolumeId   = p1+    , _dvDryRun     = Nothing+    , _dvInstanceId = Nothing+    , _dvDevice     = Nothing+    , _dvForce      = Nothing+    }++-- | The device name.+dvDevice :: Lens' DetachVolume (Maybe Text)+dvDevice = lens _dvDevice (\s a -> s { _dvDevice = a })++dvDryRun :: Lens' DetachVolume (Maybe Bool)+dvDryRun = lens _dvDryRun (\s a -> s { _dvDryRun = a })++-- | Forces detachment if the previous detachment attempt did not occur+-- cleanly (for example, logging into an instance, unmounting the volume,+-- and detaching normally). This option can lead to data loss or a corrupted+-- file system. Use this option only as a last resort to detach a volume+-- from a failed instance. The instance won't have an opportunity to flush+-- file system caches or file system metadata. If you use this option, you+-- must perform file system check and repair procedures.+dvForce :: Lens' DetachVolume (Maybe Bool)+dvForce = lens _dvForce (\s a -> s { _dvForce = a })++-- | The ID of the instance.+dvInstanceId :: Lens' DetachVolume (Maybe Text)+dvInstanceId = lens _dvInstanceId (\s a -> s { _dvInstanceId = a })++-- | The ID of the volume.+dvVolumeId :: Lens' DetachVolume Text+dvVolumeId = lens _dvVolumeId (\s a -> s { _dvVolumeId = a })++data DetachVolumeResponse = DetachVolumeResponse+    { _dvrAttachTime          :: Maybe RFC822+    , _dvrDeleteOnTermination :: Maybe Bool+    , _dvrDevice              :: Maybe Text+    , _dvrInstanceId          :: Maybe Text+    , _dvrState               :: Maybe Text+    , _dvrVolumeId            :: Maybe Text+    } deriving (Eq, Ord, Show)++-- | 'DetachVolumeResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'dvrAttachTime' @::@ 'Maybe' 'UTCTime'+--+-- * 'dvrDeleteOnTermination' @::@ 'Maybe' 'Bool'+--+-- * 'dvrDevice' @::@ 'Maybe' 'Text'+--+-- * 'dvrInstanceId' @::@ 'Maybe' 'Text'+--+-- * 'dvrState' @::@ 'Maybe' 'Text'+--+-- * 'dvrVolumeId' @::@ 'Maybe' 'Text'+--+detachVolumeResponse :: DetachVolumeResponse+detachVolumeResponse = DetachVolumeResponse+    { _dvrVolumeId            = Nothing+    , _dvrInstanceId          = Nothing+    , _dvrDevice              = Nothing+    , _dvrState               = Nothing+    , _dvrAttachTime          = Nothing+    , _dvrDeleteOnTermination = Nothing+    }++-- | The time stamp when the attachment initiated.+dvrAttachTime :: Lens' DetachVolumeResponse (Maybe UTCTime)+dvrAttachTime = lens _dvrAttachTime (\s a -> s { _dvrAttachTime = a }) . mapping _Time++-- | Indicates whether the Amazon EBS volume is deleted on instance+-- termination.+dvrDeleteOnTermination :: Lens' DetachVolumeResponse (Maybe Bool)+dvrDeleteOnTermination =+    lens _dvrDeleteOnTermination (\s a -> s { _dvrDeleteOnTermination = a })++-- | The device name.+dvrDevice :: Lens' DetachVolumeResponse (Maybe Text)+dvrDevice = lens _dvrDevice (\s a -> s { _dvrDevice = a })++-- | The ID of the instance.+dvrInstanceId :: Lens' DetachVolumeResponse (Maybe Text)+dvrInstanceId = lens _dvrInstanceId (\s a -> s { _dvrInstanceId = a })++-- | The attachment state of the volume.+dvrState :: Lens' DetachVolumeResponse (Maybe Text)+dvrState = lens _dvrState (\s a -> s { _dvrState = a })++-- | The ID of the volume.+dvrVolumeId :: Lens' DetachVolumeResponse (Maybe Text)+dvrVolumeId = lens _dvrVolumeId (\s a -> s { _dvrVolumeId = a })++instance ToPath DetachVolume where+    toPath = const "/"++instance ToQuery DetachVolume where+    toQuery DetachVolume{..} = mconcat+        [ "Device"     =? _dvDevice+        , "dryRun"     =? _dvDryRun+        , "Force"      =? _dvForce+        , "InstanceId" =? _dvInstanceId+        , "VolumeId"   =? _dvVolumeId+        ]++instance ToHeaders DetachVolume++instance AWSRequest DetachVolume where+    type Sv DetachVolume = EC2+    type Rs DetachVolume = DetachVolumeResponse++    request  = post "DetachVolume"+    response = xmlResponse++instance FromXML DetachVolumeResponse where+    parseXML x = DetachVolumeResponse+        <$> x .@? "attachTime"+        <*> x .@? "deleteOnTermination"+        <*> x .@? "device"+        <*> x .@? "instanceId"+        <*> x .@? "status"+        <*> x .@? "volumeId"
+ gen/Network/AWS/EC2/DetachVpnGateway.hs view
@@ -0,0 +1,114 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.DetachVpnGateway+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Detaches a virtual private gateway from a VPC. You do this if you're+-- planning to turn off the VPC and not use it anymore. You can confirm a+-- virtual private gateway has been completely detached from a VPC by+-- describing the virtual private gateway (any attachments to the virtual+-- private gateway are also described). You must wait for the attachment's+-- state to switch to detached before you can delete the VPC or attach a+-- different VPC to the virtual private gateway.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-DetachVpnGateway.html>+module Network.AWS.EC2.DetachVpnGateway+    (+    -- * Request+      DetachVpnGateway+    -- ** Request constructor+    , detachVpnGateway+    -- ** Request lenses+    , dvg1DryRun+    , dvg1VpcId+    , dvg1VpnGatewayId++    -- * Response+    , DetachVpnGatewayResponse+    -- ** Response constructor+    , detachVpnGatewayResponse+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data DetachVpnGateway = DetachVpnGateway+    { _dvg1DryRun       :: Maybe Bool+    , _dvg1VpcId        :: Text+    , _dvg1VpnGatewayId :: Text+    } deriving (Eq, Ord, Show)++-- | 'DetachVpnGateway' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'dvg1DryRun' @::@ 'Maybe' 'Bool'+--+-- * 'dvg1VpcId' @::@ 'Text'+--+-- * 'dvg1VpnGatewayId' @::@ 'Text'+--+detachVpnGateway :: Text -- ^ 'dvg1VpnGatewayId'+                 -> Text -- ^ 'dvg1VpcId'+                 -> DetachVpnGateway+detachVpnGateway p1 p2 = DetachVpnGateway+    { _dvg1VpnGatewayId = p1+    , _dvg1VpcId        = p2+    , _dvg1DryRun       = Nothing+    }++dvg1DryRun :: Lens' DetachVpnGateway (Maybe Bool)+dvg1DryRun = lens _dvg1DryRun (\s a -> s { _dvg1DryRun = a })++-- | The ID of the VPC.+dvg1VpcId :: Lens' DetachVpnGateway Text+dvg1VpcId = lens _dvg1VpcId (\s a -> s { _dvg1VpcId = a })++-- | The ID of the virtual private gateway.+dvg1VpnGatewayId :: Lens' DetachVpnGateway Text+dvg1VpnGatewayId = lens _dvg1VpnGatewayId (\s a -> s { _dvg1VpnGatewayId = a })++data DetachVpnGatewayResponse = DetachVpnGatewayResponse+    deriving (Eq, Ord, Show, Generic)++-- | 'DetachVpnGatewayResponse' constructor.+detachVpnGatewayResponse :: DetachVpnGatewayResponse+detachVpnGatewayResponse = DetachVpnGatewayResponse++instance ToPath DetachVpnGateway where+    toPath = const "/"++instance ToQuery DetachVpnGateway where+    toQuery DetachVpnGateway{..} = mconcat+        [ "dryRun"       =? _dvg1DryRun+        , "VpcId"        =? _dvg1VpcId+        , "VpnGatewayId" =? _dvg1VpnGatewayId+        ]++instance ToHeaders DetachVpnGateway++instance AWSRequest DetachVpnGateway where+    type Sv DetachVpnGateway = EC2+    type Rs DetachVpnGateway = DetachVpnGatewayResponse++    request  = post "DetachVpnGateway"+    response = nullResponse DetachVpnGatewayResponse
+ gen/Network/AWS/EC2/DisableVgwRoutePropagation.hs view
@@ -0,0 +1,100 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.DisableVgwRoutePropagation+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Disables a virtual private gateway (VGW) from propagating routes to a+-- specified route table of a VPC.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-DisableVgwRoutePropagation.html>+module Network.AWS.EC2.DisableVgwRoutePropagation+    (+    -- * Request+      DisableVgwRoutePropagation+    -- ** Request constructor+    , disableVgwRoutePropagation+    -- ** Request lenses+    , dvrpGatewayId+    , dvrpRouteTableId++    -- * Response+    , DisableVgwRoutePropagationResponse+    -- ** Response constructor+    , disableVgwRoutePropagationResponse+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data DisableVgwRoutePropagation = DisableVgwRoutePropagation+    { _dvrpGatewayId    :: Text+    , _dvrpRouteTableId :: Text+    } deriving (Eq, Ord, Show)++-- | 'DisableVgwRoutePropagation' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'dvrpGatewayId' @::@ 'Text'+--+-- * 'dvrpRouteTableId' @::@ 'Text'+--+disableVgwRoutePropagation :: Text -- ^ 'dvrpRouteTableId'+                           -> Text -- ^ 'dvrpGatewayId'+                           -> DisableVgwRoutePropagation+disableVgwRoutePropagation p1 p2 = DisableVgwRoutePropagation+    { _dvrpRouteTableId = p1+    , _dvrpGatewayId    = p2+    }++-- | The ID of the virtual private gateway.+dvrpGatewayId :: Lens' DisableVgwRoutePropagation Text+dvrpGatewayId = lens _dvrpGatewayId (\s a -> s { _dvrpGatewayId = a })++-- | The ID of the route table.+dvrpRouteTableId :: Lens' DisableVgwRoutePropagation Text+dvrpRouteTableId = lens _dvrpRouteTableId (\s a -> s { _dvrpRouteTableId = a })++data DisableVgwRoutePropagationResponse = DisableVgwRoutePropagationResponse+    deriving (Eq, Ord, Show, Generic)++-- | 'DisableVgwRoutePropagationResponse' constructor.+disableVgwRoutePropagationResponse :: DisableVgwRoutePropagationResponse+disableVgwRoutePropagationResponse = DisableVgwRoutePropagationResponse++instance ToPath DisableVgwRoutePropagation where+    toPath = const "/"++instance ToQuery DisableVgwRoutePropagation where+    toQuery DisableVgwRoutePropagation{..} = mconcat+        [ "GatewayId"    =? _dvrpGatewayId+        , "RouteTableId" =? _dvrpRouteTableId+        ]++instance ToHeaders DisableVgwRoutePropagation++instance AWSRequest DisableVgwRoutePropagation where+    type Sv DisableVgwRoutePropagation = EC2+    type Rs DisableVgwRoutePropagation = DisableVgwRoutePropagationResponse++    request  = post "DisableVgwRoutePropagation"+    response = nullResponse DisableVgwRoutePropagationResponse
+ gen/Network/AWS/EC2/DisassociateAddress.hs view
@@ -0,0 +1,111 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.DisassociateAddress+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Disassociates an Elastic IP address from the instance or network interface+-- it's associated with. An Elastic IP address is for use in either the+-- EC2-Classic platform or in a VPC. For more information, see Elastic IP+-- Addresses in the Amazon Elastic Compute Cloud User Guide. This is an+-- idempotent operation. If you perform the operation more than once, Amazon+-- EC2 doesn't return an error.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-DisassociateAddress.html>+module Network.AWS.EC2.DisassociateAddress+    (+    -- * Request+      DisassociateAddress+    -- ** Request constructor+    , disassociateAddress+    -- ** Request lenses+    , da1AssociationId+    , da1DryRun+    , da1PublicIp++    -- * Response+    , DisassociateAddressResponse+    -- ** Response constructor+    , disassociateAddressResponse+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data DisassociateAddress = DisassociateAddress+    { _da1AssociationId :: Maybe Text+    , _da1DryRun        :: Maybe Bool+    , _da1PublicIp      :: Maybe Text+    } deriving (Eq, Ord, Show)++-- | 'DisassociateAddress' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'da1AssociationId' @::@ 'Maybe' 'Text'+--+-- * 'da1DryRun' @::@ 'Maybe' 'Bool'+--+-- * 'da1PublicIp' @::@ 'Maybe' 'Text'+--+disassociateAddress :: DisassociateAddress+disassociateAddress = DisassociateAddress+    { _da1DryRun        = Nothing+    , _da1PublicIp      = Nothing+    , _da1AssociationId = Nothing+    }++-- | [EC2-VPC] The association ID. Required for EC2-VPC.+da1AssociationId :: Lens' DisassociateAddress (Maybe Text)+da1AssociationId = lens _da1AssociationId (\s a -> s { _da1AssociationId = a })++da1DryRun :: Lens' DisassociateAddress (Maybe Bool)+da1DryRun = lens _da1DryRun (\s a -> s { _da1DryRun = a })++-- | [EC2-Classic] The Elastic IP address. Required for EC2-Classic.+da1PublicIp :: Lens' DisassociateAddress (Maybe Text)+da1PublicIp = lens _da1PublicIp (\s a -> s { _da1PublicIp = a })++data DisassociateAddressResponse = DisassociateAddressResponse+    deriving (Eq, Ord, Show, Generic)++-- | 'DisassociateAddressResponse' constructor.+disassociateAddressResponse :: DisassociateAddressResponse+disassociateAddressResponse = DisassociateAddressResponse++instance ToPath DisassociateAddress where+    toPath = const "/"++instance ToQuery DisassociateAddress where+    toQuery DisassociateAddress{..} = mconcat+        [ "AssociationId" =? _da1AssociationId+        , "dryRun"        =? _da1DryRun+        , "PublicIp"      =? _da1PublicIp+        ]++instance ToHeaders DisassociateAddress++instance AWSRequest DisassociateAddress where+    type Sv DisassociateAddress = EC2+    type Rs DisassociateAddress = DisassociateAddressResponse++    request  = post "DisassociateAddress"+    response = nullResponse DisassociateAddressResponse
+ gen/Network/AWS/EC2/DisassociateRouteTable.hs view
@@ -0,0 +1,101 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.DisassociateRouteTable+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Disassociates a subnet from a route table. After you perform this action,+-- the subnet no longer uses the routes in the route table. Instead, it uses+-- the routes in the VPC's main route table. For more information about route+-- tables, see Route Tables in the Amazon Virtual Private Cloud User Guide.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-DisassociateRouteTable.html>+module Network.AWS.EC2.DisassociateRouteTable+    (+    -- * Request+      DisassociateRouteTable+    -- ** Request constructor+    , disassociateRouteTable+    -- ** Request lenses+    , drtAssociationId+    , drtDryRun++    -- * Response+    , DisassociateRouteTableResponse+    -- ** Response constructor+    , disassociateRouteTableResponse+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data DisassociateRouteTable = DisassociateRouteTable+    { _drtAssociationId :: Text+    , _drtDryRun        :: Maybe Bool+    } deriving (Eq, Ord, Show)++-- | 'DisassociateRouteTable' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'drtAssociationId' @::@ 'Text'+--+-- * 'drtDryRun' @::@ 'Maybe' 'Bool'+--+disassociateRouteTable :: Text -- ^ 'drtAssociationId'+                       -> DisassociateRouteTable+disassociateRouteTable p1 = DisassociateRouteTable+    { _drtAssociationId = p1+    , _drtDryRun        = Nothing+    }++-- | The association ID representing the current association between the route+-- table and subnet.+drtAssociationId :: Lens' DisassociateRouteTable Text+drtAssociationId = lens _drtAssociationId (\s a -> s { _drtAssociationId = a })++drtDryRun :: Lens' DisassociateRouteTable (Maybe Bool)+drtDryRun = lens _drtDryRun (\s a -> s { _drtDryRun = a })++data DisassociateRouteTableResponse = DisassociateRouteTableResponse+    deriving (Eq, Ord, Show, Generic)++-- | 'DisassociateRouteTableResponse' constructor.+disassociateRouteTableResponse :: DisassociateRouteTableResponse+disassociateRouteTableResponse = DisassociateRouteTableResponse++instance ToPath DisassociateRouteTable where+    toPath = const "/"++instance ToQuery DisassociateRouteTable where+    toQuery DisassociateRouteTable{..} = mconcat+        [ "associationId" =? _drtAssociationId+        , "dryRun"        =? _drtDryRun+        ]++instance ToHeaders DisassociateRouteTable++instance AWSRequest DisassociateRouteTable where+    type Sv DisassociateRouteTable = EC2+    type Rs DisassociateRouteTable = DisassociateRouteTableResponse++    request  = post "DisassociateRouteTable"+    response = nullResponse DisassociateRouteTableResponse
+ gen/Network/AWS/EC2/EnableVgwRoutePropagation.hs view
@@ -0,0 +1,100 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.EnableVgwRoutePropagation+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Enables a virtual private gateway (VGW) to propagate routes to the+-- specified route table of a VPC.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-EnableVgwRoutePropagation.html>+module Network.AWS.EC2.EnableVgwRoutePropagation+    (+    -- * Request+      EnableVgwRoutePropagation+    -- ** Request constructor+    , enableVgwRoutePropagation+    -- ** Request lenses+    , evrpGatewayId+    , evrpRouteTableId++    -- * Response+    , EnableVgwRoutePropagationResponse+    -- ** Response constructor+    , enableVgwRoutePropagationResponse+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data EnableVgwRoutePropagation = EnableVgwRoutePropagation+    { _evrpGatewayId    :: Text+    , _evrpRouteTableId :: Text+    } deriving (Eq, Ord, Show)++-- | 'EnableVgwRoutePropagation' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'evrpGatewayId' @::@ 'Text'+--+-- * 'evrpRouteTableId' @::@ 'Text'+--+enableVgwRoutePropagation :: Text -- ^ 'evrpRouteTableId'+                          -> Text -- ^ 'evrpGatewayId'+                          -> EnableVgwRoutePropagation+enableVgwRoutePropagation p1 p2 = EnableVgwRoutePropagation+    { _evrpRouteTableId = p1+    , _evrpGatewayId    = p2+    }++-- | The ID of the virtual private gateway.+evrpGatewayId :: Lens' EnableVgwRoutePropagation Text+evrpGatewayId = lens _evrpGatewayId (\s a -> s { _evrpGatewayId = a })++-- | The ID of the route table.+evrpRouteTableId :: Lens' EnableVgwRoutePropagation Text+evrpRouteTableId = lens _evrpRouteTableId (\s a -> s { _evrpRouteTableId = a })++data EnableVgwRoutePropagationResponse = EnableVgwRoutePropagationResponse+    deriving (Eq, Ord, Show, Generic)++-- | 'EnableVgwRoutePropagationResponse' constructor.+enableVgwRoutePropagationResponse :: EnableVgwRoutePropagationResponse+enableVgwRoutePropagationResponse = EnableVgwRoutePropagationResponse++instance ToPath EnableVgwRoutePropagation where+    toPath = const "/"++instance ToQuery EnableVgwRoutePropagation where+    toQuery EnableVgwRoutePropagation{..} = mconcat+        [ "GatewayId"    =? _evrpGatewayId+        , "RouteTableId" =? _evrpRouteTableId+        ]++instance ToHeaders EnableVgwRoutePropagation++instance AWSRequest EnableVgwRoutePropagation where+    type Sv EnableVgwRoutePropagation = EC2+    type Rs EnableVgwRoutePropagation = EnableVgwRoutePropagationResponse++    request  = post "EnableVgwRoutePropagation"+    response = nullResponse EnableVgwRoutePropagationResponse
+ gen/Network/AWS/EC2/EnableVolumeIO.hs view
@@ -0,0 +1,98 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.EnableVolumeIO+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Enables I/O operations for a volume that had I/O operations disabled+-- because the data on the volume was potentially inconsistent.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-EnableVolumeIO.html>+module Network.AWS.EC2.EnableVolumeIO+    (+    -- * Request+      EnableVolumeIO+    -- ** Request constructor+    , enableVolumeIO+    -- ** Request lenses+    , evioDryRun+    , evioVolumeId++    -- * Response+    , EnableVolumeIOResponse+    -- ** Response constructor+    , enableVolumeIOResponse+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data EnableVolumeIO = EnableVolumeIO+    { _evioDryRun   :: Maybe Bool+    , _evioVolumeId :: Text+    } deriving (Eq, Ord, Show)++-- | 'EnableVolumeIO' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'evioDryRun' @::@ 'Maybe' 'Bool'+--+-- * 'evioVolumeId' @::@ 'Text'+--+enableVolumeIO :: Text -- ^ 'evioVolumeId'+               -> EnableVolumeIO+enableVolumeIO p1 = EnableVolumeIO+    { _evioVolumeId = p1+    , _evioDryRun   = Nothing+    }++evioDryRun :: Lens' EnableVolumeIO (Maybe Bool)+evioDryRun = lens _evioDryRun (\s a -> s { _evioDryRun = a })++-- | The ID of the volume.+evioVolumeId :: Lens' EnableVolumeIO Text+evioVolumeId = lens _evioVolumeId (\s a -> s { _evioVolumeId = a })++data EnableVolumeIOResponse = EnableVolumeIOResponse+    deriving (Eq, Ord, Show, Generic)++-- | 'EnableVolumeIOResponse' constructor.+enableVolumeIOResponse :: EnableVolumeIOResponse+enableVolumeIOResponse = EnableVolumeIOResponse++instance ToPath EnableVolumeIO where+    toPath = const "/"++instance ToQuery EnableVolumeIO where+    toQuery EnableVolumeIO{..} = mconcat+        [ "dryRun"   =? _evioDryRun+        , "volumeId" =? _evioVolumeId+        ]++instance ToHeaders EnableVolumeIO++instance AWSRequest EnableVolumeIO where+    type Sv EnableVolumeIO = EC2+    type Rs EnableVolumeIO = EnableVolumeIOResponse++    request  = post "EnableVolumeIO"+    response = nullResponse EnableVolumeIOResponse
+ gen/Network/AWS/EC2/GetConsoleOutput.hs view
@@ -0,0 +1,147 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.GetConsoleOutput+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Gets the console output for the specified instance. Instances do not have a+-- physical monitor through which you can view their console output. They also+-- lack physical controls that allow you to power up, reboot, or shut them+-- down. To allow these actions, we provide them through the Amazon EC2 API+-- and command line interface. Instance console output is buffered and posted+-- shortly after instance boot, reboot, and termination. Amazon EC2 preserves+-- the most recent 64 KB output which is available for at least one hour after+-- the most recent post. For Linux/Unix instances, the instance console output+-- displays the exact console output that would normally be displayed on a+-- physical monitor attached to a machine. This output is buffered because the+-- instance produces it and then posts it to a store where the instance's+-- owner can retrieve it. For Windows instances, the instance console output+-- displays the last three system event log errors.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-GetConsoleOutput.html>+module Network.AWS.EC2.GetConsoleOutput+    (+    -- * Request+      GetConsoleOutput+    -- ** Request constructor+    , getConsoleOutput+    -- ** Request lenses+    , gcoDryRun+    , gcoInstanceId++    -- * Response+    , GetConsoleOutputResponse+    -- ** Response constructor+    , getConsoleOutputResponse+    -- ** Response lenses+    , gcorInstanceId+    , gcorOutput+    , gcorTimestamp+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data GetConsoleOutput = GetConsoleOutput+    { _gcoDryRun     :: Maybe Bool+    , _gcoInstanceId :: Text+    } deriving (Eq, Ord, Show)++-- | 'GetConsoleOutput' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'gcoDryRun' @::@ 'Maybe' 'Bool'+--+-- * 'gcoInstanceId' @::@ 'Text'+--+getConsoleOutput :: Text -- ^ 'gcoInstanceId'+                 -> GetConsoleOutput+getConsoleOutput p1 = GetConsoleOutput+    { _gcoInstanceId = p1+    , _gcoDryRun     = Nothing+    }++gcoDryRun :: Lens' GetConsoleOutput (Maybe Bool)+gcoDryRun = lens _gcoDryRun (\s a -> s { _gcoDryRun = a })++-- | The ID of the instance.+gcoInstanceId :: Lens' GetConsoleOutput Text+gcoInstanceId = lens _gcoInstanceId (\s a -> s { _gcoInstanceId = a })++data GetConsoleOutputResponse = GetConsoleOutputResponse+    { _gcorInstanceId :: Maybe Text+    , _gcorOutput     :: Maybe Text+    , _gcorTimestamp  :: Maybe RFC822+    } deriving (Eq, Ord, Show)++-- | 'GetConsoleOutputResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'gcorInstanceId' @::@ 'Maybe' 'Text'+--+-- * 'gcorOutput' @::@ 'Maybe' 'Text'+--+-- * 'gcorTimestamp' @::@ 'Maybe' 'UTCTime'+--+getConsoleOutputResponse :: GetConsoleOutputResponse+getConsoleOutputResponse = GetConsoleOutputResponse+    { _gcorInstanceId = Nothing+    , _gcorTimestamp  = Nothing+    , _gcorOutput     = Nothing+    }++-- | The ID of the instance.+gcorInstanceId :: Lens' GetConsoleOutputResponse (Maybe Text)+gcorInstanceId = lens _gcorInstanceId (\s a -> s { _gcorInstanceId = a })++-- | The console output, Base64 encoded.+gcorOutput :: Lens' GetConsoleOutputResponse (Maybe Text)+gcorOutput = lens _gcorOutput (\s a -> s { _gcorOutput = a })++-- | The time the output was last updated.+gcorTimestamp :: Lens' GetConsoleOutputResponse (Maybe UTCTime)+gcorTimestamp = lens _gcorTimestamp (\s a -> s { _gcorTimestamp = a }) . mapping _Time++instance ToPath GetConsoleOutput where+    toPath = const "/"++instance ToQuery GetConsoleOutput where+    toQuery GetConsoleOutput{..} = mconcat+        [ "dryRun"     =? _gcoDryRun+        , "InstanceId" =? _gcoInstanceId+        ]++instance ToHeaders GetConsoleOutput++instance AWSRequest GetConsoleOutput where+    type Sv GetConsoleOutput = EC2+    type Rs GetConsoleOutput = GetConsoleOutputResponse++    request  = post "GetConsoleOutput"+    response = xmlResponse++instance FromXML GetConsoleOutputResponse where+    parseXML x = GetConsoleOutputResponse+        <$> x .@? "instanceId"+        <*> x .@? "output"+        <*> x .@? "timestamp"
+ gen/Network/AWS/EC2/GetPasswordData.hs view
@@ -0,0 +1,144 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.GetPasswordData+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Retrieves the encrypted administrator password for an instance running+-- Windows. The Windows password is generated at boot if the EC2Config service+-- plugin, Ec2SetPassword, is enabled. This usually only happens the first+-- time an AMI is launched, and then Ec2SetPassword is automatically disabled.+-- The password is not generated for rebundled AMIs unless Ec2SetPassword is+-- enabled before bundling. The password is encrypted using the key pair that+-- you specified when you launched the instance. You must provide the+-- corresponding key pair file. Password generation and encryption takes a few+-- moments. We recommend that you wait up to 15 minutes after launching an+-- instance before trying to retrieve the generated password.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-GetPasswordData.html>+module Network.AWS.EC2.GetPasswordData+    (+    -- * Request+      GetPasswordData+    -- ** Request constructor+    , getPasswordData+    -- ** Request lenses+    , gpdDryRun+    , gpdInstanceId++    -- * Response+    , GetPasswordDataResponse+    -- ** Response constructor+    , getPasswordDataResponse+    -- ** Response lenses+    , gpdrInstanceId+    , gpdrPasswordData+    , gpdrTimestamp+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data GetPasswordData = GetPasswordData+    { _gpdDryRun     :: Maybe Bool+    , _gpdInstanceId :: Text+    } deriving (Eq, Ord, Show)++-- | 'GetPasswordData' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'gpdDryRun' @::@ 'Maybe' 'Bool'+--+-- * 'gpdInstanceId' @::@ 'Text'+--+getPasswordData :: Text -- ^ 'gpdInstanceId'+                -> GetPasswordData+getPasswordData p1 = GetPasswordData+    { _gpdInstanceId = p1+    , _gpdDryRun     = Nothing+    }++gpdDryRun :: Lens' GetPasswordData (Maybe Bool)+gpdDryRun = lens _gpdDryRun (\s a -> s { _gpdDryRun = a })++-- | The ID of the Windows instance.+gpdInstanceId :: Lens' GetPasswordData Text+gpdInstanceId = lens _gpdInstanceId (\s a -> s { _gpdInstanceId = a })++data GetPasswordDataResponse = GetPasswordDataResponse+    { _gpdrInstanceId   :: Maybe Text+    , _gpdrPasswordData :: Maybe Text+    , _gpdrTimestamp    :: Maybe RFC822+    } deriving (Eq, Ord, Show)++-- | 'GetPasswordDataResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'gpdrInstanceId' @::@ 'Maybe' 'Text'+--+-- * 'gpdrPasswordData' @::@ 'Maybe' 'Text'+--+-- * 'gpdrTimestamp' @::@ 'Maybe' 'UTCTime'+--+getPasswordDataResponse :: GetPasswordDataResponse+getPasswordDataResponse = GetPasswordDataResponse+    { _gpdrInstanceId   = Nothing+    , _gpdrTimestamp    = Nothing+    , _gpdrPasswordData = Nothing+    }++-- | The ID of the Windows instance.+gpdrInstanceId :: Lens' GetPasswordDataResponse (Maybe Text)+gpdrInstanceId = lens _gpdrInstanceId (\s a -> s { _gpdrInstanceId = a })++-- | The password of the instance.+gpdrPasswordData :: Lens' GetPasswordDataResponse (Maybe Text)+gpdrPasswordData = lens _gpdrPasswordData (\s a -> s { _gpdrPasswordData = a })++-- | The time the data was last updated.+gpdrTimestamp :: Lens' GetPasswordDataResponse (Maybe UTCTime)+gpdrTimestamp = lens _gpdrTimestamp (\s a -> s { _gpdrTimestamp = a }) . mapping _Time++instance ToPath GetPasswordData where+    toPath = const "/"++instance ToQuery GetPasswordData where+    toQuery GetPasswordData{..} = mconcat+        [ "dryRun"     =? _gpdDryRun+        , "InstanceId" =? _gpdInstanceId+        ]++instance ToHeaders GetPasswordData++instance AWSRequest GetPasswordData where+    type Sv GetPasswordData = EC2+    type Rs GetPasswordData = GetPasswordDataResponse++    request  = post "GetPasswordData"+    response = xmlResponse++instance FromXML GetPasswordDataResponse where+    parseXML x = GetPasswordDataResponse+        <$> x .@? "instanceId"+        <*> x .@? "passwordData"+        <*> x .@? "timestamp"
+ gen/Network/AWS/EC2/ImportInstance.hs view
@@ -0,0 +1,149 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.ImportInstance+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Creates an import instance task using metadata from the specified disk+-- image. After importing the image, you then upload it using the+-- ec2-import-volume command in the EC2 command line tools. For more+-- information, see Using the Command Line Tools to Import Your Virtual+-- Machine to Amazon EC2 in the Amazon Elastic Compute Cloud User Guide.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-ImportInstance.html>+module Network.AWS.EC2.ImportInstance+    (+    -- * Request+      ImportInstance+    -- ** Request constructor+    , importInstance+    -- ** Request lenses+    , iiDescription+    , iiDiskImages+    , iiDryRun+    , iiLaunchSpecification+    , iiPlatform++    -- * Response+    , ImportInstanceResponse+    -- ** Response constructor+    , importInstanceResponse+    -- ** Response lenses+    , iirConversionTask+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data ImportInstance = ImportInstance+    { _iiDescription         :: Maybe Text+    , _iiDiskImages          :: List "diskImage" DiskImage+    , _iiDryRun              :: Maybe Bool+    , _iiLaunchSpecification :: Maybe ImportInstanceLaunchSpecification+    , _iiPlatform            :: Text+    } deriving (Eq, Show)++-- | 'ImportInstance' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'iiDescription' @::@ 'Maybe' 'Text'+--+-- * 'iiDiskImages' @::@ ['DiskImage']+--+-- * 'iiDryRun' @::@ 'Maybe' 'Bool'+--+-- * 'iiLaunchSpecification' @::@ 'Maybe' 'ImportInstanceLaunchSpecification'+--+-- * 'iiPlatform' @::@ 'Text'+--+importInstance :: Text -- ^ 'iiPlatform'+               -> ImportInstance+importInstance p1 = ImportInstance+    { _iiPlatform            = p1+    , _iiDryRun              = Nothing+    , _iiDescription         = Nothing+    , _iiLaunchSpecification = Nothing+    , _iiDiskImages          = mempty+    }++-- | A description for the instance being imported.+iiDescription :: Lens' ImportInstance (Maybe Text)+iiDescription = lens _iiDescription (\s a -> s { _iiDescription = a })++iiDiskImages :: Lens' ImportInstance [DiskImage]+iiDiskImages = lens _iiDiskImages (\s a -> s { _iiDiskImages = a }) . _List++iiDryRun :: Lens' ImportInstance (Maybe Bool)+iiDryRun = lens _iiDryRun (\s a -> s { _iiDryRun = a })++-- | +iiLaunchSpecification :: Lens' ImportInstance (Maybe ImportInstanceLaunchSpecification)+iiLaunchSpecification =+    lens _iiLaunchSpecification (\s a -> s { _iiLaunchSpecification = a })++-- | The instance operating system.+iiPlatform :: Lens' ImportInstance Text+iiPlatform = lens _iiPlatform (\s a -> s { _iiPlatform = a })++newtype ImportInstanceResponse = ImportInstanceResponse+    { _iirConversionTask :: Maybe ConversionTask+    } deriving (Eq, Show)++-- | 'ImportInstanceResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'iirConversionTask' @::@ 'Maybe' 'ConversionTask'+--+importInstanceResponse :: ImportInstanceResponse+importInstanceResponse = ImportInstanceResponse+    { _iirConversionTask = Nothing+    }++iirConversionTask :: Lens' ImportInstanceResponse (Maybe ConversionTask)+iirConversionTask =+    lens _iirConversionTask (\s a -> s { _iirConversionTask = a })++instance ToPath ImportInstance where+    toPath = const "/"++instance ToQuery ImportInstance where+    toQuery ImportInstance{..} = mconcat+        [ "description"         =? _iiDescription+        , "diskImage"           =? _iiDiskImages+        , "dryRun"              =? _iiDryRun+        , "launchSpecification" =? _iiLaunchSpecification+        , "platform"            =? _iiPlatform+        ]++instance ToHeaders ImportInstance++instance AWSRequest ImportInstance where+    type Sv ImportInstance = EC2+    type Rs ImportInstance = ImportInstanceResponse++    request  = post "ImportInstance"+    response = xmlResponse++instance FromXML ImportInstanceResponse where+    parseXML x = ImportInstanceResponse+        <$> x .@? "conversionTask"
+ gen/Network/AWS/EC2/ImportKeyPair.hs view
@@ -0,0 +1,145 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.ImportKeyPair+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Imports the public key from an RSA key pair that you created with a+-- third-party tool. Compare this with CreateKeyPair, in which AWS creates the+-- key pair and gives the keys to you (AWS keeps a copy of the public key).+-- With ImportKeyPair, you create the key pair and give AWS just the public+-- key. The private key is never transferred between you and AWS. For more+-- information about key pairs, see Key Pairs in the Amazon Elastic Compute+-- Cloud User Guide.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-ImportKeyPair.html>+module Network.AWS.EC2.ImportKeyPair+    (+    -- * Request+      ImportKeyPair+    -- ** Request constructor+    , importKeyPair+    -- ** Request lenses+    , ikpDryRun+    , ikpKeyName+    , ikpPublicKeyMaterial++    -- * Response+    , ImportKeyPairResponse+    -- ** Response constructor+    , importKeyPairResponse+    -- ** Response lenses+    , ikprKeyFingerprint+    , ikprKeyName+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data ImportKeyPair = ImportKeyPair+    { _ikpDryRun            :: Maybe Bool+    , _ikpKeyName           :: Text+    , _ikpPublicKeyMaterial :: Base64+    } deriving (Eq, Show)++-- | 'ImportKeyPair' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'ikpDryRun' @::@ 'Maybe' 'Bool'+--+-- * 'ikpKeyName' @::@ 'Text'+--+-- * 'ikpPublicKeyMaterial' @::@ 'Base64'+--+importKeyPair :: Text -- ^ 'ikpKeyName'+              -> Base64 -- ^ 'ikpPublicKeyMaterial'+              -> ImportKeyPair+importKeyPair p1 p2 = ImportKeyPair+    { _ikpKeyName           = p1+    , _ikpPublicKeyMaterial = p2+    , _ikpDryRun            = Nothing+    }++ikpDryRun :: Lens' ImportKeyPair (Maybe Bool)+ikpDryRun = lens _ikpDryRun (\s a -> s { _ikpDryRun = a })++-- | A unique name for the key pair.+ikpKeyName :: Lens' ImportKeyPair Text+ikpKeyName = lens _ikpKeyName (\s a -> s { _ikpKeyName = a })++-- | The public key. You must base64 encode the public key material before+-- sending it to AWS.+ikpPublicKeyMaterial :: Lens' ImportKeyPair Base64+ikpPublicKeyMaterial =+    lens _ikpPublicKeyMaterial (\s a -> s { _ikpPublicKeyMaterial = a })++data ImportKeyPairResponse = ImportKeyPairResponse+    { _ikprKeyFingerprint :: Maybe Text+    , _ikprKeyName        :: Maybe Text+    } deriving (Eq, Ord, Show)++-- | 'ImportKeyPairResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'ikprKeyFingerprint' @::@ 'Maybe' 'Text'+--+-- * 'ikprKeyName' @::@ 'Maybe' 'Text'+--+importKeyPairResponse :: ImportKeyPairResponse+importKeyPairResponse = ImportKeyPairResponse+    { _ikprKeyName        = Nothing+    , _ikprKeyFingerprint = Nothing+    }++-- | The MD5 public key fingerprint as specified in section 4 of RFC 4716.+ikprKeyFingerprint :: Lens' ImportKeyPairResponse (Maybe Text)+ikprKeyFingerprint =+    lens _ikprKeyFingerprint (\s a -> s { _ikprKeyFingerprint = a })++-- | The key pair name you provided.+ikprKeyName :: Lens' ImportKeyPairResponse (Maybe Text)+ikprKeyName = lens _ikprKeyName (\s a -> s { _ikprKeyName = a })++instance ToPath ImportKeyPair where+    toPath = const "/"++instance ToQuery ImportKeyPair where+    toQuery ImportKeyPair{..} = mconcat+        [ "dryRun"            =? _ikpDryRun+        , "keyName"           =? _ikpKeyName+        , "publicKeyMaterial" =? _ikpPublicKeyMaterial+        ]++instance ToHeaders ImportKeyPair++instance AWSRequest ImportKeyPair where+    type Sv ImportKeyPair = EC2+    type Rs ImportKeyPair = ImportKeyPairResponse++    request  = post "ImportKeyPair"+    response = xmlResponse++instance FromXML ImportKeyPairResponse where+    parseXML x = ImportKeyPairResponse+        <$> x .@? "keyFingerprint"+        <*> x .@? "keyName"
+ gen/Network/AWS/EC2/ImportVolume.hs view
@@ -0,0 +1,150 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.ImportVolume+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Creates an import volume task using metadata from the specified disk image.+-- After importing the image, you then upload it using the ec2-import-volume+-- command in the Amazon EC2 command-line interface (CLI) tools. For more+-- information, see Using the Command Line Tools to Import Your Virtual+-- Machine to Amazon EC2 in the Amazon Elastic Compute Cloud User Guide.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-ImportVolume.html>+module Network.AWS.EC2.ImportVolume+    (+    -- * Request+      ImportVolume+    -- ** Request constructor+    , importVolume+    -- ** Request lenses+    , ivAvailabilityZone+    , ivDescription+    , ivDryRun+    , ivImage+    , ivVolume++    -- * Response+    , ImportVolumeResponse+    -- ** Response constructor+    , importVolumeResponse+    -- ** Response lenses+    , ivrConversionTask+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data ImportVolume = ImportVolume+    { _ivAvailabilityZone :: Text+    , _ivDescription      :: Maybe Text+    , _ivDryRun           :: Maybe Bool+    , _ivImage            :: DiskImageDetail+    , _ivVolume           :: VolumeDetail+    } deriving (Eq, Show)++-- | 'ImportVolume' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'ivAvailabilityZone' @::@ 'Text'+--+-- * 'ivDescription' @::@ 'Maybe' 'Text'+--+-- * 'ivDryRun' @::@ 'Maybe' 'Bool'+--+-- * 'ivImage' @::@ 'DiskImageDetail'+--+-- * 'ivVolume' @::@ 'VolumeDetail'+--+importVolume :: Text -- ^ 'ivAvailabilityZone'+             -> DiskImageDetail -- ^ 'ivImage'+             -> VolumeDetail -- ^ 'ivVolume'+             -> ImportVolume+importVolume p1 p2 p3 = ImportVolume+    { _ivAvailabilityZone = p1+    , _ivImage            = p2+    , _ivVolume           = p3+    , _ivDryRun           = Nothing+    , _ivDescription      = Nothing+    }++-- | The Availability Zone for the resulting Amazon EBS volume.+ivAvailabilityZone :: Lens' ImportVolume Text+ivAvailabilityZone =+    lens _ivAvailabilityZone (\s a -> s { _ivAvailabilityZone = a })++-- | An optional description for the volume being imported.+ivDescription :: Lens' ImportVolume (Maybe Text)+ivDescription = lens _ivDescription (\s a -> s { _ivDescription = a })++ivDryRun :: Lens' ImportVolume (Maybe Bool)+ivDryRun = lens _ivDryRun (\s a -> s { _ivDryRun = a })++ivImage :: Lens' ImportVolume DiskImageDetail+ivImage = lens _ivImage (\s a -> s { _ivImage = a })++ivVolume :: Lens' ImportVolume VolumeDetail+ivVolume = lens _ivVolume (\s a -> s { _ivVolume = a })++newtype ImportVolumeResponse = ImportVolumeResponse+    { _ivrConversionTask :: Maybe ConversionTask+    } deriving (Eq, Show)++-- | 'ImportVolumeResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'ivrConversionTask' @::@ 'Maybe' 'ConversionTask'+--+importVolumeResponse :: ImportVolumeResponse+importVolumeResponse = ImportVolumeResponse+    { _ivrConversionTask = Nothing+    }++ivrConversionTask :: Lens' ImportVolumeResponse (Maybe ConversionTask)+ivrConversionTask =+    lens _ivrConversionTask (\s a -> s { _ivrConversionTask = a })++instance ToPath ImportVolume where+    toPath = const "/"++instance ToQuery ImportVolume where+    toQuery ImportVolume{..} = mconcat+        [ "availabilityZone" =? _ivAvailabilityZone+        , "description"      =? _ivDescription+        , "dryRun"           =? _ivDryRun+        , "image"            =? _ivImage+        , "volume"           =? _ivVolume+        ]++instance ToHeaders ImportVolume++instance AWSRequest ImportVolume where+    type Sv ImportVolume = EC2+    type Rs ImportVolume = ImportVolumeResponse++    request  = post "ImportVolume"+    response = xmlResponse++instance FromXML ImportVolumeResponse where+    parseXML x = ImportVolumeResponse+        <$> x .@? "conversionTask"
+ gen/Network/AWS/EC2/ModifyImageAttribute.hs view
@@ -0,0 +1,184 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.ModifyImageAttribute+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Modifies the specified attribute of the specified AMI. You can specify only+-- one attribute at a time.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-ModifyImageAttribute.html>+module Network.AWS.EC2.ModifyImageAttribute+    (+    -- * Request+      ModifyImageAttribute+    -- ** Request constructor+    , modifyImageAttribute+    -- ** Request lenses+    , miaAttribute+    , miaDescription+    , miaDryRun+    , miaImageId+    , miaLaunchPermission+    , miaOperationType+    , miaProductCodes+    , miaUserGroups+    , miaUserIds+    , miaValue++    -- * Response+    , ModifyImageAttributeResponse+    -- ** Response constructor+    , modifyImageAttributeResponse+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data ModifyImageAttribute = ModifyImageAttribute+    { _miaAttribute        :: Maybe Text+    , _miaDescription      :: Maybe AttributeValue+    , _miaDryRun           :: Maybe Bool+    , _miaImageId          :: Text+    , _miaLaunchPermission :: Maybe LaunchPermissionModifications+    , _miaOperationType    :: Maybe Text+    , _miaProductCodes     :: List "ProductCode" Text+    , _miaUserGroups       :: List "UserGroup" Text+    , _miaUserIds          :: List "UserId" Text+    , _miaValue            :: Maybe Text+    } deriving (Eq, Show)++-- | 'ModifyImageAttribute' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'miaAttribute' @::@ 'Maybe' 'Text'+--+-- * 'miaDescription' @::@ 'Maybe' 'AttributeValue'+--+-- * 'miaDryRun' @::@ 'Maybe' 'Bool'+--+-- * 'miaImageId' @::@ 'Text'+--+-- * 'miaLaunchPermission' @::@ 'Maybe' 'LaunchPermissionModifications'+--+-- * 'miaOperationType' @::@ 'Maybe' 'Text'+--+-- * 'miaProductCodes' @::@ ['Text']+--+-- * 'miaUserGroups' @::@ ['Text']+--+-- * 'miaUserIds' @::@ ['Text']+--+-- * 'miaValue' @::@ 'Maybe' 'Text'+--+modifyImageAttribute :: Text -- ^ 'miaImageId'+                     -> ModifyImageAttribute+modifyImageAttribute p1 = ModifyImageAttribute+    { _miaImageId          = p1+    , _miaDryRun           = Nothing+    , _miaAttribute        = Nothing+    , _miaOperationType    = Nothing+    , _miaUserIds          = mempty+    , _miaUserGroups       = mempty+    , _miaProductCodes     = mempty+    , _miaValue            = Nothing+    , _miaLaunchPermission = Nothing+    , _miaDescription      = Nothing+    }++-- | The name of the attribute to modify.+miaAttribute :: Lens' ModifyImageAttribute (Maybe Text)+miaAttribute = lens _miaAttribute (\s a -> s { _miaAttribute = a })++-- | A description for the AMI.+miaDescription :: Lens' ModifyImageAttribute (Maybe AttributeValue)+miaDescription = lens _miaDescription (\s a -> s { _miaDescription = a })++miaDryRun :: Lens' ModifyImageAttribute (Maybe Bool)+miaDryRun = lens _miaDryRun (\s a -> s { _miaDryRun = a })++-- | The ID of the AMI.+miaImageId :: Lens' ModifyImageAttribute Text+miaImageId = lens _miaImageId (\s a -> s { _miaImageId = a })++-- | +miaLaunchPermission :: Lens' ModifyImageAttribute (Maybe LaunchPermissionModifications)+miaLaunchPermission =+    lens _miaLaunchPermission (\s a -> s { _miaLaunchPermission = a })++-- | The operation type.+miaOperationType :: Lens' ModifyImageAttribute (Maybe Text)+miaOperationType = lens _miaOperationType (\s a -> s { _miaOperationType = a })++-- | One or more product codes. After you add a product code to an AMI, it+-- can't be removed. This is only valid when modifying the productCodes+-- attribute.+miaProductCodes :: Lens' ModifyImageAttribute [Text]+miaProductCodes = lens _miaProductCodes (\s a -> s { _miaProductCodes = a }) . _List++-- | One or more user groups. This is only valid when modifying the+-- launchPermission attribute.+miaUserGroups :: Lens' ModifyImageAttribute [Text]+miaUserGroups = lens _miaUserGroups (\s a -> s { _miaUserGroups = a }) . _List++-- | One or more AWS account IDs. This is only valid when modifying the+-- launchPermission attribute.+miaUserIds :: Lens' ModifyImageAttribute [Text]+miaUserIds = lens _miaUserIds (\s a -> s { _miaUserIds = a }) . _List++-- | The value of the attribute being modified. This is only valid when+-- modifying the description attribute.+miaValue :: Lens' ModifyImageAttribute (Maybe Text)+miaValue = lens _miaValue (\s a -> s { _miaValue = a })++data ModifyImageAttributeResponse = ModifyImageAttributeResponse+    deriving (Eq, Ord, Show, Generic)++-- | 'ModifyImageAttributeResponse' constructor.+modifyImageAttributeResponse :: ModifyImageAttributeResponse+modifyImageAttributeResponse = ModifyImageAttributeResponse++instance ToPath ModifyImageAttribute where+    toPath = const "/"++instance ToQuery ModifyImageAttribute where+    toQuery ModifyImageAttribute{..} = mconcat+        [ "Attribute"        =? _miaAttribute+        , "Description"      =? _miaDescription+        , "dryRun"           =? _miaDryRun+        , "ImageId"          =? _miaImageId+        , "LaunchPermission" =? _miaLaunchPermission+        , "OperationType"    =? _miaOperationType+        , "ProductCode"      =? _miaProductCodes+        , "UserGroup"        =? _miaUserGroups+        , "UserId"           =? _miaUserIds+        , "Value"            =? _miaValue+        ]++instance ToHeaders ModifyImageAttribute++instance AWSRequest ModifyImageAttribute where+    type Sv ModifyImageAttribute = EC2+    type Rs ModifyImageAttribute = ModifyImageAttributeResponse++    request  = post "ModifyImageAttribute"+    response = nullResponse ModifyImageAttributeResponse
+ gen/Network/AWS/EC2/ModifyInstanceAttribute.hs view
@@ -0,0 +1,269 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.ModifyInstanceAttribute+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Modifies the specified attribute of the specified instance. You can specify+-- only one attribute at a time. To modify some attributes, the instance must+-- be stopped. For more information, see Modifying Attributes of a Stopped+-- Instance in the Amazon Elastic Compute Cloud User Guide.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-ModifyInstanceAttribute.html>+module Network.AWS.EC2.ModifyInstanceAttribute+    (+    -- * Request+      ModifyInstanceAttribute+    -- ** Request constructor+    , modifyInstanceAttribute+    -- ** Request lenses+    , mia1Attribute+    , mia1BlockDeviceMappings+    , mia1DisableApiTermination+    , mia1DryRun+    , mia1EbsOptimized+    , mia1Groups+    , mia1InstanceId+    , mia1InstanceInitiatedShutdownBehavior+    , mia1InstanceType+    , mia1Kernel+    , mia1Ramdisk+    , mia1SourceDestCheck+    , mia1SriovNetSupport+    , mia1UserData+    , mia1Value++    -- * Response+    , ModifyInstanceAttributeResponse+    -- ** Response constructor+    , modifyInstanceAttributeResponse+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data ModifyInstanceAttribute = ModifyInstanceAttribute+    { _mia1Attribute                         :: Maybe Text+    , _mia1BlockDeviceMappings               :: List "item" InstanceBlockDeviceMappingSpecification+    , _mia1DisableApiTermination             :: Maybe AttributeBooleanValue+    , _mia1DryRun                            :: Maybe Bool+    , _mia1EbsOptimized                      :: Maybe AttributeBooleanValue+    , _mia1Groups                            :: List "groupId" Text+    , _mia1InstanceId                        :: Text+    , _mia1InstanceInitiatedShutdownBehavior :: Maybe AttributeValue+    , _mia1InstanceType                      :: Maybe AttributeValue+    , _mia1Kernel                            :: Maybe AttributeValue+    , _mia1Ramdisk                           :: Maybe AttributeValue+    , _mia1SourceDestCheck                   :: Maybe AttributeBooleanValue+    , _mia1SriovNetSupport                   :: Maybe AttributeValue+    , _mia1UserData                          :: Maybe BlobAttributeValue+    , _mia1Value                             :: Maybe Text+    } deriving (Eq, Show)++-- | 'ModifyInstanceAttribute' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'mia1Attribute' @::@ 'Maybe' 'Text'+--+-- * 'mia1BlockDeviceMappings' @::@ ['InstanceBlockDeviceMappingSpecification']+--+-- * 'mia1DisableApiTermination' @::@ 'Maybe' 'AttributeBooleanValue'+--+-- * 'mia1DryRun' @::@ 'Maybe' 'Bool'+--+-- * 'mia1EbsOptimized' @::@ 'Maybe' 'AttributeBooleanValue'+--+-- * 'mia1Groups' @::@ ['Text']+--+-- * 'mia1InstanceId' @::@ 'Text'+--+-- * 'mia1InstanceInitiatedShutdownBehavior' @::@ 'Maybe' 'AttributeValue'+--+-- * 'mia1InstanceType' @::@ 'Maybe' 'AttributeValue'+--+-- * 'mia1Kernel' @::@ 'Maybe' 'AttributeValue'+--+-- * 'mia1Ramdisk' @::@ 'Maybe' 'AttributeValue'+--+-- * 'mia1SourceDestCheck' @::@ 'Maybe' 'AttributeBooleanValue'+--+-- * 'mia1SriovNetSupport' @::@ 'Maybe' 'AttributeValue'+--+-- * 'mia1UserData' @::@ 'Maybe' 'BlobAttributeValue'+--+-- * 'mia1Value' @::@ 'Maybe' 'Text'+--+modifyInstanceAttribute :: Text -- ^ 'mia1InstanceId'+                        -> ModifyInstanceAttribute+modifyInstanceAttribute p1 = ModifyInstanceAttribute+    { _mia1InstanceId                        = p1+    , _mia1DryRun                            = Nothing+    , _mia1Attribute                         = Nothing+    , _mia1Value                             = Nothing+    , _mia1BlockDeviceMappings               = mempty+    , _mia1SourceDestCheck                   = Nothing+    , _mia1DisableApiTermination             = Nothing+    , _mia1InstanceType                      = Nothing+    , _mia1Kernel                            = Nothing+    , _mia1Ramdisk                           = Nothing+    , _mia1UserData                          = Nothing+    , _mia1InstanceInitiatedShutdownBehavior = Nothing+    , _mia1Groups                            = mempty+    , _mia1EbsOptimized                      = Nothing+    , _mia1SriovNetSupport                   = Nothing+    }++-- | The name of the attribute.+mia1Attribute :: Lens' ModifyInstanceAttribute (Maybe Text)+mia1Attribute = lens _mia1Attribute (\s a -> s { _mia1Attribute = a })++-- | Modifies the DeleteOnTermination attribute for volumes that are currently+-- attached. The volume must be owned by the caller. If no value is+-- specified for DeleteOnTermination, the default is true and the volume is+-- deleted when the instance is terminated. To add instance store volumes to+-- an Amazon EBS-backed instance, you must add them when you launch the+-- instance. For more information, see Updating the Block Device Mapping+-- when Launching an Instance in the Amazon Elastic Compute Cloud User+-- Guide.+mia1BlockDeviceMappings :: Lens' ModifyInstanceAttribute [InstanceBlockDeviceMappingSpecification]+mia1BlockDeviceMappings =+    lens _mia1BlockDeviceMappings (\s a -> s { _mia1BlockDeviceMappings = a })+        . _List++-- | If the value is true, you can't terminate the instance using the Amazon+-- EC2 console, CLI, or API; otherwise, you can.+mia1DisableApiTermination :: Lens' ModifyInstanceAttribute (Maybe AttributeBooleanValue)+mia1DisableApiTermination =+    lens _mia1DisableApiTermination+        (\s a -> s { _mia1DisableApiTermination = a })++mia1DryRun :: Lens' ModifyInstanceAttribute (Maybe Bool)+mia1DryRun = lens _mia1DryRun (\s a -> s { _mia1DryRun = a })++-- | Specifies whether the instance is optimized for EBS I/O. This+-- optimization provides dedicated throughput to Amazon EBS and an optimized+-- configuration stack to provide optimal EBS I/O performance. This+-- optimization isn't available with all instance types. Additional usage+-- charges apply when using an EBS Optimized instance.+mia1EbsOptimized :: Lens' ModifyInstanceAttribute (Maybe AttributeBooleanValue)+mia1EbsOptimized = lens _mia1EbsOptimized (\s a -> s { _mia1EbsOptimized = a })++-- | [EC2-VPC] Changes the security groups of the instance. You must specify+-- at least one security group, even if it's just the default security group+-- for the VPC. You must specify the security group ID, not the security+-- group name. For example, if you want the instance to be in sg-1a1a1a1a+-- and sg-9b9b9b9b, specify GroupId.1=sg-1a1a1a1a and GroupId.2=sg-9b9b9b9b.+mia1Groups :: Lens' ModifyInstanceAttribute [Text]+mia1Groups = lens _mia1Groups (\s a -> s { _mia1Groups = a }) . _List++-- | The ID of the instance.+mia1InstanceId :: Lens' ModifyInstanceAttribute Text+mia1InstanceId = lens _mia1InstanceId (\s a -> s { _mia1InstanceId = a })++-- | Specifies whether an instance stops or terminates when you initiate+-- shutdown from the instance (using the operating system command for system+-- shutdown).+mia1InstanceInitiatedShutdownBehavior :: Lens' ModifyInstanceAttribute (Maybe AttributeValue)+mia1InstanceInitiatedShutdownBehavior =+    lens _mia1InstanceInitiatedShutdownBehavior+        (\s a -> s { _mia1InstanceInitiatedShutdownBehavior = a })++-- | Changes the instance type to the specified value. For more information,+-- see Instance Types. If the instance type is not valid, the error returned+-- is InvalidInstanceAttributeValue.+mia1InstanceType :: Lens' ModifyInstanceAttribute (Maybe AttributeValue)+mia1InstanceType = lens _mia1InstanceType (\s a -> s { _mia1InstanceType = a })++-- | Changes the instance's kernel to the specified value. We recommend that+-- you use PV-GRUB instead of kernels and RAM disks. For more information,+-- see PV-GRUB.+mia1Kernel :: Lens' ModifyInstanceAttribute (Maybe AttributeValue)+mia1Kernel = lens _mia1Kernel (\s a -> s { _mia1Kernel = a })++-- | Changes the instance's RAM disk to the specified value. We recommend that+-- you use PV-GRUB instead of kernels and RAM disks. For more information,+-- see PV-GRUB.+mia1Ramdisk :: Lens' ModifyInstanceAttribute (Maybe AttributeValue)+mia1Ramdisk = lens _mia1Ramdisk (\s a -> s { _mia1Ramdisk = a })++-- | Specifies whether source/destination checking is enabled. A value of true+-- means that checking is enabled, and false means checking is disabled.+-- This value must be false for a NAT instance to perform NAT.+mia1SourceDestCheck :: Lens' ModifyInstanceAttribute (Maybe AttributeBooleanValue)+mia1SourceDestCheck =+    lens _mia1SourceDestCheck (\s a -> s { _mia1SourceDestCheck = a })++-- | Set to simple to enable enhanced networking for the instance. There is no+-- way to disable enhanced networking at this time. This option is supported+-- only for HVM instances. Specifying this option with a PV instance can+-- make it unreachable.+mia1SriovNetSupport :: Lens' ModifyInstanceAttribute (Maybe AttributeValue)+mia1SriovNetSupport =+    lens _mia1SriovNetSupport (\s a -> s { _mia1SriovNetSupport = a })++-- | Changes the instance's user data to the specified value.+mia1UserData :: Lens' ModifyInstanceAttribute (Maybe BlobAttributeValue)+mia1UserData = lens _mia1UserData (\s a -> s { _mia1UserData = a })++-- | A new value for the attribute. Use only with the kernel, ramdisk,+-- userData, disableApiTermination, or intanceInitiateShutdownBehavior+-- attribute.+mia1Value :: Lens' ModifyInstanceAttribute (Maybe Text)+mia1Value = lens _mia1Value (\s a -> s { _mia1Value = a })++data ModifyInstanceAttributeResponse = ModifyInstanceAttributeResponse+    deriving (Eq, Ord, Show, Generic)++-- | 'ModifyInstanceAttributeResponse' constructor.+modifyInstanceAttributeResponse :: ModifyInstanceAttributeResponse+modifyInstanceAttributeResponse = ModifyInstanceAttributeResponse++instance ToPath ModifyInstanceAttribute where+    toPath = const "/"++instance ToQuery ModifyInstanceAttribute where+    toQuery ModifyInstanceAttribute{..} = mconcat+        [ "attribute"                         =? _mia1Attribute+        , "blockDeviceMapping"                =? _mia1BlockDeviceMappings+        , "disableApiTermination"             =? _mia1DisableApiTermination+        , "dryRun"                            =? _mia1DryRun+        , "ebsOptimized"                      =? _mia1EbsOptimized+        , "GroupId"                           =? _mia1Groups+        , "instanceId"                        =? _mia1InstanceId+        , "instanceInitiatedShutdownBehavior" =? _mia1InstanceInitiatedShutdownBehavior+        , "instanceType"                      =? _mia1InstanceType+        , "kernel"                            =? _mia1Kernel+        , "ramdisk"                           =? _mia1Ramdisk+        , "SourceDestCheck"                   =? _mia1SourceDestCheck+        , "sriovNetSupport"                   =? _mia1SriovNetSupport+        , "userData"                          =? _mia1UserData+        , "value"                             =? _mia1Value+        ]++instance ToHeaders ModifyInstanceAttribute++instance AWSRequest ModifyInstanceAttribute where+    type Sv ModifyInstanceAttribute = EC2+    type Rs ModifyInstanceAttribute = ModifyInstanceAttributeResponse++    request  = post "ModifyInstanceAttribute"+    response = nullResponse ModifyInstanceAttributeResponse
+ gen/Network/AWS/EC2/ModifyNetworkInterfaceAttribute.hs view
@@ -0,0 +1,149 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.ModifyNetworkInterfaceAttribute+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Modifies the specified network interface attribute. You can specify only+-- one attribute at a time.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-ModifyNetworkInterfaceAttribute.html>+module Network.AWS.EC2.ModifyNetworkInterfaceAttribute+    (+    -- * Request+      ModifyNetworkInterfaceAttribute+    -- ** Request constructor+    , modifyNetworkInterfaceAttribute+    -- ** Request lenses+    , mniaAttachment+    , mniaDescription+    , mniaDryRun+    , mniaGroups+    , mniaNetworkInterfaceId+    , mniaSourceDestCheck++    -- * Response+    , ModifyNetworkInterfaceAttributeResponse+    -- ** Response constructor+    , modifyNetworkInterfaceAttributeResponse+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data ModifyNetworkInterfaceAttribute = ModifyNetworkInterfaceAttribute+    { _mniaAttachment         :: Maybe NetworkInterfaceAttachmentChanges+    , _mniaDescription        :: Maybe AttributeValue+    , _mniaDryRun             :: Maybe Bool+    , _mniaGroups             :: List "SecurityGroupId" Text+    , _mniaNetworkInterfaceId :: Text+    , _mniaSourceDestCheck    :: Maybe AttributeBooleanValue+    } deriving (Eq, Show)++-- | 'ModifyNetworkInterfaceAttribute' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'mniaAttachment' @::@ 'Maybe' 'NetworkInterfaceAttachmentChanges'+--+-- * 'mniaDescription' @::@ 'Maybe' 'AttributeValue'+--+-- * 'mniaDryRun' @::@ 'Maybe' 'Bool'+--+-- * 'mniaGroups' @::@ ['Text']+--+-- * 'mniaNetworkInterfaceId' @::@ 'Text'+--+-- * 'mniaSourceDestCheck' @::@ 'Maybe' 'AttributeBooleanValue'+--+modifyNetworkInterfaceAttribute :: Text -- ^ 'mniaNetworkInterfaceId'+                                -> ModifyNetworkInterfaceAttribute+modifyNetworkInterfaceAttribute p1 = ModifyNetworkInterfaceAttribute+    { _mniaNetworkInterfaceId = p1+    , _mniaDryRun             = Nothing+    , _mniaDescription        = Nothing+    , _mniaSourceDestCheck    = Nothing+    , _mniaGroups             = mempty+    , _mniaAttachment         = Nothing+    }++-- | Information about the interface attachment. If modifying the 'delete on+-- termination' attribute, you must specify the ID of the interface+-- attachment.+mniaAttachment :: Lens' ModifyNetworkInterfaceAttribute (Maybe NetworkInterfaceAttachmentChanges)+mniaAttachment = lens _mniaAttachment (\s a -> s { _mniaAttachment = a })++-- | A description for the network interface.+mniaDescription :: Lens' ModifyNetworkInterfaceAttribute (Maybe AttributeValue)+mniaDescription = lens _mniaDescription (\s a -> s { _mniaDescription = a })++mniaDryRun :: Lens' ModifyNetworkInterfaceAttribute (Maybe Bool)+mniaDryRun = lens _mniaDryRun (\s a -> s { _mniaDryRun = a })++-- | Changes the security groups for the network interface. The new set of+-- groups you specify replaces the current set. You must specify at least+-- one group, even if it's just the default security group in the VPC. You+-- must specify the ID of the security group, not the name.+mniaGroups :: Lens' ModifyNetworkInterfaceAttribute [Text]+mniaGroups = lens _mniaGroups (\s a -> s { _mniaGroups = a }) . _List++-- | The ID of the network interface.+mniaNetworkInterfaceId :: Lens' ModifyNetworkInterfaceAttribute Text+mniaNetworkInterfaceId =+    lens _mniaNetworkInterfaceId (\s a -> s { _mniaNetworkInterfaceId = a })++-- | Indicates whether source/destination checking is enabled. A value of true+-- means checking is enabled, and false means checking is disabled. This+-- value must be false for a NAT instance to perform NAT. For more+-- information, see NAT Instances in the Amazon Virtual Private Cloud User+-- Guide.+mniaSourceDestCheck :: Lens' ModifyNetworkInterfaceAttribute (Maybe AttributeBooleanValue)+mniaSourceDestCheck =+    lens _mniaSourceDestCheck (\s a -> s { _mniaSourceDestCheck = a })++data ModifyNetworkInterfaceAttributeResponse = ModifyNetworkInterfaceAttributeResponse+    deriving (Eq, Ord, Show, Generic)++-- | 'ModifyNetworkInterfaceAttributeResponse' constructor.+modifyNetworkInterfaceAttributeResponse :: ModifyNetworkInterfaceAttributeResponse+modifyNetworkInterfaceAttributeResponse = ModifyNetworkInterfaceAttributeResponse++instance ToPath ModifyNetworkInterfaceAttribute where+    toPath = const "/"++instance ToQuery ModifyNetworkInterfaceAttribute where+    toQuery ModifyNetworkInterfaceAttribute{..} = mconcat+        [ "attachment"         =? _mniaAttachment+        , "description"        =? _mniaDescription+        , "dryRun"             =? _mniaDryRun+        , "SecurityGroupId"    =? _mniaGroups+        , "networkInterfaceId" =? _mniaNetworkInterfaceId+        , "sourceDestCheck"    =? _mniaSourceDestCheck+        ]++instance ToHeaders ModifyNetworkInterfaceAttribute++instance AWSRequest ModifyNetworkInterfaceAttribute where+    type Sv ModifyNetworkInterfaceAttribute = EC2+    type Rs ModifyNetworkInterfaceAttribute = ModifyNetworkInterfaceAttributeResponse++    request  = post "ModifyNetworkInterfaceAttribute"+    response = nullResponse ModifyNetworkInterfaceAttributeResponse
+ gen/Network/AWS/EC2/ModifyReservedInstances.hs view
@@ -0,0 +1,136 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.ModifyReservedInstances+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Modifies the Availability Zone, instance count, instance type, or network+-- platform (EC2-Classic or EC2-VPC) of your Reserved Instances. The Reserved+-- Instances to be modified must be identical, except for Availability Zone,+-- network platform, and instance type. For more information, see Modifying+-- Reserved Instances in the Amazon Elastic Compute Cloud User Guide.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-ModifyReservedInstances.html>+module Network.AWS.EC2.ModifyReservedInstances+    (+    -- * Request+      ModifyReservedInstances+    -- ** Request constructor+    , modifyReservedInstances+    -- ** Request lenses+    , mriClientToken+    , mriReservedInstancesIds+    , mriTargetConfigurations++    -- * Response+    , ModifyReservedInstancesResponse+    -- ** Response constructor+    , modifyReservedInstancesResponse+    -- ** Response lenses+    , mrirReservedInstancesModificationId+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data ModifyReservedInstances = ModifyReservedInstances+    { _mriClientToken          :: Maybe Text+    , _mriReservedInstancesIds :: List "ReservedInstancesId" Text+    , _mriTargetConfigurations :: List "item" ReservedInstancesConfiguration+    } deriving (Eq, Show)++-- | 'ModifyReservedInstances' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'mriClientToken' @::@ 'Maybe' 'Text'+--+-- * 'mriReservedInstancesIds' @::@ ['Text']+--+-- * 'mriTargetConfigurations' @::@ ['ReservedInstancesConfiguration']+--+modifyReservedInstances :: ModifyReservedInstances+modifyReservedInstances = ModifyReservedInstances+    { _mriClientToken          = Nothing+    , _mriReservedInstancesIds = mempty+    , _mriTargetConfigurations = mempty+    }++-- | A unique, case-sensitive token you provide to ensure idempotency of your+-- modification request.+mriClientToken :: Lens' ModifyReservedInstances (Maybe Text)+mriClientToken = lens _mriClientToken (\s a -> s { _mriClientToken = a })++-- | The IDs of the Reserved Instances to modify.+mriReservedInstancesIds :: Lens' ModifyReservedInstances [Text]+mriReservedInstancesIds =+    lens _mriReservedInstancesIds (\s a -> s { _mriReservedInstancesIds = a })+        . _List++-- | The configuration settings for the Reserved Instances to modify.+mriTargetConfigurations :: Lens' ModifyReservedInstances [ReservedInstancesConfiguration]+mriTargetConfigurations =+    lens _mriTargetConfigurations (\s a -> s { _mriTargetConfigurations = a })+        . _List++newtype ModifyReservedInstancesResponse = ModifyReservedInstancesResponse+    { _mrirReservedInstancesModificationId :: Maybe Text+    } deriving (Eq, Ord, Show, Monoid)++-- | 'ModifyReservedInstancesResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'mrirReservedInstancesModificationId' @::@ 'Maybe' 'Text'+--+modifyReservedInstancesResponse :: ModifyReservedInstancesResponse+modifyReservedInstancesResponse = ModifyReservedInstancesResponse+    { _mrirReservedInstancesModificationId = Nothing+    }++-- | The ID for the modification.+mrirReservedInstancesModificationId :: Lens' ModifyReservedInstancesResponse (Maybe Text)+mrirReservedInstancesModificationId =+    lens _mrirReservedInstancesModificationId+        (\s a -> s { _mrirReservedInstancesModificationId = a })++instance ToPath ModifyReservedInstances where+    toPath = const "/"++instance ToQuery ModifyReservedInstances where+    toQuery ModifyReservedInstances{..} = mconcat+        [ "clientToken"                               =? _mriClientToken+        , "ReservedInstancesId"                       =? _mriReservedInstancesIds+        , "ReservedInstancesConfigurationSetItemType" =? _mriTargetConfigurations+        ]++instance ToHeaders ModifyReservedInstances++instance AWSRequest ModifyReservedInstances where+    type Sv ModifyReservedInstances = EC2+    type Rs ModifyReservedInstances = ModifyReservedInstancesResponse++    request  = post "ModifyReservedInstances"+    response = xmlResponse++instance FromXML ModifyReservedInstancesResponse where+    parseXML x = ModifyReservedInstancesResponse+        <$> x .@? "reservedInstancesModificationId"
+ gen/Network/AWS/EC2/ModifySnapshotAttribute.hs view
@@ -0,0 +1,154 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.ModifySnapshotAttribute+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Adds or removes permission settings for the specified snapshot. You may add+-- or remove specified AWS account IDs from a snapshot's list of create volume+-- permissions, but you cannot do both in a single API call. If you need to+-- both add and remove account IDs for a snapshot, you must use multiple API+-- calls. For more information on modifying snapshot permissions, see Sharing+-- Snapshots in the Amazon Elastic Compute Cloud User Guide.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-ModifySnapshotAttribute.html>+module Network.AWS.EC2.ModifySnapshotAttribute+    (+    -- * Request+      ModifySnapshotAttribute+    -- ** Request constructor+    , modifySnapshotAttribute+    -- ** Request lenses+    , msaAttribute+    , msaCreateVolumePermission+    , msaDryRun+    , msaGroupNames+    , msaOperationType+    , msaSnapshotId+    , msaUserIds++    -- * Response+    , ModifySnapshotAttributeResponse+    -- ** Response constructor+    , modifySnapshotAttributeResponse+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data ModifySnapshotAttribute = ModifySnapshotAttribute+    { _msaAttribute              :: Maybe Text+    , _msaCreateVolumePermission :: Maybe CreateVolumePermissionModifications+    , _msaDryRun                 :: Maybe Bool+    , _msaGroupNames             :: List "GroupName" Text+    , _msaOperationType          :: Maybe Text+    , _msaSnapshotId             :: Text+    , _msaUserIds                :: List "UserId" Text+    } deriving (Eq, Show)++-- | 'ModifySnapshotAttribute' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'msaAttribute' @::@ 'Maybe' 'Text'+--+-- * 'msaCreateVolumePermission' @::@ 'Maybe' 'CreateVolumePermissionModifications'+--+-- * 'msaDryRun' @::@ 'Maybe' 'Bool'+--+-- * 'msaGroupNames' @::@ ['Text']+--+-- * 'msaOperationType' @::@ 'Maybe' 'Text'+--+-- * 'msaSnapshotId' @::@ 'Text'+--+-- * 'msaUserIds' @::@ ['Text']+--+modifySnapshotAttribute :: Text -- ^ 'msaSnapshotId'+                        -> ModifySnapshotAttribute+modifySnapshotAttribute p1 = ModifySnapshotAttribute+    { _msaSnapshotId             = p1+    , _msaDryRun                 = Nothing+    , _msaAttribute              = Nothing+    , _msaOperationType          = Nothing+    , _msaUserIds                = mempty+    , _msaGroupNames             = mempty+    , _msaCreateVolumePermission = Nothing+    }++-- | The snapshot attribute to modify.+msaAttribute :: Lens' ModifySnapshotAttribute (Maybe Text)+msaAttribute = lens _msaAttribute (\s a -> s { _msaAttribute = a })++-- | A JSON representation of the snapshot attribute modification.+msaCreateVolumePermission :: Lens' ModifySnapshotAttribute (Maybe CreateVolumePermissionModifications)+msaCreateVolumePermission =+    lens _msaCreateVolumePermission+        (\s a -> s { _msaCreateVolumePermission = a })++msaDryRun :: Lens' ModifySnapshotAttribute (Maybe Bool)+msaDryRun = lens _msaDryRun (\s a -> s { _msaDryRun = a })++-- | The group to modify for the snapshot.+msaGroupNames :: Lens' ModifySnapshotAttribute [Text]+msaGroupNames = lens _msaGroupNames (\s a -> s { _msaGroupNames = a }) . _List++-- | The type of operation to perform to the attribute.+msaOperationType :: Lens' ModifySnapshotAttribute (Maybe Text)+msaOperationType = lens _msaOperationType (\s a -> s { _msaOperationType = a })++-- | The ID of the snapshot.+msaSnapshotId :: Lens' ModifySnapshotAttribute Text+msaSnapshotId = lens _msaSnapshotId (\s a -> s { _msaSnapshotId = a })++-- | The account ID to modify for the snapshot.+msaUserIds :: Lens' ModifySnapshotAttribute [Text]+msaUserIds = lens _msaUserIds (\s a -> s { _msaUserIds = a }) . _List++data ModifySnapshotAttributeResponse = ModifySnapshotAttributeResponse+    deriving (Eq, Ord, Show, Generic)++-- | 'ModifySnapshotAttributeResponse' constructor.+modifySnapshotAttributeResponse :: ModifySnapshotAttributeResponse+modifySnapshotAttributeResponse = ModifySnapshotAttributeResponse++instance ToPath ModifySnapshotAttribute where+    toPath = const "/"++instance ToQuery ModifySnapshotAttribute where+    toQuery ModifySnapshotAttribute{..} = mconcat+        [ "Attribute"              =? _msaAttribute+        , "CreateVolumePermission" =? _msaCreateVolumePermission+        , "dryRun"                 =? _msaDryRun+        , "UserGroup"              =? _msaGroupNames+        , "OperationType"          =? _msaOperationType+        , "SnapshotId"             =? _msaSnapshotId+        , "UserId"                 =? _msaUserIds+        ]++instance ToHeaders ModifySnapshotAttribute++instance AWSRequest ModifySnapshotAttribute where+    type Sv ModifySnapshotAttribute = EC2+    type Rs ModifySnapshotAttribute = ModifySnapshotAttributeResponse++    request  = post "ModifySnapshotAttribute"+    response = nullResponse ModifySnapshotAttributeResponse
+ gen/Network/AWS/EC2/ModifySubnetAttribute.hs view
@@ -0,0 +1,98 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.ModifySubnetAttribute+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Modifies a subnet attribute.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-ModifySubnetAttribute.html>+module Network.AWS.EC2.ModifySubnetAttribute+    (+    -- * Request+      ModifySubnetAttribute+    -- ** Request constructor+    , modifySubnetAttribute+    -- ** Request lenses+    , msaMapPublicIpOnLaunch+    , msaSubnetId++    -- * Response+    , ModifySubnetAttributeResponse+    -- ** Response constructor+    , modifySubnetAttributeResponse+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data ModifySubnetAttribute = ModifySubnetAttribute+    { _msaMapPublicIpOnLaunch :: Maybe AttributeBooleanValue+    , _msaSubnetId            :: Text+    } deriving (Eq, Show)++-- | 'ModifySubnetAttribute' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'msaMapPublicIpOnLaunch' @::@ 'Maybe' 'AttributeBooleanValue'+--+-- * 'msaSubnetId' @::@ 'Text'+--+modifySubnetAttribute :: Text -- ^ 'msaSubnetId'+                      -> ModifySubnetAttribute+modifySubnetAttribute p1 = ModifySubnetAttribute+    { _msaSubnetId            = p1+    , _msaMapPublicIpOnLaunch = Nothing+    }++msaMapPublicIpOnLaunch :: Lens' ModifySubnetAttribute (Maybe AttributeBooleanValue)+msaMapPublicIpOnLaunch =+    lens _msaMapPublicIpOnLaunch (\s a -> s { _msaMapPublicIpOnLaunch = a })++-- | The ID of the subnet.+msaSubnetId :: Lens' ModifySubnetAttribute Text+msaSubnetId = lens _msaSubnetId (\s a -> s { _msaSubnetId = a })++data ModifySubnetAttributeResponse = ModifySubnetAttributeResponse+    deriving (Eq, Ord, Show, Generic)++-- | 'ModifySubnetAttributeResponse' constructor.+modifySubnetAttributeResponse :: ModifySubnetAttributeResponse+modifySubnetAttributeResponse = ModifySubnetAttributeResponse++instance ToPath ModifySubnetAttribute where+    toPath = const "/"++instance ToQuery ModifySubnetAttribute where+    toQuery ModifySubnetAttribute{..} = mconcat+        [ "MapPublicIpOnLaunch" =? _msaMapPublicIpOnLaunch+        , "subnetId"            =? _msaSubnetId+        ]++instance ToHeaders ModifySubnetAttribute++instance AWSRequest ModifySubnetAttribute where+    type Sv ModifySubnetAttribute = EC2+    type Rs ModifySubnetAttribute = ModifySubnetAttributeResponse++    request  = post "ModifySubnetAttribute"+    response = nullResponse ModifySubnetAttributeResponse
+ gen/Network/AWS/EC2/ModifyVolumeAttribute.hs view
@@ -0,0 +1,113 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.ModifyVolumeAttribute+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Modifies a volume attribute. By default, all I/O operations for the volume+-- are suspended when the data on the volume is determined to be potentially+-- inconsistent, to prevent undetectable, latent data corruption. The I/O+-- access to the volume can be resumed by first enabling I/O access and then+-- checking the data consistency on your volume. You can change the default+-- behavior to resume I/O operations. We recommend that you change this only+-- for boot volumes or for volumes that are stateless or disposable.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-ModifyVolumeAttribute.html>+module Network.AWS.EC2.ModifyVolumeAttribute+    (+    -- * Request+      ModifyVolumeAttribute+    -- ** Request constructor+    , modifyVolumeAttribute+    -- ** Request lenses+    , mvaAutoEnableIO+    , mvaDryRun+    , mvaVolumeId++    -- * Response+    , ModifyVolumeAttributeResponse+    -- ** Response constructor+    , modifyVolumeAttributeResponse+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data ModifyVolumeAttribute = ModifyVolumeAttribute+    { _mvaAutoEnableIO :: Maybe AttributeBooleanValue+    , _mvaDryRun       :: Maybe Bool+    , _mvaVolumeId     :: Text+    } deriving (Eq, Show)++-- | 'ModifyVolumeAttribute' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'mvaAutoEnableIO' @::@ 'Maybe' 'AttributeBooleanValue'+--+-- * 'mvaDryRun' @::@ 'Maybe' 'Bool'+--+-- * 'mvaVolumeId' @::@ 'Text'+--+modifyVolumeAttribute :: Text -- ^ 'mvaVolumeId'+                      -> ModifyVolumeAttribute+modifyVolumeAttribute p1 = ModifyVolumeAttribute+    { _mvaVolumeId     = p1+    , _mvaDryRun       = Nothing+    , _mvaAutoEnableIO = Nothing+    }++-- | Indicates whether the volume should be auto-enabled for I/O operations.+mvaAutoEnableIO :: Lens' ModifyVolumeAttribute (Maybe AttributeBooleanValue)+mvaAutoEnableIO = lens _mvaAutoEnableIO (\s a -> s { _mvaAutoEnableIO = a })++mvaDryRun :: Lens' ModifyVolumeAttribute (Maybe Bool)+mvaDryRun = lens _mvaDryRun (\s a -> s { _mvaDryRun = a })++-- | The ID of the volume.+mvaVolumeId :: Lens' ModifyVolumeAttribute Text+mvaVolumeId = lens _mvaVolumeId (\s a -> s { _mvaVolumeId = a })++data ModifyVolumeAttributeResponse = ModifyVolumeAttributeResponse+    deriving (Eq, Ord, Show, Generic)++-- | 'ModifyVolumeAttributeResponse' constructor.+modifyVolumeAttributeResponse :: ModifyVolumeAttributeResponse+modifyVolumeAttributeResponse = ModifyVolumeAttributeResponse++instance ToPath ModifyVolumeAttribute where+    toPath = const "/"++instance ToQuery ModifyVolumeAttribute where+    toQuery ModifyVolumeAttribute{..} = mconcat+        [ "AutoEnableIO" =? _mvaAutoEnableIO+        , "dryRun"       =? _mvaDryRun+        , "VolumeId"     =? _mvaVolumeId+        ]++instance ToHeaders ModifyVolumeAttribute++instance AWSRequest ModifyVolumeAttribute where+    type Sv ModifyVolumeAttribute = EC2+    type Rs ModifyVolumeAttribute = ModifyVolumeAttributeResponse++    request  = post "ModifyVolumeAttribute"+    response = nullResponse ModifyVolumeAttributeResponse
+ gen/Network/AWS/EC2/ModifyVpcAttribute.hs view
@@ -0,0 +1,117 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.ModifyVpcAttribute+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Modifies the specified attribute of the specified VPC.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-ModifyVpcAttribute.html>+module Network.AWS.EC2.ModifyVpcAttribute+    (+    -- * Request+      ModifyVpcAttribute+    -- ** Request constructor+    , modifyVpcAttribute+    -- ** Request lenses+    , mvaEnableDnsHostnames+    , mvaEnableDnsSupport+    , mvaVpcId++    -- * Response+    , ModifyVpcAttributeResponse+    -- ** Response constructor+    , modifyVpcAttributeResponse+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data ModifyVpcAttribute = ModifyVpcAttribute+    { _mvaEnableDnsHostnames :: Maybe AttributeBooleanValue+    , _mvaEnableDnsSupport   :: Maybe AttributeBooleanValue+    , _mvaVpcId              :: Text+    } deriving (Eq, Show)++-- | 'ModifyVpcAttribute' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'mvaEnableDnsHostnames' @::@ 'Maybe' 'AttributeBooleanValue'+--+-- * 'mvaEnableDnsSupport' @::@ 'Maybe' 'AttributeBooleanValue'+--+-- * 'mvaVpcId' @::@ 'Text'+--+modifyVpcAttribute :: Text -- ^ 'mvaVpcId'+                   -> ModifyVpcAttribute+modifyVpcAttribute p1 = ModifyVpcAttribute+    { _mvaVpcId              = p1+    , _mvaEnableDnsSupport   = Nothing+    , _mvaEnableDnsHostnames = Nothing+    }++-- | Indicates whether the instances launched in the VPC get DNS hostnames. If+-- enabled, instances in the VPC get DNS hostnames; otherwise, they do not.+-- You can only enable DNS hostnames if you also enable DNS support.+mvaEnableDnsHostnames :: Lens' ModifyVpcAttribute (Maybe AttributeBooleanValue)+mvaEnableDnsHostnames =+    lens _mvaEnableDnsHostnames (\s a -> s { _mvaEnableDnsHostnames = a })++-- | Indicates whether the DNS resolution is supported for the VPC. If+-- enabled, queries to the Amazon provided DNS server at the 169.254.169.253+-- IP address, or the reserved IP address at the base of the VPC network+-- range "plus two" will succeed. If disabled, the Amazon provided DNS+-- service in the VPC that resolves public DNS hostnames to IP addresses is+-- not enabled.+mvaEnableDnsSupport :: Lens' ModifyVpcAttribute (Maybe AttributeBooleanValue)+mvaEnableDnsSupport =+    lens _mvaEnableDnsSupport (\s a -> s { _mvaEnableDnsSupport = a })++-- | The ID of the VPC.+mvaVpcId :: Lens' ModifyVpcAttribute Text+mvaVpcId = lens _mvaVpcId (\s a -> s { _mvaVpcId = a })++data ModifyVpcAttributeResponse = ModifyVpcAttributeResponse+    deriving (Eq, Ord, Show, Generic)++-- | 'ModifyVpcAttributeResponse' constructor.+modifyVpcAttributeResponse :: ModifyVpcAttributeResponse+modifyVpcAttributeResponse = ModifyVpcAttributeResponse++instance ToPath ModifyVpcAttribute where+    toPath = const "/"++instance ToQuery ModifyVpcAttribute where+    toQuery ModifyVpcAttribute{..} = mconcat+        [ "EnableDnsHostnames" =? _mvaEnableDnsHostnames+        , "EnableDnsSupport"   =? _mvaEnableDnsSupport+        , "vpcId"              =? _mvaVpcId+        ]++instance ToHeaders ModifyVpcAttribute++instance AWSRequest ModifyVpcAttribute where+    type Sv ModifyVpcAttribute = EC2+    type Rs ModifyVpcAttribute = ModifyVpcAttributeResponse++    request  = post "ModifyVpcAttribute"+    response = nullResponse ModifyVpcAttributeResponse
+ gen/Network/AWS/EC2/MonitorInstances.hs view
@@ -0,0 +1,124 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.MonitorInstances+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Enables monitoring for a running instance. For more information about+-- monitoring instances, see Monitoring Your Instances and Volumes in the+-- Amazon Elastic Compute Cloud User Guide.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-MonitorInstances.html>+module Network.AWS.EC2.MonitorInstances+    (+    -- * Request+      MonitorInstances+    -- ** Request constructor+    , monitorInstances+    -- ** Request lenses+    , miDryRun+    , miInstanceIds++    -- * Response+    , MonitorInstancesResponse+    -- ** Response constructor+    , monitorInstancesResponse+    -- ** Response lenses+    , mirInstanceMonitorings+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data MonitorInstances = MonitorInstances+    { _miDryRun      :: Maybe Bool+    , _miInstanceIds :: List "InstanceId" Text+    } deriving (Eq, Ord, Show)++-- | 'MonitorInstances' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'miDryRun' @::@ 'Maybe' 'Bool'+--+-- * 'miInstanceIds' @::@ ['Text']+--+monitorInstances :: MonitorInstances+monitorInstances = MonitorInstances+    { _miDryRun      = Nothing+    , _miInstanceIds = mempty+    }++miDryRun :: Lens' MonitorInstances (Maybe Bool)+miDryRun = lens _miDryRun (\s a -> s { _miDryRun = a })++-- | One or more instance IDs.+miInstanceIds :: Lens' MonitorInstances [Text]+miInstanceIds = lens _miInstanceIds (\s a -> s { _miInstanceIds = a }) . _List++newtype MonitorInstancesResponse = MonitorInstancesResponse+    { _mirInstanceMonitorings :: List "item" InstanceMonitoring+    } deriving (Eq, Show, Monoid, Semigroup)++instance GHC.Exts.IsList MonitorInstancesResponse where+    type Item MonitorInstancesResponse = InstanceMonitoring++    fromList = MonitorInstancesResponse . GHC.Exts.fromList+    toList   = GHC.Exts.toList . _mirInstanceMonitorings++-- | 'MonitorInstancesResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'mirInstanceMonitorings' @::@ ['InstanceMonitoring']+--+monitorInstancesResponse :: MonitorInstancesResponse+monitorInstancesResponse = MonitorInstancesResponse+    { _mirInstanceMonitorings = mempty+    }++-- | Monitoring information for one or more instances.+mirInstanceMonitorings :: Lens' MonitorInstancesResponse [InstanceMonitoring]+mirInstanceMonitorings =+    lens _mirInstanceMonitorings (\s a -> s { _mirInstanceMonitorings = a })+        . _List++instance ToPath MonitorInstances where+    toPath = const "/"++instance ToQuery MonitorInstances where+    toQuery MonitorInstances{..} = mconcat+        [ "dryRun"     =? _miDryRun+        , "InstanceId" =? _miInstanceIds+        ]++instance ToHeaders MonitorInstances++instance AWSRequest MonitorInstances where+    type Sv MonitorInstances = EC2+    type Rs MonitorInstances = MonitorInstancesResponse++    request  = post "MonitorInstances"+    response = xmlResponse++instance FromXML MonitorInstancesResponse where+    parseXML x = MonitorInstancesResponse+        <$> x .@  "instancesSet"
+ gen/Network/AWS/EC2/PurchaseReservedInstancesOffering.hs view
@@ -0,0 +1,152 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.PurchaseReservedInstancesOffering+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Purchases a Reserved Instance for use with your account. With Amazon EC2+-- Reserved Instances, you obtain a capacity reservation for a certain+-- instance configuration over a specified period of time. You pay a lower+-- usage rate than with On-Demand instances for the time that you actually use+-- the capacity reservation. Use DescribeReservedInstancesOfferings to get a+-- list of Reserved Instance offerings that match your specifications. After+-- you've purchased a Reserved Instance, you can check for your new Reserved+-- Instance with DescribeReservedInstances. For more information, see Reserved+-- Instances and Reserved Instance Marketplace in the Amazon Elastic Compute+-- Cloud User Guide.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-PurchaseReservedInstancesOffering.html>+module Network.AWS.EC2.PurchaseReservedInstancesOffering+    (+    -- * Request+      PurchaseReservedInstancesOffering+    -- ** Request constructor+    , purchaseReservedInstancesOffering+    -- ** Request lenses+    , prioDryRun+    , prioInstanceCount+    , prioLimitPrice+    , prioReservedInstancesOfferingId++    -- * Response+    , PurchaseReservedInstancesOfferingResponse+    -- ** Response constructor+    , purchaseReservedInstancesOfferingResponse+    -- ** Response lenses+    , priorReservedInstancesId+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data PurchaseReservedInstancesOffering = PurchaseReservedInstancesOffering+    { _prioDryRun                      :: Maybe Bool+    , _prioInstanceCount               :: Int+    , _prioLimitPrice                  :: Maybe ReservedInstanceLimitPrice+    , _prioReservedInstancesOfferingId :: Text+    } deriving (Eq, Show)++-- | 'PurchaseReservedInstancesOffering' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'prioDryRun' @::@ 'Maybe' 'Bool'+--+-- * 'prioInstanceCount' @::@ 'Int'+--+-- * 'prioLimitPrice' @::@ 'Maybe' 'ReservedInstanceLimitPrice'+--+-- * 'prioReservedInstancesOfferingId' @::@ 'Text'+--+purchaseReservedInstancesOffering :: Text -- ^ 'prioReservedInstancesOfferingId'+                                  -> Int -- ^ 'prioInstanceCount'+                                  -> PurchaseReservedInstancesOffering+purchaseReservedInstancesOffering p1 p2 = PurchaseReservedInstancesOffering+    { _prioReservedInstancesOfferingId = p1+    , _prioInstanceCount               = p2+    , _prioDryRun                      = Nothing+    , _prioLimitPrice                  = Nothing+    }++prioDryRun :: Lens' PurchaseReservedInstancesOffering (Maybe Bool)+prioDryRun = lens _prioDryRun (\s a -> s { _prioDryRun = a })++-- | The number of Reserved Instances to purchase.+prioInstanceCount :: Lens' PurchaseReservedInstancesOffering Int+prioInstanceCount =+    lens _prioInstanceCount (\s a -> s { _prioInstanceCount = a })++-- | Specified for Reserved Instance Marketplace offerings to limit the total+-- order and ensure that the Reserved Instances are not purchased at+-- unexpected prices.+prioLimitPrice :: Lens' PurchaseReservedInstancesOffering (Maybe ReservedInstanceLimitPrice)+prioLimitPrice = lens _prioLimitPrice (\s a -> s { _prioLimitPrice = a })++-- | The ID of the Reserved Instance offering to purchase.+prioReservedInstancesOfferingId :: Lens' PurchaseReservedInstancesOffering Text+prioReservedInstancesOfferingId =+    lens _prioReservedInstancesOfferingId+        (\s a -> s { _prioReservedInstancesOfferingId = a })++newtype PurchaseReservedInstancesOfferingResponse = PurchaseReservedInstancesOfferingResponse+    { _priorReservedInstancesId :: Maybe Text+    } deriving (Eq, Ord, Show, Monoid)++-- | 'PurchaseReservedInstancesOfferingResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'priorReservedInstancesId' @::@ 'Maybe' 'Text'+--+purchaseReservedInstancesOfferingResponse :: PurchaseReservedInstancesOfferingResponse+purchaseReservedInstancesOfferingResponse = PurchaseReservedInstancesOfferingResponse+    { _priorReservedInstancesId = Nothing+    }++-- | The IDs of the purchased Reserved Instances.+priorReservedInstancesId :: Lens' PurchaseReservedInstancesOfferingResponse (Maybe Text)+priorReservedInstancesId =+    lens _priorReservedInstancesId+        (\s a -> s { _priorReservedInstancesId = a })++instance ToPath PurchaseReservedInstancesOffering where+    toPath = const "/"++instance ToQuery PurchaseReservedInstancesOffering where+    toQuery PurchaseReservedInstancesOffering{..} = mconcat+        [ "dryRun"                      =? _prioDryRun+        , "InstanceCount"               =? _prioInstanceCount+        , "limitPrice"                  =? _prioLimitPrice+        , "ReservedInstancesOfferingId" =? _prioReservedInstancesOfferingId+        ]++instance ToHeaders PurchaseReservedInstancesOffering++instance AWSRequest PurchaseReservedInstancesOffering where+    type Sv PurchaseReservedInstancesOffering = EC2+    type Rs PurchaseReservedInstancesOffering = PurchaseReservedInstancesOfferingResponse++    request  = post "PurchaseReservedInstancesOffering"+    response = xmlResponse++instance FromXML PurchaseReservedInstancesOfferingResponse where+    parseXML x = PurchaseReservedInstancesOfferingResponse+        <$> x .@? "reservedInstancesId"
+ gen/Network/AWS/EC2/RebootInstances.hs view
@@ -0,0 +1,102 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.RebootInstances+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Requests a reboot of one or more instances. This operation is asynchronous;+-- it only queues a request to reboot the specified instances. The operation+-- succeeds if the instances are valid and belong to you. Requests to reboot+-- terminated instances are ignored. If a Linux/Unix instance does not cleanly+-- shut down within four minutes, Amazon EC2 performs a hard reboot. For more+-- information about troubleshooting, see Getting Console Output and Rebooting+-- Instances in the Amazon Elastic Compute Cloud User Guide.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-RebootInstances.html>+module Network.AWS.EC2.RebootInstances+    (+    -- * Request+      RebootInstances+    -- ** Request constructor+    , rebootInstances+    -- ** Request lenses+    , ri2DryRun+    , ri2InstanceIds++    -- * Response+    , RebootInstancesResponse+    -- ** Response constructor+    , rebootInstancesResponse+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data RebootInstances = RebootInstances+    { _ri2DryRun      :: Maybe Bool+    , _ri2InstanceIds :: List "InstanceId" Text+    } deriving (Eq, Ord, Show)++-- | 'RebootInstances' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'ri2DryRun' @::@ 'Maybe' 'Bool'+--+-- * 'ri2InstanceIds' @::@ ['Text']+--+rebootInstances :: RebootInstances+rebootInstances = RebootInstances+    { _ri2DryRun      = Nothing+    , _ri2InstanceIds = mempty+    }++ri2DryRun :: Lens' RebootInstances (Maybe Bool)+ri2DryRun = lens _ri2DryRun (\s a -> s { _ri2DryRun = a })++-- | One or more instance IDs.+ri2InstanceIds :: Lens' RebootInstances [Text]+ri2InstanceIds = lens _ri2InstanceIds (\s a -> s { _ri2InstanceIds = a }) . _List++data RebootInstancesResponse = RebootInstancesResponse+    deriving (Eq, Ord, Show, Generic)++-- | 'RebootInstancesResponse' constructor.+rebootInstancesResponse :: RebootInstancesResponse+rebootInstancesResponse = RebootInstancesResponse++instance ToPath RebootInstances where+    toPath = const "/"++instance ToQuery RebootInstances where+    toQuery RebootInstances{..} = mconcat+        [ "dryRun"     =? _ri2DryRun+        , "InstanceId" =? _ri2InstanceIds+        ]++instance ToHeaders RebootInstances++instance AWSRequest RebootInstances where+    type Sv RebootInstances = EC2+    type Rs RebootInstances = RebootInstancesResponse++    request  = post "RebootInstances"+    response = nullResponse RebootInstancesResponse
+ gen/Network/AWS/EC2/RegisterImage.hs view
@@ -0,0 +1,227 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.RegisterImage+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Registers an AMI. When you're creating an AMI, this is the final step you+-- must complete before you can launch an instance from the AMI. For more+-- information about creating AMIs, see Creating Your Own AMIs in the Amazon+-- Elastic Compute Cloud User Guide. You can also use RegisterImage to create+-- an Amazon EBS-backed AMI from a snapshot of a root device volume. For more+-- information, see Launching an Instance from a Snapshot in the Amazon+-- Elastic Compute Cloud User Guide. If needed, you can deregister an AMI at+-- any time. Any modifications you make to an AMI backed by an instance store+-- volume invalidates its registration. If you make changes to an image,+-- deregister the previous image and register the new image.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-RegisterImage.html>+module Network.AWS.EC2.RegisterImage+    (+    -- * Request+      RegisterImage+    -- ** Request constructor+    , registerImage+    -- ** Request lenses+    , ri1Architecture+    , ri1BlockDeviceMappings+    , ri1Description+    , ri1DryRun+    , ri1ImageLocation+    , ri1KernelId+    , ri1Name+    , ri1RamdiskId+    , ri1RootDeviceName+    , ri1SriovNetSupport+    , ri1VirtualizationType++    -- * Response+    , RegisterImageResponse+    -- ** Response constructor+    , registerImageResponse+    -- ** Response lenses+    , rirImageId+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data RegisterImage = RegisterImage+    { _ri1Architecture        :: Maybe Text+    , _ri1BlockDeviceMappings :: List "BlockDeviceMapping" BlockDeviceMapping+    , _ri1Description         :: Maybe Text+    , _ri1DryRun              :: Maybe Bool+    , _ri1ImageLocation       :: Maybe Text+    , _ri1KernelId            :: Maybe Text+    , _ri1Name                :: Text+    , _ri1RamdiskId           :: Maybe Text+    , _ri1RootDeviceName      :: Maybe Text+    , _ri1SriovNetSupport     :: Maybe Text+    , _ri1VirtualizationType  :: Maybe Text+    } deriving (Eq, Show)++-- | 'RegisterImage' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'ri1Architecture' @::@ 'Maybe' 'Text'+--+-- * 'ri1BlockDeviceMappings' @::@ ['BlockDeviceMapping']+--+-- * 'ri1Description' @::@ 'Maybe' 'Text'+--+-- * 'ri1DryRun' @::@ 'Maybe' 'Bool'+--+-- * 'ri1ImageLocation' @::@ 'Maybe' 'Text'+--+-- * 'ri1KernelId' @::@ 'Maybe' 'Text'+--+-- * 'ri1Name' @::@ 'Text'+--+-- * 'ri1RamdiskId' @::@ 'Maybe' 'Text'+--+-- * 'ri1RootDeviceName' @::@ 'Maybe' 'Text'+--+-- * 'ri1SriovNetSupport' @::@ 'Maybe' 'Text'+--+-- * 'ri1VirtualizationType' @::@ 'Maybe' 'Text'+--+registerImage :: Text -- ^ 'ri1Name'+              -> RegisterImage+registerImage p1 = RegisterImage+    { _ri1Name                = p1+    , _ri1DryRun              = Nothing+    , _ri1ImageLocation       = Nothing+    , _ri1Description         = Nothing+    , _ri1Architecture        = Nothing+    , _ri1KernelId            = Nothing+    , _ri1RamdiskId           = Nothing+    , _ri1RootDeviceName      = Nothing+    , _ri1BlockDeviceMappings = mempty+    , _ri1VirtualizationType  = Nothing+    , _ri1SriovNetSupport     = Nothing+    }++-- | The architecture of the AMI. Default: For Amazon EBS-backed AMIs, i386.+-- For instance store-backed AMIs, the architecture specified in the+-- manifest file.+ri1Architecture :: Lens' RegisterImage (Maybe Text)+ri1Architecture = lens _ri1Architecture (\s a -> s { _ri1Architecture = a })++-- | One or more block device mapping entries.+ri1BlockDeviceMappings :: Lens' RegisterImage [BlockDeviceMapping]+ri1BlockDeviceMappings =+    lens _ri1BlockDeviceMappings (\s a -> s { _ri1BlockDeviceMappings = a })+        . _List++-- | A description for your AMI.+ri1Description :: Lens' RegisterImage (Maybe Text)+ri1Description = lens _ri1Description (\s a -> s { _ri1Description = a })++ri1DryRun :: Lens' RegisterImage (Maybe Bool)+ri1DryRun = lens _ri1DryRun (\s a -> s { _ri1DryRun = a })++-- | The full path to your AMI manifest in Amazon S3 storage.+ri1ImageLocation :: Lens' RegisterImage (Maybe Text)+ri1ImageLocation = lens _ri1ImageLocation (\s a -> s { _ri1ImageLocation = a })++-- | The ID of the kernel.+ri1KernelId :: Lens' RegisterImage (Maybe Text)+ri1KernelId = lens _ri1KernelId (\s a -> s { _ri1KernelId = a })++-- | A name for your AMI. Constraints: 3-128 alphanumeric characters,+-- parentheses (()), square brackets ([]), spaces ( ), periods (.), slashes+-- (/), dashes (-), single quotes ('), at-signs (@), or underscores(_).+ri1Name :: Lens' RegisterImage Text+ri1Name = lens _ri1Name (\s a -> s { _ri1Name = a })++-- | The ID of the RAM disk.+ri1RamdiskId :: Lens' RegisterImage (Maybe Text)+ri1RamdiskId = lens _ri1RamdiskId (\s a -> s { _ri1RamdiskId = a })++-- | The name of the root device (for example, /dev/sda1, or xvda).+ri1RootDeviceName :: Lens' RegisterImage (Maybe Text)+ri1RootDeviceName =+    lens _ri1RootDeviceName (\s a -> s { _ri1RootDeviceName = a })++-- | Set to simple to enable enhanced networking for the AMI and any instances+-- that you launch from the AMI. There is no way to disable enhanced+-- networking at this time. This option is supported only for HVM AMIs.+-- Specifying this option with a PV AMI can make instances launched from the+-- AMI unreachable.+ri1SriovNetSupport :: Lens' RegisterImage (Maybe Text)+ri1SriovNetSupport =+    lens _ri1SriovNetSupport (\s a -> s { _ri1SriovNetSupport = a })++-- | The type of virtualization. Default: paravirtual.+ri1VirtualizationType :: Lens' RegisterImage (Maybe Text)+ri1VirtualizationType =+    lens _ri1VirtualizationType (\s a -> s { _ri1VirtualizationType = a })++newtype RegisterImageResponse = RegisterImageResponse+    { _rirImageId :: Maybe Text+    } deriving (Eq, Ord, Show, Monoid)++-- | 'RegisterImageResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'rirImageId' @::@ 'Maybe' 'Text'+--+registerImageResponse :: RegisterImageResponse+registerImageResponse = RegisterImageResponse+    { _rirImageId = Nothing+    }++-- | The ID of the newly registered AMI.+rirImageId :: Lens' RegisterImageResponse (Maybe Text)+rirImageId = lens _rirImageId (\s a -> s { _rirImageId = a })++instance ToPath RegisterImage where+    toPath = const "/"++instance ToQuery RegisterImage where+    toQuery RegisterImage{..} = mconcat+        [ "architecture"       =? _ri1Architecture+        , "BlockDeviceMapping" =? _ri1BlockDeviceMappings+        , "description"        =? _ri1Description+        , "dryRun"             =? _ri1DryRun+        , "ImageLocation"      =? _ri1ImageLocation+        , "kernelId"           =? _ri1KernelId+        , "name"               =? _ri1Name+        , "ramdiskId"          =? _ri1RamdiskId+        , "rootDeviceName"     =? _ri1RootDeviceName+        , "sriovNetSupport"    =? _ri1SriovNetSupport+        , "virtualizationType" =? _ri1VirtualizationType+        ]++instance ToHeaders RegisterImage++instance AWSRequest RegisterImage where+    type Sv RegisterImage = EC2+    type Rs RegisterImage = RegisterImageResponse++    request  = post "RegisterImage"+    response = xmlResponse++instance FromXML RegisterImageResponse where+    parseXML x = RegisterImageResponse+        <$> x .@? "imageId"
+ gen/Network/AWS/EC2/RejectVpcPeeringConnection.hs view
@@ -0,0 +1,121 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.RejectVpcPeeringConnection+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Rejects a VPC peering connection request. The VPC peering connection must+-- be in the pending-acceptance state. Use the DescribeVpcPeeringConnections+-- request to view your outstanding VPC peering connection requests. To delete+-- an active VPC peering connection, or to delete a VPC peering connection+-- request that you initiated, use DeleteVpcPeeringConnection.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-RejectVpcPeeringConnection.html>+module Network.AWS.EC2.RejectVpcPeeringConnection+    (+    -- * Request+      RejectVpcPeeringConnection+    -- ** Request constructor+    , rejectVpcPeeringConnection+    -- ** Request lenses+    , rvpcDryRun+    , rvpcVpcPeeringConnectionId++    -- * Response+    , RejectVpcPeeringConnectionResponse+    -- ** Response constructor+    , rejectVpcPeeringConnectionResponse+    -- ** Response lenses+    , rvpcrReturn+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data RejectVpcPeeringConnection = RejectVpcPeeringConnection+    { _rvpcDryRun                 :: Maybe Bool+    , _rvpcVpcPeeringConnectionId :: Text+    } deriving (Eq, Ord, Show)++-- | 'RejectVpcPeeringConnection' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'rvpcDryRun' @::@ 'Maybe' 'Bool'+--+-- * 'rvpcVpcPeeringConnectionId' @::@ 'Text'+--+rejectVpcPeeringConnection :: Text -- ^ 'rvpcVpcPeeringConnectionId'+                           -> RejectVpcPeeringConnection+rejectVpcPeeringConnection p1 = RejectVpcPeeringConnection+    { _rvpcVpcPeeringConnectionId = p1+    , _rvpcDryRun                 = Nothing+    }++rvpcDryRun :: Lens' RejectVpcPeeringConnection (Maybe Bool)+rvpcDryRun = lens _rvpcDryRun (\s a -> s { _rvpcDryRun = a })++-- | The ID of the VPC peering connection.+rvpcVpcPeeringConnectionId :: Lens' RejectVpcPeeringConnection Text+rvpcVpcPeeringConnectionId =+    lens _rvpcVpcPeeringConnectionId+        (\s a -> s { _rvpcVpcPeeringConnectionId = a })++newtype RejectVpcPeeringConnectionResponse = RejectVpcPeeringConnectionResponse+    { _rvpcrReturn :: Maybe Bool+    } deriving (Eq, Ord, Show)++-- | 'RejectVpcPeeringConnectionResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'rvpcrReturn' @::@ 'Maybe' 'Bool'+--+rejectVpcPeeringConnectionResponse :: RejectVpcPeeringConnectionResponse+rejectVpcPeeringConnectionResponse = RejectVpcPeeringConnectionResponse+    { _rvpcrReturn = Nothing+    }++-- | Returns true if the request succeeds; otherwise, it returns an error.+rvpcrReturn :: Lens' RejectVpcPeeringConnectionResponse (Maybe Bool)+rvpcrReturn = lens _rvpcrReturn (\s a -> s { _rvpcrReturn = a })++instance ToPath RejectVpcPeeringConnection where+    toPath = const "/"++instance ToQuery RejectVpcPeeringConnection where+    toQuery RejectVpcPeeringConnection{..} = mconcat+        [ "dryRun"                 =? _rvpcDryRun+        , "vpcPeeringConnectionId" =? _rvpcVpcPeeringConnectionId+        ]++instance ToHeaders RejectVpcPeeringConnection++instance AWSRequest RejectVpcPeeringConnection where+    type Sv RejectVpcPeeringConnection = EC2+    type Rs RejectVpcPeeringConnection = RejectVpcPeeringConnectionResponse++    request  = post "RejectVpcPeeringConnection"+    response = xmlResponse++instance FromXML RejectVpcPeeringConnectionResponse where+    parseXML x = RejectVpcPeeringConnectionResponse+        <$> x .@? "return"
+ gen/Network/AWS/EC2/ReleaseAddress.hs view
@@ -0,0 +1,117 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.ReleaseAddress+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Releases the specified Elastic IP address. After releasing an Elastic IP+-- address, it is released to the IP address pool and might be unavailable to+-- you. Be sure to update your DNS records and any servers or devices that+-- communicate with the address. If you attempt to release an Elastic IP+-- address that you already released, you'll get an AuthFailure error if the+-- address is already allocated to another AWS account. [EC2-Classic, default+-- VPC] Releasing an Elastic IP address automatically disassociates it from+-- any instance that it's associated with. To disassociate an Elastic IP+-- address without releasing it, use DisassociateAddress. [Nondefault VPC] You+-- must use DisassociateAddress to disassociate the Elastic IP address before+-- you try to release it. Otherwise, Amazon EC2 returns an error+-- (InvalidIPAddress.InUse).+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-ReleaseAddress.html>+module Network.AWS.EC2.ReleaseAddress+    (+    -- * Request+      ReleaseAddress+    -- ** Request constructor+    , releaseAddress+    -- ** Request lenses+    , raAllocationId+    , raDryRun+    , raPublicIp++    -- * Response+    , ReleaseAddressResponse+    -- ** Response constructor+    , releaseAddressResponse+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data ReleaseAddress = ReleaseAddress+    { _raAllocationId :: Maybe Text+    , _raDryRun       :: Maybe Bool+    , _raPublicIp     :: Maybe Text+    } deriving (Eq, Ord, Show)++-- | 'ReleaseAddress' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'raAllocationId' @::@ 'Maybe' 'Text'+--+-- * 'raDryRun' @::@ 'Maybe' 'Bool'+--+-- * 'raPublicIp' @::@ 'Maybe' 'Text'+--+releaseAddress :: ReleaseAddress+releaseAddress = ReleaseAddress+    { _raDryRun       = Nothing+    , _raPublicIp     = Nothing+    , _raAllocationId = Nothing+    }++-- | [EC2-VPC] The allocation ID. Required for EC2-VPC.+raAllocationId :: Lens' ReleaseAddress (Maybe Text)+raAllocationId = lens _raAllocationId (\s a -> s { _raAllocationId = a })++raDryRun :: Lens' ReleaseAddress (Maybe Bool)+raDryRun = lens _raDryRun (\s a -> s { _raDryRun = a })++-- | [EC2-Classic] The Elastic IP address. Required for EC2-Classic.+raPublicIp :: Lens' ReleaseAddress (Maybe Text)+raPublicIp = lens _raPublicIp (\s a -> s { _raPublicIp = a })++data ReleaseAddressResponse = ReleaseAddressResponse+    deriving (Eq, Ord, Show, Generic)++-- | 'ReleaseAddressResponse' constructor.+releaseAddressResponse :: ReleaseAddressResponse+releaseAddressResponse = ReleaseAddressResponse++instance ToPath ReleaseAddress where+    toPath = const "/"++instance ToQuery ReleaseAddress where+    toQuery ReleaseAddress{..} = mconcat+        [ "AllocationId" =? _raAllocationId+        , "dryRun"       =? _raDryRun+        , "PublicIp"     =? _raPublicIp+        ]++instance ToHeaders ReleaseAddress++instance AWSRequest ReleaseAddress where+    type Sv ReleaseAddress = EC2+    type Rs ReleaseAddress = ReleaseAddressResponse++    request  = post "ReleaseAddress"+    response = nullResponse ReleaseAddressResponse
+ gen/Network/AWS/EC2/ReplaceNetworkAclAssociation.hs view
@@ -0,0 +1,132 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.ReplaceNetworkAclAssociation+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Changes which network ACL a subnet is associated with. By default when you+-- create a subnet, it's automatically associated with the default network+-- ACL. For more information about network ACLs, see Network ACLs in the+-- Amazon Virtual Private Cloud User Guide.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-ReplaceNetworkAclAssociation.html>+module Network.AWS.EC2.ReplaceNetworkAclAssociation+    (+    -- * Request+      ReplaceNetworkAclAssociation+    -- ** Request constructor+    , replaceNetworkAclAssociation+    -- ** Request lenses+    , rnaaAssociationId+    , rnaaDryRun+    , rnaaNetworkAclId++    -- * Response+    , ReplaceNetworkAclAssociationResponse+    -- ** Response constructor+    , replaceNetworkAclAssociationResponse+    -- ** Response lenses+    , rnaarNewAssociationId+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data ReplaceNetworkAclAssociation = ReplaceNetworkAclAssociation+    { _rnaaAssociationId :: Text+    , _rnaaDryRun        :: Maybe Bool+    , _rnaaNetworkAclId  :: Text+    } deriving (Eq, Ord, Show)++-- | 'ReplaceNetworkAclAssociation' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'rnaaAssociationId' @::@ 'Text'+--+-- * 'rnaaDryRun' @::@ 'Maybe' 'Bool'+--+-- * 'rnaaNetworkAclId' @::@ 'Text'+--+replaceNetworkAclAssociation :: Text -- ^ 'rnaaAssociationId'+                             -> Text -- ^ 'rnaaNetworkAclId'+                             -> ReplaceNetworkAclAssociation+replaceNetworkAclAssociation p1 p2 = ReplaceNetworkAclAssociation+    { _rnaaAssociationId = p1+    , _rnaaNetworkAclId  = p2+    , _rnaaDryRun        = Nothing+    }++-- | The ID of the current association between the original network ACL and+-- the subnet.+rnaaAssociationId :: Lens' ReplaceNetworkAclAssociation Text+rnaaAssociationId =+    lens _rnaaAssociationId (\s a -> s { _rnaaAssociationId = a })++rnaaDryRun :: Lens' ReplaceNetworkAclAssociation (Maybe Bool)+rnaaDryRun = lens _rnaaDryRun (\s a -> s { _rnaaDryRun = a })++-- | The ID of the new network ACL to associate with the subnet.+rnaaNetworkAclId :: Lens' ReplaceNetworkAclAssociation Text+rnaaNetworkAclId = lens _rnaaNetworkAclId (\s a -> s { _rnaaNetworkAclId = a })++newtype ReplaceNetworkAclAssociationResponse = ReplaceNetworkAclAssociationResponse+    { _rnaarNewAssociationId :: Maybe Text+    } deriving (Eq, Ord, Show, Monoid)++-- | 'ReplaceNetworkAclAssociationResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'rnaarNewAssociationId' @::@ 'Maybe' 'Text'+--+replaceNetworkAclAssociationResponse :: ReplaceNetworkAclAssociationResponse+replaceNetworkAclAssociationResponse = ReplaceNetworkAclAssociationResponse+    { _rnaarNewAssociationId = Nothing+    }++-- | The ID of the new association.+rnaarNewAssociationId :: Lens' ReplaceNetworkAclAssociationResponse (Maybe Text)+rnaarNewAssociationId =+    lens _rnaarNewAssociationId (\s a -> s { _rnaarNewAssociationId = a })++instance ToPath ReplaceNetworkAclAssociation where+    toPath = const "/"++instance ToQuery ReplaceNetworkAclAssociation where+    toQuery ReplaceNetworkAclAssociation{..} = mconcat+        [ "associationId" =? _rnaaAssociationId+        , "dryRun"        =? _rnaaDryRun+        , "networkAclId"  =? _rnaaNetworkAclId+        ]++instance ToHeaders ReplaceNetworkAclAssociation++instance AWSRequest ReplaceNetworkAclAssociation where+    type Sv ReplaceNetworkAclAssociation = EC2+    type Rs ReplaceNetworkAclAssociation = ReplaceNetworkAclAssociationResponse++    request  = post "ReplaceNetworkAclAssociation"+    response = xmlResponse++instance FromXML ReplaceNetworkAclAssociationResponse where+    parseXML x = ReplaceNetworkAclAssociationResponse+        <$> x .@? "newAssociationId"
+ gen/Network/AWS/EC2/ReplaceNetworkAclEntry.hs view
@@ -0,0 +1,177 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.ReplaceNetworkAclEntry+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Replaces an entry (rule) in a network ACL. For more information about+-- network ACLs, see Network ACLs in the Amazon Virtual Private Cloud User+-- Guide.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-ReplaceNetworkAclEntry.html>+module Network.AWS.EC2.ReplaceNetworkAclEntry+    (+    -- * Request+      ReplaceNetworkAclEntry+    -- ** Request constructor+    , replaceNetworkAclEntry+    -- ** Request lenses+    , rnaeCidrBlock+    , rnaeDryRun+    , rnaeEgress+    , rnaeIcmpTypeCode+    , rnaeNetworkAclId+    , rnaePortRange+    , rnaeProtocol+    , rnaeRuleAction+    , rnaeRuleNumber++    -- * Response+    , ReplaceNetworkAclEntryResponse+    -- ** Response constructor+    , replaceNetworkAclEntryResponse+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data ReplaceNetworkAclEntry = ReplaceNetworkAclEntry+    { _rnaeCidrBlock    :: Text+    , _rnaeDryRun       :: Maybe Bool+    , _rnaeEgress       :: Bool+    , _rnaeIcmpTypeCode :: Maybe IcmpTypeCode+    , _rnaeNetworkAclId :: Text+    , _rnaePortRange    :: Maybe PortRange+    , _rnaeProtocol     :: Text+    , _rnaeRuleAction   :: Text+    , _rnaeRuleNumber   :: Int+    } deriving (Eq, Show)++-- | 'ReplaceNetworkAclEntry' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'rnaeCidrBlock' @::@ 'Text'+--+-- * 'rnaeDryRun' @::@ 'Maybe' 'Bool'+--+-- * 'rnaeEgress' @::@ 'Bool'+--+-- * 'rnaeIcmpTypeCode' @::@ 'Maybe' 'IcmpTypeCode'+--+-- * 'rnaeNetworkAclId' @::@ 'Text'+--+-- * 'rnaePortRange' @::@ 'Maybe' 'PortRange'+--+-- * 'rnaeProtocol' @::@ 'Text'+--+-- * 'rnaeRuleAction' @::@ 'Text'+--+-- * 'rnaeRuleNumber' @::@ 'Int'+--+replaceNetworkAclEntry :: Text -- ^ 'rnaeNetworkAclId'+                       -> Int -- ^ 'rnaeRuleNumber'+                       -> Text -- ^ 'rnaeProtocol'+                       -> Text -- ^ 'rnaeRuleAction'+                       -> Bool -- ^ 'rnaeEgress'+                       -> Text -- ^ 'rnaeCidrBlock'+                       -> ReplaceNetworkAclEntry+replaceNetworkAclEntry p1 p2 p3 p4 p5 p6 = ReplaceNetworkAclEntry+    { _rnaeNetworkAclId = p1+    , _rnaeRuleNumber   = p2+    , _rnaeProtocol     = p3+    , _rnaeRuleAction   = p4+    , _rnaeEgress       = p5+    , _rnaeCidrBlock    = p6+    , _rnaeDryRun       = Nothing+    , _rnaeIcmpTypeCode = Nothing+    , _rnaePortRange    = Nothing+    }++-- | The network range to allow or deny, in CIDR notation.+rnaeCidrBlock :: Lens' ReplaceNetworkAclEntry Text+rnaeCidrBlock = lens _rnaeCidrBlock (\s a -> s { _rnaeCidrBlock = a })++rnaeDryRun :: Lens' ReplaceNetworkAclEntry (Maybe Bool)+rnaeDryRun = lens _rnaeDryRun (\s a -> s { _rnaeDryRun = a })++-- | Indicates whether to replace the egress rule. Default: If no value is+-- specified, we replace the ingress rule.+rnaeEgress :: Lens' ReplaceNetworkAclEntry Bool+rnaeEgress = lens _rnaeEgress (\s a -> s { _rnaeEgress = a })++-- | ICMP protocol: The ICMP type and code. Required if specifying 1 (ICMP)+-- for the protocol.+rnaeIcmpTypeCode :: Lens' ReplaceNetworkAclEntry (Maybe IcmpTypeCode)+rnaeIcmpTypeCode = lens _rnaeIcmpTypeCode (\s a -> s { _rnaeIcmpTypeCode = a })++-- | The ID of the ACL.+rnaeNetworkAclId :: Lens' ReplaceNetworkAclEntry Text+rnaeNetworkAclId = lens _rnaeNetworkAclId (\s a -> s { _rnaeNetworkAclId = a })++-- | TCP or UDP protocols: The range of ports the rule applies to. Required if+-- specifying 6 (TCP) or 17 (UDP) for the protocol.+rnaePortRange :: Lens' ReplaceNetworkAclEntry (Maybe PortRange)+rnaePortRange = lens _rnaePortRange (\s a -> s { _rnaePortRange = a })++-- | The IP protocol. You can specify all or -1 to mean all protocols.+rnaeProtocol :: Lens' ReplaceNetworkAclEntry Text+rnaeProtocol = lens _rnaeProtocol (\s a -> s { _rnaeProtocol = a })++-- | Indicates whether to allow or deny the traffic that matches the rule.+rnaeRuleAction :: Lens' ReplaceNetworkAclEntry Text+rnaeRuleAction = lens _rnaeRuleAction (\s a -> s { _rnaeRuleAction = a })++-- | The rule number of the entry to replace.+rnaeRuleNumber :: Lens' ReplaceNetworkAclEntry Int+rnaeRuleNumber = lens _rnaeRuleNumber (\s a -> s { _rnaeRuleNumber = a })++data ReplaceNetworkAclEntryResponse = ReplaceNetworkAclEntryResponse+    deriving (Eq, Ord, Show, Generic)++-- | 'ReplaceNetworkAclEntryResponse' constructor.+replaceNetworkAclEntryResponse :: ReplaceNetworkAclEntryResponse+replaceNetworkAclEntryResponse = ReplaceNetworkAclEntryResponse++instance ToPath ReplaceNetworkAclEntry where+    toPath = const "/"++instance ToQuery ReplaceNetworkAclEntry where+    toQuery ReplaceNetworkAclEntry{..} = mconcat+        [ "cidrBlock"    =? _rnaeCidrBlock+        , "dryRun"       =? _rnaeDryRun+        , "egress"       =? _rnaeEgress+        , "Icmp"         =? _rnaeIcmpTypeCode+        , "networkAclId" =? _rnaeNetworkAclId+        , "portRange"    =? _rnaePortRange+        , "protocol"     =? _rnaeProtocol+        , "ruleAction"   =? _rnaeRuleAction+        , "ruleNumber"   =? _rnaeRuleNumber+        ]++instance ToHeaders ReplaceNetworkAclEntry++instance AWSRequest ReplaceNetworkAclEntry where+    type Sv ReplaceNetworkAclEntry = EC2+    type Rs ReplaceNetworkAclEntry = ReplaceNetworkAclEntryResponse++    request  = post "ReplaceNetworkAclEntry"+    response = nullResponse ReplaceNetworkAclEntryResponse
+ gen/Network/AWS/EC2/ReplaceRoute.hs view
@@ -0,0 +1,157 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.ReplaceRoute+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Replaces an existing route within a route table in a VPC. You must provide+-- only one of the following: Internet gateway or virtual private gateway, NAT+-- instance, VPC peering connection, or network interface. For more+-- information about route tables, see Route Tables in the Amazon Virtual+-- Private Cloud User Guide.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-ReplaceRoute.html>+module Network.AWS.EC2.ReplaceRoute+    (+    -- * Request+      ReplaceRoute+    -- ** Request constructor+    , replaceRoute+    -- ** Request lenses+    , rrDestinationCidrBlock+    , rrDryRun+    , rrGatewayId+    , rrInstanceId+    , rrNetworkInterfaceId+    , rrRouteTableId+    , rrVpcPeeringConnectionId++    -- * Response+    , ReplaceRouteResponse+    -- ** Response constructor+    , replaceRouteResponse+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data ReplaceRoute = ReplaceRoute+    { _rrDestinationCidrBlock   :: Text+    , _rrDryRun                 :: Maybe Bool+    , _rrGatewayId              :: Maybe Text+    , _rrInstanceId             :: Maybe Text+    , _rrNetworkInterfaceId     :: Maybe Text+    , _rrRouteTableId           :: Text+    , _rrVpcPeeringConnectionId :: Maybe Text+    } deriving (Eq, Ord, Show)++-- | 'ReplaceRoute' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'rrDestinationCidrBlock' @::@ 'Text'+--+-- * 'rrDryRun' @::@ 'Maybe' 'Bool'+--+-- * 'rrGatewayId' @::@ 'Maybe' 'Text'+--+-- * 'rrInstanceId' @::@ 'Maybe' 'Text'+--+-- * 'rrNetworkInterfaceId' @::@ 'Maybe' 'Text'+--+-- * 'rrRouteTableId' @::@ 'Text'+--+-- * 'rrVpcPeeringConnectionId' @::@ 'Maybe' 'Text'+--+replaceRoute :: Text -- ^ 'rrRouteTableId'+             -> Text -- ^ 'rrDestinationCidrBlock'+             -> ReplaceRoute+replaceRoute p1 p2 = ReplaceRoute+    { _rrRouteTableId           = p1+    , _rrDestinationCidrBlock   = p2+    , _rrDryRun                 = Nothing+    , _rrGatewayId              = Nothing+    , _rrInstanceId             = Nothing+    , _rrNetworkInterfaceId     = Nothing+    , _rrVpcPeeringConnectionId = Nothing+    }++-- | The CIDR address block used for the destination match. The value you+-- provide must match the CIDR of an existing route in the table.+rrDestinationCidrBlock :: Lens' ReplaceRoute Text+rrDestinationCidrBlock =+    lens _rrDestinationCidrBlock (\s a -> s { _rrDestinationCidrBlock = a })++rrDryRun :: Lens' ReplaceRoute (Maybe Bool)+rrDryRun = lens _rrDryRun (\s a -> s { _rrDryRun = a })++-- | The ID of an Internet gateway or virtual private gateway.+rrGatewayId :: Lens' ReplaceRoute (Maybe Text)+rrGatewayId = lens _rrGatewayId (\s a -> s { _rrGatewayId = a })++-- | The ID of a NAT instance in your VPC.+rrInstanceId :: Lens' ReplaceRoute (Maybe Text)+rrInstanceId = lens _rrInstanceId (\s a -> s { _rrInstanceId = a })++-- | The ID of a network interface.+rrNetworkInterfaceId :: Lens' ReplaceRoute (Maybe Text)+rrNetworkInterfaceId =+    lens _rrNetworkInterfaceId (\s a -> s { _rrNetworkInterfaceId = a })++-- | The ID of the route table.+rrRouteTableId :: Lens' ReplaceRoute Text+rrRouteTableId = lens _rrRouteTableId (\s a -> s { _rrRouteTableId = a })++-- | The ID of a VPC peering connection.+rrVpcPeeringConnectionId :: Lens' ReplaceRoute (Maybe Text)+rrVpcPeeringConnectionId =+    lens _rrVpcPeeringConnectionId+        (\s a -> s { _rrVpcPeeringConnectionId = a })++data ReplaceRouteResponse = ReplaceRouteResponse+    deriving (Eq, Ord, Show, Generic)++-- | 'ReplaceRouteResponse' constructor.+replaceRouteResponse :: ReplaceRouteResponse+replaceRouteResponse = ReplaceRouteResponse++instance ToPath ReplaceRoute where+    toPath = const "/"++instance ToQuery ReplaceRoute where+    toQuery ReplaceRoute{..} = mconcat+        [ "destinationCidrBlock"   =? _rrDestinationCidrBlock+        , "dryRun"                 =? _rrDryRun+        , "gatewayId"              =? _rrGatewayId+        , "instanceId"             =? _rrInstanceId+        , "networkInterfaceId"     =? _rrNetworkInterfaceId+        , "routeTableId"           =? _rrRouteTableId+        , "vpcPeeringConnectionId" =? _rrVpcPeeringConnectionId+        ]++instance ToHeaders ReplaceRoute++instance AWSRequest ReplaceRoute where+    type Sv ReplaceRoute = EC2+    type Rs ReplaceRoute = ReplaceRouteResponse++    request  = post "ReplaceRoute"+    response = nullResponse ReplaceRouteResponse
+ gen/Network/AWS/EC2/ReplaceRouteTableAssociation.hs view
@@ -0,0 +1,134 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.ReplaceRouteTableAssociation+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Changes the route table associated with a given subnet in a VPC. After the+-- operation completes, the subnet uses the routes in the new route table it's+-- associated with. For more information about route tables, see Route Tables+-- in the Amazon Virtual Private Cloud User Guide. You can also use+-- ReplaceRouteTableAssociation to change which table is the main route table+-- in the VPC. You just specify the main route table's association ID and the+-- route table to be the new main route table.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-ReplaceRouteTableAssociation.html>+module Network.AWS.EC2.ReplaceRouteTableAssociation+    (+    -- * Request+      ReplaceRouteTableAssociation+    -- ** Request constructor+    , replaceRouteTableAssociation+    -- ** Request lenses+    , rrtaAssociationId+    , rrtaDryRun+    , rrtaRouteTableId++    -- * Response+    , ReplaceRouteTableAssociationResponse+    -- ** Response constructor+    , replaceRouteTableAssociationResponse+    -- ** Response lenses+    , rrtarNewAssociationId+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data ReplaceRouteTableAssociation = ReplaceRouteTableAssociation+    { _rrtaAssociationId :: Text+    , _rrtaDryRun        :: Maybe Bool+    , _rrtaRouteTableId  :: Text+    } deriving (Eq, Ord, Show)++-- | 'ReplaceRouteTableAssociation' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'rrtaAssociationId' @::@ 'Text'+--+-- * 'rrtaDryRun' @::@ 'Maybe' 'Bool'+--+-- * 'rrtaRouteTableId' @::@ 'Text'+--+replaceRouteTableAssociation :: Text -- ^ 'rrtaAssociationId'+                             -> Text -- ^ 'rrtaRouteTableId'+                             -> ReplaceRouteTableAssociation+replaceRouteTableAssociation p1 p2 = ReplaceRouteTableAssociation+    { _rrtaAssociationId = p1+    , _rrtaRouteTableId  = p2+    , _rrtaDryRun        = Nothing+    }++-- | The association ID.+rrtaAssociationId :: Lens' ReplaceRouteTableAssociation Text+rrtaAssociationId =+    lens _rrtaAssociationId (\s a -> s { _rrtaAssociationId = a })++rrtaDryRun :: Lens' ReplaceRouteTableAssociation (Maybe Bool)+rrtaDryRun = lens _rrtaDryRun (\s a -> s { _rrtaDryRun = a })++-- | The ID of the new route table to associate with the subnet.+rrtaRouteTableId :: Lens' ReplaceRouteTableAssociation Text+rrtaRouteTableId = lens _rrtaRouteTableId (\s a -> s { _rrtaRouteTableId = a })++newtype ReplaceRouteTableAssociationResponse = ReplaceRouteTableAssociationResponse+    { _rrtarNewAssociationId :: Maybe Text+    } deriving (Eq, Ord, Show, Monoid)++-- | 'ReplaceRouteTableAssociationResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'rrtarNewAssociationId' @::@ 'Maybe' 'Text'+--+replaceRouteTableAssociationResponse :: ReplaceRouteTableAssociationResponse+replaceRouteTableAssociationResponse = ReplaceRouteTableAssociationResponse+    { _rrtarNewAssociationId = Nothing+    }++-- | The ID of the new association.+rrtarNewAssociationId :: Lens' ReplaceRouteTableAssociationResponse (Maybe Text)+rrtarNewAssociationId =+    lens _rrtarNewAssociationId (\s a -> s { _rrtarNewAssociationId = a })++instance ToPath ReplaceRouteTableAssociation where+    toPath = const "/"++instance ToQuery ReplaceRouteTableAssociation where+    toQuery ReplaceRouteTableAssociation{..} = mconcat+        [ "associationId" =? _rrtaAssociationId+        , "dryRun"        =? _rrtaDryRun+        , "routeTableId"  =? _rrtaRouteTableId+        ]++instance ToHeaders ReplaceRouteTableAssociation++instance AWSRequest ReplaceRouteTableAssociation where+    type Sv ReplaceRouteTableAssociation = EC2+    type Rs ReplaceRouteTableAssociation = ReplaceRouteTableAssociationResponse++    request  = post "ReplaceRouteTableAssociation"+    response = xmlResponse++instance FromXML ReplaceRouteTableAssociationResponse where+    parseXML x = ReplaceRouteTableAssociationResponse+        <$> x .@? "newAssociationId"
+ gen/Network/AWS/EC2/ReportInstanceStatus.hs view
@@ -0,0 +1,164 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.ReportInstanceStatus+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Submits feedback about the status of an instance. The instance must be in+-- the running state. If your experience with the instance differs from the+-- instance status returned by DescribeInstanceStatus, use+-- ReportInstanceStatus to report your experience with the instance. Amazon+-- EC2 collects this information to improve the accuracy of status checks. Use+-- of this action does not change the value returned by+-- DescribeInstanceStatus.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-ReportInstanceStatus.html>+module Network.AWS.EC2.ReportInstanceStatus+    (+    -- * Request+      ReportInstanceStatus+    -- ** Request constructor+    , reportInstanceStatus+    -- ** Request lenses+    , risDescription+    , risDryRun+    , risEndTime+    , risInstances+    , risReasonCodes+    , risStartTime+    , risStatus++    -- * Response+    , ReportInstanceStatusResponse+    -- ** Response constructor+    , reportInstanceStatusResponse+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data ReportInstanceStatus = ReportInstanceStatus+    { _risDescription :: Maybe Text+    , _risDryRun      :: Maybe Bool+    , _risEndTime     :: Maybe RFC822+    , _risInstances   :: List "InstanceId" Text+    , _risReasonCodes :: List "item" Text+    , _risStartTime   :: Maybe RFC822+    , _risStatus      :: Text+    } deriving (Eq, Ord, Show)++-- | 'ReportInstanceStatus' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'risDescription' @::@ 'Maybe' 'Text'+--+-- * 'risDryRun' @::@ 'Maybe' 'Bool'+--+-- * 'risEndTime' @::@ 'Maybe' 'UTCTime'+--+-- * 'risInstances' @::@ ['Text']+--+-- * 'risReasonCodes' @::@ ['Text']+--+-- * 'risStartTime' @::@ 'Maybe' 'UTCTime'+--+-- * 'risStatus' @::@ 'Text'+--+reportInstanceStatus :: Text -- ^ 'risStatus'+                     -> ReportInstanceStatus+reportInstanceStatus p1 = ReportInstanceStatus+    { _risStatus      = p1+    , _risDryRun      = Nothing+    , _risInstances   = mempty+    , _risStartTime   = Nothing+    , _risEndTime     = Nothing+    , _risReasonCodes = mempty+    , _risDescription = Nothing+    }++-- | Descriptive text about the health state of your instance.+risDescription :: Lens' ReportInstanceStatus (Maybe Text)+risDescription = lens _risDescription (\s a -> s { _risDescription = a })++risDryRun :: Lens' ReportInstanceStatus (Maybe Bool)+risDryRun = lens _risDryRun (\s a -> s { _risDryRun = a })++-- | The time at which the reported instance health state ended.+risEndTime :: Lens' ReportInstanceStatus (Maybe UTCTime)+risEndTime = lens _risEndTime (\s a -> s { _risEndTime = a }) . mapping _Time++-- | One or more instances.+risInstances :: Lens' ReportInstanceStatus [Text]+risInstances = lens _risInstances (\s a -> s { _risInstances = a }) . _List++-- | One or more reason codes that describes the health state of your+-- instance. instance-stuck-in-state: My instance is stuck in a state.+-- unresponsive: My instance is unresponsive. not-accepting-credentials: My+-- instance is not accepting my credentials. password-not-available: A+-- password is not available for my instance. performance-network: My+-- instance is experiencing performance problems which I believe are network+-- related. performance-instance-store: My instance is experiencing+-- performance problems which I believe are related to the instance stores.+-- performance-ebs-volume: My instance is experiencing performance problems+-- which I believe are related to an EBS volume. performance-other: My+-- instance is experiencing performance problems. other: [explain using the+-- description parameter].+risReasonCodes :: Lens' ReportInstanceStatus [Text]+risReasonCodes = lens _risReasonCodes (\s a -> s { _risReasonCodes = a }) . _List++-- | The time at which the reported instance health state began.+risStartTime :: Lens' ReportInstanceStatus (Maybe UTCTime)+risStartTime = lens _risStartTime (\s a -> s { _risStartTime = a }) . mapping _Time++-- | The status of all instances listed.+risStatus :: Lens' ReportInstanceStatus Text+risStatus = lens _risStatus (\s a -> s { _risStatus = a })++data ReportInstanceStatusResponse = ReportInstanceStatusResponse+    deriving (Eq, Ord, Show, Generic)++-- | 'ReportInstanceStatusResponse' constructor.+reportInstanceStatusResponse :: ReportInstanceStatusResponse+reportInstanceStatusResponse = ReportInstanceStatusResponse++instance ToPath ReportInstanceStatus where+    toPath = const "/"++instance ToQuery ReportInstanceStatus where+    toQuery ReportInstanceStatus{..} = mconcat+        [ "description" =? _risDescription+        , "dryRun"      =? _risDryRun+        , "endTime"     =? _risEndTime+        , "instanceId"  =? _risInstances+        , "reasonCode"  =? _risReasonCodes+        , "startTime"   =? _risStartTime+        , "status"      =? _risStatus+        ]++instance ToHeaders ReportInstanceStatus++instance AWSRequest ReportInstanceStatus where+    type Sv ReportInstanceStatus = EC2+    type Rs ReportInstanceStatus = ReportInstanceStatusResponse++    request  = post "ReportInstanceStatus"+    response = nullResponse ReportInstanceStatusResponse
+ gen/Network/AWS/EC2/RequestSpotInstances.hs view
@@ -0,0 +1,230 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.RequestSpotInstances+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Creates a Spot Instance request. Spot Instances are instances that Amazon+-- EC2 starts on your behalf when the maximum price that you specify exceeds+-- the current Spot Price. Amazon EC2 periodically sets the Spot Price based+-- on available Spot Instance capacity and current Spot Instance requests. For+-- more information about Spot Instances, see Spot Instances in the Amazon+-- Elastic Compute Cloud User Guide. Users must be subscribed to the required+-- product to run an instance with AWS Marketplace product codes.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-RequestSpotInstances.html>+module Network.AWS.EC2.RequestSpotInstances+    (+    -- * Request+      RequestSpotInstances+    -- ** Request constructor+    , requestSpotInstances+    -- ** Request lenses+    , rsiAvailabilityZoneGroup+    , rsiDryRun+    , rsiInstanceCount+    , rsiLaunchGroup+    , rsiLaunchSpecification+    , rsiSpotPrice+    , rsiType+    , rsiValidFrom+    , rsiValidUntil++    -- * Response+    , RequestSpotInstancesResponse+    -- ** Response constructor+    , requestSpotInstancesResponse+    -- ** Response lenses+    , rsirSpotInstanceRequests+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data RequestSpotInstances = RequestSpotInstances+    { _rsiAvailabilityZoneGroup :: Maybe Text+    , _rsiDryRun                :: Maybe Bool+    , _rsiInstanceCount         :: Maybe Int+    , _rsiLaunchGroup           :: Maybe Text+    , _rsiLaunchSpecification   :: Maybe RequestSpotLaunchSpecification+    , _rsiSpotPrice             :: Text+    , _rsiType                  :: Maybe Text+    , _rsiValidFrom             :: Maybe RFC822+    , _rsiValidUntil            :: Maybe RFC822+    } deriving (Eq, Show)++-- | 'RequestSpotInstances' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'rsiAvailabilityZoneGroup' @::@ 'Maybe' 'Text'+--+-- * 'rsiDryRun' @::@ 'Maybe' 'Bool'+--+-- * 'rsiInstanceCount' @::@ 'Maybe' 'Int'+--+-- * 'rsiLaunchGroup' @::@ 'Maybe' 'Text'+--+-- * 'rsiLaunchSpecification' @::@ 'Maybe' 'RequestSpotLaunchSpecification'+--+-- * 'rsiSpotPrice' @::@ 'Text'+--+-- * 'rsiType' @::@ 'Maybe' 'Text'+--+-- * 'rsiValidFrom' @::@ 'Maybe' 'UTCTime'+--+-- * 'rsiValidUntil' @::@ 'Maybe' 'UTCTime'+--+requestSpotInstances :: Text -- ^ 'rsiSpotPrice'+                     -> RequestSpotInstances+requestSpotInstances p1 = RequestSpotInstances+    { _rsiSpotPrice             = p1+    , _rsiDryRun                = Nothing+    , _rsiInstanceCount         = Nothing+    , _rsiType                  = Nothing+    , _rsiValidFrom             = Nothing+    , _rsiValidUntil            = Nothing+    , _rsiLaunchGroup           = Nothing+    , _rsiAvailabilityZoneGroup = Nothing+    , _rsiLaunchSpecification   = Nothing+    }++-- | The user-specified name for a logical grouping of bids. When you specify+-- an Availability Zone group in a Spot Instance request, all Spot Instances+-- in the request are launched in the same Availability Zone. Instance+-- proximity is maintained with this parameter, but the choice of+-- Availability Zone is not. The group applies only to bids for Spot+-- Instances of the same instance type. Any additional Spot Instance+-- requests that are specified with the same Availability Zone group name+-- are launched in that same Availability Zone, as long as at least one+-- instance from the group is still active. If there is no active instance+-- running in the Availability Zone group that you specify for a new Spot+-- Instance request (all instances are terminated, the bid is expired, or+-- the bid falls below current market), then Amazon EC2 launches the+-- instance in any Availability Zone where the constraint can be met.+-- Consequently, the subsequent set of Spot Instances could be placed in a+-- different zone from the original request, even if you specified the same+-- Availability Zone group. Default: Instances are launched in any available+-- Availability Zone.+rsiAvailabilityZoneGroup :: Lens' RequestSpotInstances (Maybe Text)+rsiAvailabilityZoneGroup =+    lens _rsiAvailabilityZoneGroup+        (\s a -> s { _rsiAvailabilityZoneGroup = a })++rsiDryRun :: Lens' RequestSpotInstances (Maybe Bool)+rsiDryRun = lens _rsiDryRun (\s a -> s { _rsiDryRun = a })++-- | The maximum number of Spot Instances to launch. Default: 1.+rsiInstanceCount :: Lens' RequestSpotInstances (Maybe Int)+rsiInstanceCount = lens _rsiInstanceCount (\s a -> s { _rsiInstanceCount = a })++-- | The instance launch group. Launch groups are Spot Instances that launch+-- together and terminate together. Default: Instances are launched and+-- terminated individually.+rsiLaunchGroup :: Lens' RequestSpotInstances (Maybe Text)+rsiLaunchGroup = lens _rsiLaunchGroup (\s a -> s { _rsiLaunchGroup = a })++rsiLaunchSpecification :: Lens' RequestSpotInstances (Maybe RequestSpotLaunchSpecification)+rsiLaunchSpecification =+    lens _rsiLaunchSpecification (\s a -> s { _rsiLaunchSpecification = a })++-- | The maximum hourly price for any Spot Instance launched to fulfill the+-- request.+rsiSpotPrice :: Lens' RequestSpotInstances Text+rsiSpotPrice = lens _rsiSpotPrice (\s a -> s { _rsiSpotPrice = a })++-- | The Spot Instance request type. Default: one-time.+rsiType :: Lens' RequestSpotInstances (Maybe Text)+rsiType = lens _rsiType (\s a -> s { _rsiType = a })++-- | The start date of the request. If this is a one-time request, the request+-- becomes active at this date and time and remains active until all+-- instances launch, the request expires, or the request is canceled. If the+-- request is persistent, the request becomes active at this date and time+-- and remains active until it expires or is canceled. Default: The request+-- is effective indefinitely.+rsiValidFrom :: Lens' RequestSpotInstances (Maybe UTCTime)+rsiValidFrom = lens _rsiValidFrom (\s a -> s { _rsiValidFrom = a }) . mapping _Time++-- | The end date of the request. If this is a one-time request, the request+-- remains active until all instances launch, the request is canceled, or+-- this date is reached. If the request is persistent, it remains active+-- until it is canceled or this date and time is reached. Default: The+-- request is effective indefinitely.+rsiValidUntil :: Lens' RequestSpotInstances (Maybe UTCTime)+rsiValidUntil = lens _rsiValidUntil (\s a -> s { _rsiValidUntil = a }) . mapping _Time++newtype RequestSpotInstancesResponse = RequestSpotInstancesResponse+    { _rsirSpotInstanceRequests :: List "item" SpotInstanceRequest+    } deriving (Eq, Show, Monoid, Semigroup)++instance GHC.Exts.IsList RequestSpotInstancesResponse where+    type Item RequestSpotInstancesResponse = SpotInstanceRequest++    fromList = RequestSpotInstancesResponse . GHC.Exts.fromList+    toList   = GHC.Exts.toList . _rsirSpotInstanceRequests++-- | 'RequestSpotInstancesResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'rsirSpotInstanceRequests' @::@ ['SpotInstanceRequest']+--+requestSpotInstancesResponse :: RequestSpotInstancesResponse+requestSpotInstancesResponse = RequestSpotInstancesResponse+    { _rsirSpotInstanceRequests = mempty+    }++-- | Information about the Spot Instance request.+rsirSpotInstanceRequests :: Lens' RequestSpotInstancesResponse [SpotInstanceRequest]+rsirSpotInstanceRequests =+    lens _rsirSpotInstanceRequests+        (\s a -> s { _rsirSpotInstanceRequests = a })+            . _List++instance ToPath RequestSpotInstances where+    toPath = const "/"++instance ToQuery RequestSpotInstances where+    toQuery RequestSpotInstances{..} = mconcat+        [ "availabilityZoneGroup" =? _rsiAvailabilityZoneGroup+        , "dryRun"                =? _rsiDryRun+        , "instanceCount"         =? _rsiInstanceCount+        , "launchGroup"           =? _rsiLaunchGroup+        , "LaunchSpecification"   =? _rsiLaunchSpecification+        , "spotPrice"             =? _rsiSpotPrice+        , "type"                  =? _rsiType+        , "validFrom"             =? _rsiValidFrom+        , "validUntil"            =? _rsiValidUntil+        ]++instance ToHeaders RequestSpotInstances++instance AWSRequest RequestSpotInstances where+    type Sv RequestSpotInstances = EC2+    type Rs RequestSpotInstances = RequestSpotInstancesResponse++    request  = post "RequestSpotInstances"+    response = xmlResponse++instance FromXML RequestSpotInstancesResponse where+    parseXML x = RequestSpotInstancesResponse+        <$> x .@  "spotInstanceRequestSet"
+ gen/Network/AWS/EC2/ResetImageAttribute.hs view
@@ -0,0 +1,109 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.ResetImageAttribute+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Resets an attribute of an AMI to its default value.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-ResetImageAttribute.html>+module Network.AWS.EC2.ResetImageAttribute+    (+    -- * Request+      ResetImageAttribute+    -- ** Request constructor+    , resetImageAttribute+    -- ** Request lenses+    , ria1Attribute+    , ria1DryRun+    , ria1ImageId++    -- * Response+    , ResetImageAttributeResponse+    -- ** Response constructor+    , resetImageAttributeResponse+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data ResetImageAttribute = ResetImageAttribute+    { _ria1Attribute :: Text+    , _ria1DryRun    :: Maybe Bool+    , _ria1ImageId   :: Text+    } deriving (Eq, Ord, Show)++-- | 'ResetImageAttribute' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'ria1Attribute' @::@ 'Text'+--+-- * 'ria1DryRun' @::@ 'Maybe' 'Bool'+--+-- * 'ria1ImageId' @::@ 'Text'+--+resetImageAttribute :: Text -- ^ 'ria1ImageId'+                    -> Text -- ^ 'ria1Attribute'+                    -> ResetImageAttribute+resetImageAttribute p1 p2 = ResetImageAttribute+    { _ria1ImageId   = p1+    , _ria1Attribute = p2+    , _ria1DryRun    = Nothing+    }++-- | The attribute to reset (currently you can only reset the launch+-- permission attribute).+ria1Attribute :: Lens' ResetImageAttribute Text+ria1Attribute = lens _ria1Attribute (\s a -> s { _ria1Attribute = a })++ria1DryRun :: Lens' ResetImageAttribute (Maybe Bool)+ria1DryRun = lens _ria1DryRun (\s a -> s { _ria1DryRun = a })++-- | The ID of the AMI.+ria1ImageId :: Lens' ResetImageAttribute Text+ria1ImageId = lens _ria1ImageId (\s a -> s { _ria1ImageId = a })++data ResetImageAttributeResponse = ResetImageAttributeResponse+    deriving (Eq, Ord, Show, Generic)++-- | 'ResetImageAttributeResponse' constructor.+resetImageAttributeResponse :: ResetImageAttributeResponse+resetImageAttributeResponse = ResetImageAttributeResponse++instance ToPath ResetImageAttribute where+    toPath = const "/"++instance ToQuery ResetImageAttribute where+    toQuery ResetImageAttribute{..} = mconcat+        [ "Attribute" =? _ria1Attribute+        , "dryRun"    =? _ria1DryRun+        , "ImageId"   =? _ria1ImageId+        ]++instance ToHeaders ResetImageAttribute++instance AWSRequest ResetImageAttribute where+    type Sv ResetImageAttribute = EC2+    type Rs ResetImageAttribute = ResetImageAttributeResponse++    request  = post "ResetImageAttribute"+    response = nullResponse ResetImageAttributeResponse
+ gen/Network/AWS/EC2/ResetInstanceAttribute.hs view
@@ -0,0 +1,115 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.ResetInstanceAttribute+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Resets an attribute of an instance to its default value. To reset the+-- kernel or ramdisk, the instance must be in a stopped state. To reset the+-- SourceDestCheck, the instance can be either running or stopped. The+-- SourceDestCheck attribute controls whether source/destination checking is+-- enabled. The default value is true, which means checking is enabled. This+-- value must be false for a NAT instance to perform NAT. For more+-- information, see NAT Instances in the Amazon Virtual Private Cloud User+-- Guide.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-ResetInstanceAttribute.html>+module Network.AWS.EC2.ResetInstanceAttribute+    (+    -- * Request+      ResetInstanceAttribute+    -- ** Request constructor+    , resetInstanceAttribute+    -- ** Request lenses+    , riaAttribute+    , riaDryRun+    , riaInstanceId++    -- * Response+    , ResetInstanceAttributeResponse+    -- ** Response constructor+    , resetInstanceAttributeResponse+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data ResetInstanceAttribute = ResetInstanceAttribute+    { _riaAttribute  :: Text+    , _riaDryRun     :: Maybe Bool+    , _riaInstanceId :: Text+    } deriving (Eq, Ord, Show)++-- | 'ResetInstanceAttribute' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'riaAttribute' @::@ 'Text'+--+-- * 'riaDryRun' @::@ 'Maybe' 'Bool'+--+-- * 'riaInstanceId' @::@ 'Text'+--+resetInstanceAttribute :: Text -- ^ 'riaInstanceId'+                       -> Text -- ^ 'riaAttribute'+                       -> ResetInstanceAttribute+resetInstanceAttribute p1 p2 = ResetInstanceAttribute+    { _riaInstanceId = p1+    , _riaAttribute  = p2+    , _riaDryRun     = Nothing+    }++-- | The attribute to reset.+riaAttribute :: Lens' ResetInstanceAttribute Text+riaAttribute = lens _riaAttribute (\s a -> s { _riaAttribute = a })++riaDryRun :: Lens' ResetInstanceAttribute (Maybe Bool)+riaDryRun = lens _riaDryRun (\s a -> s { _riaDryRun = a })++-- | The ID of the instance.+riaInstanceId :: Lens' ResetInstanceAttribute Text+riaInstanceId = lens _riaInstanceId (\s a -> s { _riaInstanceId = a })++data ResetInstanceAttributeResponse = ResetInstanceAttributeResponse+    deriving (Eq, Ord, Show, Generic)++-- | 'ResetInstanceAttributeResponse' constructor.+resetInstanceAttributeResponse :: ResetInstanceAttributeResponse+resetInstanceAttributeResponse = ResetInstanceAttributeResponse++instance ToPath ResetInstanceAttribute where+    toPath = const "/"++instance ToQuery ResetInstanceAttribute where+    toQuery ResetInstanceAttribute{..} = mconcat+        [ "attribute"  =? _riaAttribute+        , "dryRun"     =? _riaDryRun+        , "instanceId" =? _riaInstanceId+        ]++instance ToHeaders ResetInstanceAttribute++instance AWSRequest ResetInstanceAttribute where+    type Sv ResetInstanceAttribute = EC2+    type Rs ResetInstanceAttribute = ResetInstanceAttributeResponse++    request  = post "ResetInstanceAttribute"+    response = nullResponse ResetInstanceAttributeResponse
+ gen/Network/AWS/EC2/ResetNetworkInterfaceAttribute.hs view
@@ -0,0 +1,110 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.ResetNetworkInterfaceAttribute+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Resets a network interface attribute. You can specify only one attribute at+-- a time.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-ResetNetworkInterfaceAttribute.html>+module Network.AWS.EC2.ResetNetworkInterfaceAttribute+    (+    -- * Request+      ResetNetworkInterfaceAttribute+    -- ** Request constructor+    , resetNetworkInterfaceAttribute+    -- ** Request lenses+    , rniaDryRun+    , rniaNetworkInterfaceId+    , rniaSourceDestCheck++    -- * Response+    , ResetNetworkInterfaceAttributeResponse+    -- ** Response constructor+    , resetNetworkInterfaceAttributeResponse+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data ResetNetworkInterfaceAttribute = ResetNetworkInterfaceAttribute+    { _rniaDryRun             :: Maybe Bool+    , _rniaNetworkInterfaceId :: Text+    , _rniaSourceDestCheck    :: Maybe Text+    } deriving (Eq, Ord, Show)++-- | 'ResetNetworkInterfaceAttribute' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'rniaDryRun' @::@ 'Maybe' 'Bool'+--+-- * 'rniaNetworkInterfaceId' @::@ 'Text'+--+-- * 'rniaSourceDestCheck' @::@ 'Maybe' 'Text'+--+resetNetworkInterfaceAttribute :: Text -- ^ 'rniaNetworkInterfaceId'+                               -> ResetNetworkInterfaceAttribute+resetNetworkInterfaceAttribute p1 = ResetNetworkInterfaceAttribute+    { _rniaNetworkInterfaceId = p1+    , _rniaDryRun             = Nothing+    , _rniaSourceDestCheck    = Nothing+    }++rniaDryRun :: Lens' ResetNetworkInterfaceAttribute (Maybe Bool)+rniaDryRun = lens _rniaDryRun (\s a -> s { _rniaDryRun = a })++-- | The ID of the network interface.+rniaNetworkInterfaceId :: Lens' ResetNetworkInterfaceAttribute Text+rniaNetworkInterfaceId =+    lens _rniaNetworkInterfaceId (\s a -> s { _rniaNetworkInterfaceId = a })++-- | The source/destination checking attribute. Resets the value to true.+rniaSourceDestCheck :: Lens' ResetNetworkInterfaceAttribute (Maybe Text)+rniaSourceDestCheck =+    lens _rniaSourceDestCheck (\s a -> s { _rniaSourceDestCheck = a })++data ResetNetworkInterfaceAttributeResponse = ResetNetworkInterfaceAttributeResponse+    deriving (Eq, Ord, Show, Generic)++-- | 'ResetNetworkInterfaceAttributeResponse' constructor.+resetNetworkInterfaceAttributeResponse :: ResetNetworkInterfaceAttributeResponse+resetNetworkInterfaceAttributeResponse = ResetNetworkInterfaceAttributeResponse++instance ToPath ResetNetworkInterfaceAttribute where+    toPath = const "/"++instance ToQuery ResetNetworkInterfaceAttribute where+    toQuery ResetNetworkInterfaceAttribute{..} = mconcat+        [ "dryRun"             =? _rniaDryRun+        , "networkInterfaceId" =? _rniaNetworkInterfaceId+        , "sourceDestCheck"    =? _rniaSourceDestCheck+        ]++instance ToHeaders ResetNetworkInterfaceAttribute++instance AWSRequest ResetNetworkInterfaceAttribute where+    type Sv ResetNetworkInterfaceAttribute = EC2+    type Rs ResetNetworkInterfaceAttribute = ResetNetworkInterfaceAttributeResponse++    request  = post "ResetNetworkInterfaceAttribute"+    response = nullResponse ResetNetworkInterfaceAttributeResponse
+ gen/Network/AWS/EC2/ResetSnapshotAttribute.hs view
@@ -0,0 +1,111 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.ResetSnapshotAttribute+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Resets permission settings for the specified snapshot. For more information+-- on modifying snapshot permissions, see Sharing Snapshots in the Amazon+-- Elastic Compute Cloud User Guide.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-ResetSnapshotAttribute.html>+module Network.AWS.EC2.ResetSnapshotAttribute+    (+    -- * Request+      ResetSnapshotAttribute+    -- ** Request constructor+    , resetSnapshotAttribute+    -- ** Request lenses+    , rsaAttribute+    , rsaDryRun+    , rsaSnapshotId++    -- * Response+    , ResetSnapshotAttributeResponse+    -- ** Response constructor+    , resetSnapshotAttributeResponse+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data ResetSnapshotAttribute = ResetSnapshotAttribute+    { _rsaAttribute  :: Text+    , _rsaDryRun     :: Maybe Bool+    , _rsaSnapshotId :: Text+    } deriving (Eq, Ord, Show)++-- | 'ResetSnapshotAttribute' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'rsaAttribute' @::@ 'Text'+--+-- * 'rsaDryRun' @::@ 'Maybe' 'Bool'+--+-- * 'rsaSnapshotId' @::@ 'Text'+--+resetSnapshotAttribute :: Text -- ^ 'rsaSnapshotId'+                       -> Text -- ^ 'rsaAttribute'+                       -> ResetSnapshotAttribute+resetSnapshotAttribute p1 p2 = ResetSnapshotAttribute+    { _rsaSnapshotId = p1+    , _rsaAttribute  = p2+    , _rsaDryRun     = Nothing+    }++-- | The attribute to reset (currently only the attribute for permission to+-- create volumes can be reset).+rsaAttribute :: Lens' ResetSnapshotAttribute Text+rsaAttribute = lens _rsaAttribute (\s a -> s { _rsaAttribute = a })++rsaDryRun :: Lens' ResetSnapshotAttribute (Maybe Bool)+rsaDryRun = lens _rsaDryRun (\s a -> s { _rsaDryRun = a })++-- | The ID of the snapshot.+rsaSnapshotId :: Lens' ResetSnapshotAttribute Text+rsaSnapshotId = lens _rsaSnapshotId (\s a -> s { _rsaSnapshotId = a })++data ResetSnapshotAttributeResponse = ResetSnapshotAttributeResponse+    deriving (Eq, Ord, Show, Generic)++-- | 'ResetSnapshotAttributeResponse' constructor.+resetSnapshotAttributeResponse :: ResetSnapshotAttributeResponse+resetSnapshotAttributeResponse = ResetSnapshotAttributeResponse++instance ToPath ResetSnapshotAttribute where+    toPath = const "/"++instance ToQuery ResetSnapshotAttribute where+    toQuery ResetSnapshotAttribute{..} = mconcat+        [ "Attribute"  =? _rsaAttribute+        , "dryRun"     =? _rsaDryRun+        , "SnapshotId" =? _rsaSnapshotId+        ]++instance ToHeaders ResetSnapshotAttribute++instance AWSRequest ResetSnapshotAttribute where+    type Sv ResetSnapshotAttribute = EC2+    type Rs ResetSnapshotAttribute = ResetSnapshotAttributeResponse++    request  = post "ResetSnapshotAttribute"+    response = nullResponse ResetSnapshotAttributeResponse
+ gen/Network/AWS/EC2/RevokeSecurityGroupEgress.hs view
@@ -0,0 +1,189 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.RevokeSecurityGroupEgress+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Removes one or more egress rules from a security group for EC2-VPC. The+-- values that you specify in the revoke request (for example, ports) must+-- match the existing rule's values for the rule to be revoked. Each rule+-- consists of the protocol and the CIDR range or source security group. For+-- the TCP and UDP protocols, you must also specify the destination port or+-- range of ports. For the ICMP protocol, you must also specify the ICMP type+-- and code. Rule changes are propagated to instances within the security+-- group as quickly as possible. However, a small delay might occur.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-RevokeSecurityGroupEgress.html>+module Network.AWS.EC2.RevokeSecurityGroupEgress+    (+    -- * Request+      RevokeSecurityGroupEgress+    -- ** Request constructor+    , revokeSecurityGroupEgress+    -- ** Request lenses+    , rsgeCidrIp+    , rsgeDryRun+    , rsgeFromPort+    , rsgeGroupId+    , rsgeIpPermissions+    , rsgeIpProtocol+    , rsgeSourceSecurityGroupName+    , rsgeSourceSecurityGroupOwnerId+    , rsgeToPort++    -- * Response+    , RevokeSecurityGroupEgressResponse+    -- ** Response constructor+    , revokeSecurityGroupEgressResponse+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data RevokeSecurityGroupEgress = RevokeSecurityGroupEgress+    { _rsgeCidrIp                     :: Maybe Text+    , _rsgeDryRun                     :: Maybe Bool+    , _rsgeFromPort                   :: Maybe Int+    , _rsgeGroupId                    :: Text+    , _rsgeIpPermissions              :: List "item" IpPermission+    , _rsgeIpProtocol                 :: Maybe Text+    , _rsgeSourceSecurityGroupName    :: Maybe Text+    , _rsgeSourceSecurityGroupOwnerId :: Maybe Text+    , _rsgeToPort                     :: Maybe Int+    } deriving (Eq, Show)++-- | 'RevokeSecurityGroupEgress' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'rsgeCidrIp' @::@ 'Maybe' 'Text'+--+-- * 'rsgeDryRun' @::@ 'Maybe' 'Bool'+--+-- * 'rsgeFromPort' @::@ 'Maybe' 'Int'+--+-- * 'rsgeGroupId' @::@ 'Text'+--+-- * 'rsgeIpPermissions' @::@ ['IpPermission']+--+-- * 'rsgeIpProtocol' @::@ 'Maybe' 'Text'+--+-- * 'rsgeSourceSecurityGroupName' @::@ 'Maybe' 'Text'+--+-- * 'rsgeSourceSecurityGroupOwnerId' @::@ 'Maybe' 'Text'+--+-- * 'rsgeToPort' @::@ 'Maybe' 'Int'+--+revokeSecurityGroupEgress :: Text -- ^ 'rsgeGroupId'+                          -> RevokeSecurityGroupEgress+revokeSecurityGroupEgress p1 = RevokeSecurityGroupEgress+    { _rsgeGroupId                    = p1+    , _rsgeDryRun                     = Nothing+    , _rsgeSourceSecurityGroupName    = Nothing+    , _rsgeSourceSecurityGroupOwnerId = Nothing+    , _rsgeIpProtocol                 = Nothing+    , _rsgeFromPort                   = Nothing+    , _rsgeToPort                     = Nothing+    , _rsgeCidrIp                     = Nothing+    , _rsgeIpPermissions              = mempty+    }++-- | The CIDR IP address range. You can't specify this parameter when+-- specifying a source security group.+rsgeCidrIp :: Lens' RevokeSecurityGroupEgress (Maybe Text)+rsgeCidrIp = lens _rsgeCidrIp (\s a -> s { _rsgeCidrIp = a })++rsgeDryRun :: Lens' RevokeSecurityGroupEgress (Maybe Bool)+rsgeDryRun = lens _rsgeDryRun (\s a -> s { _rsgeDryRun = a })++-- | The start of port range for the TCP and UDP protocols, or an ICMP type+-- number. For the ICMP type number, use -1 to specify all ICMP types.+rsgeFromPort :: Lens' RevokeSecurityGroupEgress (Maybe Int)+rsgeFromPort = lens _rsgeFromPort (\s a -> s { _rsgeFromPort = a })++-- | The ID of the security group.+rsgeGroupId :: Lens' RevokeSecurityGroupEgress Text+rsgeGroupId = lens _rsgeGroupId (\s a -> s { _rsgeGroupId = a })++-- | A set of IP permissions. You can't specify a destination security group+-- and a CIDR IP address range.+rsgeIpPermissions :: Lens' RevokeSecurityGroupEgress [IpPermission]+rsgeIpPermissions =+    lens _rsgeIpPermissions (\s a -> s { _rsgeIpPermissions = a })+        . _List++-- | The IP protocol name (tcp, udp, icmp) or number (see Protocol Numbers).+-- Use -1 to specify all.+rsgeIpProtocol :: Lens' RevokeSecurityGroupEgress (Maybe Text)+rsgeIpProtocol = lens _rsgeIpProtocol (\s a -> s { _rsgeIpProtocol = a })++-- | [EC2-Classic, default VPC] The name of the destination security group.+-- You can't specify a destination security group and a CIDR IP address+-- range.+rsgeSourceSecurityGroupName :: Lens' RevokeSecurityGroupEgress (Maybe Text)+rsgeSourceSecurityGroupName =+    lens _rsgeSourceSecurityGroupName+        (\s a -> s { _rsgeSourceSecurityGroupName = a })++-- | The ID of the destination security group. You can't specify a destination+-- security group and a CIDR IP address range.+rsgeSourceSecurityGroupOwnerId :: Lens' RevokeSecurityGroupEgress (Maybe Text)+rsgeSourceSecurityGroupOwnerId =+    lens _rsgeSourceSecurityGroupOwnerId+        (\s a -> s { _rsgeSourceSecurityGroupOwnerId = a })++-- | The end of port range for the TCP and UDP protocols, or an ICMP code+-- number. For the ICMP code number, use -1 to specify all ICMP codes for+-- the ICMP type.+rsgeToPort :: Lens' RevokeSecurityGroupEgress (Maybe Int)+rsgeToPort = lens _rsgeToPort (\s a -> s { _rsgeToPort = a })++data RevokeSecurityGroupEgressResponse = RevokeSecurityGroupEgressResponse+    deriving (Eq, Ord, Show, Generic)++-- | 'RevokeSecurityGroupEgressResponse' constructor.+revokeSecurityGroupEgressResponse :: RevokeSecurityGroupEgressResponse+revokeSecurityGroupEgressResponse = RevokeSecurityGroupEgressResponse++instance ToPath RevokeSecurityGroupEgress where+    toPath = const "/"++instance ToQuery RevokeSecurityGroupEgress where+    toQuery RevokeSecurityGroupEgress{..} = mconcat+        [ "cidrIp"                     =? _rsgeCidrIp+        , "dryRun"                     =? _rsgeDryRun+        , "fromPort"                   =? _rsgeFromPort+        , "groupId"                    =? _rsgeGroupId+        , "ipPermissions"              =? _rsgeIpPermissions+        , "ipProtocol"                 =? _rsgeIpProtocol+        , "sourceSecurityGroupName"    =? _rsgeSourceSecurityGroupName+        , "sourceSecurityGroupOwnerId" =? _rsgeSourceSecurityGroupOwnerId+        , "toPort"                     =? _rsgeToPort+        ]++instance ToHeaders RevokeSecurityGroupEgress++instance AWSRequest RevokeSecurityGroupEgress where+    type Sv RevokeSecurityGroupEgress = EC2+    type Rs RevokeSecurityGroupEgress = RevokeSecurityGroupEgressResponse++    request  = post "RevokeSecurityGroupEgress"+    response = nullResponse RevokeSecurityGroupEgressResponse
+ gen/Network/AWS/EC2/RevokeSecurityGroupIngress.hs view
@@ -0,0 +1,197 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.RevokeSecurityGroupIngress+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Removes one or more ingress rules from a security group. The values that+-- you specify in the revoke request (for example, ports) must match the+-- existing rule's values for the rule to be removed. Each rule consists of+-- the protocol and the CIDR range or source security group. For the TCP and+-- UDP protocols, you must also specify the destination port or range of+-- ports. For the ICMP protocol, you must also specify the ICMP type and code.+-- Rule changes are propagated to instances within the security group as+-- quickly as possible. However, a small delay might occur.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-RevokeSecurityGroupIngress.html>+module Network.AWS.EC2.RevokeSecurityGroupIngress+    (+    -- * Request+      RevokeSecurityGroupIngress+    -- ** Request constructor+    , revokeSecurityGroupIngress+    -- ** Request lenses+    , rsgiCidrIp+    , rsgiDryRun+    , rsgiFromPort+    , rsgiGroupId+    , rsgiGroupName+    , rsgiIpPermissions+    , rsgiIpProtocol+    , rsgiSourceSecurityGroupName+    , rsgiSourceSecurityGroupOwnerId+    , rsgiToPort++    -- * Response+    , RevokeSecurityGroupIngressResponse+    -- ** Response constructor+    , revokeSecurityGroupIngressResponse+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data RevokeSecurityGroupIngress = RevokeSecurityGroupIngress+    { _rsgiCidrIp                     :: Maybe Text+    , _rsgiDryRun                     :: Maybe Bool+    , _rsgiFromPort                   :: Maybe Int+    , _rsgiGroupId                    :: Maybe Text+    , _rsgiGroupName                  :: Maybe Text+    , _rsgiIpPermissions              :: List "item" IpPermission+    , _rsgiIpProtocol                 :: Maybe Text+    , _rsgiSourceSecurityGroupName    :: Maybe Text+    , _rsgiSourceSecurityGroupOwnerId :: Maybe Text+    , _rsgiToPort                     :: Maybe Int+    } deriving (Eq, Show)++-- | 'RevokeSecurityGroupIngress' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'rsgiCidrIp' @::@ 'Maybe' 'Text'+--+-- * 'rsgiDryRun' @::@ 'Maybe' 'Bool'+--+-- * 'rsgiFromPort' @::@ 'Maybe' 'Int'+--+-- * 'rsgiGroupId' @::@ 'Maybe' 'Text'+--+-- * 'rsgiGroupName' @::@ 'Maybe' 'Text'+--+-- * 'rsgiIpPermissions' @::@ ['IpPermission']+--+-- * 'rsgiIpProtocol' @::@ 'Maybe' 'Text'+--+-- * 'rsgiSourceSecurityGroupName' @::@ 'Maybe' 'Text'+--+-- * 'rsgiSourceSecurityGroupOwnerId' @::@ 'Maybe' 'Text'+--+-- * 'rsgiToPort' @::@ 'Maybe' 'Int'+--+revokeSecurityGroupIngress :: RevokeSecurityGroupIngress+revokeSecurityGroupIngress = RevokeSecurityGroupIngress+    { _rsgiDryRun                     = Nothing+    , _rsgiGroupName                  = Nothing+    , _rsgiGroupId                    = Nothing+    , _rsgiSourceSecurityGroupName    = Nothing+    , _rsgiSourceSecurityGroupOwnerId = Nothing+    , _rsgiIpProtocol                 = Nothing+    , _rsgiFromPort                   = Nothing+    , _rsgiToPort                     = Nothing+    , _rsgiCidrIp                     = Nothing+    , _rsgiIpPermissions              = mempty+    }++-- | The CIDR IP address range. You can't specify this parameter when+-- specifying a source security group.+rsgiCidrIp :: Lens' RevokeSecurityGroupIngress (Maybe Text)+rsgiCidrIp = lens _rsgiCidrIp (\s a -> s { _rsgiCidrIp = a })++rsgiDryRun :: Lens' RevokeSecurityGroupIngress (Maybe Bool)+rsgiDryRun = lens _rsgiDryRun (\s a -> s { _rsgiDryRun = a })++-- | The start of port range for the TCP and UDP protocols, or an ICMP type+-- number. For the ICMP type number, use -1 to specify all ICMP types.+rsgiFromPort :: Lens' RevokeSecurityGroupIngress (Maybe Int)+rsgiFromPort = lens _rsgiFromPort (\s a -> s { _rsgiFromPort = a })++-- | The ID of the security group.+rsgiGroupId :: Lens' RevokeSecurityGroupIngress (Maybe Text)+rsgiGroupId = lens _rsgiGroupId (\s a -> s { _rsgiGroupId = a })++-- | [EC2-Classic, default VPC] The name of the security group.+rsgiGroupName :: Lens' RevokeSecurityGroupIngress (Maybe Text)+rsgiGroupName = lens _rsgiGroupName (\s a -> s { _rsgiGroupName = a })++-- | A set of IP permissions. You can't specify a source security group and a+-- CIDR IP address range.+rsgiIpPermissions :: Lens' RevokeSecurityGroupIngress [IpPermission]+rsgiIpPermissions =+    lens _rsgiIpPermissions (\s a -> s { _rsgiIpPermissions = a })+        . _List++-- | The IP protocol name (tcp, udp, icmp) or number (see Protocol Numbers).+-- Use -1 to specify all.+rsgiIpProtocol :: Lens' RevokeSecurityGroupIngress (Maybe Text)+rsgiIpProtocol = lens _rsgiIpProtocol (\s a -> s { _rsgiIpProtocol = a })++-- | [EC2-Classic, default VPC] The name of the source security group. You+-- can't specify a source security group and a CIDR IP address range.+rsgiSourceSecurityGroupName :: Lens' RevokeSecurityGroupIngress (Maybe Text)+rsgiSourceSecurityGroupName =+    lens _rsgiSourceSecurityGroupName+        (\s a -> s { _rsgiSourceSecurityGroupName = a })++-- | The ID of the source security group. You can't specify a source security+-- group and a CIDR IP address range.+rsgiSourceSecurityGroupOwnerId :: Lens' RevokeSecurityGroupIngress (Maybe Text)+rsgiSourceSecurityGroupOwnerId =+    lens _rsgiSourceSecurityGroupOwnerId+        (\s a -> s { _rsgiSourceSecurityGroupOwnerId = a })++-- | The end of port range for the TCP and UDP protocols, or an ICMP code+-- number. For the ICMP code number, use -1 to specify all ICMP codes for+-- the ICMP type.+rsgiToPort :: Lens' RevokeSecurityGroupIngress (Maybe Int)+rsgiToPort = lens _rsgiToPort (\s a -> s { _rsgiToPort = a })++data RevokeSecurityGroupIngressResponse = RevokeSecurityGroupIngressResponse+    deriving (Eq, Ord, Show, Generic)++-- | 'RevokeSecurityGroupIngressResponse' constructor.+revokeSecurityGroupIngressResponse :: RevokeSecurityGroupIngressResponse+revokeSecurityGroupIngressResponse = RevokeSecurityGroupIngressResponse++instance ToPath RevokeSecurityGroupIngress where+    toPath = const "/"++instance ToQuery RevokeSecurityGroupIngress where+    toQuery RevokeSecurityGroupIngress{..} = mconcat+        [ "CidrIp"                     =? _rsgiCidrIp+        , "dryRun"                     =? _rsgiDryRun+        , "FromPort"                   =? _rsgiFromPort+        , "GroupId"                    =? _rsgiGroupId+        , "GroupName"                  =? _rsgiGroupName+        , "IpPermissions"              =? _rsgiIpPermissions+        , "IpProtocol"                 =? _rsgiIpProtocol+        , "SourceSecurityGroupName"    =? _rsgiSourceSecurityGroupName+        , "SourceSecurityGroupOwnerId" =? _rsgiSourceSecurityGroupOwnerId+        , "ToPort"                     =? _rsgiToPort+        ]++instance ToHeaders RevokeSecurityGroupIngress++instance AWSRequest RevokeSecurityGroupIngress where+    type Sv RevokeSecurityGroupIngress = EC2+    type Rs RevokeSecurityGroupIngress = RevokeSecurityGroupIngressResponse++    request  = post "RevokeSecurityGroupIngress"+    response = nullResponse RevokeSecurityGroupIngressResponse
+ gen/Network/AWS/EC2/RunInstances.hs view
@@ -0,0 +1,439 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.RunInstances+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Launches the specified number of instances using an AMI for which you have+-- permissions. When you launch an instance, it enters the pending state.+-- After the instance is ready for you, it enters the running state. To check+-- the state of your instance, call DescribeInstances. If you don't specify a+-- security group when launching an instance, Amazon EC2 uses the default+-- security group. For more information, see Security Groups in the Amazon+-- Elastic Compute Cloud User Guide. Linux instances have access to the public+-- key of the key pair at boot. You can use this key to provide secure access+-- to the instance. Amazon EC2 public images use this feature to provide+-- secure access without passwords. For more information, see Key Pairs in the+-- Amazon Elastic Compute Cloud User Guide. You can provide optional user data+-- when launching an instance. For more information, see Instance Metadata in+-- the Amazon Elastic Compute Cloud User Guide. If any of the AMIs have a+-- product code attached for which the user has not subscribed, RunInstances+-- fails. T2 instance types can only be launched into a VPC. If you do not+-- have a default VPC, or if you do not specify a subnet ID in the request,+-- RunInstances fails. For more information about troubleshooting, see What To+-- Do If An Instance Immediately Terminates, and Troubleshooting Connecting to+-- Your Instance in the Amazon Elastic Compute Cloud User Guide.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-RunInstances.html>+module Network.AWS.EC2.RunInstances+    (+    -- * Request+      RunInstances+    -- ** Request constructor+    , runInstances+    -- ** Request lenses+    , riAdditionalInfo+    , riBlockDeviceMappings+    , riClientToken+    , riDisableApiTermination+    , riDryRun+    , riEbsOptimized+    , riIamInstanceProfile+    , riImageId+    , riInstanceInitiatedShutdownBehavior+    , riInstanceType+    , riKernelId+    , riKeyName+    , riMaxCount+    , riMinCount+    , riMonitoring+    , riNetworkInterfaces+    , riPlacement+    , riPrivateIpAddress+    , riRamdiskId+    , riSecurityGroupIds+    , riSecurityGroups+    , riSubnetId+    , riUserData++    -- * Response+    , RunInstancesResponse+    -- ** Response constructor+    , runInstancesResponse+    -- ** Response lenses+    , rirGroups+    , rirInstances+    , rirOwnerId+    , rirRequesterId+    , rirReservationId+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data RunInstances = RunInstances+    { _riAdditionalInfo                    :: Maybe Text+    , _riBlockDeviceMappings               :: List "BlockDeviceMapping" BlockDeviceMapping+    , _riClientToken                       :: Maybe Text+    , _riDisableApiTermination             :: Maybe Bool+    , _riDryRun                            :: Maybe Bool+    , _riEbsOptimized                      :: Maybe Bool+    , _riIamInstanceProfile                :: Maybe IamInstanceProfileSpecification+    , _riImageId                           :: Text+    , _riInstanceInitiatedShutdownBehavior :: Maybe Text+    , _riInstanceType                      :: Maybe Text+    , _riKernelId                          :: Maybe Text+    , _riKeyName                           :: Maybe Text+    , _riMaxCount                          :: Int+    , _riMinCount                          :: Int+    , _riMonitoring                        :: Maybe RunInstancesMonitoringEnabled+    , _riNetworkInterfaces                 :: List "item" InstanceNetworkInterfaceSpecification+    , _riPlacement                         :: Maybe Placement+    , _riPrivateIpAddress                  :: Maybe Text+    , _riRamdiskId                         :: Maybe Text+    , _riSecurityGroupIds                  :: List "SecurityGroupId" Text+    , _riSecurityGroups                    :: List "SecurityGroup" Text+    , _riSubnetId                          :: Maybe Text+    , _riUserData                          :: Maybe Text+    } deriving (Eq, Show)++-- | 'RunInstances' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'riAdditionalInfo' @::@ 'Maybe' 'Text'+--+-- * 'riBlockDeviceMappings' @::@ ['BlockDeviceMapping']+--+-- * 'riClientToken' @::@ 'Maybe' 'Text'+--+-- * 'riDisableApiTermination' @::@ 'Maybe' 'Bool'+--+-- * 'riDryRun' @::@ 'Maybe' 'Bool'+--+-- * 'riEbsOptimized' @::@ 'Maybe' 'Bool'+--+-- * 'riIamInstanceProfile' @::@ 'Maybe' 'IamInstanceProfileSpecification'+--+-- * 'riImageId' @::@ 'Text'+--+-- * 'riInstanceInitiatedShutdownBehavior' @::@ 'Maybe' 'Text'+--+-- * 'riInstanceType' @::@ 'Maybe' 'Text'+--+-- * 'riKernelId' @::@ 'Maybe' 'Text'+--+-- * 'riKeyName' @::@ 'Maybe' 'Text'+--+-- * 'riMaxCount' @::@ 'Int'+--+-- * 'riMinCount' @::@ 'Int'+--+-- * 'riMonitoring' @::@ 'Maybe' 'RunInstancesMonitoringEnabled'+--+-- * 'riNetworkInterfaces' @::@ ['InstanceNetworkInterfaceSpecification']+--+-- * 'riPlacement' @::@ 'Maybe' 'Placement'+--+-- * 'riPrivateIpAddress' @::@ 'Maybe' 'Text'+--+-- * 'riRamdiskId' @::@ 'Maybe' 'Text'+--+-- * 'riSecurityGroupIds' @::@ ['Text']+--+-- * 'riSecurityGroups' @::@ ['Text']+--+-- * 'riSubnetId' @::@ 'Maybe' 'Text'+--+-- * 'riUserData' @::@ 'Maybe' 'Text'+--+runInstances :: Text -- ^ 'riImageId'+             -> Int -- ^ 'riMinCount'+             -> Int -- ^ 'riMaxCount'+             -> RunInstances+runInstances p1 p2 p3 = RunInstances+    { _riImageId                           = p1+    , _riMinCount                          = p2+    , _riMaxCount                          = p3+    , _riDryRun                            = Nothing+    , _riKeyName                           = Nothing+    , _riSecurityGroups                    = mempty+    , _riSecurityGroupIds                  = mempty+    , _riUserData                          = Nothing+    , _riInstanceType                      = Nothing+    , _riPlacement                         = Nothing+    , _riKernelId                          = Nothing+    , _riRamdiskId                         = Nothing+    , _riBlockDeviceMappings               = mempty+    , _riMonitoring                        = Nothing+    , _riSubnetId                          = Nothing+    , _riDisableApiTermination             = Nothing+    , _riInstanceInitiatedShutdownBehavior = Nothing+    , _riPrivateIpAddress                  = Nothing+    , _riClientToken                       = Nothing+    , _riAdditionalInfo                    = Nothing+    , _riNetworkInterfaces                 = mempty+    , _riIamInstanceProfile                = Nothing+    , _riEbsOptimized                      = Nothing+    }++-- | Reserved.+riAdditionalInfo :: Lens' RunInstances (Maybe Text)+riAdditionalInfo = lens _riAdditionalInfo (\s a -> s { _riAdditionalInfo = a })++-- | The block device mapping.+riBlockDeviceMappings :: Lens' RunInstances [BlockDeviceMapping]+riBlockDeviceMappings =+    lens _riBlockDeviceMappings (\s a -> s { _riBlockDeviceMappings = a })+        . _List++-- | Unique, case-sensitive identifier you provide to ensure the idempotency+-- of the request. For more information, see How to Ensure Idempotency in+-- the Amazon Elastic Compute Cloud User Guide. Constraints: Maximum 64+-- ASCII characters.+riClientToken :: Lens' RunInstances (Maybe Text)+riClientToken = lens _riClientToken (\s a -> s { _riClientToken = a })++-- | If you set this parameter to true, you can't terminate the instance using+-- the Amazon EC2 console, CLI, or API; otherwise, you can. If you set this+-- parameter to true and then later want to be able to terminate the+-- instance, you must first change the value of the disableApiTermination+-- attribute to false using ModifyInstanceAttribute. Alternatively, if you+-- set InstanceInitiatedShutdownBehavior to terminate, you can terminate the+-- instance by running the shutdown command from the instance. Default:+-- false.+riDisableApiTermination :: Lens' RunInstances (Maybe Bool)+riDisableApiTermination =+    lens _riDisableApiTermination (\s a -> s { _riDisableApiTermination = a })++riDryRun :: Lens' RunInstances (Maybe Bool)+riDryRun = lens _riDryRun (\s a -> s { _riDryRun = a })++-- | Indicates whether the instance is optimized for EBS I/O. This+-- optimization provides dedicated throughput to Amazon EBS and an optimized+-- configuration stack to provide optimal Amazon EBS I/O performance. This+-- optimization isn't available with all instance types. Additional usage+-- charges apply when using an EBS-optimized instance. Default: false.+riEbsOptimized :: Lens' RunInstances (Maybe Bool)+riEbsOptimized = lens _riEbsOptimized (\s a -> s { _riEbsOptimized = a })++-- | The IAM instance profile.+riIamInstanceProfile :: Lens' RunInstances (Maybe IamInstanceProfileSpecification)+riIamInstanceProfile =+    lens _riIamInstanceProfile (\s a -> s { _riIamInstanceProfile = a })++-- | The ID of the AMI, which you can get by calling DescribeImages.+riImageId :: Lens' RunInstances Text+riImageId = lens _riImageId (\s a -> s { _riImageId = a })++-- | Indicates whether an instance stops or terminates when you initiate+-- shutdown from the instance (using the operating system command for system+-- shutdown). Default: stop.+riInstanceInitiatedShutdownBehavior :: Lens' RunInstances (Maybe Text)+riInstanceInitiatedShutdownBehavior =+    lens _riInstanceInitiatedShutdownBehavior+        (\s a -> s { _riInstanceInitiatedShutdownBehavior = a })++-- | The instance type. For more information, see Instance Types in the Amazon+-- Elastic Compute Cloud User Guide. Default: m1.small.+riInstanceType :: Lens' RunInstances (Maybe Text)+riInstanceType = lens _riInstanceType (\s a -> s { _riInstanceType = a })++-- | The ID of the kernel. We recommend that you use PV-GRUB instead of+-- kernels and RAM disks. For more information, see PV-GRUB in the Amazon+-- Elastic Compute Cloud User Guide.+riKernelId :: Lens' RunInstances (Maybe Text)+riKernelId = lens _riKernelId (\s a -> s { _riKernelId = a })++-- | The name of the key pair. You can create a key pair using CreateKeyPair+-- or ImportKeyPair. If you launch an instance without specifying a key+-- pair, you can't connect to the instance.+riKeyName :: Lens' RunInstances (Maybe Text)+riKeyName = lens _riKeyName (\s a -> s { _riKeyName = a })++-- | The maximum number of instances to launch. If you specify more instances+-- than Amazon EC2 can launch in the target Availability Zone, Amazon EC2+-- launches the largest possible number of instances above MinCount.+-- Constraints: Between 1 and the maximum number you're allowed for the+-- specified instance type. For more information about the default limits,+-- and how to request an increase, see How many instances can I run in+-- Amazon EC2 in the Amazon EC2 General FAQ.+riMaxCount :: Lens' RunInstances Int+riMaxCount = lens _riMaxCount (\s a -> s { _riMaxCount = a })++-- | The minimum number of instances to launch. If you specify a minimum that+-- is more instances than Amazon EC2 can launch in the target Availability+-- Zone, Amazon EC2 launches no instances. Constraints: Between 1 and the+-- maximum number you're allowed for the specified instance type. For more+-- information about the default limits, and how to request an increase, see+-- How many instances can I run in Amazon EC2 in the Amazon EC2 General FAQ.+riMinCount :: Lens' RunInstances Int+riMinCount = lens _riMinCount (\s a -> s { _riMinCount = a })++-- | The monitoring for the instance.+riMonitoring :: Lens' RunInstances (Maybe RunInstancesMonitoringEnabled)+riMonitoring = lens _riMonitoring (\s a -> s { _riMonitoring = a })++-- | One or more network interfaces.+riNetworkInterfaces :: Lens' RunInstances [InstanceNetworkInterfaceSpecification]+riNetworkInterfaces =+    lens _riNetworkInterfaces (\s a -> s { _riNetworkInterfaces = a })+        . _List++-- | The placement for the instance.+riPlacement :: Lens' RunInstances (Maybe Placement)+riPlacement = lens _riPlacement (\s a -> s { _riPlacement = a })++-- | [EC2-VPC] The primary IP address. You must specify a value from the IP+-- address range of the subnet. Only one private IP address can be+-- designated as primary. Therefore, you can't specify this parameter if+-- PrivateIpAddresses.n.Primary is set to true and+-- PrivateIpAddresses.n.PrivateIpAddress is set to an IP address. Default:+-- We select an IP address from the IP address range of the subnet.+riPrivateIpAddress :: Lens' RunInstances (Maybe Text)+riPrivateIpAddress =+    lens _riPrivateIpAddress (\s a -> s { _riPrivateIpAddress = a })++-- | The ID of the RAM disk. We recommend that you use PV-GRUB instead of+-- kernels and RAM disks. For more information, see PV-GRUB in the Amazon+-- Elastic Compute Cloud User Guide.+riRamdiskId :: Lens' RunInstances (Maybe Text)+riRamdiskId = lens _riRamdiskId (\s a -> s { _riRamdiskId = a })++-- | One or more security group IDs. You can create a security group using+-- CreateSecurityGroup. Default: Amazon EC2 uses the default security group.+riSecurityGroupIds :: Lens' RunInstances [Text]+riSecurityGroupIds =+    lens _riSecurityGroupIds (\s a -> s { _riSecurityGroupIds = a })+        . _List++-- | [EC2-Classic, default VPC] One or more security group names. For a+-- nondefault VPC, you must use security group IDs instead. Default: Amazon+-- EC2 uses the default security group.+riSecurityGroups :: Lens' RunInstances [Text]+riSecurityGroups = lens _riSecurityGroups (\s a -> s { _riSecurityGroups = a }) . _List++-- | [EC2-VPC] The ID of the subnet to launch the instance into.+riSubnetId :: Lens' RunInstances (Maybe Text)+riSubnetId = lens _riSubnetId (\s a -> s { _riSubnetId = a })++-- | The Base64-encoded MIME user data for the instances.+riUserData :: Lens' RunInstances (Maybe Text)+riUserData = lens _riUserData (\s a -> s { _riUserData = a })++data RunInstancesResponse = RunInstancesResponse+    { _rirGroups        :: List "item" GroupIdentifier+    , _rirInstances     :: List "item" Instance+    , _rirOwnerId       :: Maybe Text+    , _rirRequesterId   :: Maybe Text+    , _rirReservationId :: Maybe Text+    } deriving (Eq, Show)++-- | 'RunInstancesResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'rirGroups' @::@ ['GroupIdentifier']+--+-- * 'rirInstances' @::@ ['Instance']+--+-- * 'rirOwnerId' @::@ 'Maybe' 'Text'+--+-- * 'rirRequesterId' @::@ 'Maybe' 'Text'+--+-- * 'rirReservationId' @::@ 'Maybe' 'Text'+--+runInstancesResponse :: RunInstancesResponse+runInstancesResponse = RunInstancesResponse+    { _rirReservationId = Nothing+    , _rirOwnerId       = Nothing+    , _rirRequesterId   = Nothing+    , _rirGroups        = mempty+    , _rirInstances     = mempty+    }++-- | One or more security groups.+rirGroups :: Lens' RunInstancesResponse [GroupIdentifier]+rirGroups = lens _rirGroups (\s a -> s { _rirGroups = a }) . _List++-- | One or more instances.+rirInstances :: Lens' RunInstancesResponse [Instance]+rirInstances = lens _rirInstances (\s a -> s { _rirInstances = a }) . _List++-- | The ID of the AWS account that owns the reservation.+rirOwnerId :: Lens' RunInstancesResponse (Maybe Text)+rirOwnerId = lens _rirOwnerId (\s a -> s { _rirOwnerId = a })++-- | The ID of the requester that launched the instances on your behalf (for+-- example, AWS Management Console or Auto Scaling).+rirRequesterId :: Lens' RunInstancesResponse (Maybe Text)+rirRequesterId = lens _rirRequesterId (\s a -> s { _rirRequesterId = a })++-- | The ID of the reservation.+rirReservationId :: Lens' RunInstancesResponse (Maybe Text)+rirReservationId = lens _rirReservationId (\s a -> s { _rirReservationId = a })++instance ToPath RunInstances where+    toPath = const "/"++instance ToQuery RunInstances where+    toQuery RunInstances{..} = mconcat+        [ "additionalInfo"                    =? _riAdditionalInfo+        , "BlockDeviceMapping"                =? _riBlockDeviceMappings+        , "clientToken"                       =? _riClientToken+        , "disableApiTermination"             =? _riDisableApiTermination+        , "dryRun"                            =? _riDryRun+        , "ebsOptimized"                      =? _riEbsOptimized+        , "iamInstanceProfile"                =? _riIamInstanceProfile+        , "ImageId"                           =? _riImageId+        , "instanceInitiatedShutdownBehavior" =? _riInstanceInitiatedShutdownBehavior+        , "InstanceType"                      =? _riInstanceType+        , "KernelId"                          =? _riKernelId+        , "KeyName"                           =? _riKeyName+        , "MaxCount"                          =? _riMaxCount+        , "MinCount"                          =? _riMinCount+        , "Monitoring"                        =? _riMonitoring+        , "networkInterface"                  =? _riNetworkInterfaces+        , "Placement"                         =? _riPlacement+        , "privateIpAddress"                  =? _riPrivateIpAddress+        , "RamdiskId"                         =? _riRamdiskId+        , "SecurityGroupId"                   =? _riSecurityGroupIds+        , "SecurityGroup"                     =? _riSecurityGroups+        , "SubnetId"                          =? _riSubnetId+        , "UserData"                          =? _riUserData+        ]++instance ToHeaders RunInstances++instance AWSRequest RunInstances where+    type Sv RunInstances = EC2+    type Rs RunInstances = RunInstancesResponse++    request  = post "RunInstances"+    response = xmlResponse++instance FromXML RunInstancesResponse where+    parseXML x = RunInstancesResponse+        <$> x .@  "groupSet"+        <*> x .@  "instancesSet"+        <*> x .@? "ownerId"+        <*> x .@? "requesterId"+        <*> x .@? "reservationId"
+ gen/Network/AWS/EC2/StartInstances.hs view
@@ -0,0 +1,146 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.StartInstances+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Starts an Amazon EBS-backed AMI that you've previously stopped. Instances+-- that use Amazon EBS volumes as their root devices can be quickly stopped+-- and started. When an instance is stopped, the compute resources are+-- released and you are not billed for hourly instance usage. However, your+-- root partition Amazon EBS volume remains, continues to persist your data,+-- and you are charged for Amazon EBS volume usage. You can restart your+-- instance at any time. Each time you transition an instance from stopped to+-- started, Amazon EC2 charges a full instance hour, even if transitions+-- happen multiple times within a single hour. Before stopping an instance,+-- make sure it is in a state from which it can be restarted. Stopping an+-- instance does not preserve data stored in RAM. Performing this operation on+-- an instance that uses an instance store as its root device returns an+-- error. For more information, see Stopping Instances in the Amazon Elastic+-- Compute Cloud User Guide.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-StartInstances.html>+module Network.AWS.EC2.StartInstances+    (+    -- * Request+      StartInstances+    -- ** Request constructor+    , startInstances+    -- ** Request lenses+    , si1AdditionalInfo+    , si1DryRun+    , si1InstanceIds++    -- * Response+    , StartInstancesResponse+    -- ** Response constructor+    , startInstancesResponse+    -- ** Response lenses+    , sirStartingInstances+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data StartInstances = StartInstances+    { _si1AdditionalInfo :: Maybe Text+    , _si1DryRun         :: Maybe Bool+    , _si1InstanceIds    :: List "InstanceId" Text+    } deriving (Eq, Ord, Show)++-- | 'StartInstances' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'si1AdditionalInfo' @::@ 'Maybe' 'Text'+--+-- * 'si1DryRun' @::@ 'Maybe' 'Bool'+--+-- * 'si1InstanceIds' @::@ ['Text']+--+startInstances :: StartInstances+startInstances = StartInstances+    { _si1InstanceIds    = mempty+    , _si1AdditionalInfo = Nothing+    , _si1DryRun         = Nothing+    }++-- | Reserved.+si1AdditionalInfo :: Lens' StartInstances (Maybe Text)+si1AdditionalInfo =+    lens _si1AdditionalInfo (\s a -> s { _si1AdditionalInfo = a })++si1DryRun :: Lens' StartInstances (Maybe Bool)+si1DryRun = lens _si1DryRun (\s a -> s { _si1DryRun = a })++-- | One or more instance IDs.+si1InstanceIds :: Lens' StartInstances [Text]+si1InstanceIds = lens _si1InstanceIds (\s a -> s { _si1InstanceIds = a }) . _List++newtype StartInstancesResponse = StartInstancesResponse+    { _sirStartingInstances :: List "item" InstanceStateChange+    } deriving (Eq, Show, Monoid, Semigroup)++instance GHC.Exts.IsList StartInstancesResponse where+    type Item StartInstancesResponse = InstanceStateChange++    fromList = StartInstancesResponse . GHC.Exts.fromList+    toList   = GHC.Exts.toList . _sirStartingInstances++-- | 'StartInstancesResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'sirStartingInstances' @::@ ['InstanceStateChange']+--+startInstancesResponse :: StartInstancesResponse+startInstancesResponse = StartInstancesResponse+    { _sirStartingInstances = mempty+    }++-- | Information about one or more started instances.+sirStartingInstances :: Lens' StartInstancesResponse [InstanceStateChange]+sirStartingInstances =+    lens _sirStartingInstances (\s a -> s { _sirStartingInstances = a })+        . _List++instance ToPath StartInstances where+    toPath = const "/"++instance ToQuery StartInstances where+    toQuery StartInstances{..} = mconcat+        [ "additionalInfo" =? _si1AdditionalInfo+        , "dryRun"         =? _si1DryRun+        , "InstanceId"     =? _si1InstanceIds+        ]++instance ToHeaders StartInstances++instance AWSRequest StartInstances where+    type Sv StartInstances = EC2+    type Rs StartInstances = StartInstancesResponse++    request  = post "StartInstances"+    response = xmlResponse++instance FromXML StartInstancesResponse where+    parseXML x = StartInstancesResponse+        <$> x .@  "instancesSet"
+ gen/Network/AWS/EC2/StopInstances.hs view
@@ -0,0 +1,156 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.StopInstances+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Stops an Amazon EBS-backed instance. Each time you transition an instance+-- from stopped to started, Amazon EC2 charges a full instance hour, even if+-- transitions happen multiple times within a single hour. You can't start or+-- stop Spot Instances. Instances that use Amazon EBS volumes as their root+-- devices can be quickly stopped and started. When an instance is stopped,+-- the compute resources are released and you are not billed for hourly+-- instance usage. However, your root partition Amazon EBS volume remains,+-- continues to persist your data, and you are charged for Amazon EBS volume+-- usage. You can restart your instance at any time. Before stopping an+-- instance, make sure it is in a state from which it can be restarted.+-- Stopping an instance does not preserve data stored in RAM. Performing this+-- operation on an instance that uses an instance store as its root device+-- returns an error. You can stop, start, and terminate EBS-backed instances.+-- You can only terminate instance store-backed instances. What happens to an+-- instance differs if you stop it or terminate it. For example, when you stop+-- an instance, the root device and any other devices attached to the instance+-- persist. When you terminate an instance, the root device and any other+-- devices attached during the instance launch are automatically deleted. For+-- more information about the differences between stopping and terminating+-- instances, see Instance Lifecycle in the Amazon Elastic Compute Cloud User+-- Guide. For more information about troubleshooting, see Troubleshooting+-- Stopping Your Instance in the Amazon Elastic Compute Cloud User Guide.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-StopInstances.html>+module Network.AWS.EC2.StopInstances+    (+    -- * Request+      StopInstances+    -- ** Request constructor+    , stopInstances+    -- ** Request lenses+    , siDryRun+    , siForce+    , siInstanceIds++    -- * Response+    , StopInstancesResponse+    -- ** Response constructor+    , stopInstancesResponse+    -- ** Response lenses+    , sirStoppingInstances+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data StopInstances = StopInstances+    { _siDryRun      :: Maybe Bool+    , _siForce       :: Maybe Bool+    , _siInstanceIds :: List "InstanceId" Text+    } deriving (Eq, Ord, Show)++-- | 'StopInstances' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'siDryRun' @::@ 'Maybe' 'Bool'+--+-- * 'siForce' @::@ 'Maybe' 'Bool'+--+-- * 'siInstanceIds' @::@ ['Text']+--+stopInstances :: StopInstances+stopInstances = StopInstances+    { _siDryRun      = Nothing+    , _siInstanceIds = mempty+    , _siForce       = Nothing+    }++siDryRun :: Lens' StopInstances (Maybe Bool)+siDryRun = lens _siDryRun (\s a -> s { _siDryRun = a })++-- | Forces the instances to stop. The instances do not have an opportunity to+-- flush file system caches or file system metadata. If you use this option,+-- you must perform file system check and repair procedures. This option is+-- not recommended for Windows instances. Default: false.+siForce :: Lens' StopInstances (Maybe Bool)+siForce = lens _siForce (\s a -> s { _siForce = a })++-- | One or more instance IDs.+siInstanceIds :: Lens' StopInstances [Text]+siInstanceIds = lens _siInstanceIds (\s a -> s { _siInstanceIds = a }) . _List++newtype StopInstancesResponse = StopInstancesResponse+    { _sirStoppingInstances :: List "item" InstanceStateChange+    } deriving (Eq, Show, Monoid, Semigroup)++instance GHC.Exts.IsList StopInstancesResponse where+    type Item StopInstancesResponse = InstanceStateChange++    fromList = StopInstancesResponse . GHC.Exts.fromList+    toList   = GHC.Exts.toList . _sirStoppingInstances++-- | 'StopInstancesResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'sirStoppingInstances' @::@ ['InstanceStateChange']+--+stopInstancesResponse :: StopInstancesResponse+stopInstancesResponse = StopInstancesResponse+    { _sirStoppingInstances = mempty+    }++-- | Information about one or more stopped instances.+sirStoppingInstances :: Lens' StopInstancesResponse [InstanceStateChange]+sirStoppingInstances =+    lens _sirStoppingInstances (\s a -> s { _sirStoppingInstances = a })+        . _List++instance ToPath StopInstances where+    toPath = const "/"++instance ToQuery StopInstances where+    toQuery StopInstances{..} = mconcat+        [ "dryRun"     =? _siDryRun+        , "force"      =? _siForce+        , "InstanceId" =? _siInstanceIds+        ]++instance ToHeaders StopInstances++instance AWSRequest StopInstances where+    type Sv StopInstances = EC2+    type Rs StopInstances = StopInstancesResponse++    request  = post "StopInstances"+    response = xmlResponse++instance FromXML StopInstancesResponse where+    parseXML x = StopInstancesResponse+        <$> x .@  "instancesSet"
+ gen/Network/AWS/EC2/TerminateInstances.hs view
@@ -0,0 +1,136 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.TerminateInstances+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Shuts down one or more instances. This operation is idempotent; if you+-- terminate an instance more than once, each call succeeds. Terminated+-- instances remain visible after termination (for approximately one hour). By+-- default, Amazon EC2 deletes all Amazon EBS volumes that were attached when+-- the instance launched. Volumes attached after instance launch continue+-- running. You can stop, start, and terminate EBS-backed instances. You can+-- only terminate instance store-backed instances. What happens to an instance+-- differs if you stop it or terminate it. For example, when you stop an+-- instance, the root device and any other devices attached to the instance+-- persist. When you terminate an instance, the root device and any other+-- devices attached during the instance launch are automatically deleted. For+-- more information about the differences between stopping and terminating+-- instances, see Instance Lifecycle in the Amazon Elastic Compute Cloud User+-- Guide. For more information about troubleshooting, see Troubleshooting+-- Terminating Your Instance in the Amazon Elastic Compute Cloud User Guide.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-TerminateInstances.html>+module Network.AWS.EC2.TerminateInstances+    (+    -- * Request+      TerminateInstances+    -- ** Request constructor+    , terminateInstances+    -- ** Request lenses+    , tiDryRun+    , tiInstanceIds++    -- * Response+    , TerminateInstancesResponse+    -- ** Response constructor+    , terminateInstancesResponse+    -- ** Response lenses+    , tirTerminatingInstances+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data TerminateInstances = TerminateInstances+    { _tiDryRun      :: Maybe Bool+    , _tiInstanceIds :: List "InstanceId" Text+    } deriving (Eq, Ord, Show)++-- | 'TerminateInstances' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'tiDryRun' @::@ 'Maybe' 'Bool'+--+-- * 'tiInstanceIds' @::@ ['Text']+--+terminateInstances :: TerminateInstances+terminateInstances = TerminateInstances+    { _tiDryRun      = Nothing+    , _tiInstanceIds = mempty+    }++tiDryRun :: Lens' TerminateInstances (Maybe Bool)+tiDryRun = lens _tiDryRun (\s a -> s { _tiDryRun = a })++-- | One or more instance IDs.+tiInstanceIds :: Lens' TerminateInstances [Text]+tiInstanceIds = lens _tiInstanceIds (\s a -> s { _tiInstanceIds = a }) . _List++newtype TerminateInstancesResponse = TerminateInstancesResponse+    { _tirTerminatingInstances :: List "item" InstanceStateChange+    } deriving (Eq, Show, Monoid, Semigroup)++instance GHC.Exts.IsList TerminateInstancesResponse where+    type Item TerminateInstancesResponse = InstanceStateChange++    fromList = TerminateInstancesResponse . GHC.Exts.fromList+    toList   = GHC.Exts.toList . _tirTerminatingInstances++-- | 'TerminateInstancesResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'tirTerminatingInstances' @::@ ['InstanceStateChange']+--+terminateInstancesResponse :: TerminateInstancesResponse+terminateInstancesResponse = TerminateInstancesResponse+    { _tirTerminatingInstances = mempty+    }++-- | Information about one or more terminated instances.+tirTerminatingInstances :: Lens' TerminateInstancesResponse [InstanceStateChange]+tirTerminatingInstances =+    lens _tirTerminatingInstances (\s a -> s { _tirTerminatingInstances = a })+        . _List++instance ToPath TerminateInstances where+    toPath = const "/"++instance ToQuery TerminateInstances where+    toQuery TerminateInstances{..} = mconcat+        [ "dryRun"     =? _tiDryRun+        , "InstanceId" =? _tiInstanceIds+        ]++instance ToHeaders TerminateInstances++instance AWSRequest TerminateInstances where+    type Sv TerminateInstances = EC2+    type Rs TerminateInstances = TerminateInstancesResponse++    request  = post "TerminateInstances"+    response = xmlResponse++instance FromXML TerminateInstancesResponse where+    parseXML x = TerminateInstancesResponse+        <$> x .@  "instancesSet"
+ gen/Network/AWS/EC2/Types.hs view
@@ -0,0 +1,12373 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.Types+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++module Network.AWS.EC2.Types+    (+    -- * Service+      EC2+    -- ** Error+    , RESTError+    -- ** XML+    , ns++    -- * ImageAttributeName+    , ImageAttributeName (..)++    -- * PermissionGroup+    , PermissionGroup (..)++    -- * NetworkAclEntry+    , NetworkAclEntry+    , networkAclEntry+    , naeCidrBlock+    , naeEgress+    , naeIcmpTypeCode+    , naePortRange+    , naeProtocol+    , naeRuleAction+    , naeRuleNumber++    -- * BlobAttributeValue+    , BlobAttributeValue+    , blobAttributeValue+    , bavValue++    -- * ImportInstanceLaunchSpecification+    , ImportInstanceLaunchSpecification+    , importInstanceLaunchSpecification+    , iilsAdditionalInfo+    , iilsArchitecture+    , iilsGroupIds+    , iilsGroupNames+    , iilsInstanceInitiatedShutdownBehavior+    , iilsInstanceType+    , iilsMonitoring+    , iilsPlacement+    , iilsPrivateIpAddress+    , iilsSubnetId+    , iilsUserData++    -- * Snapshot+    , Snapshot+    , snapshot+    , sDescription+    , sEncrypted+    , sOwnerAlias+    , sOwnerId+    , sProgress+    , sSnapshotId+    , sStartTime+    , sState+    , sTags+    , sVolumeId+    , sVolumeSize++    -- * SpotInstanceStateFault+    , SpotInstanceStateFault+    , spotInstanceStateFault+    , sisfCode+    , sisfMessage++    -- * TagDescription+    , TagDescription+    , tagDescription+    , tdKey+    , tdResourceId+    , tdResourceType+    , tdValue++    -- * GroupIdentifier+    , GroupIdentifier+    , groupIdentifier+    , giGroupId+    , giGroupName++    -- * VpnStaticRouteSource+    , VpnStaticRouteSource (..)++    -- * ReservedInstancesListing+    , ReservedInstancesListing+    , reservedInstancesListing+    , rilClientToken+    , rilCreateDate+    , rilInstanceCounts+    , rilPriceSchedules+    , rilReservedInstancesId+    , rilReservedInstancesListingId+    , rilStatus+    , rilStatusMessage+    , rilTags+    , rilUpdateDate++    -- * InstanceLifecycleType+    , InstanceLifecycleType (..)++    -- * VirtualizationType+    , VirtualizationType (..)++    -- * NetworkInterfaceStatus+    , NetworkInterfaceStatus (..)++    -- * PlatformValues+    , PlatformValues (..)++    -- * CreateVolumePermission+    , CreateVolumePermission+    , createVolumePermission+    , cvpGroup+    , cvpUserId++    -- * NetworkInterfaceAttachmentChanges+    , NetworkInterfaceAttachmentChanges+    , networkInterfaceAttachmentChanges+    , niacAttachmentId+    , niacDeleteOnTermination++    -- * RecurringChargeFrequency+    , RecurringChargeFrequency (..)++    -- * DhcpOptions+    , DhcpOptions+    , dhcpOptions+    , doDhcpConfigurations+    , doDhcpOptionsId+    , doTags++    -- * InstanceNetworkInterfaceSpecification+    , InstanceNetworkInterfaceSpecification+    , instanceNetworkInterfaceSpecification+    , inisAssociatePublicIpAddress+    , inisDeleteOnTermination+    , inisDescription+    , inisDeviceIndex+    , inisGroups+    , inisNetworkInterfaceId+    , inisPrivateIpAddress+    , inisPrivateIpAddresses+    , inisSecondaryPrivateIpAddressCount+    , inisSubnetId++    -- * VolumeState+    , VolumeState (..)++    -- * AttributeValue+    , AttributeValue+    , attributeValue+    , avValue++    -- * PrivateIpAddressSpecification+    , PrivateIpAddressSpecification+    , privateIpAddressSpecification+    , piasPrimary+    , piasPrivateIpAddress++    -- * Image+    , Image+    , image+    , iArchitecture+    , iBlockDeviceMappings+    , iDescription+    , iHypervisor+    , iImageId+    , iImageLocation+    , iImageOwnerAlias+    , iImageType+    , iKernelId+    , iName+    , iOwnerId+    , iPlatform+    , iProductCodes+    , iPublic+    , iRamdiskId+    , iRootDeviceName+    , iRootDeviceType+    , iSriovNetSupport+    , iState+    , iStateReason+    , iTags+    , iVirtualizationType++    -- * DhcpConfiguration+    , DhcpConfiguration+    , dhcpConfiguration+    , dcKey+    , dcValues++    -- * Tag+    , Tag+    , tag+    , tagKey+    , tagValue++    -- * AccountAttributeName+    , AccountAttributeName (..)++    -- * NetworkInterfaceAttachment+    , NetworkInterfaceAttachment+    , networkInterfaceAttachment+    , niaAttachTime+    , niaAttachmentId+    , niaDeleteOnTermination+    , niaDeviceIndex+    , niaInstanceId+    , niaInstanceOwnerId+    , niaStatus++    -- * RunInstancesMonitoringEnabled+    , RunInstancesMonitoringEnabled+    , runInstancesMonitoringEnabled+    , rimeEnabled++    -- * VolumeStatusInfo+    , VolumeStatusInfo+    , volumeStatusInfo+    , vsiDetails+    , vsiStatus++    -- * NetworkInterfaceAssociation+    , NetworkInterfaceAssociation+    , networkInterfaceAssociation+    , niaAllocationId+    , niaAssociationId+    , niaIpOwnerId+    , niaPublicDnsName+    , niaPublicIp++    -- * CreateVolumePermissionModifications+    , CreateVolumePermissionModifications+    , createVolumePermissionModifications+    , cvpmAdd+    , cvpmRemove++    -- * VpcState+    , VpcState (..)++    -- * ResourceType+    , ResourceType (..)++    -- * ReportStatusType+    , ReportStatusType (..)++    -- * CurrencyCodeValues+    , CurrencyCodeValues (..)++    -- * IcmpTypeCode+    , IcmpTypeCode+    , icmpTypeCode+    , itcCode+    , itcType++    -- * InstanceCount+    , InstanceCount+    , instanceCount+    , icInstanceCount+    , icState++    -- * ExportToS3Task+    , ExportToS3Task+    , exportToS3Task+    , etstContainerFormat+    , etstDiskImageFormat+    , etstS3Bucket+    , etstS3Key++    -- * BlockDeviceMapping+    , BlockDeviceMapping+    , blockDeviceMapping+    , bdmDeviceName+    , bdmEbs+    , bdmNoDevice+    , bdmVirtualName++    -- * ConversionTask+    , ConversionTask+    , conversionTask+    , ctConversionTaskId+    , ctExpirationTime+    , ctImportInstance+    , ctImportVolume+    , ctState+    , ctStatusMessage+    , ctTags++    -- * AttachmentStatus+    , AttachmentStatus (..)++    -- * RouteOrigin+    , RouteOrigin (..)++    -- * ListingState+    , ListingState (..)++    -- * SpotPrice+    , SpotPrice+    , spotPrice+    , spAvailabilityZone+    , spInstanceType+    , spProductDescription+    , spSpotPrice+    , spTimestamp++    -- * InstanceMonitoring+    , InstanceMonitoring+    , instanceMonitoring+    , imInstanceId+    , imMonitoring++    -- * PriceScheduleSpecification+    , PriceScheduleSpecification+    , priceScheduleSpecification+    , pssCurrencyCode+    , pssPrice+    , pssTerm++    -- * SpotInstanceStatus+    , SpotInstanceStatus+    , spotInstanceStatus+    , sisCode+    , sisMessage+    , sisUpdateTime++    -- * AvailabilityZoneState+    , AvailabilityZoneState (..)++    -- * SpotInstanceRequest+    , SpotInstanceRequest+    , spotInstanceRequest+    , siAvailabilityZoneGroup+    , siCreateTime+    , siFault+    , siInstanceId+    , siLaunchGroup+    , siLaunchSpecification+    , siLaunchedAvailabilityZone+    , siProductDescription+    , siSpotInstanceRequestId+    , siSpotPrice+    , siState+    , siStatus+    , siTags+    , siType+    , siValidFrom+    , siValidUntil++    -- * LaunchSpecification+    , LaunchSpecification+    , launchSpecification+    , lsAddressingType+    , lsBlockDeviceMappings+    , lsEbsOptimized+    , lsIamInstanceProfile+    , lsImageId+    , lsInstanceType+    , lsKernelId+    , lsKeyName+    , lsMonitoring+    , lsNetworkInterfaces+    , lsPlacement+    , lsRamdiskId+    , lsSecurityGroups+    , lsSubnetId+    , lsUserData++    -- * VolumeStatusEvent+    , VolumeStatusEvent+    , volumeStatusEvent+    , vseDescription+    , vseEventId+    , vseEventType+    , vseNotAfter+    , vseNotBefore++    -- * Volume+    , Volume+    , volume+    , vAttachments+    , vAvailabilityZone+    , vCreateTime+    , vEncrypted+    , vIops+    , vSize+    , vSnapshotId+    , vState+    , vTags+    , vVolumeId+    , vVolumeType++    -- * Reservation+    , Reservation+    , reservation+    , rGroups+    , rInstances+    , rOwnerId+    , rRequesterId+    , rReservationId++    -- * ImportInstanceVolumeDetailItem+    , ImportInstanceVolumeDetailItem+    , importInstanceVolumeDetailItem+    , iivdiAvailabilityZone+    , iivdiBytesConverted+    , iivdiDescription+    , iivdiImage+    , iivdiStatus+    , iivdiStatusMessage+    , iivdiVolume++    -- * SummaryStatus+    , SummaryStatus (..)++    -- * ReservedInstancesModification+    , ReservedInstancesModification+    , reservedInstancesModification+    , rimClientToken+    , rimCreateDate+    , rimEffectiveDate+    , rimModificationResults+    , rimReservedInstancesIds+    , rimReservedInstancesModificationId+    , rimStatus+    , rimStatusMessage+    , rimUpdateDate++    -- * RuleAction+    , RuleAction (..)++    -- * NetworkInterface+    , NetworkInterface+    , networkInterface+    , niAssociation+    , niAttachment+    , niAvailabilityZone+    , niDescription+    , niGroups+    , niMacAddress+    , niNetworkInterfaceId+    , niOwnerId+    , niPrivateDnsName+    , niPrivateIpAddress+    , niPrivateIpAddresses+    , niRequesterId+    , niRequesterManaged+    , niSourceDestCheck+    , niStatus+    , niSubnetId+    , niTagSet+    , niVpcId++    -- * TelemetryStatus+    , TelemetryStatus (..)++    -- * Subnet+    , Subnet+    , subnet+    , s1AvailabilityZone+    , s1AvailableIpAddressCount+    , s1CidrBlock+    , s1DefaultForAz+    , s1MapPublicIpOnLaunch+    , s1State+    , s1SubnetId+    , s1Tags+    , s1VpcId++    -- * KeyPairInfo+    , KeyPairInfo+    , keyPairInfo+    , kpiKeyFingerprint+    , kpiKeyName++    -- * LaunchPermissionModifications+    , LaunchPermissionModifications+    , launchPermissionModifications+    , lpmAdd+    , lpmRemove++    -- * SnapshotState+    , SnapshotState (..)++    -- * InstanceNetworkInterfaceAssociation+    , InstanceNetworkInterfaceAssociation+    , instanceNetworkInterfaceAssociation+    , iniaIpOwnerId+    , iniaPublicDnsName+    , iniaPublicIp++    -- * DiskImageDetail+    , DiskImageDetail+    , diskImageDetail+    , didBytes+    , didFormat+    , didImportManifestUrl++    -- * InstancePrivateIpAddress+    , InstancePrivateIpAddress+    , instancePrivateIpAddress+    , ipiaAssociation+    , ipiaPrimary+    , ipiaPrivateDnsName+    , ipiaPrivateIpAddress++    -- * CancelledSpotInstanceRequest+    , CancelledSpotInstanceRequest+    , cancelledSpotInstanceRequest+    , csiSpotInstanceRequestId+    , csiState++    -- * VpnConnectionOptionsSpecification+    , VpnConnectionOptionsSpecification+    , vpnConnectionOptionsSpecification+    , vcosStaticRoutesOnly++    -- * Address+    , Address+    , address+    , aAllocationId+    , aAssociationId+    , aDomain+    , aInstanceId+    , aNetworkInterfaceId+    , aNetworkInterfaceOwnerId+    , aPrivateIpAddress+    , aPublicIp++    -- * VolumeAttachmentState+    , VolumeAttachmentState (..)++    -- * LaunchPermission+    , LaunchPermission+    , launchPermission+    , lpGroup+    , lpUserId++    -- * RouteState+    , RouteState (..)++    -- * RouteTableAssociation+    , RouteTableAssociation+    , routeTableAssociation+    , rtaMain+    , rtaRouteTableAssociationId+    , rtaRouteTableId+    , rtaSubnetId++    -- * BundleTaskState+    , BundleTaskState (..)++    -- * PortRange+    , PortRange+    , portRange+    , prFrom+    , prTo++    -- * VpcAttributeName+    , VpcAttributeName (..)++    -- * ReservedInstancesConfiguration+    , ReservedInstancesConfiguration+    , reservedInstancesConfiguration+    , ricAvailabilityZone+    , ricInstanceCount+    , ricInstanceType+    , ricPlatform++    -- * VolumeStatusDetails+    , VolumeStatusDetails+    , volumeStatusDetails+    , vsdName+    , vsdStatus++    -- * SpotInstanceState+    , SpotInstanceState (..)++    -- * VpnConnectionOptions+    , VpnConnectionOptions+    , vpnConnectionOptions+    , vcoStaticRoutesOnly++    -- * UserIdGroupPair+    , UserIdGroupPair+    , userIdGroupPair+    , uigpGroupId+    , uigpGroupName+    , uigpUserId++    -- * InstanceStatusSummary+    , InstanceStatusSummary+    , instanceStatusSummary+    , issDetails+    , issStatus++    -- * SpotPlacement+    , SpotPlacement+    , spotPlacement+    , sp1AvailabilityZone+    , sp1GroupName++    -- * EbsInstanceBlockDeviceSpecification+    , EbsInstanceBlockDeviceSpecification+    , ebsInstanceBlockDeviceSpecification+    , eibdsDeleteOnTermination+    , eibdsVolumeId++    -- * NetworkAclAssociation+    , NetworkAclAssociation+    , networkAclAssociation+    , naaNetworkAclAssociationId+    , naaNetworkAclId+    , naaSubnetId++    -- * BundleTask+    , BundleTask+    , bundleTask+    , btBundleId+    , btBundleTaskError+    , btInstanceId+    , btProgress+    , btStartTime+    , btState+    , btStorage+    , btUpdateTime++    -- * InstanceStatusEvent+    , InstanceStatusEvent+    , instanceStatusEvent+    , iseCode+    , iseDescription+    , iseNotAfter+    , iseNotBefore++    -- * InstanceType+    , InstanceType (..)++    -- * Route+    , Route+    , route+    , rDestinationCidrBlock+    , rGatewayId+    , rInstanceId+    , rInstanceOwnerId+    , rNetworkInterfaceId+    , rOrigin+    , rState+    , rVpcPeeringConnectionId++    -- * SpotDatafeedSubscription+    , SpotDatafeedSubscription+    , spotDatafeedSubscription+    , sdsBucket+    , sdsFault+    , sdsOwnerId+    , sdsPrefix+    , sdsState++    -- * Storage+    , Storage+    , storage+    , sS3++    -- * SecurityGroup+    , SecurityGroup+    , securityGroup+    , sgDescription+    , sgGroupId+    , sgGroupName+    , sgIpPermissions+    , sgIpPermissionsEgress+    , sgOwnerId+    , sgTags+    , sgVpcId++    -- * CancelSpotInstanceRequestState+    , CancelSpotInstanceRequestState (..)++    -- * PlacementGroupState+    , PlacementGroupState (..)++    -- * ReservedInstancesModificationResult+    , ReservedInstancesModificationResult+    , reservedInstancesModificationResult+    , rimrReservedInstancesId+    , rimrTargetConfiguration++    -- * InstanceBlockDeviceMappingSpecification+    , InstanceBlockDeviceMappingSpecification+    , instanceBlockDeviceMappingSpecification+    , ibdmsDeviceName+    , ibdmsEbs+    , ibdmsNoDevice+    , ibdmsVirtualName++    -- * ExportEnvironment+    , ExportEnvironment (..)++    -- * VolumeAttachment+    , VolumeAttachment+    , volumeAttachment+    , vaAttachTime+    , vaDeleteOnTermination+    , vaDevice+    , vaInstanceId+    , vaState+    , vaVolumeId++    -- * CustomerGateway+    , CustomerGateway+    , customerGateway+    , cgBgpAsn+    , cgCustomerGatewayId+    , cgIpAddress+    , cgState+    , cgTags+    , cgType++    -- * EbsInstanceBlockDevice+    , EbsInstanceBlockDevice+    , ebsInstanceBlockDevice+    , eibdAttachTime+    , eibdDeleteOnTermination+    , eibdStatus+    , eibdVolumeId++    -- * ShutdownBehavior+    , ShutdownBehavior (..)++    -- * DiskImageDescription+    , DiskImageDescription+    , diskImageDescription+    , did1Checksum+    , did1Format+    , did1ImportManifestUrl+    , did1Size++    -- * DiskImageVolumeDescription+    , DiskImageVolumeDescription+    , diskImageVolumeDescription+    , divdId+    , divdSize++    -- * Monitoring+    , Monitoring+    , monitoring+    , mState++    -- * SubnetState+    , SubnetState (..)++    -- * ContainerFormat+    , ContainerFormat (..)++    -- * AvailabilityZoneMessage+    , AvailabilityZoneMessage+    , availabilityZoneMessage+    , azmMessage++    -- * VpcAttachment+    , VpcAttachment+    , vpcAttachment+    , va1State+    , va1VpcId++    -- * InstanceBlockDeviceMapping+    , InstanceBlockDeviceMapping+    , instanceBlockDeviceMapping+    , ibdmDeviceName+    , ibdmEbs++    -- * StatusType+    , StatusType (..)++    -- * ExportToS3TaskSpecification+    , ExportToS3TaskSpecification+    , exportToS3TaskSpecification+    , etstsContainerFormat+    , etstsDiskImageFormat+    , etstsS3Bucket+    , etstsS3Prefix++    -- * NetworkInterfaceAttribute+    , NetworkInterfaceAttribute (..)++    -- * ImageTypeValues+    , ImageTypeValues (..)++    -- * InstanceExportDetails+    , InstanceExportDetails+    , instanceExportDetails+    , iedInstanceId+    , iedTargetEnvironment++    -- * SnapshotAttributeName+    , SnapshotAttributeName (..)++    -- * AvailabilityZone+    , AvailabilityZone+    , availabilityZone+    , azMessages+    , azRegionName+    , azState+    , azZoneName++    -- * VpnState+    , VpnState (..)++    -- * RouteTable+    , RouteTable+    , routeTable+    , rtAssociations+    , rtPropagatingVgws+    , rtRouteTableId+    , rtRoutes+    , rtTags+    , rtVpcId++    -- * HypervisorType+    , HypervisorType (..)++    -- * InstanceStatusDetails+    , InstanceStatusDetails+    , instanceStatusDetails+    , isdImpairedSince+    , isdName+    , isdStatus++    -- * IamInstanceProfile+    , IamInstanceProfile+    , iamInstanceProfile+    , iipArn+    , iipId++    -- * InternetGatewayAttachment+    , InternetGatewayAttachment+    , internetGatewayAttachment+    , igaState+    , igaVpcId++    -- * ReservedInstanceState+    , ReservedInstanceState (..)++    -- * InstanceAttributeName+    , InstanceAttributeName (..)++    -- * IpPermission+    , IpPermission+    , ipPermission+    , ipFromPort+    , ipIpProtocol+    , ipIpRanges+    , ipToPort+    , ipUserIdGroupPairs++    -- * ConversionTaskState+    , ConversionTaskState (..)++    -- * DiskImage+    , DiskImage+    , diskImage+    , diDescription+    , diImage+    , diVolume++    -- * Tenancy+    , Tenancy (..)++    -- * VpcPeeringConnectionStateReason+    , VpcPeeringConnectionStateReason+    , vpcPeeringConnectionStateReason+    , vpcsrCode+    , vpcsrMessage++    -- * IamInstanceProfileSpecification+    , IamInstanceProfileSpecification+    , iamInstanceProfileSpecification+    , iipsArn+    , iipsName++    -- * ImportVolumeTaskDetails+    , ImportVolumeTaskDetails+    , importVolumeTaskDetails+    , ivtdAvailabilityZone+    , ivtdBytesConverted+    , ivtdDescription+    , ivtdImage+    , ivtdVolume++    -- * PlacementStrategy+    , PlacementStrategy (..)++    -- * InstanceNetworkInterface+    , InstanceNetworkInterface+    , instanceNetworkInterface+    , iniAssociation+    , iniAttachment+    , iniDescription+    , iniGroups+    , iniMacAddress+    , iniNetworkInterfaceId+    , iniOwnerId+    , iniPrivateDnsName+    , iniPrivateIpAddress+    , iniPrivateIpAddresses+    , iniSourceDestCheck+    , iniStatus+    , iniSubnetId+    , iniVpcId++    -- * VolumeStatusAction+    , VolumeStatusAction+    , volumeStatusAction+    , vsaCode+    , vsaDescription+    , vsaEventId+    , vsaEventType++    -- * VpcPeeringConnectionVpcInfo+    , VpcPeeringConnectionVpcInfo+    , vpcPeeringConnectionVpcInfo+    , vpcviCidrBlock+    , vpcviOwnerId+    , vpcviVpcId++    -- * ReservedInstanceLimitPrice+    , ReservedInstanceLimitPrice+    , reservedInstanceLimitPrice+    , rilpAmount+    , rilpCurrencyCode++    -- * Vpc+    , Vpc+    , vpc+    , vpcCidrBlock+    , vpcDhcpOptionsId+    , vpcInstanceTenancy+    , vpcIsDefault+    , vpcState+    , vpcTags+    , vpcVpcId++    -- * InstanceStatus+    , InstanceStatus+    , instanceStatus+    , isAvailabilityZone+    , isEvents+    , isInstanceId+    , isInstanceState+    , isInstanceStatus+    , isSystemStatus++    -- * ArchitectureValues+    , ArchitectureValues (..)++    -- * ReportInstanceReasonCodes+    , ReportInstanceReasonCodes (..)++    -- * EbsBlockDevice+    , EbsBlockDevice+    , ebsBlockDevice+    , ebdDeleteOnTermination+    , ebdEncrypted+    , ebdIops+    , ebdSnapshotId+    , ebdVolumeSize+    , ebdVolumeType++    -- * AccountAttribute+    , AccountAttribute+    , accountAttribute+    , aaAttributeName+    , aaAttributeValues++    -- * PriceSchedule+    , PriceSchedule+    , priceSchedule+    , psActive+    , psCurrencyCode+    , psPrice+    , psTerm++    -- * DeviceType+    , DeviceType (..)++    -- * DomainType+    , DomainType (..)++    -- * Region+    , Region+    , region+    , rEndpoint+    , rRegionName++    -- * PropagatingVgw+    , PropagatingVgw+    , propagatingVgw+    , pvGatewayId++    -- * OfferingTypeValues+    , OfferingTypeValues (..)++    -- * VpnGateway+    , VpnGateway+    , vpnGateway+    , vgAvailabilityZone+    , vgState+    , vgTags+    , vgType+    , vgVpcAttachments+    , vgVpnGatewayId++    -- * Filter+    , Filter+    , filter'+    , fName+    , fValues++    -- * VolumeType+    , VolumeType (..)++    -- * InstanceStateChange+    , InstanceStateChange+    , instanceStateChange+    , iscCurrentState+    , iscInstanceId+    , iscPreviousState++    -- * NetworkAcl+    , NetworkAcl+    , networkAcl+    , naAssociations+    , naEntries+    , naIsDefault+    , naNetworkAclId+    , naTags+    , naVpcId++    -- * ImageState+    , ImageState (..)++    -- * GatewayType+    , GatewayType (..)++    -- * InstanceNetworkInterfaceAttachment+    , InstanceNetworkInterfaceAttachment+    , instanceNetworkInterfaceAttachment+    , iniaAttachTime+    , iniaAttachmentId+    , iniaDeleteOnTermination+    , iniaDeviceIndex+    , iniaStatus++    -- * AttributeBooleanValue+    , AttributeBooleanValue+    , attributeBooleanValue+    , abvValue++    -- * RecurringCharge+    , RecurringCharge+    , recurringCharge+    , rcAmount+    , rcFrequency++    -- * NewDhcpConfiguration+    , NewDhcpConfiguration+    , newDhcpConfiguration+    , ndcKey+    , ndcValues++    -- * StateReason+    , StateReason+    , stateReason+    , srCode+    , srMessage++    -- * MonitoringState+    , MonitoringState (..)++    -- * ReservedInstancesId+    , ReservedInstancesId+    , reservedInstancesId+    , riiReservedInstancesId++    -- * StatusName+    , StatusName (..)++    -- * InternetGateway+    , InternetGateway+    , internetGateway+    , igAttachments+    , igInternetGatewayId+    , igTags++    -- * VolumeStatusName+    , VolumeStatusName (..)++    -- * VolumeAttributeName+    , VolumeAttributeName (..)++    -- * ImportInstanceTaskDetails+    , ImportInstanceTaskDetails+    , importInstanceTaskDetails+    , iitdDescription+    , iitdInstanceId+    , iitdPlatform+    , iitdVolumes++    -- * PlacementGroup+    , PlacementGroup+    , placementGroup+    , pgGroupName+    , pgState+    , pgStrategy++    -- * ProductCode+    , ProductCode+    , productCode+    , pcProductCodeId+    , pcProductCodeType++    -- * ListingStatus+    , ListingStatus (..)++    -- * IpRange+    , IpRange+    , ipRange+    , irCidrIp++    -- * VolumeStatusInfoStatus+    , VolumeStatusInfoStatus (..)++    -- * AccountAttributeValue+    , AccountAttributeValue+    , accountAttributeValue+    , aavAttributeValue++    -- * RIProductDescription+    , RIProductDescription (..)++    -- * ReservedInstancesOffering+    , ReservedInstancesOffering+    , reservedInstancesOffering+    , rioAvailabilityZone+    , rioCurrencyCode+    , rioDuration+    , rioFixedPrice+    , rioInstanceTenancy+    , rioInstanceType+    , rioMarketplace+    , rioOfferingType+    , rioPricingDetails+    , rioProductDescription+    , rioRecurringCharges+    , rioReservedInstancesOfferingId+    , rioUsagePrice++    -- * ReservedInstances+    , ReservedInstances+    , reservedInstances+    , ri1AvailabilityZone+    , ri1CurrencyCode+    , ri1Duration+    , ri1End+    , ri1FixedPrice+    , ri1InstanceCount+    , ri1InstanceTenancy+    , ri1InstanceType+    , ri1OfferingType+    , ri1ProductDescription+    , ri1RecurringCharges+    , ri1ReservedInstancesId+    , ri1Start+    , ri1State+    , ri1Tags+    , ri1UsagePrice++    -- * DatafeedSubscriptionState+    , DatafeedSubscriptionState (..)++    -- * ExportTaskState+    , ExportTaskState (..)++    -- * ProductCodeValues+    , ProductCodeValues (..)++    -- * VpnConnection+    , VpnConnection+    , vpnConnection+    , vcCustomerGatewayConfiguration+    , vcCustomerGatewayId+    , vcOptions+    , vcRoutes+    , vcState+    , vcTags+    , vcType+    , vcVgwTelemetry+    , vcVpnConnectionId+    , vcVpnGatewayId++    -- * InstanceState+    , InstanceState+    , instanceState+    , isCode+    , isName++    -- * Placement+    , Placement+    , placement+    , pAvailabilityZone+    , pGroupName+    , pTenancy++    -- * EventCode+    , EventCode (..)++    -- * SpotInstanceType+    , SpotInstanceType (..)++    -- * VpcPeeringConnection+    , VpcPeeringConnection+    , vpcPeeringConnection+    , vpc1AccepterVpcInfo+    , vpc1ExpirationTime+    , vpc1RequesterVpcInfo+    , vpc1Status+    , vpc1Tags+    , vpc1VpcPeeringConnectionId++    -- * S3Storage+    , S3Storage+    , s3Storage+    , ssAWSAccessKeyId+    , ssBucket+    , ssPrefix+    , ssUploadPolicy+    , ssUploadPolicySignature++    -- * VgwTelemetry+    , VgwTelemetry+    , vgwTelemetry+    , vtAcceptedRouteCount+    , vtLastStatusChange+    , vtOutsideIpAddress+    , vtStatus+    , vtStatusMessage++    -- * VpnStaticRoute+    , VpnStaticRoute+    , vpnStaticRoute+    , vsrDestinationCidrBlock+    , vsrSource+    , vsrState++    -- * InstanceStateName+    , InstanceStateName (..)++    -- * Instance+    , Instance+    , instance'+    , i1AmiLaunchIndex+    , i1Architecture+    , i1BlockDeviceMappings+    , i1ClientToken+    , i1EbsOptimized+    , i1Hypervisor+    , i1IamInstanceProfile+    , i1ImageId+    , i1InstanceId+    , i1InstanceLifecycle+    , i1InstanceType+    , i1KernelId+    , i1KeyName+    , i1LaunchTime+    , i1Monitoring+    , i1NetworkInterfaces+    , i1Placement+    , i1Platform+    , i1PrivateDnsName+    , i1PrivateIpAddress+    , i1ProductCodes+    , i1PublicDnsName+    , i1PublicIpAddress+    , i1RamdiskId+    , i1RootDeviceName+    , i1RootDeviceType+    , i1SecurityGroups+    , i1SourceDestCheck+    , i1SpotInstanceRequestId+    , i1SriovNetSupport+    , i1State+    , i1StateReason+    , i1StateTransitionReason+    , i1SubnetId+    , i1Tags+    , i1VirtualizationType+    , i1VpcId++    -- * ExportTask+    , ExportTask+    , exportTask+    , etDescription+    , etExportTaskId+    , etExportToS3Task+    , etInstanceExportDetails+    , etState+    , etStatusMessage++    -- * ResetImageAttributeName+    , ResetImageAttributeName (..)++    -- * RequestSpotLaunchSpecification+    , RequestSpotLaunchSpecification+    , requestSpotLaunchSpecification+    , rslsAddressingType+    , rslsBlockDeviceMappings+    , rslsEbsOptimized+    , rslsIamInstanceProfile+    , rslsImageId+    , rslsInstanceType+    , rslsKernelId+    , rslsKeyName+    , rslsMonitoring+    , rslsNetworkInterfaces+    , rslsPlacement+    , rslsRamdiskId+    , rslsSecurityGroupIds+    , rslsSecurityGroups+    , rslsSubnetId+    , rslsUserData++    -- * VolumeDetail+    , VolumeDetail+    , volumeDetail+    , vdSize++    -- * PricingDetail+    , PricingDetail+    , pricingDetail+    , pdCount+    , pdPrice++    -- * NetworkInterfacePrivateIpAddress+    , NetworkInterfacePrivateIpAddress+    , networkInterfacePrivateIpAddress+    , nipiaAssociation+    , nipiaPrimary+    , nipiaPrivateDnsName+    , nipiaPrivateIpAddress++    -- * DiskImageFormat+    , DiskImageFormat (..)++    -- * BundleTaskError+    , BundleTaskError+    , bundleTaskError+    , bteCode+    , bteMessage++    -- * VolumeStatusItem+    , VolumeStatusItem+    , volumeStatusItem+    , vsiActions+    , vsiAvailabilityZone+    , vsiEvents+    , vsiVolumeId+    , vsiVolumeStatus++    -- * Common+    , module Network.AWS.EC2.Internal+    ) where++import Network.AWS.Error+import Network.AWS.Prelude+import Network.AWS.Signing.V4+import Network.AWS.EC2.Internal+import qualified GHC.Exts++-- | Version @2014-09-01@ of the Amazon Elastic Compute Cloud service.+data EC2++instance AWSService EC2 where+    type Sg EC2 = V4+    type Er EC2 = RESTError++    service = Service+        { _svcEndpoint     = regional+        , _svcAbbrev       = "EC2"+        , _svcPrefix       = "ec2"+        , _svcVersion      = "2014-09-01"+        , _svcTargetPrefix = Nothing+        , _svcJSONVersion  = Nothing+        }++    handle = restError statusSuccess++ns :: Text+ns = "http://ec2.amazonaws.com/doc/2014-09-01"++data ImageAttributeName+    = ImageBlockDeviceMapping -- ^ blockDeviceMapping+    | ImageDescription        -- ^ description+    | ImageKernel             -- ^ kernel+    | ImageLaunchPermission   -- ^ launchPermission+    | ImageProductCodes       -- ^ productCodes+    | ImageRamdisk            -- ^ ramdisk+      deriving (Eq, Ord, Show, Generic, Enum)++instance Hashable ImageAttributeName++instance FromText ImageAttributeName where+    parser = match "blockDeviceMapping" ImageBlockDeviceMapping+         <|> match "description"        ImageDescription+         <|> match "kernel"             ImageKernel+         <|> match "launchPermission"   ImageLaunchPermission+         <|> match "productCodes"       ImageProductCodes+         <|> match "ramdisk"            ImageRamdisk++instance ToText ImageAttributeName where+    toText = \case+        ImageBlockDeviceMapping -> "blockDeviceMapping"+        ImageDescription        -> "description"+        ImageKernel             -> "kernel"+        ImageLaunchPermission   -> "launchPermission"+        ImageProductCodes       -> "productCodes"+        ImageRamdisk            -> "ramdisk"++instance FromXML ImageAttributeName where+    parseXML = parseXMLText "ImageAttributeName"++instance ToQuery ImageAttributeName where+    toQuery = toQuery . toText++data PermissionGroup+    = All -- ^ all+      deriving (Eq, Ord, Show, Generic, Enum)++instance Hashable PermissionGroup++instance FromText PermissionGroup where+    parser = match "all" All++instance ToText PermissionGroup where+    toText All = "all"++instance FromXML PermissionGroup where+    parseXML = parseXMLText "PermissionGroup"++instance ToQuery PermissionGroup where+    toQuery = toQuery . toText++data NetworkAclEntry = NetworkAclEntry+    { _naeCidrBlock    :: Maybe Text+    , _naeEgress       :: Maybe Bool+    , _naeIcmpTypeCode :: Maybe IcmpTypeCode+    , _naePortRange    :: Maybe PortRange+    , _naeProtocol     :: Maybe Text+    , _naeRuleAction   :: Maybe Text+    , _naeRuleNumber   :: Maybe Int+    } deriving (Eq, Show)++-- | 'NetworkAclEntry' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'naeCidrBlock' @::@ 'Maybe' 'Text'+--+-- * 'naeEgress' @::@ 'Maybe' 'Bool'+--+-- * 'naeIcmpTypeCode' @::@ 'Maybe' 'IcmpTypeCode'+--+-- * 'naePortRange' @::@ 'Maybe' 'PortRange'+--+-- * 'naeProtocol' @::@ 'Maybe' 'Text'+--+-- * 'naeRuleAction' @::@ 'Maybe' 'Text'+--+-- * 'naeRuleNumber' @::@ 'Maybe' 'Int'+--+networkAclEntry :: NetworkAclEntry+networkAclEntry = NetworkAclEntry+    { _naeRuleNumber   = Nothing+    , _naeProtocol     = Nothing+    , _naeRuleAction   = Nothing+    , _naeEgress       = Nothing+    , _naeCidrBlock    = Nothing+    , _naeIcmpTypeCode = Nothing+    , _naePortRange    = Nothing+    }++-- | The network range to allow or deny, in CIDR notation.+naeCidrBlock :: Lens' NetworkAclEntry (Maybe Text)+naeCidrBlock = lens _naeCidrBlock (\s a -> s { _naeCidrBlock = a })++-- | Indicates whether the rule is an egress rule (applied to traffic leaving+-- the subnet).+naeEgress :: Lens' NetworkAclEntry (Maybe Bool)+naeEgress = lens _naeEgress (\s a -> s { _naeEgress = a })++-- | ICMP protocol: The ICMP type and code.+naeIcmpTypeCode :: Lens' NetworkAclEntry (Maybe IcmpTypeCode)+naeIcmpTypeCode = lens _naeIcmpTypeCode (\s a -> s { _naeIcmpTypeCode = a })++-- | TCP or UDP protocols: The range of ports the rule applies to.+naePortRange :: Lens' NetworkAclEntry (Maybe PortRange)+naePortRange = lens _naePortRange (\s a -> s { _naePortRange = a })++-- | The protocol. A value of -1 means all protocols.+naeProtocol :: Lens' NetworkAclEntry (Maybe Text)+naeProtocol = lens _naeProtocol (\s a -> s { _naeProtocol = a })++-- | Indicates whether to allow or deny the traffic that matches the rule.+naeRuleAction :: Lens' NetworkAclEntry (Maybe Text)+naeRuleAction = lens _naeRuleAction (\s a -> s { _naeRuleAction = a })++-- | The rule number for the entry. ACL entries are processed in ascending+-- order by rule number.+naeRuleNumber :: Lens' NetworkAclEntry (Maybe Int)+naeRuleNumber = lens _naeRuleNumber (\s a -> s { _naeRuleNumber = a })++instance FromXML NetworkAclEntry where+    parseXML x = NetworkAclEntry+        <$> x .@? "cidrBlock"+        <*> x .@? "egress"+        <*> x .@? "icmpTypeCode"+        <*> x .@? "portRange"+        <*> x .@? "protocol"+        <*> x .@? "ruleAction"+        <*> x .@? "ruleNumber"++instance ToQuery NetworkAclEntry where+    toQuery NetworkAclEntry{..} = mconcat+        [ "cidrBlock"    =? _naeCidrBlock+        , "egress"       =? _naeEgress+        , "icmpTypeCode" =? _naeIcmpTypeCode+        , "portRange"    =? _naePortRange+        , "protocol"     =? _naeProtocol+        , "ruleAction"   =? _naeRuleAction+        , "ruleNumber"   =? _naeRuleNumber+        ]++newtype BlobAttributeValue = BlobAttributeValue+    { _bavValue :: Maybe Base64+    } deriving (Eq, Show)++-- | 'BlobAttributeValue' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'bavValue' @::@ 'Maybe' 'Base64'+--+blobAttributeValue :: BlobAttributeValue+blobAttributeValue = BlobAttributeValue+    { _bavValue = Nothing+    }++bavValue :: Lens' BlobAttributeValue (Maybe Base64)+bavValue = lens _bavValue (\s a -> s { _bavValue = a })++instance FromXML BlobAttributeValue where+    parseXML x = BlobAttributeValue+        <$> x .@? "value"++instance ToQuery BlobAttributeValue where+    toQuery BlobAttributeValue{..} = mconcat+        [ "value" =? _bavValue+        ]++data ImportInstanceLaunchSpecification = ImportInstanceLaunchSpecification+    { _iilsAdditionalInfo                    :: Maybe Text+    , _iilsArchitecture                      :: Maybe Text+    , _iilsGroupIds                          :: List "SecurityGroupId" Text+    , _iilsGroupNames                        :: List "SecurityGroup" Text+    , _iilsInstanceInitiatedShutdownBehavior :: Maybe Text+    , _iilsInstanceType                      :: Maybe Text+    , _iilsMonitoring                        :: Maybe Bool+    , _iilsPlacement                         :: Maybe Placement+    , _iilsPrivateIpAddress                  :: Maybe Text+    , _iilsSubnetId                          :: Maybe Text+    , _iilsUserData                          :: Maybe Text+    } deriving (Eq, Show)++-- | 'ImportInstanceLaunchSpecification' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'iilsAdditionalInfo' @::@ 'Maybe' 'Text'+--+-- * 'iilsArchitecture' @::@ 'Maybe' 'Text'+--+-- * 'iilsGroupIds' @::@ ['Text']+--+-- * 'iilsGroupNames' @::@ ['Text']+--+-- * 'iilsInstanceInitiatedShutdownBehavior' @::@ 'Maybe' 'Text'+--+-- * 'iilsInstanceType' @::@ 'Maybe' 'Text'+--+-- * 'iilsMonitoring' @::@ 'Maybe' 'Bool'+--+-- * 'iilsPlacement' @::@ 'Maybe' 'Placement'+--+-- * 'iilsPrivateIpAddress' @::@ 'Maybe' 'Text'+--+-- * 'iilsSubnetId' @::@ 'Maybe' 'Text'+--+-- * 'iilsUserData' @::@ 'Maybe' 'Text'+--+importInstanceLaunchSpecification :: ImportInstanceLaunchSpecification+importInstanceLaunchSpecification = ImportInstanceLaunchSpecification+    { _iilsArchitecture                      = Nothing+    , _iilsGroupNames                        = mempty+    , _iilsGroupIds                          = mempty+    , _iilsAdditionalInfo                    = Nothing+    , _iilsUserData                          = Nothing+    , _iilsInstanceType                      = Nothing+    , _iilsPlacement                         = Nothing+    , _iilsMonitoring                        = Nothing+    , _iilsSubnetId                          = Nothing+    , _iilsInstanceInitiatedShutdownBehavior = Nothing+    , _iilsPrivateIpAddress                  = Nothing+    }++iilsAdditionalInfo :: Lens' ImportInstanceLaunchSpecification (Maybe Text)+iilsAdditionalInfo =+    lens _iilsAdditionalInfo (\s a -> s { _iilsAdditionalInfo = a })++-- | The architecture of the instance.+iilsArchitecture :: Lens' ImportInstanceLaunchSpecification (Maybe Text)+iilsArchitecture = lens _iilsArchitecture (\s a -> s { _iilsArchitecture = a })++iilsGroupIds :: Lens' ImportInstanceLaunchSpecification [Text]+iilsGroupIds = lens _iilsGroupIds (\s a -> s { _iilsGroupIds = a }) . _List++-- | One or more security group names.+iilsGroupNames :: Lens' ImportInstanceLaunchSpecification [Text]+iilsGroupNames = lens _iilsGroupNames (\s a -> s { _iilsGroupNames = a }) . _List++-- | Indicates whether an instance stops or terminates when you initiate+-- shutdown from the instance (using the operating system command for system+-- shutdown).+iilsInstanceInitiatedShutdownBehavior :: Lens' ImportInstanceLaunchSpecification (Maybe Text)+iilsInstanceInitiatedShutdownBehavior =+    lens _iilsInstanceInitiatedShutdownBehavior+        (\s a -> s { _iilsInstanceInitiatedShutdownBehavior = a })++-- | The instance type. For more information, see Instance Types in the Amazon+-- Elastic Compute Cloud User Guide.+iilsInstanceType :: Lens' ImportInstanceLaunchSpecification (Maybe Text)+iilsInstanceType = lens _iilsInstanceType (\s a -> s { _iilsInstanceType = a })++iilsMonitoring :: Lens' ImportInstanceLaunchSpecification (Maybe Bool)+iilsMonitoring = lens _iilsMonitoring (\s a -> s { _iilsMonitoring = a })++iilsPlacement :: Lens' ImportInstanceLaunchSpecification (Maybe Placement)+iilsPlacement = lens _iilsPlacement (\s a -> s { _iilsPlacement = a })++-- | [EC2-VPC] Optionally, you can use this parameter to assign the instance a+-- specific available IP address from the IP address range of the subnet.+iilsPrivateIpAddress :: Lens' ImportInstanceLaunchSpecification (Maybe Text)+iilsPrivateIpAddress =+    lens _iilsPrivateIpAddress (\s a -> s { _iilsPrivateIpAddress = a })++-- | [EC2-VPC] The ID of the subnet to launch the instance into.+iilsSubnetId :: Lens' ImportInstanceLaunchSpecification (Maybe Text)+iilsSubnetId = lens _iilsSubnetId (\s a -> s { _iilsSubnetId = a })++-- | User data to be made available to the instance.+iilsUserData :: Lens' ImportInstanceLaunchSpecification (Maybe Text)+iilsUserData = lens _iilsUserData (\s a -> s { _iilsUserData = a })++instance FromXML ImportInstanceLaunchSpecification where+    parseXML x = ImportInstanceLaunchSpecification+        <$> x .@? "additionalInfo"+        <*> x .@? "architecture"+        <*> x .@  "GroupId"+        <*> x .@  "GroupName"+        <*> x .@? "instanceInitiatedShutdownBehavior"+        <*> x .@? "instanceType"+        <*> x .@? "monitoring"+        <*> x .@? "placement"+        <*> x .@? "privateIpAddress"+        <*> x .@? "subnetId"+        <*> x .@? "userData"++instance ToQuery ImportInstanceLaunchSpecification where+    toQuery ImportInstanceLaunchSpecification{..} = mconcat+        [ "additionalInfo"                    =? _iilsAdditionalInfo+        , "architecture"                      =? _iilsArchitecture+        , "GroupId"                           =? _iilsGroupIds+        , "GroupName"                         =? _iilsGroupNames+        , "instanceInitiatedShutdownBehavior" =? _iilsInstanceInitiatedShutdownBehavior+        , "instanceType"                      =? _iilsInstanceType+        , "monitoring"                        =? _iilsMonitoring+        , "placement"                         =? _iilsPlacement+        , "privateIpAddress"                  =? _iilsPrivateIpAddress+        , "subnetId"                          =? _iilsSubnetId+        , "userData"                          =? _iilsUserData+        ]++data Snapshot = Snapshot+    { _sDescription :: Maybe Text+    , _sEncrypted   :: Maybe Bool+    , _sOwnerAlias  :: Maybe Text+    , _sOwnerId     :: Maybe Text+    , _sProgress    :: Maybe Text+    , _sSnapshotId  :: Maybe Text+    , _sStartTime   :: Maybe RFC822+    , _sState       :: Maybe Text+    , _sTags        :: List "item" Tag+    , _sVolumeId    :: Maybe Text+    , _sVolumeSize  :: Maybe Int+    } deriving (Eq, Show)++-- | 'Snapshot' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'sDescription' @::@ 'Maybe' 'Text'+--+-- * 'sEncrypted' @::@ 'Maybe' 'Bool'+--+-- * 'sOwnerAlias' @::@ 'Maybe' 'Text'+--+-- * 'sOwnerId' @::@ 'Maybe' 'Text'+--+-- * 'sProgress' @::@ 'Maybe' 'Text'+--+-- * 'sSnapshotId' @::@ 'Maybe' 'Text'+--+-- * 'sStartTime' @::@ 'Maybe' 'UTCTime'+--+-- * 'sState' @::@ 'Maybe' 'Text'+--+-- * 'sTags' @::@ ['Tag']+--+-- * 'sVolumeId' @::@ 'Maybe' 'Text'+--+-- * 'sVolumeSize' @::@ 'Maybe' 'Int'+--+snapshot :: Snapshot+snapshot = Snapshot+    { _sSnapshotId  = Nothing+    , _sVolumeId    = Nothing+    , _sState       = Nothing+    , _sStartTime   = Nothing+    , _sProgress    = Nothing+    , _sOwnerId     = Nothing+    , _sDescription = Nothing+    , _sVolumeSize  = Nothing+    , _sOwnerAlias  = Nothing+    , _sTags        = mempty+    , _sEncrypted   = Nothing+    }++-- | The description for the snapshot.+sDescription :: Lens' Snapshot (Maybe Text)+sDescription = lens _sDescription (\s a -> s { _sDescription = a })++-- | Indicates whether the snapshot is encrypted.+sEncrypted :: Lens' Snapshot (Maybe Bool)+sEncrypted = lens _sEncrypted (\s a -> s { _sEncrypted = a })++-- | The AWS account alias (for example, amazon, self) or AWS account ID that+-- owns the snapshot.+sOwnerAlias :: Lens' Snapshot (Maybe Text)+sOwnerAlias = lens _sOwnerAlias (\s a -> s { _sOwnerAlias = a })++-- | The AWS account ID of the Amazon EBS snapshot owner.+sOwnerId :: Lens' Snapshot (Maybe Text)+sOwnerId = lens _sOwnerId (\s a -> s { _sOwnerId = a })++-- | The progress of the snapshot, as a percentage.+sProgress :: Lens' Snapshot (Maybe Text)+sProgress = lens _sProgress (\s a -> s { _sProgress = a })++-- | The ID of the snapshot.+sSnapshotId :: Lens' Snapshot (Maybe Text)+sSnapshotId = lens _sSnapshotId (\s a -> s { _sSnapshotId = a })++-- | The time stamp when the snapshot was initiated.+sStartTime :: Lens' Snapshot (Maybe UTCTime)+sStartTime = lens _sStartTime (\s a -> s { _sStartTime = a }) . mapping _Time++-- | The snapshot state.+sState :: Lens' Snapshot (Maybe Text)+sState = lens _sState (\s a -> s { _sState = a })++-- | Any tags assigned to the snapshot.+sTags :: Lens' Snapshot [Tag]+sTags = lens _sTags (\s a -> s { _sTags = a }) . _List++-- | The ID of the volume.+sVolumeId :: Lens' Snapshot (Maybe Text)+sVolumeId = lens _sVolumeId (\s a -> s { _sVolumeId = a })++-- | The size of the volume, in GiB.+sVolumeSize :: Lens' Snapshot (Maybe Int)+sVolumeSize = lens _sVolumeSize (\s a -> s { _sVolumeSize = a })++instance FromXML Snapshot where+    parseXML x = Snapshot+        <$> x .@? "description"+        <*> x .@? "encrypted"+        <*> x .@? "ownerAlias"+        <*> x .@? "ownerId"+        <*> x .@? "progress"+        <*> x .@? "snapshotId"+        <*> x .@? "startTime"+        <*> x .@? "status"+        <*> x .@  "tagSet"+        <*> x .@? "volumeId"+        <*> x .@? "volumeSize"++instance ToQuery Snapshot where+    toQuery Snapshot{..} = mconcat+        [ "description" =? _sDescription+        , "encrypted"   =? _sEncrypted+        , "ownerAlias"  =? _sOwnerAlias+        , "ownerId"     =? _sOwnerId+        , "progress"    =? _sProgress+        , "snapshotId"  =? _sSnapshotId+        , "startTime"   =? _sStartTime+        , "status"      =? _sState+        , "tagSet"      =? _sTags+        , "volumeId"    =? _sVolumeId+        , "volumeSize"  =? _sVolumeSize+        ]++data SpotInstanceStateFault = SpotInstanceStateFault+    { _sisfCode    :: Maybe Text+    , _sisfMessage :: Maybe Text+    } deriving (Eq, Ord, Show)++-- | 'SpotInstanceStateFault' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'sisfCode' @::@ 'Maybe' 'Text'+--+-- * 'sisfMessage' @::@ 'Maybe' 'Text'+--+spotInstanceStateFault :: SpotInstanceStateFault+spotInstanceStateFault = SpotInstanceStateFault+    { _sisfCode    = Nothing+    , _sisfMessage = Nothing+    }++-- | The reason code for the Spot Instance state change.+sisfCode :: Lens' SpotInstanceStateFault (Maybe Text)+sisfCode = lens _sisfCode (\s a -> s { _sisfCode = a })++-- | The message for the Spot Instance state change.+sisfMessage :: Lens' SpotInstanceStateFault (Maybe Text)+sisfMessage = lens _sisfMessage (\s a -> s { _sisfMessage = a })++instance FromXML SpotInstanceStateFault where+    parseXML x = SpotInstanceStateFault+        <$> x .@? "code"+        <*> x .@? "message"++instance ToQuery SpotInstanceStateFault where+    toQuery SpotInstanceStateFault{..} = mconcat+        [ "code"    =? _sisfCode+        , "message" =? _sisfMessage+        ]++data TagDescription = TagDescription+    { _tdKey          :: Text+    , _tdResourceId   :: Text+    , _tdResourceType :: Text+    , _tdValue        :: Text+    } deriving (Eq, Ord, Show)++-- | 'TagDescription' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'tdKey' @::@ 'Text'+--+-- * 'tdResourceId' @::@ 'Text'+--+-- * 'tdResourceType' @::@ 'Text'+--+-- * 'tdValue' @::@ 'Text'+--+tagDescription :: Text -- ^ 'tdResourceId'+               -> Text -- ^ 'tdResourceType'+               -> Text -- ^ 'tdKey'+               -> Text -- ^ 'tdValue'+               -> TagDescription+tagDescription p1 p2 p3 p4 = TagDescription+    { _tdResourceId   = p1+    , _tdResourceType = p2+    , _tdKey          = p3+    , _tdValue        = p4+    }++-- | The key of the tag.+tdKey :: Lens' TagDescription Text+tdKey = lens _tdKey (\s a -> s { _tdKey = a })++-- | The ID of the resource. For example, ami-1a2b3c4d.+tdResourceId :: Lens' TagDescription Text+tdResourceId = lens _tdResourceId (\s a -> s { _tdResourceId = a })++-- | The type of resource.+tdResourceType :: Lens' TagDescription Text+tdResourceType = lens _tdResourceType (\s a -> s { _tdResourceType = a })++-- | The value of the tag.+tdValue :: Lens' TagDescription Text+tdValue = lens _tdValue (\s a -> s { _tdValue = a })++instance FromXML TagDescription where+    parseXML x = TagDescription+        <$> x .@  "key"+        <*> x .@  "resourceId"+        <*> x .@  "resourceType"+        <*> x .@  "value"++instance ToQuery TagDescription where+    toQuery TagDescription{..} = mconcat+        [ "key"          =? _tdKey+        , "resourceId"   =? _tdResourceId+        , "resourceType" =? _tdResourceType+        , "value"        =? _tdValue+        ]++data GroupIdentifier = GroupIdentifier+    { _giGroupId   :: Maybe Text+    , _giGroupName :: Maybe Text+    } deriving (Eq, Ord, Show)++-- | 'GroupIdentifier' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'giGroupId' @::@ 'Maybe' 'Text'+--+-- * 'giGroupName' @::@ 'Maybe' 'Text'+--+groupIdentifier :: GroupIdentifier+groupIdentifier = GroupIdentifier+    { _giGroupName = Nothing+    , _giGroupId   = Nothing+    }++-- | The ID of the security group.+giGroupId :: Lens' GroupIdentifier (Maybe Text)+giGroupId = lens _giGroupId (\s a -> s { _giGroupId = a })++-- | The name of the security group.+giGroupName :: Lens' GroupIdentifier (Maybe Text)+giGroupName = lens _giGroupName (\s a -> s { _giGroupName = a })++instance FromXML GroupIdentifier where+    parseXML x = GroupIdentifier+        <$> x .@? "groupId"+        <*> x .@? "groupName"++instance ToQuery GroupIdentifier where+    toQuery GroupIdentifier{..} = mconcat+        [ "groupId"   =? _giGroupId+        , "groupName" =? _giGroupName+        ]++data VpnStaticRouteSource+    = Static -- ^ Static+      deriving (Eq, Ord, Show, Generic, Enum)++instance Hashable VpnStaticRouteSource++instance FromText VpnStaticRouteSource where+    parser = match "Static" Static++instance ToText VpnStaticRouteSource where+    toText Static = "Static"++instance FromXML VpnStaticRouteSource where+    parseXML = parseXMLText "VpnStaticRouteSource"++instance ToQuery VpnStaticRouteSource where+    toQuery = toQuery . toText++data ReservedInstancesListing = ReservedInstancesListing+    { _rilClientToken                :: Maybe Text+    , _rilCreateDate                 :: Maybe RFC822+    , _rilInstanceCounts             :: List "item" InstanceCount+    , _rilPriceSchedules             :: List "item" PriceSchedule+    , _rilReservedInstancesId        :: Maybe Text+    , _rilReservedInstancesListingId :: Maybe Text+    , _rilStatus                     :: Maybe Text+    , _rilStatusMessage              :: Maybe Text+    , _rilTags                       :: List "item" Tag+    , _rilUpdateDate                 :: Maybe RFC822+    } deriving (Eq, Show)++-- | 'ReservedInstancesListing' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'rilClientToken' @::@ 'Maybe' 'Text'+--+-- * 'rilCreateDate' @::@ 'Maybe' 'UTCTime'+--+-- * 'rilInstanceCounts' @::@ ['InstanceCount']+--+-- * 'rilPriceSchedules' @::@ ['PriceSchedule']+--+-- * 'rilReservedInstancesId' @::@ 'Maybe' 'Text'+--+-- * 'rilReservedInstancesListingId' @::@ 'Maybe' 'Text'+--+-- * 'rilStatus' @::@ 'Maybe' 'Text'+--+-- * 'rilStatusMessage' @::@ 'Maybe' 'Text'+--+-- * 'rilTags' @::@ ['Tag']+--+-- * 'rilUpdateDate' @::@ 'Maybe' 'UTCTime'+--+reservedInstancesListing :: ReservedInstancesListing+reservedInstancesListing = ReservedInstancesListing+    { _rilReservedInstancesListingId = Nothing+    , _rilReservedInstancesId        = Nothing+    , _rilCreateDate                 = Nothing+    , _rilUpdateDate                 = Nothing+    , _rilStatus                     = Nothing+    , _rilStatusMessage              = Nothing+    , _rilInstanceCounts             = mempty+    , _rilPriceSchedules             = mempty+    , _rilTags                       = mempty+    , _rilClientToken                = Nothing+    }++-- | The idempotency token you provided when you created the listing.+rilClientToken :: Lens' ReservedInstancesListing (Maybe Text)+rilClientToken = lens _rilClientToken (\s a -> s { _rilClientToken = a })++-- | The time the listing was created.+rilCreateDate :: Lens' ReservedInstancesListing (Maybe UTCTime)+rilCreateDate = lens _rilCreateDate (\s a -> s { _rilCreateDate = a }) . mapping _Time++-- | The number of instances in this state.+rilInstanceCounts :: Lens' ReservedInstancesListing [InstanceCount]+rilInstanceCounts =+    lens _rilInstanceCounts (\s a -> s { _rilInstanceCounts = a })+        . _List++-- | The price of the Reserved Instance listing.+rilPriceSchedules :: Lens' ReservedInstancesListing [PriceSchedule]+rilPriceSchedules =+    lens _rilPriceSchedules (\s a -> s { _rilPriceSchedules = a })+        . _List++-- | The ID of the Reserved Instance.+rilReservedInstancesId :: Lens' ReservedInstancesListing (Maybe Text)+rilReservedInstancesId =+    lens _rilReservedInstancesId (\s a -> s { _rilReservedInstancesId = a })++-- | The ID of the Reserved Instance listing.+rilReservedInstancesListingId :: Lens' ReservedInstancesListing (Maybe Text)+rilReservedInstancesListingId =+    lens _rilReservedInstancesListingId+        (\s a -> s { _rilReservedInstancesListingId = a })++-- | The status of the Reserved Instance listing.+rilStatus :: Lens' ReservedInstancesListing (Maybe Text)+rilStatus = lens _rilStatus (\s a -> s { _rilStatus = a })++-- | The reason for the current status of the Reserved Instance listing. The+-- response can be blank.+rilStatusMessage :: Lens' ReservedInstancesListing (Maybe Text)+rilStatusMessage = lens _rilStatusMessage (\s a -> s { _rilStatusMessage = a })++-- | Any tags assigned to the resource.+rilTags :: Lens' ReservedInstancesListing [Tag]+rilTags = lens _rilTags (\s a -> s { _rilTags = a }) . _List++-- | The last modified timestamp of the listing.+rilUpdateDate :: Lens' ReservedInstancesListing (Maybe UTCTime)+rilUpdateDate = lens _rilUpdateDate (\s a -> s { _rilUpdateDate = a }) . mapping _Time++instance FromXML ReservedInstancesListing where+    parseXML x = ReservedInstancesListing+        <$> x .@? "clientToken"+        <*> x .@? "createDate"+        <*> x .@  "instanceCounts"+        <*> x .@  "priceSchedules"+        <*> x .@? "reservedInstancesId"+        <*> x .@? "reservedInstancesListingId"+        <*> x .@? "status"+        <*> x .@? "statusMessage"+        <*> x .@  "tagSet"+        <*> x .@? "updateDate"++instance ToQuery ReservedInstancesListing where+    toQuery ReservedInstancesListing{..} = mconcat+        [ "clientToken"                =? _rilClientToken+        , "createDate"                 =? _rilCreateDate+        , "instanceCounts"             =? _rilInstanceCounts+        , "priceSchedules"             =? _rilPriceSchedules+        , "reservedInstancesId"        =? _rilReservedInstancesId+        , "reservedInstancesListingId" =? _rilReservedInstancesListingId+        , "status"                     =? _rilStatus+        , "statusMessage"              =? _rilStatusMessage+        , "tagSet"                     =? _rilTags+        , "updateDate"                 =? _rilUpdateDate+        ]++data InstanceLifecycleType+    = Spot -- ^ spot+      deriving (Eq, Ord, Show, Generic, Enum)++instance Hashable InstanceLifecycleType++instance FromText InstanceLifecycleType where+    parser = match "spot" Spot++instance ToText InstanceLifecycleType where+    toText Spot = "spot"++instance FromXML InstanceLifecycleType where+    parseXML = parseXMLText "InstanceLifecycleType"++instance ToQuery InstanceLifecycleType where+    toQuery = toQuery . toText++data VirtualizationType+    = Hvm         -- ^ hvm+    | Paravirtual -- ^ paravirtual+      deriving (Eq, Ord, Show, Generic, Enum)++instance Hashable VirtualizationType++instance FromText VirtualizationType where+    parser = match "hvm"         Hvm+         <|> match "paravirtual" Paravirtual++instance ToText VirtualizationType where+    toText = \case+        Hvm         -> "hvm"+        Paravirtual -> "paravirtual"++instance FromXML VirtualizationType where+    parseXML = parseXMLText "VirtualizationType"++instance ToQuery VirtualizationType where+    toQuery = toQuery . toText++data NetworkInterfaceStatus+    = Attaching -- ^ attaching+    | Available -- ^ available+    | Detaching -- ^ detaching+    | InUse     -- ^ in-use+      deriving (Eq, Ord, Show, Generic, Enum)++instance Hashable NetworkInterfaceStatus++instance FromText NetworkInterfaceStatus where+    parser = match "attaching" Attaching+         <|> match "available" Available+         <|> match "detaching" Detaching+         <|> match "in-use"    InUse++instance ToText NetworkInterfaceStatus where+    toText = \case+        Attaching -> "attaching"+        Available -> "available"+        Detaching -> "detaching"+        InUse     -> "in-use"++instance FromXML NetworkInterfaceStatus where+    parseXML = parseXMLText "NetworkInterfaceStatus"++instance ToQuery NetworkInterfaceStatus where+    toQuery = toQuery . toText++data PlatformValues+    = Windows -- ^ Windows+      deriving (Eq, Ord, Show, Generic, Enum)++instance Hashable PlatformValues++instance FromText PlatformValues where+    parser = match "Windows" Windows++instance ToText PlatformValues where+    toText Windows = "Windows"++instance FromXML PlatformValues where+    parseXML = parseXMLText "PlatformValues"++instance ToQuery PlatformValues where+    toQuery = toQuery . toText++data CreateVolumePermission = CreateVolumePermission+    { _cvpGroup  :: Maybe Text+    , _cvpUserId :: Maybe Text+    } deriving (Eq, Ord, Show)++-- | 'CreateVolumePermission' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'cvpGroup' @::@ 'Maybe' 'Text'+--+-- * 'cvpUserId' @::@ 'Maybe' 'Text'+--+createVolumePermission :: CreateVolumePermission+createVolumePermission = CreateVolumePermission+    { _cvpUserId = Nothing+    , _cvpGroup  = Nothing+    }++-- | The specific group that is to be added or removed from a volume's list of+-- create volume permissions.+cvpGroup :: Lens' CreateVolumePermission (Maybe Text)+cvpGroup = lens _cvpGroup (\s a -> s { _cvpGroup = a })++-- | The specific AWS account ID that is to be added or removed from a+-- volume's list of create volume permissions.+cvpUserId :: Lens' CreateVolumePermission (Maybe Text)+cvpUserId = lens _cvpUserId (\s a -> s { _cvpUserId = a })++instance FromXML CreateVolumePermission where+    parseXML x = CreateVolumePermission+        <$> x .@? "group"+        <*> x .@? "userId"++instance ToQuery CreateVolumePermission where+    toQuery CreateVolumePermission{..} = mconcat+        [ "group"  =? _cvpGroup+        , "userId" =? _cvpUserId+        ]++data NetworkInterfaceAttachmentChanges = NetworkInterfaceAttachmentChanges+    { _niacAttachmentId        :: Maybe Text+    , _niacDeleteOnTermination :: Maybe Bool+    } deriving (Eq, Ord, Show)++-- | 'NetworkInterfaceAttachmentChanges' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'niacAttachmentId' @::@ 'Maybe' 'Text'+--+-- * 'niacDeleteOnTermination' @::@ 'Maybe' 'Bool'+--+networkInterfaceAttachmentChanges :: NetworkInterfaceAttachmentChanges+networkInterfaceAttachmentChanges = NetworkInterfaceAttachmentChanges+    { _niacAttachmentId        = Nothing+    , _niacDeleteOnTermination = Nothing+    }++-- | The ID of the network interface attachment.+niacAttachmentId :: Lens' NetworkInterfaceAttachmentChanges (Maybe Text)+niacAttachmentId = lens _niacAttachmentId (\s a -> s { _niacAttachmentId = a })++-- | Indicates whether the network interface is deleted when the instance is+-- terminated.+niacDeleteOnTermination :: Lens' NetworkInterfaceAttachmentChanges (Maybe Bool)+niacDeleteOnTermination =+    lens _niacDeleteOnTermination (\s a -> s { _niacDeleteOnTermination = a })++instance FromXML NetworkInterfaceAttachmentChanges where+    parseXML x = NetworkInterfaceAttachmentChanges+        <$> x .@? "attachmentId"+        <*> x .@? "deleteOnTermination"++instance ToQuery NetworkInterfaceAttachmentChanges where+    toQuery NetworkInterfaceAttachmentChanges{..} = mconcat+        [ "attachmentId"        =? _niacAttachmentId+        , "deleteOnTermination" =? _niacDeleteOnTermination+        ]++data RecurringChargeFrequency+    = Hourly -- ^ Hourly+      deriving (Eq, Ord, Show, Generic, Enum)++instance Hashable RecurringChargeFrequency++instance FromText RecurringChargeFrequency where+    parser = match "Hourly" Hourly++instance ToText RecurringChargeFrequency where+    toText Hourly = "Hourly"++instance FromXML RecurringChargeFrequency where+    parseXML = parseXMLText "RecurringChargeFrequency"++instance ToQuery RecurringChargeFrequency where+    toQuery = toQuery . toText++data DhcpOptions = DhcpOptions+    { _doDhcpConfigurations :: List "item" DhcpConfiguration+    , _doDhcpOptionsId      :: Maybe Text+    , _doTags               :: List "item" Tag+    } deriving (Eq, Show)++-- | 'DhcpOptions' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'doDhcpConfigurations' @::@ ['DhcpConfiguration']+--+-- * 'doDhcpOptionsId' @::@ 'Maybe' 'Text'+--+-- * 'doTags' @::@ ['Tag']+--+dhcpOptions :: DhcpOptions+dhcpOptions = DhcpOptions+    { _doDhcpOptionsId      = Nothing+    , _doDhcpConfigurations = mempty+    , _doTags               = mempty+    }++-- | One or more DHCP options in the set.+doDhcpConfigurations :: Lens' DhcpOptions [DhcpConfiguration]+doDhcpConfigurations =+    lens _doDhcpConfigurations (\s a -> s { _doDhcpConfigurations = a })+        . _List++-- | The ID of the set of DHCP options.+doDhcpOptionsId :: Lens' DhcpOptions (Maybe Text)+doDhcpOptionsId = lens _doDhcpOptionsId (\s a -> s { _doDhcpOptionsId = a })++-- | Any tags assigned to the DHCP options set.+doTags :: Lens' DhcpOptions [Tag]+doTags = lens _doTags (\s a -> s { _doTags = a }) . _List++instance FromXML DhcpOptions where+    parseXML x = DhcpOptions+        <$> x .@  "dhcpConfigurationSet"+        <*> x .@? "dhcpOptionsId"+        <*> x .@  "tagSet"++instance ToQuery DhcpOptions where+    toQuery DhcpOptions{..} = mconcat+        [ "dhcpConfigurationSet" =? _doDhcpConfigurations+        , "dhcpOptionsId"        =? _doDhcpOptionsId+        , "tagSet"               =? _doTags+        ]++data InstanceNetworkInterfaceSpecification = InstanceNetworkInterfaceSpecification+    { _inisAssociatePublicIpAddress       :: Maybe Bool+    , _inisDeleteOnTermination            :: Maybe Bool+    , _inisDescription                    :: Maybe Text+    , _inisDeviceIndex                    :: Maybe Int+    , _inisGroups                         :: List "SecurityGroupId" Text+    , _inisNetworkInterfaceId             :: Maybe Text+    , _inisPrivateIpAddress               :: Maybe Text+    , _inisPrivateIpAddresses             :: List "item" PrivateIpAddressSpecification+    , _inisSecondaryPrivateIpAddressCount :: Maybe Int+    , _inisSubnetId                       :: Maybe Text+    } deriving (Eq, Show)++-- | 'InstanceNetworkInterfaceSpecification' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'inisAssociatePublicIpAddress' @::@ 'Maybe' 'Bool'+--+-- * 'inisDeleteOnTermination' @::@ 'Maybe' 'Bool'+--+-- * 'inisDescription' @::@ 'Maybe' 'Text'+--+-- * 'inisDeviceIndex' @::@ 'Maybe' 'Int'+--+-- * 'inisGroups' @::@ ['Text']+--+-- * 'inisNetworkInterfaceId' @::@ 'Maybe' 'Text'+--+-- * 'inisPrivateIpAddress' @::@ 'Maybe' 'Text'+--+-- * 'inisPrivateIpAddresses' @::@ ['PrivateIpAddressSpecification']+--+-- * 'inisSecondaryPrivateIpAddressCount' @::@ 'Maybe' 'Int'+--+-- * 'inisSubnetId' @::@ 'Maybe' 'Text'+--+instanceNetworkInterfaceSpecification :: InstanceNetworkInterfaceSpecification+instanceNetworkInterfaceSpecification = InstanceNetworkInterfaceSpecification+    { _inisNetworkInterfaceId             = Nothing+    , _inisDeviceIndex                    = Nothing+    , _inisSubnetId                       = Nothing+    , _inisDescription                    = Nothing+    , _inisPrivateIpAddress               = Nothing+    , _inisGroups                         = mempty+    , _inisDeleteOnTermination            = Nothing+    , _inisPrivateIpAddresses             = mempty+    , _inisSecondaryPrivateIpAddressCount = Nothing+    , _inisAssociatePublicIpAddress       = Nothing+    }++-- | Indicates whether to assign a public IP address to an instance you launch+-- in a VPC. The public IP address can only be assigned to a network+-- interface for eth0, and can only be assigned to a new network interface,+-- not an existing one. You cannot specify more than one network interface+-- in the request. If luanching into a default subnet, the default value is+-- true.+inisAssociatePublicIpAddress :: Lens' InstanceNetworkInterfaceSpecification (Maybe Bool)+inisAssociatePublicIpAddress =+    lens _inisAssociatePublicIpAddress+        (\s a -> s { _inisAssociatePublicIpAddress = a })++-- | If set to true, the interface is deleted when the instance is terminated.+-- You can specify true only if creating a new network interface when+-- launching an instance.+inisDeleteOnTermination :: Lens' InstanceNetworkInterfaceSpecification (Maybe Bool)+inisDeleteOnTermination =+    lens _inisDeleteOnTermination (\s a -> s { _inisDeleteOnTermination = a })++-- | The description of the network interface. Applies only if creating a+-- network interface when launching an instance.+inisDescription :: Lens' InstanceNetworkInterfaceSpecification (Maybe Text)+inisDescription = lens _inisDescription (\s a -> s { _inisDescription = a })++-- | The index of the device on the instance for the network interface+-- attachment. If you are specifying a network interface in a RunInstances+-- request, you must provide the device index.+inisDeviceIndex :: Lens' InstanceNetworkInterfaceSpecification (Maybe Int)+inisDeviceIndex = lens _inisDeviceIndex (\s a -> s { _inisDeviceIndex = a })++-- | The IDs of the security groups for the network interface. Applies only if+-- creating a network interface when launching an instance.+inisGroups :: Lens' InstanceNetworkInterfaceSpecification [Text]+inisGroups = lens _inisGroups (\s a -> s { _inisGroups = a }) . _List++-- | The ID of the network interface.+inisNetworkInterfaceId :: Lens' InstanceNetworkInterfaceSpecification (Maybe Text)+inisNetworkInterfaceId =+    lens _inisNetworkInterfaceId (\s a -> s { _inisNetworkInterfaceId = a })++-- | The private IP address of the network interface. Applies only if creating+-- a network interface when launching an instance.+inisPrivateIpAddress :: Lens' InstanceNetworkInterfaceSpecification (Maybe Text)+inisPrivateIpAddress =+    lens _inisPrivateIpAddress (\s a -> s { _inisPrivateIpAddress = a })++-- | One or more private IP addresses to assign to the network interface. Only+-- one private IP address can be designated as primary.+inisPrivateIpAddresses :: Lens' InstanceNetworkInterfaceSpecification [PrivateIpAddressSpecification]+inisPrivateIpAddresses =+    lens _inisPrivateIpAddresses (\s a -> s { _inisPrivateIpAddresses = a })+        . _List++-- | The number of secondary private IP addresses. You can't specify this+-- option and specify more than one private IP address using the private IP+-- addresses option.+inisSecondaryPrivateIpAddressCount :: Lens' InstanceNetworkInterfaceSpecification (Maybe Int)+inisSecondaryPrivateIpAddressCount =+    lens _inisSecondaryPrivateIpAddressCount+        (\s a -> s { _inisSecondaryPrivateIpAddressCount = a })++-- | The ID of the subnet associated with the network string. Applies only if+-- creating a network interface when launching an instance.+inisSubnetId :: Lens' InstanceNetworkInterfaceSpecification (Maybe Text)+inisSubnetId = lens _inisSubnetId (\s a -> s { _inisSubnetId = a })++instance FromXML InstanceNetworkInterfaceSpecification where+    parseXML x = InstanceNetworkInterfaceSpecification+        <$> x .@? "associatePublicIpAddress"+        <*> x .@? "deleteOnTermination"+        <*> x .@? "description"+        <*> x .@? "deviceIndex"+        <*> x .@  "SecurityGroupId"+        <*> x .@? "networkInterfaceId"+        <*> x .@? "privateIpAddress"+        <*> x .@  "privateIpAddressesSet"+        <*> x .@? "secondaryPrivateIpAddressCount"+        <*> x .@? "subnetId"++instance ToQuery InstanceNetworkInterfaceSpecification where+    toQuery InstanceNetworkInterfaceSpecification{..} = mconcat+        [ "associatePublicIpAddress"       =? _inisAssociatePublicIpAddress+        , "deleteOnTermination"            =? _inisDeleteOnTermination+        , "description"                    =? _inisDescription+        , "deviceIndex"                    =? _inisDeviceIndex+        , "SecurityGroupId"                =? _inisGroups+        , "networkInterfaceId"             =? _inisNetworkInterfaceId+        , "privateIpAddress"               =? _inisPrivateIpAddress+        , "privateIpAddressesSet"          =? _inisPrivateIpAddresses+        , "secondaryPrivateIpAddressCount" =? _inisSecondaryPrivateIpAddressCount+        , "subnetId"                       =? _inisSubnetId+        ]++data VolumeState+    = VSAvailable -- ^ available+    | VSCreating  -- ^ creating+    | VSDeleted   -- ^ deleted+    | VSDeleting  -- ^ deleting+    | VSError     -- ^ error+    | VSInUse     -- ^ in-use+      deriving (Eq, Ord, Show, Generic, Enum)++instance Hashable VolumeState++instance FromText VolumeState where+    parser = match "available" VSAvailable+         <|> match "creating"  VSCreating+         <|> match "deleted"   VSDeleted+         <|> match "deleting"  VSDeleting+         <|> match "error"     VSError+         <|> match "in-use"    VSInUse++instance ToText VolumeState where+    toText = \case+        VSAvailable -> "available"+        VSCreating  -> "creating"+        VSDeleted   -> "deleted"+        VSDeleting  -> "deleting"+        VSError     -> "error"+        VSInUse     -> "in-use"++instance FromXML VolumeState where+    parseXML = parseXMLText "VolumeState"++instance ToQuery VolumeState where+    toQuery = toQuery . toText++newtype AttributeValue = AttributeValue+    { _avValue :: Maybe Text+    } deriving (Eq, Ord, Show, Monoid)++-- | 'AttributeValue' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'avValue' @::@ 'Maybe' 'Text'+--+attributeValue :: AttributeValue+attributeValue = AttributeValue+    { _avValue = Nothing+    }++avValue :: Lens' AttributeValue (Maybe Text)+avValue = lens _avValue (\s a -> s { _avValue = a })++instance FromXML AttributeValue where+    parseXML x = AttributeValue+        <$> x .@? "value"++instance ToQuery AttributeValue where+    toQuery AttributeValue{..} = mconcat+        [ "value" =? _avValue+        ]++data PrivateIpAddressSpecification = PrivateIpAddressSpecification+    { _piasPrimary          :: Maybe Bool+    , _piasPrivateIpAddress :: Text+    } deriving (Eq, Ord, Show)++-- | 'PrivateIpAddressSpecification' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'piasPrimary' @::@ 'Maybe' 'Bool'+--+-- * 'piasPrivateIpAddress' @::@ 'Text'+--+privateIpAddressSpecification :: Text -- ^ 'piasPrivateIpAddress'+                              -> PrivateIpAddressSpecification+privateIpAddressSpecification p1 = PrivateIpAddressSpecification+    { _piasPrivateIpAddress = p1+    , _piasPrimary          = Nothing+    }++-- | Indicates whether the private IP address is the primary private IP+-- address. Only one IP address can be designated as primary.+piasPrimary :: Lens' PrivateIpAddressSpecification (Maybe Bool)+piasPrimary = lens _piasPrimary (\s a -> s { _piasPrimary = a })++-- | The private IP addresses.+piasPrivateIpAddress :: Lens' PrivateIpAddressSpecification Text+piasPrivateIpAddress =+    lens _piasPrivateIpAddress (\s a -> s { _piasPrivateIpAddress = a })++instance FromXML PrivateIpAddressSpecification where+    parseXML x = PrivateIpAddressSpecification+        <$> x .@? "primary"+        <*> x .@  "privateIpAddress"++instance ToQuery PrivateIpAddressSpecification where+    toQuery PrivateIpAddressSpecification{..} = mconcat+        [ "primary"          =? _piasPrimary+        , "privateIpAddress" =? _piasPrivateIpAddress+        ]++data Image = Image+    { _iArchitecture        :: Text+    , _iBlockDeviceMappings :: List "item" BlockDeviceMapping+    , _iDescription         :: Maybe Text+    , _iHypervisor          :: Text+    , _iImageId             :: Text+    , _iImageLocation       :: Text+    , _iImageOwnerAlias     :: Maybe Text+    , _iImageType           :: Text+    , _iKernelId            :: Maybe Text+    , _iName                :: Text+    , _iOwnerId             :: Text+    , _iPlatform            :: Maybe Text+    , _iProductCodes        :: List "item" ProductCode+    , _iPublic              :: Bool+    , _iRamdiskId           :: Maybe Text+    , _iRootDeviceName      :: Maybe Text+    , _iRootDeviceType      :: Text+    , _iSriovNetSupport     :: Maybe Text+    , _iState               :: Text+    , _iStateReason         :: Maybe StateReason+    , _iTags                :: List "item" Tag+    , _iVirtualizationType  :: Text+    } deriving (Eq, Show)++-- | 'Image' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'iArchitecture' @::@ 'Text'+--+-- * 'iBlockDeviceMappings' @::@ ['BlockDeviceMapping']+--+-- * 'iDescription' @::@ 'Maybe' 'Text'+--+-- * 'iHypervisor' @::@ 'Text'+--+-- * 'iImageId' @::@ 'Text'+--+-- * 'iImageLocation' @::@ 'Text'+--+-- * 'iImageOwnerAlias' @::@ 'Maybe' 'Text'+--+-- * 'iImageType' @::@ 'Text'+--+-- * 'iKernelId' @::@ 'Maybe' 'Text'+--+-- * 'iName' @::@ 'Text'+--+-- * 'iOwnerId' @::@ 'Text'+--+-- * 'iPlatform' @::@ 'Maybe' 'Text'+--+-- * 'iProductCodes' @::@ ['ProductCode']+--+-- * 'iPublic' @::@ 'Bool'+--+-- * 'iRamdiskId' @::@ 'Maybe' 'Text'+--+-- * 'iRootDeviceName' @::@ 'Maybe' 'Text'+--+-- * 'iRootDeviceType' @::@ 'Text'+--+-- * 'iSriovNetSupport' @::@ 'Maybe' 'Text'+--+-- * 'iState' @::@ 'Text'+--+-- * 'iStateReason' @::@ 'Maybe' 'StateReason'+--+-- * 'iTags' @::@ ['Tag']+--+-- * 'iVirtualizationType' @::@ 'Text'+--+image :: Text -- ^ 'iImageId'+      -> Text -- ^ 'iImageLocation'+      -> Text -- ^ 'iState'+      -> Text -- ^ 'iOwnerId'+      -> Bool -- ^ 'iPublic'+      -> Text -- ^ 'iArchitecture'+      -> Text -- ^ 'iImageType'+      -> Text -- ^ 'iName'+      -> Text -- ^ 'iRootDeviceType'+      -> Text -- ^ 'iVirtualizationType'+      -> Text -- ^ 'iHypervisor'+      -> Image+image p1 p2 p3 p4 p5 p6 p7 p8 p9 p10 p11 = Image+    { _iImageId             = p1+    , _iImageLocation       = p2+    , _iState               = p3+    , _iOwnerId             = p4+    , _iPublic              = p5+    , _iArchitecture        = p6+    , _iImageType           = p7+    , _iName                = p8+    , _iRootDeviceType      = p9+    , _iVirtualizationType  = p10+    , _iHypervisor          = p11+    , _iProductCodes        = mempty+    , _iKernelId            = Nothing+    , _iRamdiskId           = Nothing+    , _iPlatform            = Nothing+    , _iSriovNetSupport     = Nothing+    , _iStateReason         = Nothing+    , _iImageOwnerAlias     = Nothing+    , _iDescription         = Nothing+    , _iRootDeviceName      = Nothing+    , _iBlockDeviceMappings = mempty+    , _iTags                = mempty+    }++-- | The architecture of the image.+iArchitecture :: Lens' Image Text+iArchitecture = lens _iArchitecture (\s a -> s { _iArchitecture = a })++-- | Any block device mapping entries.+iBlockDeviceMappings :: Lens' Image [BlockDeviceMapping]+iBlockDeviceMappings =+    lens _iBlockDeviceMappings (\s a -> s { _iBlockDeviceMappings = a })+        . _List++-- | The description of the AMI that was provided during image creation.+iDescription :: Lens' Image (Maybe Text)+iDescription = lens _iDescription (\s a -> s { _iDescription = a })++-- | The hypervisor type of the image.+iHypervisor :: Lens' Image Text+iHypervisor = lens _iHypervisor (\s a -> s { _iHypervisor = a })++-- | The ID of the AMI.+iImageId :: Lens' Image Text+iImageId = lens _iImageId (\s a -> s { _iImageId = a })++-- | The location of the AMI.+iImageLocation :: Lens' Image Text+iImageLocation = lens _iImageLocation (\s a -> s { _iImageLocation = a })++-- | The AWS account alias (for example, amazon, self) or the AWS account ID+-- of the AMI owner.+iImageOwnerAlias :: Lens' Image (Maybe Text)+iImageOwnerAlias = lens _iImageOwnerAlias (\s a -> s { _iImageOwnerAlias = a })++-- | The type of image.+iImageType :: Lens' Image Text+iImageType = lens _iImageType (\s a -> s { _iImageType = a })++-- | The kernel associated with the image, if any. Only applicable for machine+-- images.+iKernelId :: Lens' Image (Maybe Text)+iKernelId = lens _iKernelId (\s a -> s { _iKernelId = a })++-- | The name of the AMI that was provided during image creation.+iName :: Lens' Image Text+iName = lens _iName (\s a -> s { _iName = a })++-- | The AWS account ID of the image owner.+iOwnerId :: Lens' Image Text+iOwnerId = lens _iOwnerId (\s a -> s { _iOwnerId = a })++-- | The value is Windows for Windows AMIs; otherwise blank.+iPlatform :: Lens' Image (Maybe Text)+iPlatform = lens _iPlatform (\s a -> s { _iPlatform = a })++-- | Any product codes associated with the AMI.+iProductCodes :: Lens' Image [ProductCode]+iProductCodes = lens _iProductCodes (\s a -> s { _iProductCodes = a }) . _List++-- | Indicates whether the image has public launch permissions. The value is+-- true if this image has public launch permissions or false if it has only+-- implicit and explicit launch permissions.+iPublic :: Lens' Image Bool+iPublic = lens _iPublic (\s a -> s { _iPublic = a })++-- | The RAM disk associated with the image, if any. Only applicable for+-- machine images.+iRamdiskId :: Lens' Image (Maybe Text)+iRamdiskId = lens _iRamdiskId (\s a -> s { _iRamdiskId = a })++-- | The device name of the root device (for example, /dev/sda1 or xvda).+iRootDeviceName :: Lens' Image (Maybe Text)+iRootDeviceName = lens _iRootDeviceName (\s a -> s { _iRootDeviceName = a })++-- | The type of root device used by the AMI. The AMI can use an Amazon EBS+-- volume or an instance store volume.+iRootDeviceType :: Lens' Image Text+iRootDeviceType = lens _iRootDeviceType (\s a -> s { _iRootDeviceType = a })++-- | Specifies whether enhanced networking is enabled.+iSriovNetSupport :: Lens' Image (Maybe Text)+iSriovNetSupport = lens _iSriovNetSupport (\s a -> s { _iSriovNetSupport = a })++-- | The current state of the AMI. If the state is available, the image is+-- successfully registered and can be used to launch an instance.+iState :: Lens' Image Text+iState = lens _iState (\s a -> s { _iState = a })++-- | The reason for the state change.+iStateReason :: Lens' Image (Maybe StateReason)+iStateReason = lens _iStateReason (\s a -> s { _iStateReason = a })++-- | Any tags assigned to the image.+iTags :: Lens' Image [Tag]+iTags = lens _iTags (\s a -> s { _iTags = a }) . _List++-- | The type of virtualization of the AMI.+iVirtualizationType :: Lens' Image Text+iVirtualizationType =+    lens _iVirtualizationType (\s a -> s { _iVirtualizationType = a })++instance FromXML Image where+    parseXML x = Image+        <$> x .@  "architecture"+        <*> x .@  "blockDeviceMapping"+        <*> x .@? "description"+        <*> x .@  "hypervisor"+        <*> x .@  "imageId"+        <*> x .@  "imageLocation"+        <*> x .@? "imageOwnerAlias"+        <*> x .@  "imageType"+        <*> x .@? "kernelId"+        <*> x .@  "name"+        <*> x .@  "imageOwnerId"+        <*> x .@? "platform"+        <*> x .@  "productCodes"+        <*> x .@  "isPublic"+        <*> x .@? "ramdiskId"+        <*> x .@? "rootDeviceName"+        <*> x .@  "rootDeviceType"+        <*> x .@? "sriovNetSupport"+        <*> x .@  "imageState"+        <*> x .@? "stateReason"+        <*> x .@  "tagSet"+        <*> x .@  "virtualizationType"++instance ToQuery Image where+    toQuery Image{..} = mconcat+        [ "architecture"       =? _iArchitecture+        , "blockDeviceMapping" =? _iBlockDeviceMappings+        , "description"        =? _iDescription+        , "hypervisor"         =? _iHypervisor+        , "imageId"            =? _iImageId+        , "imageLocation"      =? _iImageLocation+        , "imageOwnerAlias"    =? _iImageOwnerAlias+        , "imageType"          =? _iImageType+        , "kernelId"           =? _iKernelId+        , "name"               =? _iName+        , "imageOwnerId"       =? _iOwnerId+        , "platform"           =? _iPlatform+        , "productCodes"       =? _iProductCodes+        , "isPublic"           =? _iPublic+        , "ramdiskId"          =? _iRamdiskId+        , "rootDeviceName"     =? _iRootDeviceName+        , "rootDeviceType"     =? _iRootDeviceType+        , "sriovNetSupport"    =? _iSriovNetSupport+        , "imageState"         =? _iState+        , "stateReason"        =? _iStateReason+        , "tagSet"             =? _iTags+        , "virtualizationType" =? _iVirtualizationType+        ]++data DhcpConfiguration = DhcpConfiguration+    { _dcKey    :: Maybe Text+    , _dcValues :: List "item" AttributeValue+    } deriving (Eq, Show)++-- | 'DhcpConfiguration' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'dcKey' @::@ 'Maybe' 'Text'+--+-- * 'dcValues' @::@ ['AttributeValue']+--+dhcpConfiguration :: DhcpConfiguration+dhcpConfiguration = DhcpConfiguration+    { _dcKey    = Nothing+    , _dcValues = mempty+    }++-- | The name of a DHCP option.+dcKey :: Lens' DhcpConfiguration (Maybe Text)+dcKey = lens _dcKey (\s a -> s { _dcKey = a })++-- | One or more values for the DHCP option.+dcValues :: Lens' DhcpConfiguration [AttributeValue]+dcValues = lens _dcValues (\s a -> s { _dcValues = a }) . _List++instance FromXML DhcpConfiguration where+    parseXML x = DhcpConfiguration+        <$> x .@? "key"+        <*> x .@  "valueSet"++instance ToQuery DhcpConfiguration where+    toQuery DhcpConfiguration{..} = mconcat+        [ "key"      =? _dcKey+        , "valueSet" =? _dcValues+        ]++data Tag = Tag+    { _tagKey   :: Text+    , _tagValue :: Text+    } deriving (Eq, Ord, Show)++-- | 'Tag' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'tagKey' @::@ 'Text'+--+-- * 'tagValue' @::@ 'Text'+--+tag :: Text -- ^ 'tagKey'+    -> Text -- ^ 'tagValue'+    -> Tag+tag p1 p2 = Tag+    { _tagKey   = p1+    , _tagValue = p2+    }++-- | The key of the tag. Constraints: Tag keys are case-sensitive and accept a+-- maximum of 127 Unicode characters. May not begin with aws:.+tagKey :: Lens' Tag Text+tagKey = lens _tagKey (\s a -> s { _tagKey = a })++-- | The value of the tag. Constraints: Tag values are case-sensitive and+-- accept a maximum of 255 Unicode characters.+tagValue :: Lens' Tag Text+tagValue = lens _tagValue (\s a -> s { _tagValue = a })++instance FromXML Tag where+    parseXML x = Tag+        <$> x .@  "key"+        <*> x .@  "value"++instance ToQuery Tag where+    toQuery Tag{..} = mconcat+        [ "key"   =? _tagKey+        , "value" =? _tagValue+        ]++data AccountAttributeName+    = DefaultVpc         -- ^ default-vpc+    | SupportedPlatforms -- ^ supported-platforms+      deriving (Eq, Ord, Show, Generic, Enum)++instance Hashable AccountAttributeName++instance FromText AccountAttributeName where+    parser = match "default-vpc"         DefaultVpc+         <|> match "supported-platforms" SupportedPlatforms++instance ToText AccountAttributeName where+    toText = \case+        DefaultVpc         -> "default-vpc"+        SupportedPlatforms -> "supported-platforms"++instance FromXML AccountAttributeName where+    parseXML = parseXMLText "AccountAttributeName"++instance ToQuery AccountAttributeName where+    toQuery = toQuery . toText++data NetworkInterfaceAttachment = NetworkInterfaceAttachment+    { _niaAttachTime          :: Maybe RFC822+    , _niaAttachmentId        :: Maybe Text+    , _niaDeleteOnTermination :: Maybe Bool+    , _niaDeviceIndex         :: Maybe Int+    , _niaInstanceId          :: Maybe Text+    , _niaInstanceOwnerId     :: Maybe Text+    , _niaStatus              :: Maybe Text+    } deriving (Eq, Ord, Show)++-- | 'NetworkInterfaceAttachment' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'niaAttachTime' @::@ 'Maybe' 'UTCTime'+--+-- * 'niaAttachmentId' @::@ 'Maybe' 'Text'+--+-- * 'niaDeleteOnTermination' @::@ 'Maybe' 'Bool'+--+-- * 'niaDeviceIndex' @::@ 'Maybe' 'Int'+--+-- * 'niaInstanceId' @::@ 'Maybe' 'Text'+--+-- * 'niaInstanceOwnerId' @::@ 'Maybe' 'Text'+--+-- * 'niaStatus' @::@ 'Maybe' 'Text'+--+networkInterfaceAttachment :: NetworkInterfaceAttachment+networkInterfaceAttachment = NetworkInterfaceAttachment+    { _niaAttachmentId        = Nothing+    , _niaInstanceId          = Nothing+    , _niaInstanceOwnerId     = Nothing+    , _niaDeviceIndex         = Nothing+    , _niaStatus              = Nothing+    , _niaAttachTime          = Nothing+    , _niaDeleteOnTermination = Nothing+    }++-- | The timestamp indicating when the attachment initiated.+niaAttachTime :: Lens' NetworkInterfaceAttachment (Maybe UTCTime)+niaAttachTime = lens _niaAttachTime (\s a -> s { _niaAttachTime = a }) . mapping _Time++-- | The ID of the network interface attachment.+niaAttachmentId :: Lens' NetworkInterfaceAttachment (Maybe Text)+niaAttachmentId = lens _niaAttachmentId (\s a -> s { _niaAttachmentId = a })++-- | Indicates whether the network interface is deleted when the instance is+-- terminated.+niaDeleteOnTermination :: Lens' NetworkInterfaceAttachment (Maybe Bool)+niaDeleteOnTermination =+    lens _niaDeleteOnTermination (\s a -> s { _niaDeleteOnTermination = a })++-- | The device index of the network interface attachment on the instance.+niaDeviceIndex :: Lens' NetworkInterfaceAttachment (Maybe Int)+niaDeviceIndex = lens _niaDeviceIndex (\s a -> s { _niaDeviceIndex = a })++-- | The ID of the instance.+niaInstanceId :: Lens' NetworkInterfaceAttachment (Maybe Text)+niaInstanceId = lens _niaInstanceId (\s a -> s { _niaInstanceId = a })++-- | The AWS account ID of the owner of the instance.+niaInstanceOwnerId :: Lens' NetworkInterfaceAttachment (Maybe Text)+niaInstanceOwnerId =+    lens _niaInstanceOwnerId (\s a -> s { _niaInstanceOwnerId = a })++-- | The attachment state.+niaStatus :: Lens' NetworkInterfaceAttachment (Maybe Text)+niaStatus = lens _niaStatus (\s a -> s { _niaStatus = a })++instance FromXML NetworkInterfaceAttachment where+    parseXML x = NetworkInterfaceAttachment+        <$> x .@? "attachTime"+        <*> x .@? "attachmentId"+        <*> x .@? "deleteOnTermination"+        <*> x .@? "deviceIndex"+        <*> x .@? "instanceId"+        <*> x .@? "instanceOwnerId"+        <*> x .@? "status"++instance ToQuery NetworkInterfaceAttachment where+    toQuery NetworkInterfaceAttachment{..} = mconcat+        [ "attachTime"          =? _niaAttachTime+        , "attachmentId"        =? _niaAttachmentId+        , "deleteOnTermination" =? _niaDeleteOnTermination+        , "deviceIndex"         =? _niaDeviceIndex+        , "instanceId"          =? _niaInstanceId+        , "instanceOwnerId"     =? _niaInstanceOwnerId+        , "status"              =? _niaStatus+        ]++newtype RunInstancesMonitoringEnabled = RunInstancesMonitoringEnabled+    { _rimeEnabled :: Bool+    } deriving (Eq, Ord, Show, Enum)++-- | 'RunInstancesMonitoringEnabled' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'rimeEnabled' @::@ 'Bool'+--+runInstancesMonitoringEnabled :: Bool -- ^ 'rimeEnabled'+                              -> RunInstancesMonitoringEnabled+runInstancesMonitoringEnabled p1 = RunInstancesMonitoringEnabled+    { _rimeEnabled = p1+    }++-- | Indicates whether monitoring is enabled for the instance.+rimeEnabled :: Lens' RunInstancesMonitoringEnabled Bool+rimeEnabled = lens _rimeEnabled (\s a -> s { _rimeEnabled = a })++instance FromXML RunInstancesMonitoringEnabled where+    parseXML x = RunInstancesMonitoringEnabled+        <$> x .@  "enabled"++instance ToQuery RunInstancesMonitoringEnabled where+    toQuery RunInstancesMonitoringEnabled{..} = mconcat+        [ "enabled" =? _rimeEnabled+        ]++data VolumeStatusInfo = VolumeStatusInfo+    { _vsiDetails :: List "item" VolumeStatusDetails+    , _vsiStatus  :: Maybe Text+    } deriving (Eq, Show)++-- | 'VolumeStatusInfo' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'vsiDetails' @::@ ['VolumeStatusDetails']+--+-- * 'vsiStatus' @::@ 'Maybe' 'Text'+--+volumeStatusInfo :: VolumeStatusInfo+volumeStatusInfo = VolumeStatusInfo+    { _vsiStatus  = Nothing+    , _vsiDetails = mempty+    }++-- | The details of the volume status.+vsiDetails :: Lens' VolumeStatusInfo [VolumeStatusDetails]+vsiDetails = lens _vsiDetails (\s a -> s { _vsiDetails = a }) . _List++-- | The status of the volume.+vsiStatus :: Lens' VolumeStatusInfo (Maybe Text)+vsiStatus = lens _vsiStatus (\s a -> s { _vsiStatus = a })++instance FromXML VolumeStatusInfo where+    parseXML x = VolumeStatusInfo+        <$> x .@  "details"+        <*> x .@? "status"++instance ToQuery VolumeStatusInfo where+    toQuery VolumeStatusInfo{..} = mconcat+        [ "details" =? _vsiDetails+        , "status"  =? _vsiStatus+        ]++data NetworkInterfaceAssociation = NetworkInterfaceAssociation+    { _niaAllocationId  :: Maybe Text+    , _niaAssociationId :: Maybe Text+    , _niaIpOwnerId     :: Maybe Text+    , _niaPublicDnsName :: Maybe Text+    , _niaPublicIp      :: Maybe Text+    } deriving (Eq, Ord, Show)++-- | 'NetworkInterfaceAssociation' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'niaAllocationId' @::@ 'Maybe' 'Text'+--+-- * 'niaAssociationId' @::@ 'Maybe' 'Text'+--+-- * 'niaIpOwnerId' @::@ 'Maybe' 'Text'+--+-- * 'niaPublicDnsName' @::@ 'Maybe' 'Text'+--+-- * 'niaPublicIp' @::@ 'Maybe' 'Text'+--+networkInterfaceAssociation :: NetworkInterfaceAssociation+networkInterfaceAssociation = NetworkInterfaceAssociation+    { _niaPublicIp      = Nothing+    , _niaPublicDnsName = Nothing+    , _niaIpOwnerId     = Nothing+    , _niaAllocationId  = Nothing+    , _niaAssociationId = Nothing+    }++-- | The allocation ID.+niaAllocationId :: Lens' NetworkInterfaceAssociation (Maybe Text)+niaAllocationId = lens _niaAllocationId (\s a -> s { _niaAllocationId = a })++-- | The association ID.+niaAssociationId :: Lens' NetworkInterfaceAssociation (Maybe Text)+niaAssociationId = lens _niaAssociationId (\s a -> s { _niaAssociationId = a })++-- | The ID of the Elastic IP address owner.+niaIpOwnerId :: Lens' NetworkInterfaceAssociation (Maybe Text)+niaIpOwnerId = lens _niaIpOwnerId (\s a -> s { _niaIpOwnerId = a })++-- | The public DNS name.+niaPublicDnsName :: Lens' NetworkInterfaceAssociation (Maybe Text)+niaPublicDnsName = lens _niaPublicDnsName (\s a -> s { _niaPublicDnsName = a })++-- | The address of the Elastic IP address bound to the network interface.+niaPublicIp :: Lens' NetworkInterfaceAssociation (Maybe Text)+niaPublicIp = lens _niaPublicIp (\s a -> s { _niaPublicIp = a })++instance FromXML NetworkInterfaceAssociation where+    parseXML x = NetworkInterfaceAssociation+        <$> x .@? "allocationId"+        <*> x .@? "associationId"+        <*> x .@? "ipOwnerId"+        <*> x .@? "publicDnsName"+        <*> x .@? "publicIp"++instance ToQuery NetworkInterfaceAssociation where+    toQuery NetworkInterfaceAssociation{..} = mconcat+        [ "allocationId"  =? _niaAllocationId+        , "associationId" =? _niaAssociationId+        , "ipOwnerId"     =? _niaIpOwnerId+        , "publicDnsName" =? _niaPublicDnsName+        , "publicIp"      =? _niaPublicIp+        ]++data CreateVolumePermissionModifications = CreateVolumePermissionModifications+    { _cvpmAdd    :: List "item" CreateVolumePermission+    , _cvpmRemove :: List "item" CreateVolumePermission+    } deriving (Eq, Show)++-- | 'CreateVolumePermissionModifications' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'cvpmAdd' @::@ ['CreateVolumePermission']+--+-- * 'cvpmRemove' @::@ ['CreateVolumePermission']+--+createVolumePermissionModifications :: CreateVolumePermissionModifications+createVolumePermissionModifications = CreateVolumePermissionModifications+    { _cvpmAdd    = mempty+    , _cvpmRemove = mempty+    }++-- | Adds a specific AWS account ID or group to a volume's list of create+-- volume permissions.+cvpmAdd :: Lens' CreateVolumePermissionModifications [CreateVolumePermission]+cvpmAdd = lens _cvpmAdd (\s a -> s { _cvpmAdd = a }) . _List++-- | Removes a specific AWS account ID or group from a volume's list of create+-- volume permissions.+cvpmRemove :: Lens' CreateVolumePermissionModifications [CreateVolumePermission]+cvpmRemove = lens _cvpmRemove (\s a -> s { _cvpmRemove = a }) . _List++instance FromXML CreateVolumePermissionModifications where+    parseXML x = CreateVolumePermissionModifications+        <$> x .@  "Add"+        <*> x .@  "Remove"++instance ToQuery CreateVolumePermissionModifications where+    toQuery CreateVolumePermissionModifications{..} = mconcat+        [ "Add"    =? _cvpmAdd+        , "Remove" =? _cvpmRemove+        ]++data VpcState+    = VpcStateAvailable -- ^ available+    | VpcStatePending   -- ^ pending+      deriving (Eq, Ord, Show, Generic, Enum)++instance Hashable VpcState++instance FromText VpcState where+    parser = match "available" VpcStateAvailable+         <|> match "pending"   VpcStatePending++instance ToText VpcState where+    toText = \case+        VpcStateAvailable -> "available"+        VpcStatePending   -> "pending"++instance FromXML VpcState where+    parseXML = parseXMLText "VpcState"++instance ToQuery VpcState where+    toQuery = toQuery . toText++data ResourceType+    = RTCustomerGateway      -- ^ customer-gateway+    | RTDhcpOptions          -- ^ dhcp-options+    | RTImage                -- ^ image+    | RTInstance'            -- ^ instance+    | RTInternetGateway      -- ^ internet-gateway+    | RTNetworkAcl           -- ^ network-acl+    | RTNetworkInterface     -- ^ network-interface+    | RTReservedInstances    -- ^ reserved-instances+    | RTRouteTable           -- ^ route-table+    | RTSecurityGroup        -- ^ security-group+    | RTSnapshot             -- ^ snapshot+    | RTSpotInstancesRequest -- ^ spot-instances-request+    | RTSubnet               -- ^ subnet+    | RTVolume               -- ^ volume+    | RTVpc                  -- ^ vpc+    | RTVpnConnection        -- ^ vpn-connection+    | RTVpnGateway           -- ^ vpn-gateway+      deriving (Eq, Ord, Show, Generic, Enum)++instance Hashable ResourceType++instance FromText ResourceType where+    parser = match "customer-gateway"       RTCustomerGateway+         <|> match "dhcp-options"           RTDhcpOptions+         <|> match "image"                  RTImage+         <|> match "instance"               RTInstance'+         <|> match "internet-gateway"       RTInternetGateway+         <|> match "network-acl"            RTNetworkAcl+         <|> match "network-interface"      RTNetworkInterface+         <|> match "reserved-instances"     RTReservedInstances+         <|> match "route-table"            RTRouteTable+         <|> match "security-group"         RTSecurityGroup+         <|> match "snapshot"               RTSnapshot+         <|> match "spot-instances-request" RTSpotInstancesRequest+         <|> match "subnet"                 RTSubnet+         <|> match "volume"                 RTVolume+         <|> match "vpc"                    RTVpc+         <|> match "vpn-connection"         RTVpnConnection+         <|> match "vpn-gateway"            RTVpnGateway++instance ToText ResourceType where+    toText = \case+        RTCustomerGateway      -> "customer-gateway"+        RTDhcpOptions          -> "dhcp-options"+        RTImage                -> "image"+        RTInstance'            -> "instance"+        RTInternetGateway      -> "internet-gateway"+        RTNetworkAcl           -> "network-acl"+        RTNetworkInterface     -> "network-interface"+        RTReservedInstances    -> "reserved-instances"+        RTRouteTable           -> "route-table"+        RTSecurityGroup        -> "security-group"+        RTSnapshot             -> "snapshot"+        RTSpotInstancesRequest -> "spot-instances-request"+        RTSubnet               -> "subnet"+        RTVolume               -> "volume"+        RTVpc                  -> "vpc"+        RTVpnConnection        -> "vpn-connection"+        RTVpnGateway           -> "vpn-gateway"++instance FromXML ResourceType where+    parseXML = parseXMLText "ResourceType"++instance ToQuery ResourceType where+    toQuery = toQuery . toText++data ReportStatusType+    = Impaired -- ^ impaired+    | Ok       -- ^ ok+      deriving (Eq, Ord, Show, Generic, Enum)++instance Hashable ReportStatusType++instance FromText ReportStatusType where+    parser = match "impaired" Impaired+         <|> match "ok"       Ok++instance ToText ReportStatusType where+    toText = \case+        Impaired -> "impaired"+        Ok       -> "ok"++instance FromXML ReportStatusType where+    parseXML = parseXMLText "ReportStatusType"++instance ToQuery ReportStatusType where+    toQuery = toQuery . toText++data CurrencyCodeValues+    = Usd -- ^ USD+      deriving (Eq, Ord, Show, Generic, Enum)++instance Hashable CurrencyCodeValues++instance FromText CurrencyCodeValues where+    parser = match "USD" Usd++instance ToText CurrencyCodeValues where+    toText Usd = "USD"++instance FromXML CurrencyCodeValues where+    parseXML = parseXMLText "CurrencyCodeValues"++instance ToQuery CurrencyCodeValues where+    toQuery = toQuery . toText++data IcmpTypeCode = IcmpTypeCode+    { _itcCode :: Maybe Int+    , _itcType :: Maybe Int+    } deriving (Eq, Ord, Show)++-- | 'IcmpTypeCode' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'itcCode' @::@ 'Maybe' 'Int'+--+-- * 'itcType' @::@ 'Maybe' 'Int'+--+icmpTypeCode :: IcmpTypeCode+icmpTypeCode = IcmpTypeCode+    { _itcType = Nothing+    , _itcCode = Nothing+    }++-- | The ICMP type. A value of -1 means all types.+itcCode :: Lens' IcmpTypeCode (Maybe Int)+itcCode = lens _itcCode (\s a -> s { _itcCode = a })++-- | The ICMP code. A value of -1 means all codes for the specified ICMP type.+itcType :: Lens' IcmpTypeCode (Maybe Int)+itcType = lens _itcType (\s a -> s { _itcType = a })++instance FromXML IcmpTypeCode where+    parseXML x = IcmpTypeCode+        <$> x .@? "code"+        <*> x .@? "type"++instance ToQuery IcmpTypeCode where+    toQuery IcmpTypeCode{..} = mconcat+        [ "code" =? _itcCode+        , "type" =? _itcType+        ]++data InstanceCount = InstanceCount+    { _icInstanceCount :: Maybe Int+    , _icState         :: Maybe Text+    } deriving (Eq, Ord, Show)++-- | 'InstanceCount' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'icInstanceCount' @::@ 'Maybe' 'Int'+--+-- * 'icState' @::@ 'Maybe' 'Text'+--+instanceCount :: InstanceCount+instanceCount = InstanceCount+    { _icState         = Nothing+    , _icInstanceCount = Nothing+    }++-- | he number of listed Reserved Instances in the state specified by the+-- state.+icInstanceCount :: Lens' InstanceCount (Maybe Int)+icInstanceCount = lens _icInstanceCount (\s a -> s { _icInstanceCount = a })++-- | The states of the listed Reserved Instances.+icState :: Lens' InstanceCount (Maybe Text)+icState = lens _icState (\s a -> s { _icState = a })++instance FromXML InstanceCount where+    parseXML x = InstanceCount+        <$> x .@? "instanceCount"+        <*> x .@? "state"++instance ToQuery InstanceCount where+    toQuery InstanceCount{..} = mconcat+        [ "instanceCount" =? _icInstanceCount+        , "state"         =? _icState+        ]++data ExportToS3Task = ExportToS3Task+    { _etstContainerFormat :: Maybe Text+    , _etstDiskImageFormat :: Maybe Text+    , _etstS3Bucket        :: Maybe Text+    , _etstS3Key           :: Maybe Text+    } deriving (Eq, Ord, Show)++-- | 'ExportToS3Task' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'etstContainerFormat' @::@ 'Maybe' 'Text'+--+-- * 'etstDiskImageFormat' @::@ 'Maybe' 'Text'+--+-- * 'etstS3Bucket' @::@ 'Maybe' 'Text'+--+-- * 'etstS3Key' @::@ 'Maybe' 'Text'+--+exportToS3Task :: ExportToS3Task+exportToS3Task = ExportToS3Task+    { _etstDiskImageFormat = Nothing+    , _etstContainerFormat = Nothing+    , _etstS3Bucket        = Nothing+    , _etstS3Key           = Nothing+    }++-- | The container format used to combine disk images with metadata (such as+-- OVF). If absent, only the disk image is exported.+etstContainerFormat :: Lens' ExportToS3Task (Maybe Text)+etstContainerFormat =+    lens _etstContainerFormat (\s a -> s { _etstContainerFormat = a })++-- | The format for the exported image.+etstDiskImageFormat :: Lens' ExportToS3Task (Maybe Text)+etstDiskImageFormat =+    lens _etstDiskImageFormat (\s a -> s { _etstDiskImageFormat = a })++-- | The Amazon S3 bucket for the destination image. The destination bucket+-- must exist and grant WRITE and READ_ACL permissions to the AWS account+-- vm-import-export@amazon.com.+etstS3Bucket :: Lens' ExportToS3Task (Maybe Text)+etstS3Bucket = lens _etstS3Bucket (\s a -> s { _etstS3Bucket = a })++etstS3Key :: Lens' ExportToS3Task (Maybe Text)+etstS3Key = lens _etstS3Key (\s a -> s { _etstS3Key = a })++instance FromXML ExportToS3Task where+    parseXML x = ExportToS3Task+        <$> x .@? "containerFormat"+        <*> x .@? "diskImageFormat"+        <*> x .@? "s3Bucket"+        <*> x .@? "s3Key"++instance ToQuery ExportToS3Task where+    toQuery ExportToS3Task{..} = mconcat+        [ "containerFormat" =? _etstContainerFormat+        , "diskImageFormat" =? _etstDiskImageFormat+        , "s3Bucket"        =? _etstS3Bucket+        , "s3Key"           =? _etstS3Key+        ]++data BlockDeviceMapping = BlockDeviceMapping+    { _bdmDeviceName  :: Text+    , _bdmEbs         :: Maybe EbsBlockDevice+    , _bdmNoDevice    :: Maybe Text+    , _bdmVirtualName :: Maybe Text+    } deriving (Eq, Show)++-- | 'BlockDeviceMapping' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'bdmDeviceName' @::@ 'Text'+--+-- * 'bdmEbs' @::@ 'Maybe' 'EbsBlockDevice'+--+-- * 'bdmNoDevice' @::@ 'Maybe' 'Text'+--+-- * 'bdmVirtualName' @::@ 'Maybe' 'Text'+--+blockDeviceMapping :: Text -- ^ 'bdmDeviceName'+                   -> BlockDeviceMapping+blockDeviceMapping p1 = BlockDeviceMapping+    { _bdmDeviceName  = p1+    , _bdmVirtualName = Nothing+    , _bdmEbs         = Nothing+    , _bdmNoDevice    = Nothing+    }++-- | The device name exposed to the instance (for example, /dev/sdh).+bdmDeviceName :: Lens' BlockDeviceMapping Text+bdmDeviceName = lens _bdmDeviceName (\s a -> s { _bdmDeviceName = a })++-- | Parameters used to automatically set up Amazon EBS volumes when the+-- instance is launched.+bdmEbs :: Lens' BlockDeviceMapping (Maybe EbsBlockDevice)+bdmEbs = lens _bdmEbs (\s a -> s { _bdmEbs = a })++-- | Suppresses the specified device included in the block device mapping of+-- the AMI.+bdmNoDevice :: Lens' BlockDeviceMapping (Maybe Text)+bdmNoDevice = lens _bdmNoDevice (\s a -> s { _bdmNoDevice = a })++-- | The virtual device name (ephemeral[0..3]). The number of available+-- instance store volumes depends on the instance type. After you connect to+-- the instance, you must mount the volume. Constraints: For M3 instances,+-- you must specify instance store volumes in the block device mapping for+-- the instance. When you launch an M3 instance, we ignore any instance+-- store volumes specified in the block device mapping for the AMI.+bdmVirtualName :: Lens' BlockDeviceMapping (Maybe Text)+bdmVirtualName = lens _bdmVirtualName (\s a -> s { _bdmVirtualName = a })++instance FromXML BlockDeviceMapping where+    parseXML x = BlockDeviceMapping+        <$> x .@  "deviceName"+        <*> x .@? "ebs"+        <*> x .@? "noDevice"+        <*> x .@? "virtualName"++instance ToQuery BlockDeviceMapping where+    toQuery BlockDeviceMapping{..} = mconcat+        [ "deviceName"  =? _bdmDeviceName+        , "ebs"         =? _bdmEbs+        , "noDevice"    =? _bdmNoDevice+        , "virtualName" =? _bdmVirtualName+        ]++data ConversionTask = ConversionTask+    { _ctConversionTaskId :: Text+    , _ctExpirationTime   :: Maybe Text+    , _ctImportInstance   :: Maybe ImportInstanceTaskDetails+    , _ctImportVolume     :: Maybe ImportVolumeTaskDetails+    , _ctState            :: Text+    , _ctStatusMessage    :: Maybe Text+    , _ctTags             :: List "item" Tag+    } deriving (Eq, Show)++-- | 'ConversionTask' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'ctConversionTaskId' @::@ 'Text'+--+-- * 'ctExpirationTime' @::@ 'Maybe' 'Text'+--+-- * 'ctImportInstance' @::@ 'Maybe' 'ImportInstanceTaskDetails'+--+-- * 'ctImportVolume' @::@ 'Maybe' 'ImportVolumeTaskDetails'+--+-- * 'ctState' @::@ 'Text'+--+-- * 'ctStatusMessage' @::@ 'Maybe' 'Text'+--+-- * 'ctTags' @::@ ['Tag']+--+conversionTask :: Text -- ^ 'ctConversionTaskId'+               -> Text -- ^ 'ctState'+               -> ConversionTask+conversionTask p1 p2 = ConversionTask+    { _ctConversionTaskId = p1+    , _ctState            = p2+    , _ctExpirationTime   = Nothing+    , _ctImportInstance   = Nothing+    , _ctImportVolume     = Nothing+    , _ctStatusMessage    = Nothing+    , _ctTags             = mempty+    }++-- | The ID of the conversion task.+ctConversionTaskId :: Lens' ConversionTask Text+ctConversionTaskId =+    lens _ctConversionTaskId (\s a -> s { _ctConversionTaskId = a })++-- | The time when the task expires. If the upload isn't complete before the+-- expiration time, we automatically cancel the task.+ctExpirationTime :: Lens' ConversionTask (Maybe Text)+ctExpirationTime = lens _ctExpirationTime (\s a -> s { _ctExpirationTime = a })++-- | If the task is for importing an instance, this contains information about+-- the import instance task.+ctImportInstance :: Lens' ConversionTask (Maybe ImportInstanceTaskDetails)+ctImportInstance = lens _ctImportInstance (\s a -> s { _ctImportInstance = a })++-- | If the task is for importing a volume, this contains information about+-- the import volume task.+ctImportVolume :: Lens' ConversionTask (Maybe ImportVolumeTaskDetails)+ctImportVolume = lens _ctImportVolume (\s a -> s { _ctImportVolume = a })++-- | The state of the conversion task.+ctState :: Lens' ConversionTask Text+ctState = lens _ctState (\s a -> s { _ctState = a })++-- | The status message related to the conversion task.+ctStatusMessage :: Lens' ConversionTask (Maybe Text)+ctStatusMessage = lens _ctStatusMessage (\s a -> s { _ctStatusMessage = a })++ctTags :: Lens' ConversionTask [Tag]+ctTags = lens _ctTags (\s a -> s { _ctTags = a }) . _List++instance FromXML ConversionTask where+    parseXML x = ConversionTask+        <$> x .@  "conversionTaskId"+        <*> x .@? "expirationTime"+        <*> x .@? "importInstance"+        <*> x .@? "importVolume"+        <*> x .@  "state"+        <*> x .@? "statusMessage"+        <*> x .@  "tagSet"++instance ToQuery ConversionTask where+    toQuery ConversionTask{..} = mconcat+        [ "conversionTaskId" =? _ctConversionTaskId+        , "expirationTime"   =? _ctExpirationTime+        , "importInstance"   =? _ctImportInstance+        , "importVolume"     =? _ctImportVolume+        , "state"            =? _ctState+        , "statusMessage"    =? _ctStatusMessage+        , "tagSet"           =? _ctTags+        ]++data AttachmentStatus+    = ASAttached  -- ^ attached+    | ASAttaching -- ^ attaching+    | ASDetached  -- ^ detached+    | ASDetaching -- ^ detaching+      deriving (Eq, Ord, Show, Generic, Enum)++instance Hashable AttachmentStatus++instance FromText AttachmentStatus where+    parser = match "attached"  ASAttached+         <|> match "attaching" ASAttaching+         <|> match "detached"  ASDetached+         <|> match "detaching" ASDetaching++instance ToText AttachmentStatus where+    toText = \case+        ASAttached  -> "attached"+        ASAttaching -> "attaching"+        ASDetached  -> "detached"+        ASDetaching -> "detaching"++instance FromXML AttachmentStatus where+    parseXML = parseXMLText "AttachmentStatus"++instance ToQuery AttachmentStatus where+    toQuery = toQuery . toText++data RouteOrigin+    = OriginCreateRoute               -- ^ CreateRoute+    | OriginCreateRouteTable          -- ^ CreateRouteTable+    | OriginEnableVgwRoutePropagation -- ^ EnableVgwRoutePropagation+      deriving (Eq, Ord, Show, Generic, Enum)++instance Hashable RouteOrigin++instance FromText RouteOrigin where+    parser = match "CreateRoute"               OriginCreateRoute+         <|> match "CreateRouteTable"          OriginCreateRouteTable+         <|> match "EnableVgwRoutePropagation" OriginEnableVgwRoutePropagation++instance ToText RouteOrigin where+    toText = \case+        OriginCreateRoute               -> "CreateRoute"+        OriginCreateRouteTable          -> "CreateRouteTable"+        OriginEnableVgwRoutePropagation -> "EnableVgwRoutePropagation"++instance FromXML RouteOrigin where+    parseXML = parseXMLText "RouteOrigin"++instance ToQuery RouteOrigin where+    toQuery = toQuery . toText++data ListingState+    = LSAvailable -- ^ available+    | LSCancelled -- ^ cancelled+    | LSPending   -- ^ pending+    | LSSold      -- ^ sold+      deriving (Eq, Ord, Show, Generic, Enum)++instance Hashable ListingState++instance FromText ListingState where+    parser = match "available" LSAvailable+         <|> match "cancelled" LSCancelled+         <|> match "pending"   LSPending+         <|> match "sold"      LSSold++instance ToText ListingState where+    toText = \case+        LSAvailable -> "available"+        LSCancelled -> "cancelled"+        LSPending   -> "pending"+        LSSold      -> "sold"++instance FromXML ListingState where+    parseXML = parseXMLText "ListingState"++instance ToQuery ListingState where+    toQuery = toQuery . toText++data SpotPrice = SpotPrice+    { _spAvailabilityZone   :: Maybe Text+    , _spInstanceType       :: Maybe Text+    , _spProductDescription :: Maybe Text+    , _spSpotPrice          :: Maybe Text+    , _spTimestamp          :: Maybe RFC822+    } deriving (Eq, Ord, Show)++-- | 'SpotPrice' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'spAvailabilityZone' @::@ 'Maybe' 'Text'+--+-- * 'spInstanceType' @::@ 'Maybe' 'Text'+--+-- * 'spProductDescription' @::@ 'Maybe' 'Text'+--+-- * 'spSpotPrice' @::@ 'Maybe' 'Text'+--+-- * 'spTimestamp' @::@ 'Maybe' 'UTCTime'+--+spotPrice :: SpotPrice+spotPrice = SpotPrice+    { _spInstanceType       = Nothing+    , _spProductDescription = Nothing+    , _spSpotPrice          = Nothing+    , _spTimestamp          = Nothing+    , _spAvailabilityZone   = Nothing+    }++-- | The Availability Zone.+spAvailabilityZone :: Lens' SpotPrice (Maybe Text)+spAvailabilityZone =+    lens _spAvailabilityZone (\s a -> s { _spAvailabilityZone = a })++-- | The instance type.+spInstanceType :: Lens' SpotPrice (Maybe Text)+spInstanceType = lens _spInstanceType (\s a -> s { _spInstanceType = a })++-- | A general description of the AMI.+spProductDescription :: Lens' SpotPrice (Maybe Text)+spProductDescription =+    lens _spProductDescription (\s a -> s { _spProductDescription = a })++-- | The maximum price you will pay to launch one or more Spot Instances.+spSpotPrice :: Lens' SpotPrice (Maybe Text)+spSpotPrice = lens _spSpotPrice (\s a -> s { _spSpotPrice = a })++-- | The date and time the request was created.+spTimestamp :: Lens' SpotPrice (Maybe UTCTime)+spTimestamp = lens _spTimestamp (\s a -> s { _spTimestamp = a }) . mapping _Time++instance FromXML SpotPrice where+    parseXML x = SpotPrice+        <$> x .@? "availabilityZone"+        <*> x .@? "instanceType"+        <*> x .@? "productDescription"+        <*> x .@? "spotPrice"+        <*> x .@? "timestamp"++instance ToQuery SpotPrice where+    toQuery SpotPrice{..} = mconcat+        [ "availabilityZone"   =? _spAvailabilityZone+        , "instanceType"       =? _spInstanceType+        , "productDescription" =? _spProductDescription+        , "spotPrice"          =? _spSpotPrice+        , "timestamp"          =? _spTimestamp+        ]++data InstanceMonitoring = InstanceMonitoring+    { _imInstanceId :: Maybe Text+    , _imMonitoring :: Maybe Monitoring+    } deriving (Eq, Show)++-- | 'InstanceMonitoring' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'imInstanceId' @::@ 'Maybe' 'Text'+--+-- * 'imMonitoring' @::@ 'Maybe' 'Monitoring'+--+instanceMonitoring :: InstanceMonitoring+instanceMonitoring = InstanceMonitoring+    { _imInstanceId = Nothing+    , _imMonitoring = Nothing+    }++-- | The ID of the instance.+imInstanceId :: Lens' InstanceMonitoring (Maybe Text)+imInstanceId = lens _imInstanceId (\s a -> s { _imInstanceId = a })++-- | The monitoring information.+imMonitoring :: Lens' InstanceMonitoring (Maybe Monitoring)+imMonitoring = lens _imMonitoring (\s a -> s { _imMonitoring = a })++instance FromXML InstanceMonitoring where+    parseXML x = InstanceMonitoring+        <$> x .@? "instanceId"+        <*> x .@? "monitoring"++instance ToQuery InstanceMonitoring where+    toQuery InstanceMonitoring{..} = mconcat+        [ "instanceId" =? _imInstanceId+        , "monitoring" =? _imMonitoring+        ]++data PriceScheduleSpecification = PriceScheduleSpecification+    { _pssCurrencyCode :: Maybe Text+    , _pssPrice        :: Maybe Double+    , _pssTerm         :: Maybe Integer+    } deriving (Eq, Ord, Show)++-- | 'PriceScheduleSpecification' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'pssCurrencyCode' @::@ 'Maybe' 'Text'+--+-- * 'pssPrice' @::@ 'Maybe' 'Double'+--+-- * 'pssTerm' @::@ 'Maybe' 'Integer'+--+priceScheduleSpecification :: PriceScheduleSpecification+priceScheduleSpecification = PriceScheduleSpecification+    { _pssTerm         = Nothing+    , _pssPrice        = Nothing+    , _pssCurrencyCode = Nothing+    }++-- | The currency for transacting the Reserved Instance resale. At this time,+-- the only supported currency is USD.+pssCurrencyCode :: Lens' PriceScheduleSpecification (Maybe Text)+pssCurrencyCode = lens _pssCurrencyCode (\s a -> s { _pssCurrencyCode = a })++-- | The fixed price for the term.+pssPrice :: Lens' PriceScheduleSpecification (Maybe Double)+pssPrice = lens _pssPrice (\s a -> s { _pssPrice = a })++-- | The number of months remaining in the reservation. For example, 2 is the+-- second to the last month before the capacity reservation expires.+pssTerm :: Lens' PriceScheduleSpecification (Maybe Integer)+pssTerm = lens _pssTerm (\s a -> s { _pssTerm = a })++instance FromXML PriceScheduleSpecification where+    parseXML x = PriceScheduleSpecification+        <$> x .@? "currencyCode"+        <*> x .@? "price"+        <*> x .@? "term"++instance ToQuery PriceScheduleSpecification where+    toQuery PriceScheduleSpecification{..} = mconcat+        [ "currencyCode" =? _pssCurrencyCode+        , "price"        =? _pssPrice+        , "term"         =? _pssTerm+        ]++data SpotInstanceStatus = SpotInstanceStatus+    { _sisCode       :: Maybe Text+    , _sisMessage    :: Maybe Text+    , _sisUpdateTime :: Maybe RFC822+    } deriving (Eq, Ord, Show)++-- | 'SpotInstanceStatus' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'sisCode' @::@ 'Maybe' 'Text'+--+-- * 'sisMessage' @::@ 'Maybe' 'Text'+--+-- * 'sisUpdateTime' @::@ 'Maybe' 'UTCTime'+--+spotInstanceStatus :: SpotInstanceStatus+spotInstanceStatus = SpotInstanceStatus+    { _sisCode       = Nothing+    , _sisUpdateTime = Nothing+    , _sisMessage    = Nothing+    }++-- | The status code of the request.+sisCode :: Lens' SpotInstanceStatus (Maybe Text)+sisCode = lens _sisCode (\s a -> s { _sisCode = a })++-- | The description for the status code for the Spot request.+sisMessage :: Lens' SpotInstanceStatus (Maybe Text)+sisMessage = lens _sisMessage (\s a -> s { _sisMessage = a })++-- | The time of the most recent status update.+sisUpdateTime :: Lens' SpotInstanceStatus (Maybe UTCTime)+sisUpdateTime = lens _sisUpdateTime (\s a -> s { _sisUpdateTime = a }) . mapping _Time++instance FromXML SpotInstanceStatus where+    parseXML x = SpotInstanceStatus+        <$> x .@? "code"+        <*> x .@? "message"+        <*> x .@? "updateTime"++instance ToQuery SpotInstanceStatus where+    toQuery SpotInstanceStatus{..} = mconcat+        [ "code"       =? _sisCode+        , "message"    =? _sisMessage+        , "updateTime" =? _sisUpdateTime+        ]++data AvailabilityZoneState+    = AZSAvailable -- ^ available+      deriving (Eq, Ord, Show, Generic, Enum)++instance Hashable AvailabilityZoneState++instance FromText AvailabilityZoneState where+    parser = match "available" AZSAvailable++instance ToText AvailabilityZoneState where+    toText AZSAvailable = "available"++instance FromXML AvailabilityZoneState where+    parseXML = parseXMLText "AvailabilityZoneState"++instance ToQuery AvailabilityZoneState where+    toQuery = toQuery . toText++data SpotInstanceRequest = SpotInstanceRequest+    { _siAvailabilityZoneGroup    :: Maybe Text+    , _siCreateTime               :: Maybe RFC822+    , _siFault                    :: Maybe SpotInstanceStateFault+    , _siInstanceId               :: Maybe Text+    , _siLaunchGroup              :: Maybe Text+    , _siLaunchSpecification      :: Maybe LaunchSpecification+    , _siLaunchedAvailabilityZone :: Maybe Text+    , _siProductDescription       :: Maybe Text+    , _siSpotInstanceRequestId    :: Maybe Text+    , _siSpotPrice                :: Maybe Text+    , _siState                    :: Maybe Text+    , _siStatus                   :: Maybe SpotInstanceStatus+    , _siTags                     :: List "item" Tag+    , _siType                     :: Maybe Text+    , _siValidFrom                :: Maybe RFC822+    , _siValidUntil               :: Maybe RFC822+    } deriving (Eq, Show)++-- | 'SpotInstanceRequest' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'siAvailabilityZoneGroup' @::@ 'Maybe' 'Text'+--+-- * 'siCreateTime' @::@ 'Maybe' 'UTCTime'+--+-- * 'siFault' @::@ 'Maybe' 'SpotInstanceStateFault'+--+-- * 'siInstanceId' @::@ 'Maybe' 'Text'+--+-- * 'siLaunchGroup' @::@ 'Maybe' 'Text'+--+-- * 'siLaunchSpecification' @::@ 'Maybe' 'LaunchSpecification'+--+-- * 'siLaunchedAvailabilityZone' @::@ 'Maybe' 'Text'+--+-- * 'siProductDescription' @::@ 'Maybe' 'Text'+--+-- * 'siSpotInstanceRequestId' @::@ 'Maybe' 'Text'+--+-- * 'siSpotPrice' @::@ 'Maybe' 'Text'+--+-- * 'siState' @::@ 'Maybe' 'Text'+--+-- * 'siStatus' @::@ 'Maybe' 'SpotInstanceStatus'+--+-- * 'siTags' @::@ ['Tag']+--+-- * 'siType' @::@ 'Maybe' 'Text'+--+-- * 'siValidFrom' @::@ 'Maybe' 'UTCTime'+--+-- * 'siValidUntil' @::@ 'Maybe' 'UTCTime'+--+spotInstanceRequest :: SpotInstanceRequest+spotInstanceRequest = SpotInstanceRequest+    { _siSpotInstanceRequestId    = Nothing+    , _siSpotPrice                = Nothing+    , _siType                     = Nothing+    , _siState                    = Nothing+    , _siFault                    = Nothing+    , _siStatus                   = Nothing+    , _siValidFrom                = Nothing+    , _siValidUntil               = Nothing+    , _siLaunchGroup              = Nothing+    , _siAvailabilityZoneGroup    = Nothing+    , _siLaunchSpecification      = Nothing+    , _siInstanceId               = Nothing+    , _siCreateTime               = Nothing+    , _siProductDescription       = Nothing+    , _siTags                     = mempty+    , _siLaunchedAvailabilityZone = Nothing+    }++-- | The Availability Zone group. If you specify the same Availability Zone+-- group for all Spot Instance requests, all Spot Instances are launched in+-- the same Availability Zone.+siAvailabilityZoneGroup :: Lens' SpotInstanceRequest (Maybe Text)+siAvailabilityZoneGroup =+    lens _siAvailabilityZoneGroup (\s a -> s { _siAvailabilityZoneGroup = a })++-- | The time stamp when the Spot Instance request was created.+siCreateTime :: Lens' SpotInstanceRequest (Maybe UTCTime)+siCreateTime = lens _siCreateTime (\s a -> s { _siCreateTime = a }) . mapping _Time++-- | The fault codes for the Spot Instance request, if any.+siFault :: Lens' SpotInstanceRequest (Maybe SpotInstanceStateFault)+siFault = lens _siFault (\s a -> s { _siFault = a })++-- | The instance ID, if an instance has been launched to fulfill the Spot+-- Instance request.+siInstanceId :: Lens' SpotInstanceRequest (Maybe Text)+siInstanceId = lens _siInstanceId (\s a -> s { _siInstanceId = a })++-- | The instance launch group. Launch groups are Spot Instances that launch+-- together and terminate together.+siLaunchGroup :: Lens' SpotInstanceRequest (Maybe Text)+siLaunchGroup = lens _siLaunchGroup (\s a -> s { _siLaunchGroup = a })++-- | Additional information for launching instances.+siLaunchSpecification :: Lens' SpotInstanceRequest (Maybe LaunchSpecification)+siLaunchSpecification =+    lens _siLaunchSpecification (\s a -> s { _siLaunchSpecification = a })++-- | The Availability Zone in which the bid is launched.+siLaunchedAvailabilityZone :: Lens' SpotInstanceRequest (Maybe Text)+siLaunchedAvailabilityZone =+    lens _siLaunchedAvailabilityZone+        (\s a -> s { _siLaunchedAvailabilityZone = a })++-- | The product description associated with the Spot Instance.+siProductDescription :: Lens' SpotInstanceRequest (Maybe Text)+siProductDescription =+    lens _siProductDescription (\s a -> s { _siProductDescription = a })++-- | The ID of the Spot Instance request.+siSpotInstanceRequestId :: Lens' SpotInstanceRequest (Maybe Text)+siSpotInstanceRequestId =+    lens _siSpotInstanceRequestId (\s a -> s { _siSpotInstanceRequestId = a })++-- | The maximum hourly price for any Spot Instance launched to fulfill the+-- request.+siSpotPrice :: Lens' SpotInstanceRequest (Maybe Text)+siSpotPrice = lens _siSpotPrice (\s a -> s { _siSpotPrice = a })++-- | The state of the Spot Instance request. Spot bid status information can+-- help you track your Spot Instance requests. For information, see Tracking+-- Spot Requests with Bid Status Codes in the Amazon Elastic Compute Cloud+-- User Guide.+siState :: Lens' SpotInstanceRequest (Maybe Text)+siState = lens _siState (\s a -> s { _siState = a })++-- | The status code and status message describing the Spot Instance request.+siStatus :: Lens' SpotInstanceRequest (Maybe SpotInstanceStatus)+siStatus = lens _siStatus (\s a -> s { _siStatus = a })++-- | Any tags assigned to the resource.+siTags :: Lens' SpotInstanceRequest [Tag]+siTags = lens _siTags (\s a -> s { _siTags = a }) . _List++-- | The Spot Instance request type.+siType :: Lens' SpotInstanceRequest (Maybe Text)+siType = lens _siType (\s a -> s { _siType = a })++-- | The start date of the request. If this is a one-time request, the request+-- becomes active at this date and time and remains active until all+-- instances launch, the request expires, or the request is canceled. If the+-- request is persistent, the request becomes active at this date and time+-- and remains active until it expires or is canceled.+siValidFrom :: Lens' SpotInstanceRequest (Maybe UTCTime)+siValidFrom = lens _siValidFrom (\s a -> s { _siValidFrom = a }) . mapping _Time++-- | The end date of the request. If this is a one-time request, the request+-- remains active until all instances launch, the request is canceled, or+-- this date is reached. If the request is persistent, it remains active+-- until it is canceled or this date is reached.+siValidUntil :: Lens' SpotInstanceRequest (Maybe UTCTime)+siValidUntil = lens _siValidUntil (\s a -> s { _siValidUntil = a }) . mapping _Time++instance FromXML SpotInstanceRequest where+    parseXML x = SpotInstanceRequest+        <$> x .@? "availabilityZoneGroup"+        <*> x .@? "createTime"+        <*> x .@? "fault"+        <*> x .@? "instanceId"+        <*> x .@? "launchGroup"+        <*> x .@? "launchSpecification"+        <*> x .@? "launchedAvailabilityZone"+        <*> x .@? "productDescription"+        <*> x .@? "spotInstanceRequestId"+        <*> x .@? "spotPrice"+        <*> x .@? "state"+        <*> x .@? "status"+        <*> x .@  "tagSet"+        <*> x .@? "type"+        <*> x .@? "validFrom"+        <*> x .@? "validUntil"++instance ToQuery SpotInstanceRequest where+    toQuery SpotInstanceRequest{..} = mconcat+        [ "availabilityZoneGroup"    =? _siAvailabilityZoneGroup+        , "createTime"               =? _siCreateTime+        , "fault"                    =? _siFault+        , "instanceId"               =? _siInstanceId+        , "launchGroup"              =? _siLaunchGroup+        , "launchSpecification"      =? _siLaunchSpecification+        , "launchedAvailabilityZone" =? _siLaunchedAvailabilityZone+        , "productDescription"       =? _siProductDescription+        , "spotInstanceRequestId"    =? _siSpotInstanceRequestId+        , "spotPrice"                =? _siSpotPrice+        , "state"                    =? _siState+        , "status"                   =? _siStatus+        , "tagSet"                   =? _siTags+        , "type"                     =? _siType+        , "validFrom"                =? _siValidFrom+        , "validUntil"               =? _siValidUntil+        ]++data LaunchSpecification = LaunchSpecification+    { _lsAddressingType      :: Maybe Text+    , _lsBlockDeviceMappings :: List "item" BlockDeviceMapping+    , _lsEbsOptimized        :: Maybe Bool+    , _lsIamInstanceProfile  :: Maybe IamInstanceProfileSpecification+    , _lsImageId             :: Maybe Text+    , _lsInstanceType        :: Maybe Text+    , _lsKernelId            :: Maybe Text+    , _lsKeyName             :: Maybe Text+    , _lsMonitoring          :: Maybe RunInstancesMonitoringEnabled+    , _lsNetworkInterfaces   :: List "item" InstanceNetworkInterfaceSpecification+    , _lsPlacement           :: Maybe SpotPlacement+    , _lsRamdiskId           :: Maybe Text+    , _lsSecurityGroups      :: List "item" GroupIdentifier+    , _lsSubnetId            :: Maybe Text+    , _lsUserData            :: Maybe Text+    } deriving (Eq, Show)++-- | 'LaunchSpecification' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'lsAddressingType' @::@ 'Maybe' 'Text'+--+-- * 'lsBlockDeviceMappings' @::@ ['BlockDeviceMapping']+--+-- * 'lsEbsOptimized' @::@ 'Maybe' 'Bool'+--+-- * 'lsIamInstanceProfile' @::@ 'Maybe' 'IamInstanceProfileSpecification'+--+-- * 'lsImageId' @::@ 'Maybe' 'Text'+--+-- * 'lsInstanceType' @::@ 'Maybe' 'Text'+--+-- * 'lsKernelId' @::@ 'Maybe' 'Text'+--+-- * 'lsKeyName' @::@ 'Maybe' 'Text'+--+-- * 'lsMonitoring' @::@ 'Maybe' 'RunInstancesMonitoringEnabled'+--+-- * 'lsNetworkInterfaces' @::@ ['InstanceNetworkInterfaceSpecification']+--+-- * 'lsPlacement' @::@ 'Maybe' 'SpotPlacement'+--+-- * 'lsRamdiskId' @::@ 'Maybe' 'Text'+--+-- * 'lsSecurityGroups' @::@ ['GroupIdentifier']+--+-- * 'lsSubnetId' @::@ 'Maybe' 'Text'+--+-- * 'lsUserData' @::@ 'Maybe' 'Text'+--+launchSpecification :: LaunchSpecification+launchSpecification = LaunchSpecification+    { _lsImageId             = Nothing+    , _lsKeyName             = Nothing+    , _lsSecurityGroups      = mempty+    , _lsUserData            = Nothing+    , _lsAddressingType      = Nothing+    , _lsInstanceType        = Nothing+    , _lsPlacement           = Nothing+    , _lsKernelId            = Nothing+    , _lsRamdiskId           = Nothing+    , _lsBlockDeviceMappings = mempty+    , _lsSubnetId            = Nothing+    , _lsNetworkInterfaces   = mempty+    , _lsIamInstanceProfile  = Nothing+    , _lsEbsOptimized        = Nothing+    , _lsMonitoring          = Nothing+    }++-- | Deprecated.+lsAddressingType :: Lens' LaunchSpecification (Maybe Text)+lsAddressingType = lens _lsAddressingType (\s a -> s { _lsAddressingType = a })++-- | One or more block device mapping entries.+lsBlockDeviceMappings :: Lens' LaunchSpecification [BlockDeviceMapping]+lsBlockDeviceMappings =+    lens _lsBlockDeviceMappings (\s a -> s { _lsBlockDeviceMappings = a })+        . _List++-- | Indicates whether the instance is optimized for EBS I/O. This+-- optimization provides dedicated throughput to Amazon EBS and an optimized+-- configuration stack to provide optimal EBS I/O performance. This+-- optimization isn't available with all instance types. Additional usage+-- charges apply when using an EBS Optimized instance. Default: false.+lsEbsOptimized :: Lens' LaunchSpecification (Maybe Bool)+lsEbsOptimized = lens _lsEbsOptimized (\s a -> s { _lsEbsOptimized = a })++-- | The IAM instance profile.+lsIamInstanceProfile :: Lens' LaunchSpecification (Maybe IamInstanceProfileSpecification)+lsIamInstanceProfile =+    lens _lsIamInstanceProfile (\s a -> s { _lsIamInstanceProfile = a })++-- | The ID of the AMI.+lsImageId :: Lens' LaunchSpecification (Maybe Text)+lsImageId = lens _lsImageId (\s a -> s { _lsImageId = a })++-- | The instance type. Default: m1.small.+lsInstanceType :: Lens' LaunchSpecification (Maybe Text)+lsInstanceType = lens _lsInstanceType (\s a -> s { _lsInstanceType = a })++-- | The ID of the kernel.+lsKernelId :: Lens' LaunchSpecification (Maybe Text)+lsKernelId = lens _lsKernelId (\s a -> s { _lsKernelId = a })++-- | The name of the key pair.+lsKeyName :: Lens' LaunchSpecification (Maybe Text)+lsKeyName = lens _lsKeyName (\s a -> s { _lsKeyName = a })++lsMonitoring :: Lens' LaunchSpecification (Maybe RunInstancesMonitoringEnabled)+lsMonitoring = lens _lsMonitoring (\s a -> s { _lsMonitoring = a })++-- | One or more network interfaces.+lsNetworkInterfaces :: Lens' LaunchSpecification [InstanceNetworkInterfaceSpecification]+lsNetworkInterfaces =+    lens _lsNetworkInterfaces (\s a -> s { _lsNetworkInterfaces = a })+        . _List++-- | The placement information for the instance.+lsPlacement :: Lens' LaunchSpecification (Maybe SpotPlacement)+lsPlacement = lens _lsPlacement (\s a -> s { _lsPlacement = a })++-- | The ID of the RAM disk.+lsRamdiskId :: Lens' LaunchSpecification (Maybe Text)+lsRamdiskId = lens _lsRamdiskId (\s a -> s { _lsRamdiskId = a })++-- | One or more security groups. If requesting a Spot Instance in a+-- nondefault VPC, you must specify the security group ID. If requesting a+-- Spot Instance in EC2-Classic or a default VPC, you can specify either the+-- security group name or ID.+lsSecurityGroups :: Lens' LaunchSpecification [GroupIdentifier]+lsSecurityGroups = lens _lsSecurityGroups (\s a -> s { _lsSecurityGroups = a }) . _List++-- | The ID of the subnet in which to launch the Spot Instance.+lsSubnetId :: Lens' LaunchSpecification (Maybe Text)+lsSubnetId = lens _lsSubnetId (\s a -> s { _lsSubnetId = a })++-- | The Base64-encoded MIME user data to make available to the instances.+lsUserData :: Lens' LaunchSpecification (Maybe Text)+lsUserData = lens _lsUserData (\s a -> s { _lsUserData = a })++instance FromXML LaunchSpecification where+    parseXML x = LaunchSpecification+        <$> x .@? "addressingType"+        <*> x .@  "blockDeviceMapping"+        <*> x .@? "ebsOptimized"+        <*> x .@? "iamInstanceProfile"+        <*> x .@? "imageId"+        <*> x .@? "instanceType"+        <*> x .@? "kernelId"+        <*> x .@? "keyName"+        <*> x .@? "monitoring"+        <*> x .@  "networkInterfaceSet"+        <*> x .@? "placement"+        <*> x .@? "ramdiskId"+        <*> x .@  "groupSet"+        <*> x .@? "subnetId"+        <*> x .@? "userData"++instance ToQuery LaunchSpecification where+    toQuery LaunchSpecification{..} = mconcat+        [ "addressingType"      =? _lsAddressingType+        , "blockDeviceMapping"  =? _lsBlockDeviceMappings+        , "ebsOptimized"        =? _lsEbsOptimized+        , "iamInstanceProfile"  =? _lsIamInstanceProfile+        , "imageId"             =? _lsImageId+        , "instanceType"        =? _lsInstanceType+        , "kernelId"            =? _lsKernelId+        , "keyName"             =? _lsKeyName+        , "monitoring"          =? _lsMonitoring+        , "networkInterfaceSet" =? _lsNetworkInterfaces+        , "placement"           =? _lsPlacement+        , "ramdiskId"           =? _lsRamdiskId+        , "groupSet"            =? _lsSecurityGroups+        , "subnetId"            =? _lsSubnetId+        , "userData"            =? _lsUserData+        ]++data VolumeStatusEvent = VolumeStatusEvent+    { _vseDescription :: Maybe Text+    , _vseEventId     :: Maybe Text+    , _vseEventType   :: Maybe Text+    , _vseNotAfter    :: Maybe RFC822+    , _vseNotBefore   :: Maybe RFC822+    } deriving (Eq, Ord, Show)++-- | 'VolumeStatusEvent' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'vseDescription' @::@ 'Maybe' 'Text'+--+-- * 'vseEventId' @::@ 'Maybe' 'Text'+--+-- * 'vseEventType' @::@ 'Maybe' 'Text'+--+-- * 'vseNotAfter' @::@ 'Maybe' 'UTCTime'+--+-- * 'vseNotBefore' @::@ 'Maybe' 'UTCTime'+--+volumeStatusEvent :: VolumeStatusEvent+volumeStatusEvent = VolumeStatusEvent+    { _vseEventType   = Nothing+    , _vseDescription = Nothing+    , _vseNotBefore   = Nothing+    , _vseNotAfter    = Nothing+    , _vseEventId     = Nothing+    }++-- | A description of the event.+vseDescription :: Lens' VolumeStatusEvent (Maybe Text)+vseDescription = lens _vseDescription (\s a -> s { _vseDescription = a })++-- | The ID of this event.+vseEventId :: Lens' VolumeStatusEvent (Maybe Text)+vseEventId = lens _vseEventId (\s a -> s { _vseEventId = a })++-- | The type of this event.+vseEventType :: Lens' VolumeStatusEvent (Maybe Text)+vseEventType = lens _vseEventType (\s a -> s { _vseEventType = a })++-- | The latest end time of the event.+vseNotAfter :: Lens' VolumeStatusEvent (Maybe UTCTime)+vseNotAfter = lens _vseNotAfter (\s a -> s { _vseNotAfter = a }) . mapping _Time++-- | The earliest start time of the event.+vseNotBefore :: Lens' VolumeStatusEvent (Maybe UTCTime)+vseNotBefore = lens _vseNotBefore (\s a -> s { _vseNotBefore = a }) . mapping _Time++instance FromXML VolumeStatusEvent where+    parseXML x = VolumeStatusEvent+        <$> x .@? "description"+        <*> x .@? "eventId"+        <*> x .@? "eventType"+        <*> x .@? "notAfter"+        <*> x .@? "notBefore"++instance ToQuery VolumeStatusEvent where+    toQuery VolumeStatusEvent{..} = mconcat+        [ "description" =? _vseDescription+        , "eventId"     =? _vseEventId+        , "eventType"   =? _vseEventType+        , "notAfter"    =? _vseNotAfter+        , "notBefore"   =? _vseNotBefore+        ]++data Volume = Volume+    { _vAttachments      :: List "item" VolumeAttachment+    , _vAvailabilityZone :: Maybe Text+    , _vCreateTime       :: Maybe RFC822+    , _vEncrypted        :: Maybe Bool+    , _vIops             :: Maybe Int+    , _vSize             :: Maybe Int+    , _vSnapshotId       :: Maybe Text+    , _vState            :: Maybe Text+    , _vTags             :: List "item" Tag+    , _vVolumeId         :: Maybe Text+    , _vVolumeType       :: Maybe Text+    } deriving (Eq, Show)++-- | 'Volume' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'vAttachments' @::@ ['VolumeAttachment']+--+-- * 'vAvailabilityZone' @::@ 'Maybe' 'Text'+--+-- * 'vCreateTime' @::@ 'Maybe' 'UTCTime'+--+-- * 'vEncrypted' @::@ 'Maybe' 'Bool'+--+-- * 'vIops' @::@ 'Maybe' 'Int'+--+-- * 'vSize' @::@ 'Maybe' 'Int'+--+-- * 'vSnapshotId' @::@ 'Maybe' 'Text'+--+-- * 'vState' @::@ 'Maybe' 'Text'+--+-- * 'vTags' @::@ ['Tag']+--+-- * 'vVolumeId' @::@ 'Maybe' 'Text'+--+-- * 'vVolumeType' @::@ 'Maybe' 'Text'+--+volume :: Volume+volume = Volume+    { _vVolumeId         = Nothing+    , _vSize             = Nothing+    , _vSnapshotId       = Nothing+    , _vAvailabilityZone = Nothing+    , _vState            = Nothing+    , _vCreateTime       = Nothing+    , _vAttachments      = mempty+    , _vTags             = mempty+    , _vVolumeType       = Nothing+    , _vIops             = Nothing+    , _vEncrypted        = Nothing+    }++vAttachments :: Lens' Volume [VolumeAttachment]+vAttachments = lens _vAttachments (\s a -> s { _vAttachments = a }) . _List++-- | The Availability Zone for the volume.+vAvailabilityZone :: Lens' Volume (Maybe Text)+vAvailabilityZone =+    lens _vAvailabilityZone (\s a -> s { _vAvailabilityZone = a })++-- | The time stamp when volume creation was initiated.+vCreateTime :: Lens' Volume (Maybe UTCTime)+vCreateTime = lens _vCreateTime (\s a -> s { _vCreateTime = a }) . mapping _Time++-- | Indicates whether the volume is encrypted.+vEncrypted :: Lens' Volume (Maybe Bool)+vEncrypted = lens _vEncrypted (\s a -> s { _vEncrypted = a })++-- | The number of I/O operations per second (IOPS) that the volume supports.+-- For Provisioned IOPS (SSD) volumes, this represents the number of IOPS+-- that are provisioned for the volume. For General Purpose (SSD) volumes,+-- this represents the baseline performance of the volume and the rate at+-- which the volume accumulates I/O credits for bursting. For more+-- information on General Purpose (SSD) baseline performance, I/O credits,+-- and bursting, see Amazon EBS Volume Types in the Amazon Elastic Compute+-- Cloud User Guide. Constraint: Range is 100 to 4000 for Provisioned IOPS+-- (SSD) volumes and 3 to 3072 for General Purpose (SSD) volumes. Condition:+-- This parameter is required for requests to create io1 volumes; it is not+-- used in requests to create standard or gp2 volumes.+vIops :: Lens' Volume (Maybe Int)+vIops = lens _vIops (\s a -> s { _vIops = a })++-- | The size of the volume, in GiBs.+vSize :: Lens' Volume (Maybe Int)+vSize = lens _vSize (\s a -> s { _vSize = a })++-- | The snapshot from which the volume was created, if applicable.+vSnapshotId :: Lens' Volume (Maybe Text)+vSnapshotId = lens _vSnapshotId (\s a -> s { _vSnapshotId = a })++-- | The volume state.+vState :: Lens' Volume (Maybe Text)+vState = lens _vState (\s a -> s { _vState = a })++-- | Any tags assigned to the volume.+vTags :: Lens' Volume [Tag]+vTags = lens _vTags (\s a -> s { _vTags = a }) . _List++-- | The ID of the volume.+vVolumeId :: Lens' Volume (Maybe Text)+vVolumeId = lens _vVolumeId (\s a -> s { _vVolumeId = a })++-- | The volume type. This can be gp2 for General Purpose (SSD) volumes, io1+-- for Provisioned IOPS (SSD) volumes, or standard for Magnetic volumes.+vVolumeType :: Lens' Volume (Maybe Text)+vVolumeType = lens _vVolumeType (\s a -> s { _vVolumeType = a })++instance FromXML Volume where+    parseXML x = Volume+        <$> x .@  "attachmentSet"+        <*> x .@? "availabilityZone"+        <*> x .@? "createTime"+        <*> x .@? "encrypted"+        <*> x .@? "iops"+        <*> x .@? "size"+        <*> x .@? "snapshotId"+        <*> x .@? "status"+        <*> x .@  "tagSet"+        <*> x .@? "volumeId"+        <*> x .@? "volumeType"++instance ToQuery Volume where+    toQuery Volume{..} = mconcat+        [ "attachmentSet"    =? _vAttachments+        , "availabilityZone" =? _vAvailabilityZone+        , "createTime"       =? _vCreateTime+        , "encrypted"        =? _vEncrypted+        , "iops"             =? _vIops+        , "size"             =? _vSize+        , "snapshotId"       =? _vSnapshotId+        , "status"           =? _vState+        , "tagSet"           =? _vTags+        , "volumeId"         =? _vVolumeId+        , "volumeType"       =? _vVolumeType+        ]++data Reservation = Reservation+    { _rGroups        :: List "item" GroupIdentifier+    , _rInstances     :: List "item" Instance+    , _rOwnerId       :: Maybe Text+    , _rRequesterId   :: Maybe Text+    , _rReservationId :: Maybe Text+    } deriving (Eq, Show)++-- | 'Reservation' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'rGroups' @::@ ['GroupIdentifier']+--+-- * 'rInstances' @::@ ['Instance']+--+-- * 'rOwnerId' @::@ 'Maybe' 'Text'+--+-- * 'rRequesterId' @::@ 'Maybe' 'Text'+--+-- * 'rReservationId' @::@ 'Maybe' 'Text'+--+reservation :: Reservation+reservation = Reservation+    { _rReservationId = Nothing+    , _rOwnerId       = Nothing+    , _rRequesterId   = Nothing+    , _rGroups        = mempty+    , _rInstances     = mempty+    }++-- | One or more security groups.+rGroups :: Lens' Reservation [GroupIdentifier]+rGroups = lens _rGroups (\s a -> s { _rGroups = a }) . _List++-- | One or more instances.+rInstances :: Lens' Reservation [Instance]+rInstances = lens _rInstances (\s a -> s { _rInstances = a }) . _List++-- | The ID of the AWS account that owns the reservation.+rOwnerId :: Lens' Reservation (Maybe Text)+rOwnerId = lens _rOwnerId (\s a -> s { _rOwnerId = a })++-- | The ID of the requester that launched the instances on your behalf (for+-- example, AWS Management Console or Auto Scaling).+rRequesterId :: Lens' Reservation (Maybe Text)+rRequesterId = lens _rRequesterId (\s a -> s { _rRequesterId = a })++-- | The ID of the reservation.+rReservationId :: Lens' Reservation (Maybe Text)+rReservationId = lens _rReservationId (\s a -> s { _rReservationId = a })++instance FromXML Reservation where+    parseXML x = Reservation+        <$> x .@  "groupSet"+        <*> x .@  "instancesSet"+        <*> x .@? "ownerId"+        <*> x .@? "requesterId"+        <*> x .@? "reservationId"++instance ToQuery Reservation where+    toQuery Reservation{..} = mconcat+        [ "groupSet"      =? _rGroups+        , "instancesSet"  =? _rInstances+        , "ownerId"       =? _rOwnerId+        , "requesterId"   =? _rRequesterId+        , "reservationId" =? _rReservationId+        ]++data ImportInstanceVolumeDetailItem = ImportInstanceVolumeDetailItem+    { _iivdiAvailabilityZone :: Text+    , _iivdiBytesConverted   :: Integer+    , _iivdiDescription      :: Maybe Text+    , _iivdiImage            :: DiskImageDescription+    , _iivdiStatus           :: Text+    , _iivdiStatusMessage    :: Maybe Text+    , _iivdiVolume           :: DiskImageVolumeDescription+    } deriving (Eq, Show)++-- | 'ImportInstanceVolumeDetailItem' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'iivdiAvailabilityZone' @::@ 'Text'+--+-- * 'iivdiBytesConverted' @::@ 'Integer'+--+-- * 'iivdiDescription' @::@ 'Maybe' 'Text'+--+-- * 'iivdiImage' @::@ 'DiskImageDescription'+--+-- * 'iivdiStatus' @::@ 'Text'+--+-- * 'iivdiStatusMessage' @::@ 'Maybe' 'Text'+--+-- * 'iivdiVolume' @::@ 'DiskImageVolumeDescription'+--+importInstanceVolumeDetailItem :: Integer -- ^ 'iivdiBytesConverted'+                               -> Text -- ^ 'iivdiAvailabilityZone'+                               -> DiskImageDescription -- ^ 'iivdiImage'+                               -> DiskImageVolumeDescription -- ^ 'iivdiVolume'+                               -> Text -- ^ 'iivdiStatus'+                               -> ImportInstanceVolumeDetailItem+importInstanceVolumeDetailItem p1 p2 p3 p4 p5 = ImportInstanceVolumeDetailItem+    { _iivdiBytesConverted   = p1+    , _iivdiAvailabilityZone = p2+    , _iivdiImage            = p3+    , _iivdiVolume           = p4+    , _iivdiStatus           = p5+    , _iivdiStatusMessage    = Nothing+    , _iivdiDescription      = Nothing+    }++-- | The Availability Zone where the resulting instance will reside.+iivdiAvailabilityZone :: Lens' ImportInstanceVolumeDetailItem Text+iivdiAvailabilityZone =+    lens _iivdiAvailabilityZone (\s a -> s { _iivdiAvailabilityZone = a })++-- | The number of bytes converted so far.+iivdiBytesConverted :: Lens' ImportInstanceVolumeDetailItem Integer+iivdiBytesConverted =+    lens _iivdiBytesConverted (\s a -> s { _iivdiBytesConverted = a })++iivdiDescription :: Lens' ImportInstanceVolumeDetailItem (Maybe Text)+iivdiDescription = lens _iivdiDescription (\s a -> s { _iivdiDescription = a })++-- | The image.+iivdiImage :: Lens' ImportInstanceVolumeDetailItem DiskImageDescription+iivdiImage = lens _iivdiImage (\s a -> s { _iivdiImage = a })++-- | The status of the import of this particular disk image.+iivdiStatus :: Lens' ImportInstanceVolumeDetailItem Text+iivdiStatus = lens _iivdiStatus (\s a -> s { _iivdiStatus = a })++-- | The status information or errors related to the disk image.+iivdiStatusMessage :: Lens' ImportInstanceVolumeDetailItem (Maybe Text)+iivdiStatusMessage =+    lens _iivdiStatusMessage (\s a -> s { _iivdiStatusMessage = a })++-- | The volume.+iivdiVolume :: Lens' ImportInstanceVolumeDetailItem DiskImageVolumeDescription+iivdiVolume = lens _iivdiVolume (\s a -> s { _iivdiVolume = a })++instance FromXML ImportInstanceVolumeDetailItem where+    parseXML x = ImportInstanceVolumeDetailItem+        <$> x .@  "availabilityZone"+        <*> x .@  "bytesConverted"+        <*> x .@? "description"+        <*> x .@  "image"+        <*> x .@  "status"+        <*> x .@? "statusMessage"+        <*> x .@  "volume"++instance ToQuery ImportInstanceVolumeDetailItem where+    toQuery ImportInstanceVolumeDetailItem{..} = mconcat+        [ "availabilityZone" =? _iivdiAvailabilityZone+        , "bytesConverted"   =? _iivdiBytesConverted+        , "description"      =? _iivdiDescription+        , "image"            =? _iivdiImage+        , "status"           =? _iivdiStatus+        , "statusMessage"    =? _iivdiStatusMessage+        , "volume"           =? _iivdiVolume+        ]++data SummaryStatus+    = SSImpaired         -- ^ impaired+    | SSInsufficientData -- ^ insufficient-data+    | SSNotApplicable    -- ^ not-applicable+    | SSOk               -- ^ ok+      deriving (Eq, Ord, Show, Generic, Enum)++instance Hashable SummaryStatus++instance FromText SummaryStatus where+    parser = match "impaired"          SSImpaired+         <|> match "insufficient-data" SSInsufficientData+         <|> match "not-applicable"    SSNotApplicable+         <|> match "ok"                SSOk++instance ToText SummaryStatus where+    toText = \case+        SSImpaired         -> "impaired"+        SSInsufficientData -> "insufficient-data"+        SSNotApplicable    -> "not-applicable"+        SSOk               -> "ok"++instance FromXML SummaryStatus where+    parseXML = parseXMLText "SummaryStatus"++instance ToQuery SummaryStatus where+    toQuery = toQuery . toText++data ReservedInstancesModification = ReservedInstancesModification+    { _rimClientToken                     :: Maybe Text+    , _rimCreateDate                      :: Maybe RFC822+    , _rimEffectiveDate                   :: Maybe RFC822+    , _rimModificationResults             :: List "item" ReservedInstancesModificationResult+    , _rimReservedInstancesIds            :: List "item" ReservedInstancesId+    , _rimReservedInstancesModificationId :: Maybe Text+    , _rimStatus                          :: Maybe Text+    , _rimStatusMessage                   :: Maybe Text+    , _rimUpdateDate                      :: Maybe RFC822+    } deriving (Eq, Show)++-- | 'ReservedInstancesModification' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'rimClientToken' @::@ 'Maybe' 'Text'+--+-- * 'rimCreateDate' @::@ 'Maybe' 'UTCTime'+--+-- * 'rimEffectiveDate' @::@ 'Maybe' 'UTCTime'+--+-- * 'rimModificationResults' @::@ ['ReservedInstancesModificationResult']+--+-- * 'rimReservedInstancesIds' @::@ ['ReservedInstancesId']+--+-- * 'rimReservedInstancesModificationId' @::@ 'Maybe' 'Text'+--+-- * 'rimStatus' @::@ 'Maybe' 'Text'+--+-- * 'rimStatusMessage' @::@ 'Maybe' 'Text'+--+-- * 'rimUpdateDate' @::@ 'Maybe' 'UTCTime'+--+reservedInstancesModification :: ReservedInstancesModification+reservedInstancesModification = ReservedInstancesModification+    { _rimReservedInstancesModificationId = Nothing+    , _rimReservedInstancesIds            = mempty+    , _rimModificationResults             = mempty+    , _rimCreateDate                      = Nothing+    , _rimUpdateDate                      = Nothing+    , _rimEffectiveDate                   = Nothing+    , _rimStatus                          = Nothing+    , _rimStatusMessage                   = Nothing+    , _rimClientToken                     = Nothing+    }++-- | A unique, case-sensitive key supplied by the client to ensure that the+-- modification request is idempotent.+rimClientToken :: Lens' ReservedInstancesModification (Maybe Text)+rimClientToken = lens _rimClientToken (\s a -> s { _rimClientToken = a })++-- | The time when the modification request was created.+rimCreateDate :: Lens' ReservedInstancesModification (Maybe UTCTime)+rimCreateDate = lens _rimCreateDate (\s a -> s { _rimCreateDate = a }) . mapping _Time++-- | The time for the modification to become effective.+rimEffectiveDate :: Lens' ReservedInstancesModification (Maybe UTCTime)+rimEffectiveDate = lens _rimEffectiveDate (\s a -> s { _rimEffectiveDate = a }) . mapping _Time++-- | Contains target configurations along with their corresponding new+-- Reserved Instance IDs.+rimModificationResults :: Lens' ReservedInstancesModification [ReservedInstancesModificationResult]+rimModificationResults =+    lens _rimModificationResults (\s a -> s { _rimModificationResults = a })+        . _List++-- | The IDs of one or more Reserved Instances.+rimReservedInstancesIds :: Lens' ReservedInstancesModification [ReservedInstancesId]+rimReservedInstancesIds =+    lens _rimReservedInstancesIds (\s a -> s { _rimReservedInstancesIds = a })+        . _List++-- | A unique ID for the Reserved Instance modification.+rimReservedInstancesModificationId :: Lens' ReservedInstancesModification (Maybe Text)+rimReservedInstancesModificationId =+    lens _rimReservedInstancesModificationId+        (\s a -> s { _rimReservedInstancesModificationId = a })++-- | The status of the Reserved Instances modification request.+rimStatus :: Lens' ReservedInstancesModification (Maybe Text)+rimStatus = lens _rimStatus (\s a -> s { _rimStatus = a })++-- | The reason for the status.+rimStatusMessage :: Lens' ReservedInstancesModification (Maybe Text)+rimStatusMessage = lens _rimStatusMessage (\s a -> s { _rimStatusMessage = a })++-- | The time when the modification request was last updated.+rimUpdateDate :: Lens' ReservedInstancesModification (Maybe UTCTime)+rimUpdateDate = lens _rimUpdateDate (\s a -> s { _rimUpdateDate = a }) . mapping _Time++instance FromXML ReservedInstancesModification where+    parseXML x = ReservedInstancesModification+        <$> x .@? "clientToken"+        <*> x .@? "createDate"+        <*> x .@? "effectiveDate"+        <*> x .@  "modificationResultSet"+        <*> x .@  "reservedInstancesSet"+        <*> x .@? "reservedInstancesModificationId"+        <*> x .@? "status"+        <*> x .@? "statusMessage"+        <*> x .@? "updateDate"++instance ToQuery ReservedInstancesModification where+    toQuery ReservedInstancesModification{..} = mconcat+        [ "clientToken"                     =? _rimClientToken+        , "createDate"                      =? _rimCreateDate+        , "effectiveDate"                   =? _rimEffectiveDate+        , "modificationResultSet"           =? _rimModificationResults+        , "reservedInstancesSet"            =? _rimReservedInstancesIds+        , "reservedInstancesModificationId" =? _rimReservedInstancesModificationId+        , "status"                          =? _rimStatus+        , "statusMessage"                   =? _rimStatusMessage+        , "updateDate"                      =? _rimUpdateDate+        ]++data RuleAction+    = Allow -- ^ allow+    | Deny  -- ^ deny+      deriving (Eq, Ord, Show, Generic, Enum)++instance Hashable RuleAction++instance FromText RuleAction where+    parser = match "allow" Allow+         <|> match "deny"  Deny++instance ToText RuleAction where+    toText = \case+        Allow -> "allow"+        Deny  -> "deny"++instance FromXML RuleAction where+    parseXML = parseXMLText "RuleAction"++instance ToQuery RuleAction where+    toQuery = toQuery . toText++data NetworkInterface = NetworkInterface+    { _niAssociation        :: Maybe NetworkInterfaceAssociation+    , _niAttachment         :: Maybe NetworkInterfaceAttachment+    , _niAvailabilityZone   :: Maybe Text+    , _niDescription        :: Maybe Text+    , _niGroups             :: List "item" GroupIdentifier+    , _niMacAddress         :: Maybe Text+    , _niNetworkInterfaceId :: Maybe Text+    , _niOwnerId            :: Maybe Text+    , _niPrivateDnsName     :: Maybe Text+    , _niPrivateIpAddress   :: Maybe Text+    , _niPrivateIpAddresses :: List "item" NetworkInterfacePrivateIpAddress+    , _niRequesterId        :: Maybe Text+    , _niRequesterManaged   :: Maybe Bool+    , _niSourceDestCheck    :: Maybe Bool+    , _niStatus             :: Maybe Text+    , _niSubnetId           :: Maybe Text+    , _niTagSet             :: List "item" Tag+    , _niVpcId              :: Maybe Text+    } deriving (Eq, Show)++-- | 'NetworkInterface' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'niAssociation' @::@ 'Maybe' 'NetworkInterfaceAssociation'+--+-- * 'niAttachment' @::@ 'Maybe' 'NetworkInterfaceAttachment'+--+-- * 'niAvailabilityZone' @::@ 'Maybe' 'Text'+--+-- * 'niDescription' @::@ 'Maybe' 'Text'+--+-- * 'niGroups' @::@ ['GroupIdentifier']+--+-- * 'niMacAddress' @::@ 'Maybe' 'Text'+--+-- * 'niNetworkInterfaceId' @::@ 'Maybe' 'Text'+--+-- * 'niOwnerId' @::@ 'Maybe' 'Text'+--+-- * 'niPrivateDnsName' @::@ 'Maybe' 'Text'+--+-- * 'niPrivateIpAddress' @::@ 'Maybe' 'Text'+--+-- * 'niPrivateIpAddresses' @::@ ['NetworkInterfacePrivateIpAddress']+--+-- * 'niRequesterId' @::@ 'Maybe' 'Text'+--+-- * 'niRequesterManaged' @::@ 'Maybe' 'Bool'+--+-- * 'niSourceDestCheck' @::@ 'Maybe' 'Bool'+--+-- * 'niStatus' @::@ 'Maybe' 'Text'+--+-- * 'niSubnetId' @::@ 'Maybe' 'Text'+--+-- * 'niTagSet' @::@ ['Tag']+--+-- * 'niVpcId' @::@ 'Maybe' 'Text'+--+networkInterface :: NetworkInterface+networkInterface = NetworkInterface+    { _niNetworkInterfaceId = Nothing+    , _niSubnetId           = Nothing+    , _niVpcId              = Nothing+    , _niAvailabilityZone   = Nothing+    , _niDescription        = Nothing+    , _niOwnerId            = Nothing+    , _niRequesterId        = Nothing+    , _niRequesterManaged   = Nothing+    , _niStatus             = Nothing+    , _niMacAddress         = Nothing+    , _niPrivateIpAddress   = Nothing+    , _niPrivateDnsName     = Nothing+    , _niSourceDestCheck    = Nothing+    , _niGroups             = mempty+    , _niAttachment         = Nothing+    , _niAssociation        = Nothing+    , _niTagSet             = mempty+    , _niPrivateIpAddresses = mempty+    }++-- | The association information for an Elastic IP associated with the network+-- interface.+niAssociation :: Lens' NetworkInterface (Maybe NetworkInterfaceAssociation)+niAssociation = lens _niAssociation (\s a -> s { _niAssociation = a })++-- | The network interface attachment.+niAttachment :: Lens' NetworkInterface (Maybe NetworkInterfaceAttachment)+niAttachment = lens _niAttachment (\s a -> s { _niAttachment = a })++-- | The Availability Zone.+niAvailabilityZone :: Lens' NetworkInterface (Maybe Text)+niAvailabilityZone =+    lens _niAvailabilityZone (\s a -> s { _niAvailabilityZone = a })++-- | A description.+niDescription :: Lens' NetworkInterface (Maybe Text)+niDescription = lens _niDescription (\s a -> s { _niDescription = a })++-- | Any security groups for the network interface.+niGroups :: Lens' NetworkInterface [GroupIdentifier]+niGroups = lens _niGroups (\s a -> s { _niGroups = a }) . _List++-- | The MAC address.+niMacAddress :: Lens' NetworkInterface (Maybe Text)+niMacAddress = lens _niMacAddress (\s a -> s { _niMacAddress = a })++-- | The ID of the network interface.+niNetworkInterfaceId :: Lens' NetworkInterface (Maybe Text)+niNetworkInterfaceId =+    lens _niNetworkInterfaceId (\s a -> s { _niNetworkInterfaceId = a })++-- | The AWS account ID of the owner of the network interface.+niOwnerId :: Lens' NetworkInterface (Maybe Text)+niOwnerId = lens _niOwnerId (\s a -> s { _niOwnerId = a })++-- | The private DNS name.+niPrivateDnsName :: Lens' NetworkInterface (Maybe Text)+niPrivateDnsName = lens _niPrivateDnsName (\s a -> s { _niPrivateDnsName = a })++-- | The IP address of the network interface within the subnet.+niPrivateIpAddress :: Lens' NetworkInterface (Maybe Text)+niPrivateIpAddress =+    lens _niPrivateIpAddress (\s a -> s { _niPrivateIpAddress = a })++-- | The private IP addresses associated with the network interface.+niPrivateIpAddresses :: Lens' NetworkInterface [NetworkInterfacePrivateIpAddress]+niPrivateIpAddresses =+    lens _niPrivateIpAddresses (\s a -> s { _niPrivateIpAddresses = a })+        . _List++-- | The ID of the entity that launched the instance on your behalf (for+-- example, AWS Management Console or Auto Scaling).+niRequesterId :: Lens' NetworkInterface (Maybe Text)+niRequesterId = lens _niRequesterId (\s a -> s { _niRequesterId = a })++-- | Indicates whether the network interface is being managed by AWS.+niRequesterManaged :: Lens' NetworkInterface (Maybe Bool)+niRequesterManaged =+    lens _niRequesterManaged (\s a -> s { _niRequesterManaged = a })++-- | Indicates whether traffic to or from the instance is validated.+niSourceDestCheck :: Lens' NetworkInterface (Maybe Bool)+niSourceDestCheck =+    lens _niSourceDestCheck (\s a -> s { _niSourceDestCheck = a })++-- | The status of the network interface.+niStatus :: Lens' NetworkInterface (Maybe Text)+niStatus = lens _niStatus (\s a -> s { _niStatus = a })++-- | The ID of the subnet.+niSubnetId :: Lens' NetworkInterface (Maybe Text)+niSubnetId = lens _niSubnetId (\s a -> s { _niSubnetId = a })++-- | Any tags assigned to the network interface.+niTagSet :: Lens' NetworkInterface [Tag]+niTagSet = lens _niTagSet (\s a -> s { _niTagSet = a }) . _List++-- | The ID of the VPC.+niVpcId :: Lens' NetworkInterface (Maybe Text)+niVpcId = lens _niVpcId (\s a -> s { _niVpcId = a })++instance FromXML NetworkInterface where+    parseXML x = NetworkInterface+        <$> x .@? "association"+        <*> x .@? "attachment"+        <*> x .@? "availabilityZone"+        <*> x .@? "description"+        <*> x .@  "groupSet"+        <*> x .@? "macAddress"+        <*> x .@? "networkInterfaceId"+        <*> x .@? "ownerId"+        <*> x .@? "privateDnsName"+        <*> x .@? "privateIpAddress"+        <*> x .@  "privateIpAddressesSet"+        <*> x .@? "requesterId"+        <*> x .@? "requesterManaged"+        <*> x .@? "sourceDestCheck"+        <*> x .@? "status"+        <*> x .@? "subnetId"+        <*> x .@  "tagSet"+        <*> x .@? "vpcId"++instance ToQuery NetworkInterface where+    toQuery NetworkInterface{..} = mconcat+        [ "association"           =? _niAssociation+        , "attachment"            =? _niAttachment+        , "availabilityZone"      =? _niAvailabilityZone+        , "description"           =? _niDescription+        , "groupSet"              =? _niGroups+        , "macAddress"            =? _niMacAddress+        , "networkInterfaceId"    =? _niNetworkInterfaceId+        , "ownerId"               =? _niOwnerId+        , "privateDnsName"        =? _niPrivateDnsName+        , "privateIpAddress"      =? _niPrivateIpAddress+        , "privateIpAddressesSet" =? _niPrivateIpAddresses+        , "requesterId"           =? _niRequesterId+        , "requesterManaged"      =? _niRequesterManaged+        , "sourceDestCheck"       =? _niSourceDestCheck+        , "status"                =? _niStatus+        , "subnetId"              =? _niSubnetId+        , "tagSet"                =? _niTagSet+        , "vpcId"                 =? _niVpcId+        ]++data TelemetryStatus+    = Down -- ^ DOWN+    | Up   -- ^ UP+      deriving (Eq, Ord, Show, Generic, Enum)++instance Hashable TelemetryStatus++instance FromText TelemetryStatus where+    parser = match "DOWN" Down+         <|> match "UP"   Up++instance ToText TelemetryStatus where+    toText = \case+        Down -> "DOWN"+        Up   -> "UP"++instance FromXML TelemetryStatus where+    parseXML = parseXMLText "TelemetryStatus"++instance ToQuery TelemetryStatus where+    toQuery = toQuery . toText++data Subnet = Subnet+    { _s1AvailabilityZone        :: Maybe Text+    , _s1AvailableIpAddressCount :: Maybe Int+    , _s1CidrBlock               :: Maybe Text+    , _s1DefaultForAz            :: Maybe Bool+    , _s1MapPublicIpOnLaunch     :: Maybe Bool+    , _s1State                   :: Maybe Text+    , _s1SubnetId                :: Maybe Text+    , _s1Tags                    :: List "item" Tag+    , _s1VpcId                   :: Maybe Text+    } deriving (Eq, Show)++-- | 'Subnet' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 's1AvailabilityZone' @::@ 'Maybe' 'Text'+--+-- * 's1AvailableIpAddressCount' @::@ 'Maybe' 'Int'+--+-- * 's1CidrBlock' @::@ 'Maybe' 'Text'+--+-- * 's1DefaultForAz' @::@ 'Maybe' 'Bool'+--+-- * 's1MapPublicIpOnLaunch' @::@ 'Maybe' 'Bool'+--+-- * 's1State' @::@ 'Maybe' 'Text'+--+-- * 's1SubnetId' @::@ 'Maybe' 'Text'+--+-- * 's1Tags' @::@ ['Tag']+--+-- * 's1VpcId' @::@ 'Maybe' 'Text'+--+subnet :: Subnet+subnet = Subnet+    { _s1SubnetId                = Nothing+    , _s1State                   = Nothing+    , _s1VpcId                   = Nothing+    , _s1CidrBlock               = Nothing+    , _s1AvailableIpAddressCount = Nothing+    , _s1AvailabilityZone        = Nothing+    , _s1DefaultForAz            = Nothing+    , _s1MapPublicIpOnLaunch     = Nothing+    , _s1Tags                    = mempty+    }++-- | The Availability Zone of the subnet.+s1AvailabilityZone :: Lens' Subnet (Maybe Text)+s1AvailabilityZone =+    lens _s1AvailabilityZone (\s a -> s { _s1AvailabilityZone = a })++-- | The number of unused IP addresses in the subnet. Note that the IP+-- addresses for any stopped instances are considered unavailable.+s1AvailableIpAddressCount :: Lens' Subnet (Maybe Int)+s1AvailableIpAddressCount =+    lens _s1AvailableIpAddressCount+        (\s a -> s { _s1AvailableIpAddressCount = a })++-- | The CIDR block assigned to the subnet.+s1CidrBlock :: Lens' Subnet (Maybe Text)+s1CidrBlock = lens _s1CidrBlock (\s a -> s { _s1CidrBlock = a })++-- | Indicates whether this is the default subnet for the Availability Zone.+s1DefaultForAz :: Lens' Subnet (Maybe Bool)+s1DefaultForAz = lens _s1DefaultForAz (\s a -> s { _s1DefaultForAz = a })++-- | Indicates whether instances launched in this subnet receive a public IP+-- address.+s1MapPublicIpOnLaunch :: Lens' Subnet (Maybe Bool)+s1MapPublicIpOnLaunch =+    lens _s1MapPublicIpOnLaunch (\s a -> s { _s1MapPublicIpOnLaunch = a })++-- | The current state of the subnet.+s1State :: Lens' Subnet (Maybe Text)+s1State = lens _s1State (\s a -> s { _s1State = a })++-- | The ID of the subnet.+s1SubnetId :: Lens' Subnet (Maybe Text)+s1SubnetId = lens _s1SubnetId (\s a -> s { _s1SubnetId = a })++-- | Any tags assigned to the subnet.+s1Tags :: Lens' Subnet [Tag]+s1Tags = lens _s1Tags (\s a -> s { _s1Tags = a }) . _List++-- | The ID of the VPC the subnet is in.+s1VpcId :: Lens' Subnet (Maybe Text)+s1VpcId = lens _s1VpcId (\s a -> s { _s1VpcId = a })++instance FromXML Subnet where+    parseXML x = Subnet+        <$> x .@? "availabilityZone"+        <*> x .@? "availableIpAddressCount"+        <*> x .@? "cidrBlock"+        <*> x .@? "defaultForAz"+        <*> x .@? "mapPublicIpOnLaunch"+        <*> x .@? "state"+        <*> x .@? "subnetId"+        <*> x .@  "tagSet"+        <*> x .@? "vpcId"++instance ToQuery Subnet where+    toQuery Subnet{..} = mconcat+        [ "availabilityZone"        =? _s1AvailabilityZone+        , "availableIpAddressCount" =? _s1AvailableIpAddressCount+        , "cidrBlock"               =? _s1CidrBlock+        , "defaultForAz"            =? _s1DefaultForAz+        , "mapPublicIpOnLaunch"     =? _s1MapPublicIpOnLaunch+        , "state"                   =? _s1State+        , "subnetId"                =? _s1SubnetId+        , "tagSet"                  =? _s1Tags+        , "vpcId"                   =? _s1VpcId+        ]++data KeyPairInfo = KeyPairInfo+    { _kpiKeyFingerprint :: Maybe Text+    , _kpiKeyName        :: Maybe Text+    } deriving (Eq, Ord, Show)++-- | 'KeyPairInfo' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'kpiKeyFingerprint' @::@ 'Maybe' 'Text'+--+-- * 'kpiKeyName' @::@ 'Maybe' 'Text'+--+keyPairInfo :: KeyPairInfo+keyPairInfo = KeyPairInfo+    { _kpiKeyName        = Nothing+    , _kpiKeyFingerprint = Nothing+    }++-- | If you used CreateKeyPair to create the key pair, this is the SHA-1+-- digest of the DER encoded private key. If you used ImportKeyPair to+-- provide AWS the public key, this is the MD5 public key fingerprint as+-- specified in section 4 of RFC4716.+kpiKeyFingerprint :: Lens' KeyPairInfo (Maybe Text)+kpiKeyFingerprint =+    lens _kpiKeyFingerprint (\s a -> s { _kpiKeyFingerprint = a })++-- | The name of the key pair.+kpiKeyName :: Lens' KeyPairInfo (Maybe Text)+kpiKeyName = lens _kpiKeyName (\s a -> s { _kpiKeyName = a })++instance FromXML KeyPairInfo where+    parseXML x = KeyPairInfo+        <$> x .@? "keyFingerprint"+        <*> x .@? "keyName"++instance ToQuery KeyPairInfo where+    toQuery KeyPairInfo{..} = mconcat+        [ "keyFingerprint" =? _kpiKeyFingerprint+        , "keyName"        =? _kpiKeyName+        ]++data LaunchPermissionModifications = LaunchPermissionModifications+    { _lpmAdd    :: List "item" LaunchPermission+    , _lpmRemove :: List "item" LaunchPermission+    } deriving (Eq, Show)++-- | 'LaunchPermissionModifications' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'lpmAdd' @::@ ['LaunchPermission']+--+-- * 'lpmRemove' @::@ ['LaunchPermission']+--+launchPermissionModifications :: LaunchPermissionModifications+launchPermissionModifications = LaunchPermissionModifications+    { _lpmAdd    = mempty+    , _lpmRemove = mempty+    }++-- | The AWS account ID to add to the list of launch permissions for the AMI.+lpmAdd :: Lens' LaunchPermissionModifications [LaunchPermission]+lpmAdd = lens _lpmAdd (\s a -> s { _lpmAdd = a }) . _List++-- | The AWS account ID to remove from the list of launch permissions for the+-- AMI.+lpmRemove :: Lens' LaunchPermissionModifications [LaunchPermission]+lpmRemove = lens _lpmRemove (\s a -> s { _lpmRemove = a }) . _List++instance FromXML LaunchPermissionModifications where+    parseXML x = LaunchPermissionModifications+        <$> x .@  "Add"+        <*> x .@  "Remove"++instance ToQuery LaunchPermissionModifications where+    toQuery LaunchPermissionModifications{..} = mconcat+        [ "Add"    =? _lpmAdd+        , "Remove" =? _lpmRemove+        ]++data SnapshotState+    = Completed -- ^ completed+    | Error     -- ^ error+    | Pending   -- ^ pending+      deriving (Eq, Ord, Show, Generic, Enum)++instance Hashable SnapshotState++instance FromText SnapshotState where+    parser = match "completed" Completed+         <|> match "error"     Error+         <|> match "pending"   Pending++instance ToText SnapshotState where+    toText = \case+        Completed -> "completed"+        Error     -> "error"+        Pending   -> "pending"++instance FromXML SnapshotState where+    parseXML = parseXMLText "SnapshotState"++instance ToQuery SnapshotState where+    toQuery = toQuery . toText++data InstanceNetworkInterfaceAssociation = InstanceNetworkInterfaceAssociation+    { _iniaIpOwnerId     :: Maybe Text+    , _iniaPublicDnsName :: Maybe Text+    , _iniaPublicIp      :: Maybe Text+    } deriving (Eq, Ord, Show)++-- | 'InstanceNetworkInterfaceAssociation' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'iniaIpOwnerId' @::@ 'Maybe' 'Text'+--+-- * 'iniaPublicDnsName' @::@ 'Maybe' 'Text'+--+-- * 'iniaPublicIp' @::@ 'Maybe' 'Text'+--+instanceNetworkInterfaceAssociation :: InstanceNetworkInterfaceAssociation+instanceNetworkInterfaceAssociation = InstanceNetworkInterfaceAssociation+    { _iniaPublicIp      = Nothing+    , _iniaPublicDnsName = Nothing+    , _iniaIpOwnerId     = Nothing+    }++-- | The ID of the owner of the Elastic IP address.+iniaIpOwnerId :: Lens' InstanceNetworkInterfaceAssociation (Maybe Text)+iniaIpOwnerId = lens _iniaIpOwnerId (\s a -> s { _iniaIpOwnerId = a })++-- | The public DNS name.+iniaPublicDnsName :: Lens' InstanceNetworkInterfaceAssociation (Maybe Text)+iniaPublicDnsName =+    lens _iniaPublicDnsName (\s a -> s { _iniaPublicDnsName = a })++-- | The public IP address or Elastic IP address bound to the network+-- interface.+iniaPublicIp :: Lens' InstanceNetworkInterfaceAssociation (Maybe Text)+iniaPublicIp = lens _iniaPublicIp (\s a -> s { _iniaPublicIp = a })++instance FromXML InstanceNetworkInterfaceAssociation where+    parseXML x = InstanceNetworkInterfaceAssociation+        <$> x .@? "ipOwnerId"+        <*> x .@? "publicDnsName"+        <*> x .@? "publicIp"++instance ToQuery InstanceNetworkInterfaceAssociation where+    toQuery InstanceNetworkInterfaceAssociation{..} = mconcat+        [ "ipOwnerId"     =? _iniaIpOwnerId+        , "publicDnsName" =? _iniaPublicDnsName+        , "publicIp"      =? _iniaPublicIp+        ]++data DiskImageDetail = DiskImageDetail+    { _didBytes             :: Integer+    , _didFormat            :: Text+    , _didImportManifestUrl :: Text+    } deriving (Eq, Ord, Show)++-- | 'DiskImageDetail' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'didBytes' @::@ 'Integer'+--+-- * 'didFormat' @::@ 'Text'+--+-- * 'didImportManifestUrl' @::@ 'Text'+--+diskImageDetail :: Text -- ^ 'didFormat'+                -> Integer -- ^ 'didBytes'+                -> Text -- ^ 'didImportManifestUrl'+                -> DiskImageDetail+diskImageDetail p1 p2 p3 = DiskImageDetail+    { _didFormat            = p1+    , _didBytes             = p2+    , _didImportManifestUrl = p3+    }++didBytes :: Lens' DiskImageDetail Integer+didBytes = lens _didBytes (\s a -> s { _didBytes = a })++-- | The disk image format.+didFormat :: Lens' DiskImageDetail Text+didFormat = lens _didFormat (\s a -> s { _didFormat = a })++-- | A presigned URL for the import manifest stored in Amazon S3. For+-- information about creating a presigned URL for an Amazon S3 object, read+-- the "Query String Request Authentication Alternative" section of the+-- Authenticating REST Requests topic in the Amazon Simple Storage Service+-- Developer Guide.+didImportManifestUrl :: Lens' DiskImageDetail Text+didImportManifestUrl =+    lens _didImportManifestUrl (\s a -> s { _didImportManifestUrl = a })++instance FromXML DiskImageDetail where+    parseXML x = DiskImageDetail+        <$> x .@  "bytes"+        <*> x .@  "format"+        <*> x .@  "importManifestUrl"++instance ToQuery DiskImageDetail where+    toQuery DiskImageDetail{..} = mconcat+        [ "bytes"             =? _didBytes+        , "format"            =? _didFormat+        , "importManifestUrl" =? _didImportManifestUrl+        ]++data InstancePrivateIpAddress = InstancePrivateIpAddress+    { _ipiaAssociation      :: Maybe InstanceNetworkInterfaceAssociation+    , _ipiaPrimary          :: Maybe Bool+    , _ipiaPrivateDnsName   :: Maybe Text+    , _ipiaPrivateIpAddress :: Maybe Text+    } deriving (Eq, Show)++-- | 'InstancePrivateIpAddress' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'ipiaAssociation' @::@ 'Maybe' 'InstanceNetworkInterfaceAssociation'+--+-- * 'ipiaPrimary' @::@ 'Maybe' 'Bool'+--+-- * 'ipiaPrivateDnsName' @::@ 'Maybe' 'Text'+--+-- * 'ipiaPrivateIpAddress' @::@ 'Maybe' 'Text'+--+instancePrivateIpAddress :: InstancePrivateIpAddress+instancePrivateIpAddress = InstancePrivateIpAddress+    { _ipiaPrivateIpAddress = Nothing+    , _ipiaPrivateDnsName   = Nothing+    , _ipiaPrimary          = Nothing+    , _ipiaAssociation      = Nothing+    }++-- | The association information for an Elastic IP address for the network+-- interface.+ipiaAssociation :: Lens' InstancePrivateIpAddress (Maybe InstanceNetworkInterfaceAssociation)+ipiaAssociation = lens _ipiaAssociation (\s a -> s { _ipiaAssociation = a })++-- | Indicates whether this IP address is the primary private IP address of+-- the network interface.+ipiaPrimary :: Lens' InstancePrivateIpAddress (Maybe Bool)+ipiaPrimary = lens _ipiaPrimary (\s a -> s { _ipiaPrimary = a })++-- | The private DNS name.+ipiaPrivateDnsName :: Lens' InstancePrivateIpAddress (Maybe Text)+ipiaPrivateDnsName =+    lens _ipiaPrivateDnsName (\s a -> s { _ipiaPrivateDnsName = a })++-- | The private IP address of the network interface.+ipiaPrivateIpAddress :: Lens' InstancePrivateIpAddress (Maybe Text)+ipiaPrivateIpAddress =+    lens _ipiaPrivateIpAddress (\s a -> s { _ipiaPrivateIpAddress = a })++instance FromXML InstancePrivateIpAddress where+    parseXML x = InstancePrivateIpAddress+        <$> x .@? "association"+        <*> x .@? "primary"+        <*> x .@? "privateDnsName"+        <*> x .@? "privateIpAddress"++instance ToQuery InstancePrivateIpAddress where+    toQuery InstancePrivateIpAddress{..} = mconcat+        [ "association"      =? _ipiaAssociation+        , "primary"          =? _ipiaPrimary+        , "privateDnsName"   =? _ipiaPrivateDnsName+        , "privateIpAddress" =? _ipiaPrivateIpAddress+        ]++data CancelledSpotInstanceRequest = CancelledSpotInstanceRequest+    { _csiSpotInstanceRequestId :: Maybe Text+    , _csiState                 :: Maybe Text+    } deriving (Eq, Ord, Show)++-- | 'CancelledSpotInstanceRequest' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'csiSpotInstanceRequestId' @::@ 'Maybe' 'Text'+--+-- * 'csiState' @::@ 'Maybe' 'Text'+--+cancelledSpotInstanceRequest :: CancelledSpotInstanceRequest+cancelledSpotInstanceRequest = CancelledSpotInstanceRequest+    { _csiSpotInstanceRequestId = Nothing+    , _csiState                 = Nothing+    }++-- | The ID of the Spot Instance request.+csiSpotInstanceRequestId :: Lens' CancelledSpotInstanceRequest (Maybe Text)+csiSpotInstanceRequestId =+    lens _csiSpotInstanceRequestId+        (\s a -> s { _csiSpotInstanceRequestId = a })++-- | The state of the Spot Instance request.+csiState :: Lens' CancelledSpotInstanceRequest (Maybe Text)+csiState = lens _csiState (\s a -> s { _csiState = a })++instance FromXML CancelledSpotInstanceRequest where+    parseXML x = CancelledSpotInstanceRequest+        <$> x .@? "spotInstanceRequestId"+        <*> x .@? "state"++instance ToQuery CancelledSpotInstanceRequest where+    toQuery CancelledSpotInstanceRequest{..} = mconcat+        [ "spotInstanceRequestId" =? _csiSpotInstanceRequestId+        , "state"                 =? _csiState+        ]++newtype VpnConnectionOptionsSpecification = VpnConnectionOptionsSpecification+    { _vcosStaticRoutesOnly :: Maybe Bool+    } deriving (Eq, Ord, Show)++-- | 'VpnConnectionOptionsSpecification' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'vcosStaticRoutesOnly' @::@ 'Maybe' 'Bool'+--+vpnConnectionOptionsSpecification :: VpnConnectionOptionsSpecification+vpnConnectionOptionsSpecification = VpnConnectionOptionsSpecification+    { _vcosStaticRoutesOnly = Nothing+    }++-- | Indicates whether the VPN connection uses static routes only. Static+-- routes must be used for devices that don't support BGP.+vcosStaticRoutesOnly :: Lens' VpnConnectionOptionsSpecification (Maybe Bool)+vcosStaticRoutesOnly =+    lens _vcosStaticRoutesOnly (\s a -> s { _vcosStaticRoutesOnly = a })++instance FromXML VpnConnectionOptionsSpecification where+    parseXML x = VpnConnectionOptionsSpecification+        <$> x .@? "staticRoutesOnly"++instance ToQuery VpnConnectionOptionsSpecification where+    toQuery VpnConnectionOptionsSpecification{..} = mconcat+        [ "staticRoutesOnly" =? _vcosStaticRoutesOnly+        ]++data Address = Address+    { _aAllocationId            :: Maybe Text+    , _aAssociationId           :: Maybe Text+    , _aDomain                  :: Maybe Text+    , _aInstanceId              :: Maybe Text+    , _aNetworkInterfaceId      :: Maybe Text+    , _aNetworkInterfaceOwnerId :: Maybe Text+    , _aPrivateIpAddress        :: Maybe Text+    , _aPublicIp                :: Maybe Text+    } deriving (Eq, Ord, Show)++-- | 'Address' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'aAllocationId' @::@ 'Maybe' 'Text'+--+-- * 'aAssociationId' @::@ 'Maybe' 'Text'+--+-- * 'aDomain' @::@ 'Maybe' 'Text'+--+-- * 'aInstanceId' @::@ 'Maybe' 'Text'+--+-- * 'aNetworkInterfaceId' @::@ 'Maybe' 'Text'+--+-- * 'aNetworkInterfaceOwnerId' @::@ 'Maybe' 'Text'+--+-- * 'aPrivateIpAddress' @::@ 'Maybe' 'Text'+--+-- * 'aPublicIp' @::@ 'Maybe' 'Text'+--+address :: Address+address = Address+    { _aInstanceId              = Nothing+    , _aPublicIp                = Nothing+    , _aAllocationId            = Nothing+    , _aAssociationId           = Nothing+    , _aDomain                  = Nothing+    , _aNetworkInterfaceId      = Nothing+    , _aNetworkInterfaceOwnerId = Nothing+    , _aPrivateIpAddress        = Nothing+    }++-- | The ID representing the allocation of the address for use with EC2-VPC.+aAllocationId :: Lens' Address (Maybe Text)+aAllocationId = lens _aAllocationId (\s a -> s { _aAllocationId = a })++-- | The ID representing the association of the address with an instance in a+-- VPC.+aAssociationId :: Lens' Address (Maybe Text)+aAssociationId = lens _aAssociationId (\s a -> s { _aAssociationId = a })++-- | Indicates whether this Elastic IP address is for use with instances in+-- EC2-Classic (standard) or instances in a VPC (vpc).+aDomain :: Lens' Address (Maybe Text)+aDomain = lens _aDomain (\s a -> s { _aDomain = a })++-- | The ID of the instance the address is associated with (if any).+aInstanceId :: Lens' Address (Maybe Text)+aInstanceId = lens _aInstanceId (\s a -> s { _aInstanceId = a })++-- | The ID of the network interface.+aNetworkInterfaceId :: Lens' Address (Maybe Text)+aNetworkInterfaceId =+    lens _aNetworkInterfaceId (\s a -> s { _aNetworkInterfaceId = a })++-- | The ID of the AWS account that owns the network interface.+aNetworkInterfaceOwnerId :: Lens' Address (Maybe Text)+aNetworkInterfaceOwnerId =+    lens _aNetworkInterfaceOwnerId+        (\s a -> s { _aNetworkInterfaceOwnerId = a })++-- | The private IP address associated with the Elastic IP address.+aPrivateIpAddress :: Lens' Address (Maybe Text)+aPrivateIpAddress =+    lens _aPrivateIpAddress (\s a -> s { _aPrivateIpAddress = a })++-- | The Elastic IP address.+aPublicIp :: Lens' Address (Maybe Text)+aPublicIp = lens _aPublicIp (\s a -> s { _aPublicIp = a })++instance FromXML Address where+    parseXML x = Address+        <$> x .@? "allocationId"+        <*> x .@? "associationId"+        <*> x .@? "domain"+        <*> x .@? "instanceId"+        <*> x .@? "networkInterfaceId"+        <*> x .@? "networkInterfaceOwnerId"+        <*> x .@? "privateIpAddress"+        <*> x .@? "publicIp"++instance ToQuery Address where+    toQuery Address{..} = mconcat+        [ "allocationId"            =? _aAllocationId+        , "associationId"           =? _aAssociationId+        , "domain"                  =? _aDomain+        , "instanceId"              =? _aInstanceId+        , "networkInterfaceId"      =? _aNetworkInterfaceId+        , "networkInterfaceOwnerId" =? _aNetworkInterfaceOwnerId+        , "privateIpAddress"        =? _aPrivateIpAddress+        , "publicIp"                =? _aPublicIp+        ]++data VolumeAttachmentState+    = VASAttached  -- ^ attached+    | VASAttaching -- ^ attaching+    | VASDetached  -- ^ detached+    | VASDetaching -- ^ detaching+      deriving (Eq, Ord, Show, Generic, Enum)++instance Hashable VolumeAttachmentState++instance FromText VolumeAttachmentState where+    parser = match "attached"  VASAttached+         <|> match "attaching" VASAttaching+         <|> match "detached"  VASDetached+         <|> match "detaching" VASDetaching++instance ToText VolumeAttachmentState where+    toText = \case+        VASAttached  -> "attached"+        VASAttaching -> "attaching"+        VASDetached  -> "detached"+        VASDetaching -> "detaching"++instance FromXML VolumeAttachmentState where+    parseXML = parseXMLText "VolumeAttachmentState"++instance ToQuery VolumeAttachmentState where+    toQuery = toQuery . toText++data LaunchPermission = LaunchPermission+    { _lpGroup  :: Maybe Text+    , _lpUserId :: Maybe Text+    } deriving (Eq, Ord, Show)++-- | 'LaunchPermission' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'lpGroup' @::@ 'Maybe' 'Text'+--+-- * 'lpUserId' @::@ 'Maybe' 'Text'+--+launchPermission :: LaunchPermission+launchPermission = LaunchPermission+    { _lpUserId = Nothing+    , _lpGroup  = Nothing+    }++-- | The name of the group.+lpGroup :: Lens' LaunchPermission (Maybe Text)+lpGroup = lens _lpGroup (\s a -> s { _lpGroup = a })++-- | The AWS account ID.+lpUserId :: Lens' LaunchPermission (Maybe Text)+lpUserId = lens _lpUserId (\s a -> s { _lpUserId = a })++instance FromXML LaunchPermission where+    parseXML x = LaunchPermission+        <$> x .@? "group"+        <*> x .@? "userId"++instance ToQuery LaunchPermission where+    toQuery LaunchPermission{..} = mconcat+        [ "group"  =? _lpGroup+        , "userId" =? _lpUserId+        ]++data RouteState+    = Active    -- ^ active+    | Blackhole -- ^ blackhole+      deriving (Eq, Ord, Show, Generic, Enum)++instance Hashable RouteState++instance FromText RouteState where+    parser = match "active"    Active+         <|> match "blackhole" Blackhole++instance ToText RouteState where+    toText = \case+        Active    -> "active"+        Blackhole -> "blackhole"++instance FromXML RouteState where+    parseXML = parseXMLText "RouteState"++instance ToQuery RouteState where+    toQuery = toQuery . toText++data RouteTableAssociation = RouteTableAssociation+    { _rtaMain                    :: Maybe Bool+    , _rtaRouteTableAssociationId :: Maybe Text+    , _rtaRouteTableId            :: Maybe Text+    , _rtaSubnetId                :: Maybe Text+    } deriving (Eq, Ord, Show)++-- | 'RouteTableAssociation' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'rtaMain' @::@ 'Maybe' 'Bool'+--+-- * 'rtaRouteTableAssociationId' @::@ 'Maybe' 'Text'+--+-- * 'rtaRouteTableId' @::@ 'Maybe' 'Text'+--+-- * 'rtaSubnetId' @::@ 'Maybe' 'Text'+--+routeTableAssociation :: RouteTableAssociation+routeTableAssociation = RouteTableAssociation+    { _rtaRouteTableAssociationId = Nothing+    , _rtaRouteTableId            = Nothing+    , _rtaSubnetId                = Nothing+    , _rtaMain                    = Nothing+    }++-- | Indicates whether this is the main route table.+rtaMain :: Lens' RouteTableAssociation (Maybe Bool)+rtaMain = lens _rtaMain (\s a -> s { _rtaMain = a })++-- | The ID of the association between a route table and a subnet.+rtaRouteTableAssociationId :: Lens' RouteTableAssociation (Maybe Text)+rtaRouteTableAssociationId =+    lens _rtaRouteTableAssociationId+        (\s a -> s { _rtaRouteTableAssociationId = a })++-- | The ID of the route table.+rtaRouteTableId :: Lens' RouteTableAssociation (Maybe Text)+rtaRouteTableId = lens _rtaRouteTableId (\s a -> s { _rtaRouteTableId = a })++-- | The ID of the subnet.+rtaSubnetId :: Lens' RouteTableAssociation (Maybe Text)+rtaSubnetId = lens _rtaSubnetId (\s a -> s { _rtaSubnetId = a })++instance FromXML RouteTableAssociation where+    parseXML x = RouteTableAssociation+        <$> x .@? "main"+        <*> x .@? "routeTableAssociationId"+        <*> x .@? "routeTableId"+        <*> x .@? "subnetId"++instance ToQuery RouteTableAssociation where+    toQuery RouteTableAssociation{..} = mconcat+        [ "main"                    =? _rtaMain+        , "routeTableAssociationId" =? _rtaRouteTableAssociationId+        , "routeTableId"            =? _rtaRouteTableId+        , "subnetId"                =? _rtaSubnetId+        ]++data BundleTaskState+    = BTSBundling           -- ^ bundling+    | BTSCancelling         -- ^ cancelling+    | BTSComplete           -- ^ complete+    | BTSFailed             -- ^ failed+    | BTSPending            -- ^ pending+    | BTSStoring            -- ^ storing+    | BTSWaitingForShutdown -- ^ waiting-for-shutdown+      deriving (Eq, Ord, Show, Generic, Enum)++instance Hashable BundleTaskState++instance FromText BundleTaskState where+    parser = match "bundling"             BTSBundling+         <|> match "cancelling"           BTSCancelling+         <|> match "complete"             BTSComplete+         <|> match "failed"               BTSFailed+         <|> match "pending"              BTSPending+         <|> match "storing"              BTSStoring+         <|> match "waiting-for-shutdown" BTSWaitingForShutdown++instance ToText BundleTaskState where+    toText = \case+        BTSBundling           -> "bundling"+        BTSCancelling         -> "cancelling"+        BTSComplete           -> "complete"+        BTSFailed             -> "failed"+        BTSPending            -> "pending"+        BTSStoring            -> "storing"+        BTSWaitingForShutdown -> "waiting-for-shutdown"++instance FromXML BundleTaskState where+    parseXML = parseXMLText "BundleTaskState"++instance ToQuery BundleTaskState where+    toQuery = toQuery . toText++data PortRange = PortRange+    { _prFrom :: Maybe Int+    , _prTo   :: Maybe Int+    } deriving (Eq, Ord, Show)++-- | 'PortRange' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'prFrom' @::@ 'Maybe' 'Int'+--+-- * 'prTo' @::@ 'Maybe' 'Int'+--+portRange :: PortRange+portRange = PortRange+    { _prFrom = Nothing+    , _prTo   = Nothing+    }++-- | The first port in the range.+prFrom :: Lens' PortRange (Maybe Int)+prFrom = lens _prFrom (\s a -> s { _prFrom = a })++-- | The last port in the range.+prTo :: Lens' PortRange (Maybe Int)+prTo = lens _prTo (\s a -> s { _prTo = a })++instance FromXML PortRange where+    parseXML x = PortRange+        <$> x .@? "from"+        <*> x .@? "to"++instance ToQuery PortRange where+    toQuery PortRange{..} = mconcat+        [ "from" =? _prFrom+        , "to"   =? _prTo+        ]++data VpcAttributeName+    = EnableDnsHostnames -- ^ enableDnsHostnames+    | EnableDnsSupport   -- ^ enableDnsSupport+      deriving (Eq, Ord, Show, Generic, Enum)++instance Hashable VpcAttributeName++instance FromText VpcAttributeName where+    parser = match "enableDnsHostnames" EnableDnsHostnames+         <|> match "enableDnsSupport"   EnableDnsSupport++instance ToText VpcAttributeName where+    toText = \case+        EnableDnsHostnames -> "enableDnsHostnames"+        EnableDnsSupport   -> "enableDnsSupport"++instance FromXML VpcAttributeName where+    parseXML = parseXMLText "VpcAttributeName"++instance ToQuery VpcAttributeName where+    toQuery = toQuery . toText++data ReservedInstancesConfiguration = ReservedInstancesConfiguration+    { _ricAvailabilityZone :: Maybe Text+    , _ricInstanceCount    :: Maybe Int+    , _ricInstanceType     :: Maybe Text+    , _ricPlatform         :: Maybe Text+    } deriving (Eq, Ord, Show)++-- | 'ReservedInstancesConfiguration' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'ricAvailabilityZone' @::@ 'Maybe' 'Text'+--+-- * 'ricInstanceCount' @::@ 'Maybe' 'Int'+--+-- * 'ricInstanceType' @::@ 'Maybe' 'Text'+--+-- * 'ricPlatform' @::@ 'Maybe' 'Text'+--+reservedInstancesConfiguration :: ReservedInstancesConfiguration+reservedInstancesConfiguration = ReservedInstancesConfiguration+    { _ricAvailabilityZone = Nothing+    , _ricPlatform         = Nothing+    , _ricInstanceCount    = Nothing+    , _ricInstanceType     = Nothing+    }++-- | The Availability Zone for the modified Reserved Instances.+ricAvailabilityZone :: Lens' ReservedInstancesConfiguration (Maybe Text)+ricAvailabilityZone =+    lens _ricAvailabilityZone (\s a -> s { _ricAvailabilityZone = a })++-- | The number of modified Reserved Instances.+ricInstanceCount :: Lens' ReservedInstancesConfiguration (Maybe Int)+ricInstanceCount = lens _ricInstanceCount (\s a -> s { _ricInstanceCount = a })++-- | The instance type for the modified Reserved Instances.+ricInstanceType :: Lens' ReservedInstancesConfiguration (Maybe Text)+ricInstanceType = lens _ricInstanceType (\s a -> s { _ricInstanceType = a })++-- | The network platform of the modified Reserved Instances, which is either+-- EC2-Classic or EC2-VPC.+ricPlatform :: Lens' ReservedInstancesConfiguration (Maybe Text)+ricPlatform = lens _ricPlatform (\s a -> s { _ricPlatform = a })++instance FromXML ReservedInstancesConfiguration where+    parseXML x = ReservedInstancesConfiguration+        <$> x .@? "availabilityZone"+        <*> x .@? "instanceCount"+        <*> x .@? "instanceType"+        <*> x .@? "platform"++instance ToQuery ReservedInstancesConfiguration where+    toQuery ReservedInstancesConfiguration{..} = mconcat+        [ "availabilityZone" =? _ricAvailabilityZone+        , "instanceCount"    =? _ricInstanceCount+        , "instanceType"     =? _ricInstanceType+        , "platform"         =? _ricPlatform+        ]++data VolumeStatusDetails = VolumeStatusDetails+    { _vsdName   :: Maybe Text+    , _vsdStatus :: Maybe Text+    } deriving (Eq, Ord, Show)++-- | 'VolumeStatusDetails' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'vsdName' @::@ 'Maybe' 'Text'+--+-- * 'vsdStatus' @::@ 'Maybe' 'Text'+--+volumeStatusDetails :: VolumeStatusDetails+volumeStatusDetails = VolumeStatusDetails+    { _vsdName   = Nothing+    , _vsdStatus = Nothing+    }++-- | The name of the volume status.+vsdName :: Lens' VolumeStatusDetails (Maybe Text)+vsdName = lens _vsdName (\s a -> s { _vsdName = a })++-- | The intended status of the volume status.+vsdStatus :: Lens' VolumeStatusDetails (Maybe Text)+vsdStatus = lens _vsdStatus (\s a -> s { _vsdStatus = a })++instance FromXML VolumeStatusDetails where+    parseXML x = VolumeStatusDetails+        <$> x .@? "name"+        <*> x .@? "status"++instance ToQuery VolumeStatusDetails where+    toQuery VolumeStatusDetails{..} = mconcat+        [ "name"   =? _vsdName+        , "status" =? _vsdStatus+        ]++data SpotInstanceState+    = SISActive    -- ^ active+    | SISCancelled -- ^ cancelled+    | SISClosed    -- ^ closed+    | SISFailed    -- ^ failed+    | SISOpen      -- ^ open+      deriving (Eq, Ord, Show, Generic, Enum)++instance Hashable SpotInstanceState++instance FromText SpotInstanceState where+    parser = match "active"    SISActive+         <|> match "cancelled" SISCancelled+         <|> match "closed"    SISClosed+         <|> match "failed"    SISFailed+         <|> match "open"      SISOpen++instance ToText SpotInstanceState where+    toText = \case+        SISActive    -> "active"+        SISCancelled -> "cancelled"+        SISClosed    -> "closed"+        SISFailed    -> "failed"+        SISOpen      -> "open"++instance FromXML SpotInstanceState where+    parseXML = parseXMLText "SpotInstanceState"++instance ToQuery SpotInstanceState where+    toQuery = toQuery . toText++newtype VpnConnectionOptions = VpnConnectionOptions+    { _vcoStaticRoutesOnly :: Maybe Bool+    } deriving (Eq, Ord, Show)++-- | 'VpnConnectionOptions' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'vcoStaticRoutesOnly' @::@ 'Maybe' 'Bool'+--+vpnConnectionOptions :: VpnConnectionOptions+vpnConnectionOptions = VpnConnectionOptions+    { _vcoStaticRoutesOnly = Nothing+    }++-- | Indicates whether the VPN connection uses static routes only. Static+-- routes must be used for devices that don't support BGP.+vcoStaticRoutesOnly :: Lens' VpnConnectionOptions (Maybe Bool)+vcoStaticRoutesOnly =+    lens _vcoStaticRoutesOnly (\s a -> s { _vcoStaticRoutesOnly = a })++instance FromXML VpnConnectionOptions where+    parseXML x = VpnConnectionOptions+        <$> x .@? "staticRoutesOnly"++instance ToQuery VpnConnectionOptions where+    toQuery VpnConnectionOptions{..} = mconcat+        [ "staticRoutesOnly" =? _vcoStaticRoutesOnly+        ]++data UserIdGroupPair = UserIdGroupPair+    { _uigpGroupId   :: Maybe Text+    , _uigpGroupName :: Maybe Text+    , _uigpUserId    :: Maybe Text+    } deriving (Eq, Ord, Show)++-- | 'UserIdGroupPair' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'uigpGroupId' @::@ 'Maybe' 'Text'+--+-- * 'uigpGroupName' @::@ 'Maybe' 'Text'+--+-- * 'uigpUserId' @::@ 'Maybe' 'Text'+--+userIdGroupPair :: UserIdGroupPair+userIdGroupPair = UserIdGroupPair+    { _uigpUserId    = Nothing+    , _uigpGroupName = Nothing+    , _uigpGroupId   = Nothing+    }++-- | The name of the security group in the specified AWS account.+uigpGroupId :: Lens' UserIdGroupPair (Maybe Text)+uigpGroupId = lens _uigpGroupId (\s a -> s { _uigpGroupId = a })++-- | The ID of the security group owned by the specified AWS account.+uigpGroupName :: Lens' UserIdGroupPair (Maybe Text)+uigpGroupName = lens _uigpGroupName (\s a -> s { _uigpGroupName = a })++-- | The ID of an AWS account.+uigpUserId :: Lens' UserIdGroupPair (Maybe Text)+uigpUserId = lens _uigpUserId (\s a -> s { _uigpUserId = a })++instance FromXML UserIdGroupPair where+    parseXML x = UserIdGroupPair+        <$> x .@? "groupId"+        <*> x .@? "groupName"+        <*> x .@? "userId"++instance ToQuery UserIdGroupPair where+    toQuery UserIdGroupPair{..} = mconcat+        [ "groupId"   =? _uigpGroupId+        , "groupName" =? _uigpGroupName+        , "userId"    =? _uigpUserId+        ]++data InstanceStatusSummary = InstanceStatusSummary+    { _issDetails :: List "item" InstanceStatusDetails+    , _issStatus  :: Maybe Text+    } deriving (Eq, Show)++-- | 'InstanceStatusSummary' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'issDetails' @::@ ['InstanceStatusDetails']+--+-- * 'issStatus' @::@ 'Maybe' 'Text'+--+instanceStatusSummary :: InstanceStatusSummary+instanceStatusSummary = InstanceStatusSummary+    { _issStatus  = Nothing+    , _issDetails = mempty+    }++-- | The system instance health or application instance health.+issDetails :: Lens' InstanceStatusSummary [InstanceStatusDetails]+issDetails = lens _issDetails (\s a -> s { _issDetails = a }) . _List++-- | The status.+issStatus :: Lens' InstanceStatusSummary (Maybe Text)+issStatus = lens _issStatus (\s a -> s { _issStatus = a })++instance FromXML InstanceStatusSummary where+    parseXML x = InstanceStatusSummary+        <$> x .@  "details"+        <*> x .@? "status"++instance ToQuery InstanceStatusSummary where+    toQuery InstanceStatusSummary{..} = mconcat+        [ "details" =? _issDetails+        , "status"  =? _issStatus+        ]++data SpotPlacement = SpotPlacement+    { _sp1AvailabilityZone :: Maybe Text+    , _sp1GroupName        :: Maybe Text+    } deriving (Eq, Ord, Show)++-- | 'SpotPlacement' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'sp1AvailabilityZone' @::@ 'Maybe' 'Text'+--+-- * 'sp1GroupName' @::@ 'Maybe' 'Text'+--+spotPlacement :: SpotPlacement+spotPlacement = SpotPlacement+    { _sp1AvailabilityZone = Nothing+    , _sp1GroupName        = Nothing+    }++-- | The Availability Zone.+sp1AvailabilityZone :: Lens' SpotPlacement (Maybe Text)+sp1AvailabilityZone =+    lens _sp1AvailabilityZone (\s a -> s { _sp1AvailabilityZone = a })++-- | The name of the placement group (for cluster instances).+sp1GroupName :: Lens' SpotPlacement (Maybe Text)+sp1GroupName = lens _sp1GroupName (\s a -> s { _sp1GroupName = a })++instance FromXML SpotPlacement where+    parseXML x = SpotPlacement+        <$> x .@? "availabilityZone"+        <*> x .@? "groupName"++instance ToQuery SpotPlacement where+    toQuery SpotPlacement{..} = mconcat+        [ "availabilityZone" =? _sp1AvailabilityZone+        , "groupName"        =? _sp1GroupName+        ]++data EbsInstanceBlockDeviceSpecification = EbsInstanceBlockDeviceSpecification+    { _eibdsDeleteOnTermination :: Maybe Bool+    , _eibdsVolumeId            :: Maybe Text+    } deriving (Eq, Ord, Show)++-- | 'EbsInstanceBlockDeviceSpecification' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'eibdsDeleteOnTermination' @::@ 'Maybe' 'Bool'+--+-- * 'eibdsVolumeId' @::@ 'Maybe' 'Text'+--+ebsInstanceBlockDeviceSpecification :: EbsInstanceBlockDeviceSpecification+ebsInstanceBlockDeviceSpecification = EbsInstanceBlockDeviceSpecification+    { _eibdsVolumeId            = Nothing+    , _eibdsDeleteOnTermination = Nothing+    }++-- | Indicates whether the volume is deleted on instance termination.+eibdsDeleteOnTermination :: Lens' EbsInstanceBlockDeviceSpecification (Maybe Bool)+eibdsDeleteOnTermination =+    lens _eibdsDeleteOnTermination+        (\s a -> s { _eibdsDeleteOnTermination = a })++-- | The ID of the Amazon EBS volume.+eibdsVolumeId :: Lens' EbsInstanceBlockDeviceSpecification (Maybe Text)+eibdsVolumeId = lens _eibdsVolumeId (\s a -> s { _eibdsVolumeId = a })++instance FromXML EbsInstanceBlockDeviceSpecification where+    parseXML x = EbsInstanceBlockDeviceSpecification+        <$> x .@? "deleteOnTermination"+        <*> x .@? "volumeId"++instance ToQuery EbsInstanceBlockDeviceSpecification where+    toQuery EbsInstanceBlockDeviceSpecification{..} = mconcat+        [ "deleteOnTermination" =? _eibdsDeleteOnTermination+        , "volumeId"            =? _eibdsVolumeId+        ]++data NetworkAclAssociation = NetworkAclAssociation+    { _naaNetworkAclAssociationId :: Maybe Text+    , _naaNetworkAclId            :: Maybe Text+    , _naaSubnetId                :: Maybe Text+    } deriving (Eq, Ord, Show)++-- | 'NetworkAclAssociation' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'naaNetworkAclAssociationId' @::@ 'Maybe' 'Text'+--+-- * 'naaNetworkAclId' @::@ 'Maybe' 'Text'+--+-- * 'naaSubnetId' @::@ 'Maybe' 'Text'+--+networkAclAssociation :: NetworkAclAssociation+networkAclAssociation = NetworkAclAssociation+    { _naaNetworkAclAssociationId = Nothing+    , _naaNetworkAclId            = Nothing+    , _naaSubnetId                = Nothing+    }++-- | The ID of the association between a network ACL and a subnet.+naaNetworkAclAssociationId :: Lens' NetworkAclAssociation (Maybe Text)+naaNetworkAclAssociationId =+    lens _naaNetworkAclAssociationId+        (\s a -> s { _naaNetworkAclAssociationId = a })++-- | The ID of the network ACL.+naaNetworkAclId :: Lens' NetworkAclAssociation (Maybe Text)+naaNetworkAclId = lens _naaNetworkAclId (\s a -> s { _naaNetworkAclId = a })++-- | The ID of the subnet.+naaSubnetId :: Lens' NetworkAclAssociation (Maybe Text)+naaSubnetId = lens _naaSubnetId (\s a -> s { _naaSubnetId = a })++instance FromXML NetworkAclAssociation where+    parseXML x = NetworkAclAssociation+        <$> x .@? "networkAclAssociationId"+        <*> x .@? "networkAclId"+        <*> x .@? "subnetId"++instance ToQuery NetworkAclAssociation where+    toQuery NetworkAclAssociation{..} = mconcat+        [ "networkAclAssociationId" =? _naaNetworkAclAssociationId+        , "networkAclId"            =? _naaNetworkAclId+        , "subnetId"                =? _naaSubnetId+        ]++data BundleTask = BundleTask+    { _btBundleId        :: Maybe Text+    , _btBundleTaskError :: Maybe BundleTaskError+    , _btInstanceId      :: Maybe Text+    , _btProgress        :: Maybe Text+    , _btStartTime       :: Maybe RFC822+    , _btState           :: Maybe Text+    , _btStorage         :: Maybe Storage+    , _btUpdateTime      :: Maybe RFC822+    } deriving (Eq, Show)++-- | 'BundleTask' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'btBundleId' @::@ 'Maybe' 'Text'+--+-- * 'btBundleTaskError' @::@ 'Maybe' 'BundleTaskError'+--+-- * 'btInstanceId' @::@ 'Maybe' 'Text'+--+-- * 'btProgress' @::@ 'Maybe' 'Text'+--+-- * 'btStartTime' @::@ 'Maybe' 'UTCTime'+--+-- * 'btState' @::@ 'Maybe' 'Text'+--+-- * 'btStorage' @::@ 'Maybe' 'Storage'+--+-- * 'btUpdateTime' @::@ 'Maybe' 'UTCTime'+--+bundleTask :: BundleTask+bundleTask = BundleTask+    { _btInstanceId      = Nothing+    , _btBundleId        = Nothing+    , _btState           = Nothing+    , _btStartTime       = Nothing+    , _btUpdateTime      = Nothing+    , _btStorage         = Nothing+    , _btProgress        = Nothing+    , _btBundleTaskError = Nothing+    }++-- | The ID for this bundle task.+btBundleId :: Lens' BundleTask (Maybe Text)+btBundleId = lens _btBundleId (\s a -> s { _btBundleId = a })++-- | If the task fails, a description of the error.+btBundleTaskError :: Lens' BundleTask (Maybe BundleTaskError)+btBundleTaskError =+    lens _btBundleTaskError (\s a -> s { _btBundleTaskError = a })++-- | The ID of the instance associated with this bundle task.+btInstanceId :: Lens' BundleTask (Maybe Text)+btInstanceId = lens _btInstanceId (\s a -> s { _btInstanceId = a })++-- | The level of task completion, as a percent (for example, 20%).+btProgress :: Lens' BundleTask (Maybe Text)+btProgress = lens _btProgress (\s a -> s { _btProgress = a })++-- | The time this task started.+btStartTime :: Lens' BundleTask (Maybe UTCTime)+btStartTime = lens _btStartTime (\s a -> s { _btStartTime = a }) . mapping _Time++-- | The state of the task.+btState :: Lens' BundleTask (Maybe Text)+btState = lens _btState (\s a -> s { _btState = a })++-- | The Amazon S3 storage locations.+btStorage :: Lens' BundleTask (Maybe Storage)+btStorage = lens _btStorage (\s a -> s { _btStorage = a })++-- | The time of the most recent update for the task.+btUpdateTime :: Lens' BundleTask (Maybe UTCTime)+btUpdateTime = lens _btUpdateTime (\s a -> s { _btUpdateTime = a }) . mapping _Time++instance FromXML BundleTask where+    parseXML x = BundleTask+        <$> x .@? "bundleId"+        <*> x .@? "error"+        <*> x .@? "instanceId"+        <*> x .@? "progress"+        <*> x .@? "startTime"+        <*> x .@? "state"+        <*> x .@? "storage"+        <*> x .@? "updateTime"++instance ToQuery BundleTask where+    toQuery BundleTask{..} = mconcat+        [ "bundleId"   =? _btBundleId+        , "error"      =? _btBundleTaskError+        , "instanceId" =? _btInstanceId+        , "progress"   =? _btProgress+        , "startTime"  =? _btStartTime+        , "state"      =? _btState+        , "storage"    =? _btStorage+        , "updateTime" =? _btUpdateTime+        ]++data InstanceStatusEvent = InstanceStatusEvent+    { _iseCode        :: Maybe Text+    , _iseDescription :: Maybe Text+    , _iseNotAfter    :: Maybe RFC822+    , _iseNotBefore   :: Maybe RFC822+    } deriving (Eq, Ord, Show)++-- | 'InstanceStatusEvent' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'iseCode' @::@ 'Maybe' 'Text'+--+-- * 'iseDescription' @::@ 'Maybe' 'Text'+--+-- * 'iseNotAfter' @::@ 'Maybe' 'UTCTime'+--+-- * 'iseNotBefore' @::@ 'Maybe' 'UTCTime'+--+instanceStatusEvent :: InstanceStatusEvent+instanceStatusEvent = InstanceStatusEvent+    { _iseCode        = Nothing+    , _iseDescription = Nothing+    , _iseNotBefore   = Nothing+    , _iseNotAfter    = Nothing+    }++-- | The associated code of the event.+iseCode :: Lens' InstanceStatusEvent (Maybe Text)+iseCode = lens _iseCode (\s a -> s { _iseCode = a })++-- | A description of the event.+iseDescription :: Lens' InstanceStatusEvent (Maybe Text)+iseDescription = lens _iseDescription (\s a -> s { _iseDescription = a })++-- | The latest scheduled end time for the event.+iseNotAfter :: Lens' InstanceStatusEvent (Maybe UTCTime)+iseNotAfter = lens _iseNotAfter (\s a -> s { _iseNotAfter = a }) . mapping _Time++-- | The earliest scheduled start time for the event.+iseNotBefore :: Lens' InstanceStatusEvent (Maybe UTCTime)+iseNotBefore = lens _iseNotBefore (\s a -> s { _iseNotBefore = a }) . mapping _Time++instance FromXML InstanceStatusEvent where+    parseXML x = InstanceStatusEvent+        <$> x .@? "code"+        <*> x .@? "description"+        <*> x .@? "notAfter"+        <*> x .@? "notBefore"++instance ToQuery InstanceStatusEvent where+    toQuery InstanceStatusEvent{..} = mconcat+        [ "code"        =? _iseCode+        , "description" =? _iseDescription+        , "notAfter"    =? _iseNotAfter+        , "notBefore"   =? _iseNotBefore+        ]++data InstanceType+    = C1Medium   -- ^ c1.medium+    | C1XLarge   -- ^ c1.xlarge+    | C32XLarge  -- ^ c3.2xlarge+    | C34XLarge  -- ^ c3.4xlarge+    | C38XLarge  -- ^ c3.8xlarge+    | C3Large    -- ^ c3.large+    | C3XLarge   -- ^ c3.xlarge+    | Cc14XLarge -- ^ cc1.4xlarge+    | Cc28XLarge -- ^ cc2.8xlarge+    | Cg14XLarge -- ^ cg1.4xlarge+    | Cr18XLarge -- ^ cr1.8xlarge+    | G22XLarge  -- ^ g2.2xlarge+    | Hi14XLarge -- ^ hi1.4xlarge+    | Hs18XLarge -- ^ hs1.8xlarge+    | I22XLarge  -- ^ i2.2xlarge+    | I24XLarge  -- ^ i2.4xlarge+    | I28XLarge  -- ^ i2.8xlarge+    | I2XLarge   -- ^ i2.xlarge+    | M1Large    -- ^ m1.large+    | M1Medium   -- ^ m1.medium+    | M1Small    -- ^ m1.small+    | M1XLarge   -- ^ m1.xlarge+    | M22XLarge  -- ^ m2.2xlarge+    | M24XLarge  -- ^ m2.4xlarge+    | M2XLarge   -- ^ m2.xlarge+    | M32XLarge  -- ^ m3.2xlarge+    | M3Large    -- ^ m3.large+    | M3Medium   -- ^ m3.medium+    | M3XLarge   -- ^ m3.xlarge+    | R32XLarge  -- ^ r3.2xlarge+    | R34XLarge  -- ^ r3.4xlarge+    | R38XLarge  -- ^ r3.8xlarge+    | R3Large    -- ^ r3.large+    | R3XLarge   -- ^ r3.xlarge+    | T1Micro    -- ^ t1.micro+    | T2Medium   -- ^ t2.medium+    | T2Micro    -- ^ t2.micro+    | T2Small    -- ^ t2.small+      deriving (Eq, Ord, Show, Generic, Enum)++instance Hashable InstanceType++instance FromText InstanceType where+    parser = match "c1.medium"   C1Medium+         <|> match "c1.xlarge"   C1XLarge+         <|> match "c3.2xlarge"  C32XLarge+         <|> match "c3.4xlarge"  C34XLarge+         <|> match "c3.8xlarge"  C38XLarge+         <|> match "c3.large"    C3Large+         <|> match "c3.xlarge"   C3XLarge+         <|> match "cc1.4xlarge" Cc14XLarge+         <|> match "cc2.8xlarge" Cc28XLarge+         <|> match "cg1.4xlarge" Cg14XLarge+         <|> match "cr1.8xlarge" Cr18XLarge+         <|> match "g2.2xlarge"  G22XLarge+         <|> match "hi1.4xlarge" Hi14XLarge+         <|> match "hs1.8xlarge" Hs18XLarge+         <|> match "i2.2xlarge"  I22XLarge+         <|> match "i2.4xlarge"  I24XLarge+         <|> match "i2.8xlarge"  I28XLarge+         <|> match "i2.xlarge"   I2XLarge+         <|> match "m1.large"    M1Large+         <|> match "m1.medium"   M1Medium+         <|> match "m1.small"    M1Small+         <|> match "m1.xlarge"   M1XLarge+         <|> match "m2.2xlarge"  M22XLarge+         <|> match "m2.4xlarge"  M24XLarge+         <|> match "m2.xlarge"   M2XLarge+         <|> match "m3.2xlarge"  M32XLarge+         <|> match "m3.large"    M3Large+         <|> match "m3.medium"   M3Medium+         <|> match "m3.xlarge"   M3XLarge+         <|> match "r3.2xlarge"  R32XLarge+         <|> match "r3.4xlarge"  R34XLarge+         <|> match "r3.8xlarge"  R38XLarge+         <|> match "r3.large"    R3Large+         <|> match "r3.xlarge"   R3XLarge+         <|> match "t1.micro"    T1Micro+         <|> match "t2.medium"   T2Medium+         <|> match "t2.micro"    T2Micro+         <|> match "t2.small"    T2Small++instance ToText InstanceType where+    toText = \case+        C1Medium   -> "c1.medium"+        C1XLarge   -> "c1.xlarge"+        C32XLarge  -> "c3.2xlarge"+        C34XLarge  -> "c3.4xlarge"+        C38XLarge  -> "c3.8xlarge"+        C3Large    -> "c3.large"+        C3XLarge   -> "c3.xlarge"+        Cc14XLarge -> "cc1.4xlarge"+        Cc28XLarge -> "cc2.8xlarge"+        Cg14XLarge -> "cg1.4xlarge"+        Cr18XLarge -> "cr1.8xlarge"+        G22XLarge  -> "g2.2xlarge"+        Hi14XLarge -> "hi1.4xlarge"+        Hs18XLarge -> "hs1.8xlarge"+        I22XLarge  -> "i2.2xlarge"+        I24XLarge  -> "i2.4xlarge"+        I28XLarge  -> "i2.8xlarge"+        I2XLarge   -> "i2.xlarge"+        M1Large    -> "m1.large"+        M1Medium   -> "m1.medium"+        M1Small    -> "m1.small"+        M1XLarge   -> "m1.xlarge"+        M22XLarge  -> "m2.2xlarge"+        M24XLarge  -> "m2.4xlarge"+        M2XLarge   -> "m2.xlarge"+        M32XLarge  -> "m3.2xlarge"+        M3Large    -> "m3.large"+        M3Medium   -> "m3.medium"+        M3XLarge   -> "m3.xlarge"+        R32XLarge  -> "r3.2xlarge"+        R34XLarge  -> "r3.4xlarge"+        R38XLarge  -> "r3.8xlarge"+        R3Large    -> "r3.large"+        R3XLarge   -> "r3.xlarge"+        T1Micro    -> "t1.micro"+        T2Medium   -> "t2.medium"+        T2Micro    -> "t2.micro"+        T2Small    -> "t2.small"++instance FromXML InstanceType where+    parseXML = parseXMLText "InstanceType"++instance ToQuery InstanceType where+    toQuery = toQuery . toText++data Route = Route+    { _rDestinationCidrBlock   :: Maybe Text+    , _rGatewayId              :: Maybe Text+    , _rInstanceId             :: Maybe Text+    , _rInstanceOwnerId        :: Maybe Text+    , _rNetworkInterfaceId     :: Maybe Text+    , _rOrigin                 :: Maybe Text+    , _rState                  :: Maybe Text+    , _rVpcPeeringConnectionId :: Maybe Text+    } deriving (Eq, Ord, Show)++-- | 'Route' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'rDestinationCidrBlock' @::@ 'Maybe' 'Text'+--+-- * 'rGatewayId' @::@ 'Maybe' 'Text'+--+-- * 'rInstanceId' @::@ 'Maybe' 'Text'+--+-- * 'rInstanceOwnerId' @::@ 'Maybe' 'Text'+--+-- * 'rNetworkInterfaceId' @::@ 'Maybe' 'Text'+--+-- * 'rOrigin' @::@ 'Maybe' 'Text'+--+-- * 'rState' @::@ 'Maybe' 'Text'+--+-- * 'rVpcPeeringConnectionId' @::@ 'Maybe' 'Text'+--+route :: Route+route = Route+    { _rDestinationCidrBlock   = Nothing+    , _rGatewayId              = Nothing+    , _rInstanceId             = Nothing+    , _rInstanceOwnerId        = Nothing+    , _rNetworkInterfaceId     = Nothing+    , _rVpcPeeringConnectionId = Nothing+    , _rState                  = Nothing+    , _rOrigin                 = Nothing+    }++-- | The CIDR block used for the destination match.+rDestinationCidrBlock :: Lens' Route (Maybe Text)+rDestinationCidrBlock =+    lens _rDestinationCidrBlock (\s a -> s { _rDestinationCidrBlock = a })++-- | The ID of a gateway attached to your VPC.+rGatewayId :: Lens' Route (Maybe Text)+rGatewayId = lens _rGatewayId (\s a -> s { _rGatewayId = a })++-- | The ID of a NAT instance in your VPC.+rInstanceId :: Lens' Route (Maybe Text)+rInstanceId = lens _rInstanceId (\s a -> s { _rInstanceId = a })++-- | The AWS account ID of the owner of the instance.+rInstanceOwnerId :: Lens' Route (Maybe Text)+rInstanceOwnerId = lens _rInstanceOwnerId (\s a -> s { _rInstanceOwnerId = a })++-- | The ID of the network interface.+rNetworkInterfaceId :: Lens' Route (Maybe Text)+rNetworkInterfaceId =+    lens _rNetworkInterfaceId (\s a -> s { _rNetworkInterfaceId = a })++-- | Describes how the route was created. CreateRouteTable indicates that+-- route was automatically created when the route table was created.+-- CreateRoute indicates that the route was manually added to the route+-- table. EnableVgwRoutePropagation indicates that the route was propagated+-- by route propagation.+rOrigin :: Lens' Route (Maybe Text)+rOrigin = lens _rOrigin (\s a -> s { _rOrigin = a })++-- | The state of the route. The blackhole state indicates that the route's+-- target isn't available (for example, the specified gateway isn't attached+-- to the VPC, or the specified NAT instance has been terminated).+rState :: Lens' Route (Maybe Text)+rState = lens _rState (\s a -> s { _rState = a })++-- | The ID of the VPC peering connection.+rVpcPeeringConnectionId :: Lens' Route (Maybe Text)+rVpcPeeringConnectionId =+    lens _rVpcPeeringConnectionId (\s a -> s { _rVpcPeeringConnectionId = a })++instance FromXML Route where+    parseXML x = Route+        <$> x .@? "destinationCidrBlock"+        <*> x .@? "gatewayId"+        <*> x .@? "instanceId"+        <*> x .@? "instanceOwnerId"+        <*> x .@? "networkInterfaceId"+        <*> x .@? "origin"+        <*> x .@? "state"+        <*> x .@? "vpcPeeringConnectionId"++instance ToQuery Route where+    toQuery Route{..} = mconcat+        [ "destinationCidrBlock"   =? _rDestinationCidrBlock+        , "gatewayId"              =? _rGatewayId+        , "instanceId"             =? _rInstanceId+        , "instanceOwnerId"        =? _rInstanceOwnerId+        , "networkInterfaceId"     =? _rNetworkInterfaceId+        , "origin"                 =? _rOrigin+        , "state"                  =? _rState+        , "vpcPeeringConnectionId" =? _rVpcPeeringConnectionId+        ]++data SpotDatafeedSubscription = SpotDatafeedSubscription+    { _sdsBucket  :: Maybe Text+    , _sdsFault   :: Maybe SpotInstanceStateFault+    , _sdsOwnerId :: Maybe Text+    , _sdsPrefix  :: Maybe Text+    , _sdsState   :: Maybe Text+    } deriving (Eq, Show)++-- | 'SpotDatafeedSubscription' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'sdsBucket' @::@ 'Maybe' 'Text'+--+-- * 'sdsFault' @::@ 'Maybe' 'SpotInstanceStateFault'+--+-- * 'sdsOwnerId' @::@ 'Maybe' 'Text'+--+-- * 'sdsPrefix' @::@ 'Maybe' 'Text'+--+-- * 'sdsState' @::@ 'Maybe' 'Text'+--+spotDatafeedSubscription :: SpotDatafeedSubscription+spotDatafeedSubscription = SpotDatafeedSubscription+    { _sdsOwnerId = Nothing+    , _sdsBucket  = Nothing+    , _sdsPrefix  = Nothing+    , _sdsState   = Nothing+    , _sdsFault   = Nothing+    }++-- | The Amazon S3 bucket where the Spot Instance datafeed is located.+sdsBucket :: Lens' SpotDatafeedSubscription (Maybe Text)+sdsBucket = lens _sdsBucket (\s a -> s { _sdsBucket = a })++-- | The fault codes for the Spot Instance request, if any.+sdsFault :: Lens' SpotDatafeedSubscription (Maybe SpotInstanceStateFault)+sdsFault = lens _sdsFault (\s a -> s { _sdsFault = a })++-- | The AWS account ID of the account.+sdsOwnerId :: Lens' SpotDatafeedSubscription (Maybe Text)+sdsOwnerId = lens _sdsOwnerId (\s a -> s { _sdsOwnerId = a })++-- | The prefix that is prepended to datafeed files.+sdsPrefix :: Lens' SpotDatafeedSubscription (Maybe Text)+sdsPrefix = lens _sdsPrefix (\s a -> s { _sdsPrefix = a })++-- | The state of the Spot Instance datafeed subscription.+sdsState :: Lens' SpotDatafeedSubscription (Maybe Text)+sdsState = lens _sdsState (\s a -> s { _sdsState = a })++instance FromXML SpotDatafeedSubscription where+    parseXML x = SpotDatafeedSubscription+        <$> x .@? "bucket"+        <*> x .@? "fault"+        <*> x .@? "ownerId"+        <*> x .@? "prefix"+        <*> x .@? "state"++instance ToQuery SpotDatafeedSubscription where+    toQuery SpotDatafeedSubscription{..} = mconcat+        [ "bucket"  =? _sdsBucket+        , "fault"   =? _sdsFault+        , "ownerId" =? _sdsOwnerId+        , "prefix"  =? _sdsPrefix+        , "state"   =? _sdsState+        ]++newtype Storage = Storage+    { _sS3 :: Maybe S3Storage+    } deriving (Eq, Show)++-- | 'Storage' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'sS3' @::@ 'Maybe' 'S3Storage'+--+storage :: Storage+storage = Storage+    { _sS3 = Nothing+    }++-- | An Amazon S3 storage location.+sS3 :: Lens' Storage (Maybe S3Storage)+sS3 = lens _sS3 (\s a -> s { _sS3 = a })++instance FromXML Storage where+    parseXML x = Storage+        <$> x .@? "S3"++instance ToQuery Storage where+    toQuery Storage{..} = mconcat+        [ "S3" =? _sS3+        ]++data SecurityGroup = SecurityGroup+    { _sgDescription         :: Text+    , _sgGroupId             :: Text+    , _sgGroupName           :: Text+    , _sgIpPermissions       :: List "item" IpPermission+    , _sgIpPermissionsEgress :: List "item" IpPermission+    , _sgOwnerId             :: Text+    , _sgTags                :: List "item" Tag+    , _sgVpcId               :: Maybe Text+    } deriving (Eq, Show)++-- | 'SecurityGroup' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'sgDescription' @::@ 'Text'+--+-- * 'sgGroupId' @::@ 'Text'+--+-- * 'sgGroupName' @::@ 'Text'+--+-- * 'sgIpPermissions' @::@ ['IpPermission']+--+-- * 'sgIpPermissionsEgress' @::@ ['IpPermission']+--+-- * 'sgOwnerId' @::@ 'Text'+--+-- * 'sgTags' @::@ ['Tag']+--+-- * 'sgVpcId' @::@ 'Maybe' 'Text'+--+securityGroup :: Text -- ^ 'sgOwnerId'+              -> Text -- ^ 'sgGroupName'+              -> Text -- ^ 'sgGroupId'+              -> Text -- ^ 'sgDescription'+              -> SecurityGroup+securityGroup p1 p2 p3 p4 = SecurityGroup+    { _sgOwnerId             = p1+    , _sgGroupName           = p2+    , _sgGroupId             = p3+    , _sgDescription         = p4+    , _sgIpPermissions       = mempty+    , _sgIpPermissionsEgress = mempty+    , _sgVpcId               = Nothing+    , _sgTags                = mempty+    }++-- | A description of the security group.+sgDescription :: Lens' SecurityGroup Text+sgDescription = lens _sgDescription (\s a -> s { _sgDescription = a })++-- | The ID of the security group.+sgGroupId :: Lens' SecurityGroup Text+sgGroupId = lens _sgGroupId (\s a -> s { _sgGroupId = a })++-- | The name of the security group.+sgGroupName :: Lens' SecurityGroup Text+sgGroupName = lens _sgGroupName (\s a -> s { _sgGroupName = a })++-- | One or more inbound rules associated with the security group.+sgIpPermissions :: Lens' SecurityGroup [IpPermission]+sgIpPermissions = lens _sgIpPermissions (\s a -> s { _sgIpPermissions = a }) . _List++-- | [EC2-VPC] One or more outbound rules associated with the security group.+sgIpPermissionsEgress :: Lens' SecurityGroup [IpPermission]+sgIpPermissionsEgress =+    lens _sgIpPermissionsEgress (\s a -> s { _sgIpPermissionsEgress = a })+        . _List++-- | The AWS account ID of the owner of the security group.+sgOwnerId :: Lens' SecurityGroup Text+sgOwnerId = lens _sgOwnerId (\s a -> s { _sgOwnerId = a })++-- | Any tags assigned to the security group.+sgTags :: Lens' SecurityGroup [Tag]+sgTags = lens _sgTags (\s a -> s { _sgTags = a }) . _List++-- | [EC2-VPC] The ID of the VPC for the security group.+sgVpcId :: Lens' SecurityGroup (Maybe Text)+sgVpcId = lens _sgVpcId (\s a -> s { _sgVpcId = a })++instance FromXML SecurityGroup where+    parseXML x = SecurityGroup+        <$> x .@  "groupDescription"+        <*> x .@  "groupId"+        <*> x .@  "groupName"+        <*> x .@  "ipPermissions"+        <*> x .@  "ipPermissionsEgress"+        <*> x .@  "ownerId"+        <*> x .@  "tagSet"+        <*> x .@? "vpcId"++instance ToQuery SecurityGroup where+    toQuery SecurityGroup{..} = mconcat+        [ "groupDescription"    =? _sgDescription+        , "groupId"             =? _sgGroupId+        , "groupName"           =? _sgGroupName+        , "ipPermissions"       =? _sgIpPermissions+        , "ipPermissionsEgress" =? _sgIpPermissionsEgress+        , "ownerId"             =? _sgOwnerId+        , "tagSet"              =? _sgTags+        , "vpcId"               =? _sgVpcId+        ]++data CancelSpotInstanceRequestState+    = CSIRSActive    -- ^ active+    | CSIRSCancelled -- ^ cancelled+    | CSIRSClosed    -- ^ closed+    | CSIRSCompleted -- ^ completed+    | CSIRSOpen      -- ^ open+      deriving (Eq, Ord, Show, Generic, Enum)++instance Hashable CancelSpotInstanceRequestState++instance FromText CancelSpotInstanceRequestState where+    parser = match "active"    CSIRSActive+         <|> match "cancelled" CSIRSCancelled+         <|> match "closed"    CSIRSClosed+         <|> match "completed" CSIRSCompleted+         <|> match "open"      CSIRSOpen++instance ToText CancelSpotInstanceRequestState where+    toText = \case+        CSIRSActive    -> "active"+        CSIRSCancelled -> "cancelled"+        CSIRSClosed    -> "closed"+        CSIRSCompleted -> "completed"+        CSIRSOpen      -> "open"++instance FromXML CancelSpotInstanceRequestState where+    parseXML = parseXMLText "CancelSpotInstanceRequestState"++instance ToQuery CancelSpotInstanceRequestState where+    toQuery = toQuery . toText++data PlacementGroupState+    = PGSAvailable -- ^ available+    | PGSDeleted   -- ^ deleted+    | PGSDeleting  -- ^ deleting+    | PGSPending   -- ^ pending+      deriving (Eq, Ord, Show, Generic, Enum)++instance Hashable PlacementGroupState++instance FromText PlacementGroupState where+    parser = match "available" PGSAvailable+         <|> match "deleted"   PGSDeleted+         <|> match "deleting"  PGSDeleting+         <|> match "pending"   PGSPending++instance ToText PlacementGroupState where+    toText = \case+        PGSAvailable -> "available"+        PGSDeleted   -> "deleted"+        PGSDeleting  -> "deleting"+        PGSPending   -> "pending"++instance FromXML PlacementGroupState where+    parseXML = parseXMLText "PlacementGroupState"++instance ToQuery PlacementGroupState where+    toQuery = toQuery . toText++data ReservedInstancesModificationResult = ReservedInstancesModificationResult+    { _rimrReservedInstancesId :: Maybe Text+    , _rimrTargetConfiguration :: Maybe ReservedInstancesConfiguration+    } deriving (Eq, Show)++-- | 'ReservedInstancesModificationResult' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'rimrReservedInstancesId' @::@ 'Maybe' 'Text'+--+-- * 'rimrTargetConfiguration' @::@ 'Maybe' 'ReservedInstancesConfiguration'+--+reservedInstancesModificationResult :: ReservedInstancesModificationResult+reservedInstancesModificationResult = ReservedInstancesModificationResult+    { _rimrReservedInstancesId = Nothing+    , _rimrTargetConfiguration = Nothing+    }++-- | The ID for the Reserved Instances that were created as part of the+-- modification request. This field is only available when the modification+-- is fulfilled.+rimrReservedInstancesId :: Lens' ReservedInstancesModificationResult (Maybe Text)+rimrReservedInstancesId =+    lens _rimrReservedInstancesId (\s a -> s { _rimrReservedInstancesId = a })++-- | The target Reserved Instances configurations supplied as part of the+-- modification request.+rimrTargetConfiguration :: Lens' ReservedInstancesModificationResult (Maybe ReservedInstancesConfiguration)+rimrTargetConfiguration =+    lens _rimrTargetConfiguration (\s a -> s { _rimrTargetConfiguration = a })++instance FromXML ReservedInstancesModificationResult where+    parseXML x = ReservedInstancesModificationResult+        <$> x .@? "reservedInstancesId"+        <*> x .@? "targetConfiguration"++instance ToQuery ReservedInstancesModificationResult where+    toQuery ReservedInstancesModificationResult{..} = mconcat+        [ "reservedInstancesId" =? _rimrReservedInstancesId+        , "targetConfiguration" =? _rimrTargetConfiguration+        ]++data InstanceBlockDeviceMappingSpecification = InstanceBlockDeviceMappingSpecification+    { _ibdmsDeviceName  :: Maybe Text+    , _ibdmsEbs         :: Maybe EbsInstanceBlockDeviceSpecification+    , _ibdmsNoDevice    :: Maybe Text+    , _ibdmsVirtualName :: Maybe Text+    } deriving (Eq, Show)++-- | 'InstanceBlockDeviceMappingSpecification' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'ibdmsDeviceName' @::@ 'Maybe' 'Text'+--+-- * 'ibdmsEbs' @::@ 'Maybe' 'EbsInstanceBlockDeviceSpecification'+--+-- * 'ibdmsNoDevice' @::@ 'Maybe' 'Text'+--+-- * 'ibdmsVirtualName' @::@ 'Maybe' 'Text'+--+instanceBlockDeviceMappingSpecification :: InstanceBlockDeviceMappingSpecification+instanceBlockDeviceMappingSpecification = InstanceBlockDeviceMappingSpecification+    { _ibdmsDeviceName  = Nothing+    , _ibdmsEbs         = Nothing+    , _ibdmsVirtualName = Nothing+    , _ibdmsNoDevice    = Nothing+    }++-- | The device name exposed to the instance (for example, /dev/sdh).+ibdmsDeviceName :: Lens' InstanceBlockDeviceMappingSpecification (Maybe Text)+ibdmsDeviceName = lens _ibdmsDeviceName (\s a -> s { _ibdmsDeviceName = a })++-- | Parameters used to automatically set up Amazon EBS volumes when the+-- instance is launched.+ibdmsEbs :: Lens' InstanceBlockDeviceMappingSpecification (Maybe EbsInstanceBlockDeviceSpecification)+ibdmsEbs = lens _ibdmsEbs (\s a -> s { _ibdmsEbs = a })++-- | suppress the specified device included in the block device mapping.+ibdmsNoDevice :: Lens' InstanceBlockDeviceMappingSpecification (Maybe Text)+ibdmsNoDevice = lens _ibdmsNoDevice (\s a -> s { _ibdmsNoDevice = a })++-- | The virtual device name.+ibdmsVirtualName :: Lens' InstanceBlockDeviceMappingSpecification (Maybe Text)+ibdmsVirtualName = lens _ibdmsVirtualName (\s a -> s { _ibdmsVirtualName = a })++instance FromXML InstanceBlockDeviceMappingSpecification where+    parseXML x = InstanceBlockDeviceMappingSpecification+        <$> x .@? "deviceName"+        <*> x .@? "ebs"+        <*> x .@? "noDevice"+        <*> x .@? "virtualName"++instance ToQuery InstanceBlockDeviceMappingSpecification where+    toQuery InstanceBlockDeviceMappingSpecification{..} = mconcat+        [ "deviceName"  =? _ibdmsDeviceName+        , "ebs"         =? _ibdmsEbs+        , "noDevice"    =? _ibdmsNoDevice+        , "virtualName" =? _ibdmsVirtualName+        ]++data ExportEnvironment+    = Citrix    -- ^ citrix+    | Microsoft -- ^ microsoft+    | Vmware    -- ^ vmware+      deriving (Eq, Ord, Show, Generic, Enum)++instance Hashable ExportEnvironment++instance FromText ExportEnvironment where+    parser = match "citrix"    Citrix+         <|> match "microsoft" Microsoft+         <|> match "vmware"    Vmware++instance ToText ExportEnvironment where+    toText = \case+        Citrix    -> "citrix"+        Microsoft -> "microsoft"+        Vmware    -> "vmware"++instance FromXML ExportEnvironment where+    parseXML = parseXMLText "ExportEnvironment"++instance ToQuery ExportEnvironment where+    toQuery = toQuery . toText++data VolumeAttachment = VolumeAttachment+    { _vaAttachTime          :: Maybe RFC822+    , _vaDeleteOnTermination :: Maybe Bool+    , _vaDevice              :: Maybe Text+    , _vaInstanceId          :: Maybe Text+    , _vaState               :: Maybe Text+    , _vaVolumeId            :: Maybe Text+    } deriving (Eq, Ord, Show)++-- | 'VolumeAttachment' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'vaAttachTime' @::@ 'Maybe' 'UTCTime'+--+-- * 'vaDeleteOnTermination' @::@ 'Maybe' 'Bool'+--+-- * 'vaDevice' @::@ 'Maybe' 'Text'+--+-- * 'vaInstanceId' @::@ 'Maybe' 'Text'+--+-- * 'vaState' @::@ 'Maybe' 'Text'+--+-- * 'vaVolumeId' @::@ 'Maybe' 'Text'+--+volumeAttachment :: VolumeAttachment+volumeAttachment = VolumeAttachment+    { _vaVolumeId            = Nothing+    , _vaInstanceId          = Nothing+    , _vaDevice              = Nothing+    , _vaState               = Nothing+    , _vaAttachTime          = Nothing+    , _vaDeleteOnTermination = Nothing+    }++-- | The time stamp when the attachment initiated.+vaAttachTime :: Lens' VolumeAttachment (Maybe UTCTime)+vaAttachTime = lens _vaAttachTime (\s a -> s { _vaAttachTime = a }) . mapping _Time++-- | Indicates whether the Amazon EBS volume is deleted on instance+-- termination.+vaDeleteOnTermination :: Lens' VolumeAttachment (Maybe Bool)+vaDeleteOnTermination =+    lens _vaDeleteOnTermination (\s a -> s { _vaDeleteOnTermination = a })++-- | The device name.+vaDevice :: Lens' VolumeAttachment (Maybe Text)+vaDevice = lens _vaDevice (\s a -> s { _vaDevice = a })++-- | The ID of the instance.+vaInstanceId :: Lens' VolumeAttachment (Maybe Text)+vaInstanceId = lens _vaInstanceId (\s a -> s { _vaInstanceId = a })++-- | The attachment state of the volume.+vaState :: Lens' VolumeAttachment (Maybe Text)+vaState = lens _vaState (\s a -> s { _vaState = a })++-- | The ID of the volume.+vaVolumeId :: Lens' VolumeAttachment (Maybe Text)+vaVolumeId = lens _vaVolumeId (\s a -> s { _vaVolumeId = a })++instance FromXML VolumeAttachment where+    parseXML x = VolumeAttachment+        <$> x .@? "attachTime"+        <*> x .@? "deleteOnTermination"+        <*> x .@? "device"+        <*> x .@? "instanceId"+        <*> x .@? "status"+        <*> x .@? "volumeId"++instance ToQuery VolumeAttachment where+    toQuery VolumeAttachment{..} = mconcat+        [ "attachTime"          =? _vaAttachTime+        , "deleteOnTermination" =? _vaDeleteOnTermination+        , "device"              =? _vaDevice+        , "instanceId"          =? _vaInstanceId+        , "status"              =? _vaState+        , "volumeId"            =? _vaVolumeId+        ]++data CustomerGateway = CustomerGateway+    { _cgBgpAsn            :: Maybe Text+    , _cgCustomerGatewayId :: Maybe Text+    , _cgIpAddress         :: Maybe Text+    , _cgState             :: Maybe Text+    , _cgTags              :: List "item" Tag+    , _cgType              :: Maybe Text+    } deriving (Eq, Show)++-- | 'CustomerGateway' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'cgBgpAsn' @::@ 'Maybe' 'Text'+--+-- * 'cgCustomerGatewayId' @::@ 'Maybe' 'Text'+--+-- * 'cgIpAddress' @::@ 'Maybe' 'Text'+--+-- * 'cgState' @::@ 'Maybe' 'Text'+--+-- * 'cgTags' @::@ ['Tag']+--+-- * 'cgType' @::@ 'Maybe' 'Text'+--+customerGateway :: CustomerGateway+customerGateway = CustomerGateway+    { _cgCustomerGatewayId = Nothing+    , _cgState             = Nothing+    , _cgType              = Nothing+    , _cgIpAddress         = Nothing+    , _cgBgpAsn            = Nothing+    , _cgTags              = mempty+    }++-- | The customer gateway's Border Gateway Protocol (BGP) Autonomous System+-- Number (ASN).+cgBgpAsn :: Lens' CustomerGateway (Maybe Text)+cgBgpAsn = lens _cgBgpAsn (\s a -> s { _cgBgpAsn = a })++-- | The ID of the customer gateway.+cgCustomerGatewayId :: Lens' CustomerGateway (Maybe Text)+cgCustomerGatewayId =+    lens _cgCustomerGatewayId (\s a -> s { _cgCustomerGatewayId = a })++-- | The Internet-routable IP address of the customer gateway's outside+-- interface.+cgIpAddress :: Lens' CustomerGateway (Maybe Text)+cgIpAddress = lens _cgIpAddress (\s a -> s { _cgIpAddress = a })++-- | The current state of the customer gateway (pending | available | deleting+-- | deleted).+cgState :: Lens' CustomerGateway (Maybe Text)+cgState = lens _cgState (\s a -> s { _cgState = a })++-- | Any tags assigned to the customer gateway.+cgTags :: Lens' CustomerGateway [Tag]+cgTags = lens _cgTags (\s a -> s { _cgTags = a }) . _List++-- | The type of VPN connection the customer gateway supports (ipsec.1).+cgType :: Lens' CustomerGateway (Maybe Text)+cgType = lens _cgType (\s a -> s { _cgType = a })++instance FromXML CustomerGateway where+    parseXML x = CustomerGateway+        <$> x .@? "bgpAsn"+        <*> x .@? "customerGatewayId"+        <*> x .@? "ipAddress"+        <*> x .@? "state"+        <*> x .@  "tagSet"+        <*> x .@? "type"++instance ToQuery CustomerGateway where+    toQuery CustomerGateway{..} = mconcat+        [ "bgpAsn"            =? _cgBgpAsn+        , "customerGatewayId" =? _cgCustomerGatewayId+        , "ipAddress"         =? _cgIpAddress+        , "state"             =? _cgState+        , "tagSet"            =? _cgTags+        , "type"              =? _cgType+        ]++data EbsInstanceBlockDevice = EbsInstanceBlockDevice+    { _eibdAttachTime          :: Maybe RFC822+    , _eibdDeleteOnTermination :: Maybe Bool+    , _eibdStatus              :: Maybe Text+    , _eibdVolumeId            :: Maybe Text+    } deriving (Eq, Ord, Show)++-- | 'EbsInstanceBlockDevice' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'eibdAttachTime' @::@ 'Maybe' 'UTCTime'+--+-- * 'eibdDeleteOnTermination' @::@ 'Maybe' 'Bool'+--+-- * 'eibdStatus' @::@ 'Maybe' 'Text'+--+-- * 'eibdVolumeId' @::@ 'Maybe' 'Text'+--+ebsInstanceBlockDevice :: EbsInstanceBlockDevice+ebsInstanceBlockDevice = EbsInstanceBlockDevice+    { _eibdVolumeId            = Nothing+    , _eibdStatus              = Nothing+    , _eibdAttachTime          = Nothing+    , _eibdDeleteOnTermination = Nothing+    }++-- | The time stamp when the attachment initiated.+eibdAttachTime :: Lens' EbsInstanceBlockDevice (Maybe UTCTime)+eibdAttachTime = lens _eibdAttachTime (\s a -> s { _eibdAttachTime = a }) . mapping _Time++-- | Indicates whether the volume is deleted on instance termination.+eibdDeleteOnTermination :: Lens' EbsInstanceBlockDevice (Maybe Bool)+eibdDeleteOnTermination =+    lens _eibdDeleteOnTermination (\s a -> s { _eibdDeleteOnTermination = a })++-- | The attachment state.+eibdStatus :: Lens' EbsInstanceBlockDevice (Maybe Text)+eibdStatus = lens _eibdStatus (\s a -> s { _eibdStatus = a })++-- | The ID of the Amazon EBS volume.+eibdVolumeId :: Lens' EbsInstanceBlockDevice (Maybe Text)+eibdVolumeId = lens _eibdVolumeId (\s a -> s { _eibdVolumeId = a })++instance FromXML EbsInstanceBlockDevice where+    parseXML x = EbsInstanceBlockDevice+        <$> x .@? "attachTime"+        <*> x .@? "deleteOnTermination"+        <*> x .@? "status"+        <*> x .@? "volumeId"++instance ToQuery EbsInstanceBlockDevice where+    toQuery EbsInstanceBlockDevice{..} = mconcat+        [ "attachTime"          =? _eibdAttachTime+        , "deleteOnTermination" =? _eibdDeleteOnTermination+        , "status"              =? _eibdStatus+        , "volumeId"            =? _eibdVolumeId+        ]++data ShutdownBehavior+    = Stop      -- ^ stop+    | Terminate -- ^ terminate+      deriving (Eq, Ord, Show, Generic, Enum)++instance Hashable ShutdownBehavior++instance FromText ShutdownBehavior where+    parser = match "stop"      Stop+         <|> match "terminate" Terminate++instance ToText ShutdownBehavior where+    toText = \case+        Stop      -> "stop"+        Terminate -> "terminate"++instance FromXML ShutdownBehavior where+    parseXML = parseXMLText "ShutdownBehavior"++instance ToQuery ShutdownBehavior where+    toQuery = toQuery . toText++data DiskImageDescription = DiskImageDescription+    { _did1Checksum          :: Maybe Text+    , _did1Format            :: Text+    , _did1ImportManifestUrl :: Text+    , _did1Size              :: Integer+    } deriving (Eq, Ord, Show)++-- | 'DiskImageDescription' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'did1Checksum' @::@ 'Maybe' 'Text'+--+-- * 'did1Format' @::@ 'Text'+--+-- * 'did1ImportManifestUrl' @::@ 'Text'+--+-- * 'did1Size' @::@ 'Integer'+--+diskImageDescription :: Text -- ^ 'did1Format'+                     -> Integer -- ^ 'did1Size'+                     -> Text -- ^ 'did1ImportManifestUrl'+                     -> DiskImageDescription+diskImageDescription p1 p2 p3 = DiskImageDescription+    { _did1Format            = p1+    , _did1Size              = p2+    , _did1ImportManifestUrl = p3+    , _did1Checksum          = Nothing+    }++-- | The checksum computed for the disk image.+did1Checksum :: Lens' DiskImageDescription (Maybe Text)+did1Checksum = lens _did1Checksum (\s a -> s { _did1Checksum = a })++-- | The disk image format.+did1Format :: Lens' DiskImageDescription Text+did1Format = lens _did1Format (\s a -> s { _did1Format = a })++-- | A presigned URL for the import manifest stored in Amazon S3. For+-- information about creating a presigned URL for an Amazon S3 object, read+-- the "Query String Request Authentication Alternative" section of the+-- Authenticating REST Requests topic in the Amazon Simple Storage Service+-- Developer Guide.+did1ImportManifestUrl :: Lens' DiskImageDescription Text+did1ImportManifestUrl =+    lens _did1ImportManifestUrl (\s a -> s { _did1ImportManifestUrl = a })++-- | The size of the disk image.+did1Size :: Lens' DiskImageDescription Integer+did1Size = lens _did1Size (\s a -> s { _did1Size = a })++instance FromXML DiskImageDescription where+    parseXML x = DiskImageDescription+        <$> x .@? "checksum"+        <*> x .@  "format"+        <*> x .@  "importManifestUrl"+        <*> x .@  "size"++instance ToQuery DiskImageDescription where+    toQuery DiskImageDescription{..} = mconcat+        [ "checksum"          =? _did1Checksum+        , "format"            =? _did1Format+        , "importManifestUrl" =? _did1ImportManifestUrl+        , "size"              =? _did1Size+        ]++data DiskImageVolumeDescription = DiskImageVolumeDescription+    { _divdId   :: Text+    , _divdSize :: Maybe Integer+    } deriving (Eq, Ord, Show)++-- | 'DiskImageVolumeDescription' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'divdId' @::@ 'Text'+--+-- * 'divdSize' @::@ 'Maybe' 'Integer'+--+diskImageVolumeDescription :: Text -- ^ 'divdId'+                           -> DiskImageVolumeDescription+diskImageVolumeDescription p1 = DiskImageVolumeDescription+    { _divdId   = p1+    , _divdSize = Nothing+    }++-- | The volume identifier.+divdId :: Lens' DiskImageVolumeDescription Text+divdId = lens _divdId (\s a -> s { _divdId = a })++-- | The size of the volume.+divdSize :: Lens' DiskImageVolumeDescription (Maybe Integer)+divdSize = lens _divdSize (\s a -> s { _divdSize = a })++instance FromXML DiskImageVolumeDescription where+    parseXML x = DiskImageVolumeDescription+        <$> x .@  "id"+        <*> x .@? "size"++instance ToQuery DiskImageVolumeDescription where+    toQuery DiskImageVolumeDescription{..} = mconcat+        [ "id"   =? _divdId+        , "size" =? _divdSize+        ]++newtype Monitoring = Monitoring+    { _mState :: Maybe Text+    } deriving (Eq, Ord, Show, Monoid)++-- | 'Monitoring' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'mState' @::@ 'Maybe' 'Text'+--+monitoring :: Monitoring+monitoring = Monitoring+    { _mState = Nothing+    }++-- | Indicates whether monitoring is enabled for the instance.+mState :: Lens' Monitoring (Maybe Text)+mState = lens _mState (\s a -> s { _mState = a })++instance FromXML Monitoring where+    parseXML x = Monitoring+        <$> x .@? "state"++instance ToQuery Monitoring where+    toQuery Monitoring{..} = mconcat+        [ "state" =? _mState+        ]++data SubnetState+    = SSAvailable -- ^ available+    | SSPending   -- ^ pending+      deriving (Eq, Ord, Show, Generic, Enum)++instance Hashable SubnetState++instance FromText SubnetState where+    parser = match "available" SSAvailable+         <|> match "pending"   SSPending++instance ToText SubnetState where+    toText = \case+        SSAvailable -> "available"+        SSPending   -> "pending"++instance FromXML SubnetState where+    parseXML = parseXMLText "SubnetState"++instance ToQuery SubnetState where+    toQuery = toQuery . toText++data ContainerFormat+    = Ova -- ^ ova+      deriving (Eq, Ord, Show, Generic, Enum)++instance Hashable ContainerFormat++instance FromText ContainerFormat where+    parser = match "ova" Ova++instance ToText ContainerFormat where+    toText Ova = "ova"++instance FromXML ContainerFormat where+    parseXML = parseXMLText "ContainerFormat"++instance ToQuery ContainerFormat where+    toQuery = toQuery . toText++newtype AvailabilityZoneMessage = AvailabilityZoneMessage+    { _azmMessage :: Maybe Text+    } deriving (Eq, Ord, Show, Monoid)++-- | 'AvailabilityZoneMessage' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'azmMessage' @::@ 'Maybe' 'Text'+--+availabilityZoneMessage :: AvailabilityZoneMessage+availabilityZoneMessage = AvailabilityZoneMessage+    { _azmMessage = Nothing+    }++-- | The message about the Availability Zone.+azmMessage :: Lens' AvailabilityZoneMessage (Maybe Text)+azmMessage = lens _azmMessage (\s a -> s { _azmMessage = a })++instance FromXML AvailabilityZoneMessage where+    parseXML x = AvailabilityZoneMessage+        <$> x .@? "message"++instance ToQuery AvailabilityZoneMessage where+    toQuery AvailabilityZoneMessage{..} = mconcat+        [ "message" =? _azmMessage+        ]++data VpcAttachment = VpcAttachment+    { _va1State :: Maybe Text+    , _va1VpcId :: Maybe Text+    } deriving (Eq, Ord, Show)++-- | 'VpcAttachment' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'va1State' @::@ 'Maybe' 'Text'+--+-- * 'va1VpcId' @::@ 'Maybe' 'Text'+--+vpcAttachment :: VpcAttachment+vpcAttachment = VpcAttachment+    { _va1VpcId = Nothing+    , _va1State = Nothing+    }++-- | The current state of the attachment.+va1State :: Lens' VpcAttachment (Maybe Text)+va1State = lens _va1State (\s a -> s { _va1State = a })++-- | The ID of the VPC.+va1VpcId :: Lens' VpcAttachment (Maybe Text)+va1VpcId = lens _va1VpcId (\s a -> s { _va1VpcId = a })++instance FromXML VpcAttachment where+    parseXML x = VpcAttachment+        <$> x .@? "state"+        <*> x .@? "vpcId"++instance ToQuery VpcAttachment where+    toQuery VpcAttachment{..} = mconcat+        [ "state" =? _va1State+        , "vpcId" =? _va1VpcId+        ]++data InstanceBlockDeviceMapping = InstanceBlockDeviceMapping+    { _ibdmDeviceName :: Maybe Text+    , _ibdmEbs        :: Maybe EbsInstanceBlockDevice+    } deriving (Eq, Show)++-- | 'InstanceBlockDeviceMapping' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'ibdmDeviceName' @::@ 'Maybe' 'Text'+--+-- * 'ibdmEbs' @::@ 'Maybe' 'EbsInstanceBlockDevice'+--+instanceBlockDeviceMapping :: InstanceBlockDeviceMapping+instanceBlockDeviceMapping = InstanceBlockDeviceMapping+    { _ibdmDeviceName = Nothing+    , _ibdmEbs        = Nothing+    }++-- | The device name exposed to the instance (for example, /dev/sdh).+ibdmDeviceName :: Lens' InstanceBlockDeviceMapping (Maybe Text)+ibdmDeviceName = lens _ibdmDeviceName (\s a -> s { _ibdmDeviceName = a })++-- | Parameters used to automatically set up Amazon EBS volumes when the+-- instance is launched.+ibdmEbs :: Lens' InstanceBlockDeviceMapping (Maybe EbsInstanceBlockDevice)+ibdmEbs = lens _ibdmEbs (\s a -> s { _ibdmEbs = a })++instance FromXML InstanceBlockDeviceMapping where+    parseXML x = InstanceBlockDeviceMapping+        <$> x .@? "deviceName"+        <*> x .@? "ebs"++instance ToQuery InstanceBlockDeviceMapping where+    toQuery InstanceBlockDeviceMapping{..} = mconcat+        [ "deviceName" =? _ibdmDeviceName+        , "ebs"        =? _ibdmEbs+        ]++data StatusType+    = Failed           -- ^ failed+    | InsufficientData -- ^ insufficient-data+    | Passed           -- ^ passed+      deriving (Eq, Ord, Show, Generic, Enum)++instance Hashable StatusType++instance FromText StatusType where+    parser = match "failed"            Failed+         <|> match "insufficient-data" InsufficientData+         <|> match "passed"            Passed++instance ToText StatusType where+    toText = \case+        Failed           -> "failed"+        InsufficientData -> "insufficient-data"+        Passed           -> "passed"++instance FromXML StatusType where+    parseXML = parseXMLText "StatusType"++instance ToQuery StatusType where+    toQuery = toQuery . toText++data ExportToS3TaskSpecification = ExportToS3TaskSpecification+    { _etstsContainerFormat :: Maybe Text+    , _etstsDiskImageFormat :: Maybe Text+    , _etstsS3Bucket        :: Maybe Text+    , _etstsS3Prefix        :: Maybe Text+    } deriving (Eq, Ord, Show)++-- | 'ExportToS3TaskSpecification' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'etstsContainerFormat' @::@ 'Maybe' 'Text'+--+-- * 'etstsDiskImageFormat' @::@ 'Maybe' 'Text'+--+-- * 'etstsS3Bucket' @::@ 'Maybe' 'Text'+--+-- * 'etstsS3Prefix' @::@ 'Maybe' 'Text'+--+exportToS3TaskSpecification :: ExportToS3TaskSpecification+exportToS3TaskSpecification = ExportToS3TaskSpecification+    { _etstsDiskImageFormat = Nothing+    , _etstsContainerFormat = Nothing+    , _etstsS3Bucket        = Nothing+    , _etstsS3Prefix        = Nothing+    }++etstsContainerFormat :: Lens' ExportToS3TaskSpecification (Maybe Text)+etstsContainerFormat =+    lens _etstsContainerFormat (\s a -> s { _etstsContainerFormat = a })++etstsDiskImageFormat :: Lens' ExportToS3TaskSpecification (Maybe Text)+etstsDiskImageFormat =+    lens _etstsDiskImageFormat (\s a -> s { _etstsDiskImageFormat = a })++etstsS3Bucket :: Lens' ExportToS3TaskSpecification (Maybe Text)+etstsS3Bucket = lens _etstsS3Bucket (\s a -> s { _etstsS3Bucket = a })++-- | The image is written to a single object in the Amazon S3 bucket at the S3+-- key s3prefix + exportTaskId + '.' + diskImageFormat.+etstsS3Prefix :: Lens' ExportToS3TaskSpecification (Maybe Text)+etstsS3Prefix = lens _etstsS3Prefix (\s a -> s { _etstsS3Prefix = a })++instance FromXML ExportToS3TaskSpecification where+    parseXML x = ExportToS3TaskSpecification+        <$> x .@? "containerFormat"+        <*> x .@? "diskImageFormat"+        <*> x .@? "s3Bucket"+        <*> x .@? "s3Prefix"++instance ToQuery ExportToS3TaskSpecification where+    toQuery ExportToS3TaskSpecification{..} = mconcat+        [ "containerFormat" =? _etstsContainerFormat+        , "diskImageFormat" =? _etstsDiskImageFormat+        , "s3Bucket"        =? _etstsS3Bucket+        , "s3Prefix"        =? _etstsS3Prefix+        ]++data NetworkInterfaceAttribute+    = Attachment      -- ^ attachment+    | Description     -- ^ description+    | GroupSet        -- ^ groupSet+    | SourceDestCheck -- ^ sourceDestCheck+      deriving (Eq, Ord, Show, Generic, Enum)++instance Hashable NetworkInterfaceAttribute++instance FromText NetworkInterfaceAttribute where+    parser = match "attachment"      Attachment+         <|> match "description"     Description+         <|> match "groupSet"        GroupSet+         <|> match "sourceDestCheck" SourceDestCheck++instance ToText NetworkInterfaceAttribute where+    toText = \case+        Attachment      -> "attachment"+        Description     -> "description"+        GroupSet        -> "groupSet"+        SourceDestCheck -> "sourceDestCheck"++instance FromXML NetworkInterfaceAttribute where+    parseXML = parseXMLText "NetworkInterfaceAttribute"++instance ToQuery NetworkInterfaceAttribute where+    toQuery = toQuery . toText++data ImageTypeValues+    = Kernel  -- ^ kernel+    | Machine -- ^ machine+    | Ramdisk -- ^ ramdisk+      deriving (Eq, Ord, Show, Generic, Enum)++instance Hashable ImageTypeValues++instance FromText ImageTypeValues where+    parser = match "kernel"  Kernel+         <|> match "machine" Machine+         <|> match "ramdisk" Ramdisk++instance ToText ImageTypeValues where+    toText = \case+        Kernel  -> "kernel"+        Machine -> "machine"+        Ramdisk -> "ramdisk"++instance FromXML ImageTypeValues where+    parseXML = parseXMLText "ImageTypeValues"++instance ToQuery ImageTypeValues where+    toQuery = toQuery . toText++data InstanceExportDetails = InstanceExportDetails+    { _iedInstanceId        :: Maybe Text+    , _iedTargetEnvironment :: Maybe Text+    } deriving (Eq, Ord, Show)++-- | 'InstanceExportDetails' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'iedInstanceId' @::@ 'Maybe' 'Text'+--+-- * 'iedTargetEnvironment' @::@ 'Maybe' 'Text'+--+instanceExportDetails :: InstanceExportDetails+instanceExportDetails = InstanceExportDetails+    { _iedInstanceId        = Nothing+    , _iedTargetEnvironment = Nothing+    }++-- | The ID of the resource being exported.+iedInstanceId :: Lens' InstanceExportDetails (Maybe Text)+iedInstanceId = lens _iedInstanceId (\s a -> s { _iedInstanceId = a })++-- | The target virtualization environment.+iedTargetEnvironment :: Lens' InstanceExportDetails (Maybe Text)+iedTargetEnvironment =+    lens _iedTargetEnvironment (\s a -> s { _iedTargetEnvironment = a })++instance FromXML InstanceExportDetails where+    parseXML x = InstanceExportDetails+        <$> x .@? "instanceId"+        <*> x .@? "targetEnvironment"++instance ToQuery InstanceExportDetails where+    toQuery InstanceExportDetails{..} = mconcat+        [ "instanceId"        =? _iedInstanceId+        , "targetEnvironment" =? _iedTargetEnvironment+        ]++data SnapshotAttributeName+    = SANCreateVolumePermission -- ^ createVolumePermission+    | SANProductCodes           -- ^ productCodes+      deriving (Eq, Ord, Show, Generic, Enum)++instance Hashable SnapshotAttributeName++instance FromText SnapshotAttributeName where+    parser = match "createVolumePermission" SANCreateVolumePermission+         <|> match "productCodes"           SANProductCodes++instance ToText SnapshotAttributeName where+    toText = \case+        SANCreateVolumePermission -> "createVolumePermission"+        SANProductCodes           -> "productCodes"++instance FromXML SnapshotAttributeName where+    parseXML = parseXMLText "SnapshotAttributeName"++instance ToQuery SnapshotAttributeName where+    toQuery = toQuery . toText++data AvailabilityZone = AvailabilityZone+    { _azMessages   :: List "item" AvailabilityZoneMessage+    , _azRegionName :: Maybe Text+    , _azState      :: Maybe Text+    , _azZoneName   :: Maybe Text+    } deriving (Eq, Show)++-- | 'AvailabilityZone' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'azMessages' @::@ ['AvailabilityZoneMessage']+--+-- * 'azRegionName' @::@ 'Maybe' 'Text'+--+-- * 'azState' @::@ 'Maybe' 'Text'+--+-- * 'azZoneName' @::@ 'Maybe' 'Text'+--+availabilityZone :: AvailabilityZone+availabilityZone = AvailabilityZone+    { _azZoneName   = Nothing+    , _azState      = Nothing+    , _azRegionName = Nothing+    , _azMessages   = mempty+    }++-- | Any messages about the Availability Zone.+azMessages :: Lens' AvailabilityZone [AvailabilityZoneMessage]+azMessages = lens _azMessages (\s a -> s { _azMessages = a }) . _List++-- | The name of the region.+azRegionName :: Lens' AvailabilityZone (Maybe Text)+azRegionName = lens _azRegionName (\s a -> s { _azRegionName = a })++-- | The state of the Availability Zone (available | impaired | unavailable).+azState :: Lens' AvailabilityZone (Maybe Text)+azState = lens _azState (\s a -> s { _azState = a })++-- | The name of the Availability Zone.+azZoneName :: Lens' AvailabilityZone (Maybe Text)+azZoneName = lens _azZoneName (\s a -> s { _azZoneName = a })++instance FromXML AvailabilityZone where+    parseXML x = AvailabilityZone+        <$> x .@  "messageSet"+        <*> x .@? "regionName"+        <*> x .@? "zoneState"+        <*> x .@? "zoneName"++instance ToQuery AvailabilityZone where+    toQuery AvailabilityZone{..} = mconcat+        [ "messageSet" =? _azMessages+        , "regionName" =? _azRegionName+        , "zoneState"  =? _azState+        , "zoneName"   =? _azZoneName+        ]++data VpnState+    = VpnStateAvailable -- ^ available+    | VpnStateDeleted   -- ^ deleted+    | VpnStateDeleting  -- ^ deleting+    | VpnStatePending   -- ^ pending+      deriving (Eq, Ord, Show, Generic, Enum)++instance Hashable VpnState++instance FromText VpnState where+    parser = match "available" VpnStateAvailable+         <|> match "deleted"   VpnStateDeleted+         <|> match "deleting"  VpnStateDeleting+         <|> match "pending"   VpnStatePending++instance ToText VpnState where+    toText = \case+        VpnStateAvailable -> "available"+        VpnStateDeleted   -> "deleted"+        VpnStateDeleting  -> "deleting"+        VpnStatePending   -> "pending"++instance FromXML VpnState where+    parseXML = parseXMLText "VpnState"++instance ToQuery VpnState where+    toQuery = toQuery . toText++data RouteTable = RouteTable+    { _rtAssociations    :: List "item" RouteTableAssociation+    , _rtPropagatingVgws :: List "item" PropagatingVgw+    , _rtRouteTableId    :: Maybe Text+    , _rtRoutes          :: List "item" Route+    , _rtTags            :: List "item" Tag+    , _rtVpcId           :: Maybe Text+    } deriving (Eq, Show)++-- | 'RouteTable' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'rtAssociations' @::@ ['RouteTableAssociation']+--+-- * 'rtPropagatingVgws' @::@ ['PropagatingVgw']+--+-- * 'rtRouteTableId' @::@ 'Maybe' 'Text'+--+-- * 'rtRoutes' @::@ ['Route']+--+-- * 'rtTags' @::@ ['Tag']+--+-- * 'rtVpcId' @::@ 'Maybe' 'Text'+--+routeTable :: RouteTable+routeTable = RouteTable+    { _rtRouteTableId    = Nothing+    , _rtVpcId           = Nothing+    , _rtRoutes          = mempty+    , _rtAssociations    = mempty+    , _rtTags            = mempty+    , _rtPropagatingVgws = mempty+    }++-- | The associations between the route table and one or more subnets.+rtAssociations :: Lens' RouteTable [RouteTableAssociation]+rtAssociations = lens _rtAssociations (\s a -> s { _rtAssociations = a }) . _List++-- | Any virtual private gateway (VGW) propagating routes.+rtPropagatingVgws :: Lens' RouteTable [PropagatingVgw]+rtPropagatingVgws =+    lens _rtPropagatingVgws (\s a -> s { _rtPropagatingVgws = a })+        . _List++-- | The ID of the route table.+rtRouteTableId :: Lens' RouteTable (Maybe Text)+rtRouteTableId = lens _rtRouteTableId (\s a -> s { _rtRouteTableId = a })++-- | The routes in the route table.+rtRoutes :: Lens' RouteTable [Route]+rtRoutes = lens _rtRoutes (\s a -> s { _rtRoutes = a }) . _List++-- | Any tags assigned to the route table.+rtTags :: Lens' RouteTable [Tag]+rtTags = lens _rtTags (\s a -> s { _rtTags = a }) . _List++-- | The ID of the VPC.+rtVpcId :: Lens' RouteTable (Maybe Text)+rtVpcId = lens _rtVpcId (\s a -> s { _rtVpcId = a })++instance FromXML RouteTable where+    parseXML x = RouteTable+        <$> x .@  "associationSet"+        <*> x .@  "propagatingVgwSet"+        <*> x .@? "routeTableId"+        <*> x .@  "routeSet"+        <*> x .@  "tagSet"+        <*> x .@? "vpcId"++instance ToQuery RouteTable where+    toQuery RouteTable{..} = mconcat+        [ "associationSet"    =? _rtAssociations+        , "propagatingVgwSet" =? _rtPropagatingVgws+        , "routeTableId"      =? _rtRouteTableId+        , "routeSet"          =? _rtRoutes+        , "tagSet"            =? _rtTags+        , "vpcId"             =? _rtVpcId+        ]++data HypervisorType+    = Ovm -- ^ ovm+    | Xen -- ^ xen+      deriving (Eq, Ord, Show, Generic, Enum)++instance Hashable HypervisorType++instance FromText HypervisorType where+    parser = match "ovm" Ovm+         <|> match "xen" Xen++instance ToText HypervisorType where+    toText = \case+        Ovm -> "ovm"+        Xen -> "xen"++instance FromXML HypervisorType where+    parseXML = parseXMLText "HypervisorType"++instance ToQuery HypervisorType where+    toQuery = toQuery . toText++data InstanceStatusDetails = InstanceStatusDetails+    { _isdImpairedSince :: Maybe RFC822+    , _isdName          :: Maybe Text+    , _isdStatus        :: Maybe Text+    } deriving (Eq, Ord, Show)++-- | 'InstanceStatusDetails' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'isdImpairedSince' @::@ 'Maybe' 'UTCTime'+--+-- * 'isdName' @::@ 'Maybe' 'Text'+--+-- * 'isdStatus' @::@ 'Maybe' 'Text'+--+instanceStatusDetails :: InstanceStatusDetails+instanceStatusDetails = InstanceStatusDetails+    { _isdName          = Nothing+    , _isdStatus        = Nothing+    , _isdImpairedSince = Nothing+    }++-- | The time when a status check failed. For an instance that was launched+-- and impaired, this is the time when the instance was launched.+isdImpairedSince :: Lens' InstanceStatusDetails (Maybe UTCTime)+isdImpairedSince = lens _isdImpairedSince (\s a -> s { _isdImpairedSince = a }) . mapping _Time++-- | The type of instance status.+isdName :: Lens' InstanceStatusDetails (Maybe Text)+isdName = lens _isdName (\s a -> s { _isdName = a })++-- | The status.+isdStatus :: Lens' InstanceStatusDetails (Maybe Text)+isdStatus = lens _isdStatus (\s a -> s { _isdStatus = a })++instance FromXML InstanceStatusDetails where+    parseXML x = InstanceStatusDetails+        <$> x .@? "impairedSince"+        <*> x .@? "name"+        <*> x .@? "status"++instance ToQuery InstanceStatusDetails where+    toQuery InstanceStatusDetails{..} = mconcat+        [ "impairedSince" =? _isdImpairedSince+        , "name"          =? _isdName+        , "status"        =? _isdStatus+        ]++data IamInstanceProfile = IamInstanceProfile+    { _iipArn :: Maybe Text+    , _iipId  :: Maybe Text+    } deriving (Eq, Ord, Show)++-- | 'IamInstanceProfile' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'iipArn' @::@ 'Maybe' 'Text'+--+-- * 'iipId' @::@ 'Maybe' 'Text'+--+iamInstanceProfile :: IamInstanceProfile+iamInstanceProfile = IamInstanceProfile+    { _iipArn = Nothing+    , _iipId  = Nothing+    }++-- | The Amazon Resource Name (ARN) of the instance profile.+iipArn :: Lens' IamInstanceProfile (Maybe Text)+iipArn = lens _iipArn (\s a -> s { _iipArn = a })++-- | The ID of the instance profile.+iipId :: Lens' IamInstanceProfile (Maybe Text)+iipId = lens _iipId (\s a -> s { _iipId = a })++instance FromXML IamInstanceProfile where+    parseXML x = IamInstanceProfile+        <$> x .@? "arn"+        <*> x .@? "id"++instance ToQuery IamInstanceProfile where+    toQuery IamInstanceProfile{..} = mconcat+        [ "arn" =? _iipArn+        , "id"  =? _iipId+        ]++data InternetGatewayAttachment = InternetGatewayAttachment+    { _igaState :: Text+    , _igaVpcId :: Text+    } deriving (Eq, Ord, Show)++-- | 'InternetGatewayAttachment' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'igaState' @::@ 'Text'+--+-- * 'igaVpcId' @::@ 'Text'+--+internetGatewayAttachment :: Text -- ^ 'igaVpcId'+                          -> Text -- ^ 'igaState'+                          -> InternetGatewayAttachment+internetGatewayAttachment p1 p2 = InternetGatewayAttachment+    { _igaVpcId = p1+    , _igaState = p2+    }++-- | The current state of the attachment.+igaState :: Lens' InternetGatewayAttachment Text+igaState = lens _igaState (\s a -> s { _igaState = a })++-- | The ID of the VPC.+igaVpcId :: Lens' InternetGatewayAttachment Text+igaVpcId = lens _igaVpcId (\s a -> s { _igaVpcId = a })++instance FromXML InternetGatewayAttachment where+    parseXML x = InternetGatewayAttachment+        <$> x .@  "state"+        <*> x .@  "vpcId"++instance ToQuery InternetGatewayAttachment where+    toQuery InternetGatewayAttachment{..} = mconcat+        [ "state" =? _igaState+        , "vpcId" =? _igaVpcId+        ]++data ReservedInstanceState+    = RISActive         -- ^ active+    | RISPaymentFailed  -- ^ payment-failed+    | RISPaymentPending -- ^ payment-pending+    | RISRetired        -- ^ retired+      deriving (Eq, Ord, Show, Generic, Enum)++instance Hashable ReservedInstanceState++instance FromText ReservedInstanceState where+    parser = match "active"          RISActive+         <|> match "payment-failed"  RISPaymentFailed+         <|> match "payment-pending" RISPaymentPending+         <|> match "retired"         RISRetired++instance ToText ReservedInstanceState where+    toText = \case+        RISActive         -> "active"+        RISPaymentFailed  -> "payment-failed"+        RISPaymentPending -> "payment-pending"+        RISRetired        -> "retired"++instance FromXML ReservedInstanceState where+    parseXML = parseXMLText "ReservedInstanceState"++instance ToQuery ReservedInstanceState where+    toQuery = toQuery . toText++data InstanceAttributeName+    = IANInstanceBlockDeviceMapping                -- ^ blockDeviceMapping+    | IANInstanceDisableApiTermination             -- ^ disableApiTermination+    | IANInstanceEbsOptimized                      -- ^ ebsOptimized+    | IANInstanceGroupSet                          -- ^ groupSet+    | IANInstanceInstanceInitiatedShutdownBehavior -- ^ instanceInitiatedShutdownBehavior+    | IANInstanceInstanceType                      -- ^ instanceType+    | IANInstanceKernel                            -- ^ kernel+    | IANInstanceProductCodes                      -- ^ productCodes+    | IANInstanceRamdisk                           -- ^ ramdisk+    | IANInstanceRootDeviceName                    -- ^ rootDeviceName+    | IANInstanceSourceDestCheck                   -- ^ sourceDestCheck+    | IANInstanceSriovNetSupport                   -- ^ sriovNetSupport+    | IANInstanceUserData                          -- ^ userData+      deriving (Eq, Ord, Show, Generic, Enum)++instance Hashable InstanceAttributeName++instance FromText InstanceAttributeName where+    parser = match "blockDeviceMapping"                IANInstanceBlockDeviceMapping+         <|> match "disableApiTermination"             IANInstanceDisableApiTermination+         <|> match "ebsOptimized"                      IANInstanceEbsOptimized+         <|> match "groupSet"                          IANInstanceGroupSet+         <|> match "instanceInitiatedShutdownBehavior" IANInstanceInstanceInitiatedShutdownBehavior+         <|> match "instanceType"                      IANInstanceInstanceType+         <|> match "kernel"                            IANInstanceKernel+         <|> match "productCodes"                      IANInstanceProductCodes+         <|> match "ramdisk"                           IANInstanceRamdisk+         <|> match "rootDeviceName"                    IANInstanceRootDeviceName+         <|> match "sourceDestCheck"                   IANInstanceSourceDestCheck+         <|> match "sriovNetSupport"                   IANInstanceSriovNetSupport+         <|> match "userData"                          IANInstanceUserData++instance ToText InstanceAttributeName where+    toText = \case+        IANInstanceBlockDeviceMapping                -> "blockDeviceMapping"+        IANInstanceDisableApiTermination             -> "disableApiTermination"+        IANInstanceEbsOptimized                      -> "ebsOptimized"+        IANInstanceGroupSet                          -> "groupSet"+        IANInstanceInstanceInitiatedShutdownBehavior -> "instanceInitiatedShutdownBehavior"+        IANInstanceInstanceType                      -> "instanceType"+        IANInstanceKernel                            -> "kernel"+        IANInstanceProductCodes                      -> "productCodes"+        IANInstanceRamdisk                           -> "ramdisk"+        IANInstanceRootDeviceName                    -> "rootDeviceName"+        IANInstanceSourceDestCheck                   -> "sourceDestCheck"+        IANInstanceSriovNetSupport                   -> "sriovNetSupport"+        IANInstanceUserData                          -> "userData"++instance FromXML InstanceAttributeName where+    parseXML = parseXMLText "InstanceAttributeName"++instance ToQuery InstanceAttributeName where+    toQuery = toQuery . toText++data IpPermission = IpPermission+    { _ipFromPort         :: Int+    , _ipIpProtocol       :: Text+    , _ipIpRanges         :: List "item" IpRange+    , _ipToPort           :: Int+    , _ipUserIdGroupPairs :: List "item" UserIdGroupPair+    } deriving (Eq, Show)++-- | 'IpPermission' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'ipFromPort' @::@ 'Int'+--+-- * 'ipIpProtocol' @::@ 'Text'+--+-- * 'ipIpRanges' @::@ ['IpRange']+--+-- * 'ipToPort' @::@ 'Int'+--+-- * 'ipUserIdGroupPairs' @::@ ['UserIdGroupPair']+--+ipPermission :: Text -- ^ 'ipIpProtocol'+             -> Int -- ^ 'ipFromPort'+             -> Int -- ^ 'ipToPort'+             -> IpPermission+ipPermission p1 p2 p3 = IpPermission+    { _ipIpProtocol       = p1+    , _ipFromPort         = p2+    , _ipToPort           = p3+    , _ipUserIdGroupPairs = mempty+    , _ipIpRanges         = mempty+    }++-- | The start of port range for the TCP and UDP protocols, or an ICMP type+-- number. A value of -1 indicates all ICMP types.+ipFromPort :: Lens' IpPermission Int+ipFromPort = lens _ipFromPort (\s a -> s { _ipFromPort = a })++-- | The protocol. When you call DescribeSecurityGroups, the protocol value+-- returned is the number. Exception: For TCP, UDP, and ICMP, the value+-- returned is the name (for example, tcp, udp, or icmp). For a list of+-- protocol numbers, see Protocol Numbers.+ipIpProtocol :: Lens' IpPermission Text+ipIpProtocol = lens _ipIpProtocol (\s a -> s { _ipIpProtocol = a })++-- | One or more IP ranges.+ipIpRanges :: Lens' IpPermission [IpRange]+ipIpRanges = lens _ipIpRanges (\s a -> s { _ipIpRanges = a }) . _List++-- | The end of port range for the TCP and UDP protocols, or an ICMP code. A+-- value of -1 indicates all ICMP codes for the specified ICMP type.+ipToPort :: Lens' IpPermission Int+ipToPort = lens _ipToPort (\s a -> s { _ipToPort = a })++-- | One or more security group and AWS account ID pairs.+ipUserIdGroupPairs :: Lens' IpPermission [UserIdGroupPair]+ipUserIdGroupPairs =+    lens _ipUserIdGroupPairs (\s a -> s { _ipUserIdGroupPairs = a })+        . _List++instance FromXML IpPermission where+    parseXML x = IpPermission+        <$> x .@  "fromPort"+        <*> x .@  "ipProtocol"+        <*> x .@  "ipRanges"+        <*> x .@  "toPort"+        <*> x .@  "groups"++instance ToQuery IpPermission where+    toQuery IpPermission{..} = mconcat+        [ "fromPort"   =? _ipFromPort+        , "ipProtocol" =? _ipIpProtocol+        , "ipRanges"   =? _ipIpRanges+        , "toPort"     =? _ipToPort+        , "groups"     =? _ipUserIdGroupPairs+        ]++data ConversionTaskState+    = CTSActive     -- ^ active+    | CTSCancelled  -- ^ cancelled+    | CTSCancelling -- ^ cancelling+    | CTSCompleted  -- ^ completed+      deriving (Eq, Ord, Show, Generic, Enum)++instance Hashable ConversionTaskState++instance FromText ConversionTaskState where+    parser = match "active"     CTSActive+         <|> match "cancelled"  CTSCancelled+         <|> match "cancelling" CTSCancelling+         <|> match "completed"  CTSCompleted++instance ToText ConversionTaskState where+    toText = \case+        CTSActive     -> "active"+        CTSCancelled  -> "cancelled"+        CTSCancelling -> "cancelling"+        CTSCompleted  -> "completed"++instance FromXML ConversionTaskState where+    parseXML = parseXMLText "ConversionTaskState"++instance ToQuery ConversionTaskState where+    toQuery = toQuery . toText++data DiskImage = DiskImage+    { _diDescription :: Maybe Text+    , _diImage       :: Maybe DiskImageDetail+    , _diVolume      :: Maybe VolumeDetail+    } deriving (Eq, Show)++-- | 'DiskImage' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'diDescription' @::@ 'Maybe' 'Text'+--+-- * 'diImage' @::@ 'Maybe' 'DiskImageDetail'+--+-- * 'diVolume' @::@ 'Maybe' 'VolumeDetail'+--+diskImage :: DiskImage+diskImage = DiskImage+    { _diImage       = Nothing+    , _diDescription = Nothing+    , _diVolume      = Nothing+    }++diDescription :: Lens' DiskImage (Maybe Text)+diDescription = lens _diDescription (\s a -> s { _diDescription = a })++diImage :: Lens' DiskImage (Maybe DiskImageDetail)+diImage = lens _diImage (\s a -> s { _diImage = a })++diVolume :: Lens' DiskImage (Maybe VolumeDetail)+diVolume = lens _diVolume (\s a -> s { _diVolume = a })++instance FromXML DiskImage where+    parseXML x = DiskImage+        <$> x .@? "Description"+        <*> x .@? "Image"+        <*> x .@? "Volume"++instance ToQuery DiskImage where+    toQuery DiskImage{..} = mconcat+        [ "Description" =? _diDescription+        , "Image"       =? _diImage+        , "Volume"      =? _diVolume+        ]++data Tenancy+    = Dedicated -- ^ dedicated+    | Default'  -- ^ default+      deriving (Eq, Ord, Show, Generic, Enum)++instance Hashable Tenancy++instance FromText Tenancy where+    parser = match "dedicated" Dedicated+         <|> match "default"   Default'++instance ToText Tenancy where+    toText = \case+        Dedicated -> "dedicated"+        Default'  -> "default"++instance FromXML Tenancy where+    parseXML = parseXMLText "Tenancy"++instance ToQuery Tenancy where+    toQuery = toQuery . toText++data VpcPeeringConnectionStateReason = VpcPeeringConnectionStateReason+    { _vpcsrCode    :: Maybe Text+    , _vpcsrMessage :: Maybe Text+    } deriving (Eq, Ord, Show)++-- | 'VpcPeeringConnectionStateReason' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'vpcsrCode' @::@ 'Maybe' 'Text'+--+-- * 'vpcsrMessage' @::@ 'Maybe' 'Text'+--+vpcPeeringConnectionStateReason :: VpcPeeringConnectionStateReason+vpcPeeringConnectionStateReason = VpcPeeringConnectionStateReason+    { _vpcsrCode    = Nothing+    , _vpcsrMessage = Nothing+    }++-- | The status of the VPC peering connection.+vpcsrCode :: Lens' VpcPeeringConnectionStateReason (Maybe Text)+vpcsrCode = lens _vpcsrCode (\s a -> s { _vpcsrCode = a })++-- | A message that provides more information about the status, if applicable.+vpcsrMessage :: Lens' VpcPeeringConnectionStateReason (Maybe Text)+vpcsrMessage = lens _vpcsrMessage (\s a -> s { _vpcsrMessage = a })++instance FromXML VpcPeeringConnectionStateReason where+    parseXML x = VpcPeeringConnectionStateReason+        <$> x .@? "code"+        <*> x .@? "message"++instance ToQuery VpcPeeringConnectionStateReason where+    toQuery VpcPeeringConnectionStateReason{..} = mconcat+        [ "code"    =? _vpcsrCode+        , "message" =? _vpcsrMessage+        ]++data IamInstanceProfileSpecification = IamInstanceProfileSpecification+    { _iipsArn  :: Maybe Text+    , _iipsName :: Maybe Text+    } deriving (Eq, Ord, Show)++-- | 'IamInstanceProfileSpecification' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'iipsArn' @::@ 'Maybe' 'Text'+--+-- * 'iipsName' @::@ 'Maybe' 'Text'+--+iamInstanceProfileSpecification :: IamInstanceProfileSpecification+iamInstanceProfileSpecification = IamInstanceProfileSpecification+    { _iipsArn  = Nothing+    , _iipsName = Nothing+    }++-- | The Amazon Resource Name (ARN) of the instance profile.+iipsArn :: Lens' IamInstanceProfileSpecification (Maybe Text)+iipsArn = lens _iipsArn (\s a -> s { _iipsArn = a })++-- | The name of the instance profile.+iipsName :: Lens' IamInstanceProfileSpecification (Maybe Text)+iipsName = lens _iipsName (\s a -> s { _iipsName = a })++instance FromXML IamInstanceProfileSpecification where+    parseXML x = IamInstanceProfileSpecification+        <$> x .@? "arn"+        <*> x .@? "name"++instance ToQuery IamInstanceProfileSpecification where+    toQuery IamInstanceProfileSpecification{..} = mconcat+        [ "arn"  =? _iipsArn+        , "name" =? _iipsName+        ]++data ImportVolumeTaskDetails = ImportVolumeTaskDetails+    { _ivtdAvailabilityZone :: Text+    , _ivtdBytesConverted   :: Integer+    , _ivtdDescription      :: Maybe Text+    , _ivtdImage            :: DiskImageDescription+    , _ivtdVolume           :: DiskImageVolumeDescription+    } deriving (Eq, Show)++-- | 'ImportVolumeTaskDetails' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'ivtdAvailabilityZone' @::@ 'Text'+--+-- * 'ivtdBytesConverted' @::@ 'Integer'+--+-- * 'ivtdDescription' @::@ 'Maybe' 'Text'+--+-- * 'ivtdImage' @::@ 'DiskImageDescription'+--+-- * 'ivtdVolume' @::@ 'DiskImageVolumeDescription'+--+importVolumeTaskDetails :: Integer -- ^ 'ivtdBytesConverted'+                        -> Text -- ^ 'ivtdAvailabilityZone'+                        -> DiskImageDescription -- ^ 'ivtdImage'+                        -> DiskImageVolumeDescription -- ^ 'ivtdVolume'+                        -> ImportVolumeTaskDetails+importVolumeTaskDetails p1 p2 p3 p4 = ImportVolumeTaskDetails+    { _ivtdBytesConverted   = p1+    , _ivtdAvailabilityZone = p2+    , _ivtdImage            = p3+    , _ivtdVolume           = p4+    , _ivtdDescription      = Nothing+    }++-- | The Availability Zone where the resulting volume will reside.+ivtdAvailabilityZone :: Lens' ImportVolumeTaskDetails Text+ivtdAvailabilityZone =+    lens _ivtdAvailabilityZone (\s a -> s { _ivtdAvailabilityZone = a })++-- | The number of bytes converted so far.+ivtdBytesConverted :: Lens' ImportVolumeTaskDetails Integer+ivtdBytesConverted =+    lens _ivtdBytesConverted (\s a -> s { _ivtdBytesConverted = a })++-- | The description you provided when starting the import volume task.+ivtdDescription :: Lens' ImportVolumeTaskDetails (Maybe Text)+ivtdDescription = lens _ivtdDescription (\s a -> s { _ivtdDescription = a })++-- | The image.+ivtdImage :: Lens' ImportVolumeTaskDetails DiskImageDescription+ivtdImage = lens _ivtdImage (\s a -> s { _ivtdImage = a })++-- | The volume.+ivtdVolume :: Lens' ImportVolumeTaskDetails DiskImageVolumeDescription+ivtdVolume = lens _ivtdVolume (\s a -> s { _ivtdVolume = a })++instance FromXML ImportVolumeTaskDetails where+    parseXML x = ImportVolumeTaskDetails+        <$> x .@  "availabilityZone"+        <*> x .@  "bytesConverted"+        <*> x .@? "description"+        <*> x .@  "image"+        <*> x .@  "volume"++instance ToQuery ImportVolumeTaskDetails where+    toQuery ImportVolumeTaskDetails{..} = mconcat+        [ "availabilityZone" =? _ivtdAvailabilityZone+        , "bytesConverted"   =? _ivtdBytesConverted+        , "description"      =? _ivtdDescription+        , "image"            =? _ivtdImage+        , "volume"           =? _ivtdVolume+        ]++data PlacementStrategy+    = Cluster -- ^ cluster+      deriving (Eq, Ord, Show, Generic, Enum)++instance Hashable PlacementStrategy++instance FromText PlacementStrategy where+    parser = match "cluster" Cluster++instance ToText PlacementStrategy where+    toText Cluster = "cluster"++instance FromXML PlacementStrategy where+    parseXML = parseXMLText "PlacementStrategy"++instance ToQuery PlacementStrategy where+    toQuery = toQuery . toText++data InstanceNetworkInterface = InstanceNetworkInterface+    { _iniAssociation        :: Maybe InstanceNetworkInterfaceAssociation+    , _iniAttachment         :: Maybe InstanceNetworkInterfaceAttachment+    , _iniDescription        :: Maybe Text+    , _iniGroups             :: List "item" GroupIdentifier+    , _iniMacAddress         :: Maybe Text+    , _iniNetworkInterfaceId :: Maybe Text+    , _iniOwnerId            :: Maybe Text+    , _iniPrivateDnsName     :: Maybe Text+    , _iniPrivateIpAddress   :: Maybe Text+    , _iniPrivateIpAddresses :: List "item" InstancePrivateIpAddress+    , _iniSourceDestCheck    :: Maybe Bool+    , _iniStatus             :: Maybe Text+    , _iniSubnetId           :: Maybe Text+    , _iniVpcId              :: Maybe Text+    } deriving (Eq, Show)++-- | 'InstanceNetworkInterface' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'iniAssociation' @::@ 'Maybe' 'InstanceNetworkInterfaceAssociation'+--+-- * 'iniAttachment' @::@ 'Maybe' 'InstanceNetworkInterfaceAttachment'+--+-- * 'iniDescription' @::@ 'Maybe' 'Text'+--+-- * 'iniGroups' @::@ ['GroupIdentifier']+--+-- * 'iniMacAddress' @::@ 'Maybe' 'Text'+--+-- * 'iniNetworkInterfaceId' @::@ 'Maybe' 'Text'+--+-- * 'iniOwnerId' @::@ 'Maybe' 'Text'+--+-- * 'iniPrivateDnsName' @::@ 'Maybe' 'Text'+--+-- * 'iniPrivateIpAddress' @::@ 'Maybe' 'Text'+--+-- * 'iniPrivateIpAddresses' @::@ ['InstancePrivateIpAddress']+--+-- * 'iniSourceDestCheck' @::@ 'Maybe' 'Bool'+--+-- * 'iniStatus' @::@ 'Maybe' 'Text'+--+-- * 'iniSubnetId' @::@ 'Maybe' 'Text'+--+-- * 'iniVpcId' @::@ 'Maybe' 'Text'+--+instanceNetworkInterface :: InstanceNetworkInterface+instanceNetworkInterface = InstanceNetworkInterface+    { _iniNetworkInterfaceId = Nothing+    , _iniSubnetId           = Nothing+    , _iniVpcId              = Nothing+    , _iniDescription        = Nothing+    , _iniOwnerId            = Nothing+    , _iniStatus             = Nothing+    , _iniMacAddress         = Nothing+    , _iniPrivateIpAddress   = Nothing+    , _iniPrivateDnsName     = Nothing+    , _iniSourceDestCheck    = Nothing+    , _iniGroups             = mempty+    , _iniAttachment         = Nothing+    , _iniAssociation        = Nothing+    , _iniPrivateIpAddresses = mempty+    }++-- | The association information for an Elastic IP associated with the network+-- interface.+iniAssociation :: Lens' InstanceNetworkInterface (Maybe InstanceNetworkInterfaceAssociation)+iniAssociation = lens _iniAssociation (\s a -> s { _iniAssociation = a })++-- | The network interface attachment.+iniAttachment :: Lens' InstanceNetworkInterface (Maybe InstanceNetworkInterfaceAttachment)+iniAttachment = lens _iniAttachment (\s a -> s { _iniAttachment = a })++-- | The description.+iniDescription :: Lens' InstanceNetworkInterface (Maybe Text)+iniDescription = lens _iniDescription (\s a -> s { _iniDescription = a })++-- | One or more security groups.+iniGroups :: Lens' InstanceNetworkInterface [GroupIdentifier]+iniGroups = lens _iniGroups (\s a -> s { _iniGroups = a }) . _List++-- | The MAC address.+iniMacAddress :: Lens' InstanceNetworkInterface (Maybe Text)+iniMacAddress = lens _iniMacAddress (\s a -> s { _iniMacAddress = a })++-- | The ID of the network interface.+iniNetworkInterfaceId :: Lens' InstanceNetworkInterface (Maybe Text)+iniNetworkInterfaceId =+    lens _iniNetworkInterfaceId (\s a -> s { _iniNetworkInterfaceId = a })++-- | The ID of the AWS account that created the network interface.+iniOwnerId :: Lens' InstanceNetworkInterface (Maybe Text)+iniOwnerId = lens _iniOwnerId (\s a -> s { _iniOwnerId = a })++-- | The private DNS name.+iniPrivateDnsName :: Lens' InstanceNetworkInterface (Maybe Text)+iniPrivateDnsName =+    lens _iniPrivateDnsName (\s a -> s { _iniPrivateDnsName = a })++-- | The IP address of the network interface within the subnet.+iniPrivateIpAddress :: Lens' InstanceNetworkInterface (Maybe Text)+iniPrivateIpAddress =+    lens _iniPrivateIpAddress (\s a -> s { _iniPrivateIpAddress = a })++-- | The private IP addresses associated with the network interface.+iniPrivateIpAddresses :: Lens' InstanceNetworkInterface [InstancePrivateIpAddress]+iniPrivateIpAddresses =+    lens _iniPrivateIpAddresses (\s a -> s { _iniPrivateIpAddresses = a })+        . _List++-- | Indicates whether to validate network traffic to or from this network+-- interface.+iniSourceDestCheck :: Lens' InstanceNetworkInterface (Maybe Bool)+iniSourceDestCheck =+    lens _iniSourceDestCheck (\s a -> s { _iniSourceDestCheck = a })++-- | The status of the network interface.+iniStatus :: Lens' InstanceNetworkInterface (Maybe Text)+iniStatus = lens _iniStatus (\s a -> s { _iniStatus = a })++-- | The ID of the subnet.+iniSubnetId :: Lens' InstanceNetworkInterface (Maybe Text)+iniSubnetId = lens _iniSubnetId (\s a -> s { _iniSubnetId = a })++-- | The ID of the VPC.+iniVpcId :: Lens' InstanceNetworkInterface (Maybe Text)+iniVpcId = lens _iniVpcId (\s a -> s { _iniVpcId = a })++instance FromXML InstanceNetworkInterface where+    parseXML x = InstanceNetworkInterface+        <$> x .@? "association"+        <*> x .@? "attachment"+        <*> x .@? "description"+        <*> x .@  "groupSet"+        <*> x .@? "macAddress"+        <*> x .@? "networkInterfaceId"+        <*> x .@? "ownerId"+        <*> x .@? "privateDnsName"+        <*> x .@? "privateIpAddress"+        <*> x .@  "privateIpAddressesSet"+        <*> x .@? "sourceDestCheck"+        <*> x .@? "status"+        <*> x .@? "subnetId"+        <*> x .@? "vpcId"++instance ToQuery InstanceNetworkInterface where+    toQuery InstanceNetworkInterface{..} = mconcat+        [ "association"           =? _iniAssociation+        , "attachment"            =? _iniAttachment+        , "description"           =? _iniDescription+        , "groupSet"              =? _iniGroups+        , "macAddress"            =? _iniMacAddress+        , "networkInterfaceId"    =? _iniNetworkInterfaceId+        , "ownerId"               =? _iniOwnerId+        , "privateDnsName"        =? _iniPrivateDnsName+        , "privateIpAddress"      =? _iniPrivateIpAddress+        , "privateIpAddressesSet" =? _iniPrivateIpAddresses+        , "sourceDestCheck"       =? _iniSourceDestCheck+        , "status"                =? _iniStatus+        , "subnetId"              =? _iniSubnetId+        , "vpcId"                 =? _iniVpcId+        ]++data VolumeStatusAction = VolumeStatusAction+    { _vsaCode        :: Maybe Text+    , _vsaDescription :: Maybe Text+    , _vsaEventId     :: Maybe Text+    , _vsaEventType   :: Maybe Text+    } deriving (Eq, Ord, Show)++-- | 'VolumeStatusAction' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'vsaCode' @::@ 'Maybe' 'Text'+--+-- * 'vsaDescription' @::@ 'Maybe' 'Text'+--+-- * 'vsaEventId' @::@ 'Maybe' 'Text'+--+-- * 'vsaEventType' @::@ 'Maybe' 'Text'+--+volumeStatusAction :: VolumeStatusAction+volumeStatusAction = VolumeStatusAction+    { _vsaCode        = Nothing+    , _vsaDescription = Nothing+    , _vsaEventType   = Nothing+    , _vsaEventId     = Nothing+    }++-- | The code identifying the operation, for example, enable-volume-io.+vsaCode :: Lens' VolumeStatusAction (Maybe Text)+vsaCode = lens _vsaCode (\s a -> s { _vsaCode = a })++-- | A description of the operation.+vsaDescription :: Lens' VolumeStatusAction (Maybe Text)+vsaDescription = lens _vsaDescription (\s a -> s { _vsaDescription = a })++-- | The ID of the event associated with this operation.+vsaEventId :: Lens' VolumeStatusAction (Maybe Text)+vsaEventId = lens _vsaEventId (\s a -> s { _vsaEventId = a })++-- | The event type associated with this operation.+vsaEventType :: Lens' VolumeStatusAction (Maybe Text)+vsaEventType = lens _vsaEventType (\s a -> s { _vsaEventType = a })++instance FromXML VolumeStatusAction where+    parseXML x = VolumeStatusAction+        <$> x .@? "code"+        <*> x .@? "description"+        <*> x .@? "eventId"+        <*> x .@? "eventType"++instance ToQuery VolumeStatusAction where+    toQuery VolumeStatusAction{..} = mconcat+        [ "code"        =? _vsaCode+        , "description" =? _vsaDescription+        , "eventId"     =? _vsaEventId+        , "eventType"   =? _vsaEventType+        ]++data VpcPeeringConnectionVpcInfo = VpcPeeringConnectionVpcInfo+    { _vpcviCidrBlock :: Maybe Text+    , _vpcviOwnerId   :: Maybe Text+    , _vpcviVpcId     :: Maybe Text+    } deriving (Eq, Ord, Show)++-- | 'VpcPeeringConnectionVpcInfo' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'vpcviCidrBlock' @::@ 'Maybe' 'Text'+--+-- * 'vpcviOwnerId' @::@ 'Maybe' 'Text'+--+-- * 'vpcviVpcId' @::@ 'Maybe' 'Text'+--+vpcPeeringConnectionVpcInfo :: VpcPeeringConnectionVpcInfo+vpcPeeringConnectionVpcInfo = VpcPeeringConnectionVpcInfo+    { _vpcviCidrBlock = Nothing+    , _vpcviOwnerId   = Nothing+    , _vpcviVpcId     = Nothing+    }++-- | The CIDR block for the VPC.+vpcviCidrBlock :: Lens' VpcPeeringConnectionVpcInfo (Maybe Text)+vpcviCidrBlock = lens _vpcviCidrBlock (\s a -> s { _vpcviCidrBlock = a })++-- | The AWS account ID of the VPC owner.+vpcviOwnerId :: Lens' VpcPeeringConnectionVpcInfo (Maybe Text)+vpcviOwnerId = lens _vpcviOwnerId (\s a -> s { _vpcviOwnerId = a })++-- | The ID of the VPC.+vpcviVpcId :: Lens' VpcPeeringConnectionVpcInfo (Maybe Text)+vpcviVpcId = lens _vpcviVpcId (\s a -> s { _vpcviVpcId = a })++instance FromXML VpcPeeringConnectionVpcInfo where+    parseXML x = VpcPeeringConnectionVpcInfo+        <$> x .@? "cidrBlock"+        <*> x .@? "ownerId"+        <*> x .@? "vpcId"++instance ToQuery VpcPeeringConnectionVpcInfo where+    toQuery VpcPeeringConnectionVpcInfo{..} = mconcat+        [ "cidrBlock" =? _vpcviCidrBlock+        , "ownerId"   =? _vpcviOwnerId+        , "vpcId"     =? _vpcviVpcId+        ]++data ReservedInstanceLimitPrice = ReservedInstanceLimitPrice+    { _rilpAmount       :: Maybe Double+    , _rilpCurrencyCode :: Maybe Text+    } deriving (Eq, Ord, Show)++-- | 'ReservedInstanceLimitPrice' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'rilpAmount' @::@ 'Maybe' 'Double'+--+-- * 'rilpCurrencyCode' @::@ 'Maybe' 'Text'+--+reservedInstanceLimitPrice :: ReservedInstanceLimitPrice+reservedInstanceLimitPrice = ReservedInstanceLimitPrice+    { _rilpAmount       = Nothing+    , _rilpCurrencyCode = Nothing+    }++-- | Used for Reserved Instance Marketplace offerings. Specifies the limit+-- price on the total order (instanceCount * price).+rilpAmount :: Lens' ReservedInstanceLimitPrice (Maybe Double)+rilpAmount = lens _rilpAmount (\s a -> s { _rilpAmount = a })++-- | The currency in which the limitPrice amount is specified. At this time,+-- the only supported currency is USD.+rilpCurrencyCode :: Lens' ReservedInstanceLimitPrice (Maybe Text)+rilpCurrencyCode = lens _rilpCurrencyCode (\s a -> s { _rilpCurrencyCode = a })++instance FromXML ReservedInstanceLimitPrice where+    parseXML x = ReservedInstanceLimitPrice+        <$> x .@? "amount"+        <*> x .@? "currencyCode"++instance ToQuery ReservedInstanceLimitPrice where+    toQuery ReservedInstanceLimitPrice{..} = mconcat+        [ "amount"       =? _rilpAmount+        , "currencyCode" =? _rilpCurrencyCode+        ]++data Vpc = Vpc+    { _vpcCidrBlock       :: Maybe Text+    , _vpcDhcpOptionsId   :: Maybe Text+    , _vpcInstanceTenancy :: Maybe Text+    , _vpcIsDefault       :: Maybe Bool+    , _vpcState           :: Maybe Text+    , _vpcTags            :: List "item" Tag+    , _vpcVpcId           :: Maybe Text+    } deriving (Eq, Show)++-- | 'Vpc' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'vpcCidrBlock' @::@ 'Maybe' 'Text'+--+-- * 'vpcDhcpOptionsId' @::@ 'Maybe' 'Text'+--+-- * 'vpcInstanceTenancy' @::@ 'Maybe' 'Text'+--+-- * 'vpcIsDefault' @::@ 'Maybe' 'Bool'+--+-- * 'vpcState' @::@ 'Maybe' 'Text'+--+-- * 'vpcTags' @::@ ['Tag']+--+-- * 'vpcVpcId' @::@ 'Maybe' 'Text'+--+vpc :: Vpc+vpc = Vpc+    { _vpcVpcId           = Nothing+    , _vpcState           = Nothing+    , _vpcCidrBlock       = Nothing+    , _vpcDhcpOptionsId   = Nothing+    , _vpcTags            = mempty+    , _vpcInstanceTenancy = Nothing+    , _vpcIsDefault       = Nothing+    }++-- | The CIDR block for the VPC.+vpcCidrBlock :: Lens' Vpc (Maybe Text)+vpcCidrBlock = lens _vpcCidrBlock (\s a -> s { _vpcCidrBlock = a })++-- | The ID of the set of DHCP options you've associated with the VPC (or+-- default if the default options are associated with the VPC).+vpcDhcpOptionsId :: Lens' Vpc (Maybe Text)+vpcDhcpOptionsId = lens _vpcDhcpOptionsId (\s a -> s { _vpcDhcpOptionsId = a })++-- | The allowed tenancy of instances launched into the VPC.+vpcInstanceTenancy :: Lens' Vpc (Maybe Text)+vpcInstanceTenancy =+    lens _vpcInstanceTenancy (\s a -> s { _vpcInstanceTenancy = a })++-- | Indicates whether the VPC is the default VPC.+vpcIsDefault :: Lens' Vpc (Maybe Bool)+vpcIsDefault = lens _vpcIsDefault (\s a -> s { _vpcIsDefault = a })++-- | The current state of the VPC.+vpcState :: Lens' Vpc (Maybe Text)+vpcState = lens _vpcState (\s a -> s { _vpcState = a })++-- | Any tags assigned to the VPC.+vpcTags :: Lens' Vpc [Tag]+vpcTags = lens _vpcTags (\s a -> s { _vpcTags = a }) . _List++-- | The ID of the VPC.+vpcVpcId :: Lens' Vpc (Maybe Text)+vpcVpcId = lens _vpcVpcId (\s a -> s { _vpcVpcId = a })++instance FromXML Vpc where+    parseXML x = Vpc+        <$> x .@? "cidrBlock"+        <*> x .@? "dhcpOptionsId"+        <*> x .@? "instanceTenancy"+        <*> x .@? "isDefault"+        <*> x .@? "state"+        <*> x .@  "tagSet"+        <*> x .@? "vpcId"++instance ToQuery Vpc where+    toQuery Vpc{..} = mconcat+        [ "cidrBlock"       =? _vpcCidrBlock+        , "dhcpOptionsId"   =? _vpcDhcpOptionsId+        , "instanceTenancy" =? _vpcInstanceTenancy+        , "isDefault"       =? _vpcIsDefault+        , "state"           =? _vpcState+        , "tagSet"          =? _vpcTags+        , "vpcId"           =? _vpcVpcId+        ]++data InstanceStatus = InstanceStatus+    { _isAvailabilityZone :: Maybe Text+    , _isEvents           :: List "item" InstanceStatusEvent+    , _isInstanceId       :: Maybe Text+    , _isInstanceState    :: Maybe InstanceState+    , _isInstanceStatus   :: Maybe InstanceStatusSummary+    , _isSystemStatus     :: Maybe InstanceStatusSummary+    } deriving (Eq, Show)++-- | 'InstanceStatus' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'isAvailabilityZone' @::@ 'Maybe' 'Text'+--+-- * 'isEvents' @::@ ['InstanceStatusEvent']+--+-- * 'isInstanceId' @::@ 'Maybe' 'Text'+--+-- * 'isInstanceState' @::@ 'Maybe' 'InstanceState'+--+-- * 'isInstanceStatus' @::@ 'Maybe' 'InstanceStatusSummary'+--+-- * 'isSystemStatus' @::@ 'Maybe' 'InstanceStatusSummary'+--+instanceStatus :: InstanceStatus+instanceStatus = InstanceStatus+    { _isInstanceId       = Nothing+    , _isAvailabilityZone = Nothing+    , _isEvents           = mempty+    , _isInstanceState    = Nothing+    , _isSystemStatus     = Nothing+    , _isInstanceStatus   = Nothing+    }++-- | The Availability Zone of the instance.+isAvailabilityZone :: Lens' InstanceStatus (Maybe Text)+isAvailabilityZone =+    lens _isAvailabilityZone (\s a -> s { _isAvailabilityZone = a })++-- | Extra information regarding events associated with the instance.+isEvents :: Lens' InstanceStatus [InstanceStatusEvent]+isEvents = lens _isEvents (\s a -> s { _isEvents = a }) . _List++-- | The ID of the instance.+isInstanceId :: Lens' InstanceStatus (Maybe Text)+isInstanceId = lens _isInstanceId (\s a -> s { _isInstanceId = a })++-- | The intended state of the instance. DescribeInstanceStatus requires that+-- an instance be in the running state.+isInstanceState :: Lens' InstanceStatus (Maybe InstanceState)+isInstanceState = lens _isInstanceState (\s a -> s { _isInstanceState = a })++-- | Reports impaired functionality that stems from issues internal to the+-- instance, such as impaired reachability.+isInstanceStatus :: Lens' InstanceStatus (Maybe InstanceStatusSummary)+isInstanceStatus = lens _isInstanceStatus (\s a -> s { _isInstanceStatus = a })++-- | Reports impaired functionality that stems from issues related to the+-- systems that support an instance, such as hardware failures and network+-- connectivity problems.+isSystemStatus :: Lens' InstanceStatus (Maybe InstanceStatusSummary)+isSystemStatus = lens _isSystemStatus (\s a -> s { _isSystemStatus = a })++instance FromXML InstanceStatus where+    parseXML x = InstanceStatus+        <$> x .@? "availabilityZone"+        <*> x .@  "eventsSet"+        <*> x .@? "instanceId"+        <*> x .@? "instanceState"+        <*> x .@? "instanceStatus"+        <*> x .@? "systemStatus"++instance ToQuery InstanceStatus where+    toQuery InstanceStatus{..} = mconcat+        [ "availabilityZone" =? _isAvailabilityZone+        , "eventsSet"        =? _isEvents+        , "instanceId"       =? _isInstanceId+        , "instanceState"    =? _isInstanceState+        , "instanceStatus"   =? _isInstanceStatus+        , "systemStatus"     =? _isSystemStatus+        ]++data ArchitectureValues+    = I386  -- ^ i386+    | X8664 -- ^ x86_64+      deriving (Eq, Ord, Show, Generic, Enum)++instance Hashable ArchitectureValues++instance FromText ArchitectureValues where+    parser = match "i386"   I386+         <|> match "x86_64" X8664++instance ToText ArchitectureValues where+    toText = \case+        I386  -> "i386"+        X8664 -> "x86_64"++instance FromXML ArchitectureValues where+    parseXML = parseXMLText "ArchitectureValues"++instance ToQuery ArchitectureValues where+    toQuery = toQuery . toText++data ReportInstanceReasonCodes+    = InstanceStuckInState     -- ^ instance-stuck-in-state+    | NotAcceptingCredentials  -- ^ not-accepting-credentials+    | Other                    -- ^ other+    | PasswordNotAvailable     -- ^ password-not-available+    | PerformanceEbsVolume     -- ^ performance-ebs-volume+    | PerformanceInstanceStore -- ^ performance-instance-store+    | PerformanceNetwork       -- ^ performance-network+    | PerformanceOther         -- ^ performance-other+    | Unresponsive             -- ^ unresponsive+      deriving (Eq, Ord, Show, Generic, Enum)++instance Hashable ReportInstanceReasonCodes++instance FromText ReportInstanceReasonCodes where+    parser = match "instance-stuck-in-state"    InstanceStuckInState+         <|> match "not-accepting-credentials"  NotAcceptingCredentials+         <|> match "other"                      Other+         <|> match "password-not-available"     PasswordNotAvailable+         <|> match "performance-ebs-volume"     PerformanceEbsVolume+         <|> match "performance-instance-store" PerformanceInstanceStore+         <|> match "performance-network"        PerformanceNetwork+         <|> match "performance-other"          PerformanceOther+         <|> match "unresponsive"               Unresponsive++instance ToText ReportInstanceReasonCodes where+    toText = \case+        InstanceStuckInState     -> "instance-stuck-in-state"+        NotAcceptingCredentials  -> "not-accepting-credentials"+        Other                    -> "other"+        PasswordNotAvailable     -> "password-not-available"+        PerformanceEbsVolume     -> "performance-ebs-volume"+        PerformanceInstanceStore -> "performance-instance-store"+        PerformanceNetwork       -> "performance-network"+        PerformanceOther         -> "performance-other"+        Unresponsive             -> "unresponsive"++instance FromXML ReportInstanceReasonCodes where+    parseXML = parseXMLText "ReportInstanceReasonCodes"++instance ToQuery ReportInstanceReasonCodes where+    toQuery = toQuery . toText++data EbsBlockDevice = EbsBlockDevice+    { _ebdDeleteOnTermination :: Maybe Bool+    , _ebdEncrypted           :: Maybe Bool+    , _ebdIops                :: Maybe Int+    , _ebdSnapshotId          :: Maybe Text+    , _ebdVolumeSize          :: Maybe Int+    , _ebdVolumeType          :: Maybe Text+    } deriving (Eq, Ord, Show)++-- | 'EbsBlockDevice' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'ebdDeleteOnTermination' @::@ 'Maybe' 'Bool'+--+-- * 'ebdEncrypted' @::@ 'Maybe' 'Bool'+--+-- * 'ebdIops' @::@ 'Maybe' 'Int'+--+-- * 'ebdSnapshotId' @::@ 'Maybe' 'Text'+--+-- * 'ebdVolumeSize' @::@ 'Maybe' 'Int'+--+-- * 'ebdVolumeType' @::@ 'Maybe' 'Text'+--+ebsBlockDevice :: EbsBlockDevice+ebsBlockDevice = EbsBlockDevice+    { _ebdSnapshotId          = Nothing+    , _ebdVolumeSize          = Nothing+    , _ebdDeleteOnTermination = Nothing+    , _ebdVolumeType          = Nothing+    , _ebdIops                = Nothing+    , _ebdEncrypted           = Nothing+    }++-- | Indicates whether the Amazon EBS volume is deleted on instance+-- termination.+ebdDeleteOnTermination :: Lens' EbsBlockDevice (Maybe Bool)+ebdDeleteOnTermination =+    lens _ebdDeleteOnTermination (\s a -> s { _ebdDeleteOnTermination = a })++-- | Indicates whether the Amazon EBS volume is encrypted. Encrypted Amazon+-- EBS volumes may only be attached to instances that support Amazon EBS+-- encryption.+ebdEncrypted :: Lens' EbsBlockDevice (Maybe Bool)+ebdEncrypted = lens _ebdEncrypted (\s a -> s { _ebdEncrypted = a })++-- | The number of I/O operations per second (IOPS) that the volume supports.+-- For Provisioned IOPS (SSD) volumes, this represents the number of IOPS+-- that are provisioned for the volume. For General Purpose (SSD) volumes,+-- this represents the baseline performance of the volume and the rate at+-- which the volume accumulates I/O credits for bursting. For more+-- information on General Purpose (SSD) baseline performance, I/O credits,+-- and bursting, see Amazon EBS Volume Types in the Amazon Elastic Compute+-- Cloud User Guide. Constraint: Range is 100 to 4000 for Provisioned IOPS+-- (SSD) volumes and 3 to 3072 for General Purpose (SSD) volumes. Condition:+-- This parameter is required for requests to create io1 volumes; it is not+-- used in requests to create standard or gp2 volumes.+ebdIops :: Lens' EbsBlockDevice (Maybe Int)+ebdIops = lens _ebdIops (\s a -> s { _ebdIops = a })++-- | The ID of the snapshot.+ebdSnapshotId :: Lens' EbsBlockDevice (Maybe Text)+ebdSnapshotId = lens _ebdSnapshotId (\s a -> s { _ebdSnapshotId = a })++-- | The size of the volume, in GiB. Constraints: If the volume type is io1,+-- the minimum size of the volume is 10 GiB; otherwise, the minimum size is+-- 1 GiB. The maximum volume size is 1024 GiB. If you specify a snapshot,+-- the volume size must be equal to or larger than the snapshot size.+-- Default: If you're creating the volume from a snapshot and don't specify+-- a volume size, the default is the snapshot size.+ebdVolumeSize :: Lens' EbsBlockDevice (Maybe Int)+ebdVolumeSize = lens _ebdVolumeSize (\s a -> s { _ebdVolumeSize = a })++-- | The volume type. gp2 for General Purpose (SSD) volumes, io1 for+-- Provisioned IOPS (SSD) volumes, and standard for Magnetic volumes.+-- Default: standard.+ebdVolumeType :: Lens' EbsBlockDevice (Maybe Text)+ebdVolumeType = lens _ebdVolumeType (\s a -> s { _ebdVolumeType = a })++instance FromXML EbsBlockDevice where+    parseXML x = EbsBlockDevice+        <$> x .@? "deleteOnTermination"+        <*> x .@? "encrypted"+        <*> x .@? "iops"+        <*> x .@? "snapshotId"+        <*> x .@? "volumeSize"+        <*> x .@? "volumeType"++instance ToQuery EbsBlockDevice where+    toQuery EbsBlockDevice{..} = mconcat+        [ "deleteOnTermination" =? _ebdDeleteOnTermination+        , "encrypted"           =? _ebdEncrypted+        , "iops"                =? _ebdIops+        , "snapshotId"          =? _ebdSnapshotId+        , "volumeSize"          =? _ebdVolumeSize+        , "volumeType"          =? _ebdVolumeType+        ]++data AccountAttribute = AccountAttribute+    { _aaAttributeName   :: Maybe Text+    , _aaAttributeValues :: List "item" AccountAttributeValue+    } deriving (Eq, Show)++-- | 'AccountAttribute' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'aaAttributeName' @::@ 'Maybe' 'Text'+--+-- * 'aaAttributeValues' @::@ ['AccountAttributeValue']+--+accountAttribute :: AccountAttribute+accountAttribute = AccountAttribute+    { _aaAttributeName   = Nothing+    , _aaAttributeValues = mempty+    }++-- | The name of the account attribute.+aaAttributeName :: Lens' AccountAttribute (Maybe Text)+aaAttributeName = lens _aaAttributeName (\s a -> s { _aaAttributeName = a })++-- | One or more values for the account attribute.+aaAttributeValues :: Lens' AccountAttribute [AccountAttributeValue]+aaAttributeValues =+    lens _aaAttributeValues (\s a -> s { _aaAttributeValues = a })+        . _List++instance FromXML AccountAttribute where+    parseXML x = AccountAttribute+        <$> x .@? "attributeName"+        <*> x .@  "attributeValueSet"++instance ToQuery AccountAttribute where+    toQuery AccountAttribute{..} = mconcat+        [ "attributeName"     =? _aaAttributeName+        , "attributeValueSet" =? _aaAttributeValues+        ]++data PriceSchedule = PriceSchedule+    { _psActive       :: Maybe Bool+    , _psCurrencyCode :: Maybe Text+    , _psPrice        :: Maybe Double+    , _psTerm         :: Maybe Integer+    } deriving (Eq, Ord, Show)++-- | 'PriceSchedule' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'psActive' @::@ 'Maybe' 'Bool'+--+-- * 'psCurrencyCode' @::@ 'Maybe' 'Text'+--+-- * 'psPrice' @::@ 'Maybe' 'Double'+--+-- * 'psTerm' @::@ 'Maybe' 'Integer'+--+priceSchedule :: PriceSchedule+priceSchedule = PriceSchedule+    { _psTerm         = Nothing+    , _psPrice        = Nothing+    , _psCurrencyCode = Nothing+    , _psActive       = Nothing+    }++-- | The current price schedule, as determined by the term remaining for the+-- Reserved Instance in the listing. A specific price schedule is always in+-- effect, but only one price schedule can be active at any time. Take, for+-- example, a Reserved Instance listing that has five months remaining in+-- its term. When you specify price schedules for five months and two+-- months, this means that schedule 1, covering the first three months of+-- the remaining term, will be active during months 5, 4, and 3. Then+-- schedule 2, covering the last two months of the term, will be active for+-- months 2 and 1.+psActive :: Lens' PriceSchedule (Maybe Bool)+psActive = lens _psActive (\s a -> s { _psActive = a })++-- | The currency for transacting the Reserved Instance resale. At this time,+-- the only supported currency is USD.+psCurrencyCode :: Lens' PriceSchedule (Maybe Text)+psCurrencyCode = lens _psCurrencyCode (\s a -> s { _psCurrencyCode = a })++-- | The fixed price for the term.+psPrice :: Lens' PriceSchedule (Maybe Double)+psPrice = lens _psPrice (\s a -> s { _psPrice = a })++-- | The number of months remaining in the reservation. For example, 2 is the+-- second to the last month before the capacity reservation expires.+psTerm :: Lens' PriceSchedule (Maybe Integer)+psTerm = lens _psTerm (\s a -> s { _psTerm = a })++instance FromXML PriceSchedule where+    parseXML x = PriceSchedule+        <$> x .@? "active"+        <*> x .@? "currencyCode"+        <*> x .@? "price"+        <*> x .@? "term"++instance ToQuery PriceSchedule where+    toQuery PriceSchedule{..} = mconcat+        [ "active"       =? _psActive+        , "currencyCode" =? _psCurrencyCode+        , "price"        =? _psPrice+        , "term"         =? _psTerm+        ]++data DeviceType+    = Ebs           -- ^ ebs+    | InstanceStore -- ^ instance-store+      deriving (Eq, Ord, Show, Generic, Enum)++instance Hashable DeviceType++instance FromText DeviceType where+    parser = match "ebs"            Ebs+         <|> match "instance-store" InstanceStore++instance ToText DeviceType where+    toText = \case+        Ebs           -> "ebs"+        InstanceStore -> "instance-store"++instance FromXML DeviceType where+    parseXML = parseXMLText "DeviceType"++instance ToQuery DeviceType where+    toQuery = toQuery . toText++data DomainType+    = DTStandard -- ^ standard+    | DTVpc      -- ^ vpc+      deriving (Eq, Ord, Show, Generic, Enum)++instance Hashable DomainType++instance FromText DomainType where+    parser = match "standard" DTStandard+         <|> match "vpc"      DTVpc++instance ToText DomainType where+    toText = \case+        DTStandard -> "standard"+        DTVpc      -> "vpc"++instance FromXML DomainType where+    parseXML = parseXMLText "DomainType"++instance ToQuery DomainType where+    toQuery = toQuery . toText++data Region = Region+    { _rEndpoint   :: Maybe Text+    , _rRegionName :: Maybe Text+    } deriving (Eq, Ord, Show)++-- | 'Region' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'rEndpoint' @::@ 'Maybe' 'Text'+--+-- * 'rRegionName' @::@ 'Maybe' 'Text'+--+region :: Region+region = Region+    { _rRegionName = Nothing+    , _rEndpoint   = Nothing+    }++-- | The region service endpoint.+rEndpoint :: Lens' Region (Maybe Text)+rEndpoint = lens _rEndpoint (\s a -> s { _rEndpoint = a })++-- | The name of the region.+rRegionName :: Lens' Region (Maybe Text)+rRegionName = lens _rRegionName (\s a -> s { _rRegionName = a })++instance FromXML Region where+    parseXML x = Region+        <$> x .@? "regionEndpoint"+        <*> x .@? "regionName"++instance ToQuery Region where+    toQuery Region{..} = mconcat+        [ "regionEndpoint" =? _rEndpoint+        , "regionName"     =? _rRegionName+        ]++newtype PropagatingVgw = PropagatingVgw+    { _pvGatewayId :: Maybe Text+    } deriving (Eq, Ord, Show, Monoid)++-- | 'PropagatingVgw' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'pvGatewayId' @::@ 'Maybe' 'Text'+--+propagatingVgw :: PropagatingVgw+propagatingVgw = PropagatingVgw+    { _pvGatewayId = Nothing+    }++-- | The ID of the virtual private gateway (VGW).+pvGatewayId :: Lens' PropagatingVgw (Maybe Text)+pvGatewayId = lens _pvGatewayId (\s a -> s { _pvGatewayId = a })++instance FromXML PropagatingVgw where+    parseXML x = PropagatingVgw+        <$> x .@? "gatewayId"++instance ToQuery PropagatingVgw where+    toQuery PropagatingVgw{..} = mconcat+        [ "gatewayId" =? _pvGatewayId+        ]++data OfferingTypeValues+    = HeavyUtilization  -- ^ Heavy Utilization+    | LightUtilization  -- ^ Light Utilization+    | MediumUtilization -- ^ Medium Utilization+      deriving (Eq, Ord, Show, Generic, Enum)++instance Hashable OfferingTypeValues++instance FromText OfferingTypeValues where+    parser = match "Heavy Utilization"  HeavyUtilization+         <|> match "Light Utilization"  LightUtilization+         <|> match "Medium Utilization" MediumUtilization++instance ToText OfferingTypeValues where+    toText = \case+        HeavyUtilization  -> "Heavy Utilization"+        LightUtilization  -> "Light Utilization"+        MediumUtilization -> "Medium Utilization"++instance FromXML OfferingTypeValues where+    parseXML = parseXMLText "OfferingTypeValues"++instance ToQuery OfferingTypeValues where+    toQuery = toQuery . toText++data VpnGateway = VpnGateway+    { _vgAvailabilityZone :: Maybe Text+    , _vgState            :: Maybe Text+    , _vgTags             :: List "item" Tag+    , _vgType             :: Maybe Text+    , _vgVpcAttachments   :: List "item" VpcAttachment+    , _vgVpnGatewayId     :: Maybe Text+    } deriving (Eq, Show)++-- | 'VpnGateway' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'vgAvailabilityZone' @::@ 'Maybe' 'Text'+--+-- * 'vgState' @::@ 'Maybe' 'Text'+--+-- * 'vgTags' @::@ ['Tag']+--+-- * 'vgType' @::@ 'Maybe' 'Text'+--+-- * 'vgVpcAttachments' @::@ ['VpcAttachment']+--+-- * 'vgVpnGatewayId' @::@ 'Maybe' 'Text'+--+vpnGateway :: VpnGateway+vpnGateway = VpnGateway+    { _vgVpnGatewayId     = Nothing+    , _vgState            = Nothing+    , _vgType             = Nothing+    , _vgAvailabilityZone = Nothing+    , _vgVpcAttachments   = mempty+    , _vgTags             = mempty+    }++-- | The Availability Zone where the virtual private gateway was created.+vgAvailabilityZone :: Lens' VpnGateway (Maybe Text)+vgAvailabilityZone =+    lens _vgAvailabilityZone (\s a -> s { _vgAvailabilityZone = a })++-- | The current state of the virtual private gateway.+vgState :: Lens' VpnGateway (Maybe Text)+vgState = lens _vgState (\s a -> s { _vgState = a })++-- | Any tags assigned to the virtual private gateway.+vgTags :: Lens' VpnGateway [Tag]+vgTags = lens _vgTags (\s a -> s { _vgTags = a }) . _List++-- | The type of VPN connection the virtual private gateway supports.+vgType :: Lens' VpnGateway (Maybe Text)+vgType = lens _vgType (\s a -> s { _vgType = a })++-- | Any VPCs attached to the virtual private gateway.+vgVpcAttachments :: Lens' VpnGateway [VpcAttachment]+vgVpcAttachments = lens _vgVpcAttachments (\s a -> s { _vgVpcAttachments = a }) . _List++-- | The ID of the virtual private gateway.+vgVpnGatewayId :: Lens' VpnGateway (Maybe Text)+vgVpnGatewayId = lens _vgVpnGatewayId (\s a -> s { _vgVpnGatewayId = a })++instance FromXML VpnGateway where+    parseXML x = VpnGateway+        <$> x .@? "availabilityZone"+        <*> x .@? "state"+        <*> x .@  "tagSet"+        <*> x .@? "type"+        <*> x .@  "attachments"+        <*> x .@? "vpnGatewayId"++instance ToQuery VpnGateway where+    toQuery VpnGateway{..} = mconcat+        [ "availabilityZone" =? _vgAvailabilityZone+        , "state"            =? _vgState+        , "tagSet"           =? _vgTags+        , "type"             =? _vgType+        , "attachments"      =? _vgVpcAttachments+        , "vpnGatewayId"     =? _vgVpnGatewayId+        ]++data Filter = Filter+    { _fName   :: Text+    , _fValues :: List "item" Text+    } deriving (Eq, Ord, Show)++-- | 'Filter' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'fName' @::@ 'Text'+--+-- * 'fValues' @::@ ['Text']+--+filter' :: Text -- ^ 'fName'+        -> Filter+filter' p1 = Filter+    { _fName   = p1+    , _fValues = mempty+    }++-- | The name of the filter.+fName :: Lens' Filter Text+fName = lens _fName (\s a -> s { _fName = a })++-- | One or more filter values.+fValues :: Lens' Filter [Text]+fValues = lens _fValues (\s a -> s { _fValues = a }) . _List++instance FromXML Filter where+    parseXML x = Filter+        <$> x .@  "Name"+        <*> x .@  "Value"++instance ToQuery Filter where+    toQuery Filter{..} = mconcat+        [ "Name"  =? _fName+        , "Value" =? _fValues+        ]++data VolumeType+    = Gp2      -- ^ gp2+    | Io1      -- ^ io1+    | Standard -- ^ standard+      deriving (Eq, Ord, Show, Generic, Enum)++instance Hashable VolumeType++instance FromText VolumeType where+    parser = match "gp2"      Gp2+         <|> match "io1"      Io1+         <|> match "standard" Standard++instance ToText VolumeType where+    toText = \case+        Gp2      -> "gp2"+        Io1      -> "io1"+        Standard -> "standard"++instance FromXML VolumeType where+    parseXML = parseXMLText "VolumeType"++instance ToQuery VolumeType where+    toQuery = toQuery . toText++data InstanceStateChange = InstanceStateChange+    { _iscCurrentState  :: Maybe InstanceState+    , _iscInstanceId    :: Maybe Text+    , _iscPreviousState :: Maybe InstanceState+    } deriving (Eq, Show)++-- | 'InstanceStateChange' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'iscCurrentState' @::@ 'Maybe' 'InstanceState'+--+-- * 'iscInstanceId' @::@ 'Maybe' 'Text'+--+-- * 'iscPreviousState' @::@ 'Maybe' 'InstanceState'+--+instanceStateChange :: InstanceStateChange+instanceStateChange = InstanceStateChange+    { _iscInstanceId    = Nothing+    , _iscCurrentState  = Nothing+    , _iscPreviousState = Nothing+    }++-- | The current state of the instance.+iscCurrentState :: Lens' InstanceStateChange (Maybe InstanceState)+iscCurrentState = lens _iscCurrentState (\s a -> s { _iscCurrentState = a })++-- | The ID of the instance.+iscInstanceId :: Lens' InstanceStateChange (Maybe Text)+iscInstanceId = lens _iscInstanceId (\s a -> s { _iscInstanceId = a })++-- | The previous state of the instance.+iscPreviousState :: Lens' InstanceStateChange (Maybe InstanceState)+iscPreviousState = lens _iscPreviousState (\s a -> s { _iscPreviousState = a })++instance FromXML InstanceStateChange where+    parseXML x = InstanceStateChange+        <$> x .@? "currentState"+        <*> x .@? "instanceId"+        <*> x .@? "previousState"++instance ToQuery InstanceStateChange where+    toQuery InstanceStateChange{..} = mconcat+        [ "currentState"  =? _iscCurrentState+        , "instanceId"    =? _iscInstanceId+        , "previousState" =? _iscPreviousState+        ]++data NetworkAcl = NetworkAcl+    { _naAssociations :: List "item" NetworkAclAssociation+    , _naEntries      :: List "item" NetworkAclEntry+    , _naIsDefault    :: Maybe Bool+    , _naNetworkAclId :: Maybe Text+    , _naTags         :: List "item" Tag+    , _naVpcId        :: Maybe Text+    } deriving (Eq, Show)++-- | 'NetworkAcl' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'naAssociations' @::@ ['NetworkAclAssociation']+--+-- * 'naEntries' @::@ ['NetworkAclEntry']+--+-- * 'naIsDefault' @::@ 'Maybe' 'Bool'+--+-- * 'naNetworkAclId' @::@ 'Maybe' 'Text'+--+-- * 'naTags' @::@ ['Tag']+--+-- * 'naVpcId' @::@ 'Maybe' 'Text'+--+networkAcl :: NetworkAcl+networkAcl = NetworkAcl+    { _naNetworkAclId = Nothing+    , _naVpcId        = Nothing+    , _naIsDefault    = Nothing+    , _naEntries      = mempty+    , _naAssociations = mempty+    , _naTags         = mempty+    }++-- | Any associations between the network ACL and one or more subnets.+naAssociations :: Lens' NetworkAcl [NetworkAclAssociation]+naAssociations = lens _naAssociations (\s a -> s { _naAssociations = a }) . _List++-- | One or more entries (rules) in the network ACL.+naEntries :: Lens' NetworkAcl [NetworkAclEntry]+naEntries = lens _naEntries (\s a -> s { _naEntries = a }) . _List++-- | Indicates whether this is the default network ACL for the VPC.+naIsDefault :: Lens' NetworkAcl (Maybe Bool)+naIsDefault = lens _naIsDefault (\s a -> s { _naIsDefault = a })++-- | The ID of the network ACL.+naNetworkAclId :: Lens' NetworkAcl (Maybe Text)+naNetworkAclId = lens _naNetworkAclId (\s a -> s { _naNetworkAclId = a })++-- | Any tags assigned to the network ACL.+naTags :: Lens' NetworkAcl [Tag]+naTags = lens _naTags (\s a -> s { _naTags = a }) . _List++-- | The ID of the VPC for the network ACL.+naVpcId :: Lens' NetworkAcl (Maybe Text)+naVpcId = lens _naVpcId (\s a -> s { _naVpcId = a })++instance FromXML NetworkAcl where+    parseXML x = NetworkAcl+        <$> x .@  "associationSet"+        <*> x .@  "entrySet"+        <*> x .@? "default"+        <*> x .@? "networkAclId"+        <*> x .@  "tagSet"+        <*> x .@? "vpcId"++instance ToQuery NetworkAcl where+    toQuery NetworkAcl{..} = mconcat+        [ "associationSet" =? _naAssociations+        , "entrySet"       =? _naEntries+        , "default"        =? _naIsDefault+        , "networkAclId"   =? _naNetworkAclId+        , "tagSet"         =? _naTags+        , "vpcId"          =? _naVpcId+        ]++data ImageState+    = ISAvailable    -- ^ available+    | ISDeregistered -- ^ deregistered+      deriving (Eq, Ord, Show, Generic, Enum)++instance Hashable ImageState++instance FromText ImageState where+    parser = match "available"    ISAvailable+         <|> match "deregistered" ISDeregistered++instance ToText ImageState where+    toText = \case+        ISAvailable    -> "available"+        ISDeregistered -> "deregistered"++instance FromXML ImageState where+    parseXML = parseXMLText "ImageState"++instance ToQuery ImageState where+    toQuery = toQuery . toText++data GatewayType+    = Ipsec1 -- ^ ipsec.1+      deriving (Eq, Ord, Show, Generic, Enum)++instance Hashable GatewayType++instance FromText GatewayType where+    parser = match "ipsec.1" Ipsec1++instance ToText GatewayType where+    toText Ipsec1 = "ipsec.1"++instance FromXML GatewayType where+    parseXML = parseXMLText "GatewayType"++instance ToQuery GatewayType where+    toQuery = toQuery . toText++data InstanceNetworkInterfaceAttachment = InstanceNetworkInterfaceAttachment+    { _iniaAttachTime          :: Maybe RFC822+    , _iniaAttachmentId        :: Maybe Text+    , _iniaDeleteOnTermination :: Maybe Bool+    , _iniaDeviceIndex         :: Maybe Int+    , _iniaStatus              :: Maybe Text+    } deriving (Eq, Ord, Show)++-- | 'InstanceNetworkInterfaceAttachment' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'iniaAttachTime' @::@ 'Maybe' 'UTCTime'+--+-- * 'iniaAttachmentId' @::@ 'Maybe' 'Text'+--+-- * 'iniaDeleteOnTermination' @::@ 'Maybe' 'Bool'+--+-- * 'iniaDeviceIndex' @::@ 'Maybe' 'Int'+--+-- * 'iniaStatus' @::@ 'Maybe' 'Text'+--+instanceNetworkInterfaceAttachment :: InstanceNetworkInterfaceAttachment+instanceNetworkInterfaceAttachment = InstanceNetworkInterfaceAttachment+    { _iniaAttachmentId        = Nothing+    , _iniaDeviceIndex         = Nothing+    , _iniaStatus              = Nothing+    , _iniaAttachTime          = Nothing+    , _iniaDeleteOnTermination = Nothing+    }++-- | The time stamp when the attachment initiated.+iniaAttachTime :: Lens' InstanceNetworkInterfaceAttachment (Maybe UTCTime)+iniaAttachTime = lens _iniaAttachTime (\s a -> s { _iniaAttachTime = a }) . mapping _Time++-- | The ID of the network interface attachment.+iniaAttachmentId :: Lens' InstanceNetworkInterfaceAttachment (Maybe Text)+iniaAttachmentId = lens _iniaAttachmentId (\s a -> s { _iniaAttachmentId = a })++-- | Indicates whether the network interface is deleted when the instance is+-- terminated.+iniaDeleteOnTermination :: Lens' InstanceNetworkInterfaceAttachment (Maybe Bool)+iniaDeleteOnTermination =+    lens _iniaDeleteOnTermination (\s a -> s { _iniaDeleteOnTermination = a })++-- | The index of the device on the instance for the network interface+-- attachment.+iniaDeviceIndex :: Lens' InstanceNetworkInterfaceAttachment (Maybe Int)+iniaDeviceIndex = lens _iniaDeviceIndex (\s a -> s { _iniaDeviceIndex = a })++-- | The attachment state.+iniaStatus :: Lens' InstanceNetworkInterfaceAttachment (Maybe Text)+iniaStatus = lens _iniaStatus (\s a -> s { _iniaStatus = a })++instance FromXML InstanceNetworkInterfaceAttachment where+    parseXML x = InstanceNetworkInterfaceAttachment+        <$> x .@? "attachTime"+        <*> x .@? "attachmentId"+        <*> x .@? "deleteOnTermination"+        <*> x .@? "deviceIndex"+        <*> x .@? "status"++instance ToQuery InstanceNetworkInterfaceAttachment where+    toQuery InstanceNetworkInterfaceAttachment{..} = mconcat+        [ "attachTime"          =? _iniaAttachTime+        , "attachmentId"        =? _iniaAttachmentId+        , "deleteOnTermination" =? _iniaDeleteOnTermination+        , "deviceIndex"         =? _iniaDeviceIndex+        , "status"              =? _iniaStatus+        ]++newtype AttributeBooleanValue = AttributeBooleanValue+    { _abvValue :: Maybe Bool+    } deriving (Eq, Ord, Show)++-- | 'AttributeBooleanValue' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'abvValue' @::@ 'Maybe' 'Bool'+--+attributeBooleanValue :: AttributeBooleanValue+attributeBooleanValue = AttributeBooleanValue+    { _abvValue = Nothing+    }++abvValue :: Lens' AttributeBooleanValue (Maybe Bool)+abvValue = lens _abvValue (\s a -> s { _abvValue = a })++instance FromXML AttributeBooleanValue where+    parseXML x = AttributeBooleanValue+        <$> x .@? "value"++instance ToQuery AttributeBooleanValue where+    toQuery AttributeBooleanValue{..} = mconcat+        [ "value" =? _abvValue+        ]++data RecurringCharge = RecurringCharge+    { _rcAmount    :: Maybe Double+    , _rcFrequency :: Maybe Text+    } deriving (Eq, Ord, Show)++-- | 'RecurringCharge' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'rcAmount' @::@ 'Maybe' 'Double'+--+-- * 'rcFrequency' @::@ 'Maybe' 'Text'+--+recurringCharge :: RecurringCharge+recurringCharge = RecurringCharge+    { _rcFrequency = Nothing+    , _rcAmount    = Nothing+    }++-- | The amount of the recurring charge.+rcAmount :: Lens' RecurringCharge (Maybe Double)+rcAmount = lens _rcAmount (\s a -> s { _rcAmount = a })++-- | The frequency of the recurring charge.+rcFrequency :: Lens' RecurringCharge (Maybe Text)+rcFrequency = lens _rcFrequency (\s a -> s { _rcFrequency = a })++instance FromXML RecurringCharge where+    parseXML x = RecurringCharge+        <$> x .@? "amount"+        <*> x .@? "frequency"++instance ToQuery RecurringCharge where+    toQuery RecurringCharge{..} = mconcat+        [ "amount"    =? _rcAmount+        , "frequency" =? _rcFrequency+        ]++data NewDhcpConfiguration = NewDhcpConfiguration+    { _ndcKey    :: Maybe Text+    , _ndcValues :: List "item" Text+    } deriving (Eq, Ord, Show)++-- | 'NewDhcpConfiguration' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'ndcKey' @::@ 'Maybe' 'Text'+--+-- * 'ndcValues' @::@ ['Text']+--+newDhcpConfiguration :: NewDhcpConfiguration+newDhcpConfiguration = NewDhcpConfiguration+    { _ndcKey    = Nothing+    , _ndcValues = mempty+    }++ndcKey :: Lens' NewDhcpConfiguration (Maybe Text)+ndcKey = lens _ndcKey (\s a -> s { _ndcKey = a })++ndcValues :: Lens' NewDhcpConfiguration [Text]+ndcValues = lens _ndcValues (\s a -> s { _ndcValues = a }) . _List++instance FromXML NewDhcpConfiguration where+    parseXML x = NewDhcpConfiguration+        <$> x .@? "key"+        <*> x .@  "Value"++instance ToQuery NewDhcpConfiguration where+    toQuery NewDhcpConfiguration{..} = mconcat+        [ "key"   =? _ndcKey+        , "Value" =? _ndcValues+        ]++data StateReason = StateReason+    { _srCode    :: Maybe Text+    , _srMessage :: Maybe Text+    } deriving (Eq, Ord, Show)++-- | 'StateReason' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'srCode' @::@ 'Maybe' 'Text'+--+-- * 'srMessage' @::@ 'Maybe' 'Text'+--+stateReason :: StateReason+stateReason = StateReason+    { _srCode    = Nothing+    , _srMessage = Nothing+    }++-- | The reason code for the state change.+srCode :: Lens' StateReason (Maybe Text)+srCode = lens _srCode (\s a -> s { _srCode = a })++-- | The message for the state change. Server.SpotInstanceTermination: A Spot+-- Instance was terminated due to an increase in the market price.+-- Server.InternalError: An internal error occurred during instance launch,+-- resulting in termination. Server.InsufficientInstanceCapacity: There was+-- insufficient instance capacity to satisfy the launch request.+-- Client.InternalError: A client error caused the instance to terminate on+-- launch. Client.InstanceInitiatedShutdown: The instance was shut down+-- using the shutdown -h command from the instance.+-- Client.UserInitiatedShutdown: The instance was shut down using the Amazon+-- EC2 API. Client.VolumeLimitExceeded: The volume limit was exceeded.+-- Client.InvalidSnapshot.NotFound: The specified snapshot was not found.+srMessage :: Lens' StateReason (Maybe Text)+srMessage = lens _srMessage (\s a -> s { _srMessage = a })++instance FromXML StateReason where+    parseXML x = StateReason+        <$> x .@? "code"+        <*> x .@? "message"++instance ToQuery StateReason where+    toQuery StateReason{..} = mconcat+        [ "code"    =? _srCode+        , "message" =? _srMessage+        ]++data MonitoringState+    = MSDisabled -- ^ disabled+    | MSEnabled  -- ^ enabled+    | MSPending  -- ^ pending+      deriving (Eq, Ord, Show, Generic, Enum)++instance Hashable MonitoringState++instance FromText MonitoringState where+    parser = match "disabled" MSDisabled+         <|> match "enabled"  MSEnabled+         <|> match "pending"  MSPending++instance ToText MonitoringState where+    toText = \case+        MSDisabled -> "disabled"+        MSEnabled  -> "enabled"+        MSPending  -> "pending"++instance FromXML MonitoringState where+    parseXML = parseXMLText "MonitoringState"++instance ToQuery MonitoringState where+    toQuery = toQuery . toText++newtype ReservedInstancesId = ReservedInstancesId+    { _riiReservedInstancesId :: Maybe Text+    } deriving (Eq, Ord, Show, Monoid)++-- | 'ReservedInstancesId' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'riiReservedInstancesId' @::@ 'Maybe' 'Text'+--+reservedInstancesId :: ReservedInstancesId+reservedInstancesId = ReservedInstancesId+    { _riiReservedInstancesId = Nothing+    }++-- | The ID of the Reserved Instance.+riiReservedInstancesId :: Lens' ReservedInstancesId (Maybe Text)+riiReservedInstancesId =+    lens _riiReservedInstancesId (\s a -> s { _riiReservedInstancesId = a })++instance FromXML ReservedInstancesId where+    parseXML x = ReservedInstancesId+        <$> x .@? "reservedInstancesId"++instance ToQuery ReservedInstancesId where+    toQuery ReservedInstancesId{..} = mconcat+        [ "reservedInstancesId" =? _riiReservedInstancesId+        ]++data StatusName+    = Reachability -- ^ reachability+      deriving (Eq, Ord, Show, Generic, Enum)++instance Hashable StatusName++instance FromText StatusName where+    parser = match "reachability" Reachability++instance ToText StatusName where+    toText Reachability = "reachability"++instance FromXML StatusName where+    parseXML = parseXMLText "StatusName"++instance ToQuery StatusName where+    toQuery = toQuery . toText++data InternetGateway = InternetGateway+    { _igAttachments       :: List "item" InternetGatewayAttachment+    , _igInternetGatewayId :: Text+    , _igTags              :: List "item" Tag+    } deriving (Eq, Show)++-- | 'InternetGateway' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'igAttachments' @::@ ['InternetGatewayAttachment']+--+-- * 'igInternetGatewayId' @::@ 'Text'+--+-- * 'igTags' @::@ ['Tag']+--+internetGateway :: Text -- ^ 'igInternetGatewayId'+                -> InternetGateway+internetGateway p1 = InternetGateway+    { _igInternetGatewayId = p1+    , _igAttachments       = mempty+    , _igTags              = mempty+    }++-- | Any VPCs attached to the Internet gateway.+igAttachments :: Lens' InternetGateway [InternetGatewayAttachment]+igAttachments = lens _igAttachments (\s a -> s { _igAttachments = a }) . _List++-- | The ID of the Internet gateway.+igInternetGatewayId :: Lens' InternetGateway Text+igInternetGatewayId =+    lens _igInternetGatewayId (\s a -> s { _igInternetGatewayId = a })++-- | Any tags assigned to the Internet gateway.+igTags :: Lens' InternetGateway [Tag]+igTags = lens _igTags (\s a -> s { _igTags = a }) . _List++instance FromXML InternetGateway where+    parseXML x = InternetGateway+        <$> x .@  "attachmentSet"+        <*> x .@  "internetGatewayId"+        <*> x .@  "tagSet"++instance ToQuery InternetGateway where+    toQuery InternetGateway{..} = mconcat+        [ "attachmentSet"     =? _igAttachments+        , "internetGatewayId" =? _igInternetGatewayId+        , "tagSet"            =? _igTags+        ]++data VolumeStatusName+    = IoEnabled     -- ^ io-enabled+    | IoPerformance -- ^ io-performance+      deriving (Eq, Ord, Show, Generic, Enum)++instance Hashable VolumeStatusName++instance FromText VolumeStatusName where+    parser = match "io-enabled"     IoEnabled+         <|> match "io-performance" IoPerformance++instance ToText VolumeStatusName where+    toText = \case+        IoEnabled     -> "io-enabled"+        IoPerformance -> "io-performance"++instance FromXML VolumeStatusName where+    parseXML = parseXMLText "VolumeStatusName"++instance ToQuery VolumeStatusName where+    toQuery = toQuery . toText++data VolumeAttributeName+    = AutoEnableIO -- ^ autoEnableIO+    | ProductCodes -- ^ productCodes+      deriving (Eq, Ord, Show, Generic, Enum)++instance Hashable VolumeAttributeName++instance FromText VolumeAttributeName where+    parser = match "autoEnableIO" AutoEnableIO+         <|> match "productCodes" ProductCodes++instance ToText VolumeAttributeName where+    toText = \case+        AutoEnableIO -> "autoEnableIO"+        ProductCodes -> "productCodes"++instance FromXML VolumeAttributeName where+    parseXML = parseXMLText "VolumeAttributeName"++instance ToQuery VolumeAttributeName where+    toQuery = toQuery . toText++data ImportInstanceTaskDetails = ImportInstanceTaskDetails+    { _iitdDescription :: Maybe Text+    , _iitdInstanceId  :: Maybe Text+    , _iitdPlatform    :: Maybe Text+    , _iitdVolumes     :: List "item" ImportInstanceVolumeDetailItem+    } deriving (Eq, Show)++-- | 'ImportInstanceTaskDetails' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'iitdDescription' @::@ 'Maybe' 'Text'+--+-- * 'iitdInstanceId' @::@ 'Maybe' 'Text'+--+-- * 'iitdPlatform' @::@ 'Maybe' 'Text'+--+-- * 'iitdVolumes' @::@ ['ImportInstanceVolumeDetailItem']+--+importInstanceTaskDetails :: ImportInstanceTaskDetails+importInstanceTaskDetails = ImportInstanceTaskDetails+    { _iitdVolumes     = mempty+    , _iitdInstanceId  = Nothing+    , _iitdPlatform    = Nothing+    , _iitdDescription = Nothing+    }++iitdDescription :: Lens' ImportInstanceTaskDetails (Maybe Text)+iitdDescription = lens _iitdDescription (\s a -> s { _iitdDescription = a })++iitdInstanceId :: Lens' ImportInstanceTaskDetails (Maybe Text)+iitdInstanceId = lens _iitdInstanceId (\s a -> s { _iitdInstanceId = a })++-- | The instance operating system.+iitdPlatform :: Lens' ImportInstanceTaskDetails (Maybe Text)+iitdPlatform = lens _iitdPlatform (\s a -> s { _iitdPlatform = a })++iitdVolumes :: Lens' ImportInstanceTaskDetails [ImportInstanceVolumeDetailItem]+iitdVolumes = lens _iitdVolumes (\s a -> s { _iitdVolumes = a }) . _List++instance FromXML ImportInstanceTaskDetails where+    parseXML x = ImportInstanceTaskDetails+        <$> x .@? "description"+        <*> x .@? "instanceId"+        <*> x .@? "platform"+        <*> x .@  "volumes"++instance ToQuery ImportInstanceTaskDetails where+    toQuery ImportInstanceTaskDetails{..} = mconcat+        [ "description" =? _iitdDescription+        , "instanceId"  =? _iitdInstanceId+        , "platform"    =? _iitdPlatform+        , "volumes"     =? _iitdVolumes+        ]++data PlacementGroup = PlacementGroup+    { _pgGroupName :: Maybe Text+    , _pgState     :: Maybe Text+    , _pgStrategy  :: Maybe Text+    } deriving (Eq, Ord, Show)++-- | 'PlacementGroup' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'pgGroupName' @::@ 'Maybe' 'Text'+--+-- * 'pgState' @::@ 'Maybe' 'Text'+--+-- * 'pgStrategy' @::@ 'Maybe' 'Text'+--+placementGroup :: PlacementGroup+placementGroup = PlacementGroup+    { _pgGroupName = Nothing+    , _pgStrategy  = Nothing+    , _pgState     = Nothing+    }++-- | The name of the placement group.+pgGroupName :: Lens' PlacementGroup (Maybe Text)+pgGroupName = lens _pgGroupName (\s a -> s { _pgGroupName = a })++-- | The state of the placement group.+pgState :: Lens' PlacementGroup (Maybe Text)+pgState = lens _pgState (\s a -> s { _pgState = a })++-- | The placement strategy.+pgStrategy :: Lens' PlacementGroup (Maybe Text)+pgStrategy = lens _pgStrategy (\s a -> s { _pgStrategy = a })++instance FromXML PlacementGroup where+    parseXML x = PlacementGroup+        <$> x .@? "groupName"+        <*> x .@? "state"+        <*> x .@? "strategy"++instance ToQuery PlacementGroup where+    toQuery PlacementGroup{..} = mconcat+        [ "groupName" =? _pgGroupName+        , "state"     =? _pgState+        , "strategy"  =? _pgStrategy+        ]++data ProductCode = ProductCode+    { _pcProductCodeId   :: Maybe Text+    , _pcProductCodeType :: Maybe Text+    } deriving (Eq, Ord, Show)++-- | 'ProductCode' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'pcProductCodeId' @::@ 'Maybe' 'Text'+--+-- * 'pcProductCodeType' @::@ 'Maybe' 'Text'+--+productCode :: ProductCode+productCode = ProductCode+    { _pcProductCodeId   = Nothing+    , _pcProductCodeType = Nothing+    }++-- | The product code.+pcProductCodeId :: Lens' ProductCode (Maybe Text)+pcProductCodeId = lens _pcProductCodeId (\s a -> s { _pcProductCodeId = a })++-- | The type of product code.+pcProductCodeType :: Lens' ProductCode (Maybe Text)+pcProductCodeType =+    lens _pcProductCodeType (\s a -> s { _pcProductCodeType = a })++instance FromXML ProductCode where+    parseXML x = ProductCode+        <$> x .@? "productCode"+        <*> x .@? "type"++instance ToQuery ProductCode where+    toQuery ProductCode{..} = mconcat+        [ "productCode" =? _pcProductCodeId+        , "type"        =? _pcProductCodeType+        ]++data ListingStatus+    = ListingStatusActive    -- ^ active+    | ListingStatusCancelled -- ^ cancelled+    | ListingStatusClosed    -- ^ closed+    | ListingStatusPending   -- ^ pending+      deriving (Eq, Ord, Show, Generic, Enum)++instance Hashable ListingStatus++instance FromText ListingStatus where+    parser = match "active"    ListingStatusActive+         <|> match "cancelled" ListingStatusCancelled+         <|> match "closed"    ListingStatusClosed+         <|> match "pending"   ListingStatusPending++instance ToText ListingStatus where+    toText = \case+        ListingStatusActive    -> "active"+        ListingStatusCancelled -> "cancelled"+        ListingStatusClosed    -> "closed"+        ListingStatusPending   -> "pending"++instance FromXML ListingStatus where+    parseXML = parseXMLText "ListingStatus"++instance ToQuery ListingStatus where+    toQuery = toQuery . toText++newtype IpRange = IpRange+    { _irCidrIp :: Text+    } deriving (Eq, Ord, Show, Monoid, IsString)++-- | 'IpRange' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'irCidrIp' @::@ 'Text'+--+ipRange :: Text -- ^ 'irCidrIp'+        -> IpRange+ipRange p1 = IpRange+    { _irCidrIp = p1+    }++-- | The CIDR range. You can either specify a CIDR range or a source security+-- group, not both.+irCidrIp :: Lens' IpRange Text+irCidrIp = lens _irCidrIp (\s a -> s { _irCidrIp = a })++instance FromXML IpRange where+    parseXML x = IpRange+        <$> x .@  "cidrIp"++instance ToQuery IpRange where+    toQuery IpRange{..} = mconcat+        [ "cidrIp" =? _irCidrIp+        ]++data VolumeStatusInfoStatus+    = VSISImpaired         -- ^ impaired+    | VSISInsufficientData -- ^ insufficient-data+    | VSISOk               -- ^ ok+      deriving (Eq, Ord, Show, Generic, Enum)++instance Hashable VolumeStatusInfoStatus++instance FromText VolumeStatusInfoStatus where+    parser = match "impaired"          VSISImpaired+         <|> match "insufficient-data" VSISInsufficientData+         <|> match "ok"                VSISOk++instance ToText VolumeStatusInfoStatus where+    toText = \case+        VSISImpaired         -> "impaired"+        VSISInsufficientData -> "insufficient-data"+        VSISOk               -> "ok"++instance FromXML VolumeStatusInfoStatus where+    parseXML = parseXMLText "VolumeStatusInfoStatus"++instance ToQuery VolumeStatusInfoStatus where+    toQuery = toQuery . toText++newtype AccountAttributeValue = AccountAttributeValue+    { _aavAttributeValue :: Maybe Text+    } deriving (Eq, Ord, Show, Monoid)++-- | 'AccountAttributeValue' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'aavAttributeValue' @::@ 'Maybe' 'Text'+--+accountAttributeValue :: AccountAttributeValue+accountAttributeValue = AccountAttributeValue+    { _aavAttributeValue = Nothing+    }++-- | The value of the attribute.+aavAttributeValue :: Lens' AccountAttributeValue (Maybe Text)+aavAttributeValue =+    lens _aavAttributeValue (\s a -> s { _aavAttributeValue = a })++instance FromXML AccountAttributeValue where+    parseXML x = AccountAttributeValue+        <$> x .@? "attributeValue"++instance ToQuery AccountAttributeValue where+    toQuery AccountAttributeValue{..} = mconcat+        [ "attributeValue" =? _aavAttributeValue+        ]++data RIProductDescription+    = RIPDLinuxUNIX          -- ^ Linux/UNIX+    | RIPDLinuxUNIXAmazonVPC -- ^ Linux/UNIX (Amazon VPC)+    | RIPDWindows            -- ^ Windows+    | RIPDWindowsAmazonVPC   -- ^ Windows (Amazon VPC)+      deriving (Eq, Ord, Show, Generic, Enum)++instance Hashable RIProductDescription++instance FromText RIProductDescription where+    parser = match "Linux/UNIX"              RIPDLinuxUNIX+         <|> match "Linux/UNIX (Amazon VPC)" RIPDLinuxUNIXAmazonVPC+         <|> match "Windows"                 RIPDWindows+         <|> match "Windows (Amazon VPC)"    RIPDWindowsAmazonVPC++instance ToText RIProductDescription where+    toText = \case+        RIPDLinuxUNIX          -> "Linux/UNIX"+        RIPDLinuxUNIXAmazonVPC -> "Linux/UNIX (Amazon VPC)"+        RIPDWindows            -> "Windows"+        RIPDWindowsAmazonVPC   -> "Windows (Amazon VPC)"++instance FromXML RIProductDescription where+    parseXML = parseXMLText "RIProductDescription"++instance ToQuery RIProductDescription where+    toQuery = toQuery . toText++data ReservedInstancesOffering = ReservedInstancesOffering+    { _rioAvailabilityZone            :: Maybe Text+    , _rioCurrencyCode                :: Maybe Text+    , _rioDuration                    :: Maybe Integer+    , _rioFixedPrice                  :: Maybe Double+    , _rioInstanceTenancy             :: Maybe Text+    , _rioInstanceType                :: Maybe Text+    , _rioMarketplace                 :: Maybe Bool+    , _rioOfferingType                :: Maybe Text+    , _rioPricingDetails              :: List "item" PricingDetail+    , _rioProductDescription          :: Maybe Text+    , _rioRecurringCharges            :: List "item" RecurringCharge+    , _rioReservedInstancesOfferingId :: Maybe Text+    , _rioUsagePrice                  :: Maybe Double+    } deriving (Eq, Show)++-- | 'ReservedInstancesOffering' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'rioAvailabilityZone' @::@ 'Maybe' 'Text'+--+-- * 'rioCurrencyCode' @::@ 'Maybe' 'Text'+--+-- * 'rioDuration' @::@ 'Maybe' 'Integer'+--+-- * 'rioFixedPrice' @::@ 'Maybe' 'Double'+--+-- * 'rioInstanceTenancy' @::@ 'Maybe' 'Text'+--+-- * 'rioInstanceType' @::@ 'Maybe' 'Text'+--+-- * 'rioMarketplace' @::@ 'Maybe' 'Bool'+--+-- * 'rioOfferingType' @::@ 'Maybe' 'Text'+--+-- * 'rioPricingDetails' @::@ ['PricingDetail']+--+-- * 'rioProductDescription' @::@ 'Maybe' 'Text'+--+-- * 'rioRecurringCharges' @::@ ['RecurringCharge']+--+-- * 'rioReservedInstancesOfferingId' @::@ 'Maybe' 'Text'+--+-- * 'rioUsagePrice' @::@ 'Maybe' 'Double'+--+reservedInstancesOffering :: ReservedInstancesOffering+reservedInstancesOffering = ReservedInstancesOffering+    { _rioReservedInstancesOfferingId = Nothing+    , _rioInstanceType                = Nothing+    , _rioAvailabilityZone            = Nothing+    , _rioDuration                    = Nothing+    , _rioUsagePrice                  = Nothing+    , _rioFixedPrice                  = Nothing+    , _rioProductDescription          = Nothing+    , _rioInstanceTenancy             = Nothing+    , _rioCurrencyCode                = Nothing+    , _rioOfferingType                = Nothing+    , _rioRecurringCharges            = mempty+    , _rioMarketplace                 = Nothing+    , _rioPricingDetails              = mempty+    }++-- | The Availability Zone in which the Reserved Instance can be used.+rioAvailabilityZone :: Lens' ReservedInstancesOffering (Maybe Text)+rioAvailabilityZone =+    lens _rioAvailabilityZone (\s a -> s { _rioAvailabilityZone = a })++-- | The currency of the Reserved Instance offering you are purchasing. It's+-- specified using ISO 4217 standard currency codes. At this time, the only+-- supported currency is USD.+rioCurrencyCode :: Lens' ReservedInstancesOffering (Maybe Text)+rioCurrencyCode = lens _rioCurrencyCode (\s a -> s { _rioCurrencyCode = a })++-- | The duration of the Reserved Instance, in seconds.+rioDuration :: Lens' ReservedInstancesOffering (Maybe Integer)+rioDuration = lens _rioDuration (\s a -> s { _rioDuration = a })++-- | The purchase price of the Reserved Instance.+rioFixedPrice :: Lens' ReservedInstancesOffering (Maybe Double)+rioFixedPrice = lens _rioFixedPrice (\s a -> s { _rioFixedPrice = a })++-- | The tenancy of the reserved instance.+rioInstanceTenancy :: Lens' ReservedInstancesOffering (Maybe Text)+rioInstanceTenancy =+    lens _rioInstanceTenancy (\s a -> s { _rioInstanceTenancy = a })++-- | The instance type on which the Reserved Instance can be used.+rioInstanceType :: Lens' ReservedInstancesOffering (Maybe Text)+rioInstanceType = lens _rioInstanceType (\s a -> s { _rioInstanceType = a })++-- | Indicates whether the offering is available through the Reserved Instance+-- Marketplace (resale) or AWS. If it's a Reserved Instance Marketplace+-- offering, this is true.+rioMarketplace :: Lens' ReservedInstancesOffering (Maybe Bool)+rioMarketplace = lens _rioMarketplace (\s a -> s { _rioMarketplace = a })++-- | The Reserved Instance offering type.+rioOfferingType :: Lens' ReservedInstancesOffering (Maybe Text)+rioOfferingType = lens _rioOfferingType (\s a -> s { _rioOfferingType = a })++-- | The pricing details of the Reserved Instance offering.+rioPricingDetails :: Lens' ReservedInstancesOffering [PricingDetail]+rioPricingDetails =+    lens _rioPricingDetails (\s a -> s { _rioPricingDetails = a })+        . _List++-- | The Reserved Instance description.+rioProductDescription :: Lens' ReservedInstancesOffering (Maybe Text)+rioProductDescription =+    lens _rioProductDescription (\s a -> s { _rioProductDescription = a })++-- | The recurring charge tag assigned to the resource.+rioRecurringCharges :: Lens' ReservedInstancesOffering [RecurringCharge]+rioRecurringCharges =+    lens _rioRecurringCharges (\s a -> s { _rioRecurringCharges = a })+        . _List++-- | The ID of the Reserved Instance offering.+rioReservedInstancesOfferingId :: Lens' ReservedInstancesOffering (Maybe Text)+rioReservedInstancesOfferingId =+    lens _rioReservedInstancesOfferingId+        (\s a -> s { _rioReservedInstancesOfferingId = a })++-- | The usage price of the Reserved Instance, per hour.+rioUsagePrice :: Lens' ReservedInstancesOffering (Maybe Double)+rioUsagePrice = lens _rioUsagePrice (\s a -> s { _rioUsagePrice = a })++instance FromXML ReservedInstancesOffering where+    parseXML x = ReservedInstancesOffering+        <$> x .@? "availabilityZone"+        <*> x .@? "currencyCode"+        <*> x .@? "duration"+        <*> x .@? "fixedPrice"+        <*> x .@? "instanceTenancy"+        <*> x .@? "instanceType"+        <*> x .@? "marketplace"+        <*> x .@? "offeringType"+        <*> x .@  "pricingDetailsSet"+        <*> x .@? "productDescription"+        <*> x .@  "recurringCharges"+        <*> x .@? "reservedInstancesOfferingId"+        <*> x .@? "usagePrice"++instance ToQuery ReservedInstancesOffering where+    toQuery ReservedInstancesOffering{..} = mconcat+        [ "availabilityZone"            =? _rioAvailabilityZone+        , "currencyCode"                =? _rioCurrencyCode+        , "duration"                    =? _rioDuration+        , "fixedPrice"                  =? _rioFixedPrice+        , "instanceTenancy"             =? _rioInstanceTenancy+        , "instanceType"                =? _rioInstanceType+        , "marketplace"                 =? _rioMarketplace+        , "offeringType"                =? _rioOfferingType+        , "pricingDetailsSet"           =? _rioPricingDetails+        , "productDescription"          =? _rioProductDescription+        , "recurringCharges"            =? _rioRecurringCharges+        , "reservedInstancesOfferingId" =? _rioReservedInstancesOfferingId+        , "usagePrice"                  =? _rioUsagePrice+        ]++data ReservedInstances = ReservedInstances+    { _ri1AvailabilityZone    :: Maybe Text+    , _ri1CurrencyCode        :: Maybe Text+    , _ri1Duration            :: Maybe Integer+    , _ri1End                 :: Maybe RFC822+    , _ri1FixedPrice          :: Maybe Double+    , _ri1InstanceCount       :: Maybe Int+    , _ri1InstanceTenancy     :: Maybe Text+    , _ri1InstanceType        :: Maybe Text+    , _ri1OfferingType        :: Maybe Text+    , _ri1ProductDescription  :: Maybe Text+    , _ri1RecurringCharges    :: List "item" RecurringCharge+    , _ri1ReservedInstancesId :: Maybe Text+    , _ri1Start               :: Maybe RFC822+    , _ri1State               :: Maybe Text+    , _ri1Tags                :: List "item" Tag+    , _ri1UsagePrice          :: Maybe Double+    } deriving (Eq, Show)++-- | 'ReservedInstances' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'ri1AvailabilityZone' @::@ 'Maybe' 'Text'+--+-- * 'ri1CurrencyCode' @::@ 'Maybe' 'Text'+--+-- * 'ri1Duration' @::@ 'Maybe' 'Integer'+--+-- * 'ri1End' @::@ 'Maybe' 'UTCTime'+--+-- * 'ri1FixedPrice' @::@ 'Maybe' 'Double'+--+-- * 'ri1InstanceCount' @::@ 'Maybe' 'Int'+--+-- * 'ri1InstanceTenancy' @::@ 'Maybe' 'Text'+--+-- * 'ri1InstanceType' @::@ 'Maybe' 'Text'+--+-- * 'ri1OfferingType' @::@ 'Maybe' 'Text'+--+-- * 'ri1ProductDescription' @::@ 'Maybe' 'Text'+--+-- * 'ri1RecurringCharges' @::@ ['RecurringCharge']+--+-- * 'ri1ReservedInstancesId' @::@ 'Maybe' 'Text'+--+-- * 'ri1Start' @::@ 'Maybe' 'UTCTime'+--+-- * 'ri1State' @::@ 'Maybe' 'Text'+--+-- * 'ri1Tags' @::@ ['Tag']+--+-- * 'ri1UsagePrice' @::@ 'Maybe' 'Double'+--+reservedInstances :: ReservedInstances+reservedInstances = ReservedInstances+    { _ri1ReservedInstancesId = Nothing+    , _ri1InstanceType        = Nothing+    , _ri1AvailabilityZone    = Nothing+    , _ri1Start               = Nothing+    , _ri1End                 = Nothing+    , _ri1Duration            = Nothing+    , _ri1UsagePrice          = Nothing+    , _ri1FixedPrice          = Nothing+    , _ri1InstanceCount       = Nothing+    , _ri1ProductDescription  = Nothing+    , _ri1State               = Nothing+    , _ri1Tags                = mempty+    , _ri1InstanceTenancy     = Nothing+    , _ri1CurrencyCode        = Nothing+    , _ri1OfferingType        = Nothing+    , _ri1RecurringCharges    = mempty+    }++-- | The Availability Zone in which the Reserved Instance can be used.+ri1AvailabilityZone :: Lens' ReservedInstances (Maybe Text)+ri1AvailabilityZone =+    lens _ri1AvailabilityZone (\s a -> s { _ri1AvailabilityZone = a })++-- | The currency of the Reserved Instance. It's specified using ISO 4217+-- standard currency codes. At this time, the only supported currency is+-- USD.+ri1CurrencyCode :: Lens' ReservedInstances (Maybe Text)+ri1CurrencyCode = lens _ri1CurrencyCode (\s a -> s { _ri1CurrencyCode = a })++-- | The duration of the Reserved Instance, in seconds.+ri1Duration :: Lens' ReservedInstances (Maybe Integer)+ri1Duration = lens _ri1Duration (\s a -> s { _ri1Duration = a })++-- | The time when the Reserved Instance expires.+ri1End :: Lens' ReservedInstances (Maybe UTCTime)+ri1End = lens _ri1End (\s a -> s { _ri1End = a }) . mapping _Time++-- | The purchase price of the Reserved Instance.+ri1FixedPrice :: Lens' ReservedInstances (Maybe Double)+ri1FixedPrice = lens _ri1FixedPrice (\s a -> s { _ri1FixedPrice = a })++-- | The number of Reserved Instances purchased.+ri1InstanceCount :: Lens' ReservedInstances (Maybe Int)+ri1InstanceCount = lens _ri1InstanceCount (\s a -> s { _ri1InstanceCount = a })++-- | The tenancy of the reserved instance.+ri1InstanceTenancy :: Lens' ReservedInstances (Maybe Text)+ri1InstanceTenancy =+    lens _ri1InstanceTenancy (\s a -> s { _ri1InstanceTenancy = a })++-- | The instance type on which the Reserved Instance can be used.+ri1InstanceType :: Lens' ReservedInstances (Maybe Text)+ri1InstanceType = lens _ri1InstanceType (\s a -> s { _ri1InstanceType = a })++-- | The Reserved Instance offering type.+ri1OfferingType :: Lens' ReservedInstances (Maybe Text)+ri1OfferingType = lens _ri1OfferingType (\s a -> s { _ri1OfferingType = a })++-- | The Reserved Instance description.+ri1ProductDescription :: Lens' ReservedInstances (Maybe Text)+ri1ProductDescription =+    lens _ri1ProductDescription (\s a -> s { _ri1ProductDescription = a })++-- | The recurring charge tag assigned to the resource.+ri1RecurringCharges :: Lens' ReservedInstances [RecurringCharge]+ri1RecurringCharges =+    lens _ri1RecurringCharges (\s a -> s { _ri1RecurringCharges = a })+        . _List++-- | The ID of the Reserved Instance.+ri1ReservedInstancesId :: Lens' ReservedInstances (Maybe Text)+ri1ReservedInstancesId =+    lens _ri1ReservedInstancesId (\s a -> s { _ri1ReservedInstancesId = a })++-- | The date and time the Reserved Instance started.+ri1Start :: Lens' ReservedInstances (Maybe UTCTime)+ri1Start = lens _ri1Start (\s a -> s { _ri1Start = a }) . mapping _Time++-- | The state of the Reserved Instance purchase.+ri1State :: Lens' ReservedInstances (Maybe Text)+ri1State = lens _ri1State (\s a -> s { _ri1State = a })++-- | Any tags assigned to the resource.+ri1Tags :: Lens' ReservedInstances [Tag]+ri1Tags = lens _ri1Tags (\s a -> s { _ri1Tags = a }) . _List++-- | The usage price of the Reserved Instance, per hour.+ri1UsagePrice :: Lens' ReservedInstances (Maybe Double)+ri1UsagePrice = lens _ri1UsagePrice (\s a -> s { _ri1UsagePrice = a })++instance FromXML ReservedInstances where+    parseXML x = ReservedInstances+        <$> x .@? "availabilityZone"+        <*> x .@? "currencyCode"+        <*> x .@? "duration"+        <*> x .@? "end"+        <*> x .@? "fixedPrice"+        <*> x .@? "instanceCount"+        <*> x .@? "instanceTenancy"+        <*> x .@? "instanceType"+        <*> x .@? "offeringType"+        <*> x .@? "productDescription"+        <*> x .@  "recurringCharges"+        <*> x .@? "reservedInstancesId"+        <*> x .@? "start"+        <*> x .@? "state"+        <*> x .@  "tagSet"+        <*> x .@? "usagePrice"++instance ToQuery ReservedInstances where+    toQuery ReservedInstances{..} = mconcat+        [ "availabilityZone"    =? _ri1AvailabilityZone+        , "currencyCode"        =? _ri1CurrencyCode+        , "duration"            =? _ri1Duration+        , "end"                 =? _ri1End+        , "fixedPrice"          =? _ri1FixedPrice+        , "instanceCount"       =? _ri1InstanceCount+        , "instanceTenancy"     =? _ri1InstanceTenancy+        , "instanceType"        =? _ri1InstanceType+        , "offeringType"        =? _ri1OfferingType+        , "productDescription"  =? _ri1ProductDescription+        , "recurringCharges"    =? _ri1RecurringCharges+        , "reservedInstancesId" =? _ri1ReservedInstancesId+        , "start"               =? _ri1Start+        , "state"               =? _ri1State+        , "tagSet"              =? _ri1Tags+        , "usagePrice"          =? _ri1UsagePrice+        ]++data DatafeedSubscriptionState+    = DSSActive   -- ^ Active+    | DSSInactive -- ^ Inactive+      deriving (Eq, Ord, Show, Generic, Enum)++instance Hashable DatafeedSubscriptionState++instance FromText DatafeedSubscriptionState where+    parser = match "Active"   DSSActive+         <|> match "Inactive" DSSInactive++instance ToText DatafeedSubscriptionState where+    toText = \case+        DSSActive   -> "Active"+        DSSInactive -> "Inactive"++instance FromXML DatafeedSubscriptionState where+    parseXML = parseXMLText "DatafeedSubscriptionState"++instance ToQuery DatafeedSubscriptionState where+    toQuery = toQuery . toText++data ExportTaskState+    = ETSActive     -- ^ active+    | ETSCancelled  -- ^ cancelled+    | ETSCancelling -- ^ cancelling+    | ETSCompleted  -- ^ completed+      deriving (Eq, Ord, Show, Generic, Enum)++instance Hashable ExportTaskState++instance FromText ExportTaskState where+    parser = match "active"     ETSActive+         <|> match "cancelled"  ETSCancelled+         <|> match "cancelling" ETSCancelling+         <|> match "completed"  ETSCompleted++instance ToText ExportTaskState where+    toText = \case+        ETSActive     -> "active"+        ETSCancelled  -> "cancelled"+        ETSCancelling -> "cancelling"+        ETSCompleted  -> "completed"++instance FromXML ExportTaskState where+    parseXML = parseXMLText "ExportTaskState"++instance ToQuery ExportTaskState where+    toQuery = toQuery . toText++data ProductCodeValues+    = Devpay      -- ^ devpay+    | Marketplace -- ^ marketplace+      deriving (Eq, Ord, Show, Generic, Enum)++instance Hashable ProductCodeValues++instance FromText ProductCodeValues where+    parser = match "devpay"      Devpay+         <|> match "marketplace" Marketplace++instance ToText ProductCodeValues where+    toText = \case+        Devpay      -> "devpay"+        Marketplace -> "marketplace"++instance FromXML ProductCodeValues where+    parseXML = parseXMLText "ProductCodeValues"++instance ToQuery ProductCodeValues where+    toQuery = toQuery . toText++data VpnConnection = VpnConnection+    { _vcCustomerGatewayConfiguration :: Maybe Text+    , _vcCustomerGatewayId            :: Maybe Text+    , _vcOptions                      :: Maybe VpnConnectionOptions+    , _vcRoutes                       :: List "item" VpnStaticRoute+    , _vcState                        :: Maybe Text+    , _vcTags                         :: List "item" Tag+    , _vcType                         :: Maybe Text+    , _vcVgwTelemetry                 :: List "item" VgwTelemetry+    , _vcVpnConnectionId              :: Maybe Text+    , _vcVpnGatewayId                 :: Maybe Text+    } deriving (Eq, Show)++-- | 'VpnConnection' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'vcCustomerGatewayConfiguration' @::@ 'Maybe' 'Text'+--+-- * 'vcCustomerGatewayId' @::@ 'Maybe' 'Text'+--+-- * 'vcOptions' @::@ 'Maybe' 'VpnConnectionOptions'+--+-- * 'vcRoutes' @::@ ['VpnStaticRoute']+--+-- * 'vcState' @::@ 'Maybe' 'Text'+--+-- * 'vcTags' @::@ ['Tag']+--+-- * 'vcType' @::@ 'Maybe' 'Text'+--+-- * 'vcVgwTelemetry' @::@ ['VgwTelemetry']+--+-- * 'vcVpnConnectionId' @::@ 'Maybe' 'Text'+--+-- * 'vcVpnGatewayId' @::@ 'Maybe' 'Text'+--+vpnConnection :: VpnConnection+vpnConnection = VpnConnection+    { _vcVpnConnectionId              = Nothing+    , _vcState                        = Nothing+    , _vcCustomerGatewayConfiguration = Nothing+    , _vcType                         = Nothing+    , _vcCustomerGatewayId            = Nothing+    , _vcVpnGatewayId                 = Nothing+    , _vcTags                         = mempty+    , _vcVgwTelemetry                 = mempty+    , _vcOptions                      = Nothing+    , _vcRoutes                       = mempty+    }++-- | The configuration information for the VPN connection's customer gateway+-- (in the native XML format). This element is always present in the+-- CreateVpnConnection response; however, it's present in the+-- DescribeVpnConnections response only if the VPN connection is in the+-- pending or available state.+vcCustomerGatewayConfiguration :: Lens' VpnConnection (Maybe Text)+vcCustomerGatewayConfiguration =+    lens _vcCustomerGatewayConfiguration+        (\s a -> s { _vcCustomerGatewayConfiguration = a })++-- | The ID of the customer gateway at your end of the VPN connection.+vcCustomerGatewayId :: Lens' VpnConnection (Maybe Text)+vcCustomerGatewayId =+    lens _vcCustomerGatewayId (\s a -> s { _vcCustomerGatewayId = a })++-- | The VPN connection options.+vcOptions :: Lens' VpnConnection (Maybe VpnConnectionOptions)+vcOptions = lens _vcOptions (\s a -> s { _vcOptions = a })++-- | The static routes associated with the VPN connection.+vcRoutes :: Lens' VpnConnection [VpnStaticRoute]+vcRoutes = lens _vcRoutes (\s a -> s { _vcRoutes = a }) . _List++-- | The current state of the VPN connection.+vcState :: Lens' VpnConnection (Maybe Text)+vcState = lens _vcState (\s a -> s { _vcState = a })++-- | Any tags assigned to the VPN connection.+vcTags :: Lens' VpnConnection [Tag]+vcTags = lens _vcTags (\s a -> s { _vcTags = a }) . _List++-- | The type of VPN connection.+vcType :: Lens' VpnConnection (Maybe Text)+vcType = lens _vcType (\s a -> s { _vcType = a })++-- | Information about the VPN tunnel.+vcVgwTelemetry :: Lens' VpnConnection [VgwTelemetry]+vcVgwTelemetry = lens _vcVgwTelemetry (\s a -> s { _vcVgwTelemetry = a }) . _List++-- | The ID of the VPN connection.+vcVpnConnectionId :: Lens' VpnConnection (Maybe Text)+vcVpnConnectionId =+    lens _vcVpnConnectionId (\s a -> s { _vcVpnConnectionId = a })++-- | The ID of the virtual private gateway at the AWS side of the VPN+-- connection.+vcVpnGatewayId :: Lens' VpnConnection (Maybe Text)+vcVpnGatewayId = lens _vcVpnGatewayId (\s a -> s { _vcVpnGatewayId = a })++instance FromXML VpnConnection where+    parseXML x = VpnConnection+        <$> x .@? "customerGatewayConfiguration"+        <*> x .@? "customerGatewayId"+        <*> x .@? "options"+        <*> x .@  "routes"+        <*> x .@? "state"+        <*> x .@  "tagSet"+        <*> x .@? "type"+        <*> x .@  "vgwTelemetry"+        <*> x .@? "vpnConnectionId"+        <*> x .@? "vpnGatewayId"++instance ToQuery VpnConnection where+    toQuery VpnConnection{..} = mconcat+        [ "customerGatewayConfiguration" =? _vcCustomerGatewayConfiguration+        , "customerGatewayId"            =? _vcCustomerGatewayId+        , "options"                      =? _vcOptions+        , "routes"                       =? _vcRoutes+        , "state"                        =? _vcState+        , "tagSet"                       =? _vcTags+        , "type"                         =? _vcType+        , "vgwTelemetry"                 =? _vcVgwTelemetry+        , "vpnConnectionId"              =? _vcVpnConnectionId+        , "vpnGatewayId"                 =? _vcVpnGatewayId+        ]++data InstanceState = InstanceState+    { _isCode :: Int+    , _isName :: Text+    } deriving (Eq, Ord, Show)++-- | 'InstanceState' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'isCode' @::@ 'Int'+--+-- * 'isName' @::@ 'Text'+--+instanceState :: Int -- ^ 'isCode'+              -> Text -- ^ 'isName'+              -> InstanceState+instanceState p1 p2 = InstanceState+    { _isCode = p1+    , _isName = p2+    }++-- | The low byte represents the state. The high byte is an opaque internal+-- value and should be ignored. 0 : pending 16 : running 32 : shutting-down+-- 48 : terminated 64 : stopping 80 : stopped.+isCode :: Lens' InstanceState Int+isCode = lens _isCode (\s a -> s { _isCode = a })++-- | The current state of the instance.+isName :: Lens' InstanceState Text+isName = lens _isName (\s a -> s { _isName = a })++instance FromXML InstanceState where+    parseXML x = InstanceState+        <$> x .@  "code"+        <*> x .@  "name"++instance ToQuery InstanceState where+    toQuery InstanceState{..} = mconcat+        [ "code" =? _isCode+        , "name" =? _isName+        ]++data Placement = Placement+    { _pAvailabilityZone :: Maybe Text+    , _pGroupName        :: Maybe Text+    , _pTenancy          :: Maybe Text+    } deriving (Eq, Ord, Show)++-- | 'Placement' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'pAvailabilityZone' @::@ 'Maybe' 'Text'+--+-- * 'pGroupName' @::@ 'Maybe' 'Text'+--+-- * 'pTenancy' @::@ 'Maybe' 'Text'+--+placement :: Placement+placement = Placement+    { _pAvailabilityZone = Nothing+    , _pGroupName        = Nothing+    , _pTenancy          = Nothing+    }++-- | The Availability Zone of the instance.+pAvailabilityZone :: Lens' Placement (Maybe Text)+pAvailabilityZone =+    lens _pAvailabilityZone (\s a -> s { _pAvailabilityZone = a })++-- | The name of the placement group the instance is in (for cluster compute+-- instances).+pGroupName :: Lens' Placement (Maybe Text)+pGroupName = lens _pGroupName (\s a -> s { _pGroupName = a })++-- | The tenancy of the instance (if the instance is running in a VPC). An+-- instance with a tenancy of dedicated runs on single-tenant hardware.+pTenancy :: Lens' Placement (Maybe Text)+pTenancy = lens _pTenancy (\s a -> s { _pTenancy = a })++instance FromXML Placement where+    parseXML x = Placement+        <$> x .@? "availabilityZone"+        <*> x .@? "groupName"+        <*> x .@? "tenancy"++instance ToQuery Placement where+    toQuery Placement{..} = mconcat+        [ "availabilityZone" =? _pAvailabilityZone+        , "groupName"        =? _pGroupName+        , "tenancy"          =? _pTenancy+        ]++data EventCode+    = InstanceReboot     -- ^ instance-reboot+    | InstanceRetirement -- ^ instance-retirement+    | InstanceStop       -- ^ instance-stop+    | SystemMaintenance  -- ^ system-maintenance+    | SystemReboot       -- ^ system-reboot+      deriving (Eq, Ord, Show, Generic, Enum)++instance Hashable EventCode++instance FromText EventCode where+    parser = match "instance-reboot"     InstanceReboot+         <|> match "instance-retirement" InstanceRetirement+         <|> match "instance-stop"       InstanceStop+         <|> match "system-maintenance"  SystemMaintenance+         <|> match "system-reboot"       SystemReboot++instance ToText EventCode where+    toText = \case+        InstanceReboot     -> "instance-reboot"+        InstanceRetirement -> "instance-retirement"+        InstanceStop       -> "instance-stop"+        SystemMaintenance  -> "system-maintenance"+        SystemReboot       -> "system-reboot"++instance FromXML EventCode where+    parseXML = parseXMLText "EventCode"++instance ToQuery EventCode where+    toQuery = toQuery . toText++data SpotInstanceType+    = OneTime    -- ^ one-time+    | Persistent -- ^ persistent+      deriving (Eq, Ord, Show, Generic, Enum)++instance Hashable SpotInstanceType++instance FromText SpotInstanceType where+    parser = match "one-time"   OneTime+         <|> match "persistent" Persistent++instance ToText SpotInstanceType where+    toText = \case+        OneTime    -> "one-time"+        Persistent -> "persistent"++instance FromXML SpotInstanceType where+    parseXML = parseXMLText "SpotInstanceType"++instance ToQuery SpotInstanceType where+    toQuery = toQuery . toText++data VpcPeeringConnection = VpcPeeringConnection+    { _vpc1AccepterVpcInfo        :: Maybe VpcPeeringConnectionVpcInfo+    , _vpc1ExpirationTime         :: Maybe RFC822+    , _vpc1RequesterVpcInfo       :: Maybe VpcPeeringConnectionVpcInfo+    , _vpc1Status                 :: Maybe VpcPeeringConnectionStateReason+    , _vpc1Tags                   :: List "item" Tag+    , _vpc1VpcPeeringConnectionId :: Maybe Text+    } deriving (Eq, Show)++-- | 'VpcPeeringConnection' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'vpc1AccepterVpcInfo' @::@ 'Maybe' 'VpcPeeringConnectionVpcInfo'+--+-- * 'vpc1ExpirationTime' @::@ 'Maybe' 'UTCTime'+--+-- * 'vpc1RequesterVpcInfo' @::@ 'Maybe' 'VpcPeeringConnectionVpcInfo'+--+-- * 'vpc1Status' @::@ 'Maybe' 'VpcPeeringConnectionStateReason'+--+-- * 'vpc1Tags' @::@ ['Tag']+--+-- * 'vpc1VpcPeeringConnectionId' @::@ 'Maybe' 'Text'+--+vpcPeeringConnection :: VpcPeeringConnection+vpcPeeringConnection = VpcPeeringConnection+    { _vpc1AccepterVpcInfo        = Nothing+    , _vpc1ExpirationTime         = Nothing+    , _vpc1RequesterVpcInfo       = Nothing+    , _vpc1Status                 = Nothing+    , _vpc1Tags                   = mempty+    , _vpc1VpcPeeringConnectionId = Nothing+    }++-- | The information of the peer VPC.+vpc1AccepterVpcInfo :: Lens' VpcPeeringConnection (Maybe VpcPeeringConnectionVpcInfo)+vpc1AccepterVpcInfo =+    lens _vpc1AccepterVpcInfo (\s a -> s { _vpc1AccepterVpcInfo = a })++-- | The time that an unaccepted VPC peering connection will expire.+vpc1ExpirationTime :: Lens' VpcPeeringConnection (Maybe UTCTime)+vpc1ExpirationTime =+    lens _vpc1ExpirationTime (\s a -> s { _vpc1ExpirationTime = a })+        . mapping _Time++-- | The information of the requester VPC.+vpc1RequesterVpcInfo :: Lens' VpcPeeringConnection (Maybe VpcPeeringConnectionVpcInfo)+vpc1RequesterVpcInfo =+    lens _vpc1RequesterVpcInfo (\s a -> s { _vpc1RequesterVpcInfo = a })++-- | The status of the VPC peering connection.+vpc1Status :: Lens' VpcPeeringConnection (Maybe VpcPeeringConnectionStateReason)+vpc1Status = lens _vpc1Status (\s a -> s { _vpc1Status = a })++-- | Any tags assigned to the resource.+vpc1Tags :: Lens' VpcPeeringConnection [Tag]+vpc1Tags = lens _vpc1Tags (\s a -> s { _vpc1Tags = a }) . _List++-- | The ID of the VPC peering connection.+vpc1VpcPeeringConnectionId :: Lens' VpcPeeringConnection (Maybe Text)+vpc1VpcPeeringConnectionId =+    lens _vpc1VpcPeeringConnectionId+        (\s a -> s { _vpc1VpcPeeringConnectionId = a })++instance FromXML VpcPeeringConnection where+    parseXML x = VpcPeeringConnection+        <$> x .@? "accepterVpcInfo"+        <*> x .@? "expirationTime"+        <*> x .@? "requesterVpcInfo"+        <*> x .@? "status"+        <*> x .@  "tagSet"+        <*> x .@? "vpcPeeringConnectionId"++instance ToQuery VpcPeeringConnection where+    toQuery VpcPeeringConnection{..} = mconcat+        [ "accepterVpcInfo"        =? _vpc1AccepterVpcInfo+        , "expirationTime"         =? _vpc1ExpirationTime+        , "requesterVpcInfo"       =? _vpc1RequesterVpcInfo+        , "status"                 =? _vpc1Status+        , "tagSet"                 =? _vpc1Tags+        , "vpcPeeringConnectionId" =? _vpc1VpcPeeringConnectionId+        ]++data S3Storage = S3Storage+    { _ssAWSAccessKeyId        :: Maybe Text+    , _ssBucket                :: Maybe Text+    , _ssPrefix                :: Maybe Text+    , _ssUploadPolicy          :: Maybe Base64+    , _ssUploadPolicySignature :: Maybe Text+    } deriving (Eq, Show)++-- | 'S3Storage' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'ssAWSAccessKeyId' @::@ 'Maybe' 'Text'+--+-- * 'ssBucket' @::@ 'Maybe' 'Text'+--+-- * 'ssPrefix' @::@ 'Maybe' 'Text'+--+-- * 'ssUploadPolicy' @::@ 'Maybe' 'Base64'+--+-- * 'ssUploadPolicySignature' @::@ 'Maybe' 'Text'+--+s3Storage :: S3Storage+s3Storage = S3Storage+    { _ssBucket                = Nothing+    , _ssPrefix                = Nothing+    , _ssAWSAccessKeyId        = Nothing+    , _ssUploadPolicy          = Nothing+    , _ssUploadPolicySignature = Nothing+    }++-- | The access key ID of the owner of the bucket. Before you specify a value+-- for your access key ID, review and follow the guidance in Best Practices+-- for Managing AWS Access Keys.+ssAWSAccessKeyId :: Lens' S3Storage (Maybe Text)+ssAWSAccessKeyId = lens _ssAWSAccessKeyId (\s a -> s { _ssAWSAccessKeyId = a })++-- | The bucket in which to store the AMI. You can specify a bucket that you+-- already own or a new bucket that Amazon EC2 creates on your behalf. If+-- you specify a bucket that belongs to someone else, Amazon EC2 returns an+-- error.+ssBucket :: Lens' S3Storage (Maybe Text)+ssBucket = lens _ssBucket (\s a -> s { _ssBucket = a })++-- | The beginning of the file name of the AMI.+ssPrefix :: Lens' S3Storage (Maybe Text)+ssPrefix = lens _ssPrefix (\s a -> s { _ssPrefix = a })++-- | A Base64-encoded Amazon S3 upload policy that gives Amazon EC2 permission+-- to upload items into Amazon S3 on your behalf.+ssUploadPolicy :: Lens' S3Storage (Maybe Base64)+ssUploadPolicy = lens _ssUploadPolicy (\s a -> s { _ssUploadPolicy = a })++-- | The signature of the Base64 encoded JSON document.+ssUploadPolicySignature :: Lens' S3Storage (Maybe Text)+ssUploadPolicySignature =+    lens _ssUploadPolicySignature (\s a -> s { _ssUploadPolicySignature = a })++instance FromXML S3Storage where+    parseXML x = S3Storage+        <$> x .@? "AWSAccessKeyId"+        <*> x .@? "bucket"+        <*> x .@? "prefix"+        <*> x .@? "uploadPolicy"+        <*> x .@? "uploadPolicySignature"++instance ToQuery S3Storage where+    toQuery S3Storage{..} = mconcat+        [ "AWSAccessKeyId"        =? _ssAWSAccessKeyId+        , "bucket"                =? _ssBucket+        , "prefix"                =? _ssPrefix+        , "uploadPolicy"          =? _ssUploadPolicy+        , "uploadPolicySignature" =? _ssUploadPolicySignature+        ]++data VgwTelemetry = VgwTelemetry+    { _vtAcceptedRouteCount :: Maybe Int+    , _vtLastStatusChange   :: Maybe RFC822+    , _vtOutsideIpAddress   :: Maybe Text+    , _vtStatus             :: Maybe Text+    , _vtStatusMessage      :: Maybe Text+    } deriving (Eq, Ord, Show)++-- | 'VgwTelemetry' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'vtAcceptedRouteCount' @::@ 'Maybe' 'Int'+--+-- * 'vtLastStatusChange' @::@ 'Maybe' 'UTCTime'+--+-- * 'vtOutsideIpAddress' @::@ 'Maybe' 'Text'+--+-- * 'vtStatus' @::@ 'Maybe' 'Text'+--+-- * 'vtStatusMessage' @::@ 'Maybe' 'Text'+--+vgwTelemetry :: VgwTelemetry+vgwTelemetry = VgwTelemetry+    { _vtOutsideIpAddress   = Nothing+    , _vtStatus             = Nothing+    , _vtLastStatusChange   = Nothing+    , _vtStatusMessage      = Nothing+    , _vtAcceptedRouteCount = Nothing+    }++-- | The number of accepted routes.+vtAcceptedRouteCount :: Lens' VgwTelemetry (Maybe Int)+vtAcceptedRouteCount =+    lens _vtAcceptedRouteCount (\s a -> s { _vtAcceptedRouteCount = a })++-- | The date and time of the last change in status.+vtLastStatusChange :: Lens' VgwTelemetry (Maybe UTCTime)+vtLastStatusChange =+    lens _vtLastStatusChange (\s a -> s { _vtLastStatusChange = a })+        . mapping _Time++-- | The Internet-routable IP address of the virtual private gateway's outside+-- interface.+vtOutsideIpAddress :: Lens' VgwTelemetry (Maybe Text)+vtOutsideIpAddress =+    lens _vtOutsideIpAddress (\s a -> s { _vtOutsideIpAddress = a })++-- | The status of the VPN tunnel.+vtStatus :: Lens' VgwTelemetry (Maybe Text)+vtStatus = lens _vtStatus (\s a -> s { _vtStatus = a })++-- | If an error occurs, a description of the error.+vtStatusMessage :: Lens' VgwTelemetry (Maybe Text)+vtStatusMessage = lens _vtStatusMessage (\s a -> s { _vtStatusMessage = a })++instance FromXML VgwTelemetry where+    parseXML x = VgwTelemetry+        <$> x .@? "acceptedRouteCount"+        <*> x .@? "lastStatusChange"+        <*> x .@? "outsideIpAddress"+        <*> x .@? "status"+        <*> x .@? "statusMessage"++instance ToQuery VgwTelemetry where+    toQuery VgwTelemetry{..} = mconcat+        [ "acceptedRouteCount" =? _vtAcceptedRouteCount+        , "lastStatusChange"   =? _vtLastStatusChange+        , "outsideIpAddress"   =? _vtOutsideIpAddress+        , "status"             =? _vtStatus+        , "statusMessage"      =? _vtStatusMessage+        ]++data VpnStaticRoute = VpnStaticRoute+    { _vsrDestinationCidrBlock :: Maybe Text+    , _vsrSource               :: Maybe Text+    , _vsrState                :: Maybe Text+    } deriving (Eq, Ord, Show)++-- | 'VpnStaticRoute' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'vsrDestinationCidrBlock' @::@ 'Maybe' 'Text'+--+-- * 'vsrSource' @::@ 'Maybe' 'Text'+--+-- * 'vsrState' @::@ 'Maybe' 'Text'+--+vpnStaticRoute :: VpnStaticRoute+vpnStaticRoute = VpnStaticRoute+    { _vsrDestinationCidrBlock = Nothing+    , _vsrSource               = Nothing+    , _vsrState                = Nothing+    }++-- | The CIDR block associated with the local subnet of the customer data+-- center.+vsrDestinationCidrBlock :: Lens' VpnStaticRoute (Maybe Text)+vsrDestinationCidrBlock =+    lens _vsrDestinationCidrBlock (\s a -> s { _vsrDestinationCidrBlock = a })++-- | Indicates how the routes were provided.+vsrSource :: Lens' VpnStaticRoute (Maybe Text)+vsrSource = lens _vsrSource (\s a -> s { _vsrSource = a })++-- | The current state of the static route.+vsrState :: Lens' VpnStaticRoute (Maybe Text)+vsrState = lens _vsrState (\s a -> s { _vsrState = a })++instance FromXML VpnStaticRoute where+    parseXML x = VpnStaticRoute+        <$> x .@? "destinationCidrBlock"+        <*> x .@? "source"+        <*> x .@? "state"++instance ToQuery VpnStaticRoute where+    toQuery VpnStaticRoute{..} = mconcat+        [ "destinationCidrBlock" =? _vsrDestinationCidrBlock+        , "source"               =? _vsrSource+        , "state"                =? _vsrState+        ]++data InstanceStateName+    = ISNPending      -- ^ pending+    | ISNRunning      -- ^ running+    | ISNShuttingDown -- ^ shutting-down+    | ISNStopped      -- ^ stopped+    | ISNStopping     -- ^ stopping+    | ISNTerminated   -- ^ terminated+      deriving (Eq, Ord, Show, Generic, Enum)++instance Hashable InstanceStateName++instance FromText InstanceStateName where+    parser = match "pending"       ISNPending+         <|> match "running"       ISNRunning+         <|> match "shutting-down" ISNShuttingDown+         <|> match "stopped"       ISNStopped+         <|> match "stopping"      ISNStopping+         <|> match "terminated"    ISNTerminated++instance ToText InstanceStateName where+    toText = \case+        ISNPending      -> "pending"+        ISNRunning      -> "running"+        ISNShuttingDown -> "shutting-down"+        ISNStopped      -> "stopped"+        ISNStopping     -> "stopping"+        ISNTerminated   -> "terminated"++instance FromXML InstanceStateName where+    parseXML = parseXMLText "InstanceStateName"++instance ToQuery InstanceStateName where+    toQuery = toQuery . toText++data Instance = Instance+    { _i1AmiLaunchIndex        :: Maybe Int+    , _i1Architecture          :: Maybe Text+    , _i1BlockDeviceMappings   :: List "item" InstanceBlockDeviceMapping+    , _i1ClientToken           :: Maybe Text+    , _i1EbsOptimized          :: Maybe Bool+    , _i1Hypervisor            :: Maybe Text+    , _i1IamInstanceProfile    :: Maybe IamInstanceProfile+    , _i1ImageId               :: Maybe Text+    , _i1InstanceId            :: Maybe Text+    , _i1InstanceLifecycle     :: Maybe Text+    , _i1InstanceType          :: Maybe Text+    , _i1KernelId              :: Maybe Text+    , _i1KeyName               :: Maybe Text+    , _i1LaunchTime            :: Maybe RFC822+    , _i1Monitoring            :: Maybe Monitoring+    , _i1NetworkInterfaces     :: List "item" InstanceNetworkInterface+    , _i1Placement             :: Maybe Placement+    , _i1Platform              :: Maybe Text+    , _i1PrivateDnsName        :: Maybe Text+    , _i1PrivateIpAddress      :: Maybe Text+    , _i1ProductCodes          :: List "item" ProductCode+    , _i1PublicDnsName         :: Maybe Text+    , _i1PublicIpAddress       :: Maybe Text+    , _i1RamdiskId             :: Maybe Text+    , _i1RootDeviceName        :: Maybe Text+    , _i1RootDeviceType        :: Maybe Text+    , _i1SecurityGroups        :: List "item" GroupIdentifier+    , _i1SourceDestCheck       :: Maybe Bool+    , _i1SpotInstanceRequestId :: Maybe Text+    , _i1SriovNetSupport       :: Maybe Text+    , _i1State                 :: Maybe InstanceState+    , _i1StateReason           :: Maybe StateReason+    , _i1StateTransitionReason :: Maybe Text+    , _i1SubnetId              :: Maybe Text+    , _i1Tags                  :: List "item" Tag+    , _i1VirtualizationType    :: Maybe Text+    , _i1VpcId                 :: Maybe Text+    } deriving (Eq, Show)++-- | 'Instance' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'i1AmiLaunchIndex' @::@ 'Maybe' 'Int'+--+-- * 'i1Architecture' @::@ 'Maybe' 'Text'+--+-- * 'i1BlockDeviceMappings' @::@ ['InstanceBlockDeviceMapping']+--+-- * 'i1ClientToken' @::@ 'Maybe' 'Text'+--+-- * 'i1EbsOptimized' @::@ 'Maybe' 'Bool'+--+-- * 'i1Hypervisor' @::@ 'Maybe' 'Text'+--+-- * 'i1IamInstanceProfile' @::@ 'Maybe' 'IamInstanceProfile'+--+-- * 'i1ImageId' @::@ 'Maybe' 'Text'+--+-- * 'i1InstanceId' @::@ 'Maybe' 'Text'+--+-- * 'i1InstanceLifecycle' @::@ 'Maybe' 'Text'+--+-- * 'i1InstanceType' @::@ 'Maybe' 'Text'+--+-- * 'i1KernelId' @::@ 'Maybe' 'Text'+--+-- * 'i1KeyName' @::@ 'Maybe' 'Text'+--+-- * 'i1LaunchTime' @::@ 'Maybe' 'UTCTime'+--+-- * 'i1Monitoring' @::@ 'Maybe' 'Monitoring'+--+-- * 'i1NetworkInterfaces' @::@ ['InstanceNetworkInterface']+--+-- * 'i1Placement' @::@ 'Maybe' 'Placement'+--+-- * 'i1Platform' @::@ 'Maybe' 'Text'+--+-- * 'i1PrivateDnsName' @::@ 'Maybe' 'Text'+--+-- * 'i1PrivateIpAddress' @::@ 'Maybe' 'Text'+--+-- * 'i1ProductCodes' @::@ ['ProductCode']+--+-- * 'i1PublicDnsName' @::@ 'Maybe' 'Text'+--+-- * 'i1PublicIpAddress' @::@ 'Maybe' 'Text'+--+-- * 'i1RamdiskId' @::@ 'Maybe' 'Text'+--+-- * 'i1RootDeviceName' @::@ 'Maybe' 'Text'+--+-- * 'i1RootDeviceType' @::@ 'Maybe' 'Text'+--+-- * 'i1SecurityGroups' @::@ ['GroupIdentifier']+--+-- * 'i1SourceDestCheck' @::@ 'Maybe' 'Bool'+--+-- * 'i1SpotInstanceRequestId' @::@ 'Maybe' 'Text'+--+-- * 'i1SriovNetSupport' @::@ 'Maybe' 'Text'+--+-- * 'i1State' @::@ 'Maybe' 'InstanceState'+--+-- * 'i1StateReason' @::@ 'Maybe' 'StateReason'+--+-- * 'i1StateTransitionReason' @::@ 'Maybe' 'Text'+--+-- * 'i1SubnetId' @::@ 'Maybe' 'Text'+--+-- * 'i1Tags' @::@ ['Tag']+--+-- * 'i1VirtualizationType' @::@ 'Maybe' 'Text'+--+-- * 'i1VpcId' @::@ 'Maybe' 'Text'+--+instance' :: Instance+instance' = Instance+    { _i1InstanceId            = Nothing+    , _i1ImageId               = Nothing+    , _i1State                 = Nothing+    , _i1PrivateDnsName        = Nothing+    , _i1PublicDnsName         = Nothing+    , _i1StateTransitionReason = Nothing+    , _i1KeyName               = Nothing+    , _i1AmiLaunchIndex        = Nothing+    , _i1ProductCodes          = mempty+    , _i1InstanceType          = Nothing+    , _i1LaunchTime            = Nothing+    , _i1Placement             = Nothing+    , _i1KernelId              = Nothing+    , _i1RamdiskId             = Nothing+    , _i1Platform              = Nothing+    , _i1Monitoring            = Nothing+    , _i1SubnetId              = Nothing+    , _i1VpcId                 = Nothing+    , _i1PrivateIpAddress      = Nothing+    , _i1PublicIpAddress       = Nothing+    , _i1StateReason           = Nothing+    , _i1Architecture          = Nothing+    , _i1RootDeviceType        = Nothing+    , _i1RootDeviceName        = Nothing+    , _i1BlockDeviceMappings   = mempty+    , _i1VirtualizationType    = Nothing+    , _i1InstanceLifecycle     = Nothing+    , _i1SpotInstanceRequestId = Nothing+    , _i1ClientToken           = Nothing+    , _i1Tags                  = mempty+    , _i1SecurityGroups        = mempty+    , _i1SourceDestCheck       = Nothing+    , _i1Hypervisor            = Nothing+    , _i1NetworkInterfaces     = mempty+    , _i1IamInstanceProfile    = Nothing+    , _i1EbsOptimized          = Nothing+    , _i1SriovNetSupport       = Nothing+    }++-- | The AMI launch index, which can be used to find this instance in the+-- launch group.+i1AmiLaunchIndex :: Lens' Instance (Maybe Int)+i1AmiLaunchIndex = lens _i1AmiLaunchIndex (\s a -> s { _i1AmiLaunchIndex = a })++-- | The architecture of the image.+i1Architecture :: Lens' Instance (Maybe Text)+i1Architecture = lens _i1Architecture (\s a -> s { _i1Architecture = a })++-- | Any block device mapping entries for the instance.+i1BlockDeviceMappings :: Lens' Instance [InstanceBlockDeviceMapping]+i1BlockDeviceMappings =+    lens _i1BlockDeviceMappings (\s a -> s { _i1BlockDeviceMappings = a })+        . _List++-- | The idempotency token you provided when you launched the instance.+i1ClientToken :: Lens' Instance (Maybe Text)+i1ClientToken = lens _i1ClientToken (\s a -> s { _i1ClientToken = a })++-- | Indicates whether the instance is optimized for EBS I/O. This+-- optimization provides dedicated throughput to Amazon EBS and an optimized+-- configuration stack to provide optimal I/O performance. This optimization+-- isn't available with all instance types. Additional usage charges apply+-- when using an EBS Optimized instance.+i1EbsOptimized :: Lens' Instance (Maybe Bool)+i1EbsOptimized = lens _i1EbsOptimized (\s a -> s { _i1EbsOptimized = a })++-- | The hypervisor type of the instance.+i1Hypervisor :: Lens' Instance (Maybe Text)+i1Hypervisor = lens _i1Hypervisor (\s a -> s { _i1Hypervisor = a })++-- | The IAM instance profile associated with the instance.+i1IamInstanceProfile :: Lens' Instance (Maybe IamInstanceProfile)+i1IamInstanceProfile =+    lens _i1IamInstanceProfile (\s a -> s { _i1IamInstanceProfile = a })++-- | The ID of the AMI used to launch the instance.+i1ImageId :: Lens' Instance (Maybe Text)+i1ImageId = lens _i1ImageId (\s a -> s { _i1ImageId = a })++-- | The ID of the instance.+i1InstanceId :: Lens' Instance (Maybe Text)+i1InstanceId = lens _i1InstanceId (\s a -> s { _i1InstanceId = a })++-- | Indicates whether this is a Spot Instance.+i1InstanceLifecycle :: Lens' Instance (Maybe Text)+i1InstanceLifecycle =+    lens _i1InstanceLifecycle (\s a -> s { _i1InstanceLifecycle = a })++-- | The instance type.+i1InstanceType :: Lens' Instance (Maybe Text)+i1InstanceType = lens _i1InstanceType (\s a -> s { _i1InstanceType = a })++-- | The kernel associated with this instance.+i1KernelId :: Lens' Instance (Maybe Text)+i1KernelId = lens _i1KernelId (\s a -> s { _i1KernelId = a })++-- | The name of the key pair, if this instance was launched with an+-- associated key pair.+i1KeyName :: Lens' Instance (Maybe Text)+i1KeyName = lens _i1KeyName (\s a -> s { _i1KeyName = a })++-- | The time the instance was launched.+i1LaunchTime :: Lens' Instance (Maybe UTCTime)+i1LaunchTime = lens _i1LaunchTime (\s a -> s { _i1LaunchTime = a }) . mapping _Time++-- | The monitoring information for the instance.+i1Monitoring :: Lens' Instance (Maybe Monitoring)+i1Monitoring = lens _i1Monitoring (\s a -> s { _i1Monitoring = a })++-- | [EC2-VPC] One or more network interfaces for the instance.+i1NetworkInterfaces :: Lens' Instance [InstanceNetworkInterface]+i1NetworkInterfaces =+    lens _i1NetworkInterfaces (\s a -> s { _i1NetworkInterfaces = a })+        . _List++-- | The location where the instance launched.+i1Placement :: Lens' Instance (Maybe Placement)+i1Placement = lens _i1Placement (\s a -> s { _i1Placement = a })++-- | The value is Windows for Windows instances; otherwise blank.+i1Platform :: Lens' Instance (Maybe Text)+i1Platform = lens _i1Platform (\s a -> s { _i1Platform = a })++-- | The private DNS name assigned to the instance. This DNS name can only be+-- used inside the Amazon EC2 network. This name is not available until the+-- instance enters the running state.+i1PrivateDnsName :: Lens' Instance (Maybe Text)+i1PrivateDnsName = lens _i1PrivateDnsName (\s a -> s { _i1PrivateDnsName = a })++-- | The private IP address assigned to the instance.+i1PrivateIpAddress :: Lens' Instance (Maybe Text)+i1PrivateIpAddress =+    lens _i1PrivateIpAddress (\s a -> s { _i1PrivateIpAddress = a })++-- | The product codes attached to this instance.+i1ProductCodes :: Lens' Instance [ProductCode]+i1ProductCodes = lens _i1ProductCodes (\s a -> s { _i1ProductCodes = a }) . _List++-- | The public DNS name assigned to the instance. This name is not available+-- until the instance enters the running state.+i1PublicDnsName :: Lens' Instance (Maybe Text)+i1PublicDnsName = lens _i1PublicDnsName (\s a -> s { _i1PublicDnsName = a })++-- | The public IP address assigned to the instance.+i1PublicIpAddress :: Lens' Instance (Maybe Text)+i1PublicIpAddress =+    lens _i1PublicIpAddress (\s a -> s { _i1PublicIpAddress = a })++-- | The RAM disk associated with this instance.+i1RamdiskId :: Lens' Instance (Maybe Text)+i1RamdiskId = lens _i1RamdiskId (\s a -> s { _i1RamdiskId = a })++-- | The root device name (for example, /dev/sda1).+i1RootDeviceName :: Lens' Instance (Maybe Text)+i1RootDeviceName = lens _i1RootDeviceName (\s a -> s { _i1RootDeviceName = a })++-- | The root device type used by the AMI. The AMI can use an Amazon EBS+-- volume or an instance store volume.+i1RootDeviceType :: Lens' Instance (Maybe Text)+i1RootDeviceType = lens _i1RootDeviceType (\s a -> s { _i1RootDeviceType = a })++-- | One or more security groups for the instance.+i1SecurityGroups :: Lens' Instance [GroupIdentifier]+i1SecurityGroups = lens _i1SecurityGroups (\s a -> s { _i1SecurityGroups = a }) . _List++-- | Specifies whether to enable an instance launched in a VPC to perform NAT.+-- This controls whether source/destination checking is enabled on the+-- instance. A value of true means checking is enabled, and false means+-- checking is disabled. The value must be false for the instance to perform+-- NAT. For more information, see NAT Instances in the Amazon Virtual+-- Private Cloud User Guide.+i1SourceDestCheck :: Lens' Instance (Maybe Bool)+i1SourceDestCheck =+    lens _i1SourceDestCheck (\s a -> s { _i1SourceDestCheck = a })++-- | The ID of the Spot Instance request.+i1SpotInstanceRequestId :: Lens' Instance (Maybe Text)+i1SpotInstanceRequestId =+    lens _i1SpotInstanceRequestId (\s a -> s { _i1SpotInstanceRequestId = a })++-- | Specifies whether enhanced networking is enabled.+i1SriovNetSupport :: Lens' Instance (Maybe Text)+i1SriovNetSupport =+    lens _i1SriovNetSupport (\s a -> s { _i1SriovNetSupport = a })++-- | The current state of the instance.+i1State :: Lens' Instance (Maybe InstanceState)+i1State = lens _i1State (\s a -> s { _i1State = a })++-- | The reason for the most recent state transition.+i1StateReason :: Lens' Instance (Maybe StateReason)+i1StateReason = lens _i1StateReason (\s a -> s { _i1StateReason = a })++-- | The reason for the most recent state transition. This might be an empty+-- string.+i1StateTransitionReason :: Lens' Instance (Maybe Text)+i1StateTransitionReason =+    lens _i1StateTransitionReason (\s a -> s { _i1StateTransitionReason = a })++-- | The ID of the subnet in which the instance is running.+i1SubnetId :: Lens' Instance (Maybe Text)+i1SubnetId = lens _i1SubnetId (\s a -> s { _i1SubnetId = a })++-- | Any tags assigned to the instance.+i1Tags :: Lens' Instance [Tag]+i1Tags = lens _i1Tags (\s a -> s { _i1Tags = a }) . _List++-- | The virtualization type of the instance.+i1VirtualizationType :: Lens' Instance (Maybe Text)+i1VirtualizationType =+    lens _i1VirtualizationType (\s a -> s { _i1VirtualizationType = a })++-- | The ID of the VPC in which the instance is running.+i1VpcId :: Lens' Instance (Maybe Text)+i1VpcId = lens _i1VpcId (\s a -> s { _i1VpcId = a })++instance FromXML Instance where+    parseXML x = Instance+        <$> x .@? "amiLaunchIndex"+        <*> x .@? "architecture"+        <*> x .@  "blockDeviceMapping"+        <*> x .@? "clientToken"+        <*> x .@? "ebsOptimized"+        <*> x .@? "hypervisor"+        <*> x .@? "iamInstanceProfile"+        <*> x .@? "imageId"+        <*> x .@? "instanceId"+        <*> x .@? "instanceLifecycle"+        <*> x .@? "instanceType"+        <*> x .@? "kernelId"+        <*> x .@? "keyName"+        <*> x .@? "launchTime"+        <*> x .@? "monitoring"+        <*> x .@  "networkInterfaceSet"+        <*> x .@? "placement"+        <*> x .@? "platform"+        <*> x .@? "privateDnsName"+        <*> x .@? "privateIpAddress"+        <*> x .@  "productCodes"+        <*> x .@? "dnsName"+        <*> x .@? "ipAddress"+        <*> x .@? "ramdiskId"+        <*> x .@? "rootDeviceName"+        <*> x .@? "rootDeviceType"+        <*> x .@  "groupSet"+        <*> x .@? "sourceDestCheck"+        <*> x .@? "spotInstanceRequestId"+        <*> x .@? "sriovNetSupport"+        <*> x .@? "instanceState"+        <*> x .@? "stateReason"+        <*> x .@? "reason"+        <*> x .@? "subnetId"+        <*> x .@  "tagSet"+        <*> x .@? "virtualizationType"+        <*> x .@? "vpcId"++instance ToQuery Instance where+    toQuery Instance{..} = mconcat+        [ "amiLaunchIndex"        =? _i1AmiLaunchIndex+        , "architecture"          =? _i1Architecture+        , "blockDeviceMapping"    =? _i1BlockDeviceMappings+        , "clientToken"           =? _i1ClientToken+        , "ebsOptimized"          =? _i1EbsOptimized+        , "hypervisor"            =? _i1Hypervisor+        , "iamInstanceProfile"    =? _i1IamInstanceProfile+        , "imageId"               =? _i1ImageId+        , "instanceId"            =? _i1InstanceId+        , "instanceLifecycle"     =? _i1InstanceLifecycle+        , "instanceType"          =? _i1InstanceType+        , "kernelId"              =? _i1KernelId+        , "keyName"               =? _i1KeyName+        , "launchTime"            =? _i1LaunchTime+        , "monitoring"            =? _i1Monitoring+        , "networkInterfaceSet"   =? _i1NetworkInterfaces+        , "placement"             =? _i1Placement+        , "platform"              =? _i1Platform+        , "privateDnsName"        =? _i1PrivateDnsName+        , "privateIpAddress"      =? _i1PrivateIpAddress+        , "productCodes"          =? _i1ProductCodes+        , "dnsName"               =? _i1PublicDnsName+        , "ipAddress"             =? _i1PublicIpAddress+        , "ramdiskId"             =? _i1RamdiskId+        , "rootDeviceName"        =? _i1RootDeviceName+        , "rootDeviceType"        =? _i1RootDeviceType+        , "groupSet"              =? _i1SecurityGroups+        , "sourceDestCheck"       =? _i1SourceDestCheck+        , "spotInstanceRequestId" =? _i1SpotInstanceRequestId+        , "sriovNetSupport"       =? _i1SriovNetSupport+        , "instanceState"         =? _i1State+        , "stateReason"           =? _i1StateReason+        , "reason"                =? _i1StateTransitionReason+        , "subnetId"              =? _i1SubnetId+        , "tagSet"                =? _i1Tags+        , "virtualizationType"    =? _i1VirtualizationType+        , "vpcId"                 =? _i1VpcId+        ]++data ExportTask = ExportTask+    { _etDescription           :: Maybe Text+    , _etExportTaskId          :: Maybe Text+    , _etExportToS3Task        :: Maybe ExportToS3Task+    , _etInstanceExportDetails :: Maybe InstanceExportDetails+    , _etState                 :: Maybe Text+    , _etStatusMessage         :: Maybe Text+    } deriving (Eq, Show)++-- | 'ExportTask' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'etDescription' @::@ 'Maybe' 'Text'+--+-- * 'etExportTaskId' @::@ 'Maybe' 'Text'+--+-- * 'etExportToS3Task' @::@ 'Maybe' 'ExportToS3Task'+--+-- * 'etInstanceExportDetails' @::@ 'Maybe' 'InstanceExportDetails'+--+-- * 'etState' @::@ 'Maybe' 'Text'+--+-- * 'etStatusMessage' @::@ 'Maybe' 'Text'+--+exportTask :: ExportTask+exportTask = ExportTask+    { _etExportTaskId          = Nothing+    , _etDescription           = Nothing+    , _etState                 = Nothing+    , _etStatusMessage         = Nothing+    , _etInstanceExportDetails = Nothing+    , _etExportToS3Task        = Nothing+    }++-- | A description of the resource being exported.+etDescription :: Lens' ExportTask (Maybe Text)+etDescription = lens _etDescription (\s a -> s { _etDescription = a })++-- | The ID of the export task.+etExportTaskId :: Lens' ExportTask (Maybe Text)+etExportTaskId = lens _etExportTaskId (\s a -> s { _etExportTaskId = a })++etExportToS3Task :: Lens' ExportTask (Maybe ExportToS3Task)+etExportToS3Task = lens _etExportToS3Task (\s a -> s { _etExportToS3Task = a })++-- | The instance being exported.+etInstanceExportDetails :: Lens' ExportTask (Maybe InstanceExportDetails)+etInstanceExportDetails =+    lens _etInstanceExportDetails (\s a -> s { _etInstanceExportDetails = a })++-- | The state of the conversion task.+etState :: Lens' ExportTask (Maybe Text)+etState = lens _etState (\s a -> s { _etState = a })++-- | The status message related to the export task.+etStatusMessage :: Lens' ExportTask (Maybe Text)+etStatusMessage = lens _etStatusMessage (\s a -> s { _etStatusMessage = a })++instance FromXML ExportTask where+    parseXML x = ExportTask+        <$> x .@? "description"+        <*> x .@? "exportTaskId"+        <*> x .@? "exportToS3"+        <*> x .@? "instanceExport"+        <*> x .@? "state"+        <*> x .@? "statusMessage"++instance ToQuery ExportTask where+    toQuery ExportTask{..} = mconcat+        [ "description"    =? _etDescription+        , "exportTaskId"   =? _etExportTaskId+        , "exportToS3"     =? _etExportToS3Task+        , "instanceExport" =? _etInstanceExportDetails+        , "state"          =? _etState+        , "statusMessage"  =? _etStatusMessage+        ]++data ResetImageAttributeName+    = RIANLaunchPermission -- ^ launchPermission+      deriving (Eq, Ord, Show, Generic, Enum)++instance Hashable ResetImageAttributeName++instance FromText ResetImageAttributeName where+    parser = match "launchPermission" RIANLaunchPermission++instance ToText ResetImageAttributeName where+    toText RIANLaunchPermission = "launchPermission"++instance FromXML ResetImageAttributeName where+    parseXML = parseXMLText "ResetImageAttributeName"++instance ToQuery ResetImageAttributeName where+    toQuery = toQuery . toText++data RequestSpotLaunchSpecification = RequestSpotLaunchSpecification+    { _rslsAddressingType      :: Maybe Text+    , _rslsBlockDeviceMappings :: List "item" BlockDeviceMapping+    , _rslsEbsOptimized        :: Maybe Bool+    , _rslsIamInstanceProfile  :: Maybe IamInstanceProfileSpecification+    , _rslsImageId             :: Maybe Text+    , _rslsInstanceType        :: Maybe Text+    , _rslsKernelId            :: Maybe Text+    , _rslsKeyName             :: Maybe Text+    , _rslsMonitoring          :: Maybe RunInstancesMonitoringEnabled+    , _rslsNetworkInterfaces   :: List "item" InstanceNetworkInterfaceSpecification+    , _rslsPlacement           :: Maybe SpotPlacement+    , _rslsRamdiskId           :: Maybe Text+    , _rslsSecurityGroupIds    :: List "item" Text+    , _rslsSecurityGroups      :: List "item" Text+    , _rslsSubnetId            :: Maybe Text+    , _rslsUserData            :: Maybe Text+    } deriving (Eq, Show)++-- | 'RequestSpotLaunchSpecification' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'rslsAddressingType' @::@ 'Maybe' 'Text'+--+-- * 'rslsBlockDeviceMappings' @::@ ['BlockDeviceMapping']+--+-- * 'rslsEbsOptimized' @::@ 'Maybe' 'Bool'+--+-- * 'rslsIamInstanceProfile' @::@ 'Maybe' 'IamInstanceProfileSpecification'+--+-- * 'rslsImageId' @::@ 'Maybe' 'Text'+--+-- * 'rslsInstanceType' @::@ 'Maybe' 'Text'+--+-- * 'rslsKernelId' @::@ 'Maybe' 'Text'+--+-- * 'rslsKeyName' @::@ 'Maybe' 'Text'+--+-- * 'rslsMonitoring' @::@ 'Maybe' 'RunInstancesMonitoringEnabled'+--+-- * 'rslsNetworkInterfaces' @::@ ['InstanceNetworkInterfaceSpecification']+--+-- * 'rslsPlacement' @::@ 'Maybe' 'SpotPlacement'+--+-- * 'rslsRamdiskId' @::@ 'Maybe' 'Text'+--+-- * 'rslsSecurityGroupIds' @::@ ['Text']+--+-- * 'rslsSecurityGroups' @::@ ['Text']+--+-- * 'rslsSubnetId' @::@ 'Maybe' 'Text'+--+-- * 'rslsUserData' @::@ 'Maybe' 'Text'+--+requestSpotLaunchSpecification :: RequestSpotLaunchSpecification+requestSpotLaunchSpecification = RequestSpotLaunchSpecification+    { _rslsImageId             = Nothing+    , _rslsKeyName             = Nothing+    , _rslsSecurityGroups      = mempty+    , _rslsUserData            = Nothing+    , _rslsAddressingType      = Nothing+    , _rslsInstanceType        = Nothing+    , _rslsPlacement           = Nothing+    , _rslsKernelId            = Nothing+    , _rslsRamdiskId           = Nothing+    , _rslsBlockDeviceMappings = mempty+    , _rslsSubnetId            = Nothing+    , _rslsNetworkInterfaces   = mempty+    , _rslsIamInstanceProfile  = Nothing+    , _rslsEbsOptimized        = Nothing+    , _rslsMonitoring          = Nothing+    , _rslsSecurityGroupIds    = mempty+    }++-- | Deprecated.+rslsAddressingType :: Lens' RequestSpotLaunchSpecification (Maybe Text)+rslsAddressingType =+    lens _rslsAddressingType (\s a -> s { _rslsAddressingType = a })++-- | One or more block device mapping entries.+rslsBlockDeviceMappings :: Lens' RequestSpotLaunchSpecification [BlockDeviceMapping]+rslsBlockDeviceMappings =+    lens _rslsBlockDeviceMappings (\s a -> s { _rslsBlockDeviceMappings = a })+        . _List++-- | Indicates whether the instance is optimized for EBS I/O. This+-- optimization provides dedicated throughput to Amazon EBS and an optimized+-- configuration stack to provide optimal EBS I/O performance. This+-- optimization isn't available with all instance types. Additional usage+-- charges apply when using an EBS Optimized instance. Default: false.+rslsEbsOptimized :: Lens' RequestSpotLaunchSpecification (Maybe Bool)+rslsEbsOptimized = lens _rslsEbsOptimized (\s a -> s { _rslsEbsOptimized = a })++-- | The IAM instance profile.+rslsIamInstanceProfile :: Lens' RequestSpotLaunchSpecification (Maybe IamInstanceProfileSpecification)+rslsIamInstanceProfile =+    lens _rslsIamInstanceProfile (\s a -> s { _rslsIamInstanceProfile = a })++-- | The ID of the AMI.+rslsImageId :: Lens' RequestSpotLaunchSpecification (Maybe Text)+rslsImageId = lens _rslsImageId (\s a -> s { _rslsImageId = a })++-- | The instance type. Default: m1.small.+rslsInstanceType :: Lens' RequestSpotLaunchSpecification (Maybe Text)+rslsInstanceType = lens _rslsInstanceType (\s a -> s { _rslsInstanceType = a })++-- | The ID of the kernel.+rslsKernelId :: Lens' RequestSpotLaunchSpecification (Maybe Text)+rslsKernelId = lens _rslsKernelId (\s a -> s { _rslsKernelId = a })++-- | The name of the key pair.+rslsKeyName :: Lens' RequestSpotLaunchSpecification (Maybe Text)+rslsKeyName = lens _rslsKeyName (\s a -> s { _rslsKeyName = a })++rslsMonitoring :: Lens' RequestSpotLaunchSpecification (Maybe RunInstancesMonitoringEnabled)+rslsMonitoring = lens _rslsMonitoring (\s a -> s { _rslsMonitoring = a })++-- | One or more network interfaces.+rslsNetworkInterfaces :: Lens' RequestSpotLaunchSpecification [InstanceNetworkInterfaceSpecification]+rslsNetworkInterfaces =+    lens _rslsNetworkInterfaces (\s a -> s { _rslsNetworkInterfaces = a })+        . _List++-- | The placement information for the instance.+rslsPlacement :: Lens' RequestSpotLaunchSpecification (Maybe SpotPlacement)+rslsPlacement = lens _rslsPlacement (\s a -> s { _rslsPlacement = a })++-- | The ID of the RAM disk.+rslsRamdiskId :: Lens' RequestSpotLaunchSpecification (Maybe Text)+rslsRamdiskId = lens _rslsRamdiskId (\s a -> s { _rslsRamdiskId = a })++rslsSecurityGroupIds :: Lens' RequestSpotLaunchSpecification [Text]+rslsSecurityGroupIds =+    lens _rslsSecurityGroupIds (\s a -> s { _rslsSecurityGroupIds = a })+        . _List++rslsSecurityGroups :: Lens' RequestSpotLaunchSpecification [Text]+rslsSecurityGroups =+    lens _rslsSecurityGroups (\s a -> s { _rslsSecurityGroups = a })+        . _List++-- | The ID of the subnet in which to launch the Spot Instance.+rslsSubnetId :: Lens' RequestSpotLaunchSpecification (Maybe Text)+rslsSubnetId = lens _rslsSubnetId (\s a -> s { _rslsSubnetId = a })++-- | The Base64-encoded MIME user data to make available to the instances.+rslsUserData :: Lens' RequestSpotLaunchSpecification (Maybe Text)+rslsUserData = lens _rslsUserData (\s a -> s { _rslsUserData = a })++instance FromXML RequestSpotLaunchSpecification where+    parseXML x = RequestSpotLaunchSpecification+        <$> x .@? "addressingType"+        <*> x .@  "blockDeviceMapping"+        <*> x .@? "ebsOptimized"+        <*> x .@? "iamInstanceProfile"+        <*> x .@? "imageId"+        <*> x .@? "instanceType"+        <*> x .@? "kernelId"+        <*> x .@? "keyName"+        <*> x .@? "monitoring"+        <*> x .@  "NetworkInterface"+        <*> x .@? "placement"+        <*> x .@? "ramdiskId"+        <*> x .@  "SecurityGroupId"+        <*> x .@  "SecurityGroup"+        <*> x .@? "subnetId"+        <*> x .@? "userData"++instance ToQuery RequestSpotLaunchSpecification where+    toQuery RequestSpotLaunchSpecification{..} = mconcat+        [ "addressingType"     =? _rslsAddressingType+        , "blockDeviceMapping" =? _rslsBlockDeviceMappings+        , "ebsOptimized"       =? _rslsEbsOptimized+        , "iamInstanceProfile" =? _rslsIamInstanceProfile+        , "imageId"            =? _rslsImageId+        , "instanceType"       =? _rslsInstanceType+        , "kernelId"           =? _rslsKernelId+        , "keyName"            =? _rslsKeyName+        , "monitoring"         =? _rslsMonitoring+        , "NetworkInterface"   =? _rslsNetworkInterfaces+        , "placement"          =? _rslsPlacement+        , "ramdiskId"          =? _rslsRamdiskId+        , "SecurityGroupId"    =? _rslsSecurityGroupIds+        , "SecurityGroup"      =? _rslsSecurityGroups+        , "subnetId"           =? _rslsSubnetId+        , "userData"           =? _rslsUserData+        ]++newtype VolumeDetail = VolumeDetail+    { _vdSize :: Integer+    } deriving (Eq, Ord, Show, Enum, Num, Integral, Real)++-- | 'VolumeDetail' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'vdSize' @::@ 'Integer'+--+volumeDetail :: Integer -- ^ 'vdSize'+             -> VolumeDetail+volumeDetail p1 = VolumeDetail+    { _vdSize = p1+    }++-- | The size of the volume, in GiB.+vdSize :: Lens' VolumeDetail Integer+vdSize = lens _vdSize (\s a -> s { _vdSize = a })++instance FromXML VolumeDetail where+    parseXML x = VolumeDetail+        <$> x .@  "size"++instance ToQuery VolumeDetail where+    toQuery VolumeDetail{..} = mconcat+        [ "size" =? _vdSize+        ]++data PricingDetail = PricingDetail+    { _pdCount :: Maybe Int+    , _pdPrice :: Maybe Double+    } deriving (Eq, Ord, Show)++-- | 'PricingDetail' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'pdCount' @::@ 'Maybe' 'Int'+--+-- * 'pdPrice' @::@ 'Maybe' 'Double'+--+pricingDetail :: PricingDetail+pricingDetail = PricingDetail+    { _pdPrice = Nothing+    , _pdCount = Nothing+    }++-- | The number of instances available for the price.+pdCount :: Lens' PricingDetail (Maybe Int)+pdCount = lens _pdCount (\s a -> s { _pdCount = a })++-- | The price per instance.+pdPrice :: Lens' PricingDetail (Maybe Double)+pdPrice = lens _pdPrice (\s a -> s { _pdPrice = a })++instance FromXML PricingDetail where+    parseXML x = PricingDetail+        <$> x .@? "count"+        <*> x .@? "price"++instance ToQuery PricingDetail where+    toQuery PricingDetail{..} = mconcat+        [ "count" =? _pdCount+        , "price" =? _pdPrice+        ]++data NetworkInterfacePrivateIpAddress = NetworkInterfacePrivateIpAddress+    { _nipiaAssociation      :: Maybe NetworkInterfaceAssociation+    , _nipiaPrimary          :: Maybe Bool+    , _nipiaPrivateDnsName   :: Maybe Text+    , _nipiaPrivateIpAddress :: Maybe Text+    } deriving (Eq, Show)++-- | 'NetworkInterfacePrivateIpAddress' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'nipiaAssociation' @::@ 'Maybe' 'NetworkInterfaceAssociation'+--+-- * 'nipiaPrimary' @::@ 'Maybe' 'Bool'+--+-- * 'nipiaPrivateDnsName' @::@ 'Maybe' 'Text'+--+-- * 'nipiaPrivateIpAddress' @::@ 'Maybe' 'Text'+--+networkInterfacePrivateIpAddress :: NetworkInterfacePrivateIpAddress+networkInterfacePrivateIpAddress = NetworkInterfacePrivateIpAddress+    { _nipiaPrivateIpAddress = Nothing+    , _nipiaPrivateDnsName   = Nothing+    , _nipiaPrimary          = Nothing+    , _nipiaAssociation      = Nothing+    }++-- | The association information for an Elastic IP address associated with the+-- network interface.+nipiaAssociation :: Lens' NetworkInterfacePrivateIpAddress (Maybe NetworkInterfaceAssociation)+nipiaAssociation = lens _nipiaAssociation (\s a -> s { _nipiaAssociation = a })++-- | Indicates whether this IP address is the primary private IP address of+-- the network interface.+nipiaPrimary :: Lens' NetworkInterfacePrivateIpAddress (Maybe Bool)+nipiaPrimary = lens _nipiaPrimary (\s a -> s { _nipiaPrimary = a })++-- | The private DNS name.+nipiaPrivateDnsName :: Lens' NetworkInterfacePrivateIpAddress (Maybe Text)+nipiaPrivateDnsName =+    lens _nipiaPrivateDnsName (\s a -> s { _nipiaPrivateDnsName = a })++-- | The private IP address.+nipiaPrivateIpAddress :: Lens' NetworkInterfacePrivateIpAddress (Maybe Text)+nipiaPrivateIpAddress =+    lens _nipiaPrivateIpAddress (\s a -> s { _nipiaPrivateIpAddress = a })++instance FromXML NetworkInterfacePrivateIpAddress where+    parseXML x = NetworkInterfacePrivateIpAddress+        <$> x .@? "association"+        <*> x .@? "primary"+        <*> x .@? "privateDnsName"+        <*> x .@? "privateIpAddress"++instance ToQuery NetworkInterfacePrivateIpAddress where+    toQuery NetworkInterfacePrivateIpAddress{..} = mconcat+        [ "association"      =? _nipiaAssociation+        , "primary"          =? _nipiaPrimary+        , "privateDnsName"   =? _nipiaPrivateDnsName+        , "privateIpAddress" =? _nipiaPrivateIpAddress+        ]++data DiskImageFormat+    = Raw  -- ^ RAW+    | Vhd  -- ^ VHD+    | Vmdk -- ^ VMDK+      deriving (Eq, Ord, Show, Generic, Enum)++instance Hashable DiskImageFormat++instance FromText DiskImageFormat where+    parser = match "RAW"  Raw+         <|> match "VHD"  Vhd+         <|> match "VMDK" Vmdk++instance ToText DiskImageFormat where+    toText = \case+        Raw  -> "RAW"+        Vhd  -> "VHD"+        Vmdk -> "VMDK"++instance FromXML DiskImageFormat where+    parseXML = parseXMLText "DiskImageFormat"++instance ToQuery DiskImageFormat where+    toQuery = toQuery . toText++data BundleTaskError = BundleTaskError+    { _bteCode    :: Maybe Text+    , _bteMessage :: Maybe Text+    } deriving (Eq, Ord, Show)++-- | 'BundleTaskError' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'bteCode' @::@ 'Maybe' 'Text'+--+-- * 'bteMessage' @::@ 'Maybe' 'Text'+--+bundleTaskError :: BundleTaskError+bundleTaskError = BundleTaskError+    { _bteCode    = Nothing+    , _bteMessage = Nothing+    }++-- | The error code.+bteCode :: Lens' BundleTaskError (Maybe Text)+bteCode = lens _bteCode (\s a -> s { _bteCode = a })++-- | The error message.+bteMessage :: Lens' BundleTaskError (Maybe Text)+bteMessage = lens _bteMessage (\s a -> s { _bteMessage = a })++instance FromXML BundleTaskError where+    parseXML x = BundleTaskError+        <$> x .@? "code"+        <*> x .@? "message"++instance ToQuery BundleTaskError where+    toQuery BundleTaskError{..} = mconcat+        [ "code"    =? _bteCode+        , "message" =? _bteMessage+        ]++data VolumeStatusItem = VolumeStatusItem+    { _vsiActions          :: List "item" VolumeStatusAction+    , _vsiAvailabilityZone :: Maybe Text+    , _vsiEvents           :: List "item" VolumeStatusEvent+    , _vsiVolumeId         :: Maybe Text+    , _vsiVolumeStatus     :: Maybe VolumeStatusInfo+    } deriving (Eq, Show)++-- | 'VolumeStatusItem' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'vsiActions' @::@ ['VolumeStatusAction']+--+-- * 'vsiAvailabilityZone' @::@ 'Maybe' 'Text'+--+-- * 'vsiEvents' @::@ ['VolumeStatusEvent']+--+-- * 'vsiVolumeId' @::@ 'Maybe' 'Text'+--+-- * 'vsiVolumeStatus' @::@ 'Maybe' 'VolumeStatusInfo'+--+volumeStatusItem :: VolumeStatusItem+volumeStatusItem = VolumeStatusItem+    { _vsiVolumeId         = Nothing+    , _vsiAvailabilityZone = Nothing+    , _vsiVolumeStatus     = Nothing+    , _vsiEvents           = mempty+    , _vsiActions          = mempty+    }++-- | The details of the operation.+vsiActions :: Lens' VolumeStatusItem [VolumeStatusAction]+vsiActions = lens _vsiActions (\s a -> s { _vsiActions = a }) . _List++-- | The Availability Zone of the volume.+vsiAvailabilityZone :: Lens' VolumeStatusItem (Maybe Text)+vsiAvailabilityZone =+    lens _vsiAvailabilityZone (\s a -> s { _vsiAvailabilityZone = a })++-- | A list of events associated with the volume.+vsiEvents :: Lens' VolumeStatusItem [VolumeStatusEvent]+vsiEvents = lens _vsiEvents (\s a -> s { _vsiEvents = a }) . _List++-- | The volume ID.+vsiVolumeId :: Lens' VolumeStatusItem (Maybe Text)+vsiVolumeId = lens _vsiVolumeId (\s a -> s { _vsiVolumeId = a })++-- | The volume status.+vsiVolumeStatus :: Lens' VolumeStatusItem (Maybe VolumeStatusInfo)+vsiVolumeStatus = lens _vsiVolumeStatus (\s a -> s { _vsiVolumeStatus = a })++instance FromXML VolumeStatusItem where+    parseXML x = VolumeStatusItem+        <$> x .@  "actionsSet"+        <*> x .@? "availabilityZone"+        <*> x .@  "eventsSet"+        <*> x .@? "volumeId"+        <*> x .@? "volumeStatus"++instance ToQuery VolumeStatusItem where+    toQuery VolumeStatusItem{..} = mconcat+        [ "actionsSet"       =? _vsiActions+        , "availabilityZone" =? _vsiAvailabilityZone+        , "eventsSet"        =? _vsiEvents+        , "volumeId"         =? _vsiVolumeId+        , "volumeStatus"     =? _vsiVolumeStatus+        ]
+ gen/Network/AWS/EC2/UnassignPrivateIpAddresses.hs view
@@ -0,0 +1,104 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.UnassignPrivateIpAddresses+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Unassigns one or more secondary private IP addresses from a network+-- interface.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-UnassignPrivateIpAddresses.html>+module Network.AWS.EC2.UnassignPrivateIpAddresses+    (+    -- * Request+      UnassignPrivateIpAddresses+    -- ** Request constructor+    , unassignPrivateIpAddresses+    -- ** Request lenses+    , upiaNetworkInterfaceId+    , upiaPrivateIpAddresses++    -- * Response+    , UnassignPrivateIpAddressesResponse+    -- ** Response constructor+    , unassignPrivateIpAddressesResponse+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data UnassignPrivateIpAddresses = UnassignPrivateIpAddresses+    { _upiaNetworkInterfaceId :: Text+    , _upiaPrivateIpAddresses :: List "PrivateIpAddress" Text+    } deriving (Eq, Ord, Show)++-- | 'UnassignPrivateIpAddresses' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'upiaNetworkInterfaceId' @::@ 'Text'+--+-- * 'upiaPrivateIpAddresses' @::@ ['Text']+--+unassignPrivateIpAddresses :: Text -- ^ 'upiaNetworkInterfaceId'+                           -> UnassignPrivateIpAddresses+unassignPrivateIpAddresses p1 = UnassignPrivateIpAddresses+    { _upiaNetworkInterfaceId = p1+    , _upiaPrivateIpAddresses = mempty+    }++-- | The ID of the network interface.+upiaNetworkInterfaceId :: Lens' UnassignPrivateIpAddresses Text+upiaNetworkInterfaceId =+    lens _upiaNetworkInterfaceId (\s a -> s { _upiaNetworkInterfaceId = a })++-- | The secondary private IP addresses to unassign from the network+-- interface. You can specify this option multiple times to unassign more+-- than one IP address.+upiaPrivateIpAddresses :: Lens' UnassignPrivateIpAddresses [Text]+upiaPrivateIpAddresses =+    lens _upiaPrivateIpAddresses (\s a -> s { _upiaPrivateIpAddresses = a })+        . _List++data UnassignPrivateIpAddressesResponse = UnassignPrivateIpAddressesResponse+    deriving (Eq, Ord, Show, Generic)++-- | 'UnassignPrivateIpAddressesResponse' constructor.+unassignPrivateIpAddressesResponse :: UnassignPrivateIpAddressesResponse+unassignPrivateIpAddressesResponse = UnassignPrivateIpAddressesResponse++instance ToPath UnassignPrivateIpAddresses where+    toPath = const "/"++instance ToQuery UnassignPrivateIpAddresses where+    toQuery UnassignPrivateIpAddresses{..} = mconcat+        [ "networkInterfaceId" =? _upiaNetworkInterfaceId+        , "privateIpAddress"   =? _upiaPrivateIpAddresses+        ]++instance ToHeaders UnassignPrivateIpAddresses++instance AWSRequest UnassignPrivateIpAddresses where+    type Sv UnassignPrivateIpAddresses = EC2+    type Rs UnassignPrivateIpAddresses = UnassignPrivateIpAddressesResponse++    request  = post "UnassignPrivateIpAddresses"+    response = nullResponse UnassignPrivateIpAddressesResponse
+ gen/Network/AWS/EC2/UnmonitorInstances.hs view
@@ -0,0 +1,124 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.UnmonitorInstances+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++-- | Disables monitoring for a running instance. For more information about+-- monitoring instances, see Monitoring Your Instances and Volumes in the+-- Amazon Elastic Compute Cloud User Guide.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-UnmonitorInstances.html>+module Network.AWS.EC2.UnmonitorInstances+    (+    -- * Request+      UnmonitorInstances+    -- ** Request constructor+    , unmonitorInstances+    -- ** Request lenses+    , uiDryRun+    , uiInstanceIds++    -- * Response+    , UnmonitorInstancesResponse+    -- ** Response constructor+    , unmonitorInstancesResponse+    -- ** Response lenses+    , uirInstanceMonitorings+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data UnmonitorInstances = UnmonitorInstances+    { _uiDryRun      :: Maybe Bool+    , _uiInstanceIds :: List "InstanceId" Text+    } deriving (Eq, Ord, Show)++-- | 'UnmonitorInstances' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'uiDryRun' @::@ 'Maybe' 'Bool'+--+-- * 'uiInstanceIds' @::@ ['Text']+--+unmonitorInstances :: UnmonitorInstances+unmonitorInstances = UnmonitorInstances+    { _uiDryRun      = Nothing+    , _uiInstanceIds = mempty+    }++uiDryRun :: Lens' UnmonitorInstances (Maybe Bool)+uiDryRun = lens _uiDryRun (\s a -> s { _uiDryRun = a })++-- | One or more instance IDs.+uiInstanceIds :: Lens' UnmonitorInstances [Text]+uiInstanceIds = lens _uiInstanceIds (\s a -> s { _uiInstanceIds = a }) . _List++newtype UnmonitorInstancesResponse = UnmonitorInstancesResponse+    { _uirInstanceMonitorings :: List "item" InstanceMonitoring+    } deriving (Eq, Show, Monoid, Semigroup)++instance GHC.Exts.IsList UnmonitorInstancesResponse where+    type Item UnmonitorInstancesResponse = InstanceMonitoring++    fromList = UnmonitorInstancesResponse . GHC.Exts.fromList+    toList   = GHC.Exts.toList . _uirInstanceMonitorings++-- | 'UnmonitorInstancesResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'uirInstanceMonitorings' @::@ ['InstanceMonitoring']+--+unmonitorInstancesResponse :: UnmonitorInstancesResponse+unmonitorInstancesResponse = UnmonitorInstancesResponse+    { _uirInstanceMonitorings = mempty+    }++-- | Monitoring information for one or more instances.+uirInstanceMonitorings :: Lens' UnmonitorInstancesResponse [InstanceMonitoring]+uirInstanceMonitorings =+    lens _uirInstanceMonitorings (\s a -> s { _uirInstanceMonitorings = a })+        . _List++instance ToPath UnmonitorInstances where+    toPath = const "/"++instance ToQuery UnmonitorInstances where+    toQuery UnmonitorInstances{..} = mconcat+        [ "dryRun"     =? _uiDryRun+        , "InstanceId" =? _uiInstanceIds+        ]++instance ToHeaders UnmonitorInstances++instance AWSRequest UnmonitorInstances where+    type Sv UnmonitorInstances = EC2+    type Rs UnmonitorInstances = UnmonitorInstancesResponse++    request  = post "UnmonitorInstances"+    response = xmlResponse++instance FromXML UnmonitorInstancesResponse where+    parseXML x = UnmonitorInstancesResponse+        <$> x .@  "instancesSet"
+ src/Network/AWS/EC2/Internal.hs view
@@ -0,0 +1,53 @@+{-# LANGUAGE DataKinds         #-}+{-# LANGUAGE DeriveGeneric     #-}+{-# LANGUAGE KindSignatures    #-}+{-# LANGUAGE OverloadedStrings #-}++-- Module      : Network.AWS.EC2.Internal+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)++module Network.AWS.EC2.Internal where++import GHC.Generics+import Network.AWS.Data+import Network.AWS.Prelude++data Message = Message+    { _msgCode    :: Text+    , _msgMessage :: Text+    } deriving (Eq, Ord, Show, Generic)++instance FromXML Message where+    parseXML x = Message+        <$> x .@ "Code"+        <*> x .@ "Message"++data EC2Error = EC2Error+    { _errRequestID :: Text+    , _errErrors    :: [Message]+    } deriving (Eq, Ord, Show, Generic)++instance FromXML EC2Error where+    parseXML x = EC2Error+        <$> x .@ "RequestId"+        <*> err (x .@ "Errors")+      where+        err :: Functor f => f (List "Error" Message) -> f [Message]+        err = fmap list++-- <Response>+--     <Errors>+--          <Error>+--            <Code>Error code text</Code>+--            <Message>Error message</Message>+--          </Error>+--     </Errors>+--     <RequestID>request ID</RequestID>+-- </Response>