packages feed

amazonka-codedeploy (empty) → 0.0.0

raw patch · 31 files changed

+5708/−0 lines, 31 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 CodeDeploy 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 CodeDeploy is a service that automates code deployments to Amazon EC2 instances. Amazon CodeDeploy makes it easier for you to rapidly release new features, helps you avoid downtime during deployment, and handles the complexity of updating your applications. You can use Amazon CodeDeploy to automate deployments, eliminating the need for error-prone manual operations, and the service scales with your infrastructure so you can easily deploy to one EC2 instance or thousands.++Documentation is available via [Hackage](http://hackage.haskell.org/package/amazonka-codedeploy)+and [AWS API Reference](http://docs.aws.amazon.com/codedeploy/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-codedeploy` 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-codedeploy.cabal view
@@ -0,0 +1,73 @@+name:                  amazonka-codedeploy+version:               0.0.0+synopsis:              Amazon CodeDeploy 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 CodeDeploy is a service that automates code deployments to+    Amazon EC2 instances. Amazon CodeDeploy makes it easier for you to+    rapidly release new features, helps you avoid downtime during+    deployment, and handles the complexity of updating your applications.+    You can use Amazon CodeDeploy to automate deployments, eliminating the+    need for error-prone manual operations, and the service scales with+    your infrastructure so you can easily deploy to one EC2 instance or+    thousands.+    .+    /See:/ <http://docs.aws.amazon.com/codedeploy/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.CodeDeploy+        , Network.AWS.CodeDeploy.BatchGetApplications+        , Network.AWS.CodeDeploy.BatchGetDeployments+        , Network.AWS.CodeDeploy.CreateApplication+        , Network.AWS.CodeDeploy.CreateDeployment+        , Network.AWS.CodeDeploy.CreateDeploymentConfig+        , Network.AWS.CodeDeploy.CreateDeploymentGroup+        , Network.AWS.CodeDeploy.DeleteApplication+        , Network.AWS.CodeDeploy.DeleteDeploymentConfig+        , Network.AWS.CodeDeploy.DeleteDeploymentGroup+        , Network.AWS.CodeDeploy.GetApplication+        , Network.AWS.CodeDeploy.GetApplicationRevision+        , Network.AWS.CodeDeploy.GetDeployment+        , Network.AWS.CodeDeploy.GetDeploymentConfig+        , Network.AWS.CodeDeploy.GetDeploymentGroup+        , Network.AWS.CodeDeploy.GetDeploymentInstance+        , Network.AWS.CodeDeploy.ListApplicationRevisions+        , Network.AWS.CodeDeploy.ListApplications+        , Network.AWS.CodeDeploy.ListDeploymentConfigs+        , Network.AWS.CodeDeploy.ListDeploymentGroups+        , Network.AWS.CodeDeploy.ListDeploymentInstances+        , Network.AWS.CodeDeploy.ListDeployments+        , Network.AWS.CodeDeploy.RegisterApplicationRevision+        , Network.AWS.CodeDeploy.StopDeployment+        , Network.AWS.CodeDeploy.Types+        , Network.AWS.CodeDeploy.UpdateApplication+        , Network.AWS.CodeDeploy.UpdateDeploymentGroup++    other-modules:++    build-depends:+          amazonka-core+        , base          >= 4.7 && < 5
+ gen/Network/AWS/CodeDeploy.hs view
@@ -0,0 +1,72 @@+-- Module      : Network.AWS.CodeDeploy+-- 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 CodeDeploy is a service that automates code deployments to Amazon+-- EC2 instances. Amazon CodeDeploy makes it easier for you to rapidly release+-- new features, helps you avoid downtime during deployment, and handles the+-- complexity of updating your applications. You can use Amazon CodeDeploy to+-- automate deployments, eliminating the need for error-prone manual+-- operations, and the service scales with your infrastructure so you can+-- easily deploy to one EC2 instance or thousands.+module Network.AWS.CodeDeploy+    ( module Network.AWS.CodeDeploy.BatchGetApplications+    , module Network.AWS.CodeDeploy.BatchGetDeployments+    , module Network.AWS.CodeDeploy.CreateApplication+    , module Network.AWS.CodeDeploy.CreateDeployment+    , module Network.AWS.CodeDeploy.CreateDeploymentConfig+    , module Network.AWS.CodeDeploy.CreateDeploymentGroup+    , module Network.AWS.CodeDeploy.DeleteApplication+    , module Network.AWS.CodeDeploy.DeleteDeploymentConfig+    , module Network.AWS.CodeDeploy.DeleteDeploymentGroup+    , module Network.AWS.CodeDeploy.GetApplication+    , module Network.AWS.CodeDeploy.GetApplicationRevision+    , module Network.AWS.CodeDeploy.GetDeployment+    , module Network.AWS.CodeDeploy.GetDeploymentConfig+    , module Network.AWS.CodeDeploy.GetDeploymentGroup+    , module Network.AWS.CodeDeploy.GetDeploymentInstance+    , module Network.AWS.CodeDeploy.ListApplicationRevisions+    , module Network.AWS.CodeDeploy.ListApplications+    , module Network.AWS.CodeDeploy.ListDeploymentConfigs+    , module Network.AWS.CodeDeploy.ListDeploymentGroups+    , module Network.AWS.CodeDeploy.ListDeploymentInstances+    , module Network.AWS.CodeDeploy.ListDeployments+    , module Network.AWS.CodeDeploy.RegisterApplicationRevision+    , module Network.AWS.CodeDeploy.StopDeployment+    , module Network.AWS.CodeDeploy.Types+    , module Network.AWS.CodeDeploy.UpdateApplication+    , module Network.AWS.CodeDeploy.UpdateDeploymentGroup+    ) where++import Network.AWS.CodeDeploy.BatchGetApplications+import Network.AWS.CodeDeploy.BatchGetDeployments+import Network.AWS.CodeDeploy.CreateApplication+import Network.AWS.CodeDeploy.CreateDeployment+import Network.AWS.CodeDeploy.CreateDeploymentConfig+import Network.AWS.CodeDeploy.CreateDeploymentGroup+import Network.AWS.CodeDeploy.DeleteApplication+import Network.AWS.CodeDeploy.DeleteDeploymentConfig+import Network.AWS.CodeDeploy.DeleteDeploymentGroup+import Network.AWS.CodeDeploy.GetApplication+import Network.AWS.CodeDeploy.GetApplicationRevision+import Network.AWS.CodeDeploy.GetDeployment+import Network.AWS.CodeDeploy.GetDeploymentConfig+import Network.AWS.CodeDeploy.GetDeploymentGroup+import Network.AWS.CodeDeploy.GetDeploymentInstance+import Network.AWS.CodeDeploy.ListApplicationRevisions+import Network.AWS.CodeDeploy.ListApplications+import Network.AWS.CodeDeploy.ListDeploymentConfigs+import Network.AWS.CodeDeploy.ListDeploymentGroups+import Network.AWS.CodeDeploy.ListDeploymentInstances+import Network.AWS.CodeDeploy.ListDeployments+import Network.AWS.CodeDeploy.RegisterApplicationRevision+import Network.AWS.CodeDeploy.StopDeployment+import Network.AWS.CodeDeploy.Types+import Network.AWS.CodeDeploy.UpdateApplication+import Network.AWS.CodeDeploy.UpdateDeploymentGroup
+ gen/Network/AWS/CodeDeploy/BatchGetApplications.hs view
@@ -0,0 +1,125 @@+{-# 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.CodeDeploy.BatchGetApplications+-- 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 information about one or more applications.+--+-- <http://docs.aws.amazon.com/codedeploy/latest/APIReference/API_BatchGetApplications.html>+module Network.AWS.CodeDeploy.BatchGetApplications+    (+    -- * Request+      BatchGetApplications+    -- ** Request constructor+    , batchGetApplications+    -- ** Request lenses+    , bgaApplicationNames++    -- * Response+    , BatchGetApplicationsResponse+    -- ** Response constructor+    , batchGetApplicationsResponse+    -- ** Response lenses+    , bgarApplicationsInfo+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.JSON+import Network.AWS.CodeDeploy.Types+import qualified GHC.Exts++newtype BatchGetApplications = BatchGetApplications+    { _bgaApplicationNames :: List "applications" Text+    } deriving (Eq, Ord, Show, Monoid, Semigroup)++instance GHC.Exts.IsList BatchGetApplications where+    type Item BatchGetApplications = Text++    fromList = BatchGetApplications . GHC.Exts.fromList+    toList   = GHC.Exts.toList . _bgaApplicationNames++-- | 'BatchGetApplications' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'bgaApplicationNames' @::@ ['Text']+--+batchGetApplications :: BatchGetApplications+batchGetApplications = BatchGetApplications+    { _bgaApplicationNames = mempty+    }++-- | A list of application names, with multiple application names separated by+-- spaces.+bgaApplicationNames :: Lens' BatchGetApplications [Text]+bgaApplicationNames =+    lens _bgaApplicationNames (\s a -> s { _bgaApplicationNames = a })+        . _List++newtype BatchGetApplicationsResponse = BatchGetApplicationsResponse+    { _bgarApplicationsInfo :: List "applicationsInfo" ApplicationInfo+    } deriving (Eq, Show, Monoid, Semigroup)++instance GHC.Exts.IsList BatchGetApplicationsResponse where+    type Item BatchGetApplicationsResponse = ApplicationInfo++    fromList = BatchGetApplicationsResponse . GHC.Exts.fromList+    toList   = GHC.Exts.toList . _bgarApplicationsInfo++-- | 'BatchGetApplicationsResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'bgarApplicationsInfo' @::@ ['ApplicationInfo']+--+batchGetApplicationsResponse :: BatchGetApplicationsResponse+batchGetApplicationsResponse = BatchGetApplicationsResponse+    { _bgarApplicationsInfo = mempty+    }++-- | Information about the applications.+bgarApplicationsInfo :: Lens' BatchGetApplicationsResponse [ApplicationInfo]+bgarApplicationsInfo =+    lens _bgarApplicationsInfo (\s a -> s { _bgarApplicationsInfo = a })+        . _List++instance ToPath BatchGetApplications where+    toPath = const "/"++instance ToQuery BatchGetApplications where+    toQuery = const mempty++instance ToHeaders BatchGetApplications++instance ToJSON BatchGetApplications where+    toJSON BatchGetApplications{..} = object+        [ "applicationNames" .= _bgaApplicationNames+        ]++instance AWSRequest BatchGetApplications where+    type Sv BatchGetApplications = CodeDeploy+    type Rs BatchGetApplications = BatchGetApplicationsResponse++    request  = post "BatchGetApplications"+    response = jsonResponse++instance FromJSON BatchGetApplicationsResponse where+    parseJSON = withObject "BatchGetApplicationsResponse" $ \o -> BatchGetApplicationsResponse+        <$> o .:  "applicationsInfo"
+ gen/Network/AWS/CodeDeploy/BatchGetDeployments.hs view
@@ -0,0 +1,123 @@+{-# 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.CodeDeploy.BatchGetDeployments+-- 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 information about one or more deployments.+--+-- <http://docs.aws.amazon.com/codedeploy/latest/APIReference/API_BatchGetDeployments.html>+module Network.AWS.CodeDeploy.BatchGetDeployments+    (+    -- * Request+      BatchGetDeployments+    -- ** Request constructor+    , batchGetDeployments+    -- ** Request lenses+    , bgdDeploymentIds++    -- * Response+    , BatchGetDeploymentsResponse+    -- ** Response constructor+    , batchGetDeploymentsResponse+    -- ** Response lenses+    , bgdrDeploymentsInfo+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.JSON+import Network.AWS.CodeDeploy.Types+import qualified GHC.Exts++newtype BatchGetDeployments = BatchGetDeployments+    { _bgdDeploymentIds :: List "deployments" Text+    } deriving (Eq, Ord, Show, Monoid, Semigroup)++instance GHC.Exts.IsList BatchGetDeployments where+    type Item BatchGetDeployments = Text++    fromList = BatchGetDeployments . GHC.Exts.fromList+    toList   = GHC.Exts.toList . _bgdDeploymentIds++-- | 'BatchGetDeployments' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'bgdDeploymentIds' @::@ ['Text']+--+batchGetDeployments :: BatchGetDeployments+batchGetDeployments = BatchGetDeployments+    { _bgdDeploymentIds = mempty+    }++-- | A list of deployment IDs, with multiple deployment IDs separated by+-- spaces.+bgdDeploymentIds :: Lens' BatchGetDeployments [Text]+bgdDeploymentIds = lens _bgdDeploymentIds (\s a -> s { _bgdDeploymentIds = a }) . _List++newtype BatchGetDeploymentsResponse = BatchGetDeploymentsResponse+    { _bgdrDeploymentsInfo :: List "deploymentsInfo" DeploymentInfo+    } deriving (Eq, Show, Monoid, Semigroup)++instance GHC.Exts.IsList BatchGetDeploymentsResponse where+    type Item BatchGetDeploymentsResponse = DeploymentInfo++    fromList = BatchGetDeploymentsResponse . GHC.Exts.fromList+    toList   = GHC.Exts.toList . _bgdrDeploymentsInfo++-- | 'BatchGetDeploymentsResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'bgdrDeploymentsInfo' @::@ ['DeploymentInfo']+--+batchGetDeploymentsResponse :: BatchGetDeploymentsResponse+batchGetDeploymentsResponse = BatchGetDeploymentsResponse+    { _bgdrDeploymentsInfo = mempty+    }++-- | Information about the deployments.+bgdrDeploymentsInfo :: Lens' BatchGetDeploymentsResponse [DeploymentInfo]+bgdrDeploymentsInfo =+    lens _bgdrDeploymentsInfo (\s a -> s { _bgdrDeploymentsInfo = a })+        . _List++instance ToPath BatchGetDeployments where+    toPath = const "/"++instance ToQuery BatchGetDeployments where+    toQuery = const mempty++instance ToHeaders BatchGetDeployments++instance ToJSON BatchGetDeployments where+    toJSON BatchGetDeployments{..} = object+        [ "deploymentIds" .= _bgdDeploymentIds+        ]++instance AWSRequest BatchGetDeployments where+    type Sv BatchGetDeployments = CodeDeploy+    type Rs BatchGetDeployments = BatchGetDeploymentsResponse++    request  = post "BatchGetDeployments"+    response = jsonResponse++instance FromJSON BatchGetDeploymentsResponse where+    parseJSON = withObject "BatchGetDeploymentsResponse" $ \o -> BatchGetDeploymentsResponse+        <$> o .:  "deploymentsInfo"
+ gen/Network/AWS/CodeDeploy/CreateApplication.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.CodeDeploy.CreateApplication+-- 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 new application.+--+-- <http://docs.aws.amazon.com/codedeploy/latest/APIReference/API_CreateApplication.html>+module Network.AWS.CodeDeploy.CreateApplication+    (+    -- * Request+      CreateApplication+    -- ** Request constructor+    , createApplication+    -- ** Request lenses+    , caApplicationName++    -- * Response+    , CreateApplicationResponse+    -- ** Response constructor+    , createApplicationResponse+    -- ** Response lenses+    , carApplicationId+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.JSON+import Network.AWS.CodeDeploy.Types+import qualified GHC.Exts++newtype CreateApplication = CreateApplication+    { _caApplicationName :: Text+    } deriving (Eq, Ord, Show, Monoid, IsString)++-- | 'CreateApplication' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'caApplicationName' @::@ 'Text'+--+createApplication :: Text -- ^ 'caApplicationName'+                  -> CreateApplication+createApplication p1 = CreateApplication+    { _caApplicationName = p1+    }++-- | The name of the application. This name must be unique within the AWS user+-- account.+caApplicationName :: Lens' CreateApplication Text+caApplicationName =+    lens _caApplicationName (\s a -> s { _caApplicationName = a })++newtype CreateApplicationResponse = CreateApplicationResponse+    { _carApplicationId :: Maybe Text+    } deriving (Eq, Ord, Show, Monoid)++-- | 'CreateApplicationResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'carApplicationId' @::@ 'Maybe' 'Text'+--+createApplicationResponse :: CreateApplicationResponse+createApplicationResponse = CreateApplicationResponse+    { _carApplicationId = Nothing+    }++-- | A unique application ID.+carApplicationId :: Lens' CreateApplicationResponse (Maybe Text)+carApplicationId = lens _carApplicationId (\s a -> s { _carApplicationId = a })++instance ToPath CreateApplication where+    toPath = const "/"++instance ToQuery CreateApplication where+    toQuery = const mempty++instance ToHeaders CreateApplication++instance ToJSON CreateApplication where+    toJSON CreateApplication{..} = object+        [ "applicationName" .= _caApplicationName+        ]++instance AWSRequest CreateApplication where+    type Sv CreateApplication = CodeDeploy+    type Rs CreateApplication = CreateApplicationResponse++    request  = post "CreateApplication"+    response = jsonResponse++instance FromJSON CreateApplicationResponse where+    parseJSON = withObject "CreateApplicationResponse" $ \o -> CreateApplicationResponse+        <$> o .:? "applicationId"
+ gen/Network/AWS/CodeDeploy/CreateDeployment.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.CodeDeploy.CreateDeployment+-- 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)++-- | Deploys an application revision to the specified deployment group.+--+-- <http://docs.aws.amazon.com/codedeploy/latest/APIReference/API_CreateDeployment.html>+module Network.AWS.CodeDeploy.CreateDeployment+    (+    -- * Request+      CreateDeployment+    -- ** Request constructor+    , createDeployment+    -- ** Request lenses+    , cdApplicationName+    , cdDeploymentConfigName+    , cdDeploymentGroupName+    , cdDescription+    , cdIgnoreApplicationStopFailures+    , cdRevision++    -- * Response+    , CreateDeploymentResponse+    -- ** Response constructor+    , createDeploymentResponse+    -- ** Response lenses+    , cdrDeploymentId+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.JSON+import Network.AWS.CodeDeploy.Types+import qualified GHC.Exts++data CreateDeployment = CreateDeployment+    { _cdApplicationName               :: Text+    , _cdDeploymentConfigName          :: Maybe Text+    , _cdDeploymentGroupName           :: Maybe Text+    , _cdDescription                   :: Maybe Text+    , _cdIgnoreApplicationStopFailures :: Maybe Bool+    , _cdRevision                      :: Maybe RevisionLocation+    } deriving (Eq, Show)++-- | 'CreateDeployment' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'cdApplicationName' @::@ 'Text'+--+-- * 'cdDeploymentConfigName' @::@ 'Maybe' 'Text'+--+-- * 'cdDeploymentGroupName' @::@ 'Maybe' 'Text'+--+-- * 'cdDescription' @::@ 'Maybe' 'Text'+--+-- * 'cdIgnoreApplicationStopFailures' @::@ 'Maybe' 'Bool'+--+-- * 'cdRevision' @::@ 'Maybe' 'RevisionLocation'+--+createDeployment :: Text -- ^ 'cdApplicationName'+                 -> CreateDeployment+createDeployment p1 = CreateDeployment+    { _cdApplicationName               = p1+    , _cdDeploymentGroupName           = Nothing+    , _cdRevision                      = Nothing+    , _cdDeploymentConfigName          = Nothing+    , _cdDescription                   = Nothing+    , _cdIgnoreApplicationStopFailures = Nothing+    }++-- | The name of an existing AWS CodeDeploy application within the AWS user+-- account.+cdApplicationName :: Lens' CreateDeployment Text+cdApplicationName =+    lens _cdApplicationName (\s a -> s { _cdApplicationName = a })++-- | The name of an existing deployment configuration within the AWS user+-- account. If not specified, the value configured in the deployment group+-- will be used as the default. If the deployment group does not have a+-- deployment configuration associated with it, then+-- CodeDeployDefault.OneAtATime will be used by default.+cdDeploymentConfigName :: Lens' CreateDeployment (Maybe Text)+cdDeploymentConfigName =+    lens _cdDeploymentConfigName (\s a -> s { _cdDeploymentConfigName = a })++-- | The deployment group's name.+cdDeploymentGroupName :: Lens' CreateDeployment (Maybe Text)+cdDeploymentGroupName =+    lens _cdDeploymentGroupName (\s a -> s { _cdDeploymentGroupName = a })++-- | A comment about the deployment.+cdDescription :: Lens' CreateDeployment (Maybe Text)+cdDescription = lens _cdDescription (\s a -> s { _cdDescription = a })++-- | If set to true, then if the deployment causes the ApplicationStop+-- deployment lifecycle event to fail to a specific instance, the deployment+-- will not be considered to have failed to that instance at that point and+-- will continue on to the BeforeInstall deployment lifecycle event. If set+-- to false or not specified, then if the deployment causes the+-- ApplicationStop deployment lifecycle event to fail to a specific+-- instance, the deployment will stop to that instance, and the deployment+-- to that instance will be considered to have failed.+cdIgnoreApplicationStopFailures :: Lens' CreateDeployment (Maybe Bool)+cdIgnoreApplicationStopFailures =+    lens _cdIgnoreApplicationStopFailures+        (\s a -> s { _cdIgnoreApplicationStopFailures = a })++-- | The type of revision to deploy, along with information about the+-- revision's location.+cdRevision :: Lens' CreateDeployment (Maybe RevisionLocation)+cdRevision = lens _cdRevision (\s a -> s { _cdRevision = a })++newtype CreateDeploymentResponse = CreateDeploymentResponse+    { _cdrDeploymentId :: Maybe Text+    } deriving (Eq, Ord, Show, Monoid)++-- | 'CreateDeploymentResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'cdrDeploymentId' @::@ 'Maybe' 'Text'+--+createDeploymentResponse :: CreateDeploymentResponse+createDeploymentResponse = CreateDeploymentResponse+    { _cdrDeploymentId = Nothing+    }++-- | A unique deployment ID.+cdrDeploymentId :: Lens' CreateDeploymentResponse (Maybe Text)+cdrDeploymentId = lens _cdrDeploymentId (\s a -> s { _cdrDeploymentId = a })++instance ToPath CreateDeployment where+    toPath = const "/"++instance ToQuery CreateDeployment where+    toQuery = const mempty++instance ToHeaders CreateDeployment++instance ToJSON CreateDeployment where+    toJSON CreateDeployment{..} = object+        [ "applicationName"               .= _cdApplicationName+        , "deploymentGroupName"           .= _cdDeploymentGroupName+        , "revision"                      .= _cdRevision+        , "deploymentConfigName"          .= _cdDeploymentConfigName+        , "description"                   .= _cdDescription+        , "ignoreApplicationStopFailures" .= _cdIgnoreApplicationStopFailures+        ]++instance AWSRequest CreateDeployment where+    type Sv CreateDeployment = CodeDeploy+    type Rs CreateDeployment = CreateDeploymentResponse++    request  = post "CreateDeployment"+    response = jsonResponse++instance FromJSON CreateDeploymentResponse where+    parseJSON = withObject "CreateDeploymentResponse" $ \o -> CreateDeploymentResponse+        <$> o .:? "deploymentId"
+ gen/Network/AWS/CodeDeploy/CreateDeploymentConfig.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.CodeDeploy.CreateDeploymentConfig+-- 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 new deployment configuration.+--+-- <http://docs.aws.amazon.com/codedeploy/latest/APIReference/API_CreateDeploymentConfig.html>+module Network.AWS.CodeDeploy.CreateDeploymentConfig+    (+    -- * Request+      CreateDeploymentConfig+    -- ** Request constructor+    , createDeploymentConfig+    -- ** Request lenses+    , cdcDeploymentConfigName+    , cdcMinimumHealthyHosts++    -- * Response+    , CreateDeploymentConfigResponse+    -- ** Response constructor+    , createDeploymentConfigResponse+    -- ** Response lenses+    , cdcrDeploymentConfigId+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.JSON+import Network.AWS.CodeDeploy.Types+import qualified GHC.Exts++data CreateDeploymentConfig = CreateDeploymentConfig+    { _cdcDeploymentConfigName :: Text+    , _cdcMinimumHealthyHosts  :: Maybe MinimumHealthyHosts+    } deriving (Eq, Show)++-- | 'CreateDeploymentConfig' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'cdcDeploymentConfigName' @::@ 'Text'+--+-- * 'cdcMinimumHealthyHosts' @::@ 'Maybe' 'MinimumHealthyHosts'+--+createDeploymentConfig :: Text -- ^ 'cdcDeploymentConfigName'+                       -> CreateDeploymentConfig+createDeploymentConfig p1 = CreateDeploymentConfig+    { _cdcDeploymentConfigName = p1+    , _cdcMinimumHealthyHosts  = Nothing+    }++-- | The name of the deployment configuration to create.+cdcDeploymentConfigName :: Lens' CreateDeploymentConfig Text+cdcDeploymentConfigName =+    lens _cdcDeploymentConfigName (\s a -> s { _cdcDeploymentConfigName = a })++-- | The minimum number of healthy instances that should be available at any+-- time during the deployment. There are two parameters expected in the+-- input: type and value. The type parameter takes either of the following+-- values: HOST_COUNT: The value parameter represents the minimum number of+-- healthy instances, as an absolute value. FLEET_PERCENT: The value+-- parameter represents the minimum number of healthy instances, as a+-- percentage of the total number of instances in the deployment. If you+-- specify FLEET_PERCENT, then at the start of the deployment AWS CodeDeploy+-- converts the percentage to the equivalent number of instances and rounds+-- fractional instances up. The value parameter takes an integer. For+-- example, to set a minimum of 95% healthy instances, specify a type of+-- FLEET_PERCENT and a value of 95.+cdcMinimumHealthyHosts :: Lens' CreateDeploymentConfig (Maybe MinimumHealthyHosts)+cdcMinimumHealthyHosts =+    lens _cdcMinimumHealthyHosts (\s a -> s { _cdcMinimumHealthyHosts = a })++newtype CreateDeploymentConfigResponse = CreateDeploymentConfigResponse+    { _cdcrDeploymentConfigId :: Maybe Text+    } deriving (Eq, Ord, Show, Monoid)++-- | 'CreateDeploymentConfigResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'cdcrDeploymentConfigId' @::@ 'Maybe' 'Text'+--+createDeploymentConfigResponse :: CreateDeploymentConfigResponse+createDeploymentConfigResponse = CreateDeploymentConfigResponse+    { _cdcrDeploymentConfigId = Nothing+    }++-- | A unique deployment configuration ID.+cdcrDeploymentConfigId :: Lens' CreateDeploymentConfigResponse (Maybe Text)+cdcrDeploymentConfigId =+    lens _cdcrDeploymentConfigId (\s a -> s { _cdcrDeploymentConfigId = a })++instance ToPath CreateDeploymentConfig where+    toPath = const "/"++instance ToQuery CreateDeploymentConfig where+    toQuery = const mempty++instance ToHeaders CreateDeploymentConfig++instance ToJSON CreateDeploymentConfig where+    toJSON CreateDeploymentConfig{..} = object+        [ "deploymentConfigName" .= _cdcDeploymentConfigName+        , "minimumHealthyHosts"  .= _cdcMinimumHealthyHosts+        ]++instance AWSRequest CreateDeploymentConfig where+    type Sv CreateDeploymentConfig = CodeDeploy+    type Rs CreateDeploymentConfig = CreateDeploymentConfigResponse++    request  = post "CreateDeploymentConfig"+    response = jsonResponse++instance FromJSON CreateDeploymentConfigResponse where+    parseJSON = withObject "CreateDeploymentConfigResponse" $ \o -> CreateDeploymentConfigResponse+        <$> o .:? "deploymentConfigId"
+ gen/Network/AWS/CodeDeploy/CreateDeploymentGroup.hs view
@@ -0,0 +1,198 @@+{-# 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.CodeDeploy.CreateDeploymentGroup+-- 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 new deployment group for application revisions to be deployed to.+--+-- <http://docs.aws.amazon.com/codedeploy/latest/APIReference/API_CreateDeploymentGroup.html>+module Network.AWS.CodeDeploy.CreateDeploymentGroup+    (+    -- * Request+      CreateDeploymentGroup+    -- ** Request constructor+    , createDeploymentGroup+    -- ** Request lenses+    , cdgApplicationName+    , cdgAutoScalingGroups+    , cdgDeploymentConfigName+    , cdgDeploymentGroupName+    , cdgEc2TagFilters+    , cdgServiceRoleArn++    -- * Response+    , CreateDeploymentGroupResponse+    -- ** Response constructor+    , createDeploymentGroupResponse+    -- ** Response lenses+    , cdgrDeploymentGroupId+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.JSON+import Network.AWS.CodeDeploy.Types+import qualified GHC.Exts++data CreateDeploymentGroup = CreateDeploymentGroup+    { _cdgApplicationName      :: Text+    , _cdgAutoScalingGroups    :: List "autoScalingGroups" Text+    , _cdgDeploymentConfigName :: Maybe Text+    , _cdgDeploymentGroupName  :: Text+    , _cdgEc2TagFilters        :: List "ec2TagFilters" EC2TagFilter+    , _cdgServiceRoleArn       :: Maybe Text+    } deriving (Eq, Show)++-- | 'CreateDeploymentGroup' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'cdgApplicationName' @::@ 'Text'+--+-- * 'cdgAutoScalingGroups' @::@ ['Text']+--+-- * 'cdgDeploymentConfigName' @::@ 'Maybe' 'Text'+--+-- * 'cdgDeploymentGroupName' @::@ 'Text'+--+-- * 'cdgEc2TagFilters' @::@ ['EC2TagFilter']+--+-- * 'cdgServiceRoleArn' @::@ 'Maybe' 'Text'+--+createDeploymentGroup :: Text -- ^ 'cdgApplicationName'+                      -> Text -- ^ 'cdgDeploymentGroupName'+                      -> CreateDeploymentGroup+createDeploymentGroup p1 p2 = CreateDeploymentGroup+    { _cdgApplicationName      = p1+    , _cdgDeploymentGroupName  = p2+    , _cdgDeploymentConfigName = Nothing+    , _cdgEc2TagFilters        = mempty+    , _cdgAutoScalingGroups    = mempty+    , _cdgServiceRoleArn       = Nothing+    }++-- | The name of an existing AWS CodeDeploy application within the AWS user+-- account.+cdgApplicationName :: Lens' CreateDeploymentGroup Text+cdgApplicationName =+    lens _cdgApplicationName (\s a -> s { _cdgApplicationName = a })++-- | A list of associated Auto Scaling groups.+cdgAutoScalingGroups :: Lens' CreateDeploymentGroup [Text]+cdgAutoScalingGroups =+    lens _cdgAutoScalingGroups (\s a -> s { _cdgAutoScalingGroups = a })+        . _List++-- | If specified, the deployment configuration name must be one of the+-- predefined values, or it can be a custom deployment configuration:+-- CodeDeployDefault.AllAtOnce deploys an application revision to up to all+-- of the Amazon EC2 instances at once. The overall deployment succeeds if+-- the application revision deploys to at least one of the instances. The+-- overall deployment fails after the application revision fails to deploy+-- to all of the instances. For example, for 9 instances, deploy to up to+-- all 9 instances at once. The overall deployment succeeds if any of the 9+-- instances is successfully deployed to, and it fails if all 9 instances+-- fail to be deployed to. CodeDeployDefault.HalfAtATime deploys to up to+-- half of the instances at a time (with fractions rounded down). The+-- overall deployment succeeds if the application revision deploys to at+-- least half of the instances (with fractions rounded up); otherwise, the+-- deployment fails. For example, for 9 instances, deploy to up to 4+-- instances at a time. The overall deployment succeeds if 5 or more+-- instances are successfully deployed to; otherwise, the deployment fails.+-- Note that the deployment may successfully deploy to some instances, even+-- if the overall deployment fails. CodeDeployDefault.OneAtATime deploys the+-- application revision to only one of the instances at a time. The overall+-- deployment succeeds if the application revision deploys to all of the+-- instances. The overall deployment fails after the application revision+-- first fails to deploy to any one instance. For example, for 9 instances,+-- deploy to one instance at a time. The overall deployment succeeds if all+-- 9 instances are successfully deployed to, and it fails if any of one of+-- the 9 instances fail to be deployed to. Note that the deployment may+-- successfully deploy to some instances, even if the overall deployment+-- fails. This is the default deployment configuration if a configuration+-- isn't specified for either the deployment or the deployment group. To+-- create a custom deployment configuration, call the create deployment+-- configuration operation.+cdgDeploymentConfigName :: Lens' CreateDeploymentGroup (Maybe Text)+cdgDeploymentConfigName =+    lens _cdgDeploymentConfigName (\s a -> s { _cdgDeploymentConfigName = a })++-- | The name of an existing deployment group for the specified application.+cdgDeploymentGroupName :: Lens' CreateDeploymentGroup Text+cdgDeploymentGroupName =+    lens _cdgDeploymentGroupName (\s a -> s { _cdgDeploymentGroupName = a })++-- | The Amazon EC2 tags to filter on.+cdgEc2TagFilters :: Lens' CreateDeploymentGroup [EC2TagFilter]+cdgEc2TagFilters = lens _cdgEc2TagFilters (\s a -> s { _cdgEc2TagFilters = a }) . _List++-- | A service role ARN that allows AWS CodeDeploy to act on the user's behalf+-- when interacting with AWS services.+cdgServiceRoleArn :: Lens' CreateDeploymentGroup (Maybe Text)+cdgServiceRoleArn =+    lens _cdgServiceRoleArn (\s a -> s { _cdgServiceRoleArn = a })++newtype CreateDeploymentGroupResponse = CreateDeploymentGroupResponse+    { _cdgrDeploymentGroupId :: Maybe Text+    } deriving (Eq, Ord, Show, Monoid)++-- | 'CreateDeploymentGroupResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'cdgrDeploymentGroupId' @::@ 'Maybe' 'Text'+--+createDeploymentGroupResponse :: CreateDeploymentGroupResponse+createDeploymentGroupResponse = CreateDeploymentGroupResponse+    { _cdgrDeploymentGroupId = Nothing+    }++-- | A unique deployment group ID.+cdgrDeploymentGroupId :: Lens' CreateDeploymentGroupResponse (Maybe Text)+cdgrDeploymentGroupId =+    lens _cdgrDeploymentGroupId (\s a -> s { _cdgrDeploymentGroupId = a })++instance ToPath CreateDeploymentGroup where+    toPath = const "/"++instance ToQuery CreateDeploymentGroup where+    toQuery = const mempty++instance ToHeaders CreateDeploymentGroup++instance ToJSON CreateDeploymentGroup where+    toJSON CreateDeploymentGroup{..} = object+        [ "applicationName"      .= _cdgApplicationName+        , "deploymentGroupName"  .= _cdgDeploymentGroupName+        , "deploymentConfigName" .= _cdgDeploymentConfigName+        , "ec2TagFilters"        .= _cdgEc2TagFilters+        , "autoScalingGroups"    .= _cdgAutoScalingGroups+        , "serviceRoleArn"       .= _cdgServiceRoleArn+        ]++instance AWSRequest CreateDeploymentGroup where+    type Sv CreateDeploymentGroup = CodeDeploy+    type Rs CreateDeploymentGroup = CreateDeploymentGroupResponse++    request  = post "CreateDeploymentGroup"+    response = jsonResponse++instance FromJSON CreateDeploymentGroupResponse where+    parseJSON = withObject "CreateDeploymentGroupResponse" $ \o -> CreateDeploymentGroupResponse+        <$> o .:? "deploymentGroupId"
+ gen/Network/AWS/CodeDeploy/DeleteApplication.hs view
@@ -0,0 +1,93 @@+{-# 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.CodeDeploy.DeleteApplication+-- 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 an application.+--+-- <http://docs.aws.amazon.com/codedeploy/latest/APIReference/API_DeleteApplication.html>+module Network.AWS.CodeDeploy.DeleteApplication+    (+    -- * Request+      DeleteApplication+    -- ** Request constructor+    , deleteApplication+    -- ** Request lenses+    , daApplicationName++    -- * Response+    , DeleteApplicationResponse+    -- ** Response constructor+    , deleteApplicationResponse+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.JSON+import Network.AWS.CodeDeploy.Types+import qualified GHC.Exts++newtype DeleteApplication = DeleteApplication+    { _daApplicationName :: Text+    } deriving (Eq, Ord, Show, Monoid, IsString)++-- | 'DeleteApplication' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'daApplicationName' @::@ 'Text'+--+deleteApplication :: Text -- ^ 'daApplicationName'+                  -> DeleteApplication+deleteApplication p1 = DeleteApplication+    { _daApplicationName = p1+    }++-- | The name of an existing AWS CodeDeploy application within the AWS user+-- account.+daApplicationName :: Lens' DeleteApplication Text+daApplicationName =+    lens _daApplicationName (\s a -> s { _daApplicationName = a })++data DeleteApplicationResponse = DeleteApplicationResponse+    deriving (Eq, Ord, Show, Generic)++-- | 'DeleteApplicationResponse' constructor.+deleteApplicationResponse :: DeleteApplicationResponse+deleteApplicationResponse = DeleteApplicationResponse++instance ToPath DeleteApplication where+    toPath = const "/"++instance ToQuery DeleteApplication where+    toQuery = const mempty++instance ToHeaders DeleteApplication++instance ToJSON DeleteApplication where+    toJSON DeleteApplication{..} = object+        [ "applicationName" .= _daApplicationName+        ]++instance AWSRequest DeleteApplication where+    type Sv DeleteApplication = CodeDeploy+    type Rs DeleteApplication = DeleteApplicationResponse++    request  = post "DeleteApplication"+    response = nullResponse DeleteApplicationResponse
+ gen/Network/AWS/CodeDeploy/DeleteDeploymentConfig.hs view
@@ -0,0 +1,95 @@+{-# 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.CodeDeploy.DeleteDeploymentConfig+-- 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 deployment configuration. A deployment configuration cannot be+-- deleted if it is currently in use. Also, predefined configurations cannot+-- be deleted.+--+-- <http://docs.aws.amazon.com/codedeploy/latest/APIReference/API_DeleteDeploymentConfig.html>+module Network.AWS.CodeDeploy.DeleteDeploymentConfig+    (+    -- * Request+      DeleteDeploymentConfig+    -- ** Request constructor+    , deleteDeploymentConfig+    -- ** Request lenses+    , ddcDeploymentConfigName++    -- * Response+    , DeleteDeploymentConfigResponse+    -- ** Response constructor+    , deleteDeploymentConfigResponse+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.JSON+import Network.AWS.CodeDeploy.Types+import qualified GHC.Exts++newtype DeleteDeploymentConfig = DeleteDeploymentConfig+    { _ddcDeploymentConfigName :: Text+    } deriving (Eq, Ord, Show, Monoid, IsString)++-- | 'DeleteDeploymentConfig' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'ddcDeploymentConfigName' @::@ 'Text'+--+deleteDeploymentConfig :: Text -- ^ 'ddcDeploymentConfigName'+                       -> DeleteDeploymentConfig+deleteDeploymentConfig p1 = DeleteDeploymentConfig+    { _ddcDeploymentConfigName = p1+    }++-- | The name of an existing deployment configuration within the AWS user+-- account.+ddcDeploymentConfigName :: Lens' DeleteDeploymentConfig Text+ddcDeploymentConfigName =+    lens _ddcDeploymentConfigName (\s a -> s { _ddcDeploymentConfigName = a })++data DeleteDeploymentConfigResponse = DeleteDeploymentConfigResponse+    deriving (Eq, Ord, Show, Generic)++-- | 'DeleteDeploymentConfigResponse' constructor.+deleteDeploymentConfigResponse :: DeleteDeploymentConfigResponse+deleteDeploymentConfigResponse = DeleteDeploymentConfigResponse++instance ToPath DeleteDeploymentConfig where+    toPath = const "/"++instance ToQuery DeleteDeploymentConfig where+    toQuery = const mempty++instance ToHeaders DeleteDeploymentConfig++instance ToJSON DeleteDeploymentConfig where+    toJSON DeleteDeploymentConfig{..} = object+        [ "deploymentConfigName" .= _ddcDeploymentConfigName+        ]++instance AWSRequest DeleteDeploymentConfig where+    type Sv DeleteDeploymentConfig = CodeDeploy+    type Rs DeleteDeploymentConfig = DeleteDeploymentConfigResponse++    request  = post "DeleteDeploymentConfig"+    response = nullResponse DeleteDeploymentConfigResponse
+ gen/Network/AWS/CodeDeploy/DeleteDeploymentGroup.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.CodeDeploy.DeleteDeploymentGroup+-- 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 deployment group.+--+-- <http://docs.aws.amazon.com/codedeploy/latest/APIReference/API_DeleteDeploymentGroup.html>+module Network.AWS.CodeDeploy.DeleteDeploymentGroup+    (+    -- * Request+      DeleteDeploymentGroup+    -- ** Request constructor+    , deleteDeploymentGroup+    -- ** Request lenses+    , ddgApplicationName+    , ddgDeploymentGroupName++    -- * Response+    , DeleteDeploymentGroupResponse+    -- ** Response constructor+    , deleteDeploymentGroupResponse+    -- ** Response lenses+    , ddgrHooksNotCleanedUp+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.JSON+import Network.AWS.CodeDeploy.Types+import qualified GHC.Exts++data DeleteDeploymentGroup = DeleteDeploymentGroup+    { _ddgApplicationName     :: Text+    , _ddgDeploymentGroupName :: Text+    } deriving (Eq, Ord, Show)++-- | 'DeleteDeploymentGroup' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'ddgApplicationName' @::@ 'Text'+--+-- * 'ddgDeploymentGroupName' @::@ 'Text'+--+deleteDeploymentGroup :: Text -- ^ 'ddgApplicationName'+                      -> Text -- ^ 'ddgDeploymentGroupName'+                      -> DeleteDeploymentGroup+deleteDeploymentGroup p1 p2 = DeleteDeploymentGroup+    { _ddgApplicationName     = p1+    , _ddgDeploymentGroupName = p2+    }++-- | The name of an existing AWS CodeDeploy application within the AWS user+-- account.+ddgApplicationName :: Lens' DeleteDeploymentGroup Text+ddgApplicationName =+    lens _ddgApplicationName (\s a -> s { _ddgApplicationName = a })++-- | The name of an existing deployment group for the specified application.+ddgDeploymentGroupName :: Lens' DeleteDeploymentGroup Text+ddgDeploymentGroupName =+    lens _ddgDeploymentGroupName (\s a -> s { _ddgDeploymentGroupName = a })++newtype DeleteDeploymentGroupResponse = DeleteDeploymentGroupResponse+    { _ddgrHooksNotCleanedUp :: List "autoScalingGroups" AutoScalingGroup+    } deriving (Eq, Show, Monoid, Semigroup)++instance GHC.Exts.IsList DeleteDeploymentGroupResponse where+    type Item DeleteDeploymentGroupResponse = AutoScalingGroup++    fromList = DeleteDeploymentGroupResponse . GHC.Exts.fromList+    toList   = GHC.Exts.toList . _ddgrHooksNotCleanedUp++-- | 'DeleteDeploymentGroupResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'ddgrHooksNotCleanedUp' @::@ ['AutoScalingGroup']+--+deleteDeploymentGroupResponse :: DeleteDeploymentGroupResponse+deleteDeploymentGroupResponse = DeleteDeploymentGroupResponse+    { _ddgrHooksNotCleanedUp = mempty+    }++-- | If the output contains no data, and the corresponding deployment group+-- contained at least one Auto Scaling group, AWS CodeDeploy successfully+-- removed all corresponding Auto Scaling lifecycle event hooks from the+-- instances in the Auto Scaling. If the output does contain data, AWS+-- CodeDeploy could not remove some Auto Scaling lifecycle event hooks from+-- the instances in the Auto Scaling group.+ddgrHooksNotCleanedUp :: Lens' DeleteDeploymentGroupResponse [AutoScalingGroup]+ddgrHooksNotCleanedUp =+    lens _ddgrHooksNotCleanedUp (\s a -> s { _ddgrHooksNotCleanedUp = a })+        . _List++instance ToPath DeleteDeploymentGroup where+    toPath = const "/"++instance ToQuery DeleteDeploymentGroup where+    toQuery = const mempty++instance ToHeaders DeleteDeploymentGroup++instance ToJSON DeleteDeploymentGroup where+    toJSON DeleteDeploymentGroup{..} = object+        [ "applicationName"     .= _ddgApplicationName+        , "deploymentGroupName" .= _ddgDeploymentGroupName+        ]++instance AWSRequest DeleteDeploymentGroup where+    type Sv DeleteDeploymentGroup = CodeDeploy+    type Rs DeleteDeploymentGroup = DeleteDeploymentGroupResponse++    request  = post "DeleteDeploymentGroup"+    response = jsonResponse++instance FromJSON DeleteDeploymentGroupResponse where+    parseJSON = withObject "DeleteDeploymentGroupResponse" $ \o -> DeleteDeploymentGroupResponse+        <$> o .:  "hooksNotCleanedUp"
+ gen/Network/AWS/CodeDeploy/GetApplication.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.CodeDeploy.GetApplication+-- 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 information about an application.+--+-- <http://docs.aws.amazon.com/codedeploy/latest/APIReference/API_GetApplication.html>+module Network.AWS.CodeDeploy.GetApplication+    (+    -- * Request+      GetApplication+    -- ** Request constructor+    , getApplication+    -- ** Request lenses+    , gaApplicationName++    -- * Response+    , GetApplicationResponse+    -- ** Response constructor+    , getApplicationResponse+    -- ** Response lenses+    , garApplication+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.JSON+import Network.AWS.CodeDeploy.Types+import qualified GHC.Exts++newtype GetApplication = GetApplication+    { _gaApplicationName :: Text+    } deriving (Eq, Ord, Show, Monoid, IsString)++-- | 'GetApplication' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'gaApplicationName' @::@ 'Text'+--+getApplication :: Text -- ^ 'gaApplicationName'+               -> GetApplication+getApplication p1 = GetApplication+    { _gaApplicationName = p1+    }++-- | The name of an existing AWS CodeDeploy application within the AWS user+-- account.+gaApplicationName :: Lens' GetApplication Text+gaApplicationName =+    lens _gaApplicationName (\s a -> s { _gaApplicationName = a })++newtype GetApplicationResponse = GetApplicationResponse+    { _garApplication :: Maybe ApplicationInfo+    } deriving (Eq, Show)++-- | 'GetApplicationResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'garApplication' @::@ 'Maybe' 'ApplicationInfo'+--+getApplicationResponse :: GetApplicationResponse+getApplicationResponse = GetApplicationResponse+    { _garApplication = Nothing+    }++-- | Information about the application.+garApplication :: Lens' GetApplicationResponse (Maybe ApplicationInfo)+garApplication = lens _garApplication (\s a -> s { _garApplication = a })++instance ToPath GetApplication where+    toPath = const "/"++instance ToQuery GetApplication where+    toQuery = const mempty++instance ToHeaders GetApplication++instance ToJSON GetApplication where+    toJSON GetApplication{..} = object+        [ "applicationName" .= _gaApplicationName+        ]++instance AWSRequest GetApplication where+    type Sv GetApplication = CodeDeploy+    type Rs GetApplication = GetApplicationResponse++    request  = post "GetApplication"+    response = jsonResponse++instance FromJSON GetApplicationResponse where+    parseJSON = withObject "GetApplicationResponse" $ \o -> GetApplicationResponse+        <$> o .:? "application"
+ gen/Network/AWS/CodeDeploy/GetApplicationRevision.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.CodeDeploy.GetApplicationRevision+-- 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 information about an application revision.+--+-- <http://docs.aws.amazon.com/codedeploy/latest/APIReference/API_GetApplicationRevision.html>+module Network.AWS.CodeDeploy.GetApplicationRevision+    (+    -- * Request+      GetApplicationRevision+    -- ** Request constructor+    , getApplicationRevision+    -- ** Request lenses+    , garApplicationName+    , garRevision++    -- * Response+    , GetApplicationRevisionResponse+    -- ** Response constructor+    , getApplicationRevisionResponse+    -- ** Response lenses+    , garrApplicationName+    , garrRevision+    , garrRevisionInfo+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.JSON+import Network.AWS.CodeDeploy.Types+import qualified GHC.Exts++data GetApplicationRevision = GetApplicationRevision+    { _garApplicationName :: Text+    , _garRevision        :: RevisionLocation+    } deriving (Eq, Show)++-- | 'GetApplicationRevision' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'garApplicationName' @::@ 'Text'+--+-- * 'garRevision' @::@ 'RevisionLocation'+--+getApplicationRevision :: Text -- ^ 'garApplicationName'+                       -> RevisionLocation -- ^ 'garRevision'+                       -> GetApplicationRevision+getApplicationRevision p1 p2 = GetApplicationRevision+    { _garApplicationName = p1+    , _garRevision        = p2+    }++-- | The name of the application that corresponds to the revision.+garApplicationName :: Lens' GetApplicationRevision Text+garApplicationName =+    lens _garApplicationName (\s a -> s { _garApplicationName = a })++-- | Information about the application revision to get, including the+-- revision's type and its location.+garRevision :: Lens' GetApplicationRevision RevisionLocation+garRevision = lens _garRevision (\s a -> s { _garRevision = a })++data GetApplicationRevisionResponse = GetApplicationRevisionResponse+    { _garrApplicationName :: Maybe Text+    , _garrRevision        :: Maybe RevisionLocation+    , _garrRevisionInfo    :: Maybe GenericRevisionInfo+    } deriving (Eq, Show)++-- | 'GetApplicationRevisionResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'garrApplicationName' @::@ 'Maybe' 'Text'+--+-- * 'garrRevision' @::@ 'Maybe' 'RevisionLocation'+--+-- * 'garrRevisionInfo' @::@ 'Maybe' 'GenericRevisionInfo'+--+getApplicationRevisionResponse :: GetApplicationRevisionResponse+getApplicationRevisionResponse = GetApplicationRevisionResponse+    { _garrApplicationName = Nothing+    , _garrRevision        = Nothing+    , _garrRevisionInfo    = Nothing+    }++-- | The name of the application that corresponds to the revision.+garrApplicationName :: Lens' GetApplicationRevisionResponse (Maybe Text)+garrApplicationName =+    lens _garrApplicationName (\s a -> s { _garrApplicationName = a })++-- | Additional information about the revision, including the revision's type+-- and its location.+garrRevision :: Lens' GetApplicationRevisionResponse (Maybe RevisionLocation)+garrRevision = lens _garrRevision (\s a -> s { _garrRevision = a })++-- | General information about the revision.+garrRevisionInfo :: Lens' GetApplicationRevisionResponse (Maybe GenericRevisionInfo)+garrRevisionInfo = lens _garrRevisionInfo (\s a -> s { _garrRevisionInfo = a })++instance ToPath GetApplicationRevision where+    toPath = const "/"++instance ToQuery GetApplicationRevision where+    toQuery = const mempty++instance ToHeaders GetApplicationRevision++instance ToJSON GetApplicationRevision where+    toJSON GetApplicationRevision{..} = object+        [ "applicationName" .= _garApplicationName+        , "revision"        .= _garRevision+        ]++instance AWSRequest GetApplicationRevision where+    type Sv GetApplicationRevision = CodeDeploy+    type Rs GetApplicationRevision = GetApplicationRevisionResponse++    request  = post "GetApplicationRevision"+    response = jsonResponse++instance FromJSON GetApplicationRevisionResponse where+    parseJSON = withObject "GetApplicationRevisionResponse" $ \o -> GetApplicationRevisionResponse+        <$> o .:? "applicationName"+        <*> o .:? "revision"+        <*> o .:? "revisionInfo"
+ gen/Network/AWS/CodeDeploy/GetDeployment.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.CodeDeploy.GetDeployment+-- 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 information about a deployment.+--+-- <http://docs.aws.amazon.com/codedeploy/latest/APIReference/API_GetDeployment.html>+module Network.AWS.CodeDeploy.GetDeployment+    (+    -- * Request+      GetDeployment+    -- ** Request constructor+    , getDeployment+    -- ** Request lenses+    , gdDeploymentId++    -- * Response+    , GetDeploymentResponse+    -- ** Response constructor+    , getDeploymentResponse+    -- ** Response lenses+    , gdrDeploymentInfo+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.JSON+import Network.AWS.CodeDeploy.Types+import qualified GHC.Exts++newtype GetDeployment = GetDeployment+    { _gdDeploymentId :: Text+    } deriving (Eq, Ord, Show, Monoid, IsString)++-- | 'GetDeployment' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'gdDeploymentId' @::@ 'Text'+--+getDeployment :: Text -- ^ 'gdDeploymentId'+              -> GetDeployment+getDeployment p1 = GetDeployment+    { _gdDeploymentId = p1+    }++-- | An existing deployment ID within the AWS user account.+gdDeploymentId :: Lens' GetDeployment Text+gdDeploymentId = lens _gdDeploymentId (\s a -> s { _gdDeploymentId = a })++newtype GetDeploymentResponse = GetDeploymentResponse+    { _gdrDeploymentInfo :: Maybe DeploymentInfo+    } deriving (Eq, Show)++-- | 'GetDeploymentResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'gdrDeploymentInfo' @::@ 'Maybe' 'DeploymentInfo'+--+getDeploymentResponse :: GetDeploymentResponse+getDeploymentResponse = GetDeploymentResponse+    { _gdrDeploymentInfo = Nothing+    }++-- | Information about the deployment.+gdrDeploymentInfo :: Lens' GetDeploymentResponse (Maybe DeploymentInfo)+gdrDeploymentInfo =+    lens _gdrDeploymentInfo (\s a -> s { _gdrDeploymentInfo = a })++instance ToPath GetDeployment where+    toPath = const "/"++instance ToQuery GetDeployment where+    toQuery = const mempty++instance ToHeaders GetDeployment++instance ToJSON GetDeployment where+    toJSON GetDeployment{..} = object+        [ "deploymentId" .= _gdDeploymentId+        ]++instance AWSRequest GetDeployment where+    type Sv GetDeployment = CodeDeploy+    type Rs GetDeployment = GetDeploymentResponse++    request  = post "GetDeployment"+    response = jsonResponse++instance FromJSON GetDeploymentResponse where+    parseJSON = withObject "GetDeploymentResponse" $ \o -> GetDeploymentResponse+        <$> o .:? "deploymentInfo"
+ gen/Network/AWS/CodeDeploy/GetDeploymentConfig.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.CodeDeploy.GetDeploymentConfig+-- 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 information about a deployment configuration.+--+-- <http://docs.aws.amazon.com/codedeploy/latest/APIReference/API_GetDeploymentConfig.html>+module Network.AWS.CodeDeploy.GetDeploymentConfig+    (+    -- * Request+      GetDeploymentConfig+    -- ** Request constructor+    , getDeploymentConfig+    -- ** Request lenses+    , gdcDeploymentConfigName++    -- * Response+    , GetDeploymentConfigResponse+    -- ** Response constructor+    , getDeploymentConfigResponse+    -- ** Response lenses+    , gdcrDeploymentConfigInfo+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.JSON+import Network.AWS.CodeDeploy.Types+import qualified GHC.Exts++newtype GetDeploymentConfig = GetDeploymentConfig+    { _gdcDeploymentConfigName :: Text+    } deriving (Eq, Ord, Show, Monoid, IsString)++-- | 'GetDeploymentConfig' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'gdcDeploymentConfigName' @::@ 'Text'+--+getDeploymentConfig :: Text -- ^ 'gdcDeploymentConfigName'+                    -> GetDeploymentConfig+getDeploymentConfig p1 = GetDeploymentConfig+    { _gdcDeploymentConfigName = p1+    }++-- | The name of an existing deployment configuration within the AWS user+-- account.+gdcDeploymentConfigName :: Lens' GetDeploymentConfig Text+gdcDeploymentConfigName =+    lens _gdcDeploymentConfigName (\s a -> s { _gdcDeploymentConfigName = a })++newtype GetDeploymentConfigResponse = GetDeploymentConfigResponse+    { _gdcrDeploymentConfigInfo :: Maybe DeploymentConfigInfo+    } deriving (Eq, Show)++-- | 'GetDeploymentConfigResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'gdcrDeploymentConfigInfo' @::@ 'Maybe' 'DeploymentConfigInfo'+--+getDeploymentConfigResponse :: GetDeploymentConfigResponse+getDeploymentConfigResponse = GetDeploymentConfigResponse+    { _gdcrDeploymentConfigInfo = Nothing+    }++-- | Information about the deployment configuration.+gdcrDeploymentConfigInfo :: Lens' GetDeploymentConfigResponse (Maybe DeploymentConfigInfo)+gdcrDeploymentConfigInfo =+    lens _gdcrDeploymentConfigInfo+        (\s a -> s { _gdcrDeploymentConfigInfo = a })++instance ToPath GetDeploymentConfig where+    toPath = const "/"++instance ToQuery GetDeploymentConfig where+    toQuery = const mempty++instance ToHeaders GetDeploymentConfig++instance ToJSON GetDeploymentConfig where+    toJSON GetDeploymentConfig{..} = object+        [ "deploymentConfigName" .= _gdcDeploymentConfigName+        ]++instance AWSRequest GetDeploymentConfig where+    type Sv GetDeploymentConfig = CodeDeploy+    type Rs GetDeploymentConfig = GetDeploymentConfigResponse++    request  = post "GetDeploymentConfig"+    response = jsonResponse++instance FromJSON GetDeploymentConfigResponse where+    parseJSON = withObject "GetDeploymentConfigResponse" $ \o -> GetDeploymentConfigResponse+        <$> o .:? "deploymentConfigInfo"
+ gen/Network/AWS/CodeDeploy/GetDeploymentGroup.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.CodeDeploy.GetDeploymentGroup+-- 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 information about a deployment group.+--+-- <http://docs.aws.amazon.com/codedeploy/latest/APIReference/API_GetDeploymentGroup.html>+module Network.AWS.CodeDeploy.GetDeploymentGroup+    (+    -- * Request+      GetDeploymentGroup+    -- ** Request constructor+    , getDeploymentGroup+    -- ** Request lenses+    , gdgApplicationName+    , gdgDeploymentGroupName++    -- * Response+    , GetDeploymentGroupResponse+    -- ** Response constructor+    , getDeploymentGroupResponse+    -- ** Response lenses+    , gdgrDeploymentGroupInfo+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.JSON+import Network.AWS.CodeDeploy.Types+import qualified GHC.Exts++data GetDeploymentGroup = GetDeploymentGroup+    { _gdgApplicationName     :: Text+    , _gdgDeploymentGroupName :: Text+    } deriving (Eq, Ord, Show)++-- | 'GetDeploymentGroup' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'gdgApplicationName' @::@ 'Text'+--+-- * 'gdgDeploymentGroupName' @::@ 'Text'+--+getDeploymentGroup :: Text -- ^ 'gdgApplicationName'+                   -> Text -- ^ 'gdgDeploymentGroupName'+                   -> GetDeploymentGroup+getDeploymentGroup p1 p2 = GetDeploymentGroup+    { _gdgApplicationName     = p1+    , _gdgDeploymentGroupName = p2+    }++-- | The name of an existing AWS CodeDeploy application within the AWS user+-- account.+gdgApplicationName :: Lens' GetDeploymentGroup Text+gdgApplicationName =+    lens _gdgApplicationName (\s a -> s { _gdgApplicationName = a })++-- | The name of an existing deployment group for the specified application.+gdgDeploymentGroupName :: Lens' GetDeploymentGroup Text+gdgDeploymentGroupName =+    lens _gdgDeploymentGroupName (\s a -> s { _gdgDeploymentGroupName = a })++newtype GetDeploymentGroupResponse = GetDeploymentGroupResponse+    { _gdgrDeploymentGroupInfo :: Maybe DeploymentGroupInfo+    } deriving (Eq, Show)++-- | 'GetDeploymentGroupResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'gdgrDeploymentGroupInfo' @::@ 'Maybe' 'DeploymentGroupInfo'+--+getDeploymentGroupResponse :: GetDeploymentGroupResponse+getDeploymentGroupResponse = GetDeploymentGroupResponse+    { _gdgrDeploymentGroupInfo = Nothing+    }++-- | Information about the deployment group.+gdgrDeploymentGroupInfo :: Lens' GetDeploymentGroupResponse (Maybe DeploymentGroupInfo)+gdgrDeploymentGroupInfo =+    lens _gdgrDeploymentGroupInfo (\s a -> s { _gdgrDeploymentGroupInfo = a })++instance ToPath GetDeploymentGroup where+    toPath = const "/"++instance ToQuery GetDeploymentGroup where+    toQuery = const mempty++instance ToHeaders GetDeploymentGroup++instance ToJSON GetDeploymentGroup where+    toJSON GetDeploymentGroup{..} = object+        [ "applicationName"     .= _gdgApplicationName+        , "deploymentGroupName" .= _gdgDeploymentGroupName+        ]++instance AWSRequest GetDeploymentGroup where+    type Sv GetDeploymentGroup = CodeDeploy+    type Rs GetDeploymentGroup = GetDeploymentGroupResponse++    request  = post "GetDeploymentGroup"+    response = jsonResponse++instance FromJSON GetDeploymentGroupResponse where+    parseJSON = withObject "GetDeploymentGroupResponse" $ \o -> GetDeploymentGroupResponse+        <$> o .:? "deploymentGroupInfo"
+ gen/Network/AWS/CodeDeploy/GetDeploymentInstance.hs view
@@ -0,0 +1,122 @@+{-# 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.CodeDeploy.GetDeploymentInstance+-- 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 information about an Amazon EC2 instance as part of a deployment.+--+-- <http://docs.aws.amazon.com/codedeploy/latest/APIReference/API_GetDeploymentInstance.html>+module Network.AWS.CodeDeploy.GetDeploymentInstance+    (+    -- * Request+      GetDeploymentInstance+    -- ** Request constructor+    , getDeploymentInstance+    -- ** Request lenses+    , gdiDeploymentId+    , gdiInstanceId++    -- * Response+    , GetDeploymentInstanceResponse+    -- ** Response constructor+    , getDeploymentInstanceResponse+    -- ** Response lenses+    , gdirInstanceSummary+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.JSON+import Network.AWS.CodeDeploy.Types+import qualified GHC.Exts++data GetDeploymentInstance = GetDeploymentInstance+    { _gdiDeploymentId :: Text+    , _gdiInstanceId   :: Text+    } deriving (Eq, Ord, Show)++-- | 'GetDeploymentInstance' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'gdiDeploymentId' @::@ 'Text'+--+-- * 'gdiInstanceId' @::@ 'Text'+--+getDeploymentInstance :: Text -- ^ 'gdiDeploymentId'+                      -> Text -- ^ 'gdiInstanceId'+                      -> GetDeploymentInstance+getDeploymentInstance p1 p2 = GetDeploymentInstance+    { _gdiDeploymentId = p1+    , _gdiInstanceId   = p2+    }++-- | The unique ID of a deployment.+gdiDeploymentId :: Lens' GetDeploymentInstance Text+gdiDeploymentId = lens _gdiDeploymentId (\s a -> s { _gdiDeploymentId = a })++-- | The unique ID of an Amazon EC2 instance in the deployment's deployment+-- group.+gdiInstanceId :: Lens' GetDeploymentInstance Text+gdiInstanceId = lens _gdiInstanceId (\s a -> s { _gdiInstanceId = a })++newtype GetDeploymentInstanceResponse = GetDeploymentInstanceResponse+    { _gdirInstanceSummary :: Maybe InstanceSummary+    } deriving (Eq, Show)++-- | 'GetDeploymentInstanceResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'gdirInstanceSummary' @::@ 'Maybe' 'InstanceSummary'+--+getDeploymentInstanceResponse :: GetDeploymentInstanceResponse+getDeploymentInstanceResponse = GetDeploymentInstanceResponse+    { _gdirInstanceSummary = Nothing+    }++-- | Information about the instance.+gdirInstanceSummary :: Lens' GetDeploymentInstanceResponse (Maybe InstanceSummary)+gdirInstanceSummary =+    lens _gdirInstanceSummary (\s a -> s { _gdirInstanceSummary = a })++instance ToPath GetDeploymentInstance where+    toPath = const "/"++instance ToQuery GetDeploymentInstance where+    toQuery = const mempty++instance ToHeaders GetDeploymentInstance++instance ToJSON GetDeploymentInstance where+    toJSON GetDeploymentInstance{..} = object+        [ "deploymentId" .= _gdiDeploymentId+        , "instanceId"   .= _gdiInstanceId+        ]++instance AWSRequest GetDeploymentInstance where+    type Sv GetDeploymentInstance = CodeDeploy+    type Rs GetDeploymentInstance = GetDeploymentInstanceResponse++    request  = post "GetDeploymentInstance"+    response = jsonResponse++instance FromJSON GetDeploymentInstanceResponse where+    parseJSON = withObject "GetDeploymentInstanceResponse" $ \o -> GetDeploymentInstanceResponse+        <$> o .:? "instanceSummary"
+ gen/Network/AWS/CodeDeploy/ListApplicationRevisions.hs view
@@ -0,0 +1,200 @@+{-# 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.CodeDeploy.ListApplicationRevisions+-- 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)++-- | Lists information about revisions for an application.+--+-- <http://docs.aws.amazon.com/codedeploy/latest/APIReference/API_ListApplicationRevisions.html>+module Network.AWS.CodeDeploy.ListApplicationRevisions+    (+    -- * Request+      ListApplicationRevisions+    -- ** Request constructor+    , listApplicationRevisions+    -- ** Request lenses+    , larApplicationName+    , larDeployed+    , larNextToken+    , larS3Bucket+    , larS3KeyPrefix+    , larSortBy+    , larSortOrder++    -- * Response+    , ListApplicationRevisionsResponse+    -- ** Response constructor+    , listApplicationRevisionsResponse+    -- ** Response lenses+    , larrNextToken+    , larrRevisions+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.JSON+import Network.AWS.CodeDeploy.Types+import qualified GHC.Exts++data ListApplicationRevisions = ListApplicationRevisions+    { _larApplicationName :: Text+    , _larDeployed        :: Maybe Text+    , _larNextToken       :: Maybe Text+    , _larS3Bucket        :: Maybe Text+    , _larS3KeyPrefix     :: Maybe Text+    , _larSortBy          :: Maybe Text+    , _larSortOrder       :: Maybe Text+    } deriving (Eq, Ord, Show)++-- | 'ListApplicationRevisions' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'larApplicationName' @::@ 'Text'+--+-- * 'larDeployed' @::@ 'Maybe' 'Text'+--+-- * 'larNextToken' @::@ 'Maybe' 'Text'+--+-- * 'larS3Bucket' @::@ 'Maybe' 'Text'+--+-- * 'larS3KeyPrefix' @::@ 'Maybe' 'Text'+--+-- * 'larSortBy' @::@ 'Maybe' 'Text'+--+-- * 'larSortOrder' @::@ 'Maybe' 'Text'+--+listApplicationRevisions :: Text -- ^ 'larApplicationName'+                         -> ListApplicationRevisions+listApplicationRevisions p1 = ListApplicationRevisions+    { _larApplicationName = p1+    , _larSortBy          = Nothing+    , _larSortOrder       = Nothing+    , _larS3Bucket        = Nothing+    , _larS3KeyPrefix     = Nothing+    , _larDeployed        = Nothing+    , _larNextToken       = Nothing+    }++-- | The name of an existing AWS CodeDeploy application within the AWS user+-- account.+larApplicationName :: Lens' ListApplicationRevisions Text+larApplicationName =+    lens _larApplicationName (\s a -> s { _larApplicationName = a })++-- | Whether to list revisions based on whether the revision is the target+-- revision of an deployment group: include: List revisions that are target+-- revisions of a deployment group. exclude: Do not list revisions that are+-- target revisions of a deployment group. ignore: List all revisions,+-- regardless of whether they are target revisions of a deployment group.+larDeployed :: Lens' ListApplicationRevisions (Maybe Text)+larDeployed = lens _larDeployed (\s a -> s { _larDeployed = a })++-- | An identifier that was returned from the previous list application+-- revisions call, which can be used to return the next set of applications+-- in the list.+larNextToken :: Lens' ListApplicationRevisions (Maybe Text)+larNextToken = lens _larNextToken (\s a -> s { _larNextToken = a })++-- | A specific Amazon S3 bucket name to limit the search for revisions. If+-- set to null, then all of the user's buckets will be searched.+larS3Bucket :: Lens' ListApplicationRevisions (Maybe Text)+larS3Bucket = lens _larS3Bucket (\s a -> s { _larS3Bucket = a })++-- | A specific key prefix for the set of Amazon S3 objects to limit the+-- search for revisions.+larS3KeyPrefix :: Lens' ListApplicationRevisions (Maybe Text)+larS3KeyPrefix = lens _larS3KeyPrefix (\s a -> s { _larS3KeyPrefix = a })++-- | The column name to sort the list results by: registerTime: Sort the list+-- results by when the revisions were registered with AWS CodeDeploy.+-- firstUsedTime: Sort the list results by when the revisions were first+-- used by in a deployment. lastUsedTime: Sort the list results by when the+-- revisions were last used in a deployment. If not specified or set to+-- null, the results will be returned in an arbitrary order.+larSortBy :: Lens' ListApplicationRevisions (Maybe Text)+larSortBy = lens _larSortBy (\s a -> s { _larSortBy = a })++-- | The order to sort the list results by: ascending: Sort the list results+-- in ascending order. descending: Sort the list results in descending+-- order. If not specified, the results will be sorted in ascending order.+-- If set to null, the results will be sorted in an arbitrary order.+larSortOrder :: Lens' ListApplicationRevisions (Maybe Text)+larSortOrder = lens _larSortOrder (\s a -> s { _larSortOrder = a })++data ListApplicationRevisionsResponse = ListApplicationRevisionsResponse+    { _larrNextToken :: Maybe Text+    , _larrRevisions :: List "revisions" RevisionLocation+    } deriving (Eq, Show)++-- | 'ListApplicationRevisionsResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'larrNextToken' @::@ 'Maybe' 'Text'+--+-- * 'larrRevisions' @::@ ['RevisionLocation']+--+listApplicationRevisionsResponse :: ListApplicationRevisionsResponse+listApplicationRevisionsResponse = ListApplicationRevisionsResponse+    { _larrRevisions = mempty+    , _larrNextToken = Nothing+    }++-- | If the amount of information that is returned is significantly large, an+-- identifier will also be returned, which can be used in a subsequent list+-- application revisions call to return the next set of application+-- revisions in the list.+larrNextToken :: Lens' ListApplicationRevisionsResponse (Maybe Text)+larrNextToken = lens _larrNextToken (\s a -> s { _larrNextToken = a })++-- | A list of revision locations that contain the matching revisions.+larrRevisions :: Lens' ListApplicationRevisionsResponse [RevisionLocation]+larrRevisions = lens _larrRevisions (\s a -> s { _larrRevisions = a }) . _List++instance ToPath ListApplicationRevisions where+    toPath = const "/"++instance ToQuery ListApplicationRevisions where+    toQuery = const mempty++instance ToHeaders ListApplicationRevisions++instance ToJSON ListApplicationRevisions where+    toJSON ListApplicationRevisions{..} = object+        [ "applicationName" .= _larApplicationName+        , "sortBy"          .= _larSortBy+        , "sortOrder"       .= _larSortOrder+        , "s3Bucket"        .= _larS3Bucket+        , "s3KeyPrefix"     .= _larS3KeyPrefix+        , "deployed"        .= _larDeployed+        , "nextToken"       .= _larNextToken+        ]++instance AWSRequest ListApplicationRevisions where+    type Sv ListApplicationRevisions = CodeDeploy+    type Rs ListApplicationRevisions = ListApplicationRevisionsResponse++    request  = post "ListApplicationRevisions"+    response = jsonResponse++instance FromJSON ListApplicationRevisionsResponse where+    parseJSON = withObject "ListApplicationRevisionsResponse" $ \o -> ListApplicationRevisionsResponse+        <$> o .:? "nextToken"+        <*> o .:  "revisions"
+ gen/Network/AWS/CodeDeploy/ListApplications.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.CodeDeploy.ListApplications+-- 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)++-- | Lists the applications registered within the AWS user account.+--+-- <http://docs.aws.amazon.com/codedeploy/latest/APIReference/API_ListApplications.html>+module Network.AWS.CodeDeploy.ListApplications+    (+    -- * Request+      ListApplications+    -- ** Request constructor+    , listApplications+    -- ** Request lenses+    , laNextToken++    -- * Response+    , ListApplicationsResponse+    -- ** Response constructor+    , listApplicationsResponse+    -- ** Response lenses+    , lar1Applications+    , lar1NextToken+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.JSON+import Network.AWS.CodeDeploy.Types+import qualified GHC.Exts++newtype ListApplications = ListApplications+    { _laNextToken :: Maybe Text+    } deriving (Eq, Ord, Show, Monoid)++-- | 'ListApplications' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'laNextToken' @::@ 'Maybe' 'Text'+--+listApplications :: ListApplications+listApplications = ListApplications+    { _laNextToken = Nothing+    }++-- | An identifier that was returned from the previous list applications call,+-- which can be used to return the next set of applications in the list.+laNextToken :: Lens' ListApplications (Maybe Text)+laNextToken = lens _laNextToken (\s a -> s { _laNextToken = a })++data ListApplicationsResponse = ListApplicationsResponse+    { _lar1Applications :: List "applications" Text+    , _lar1NextToken    :: Maybe Text+    } deriving (Eq, Ord, Show)++-- | 'ListApplicationsResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'lar1Applications' @::@ ['Text']+--+-- * 'lar1NextToken' @::@ 'Maybe' 'Text'+--+listApplicationsResponse :: ListApplicationsResponse+listApplicationsResponse = ListApplicationsResponse+    { _lar1Applications = mempty+    , _lar1NextToken    = Nothing+    }++-- | A list of application names.+lar1Applications :: Lens' ListApplicationsResponse [Text]+lar1Applications = lens _lar1Applications (\s a -> s { _lar1Applications = a }) . _List++-- | If the amount of information that is returned is significantly large, an+-- identifier will also be returned, which can be used in a subsequent list+-- applications call to return the next set of applications in the list.+lar1NextToken :: Lens' ListApplicationsResponse (Maybe Text)+lar1NextToken = lens _lar1NextToken (\s a -> s { _lar1NextToken = a })++instance ToPath ListApplications where+    toPath = const "/"++instance ToQuery ListApplications where+    toQuery = const mempty++instance ToHeaders ListApplications++instance ToJSON ListApplications where+    toJSON ListApplications{..} = object+        [ "nextToken" .= _laNextToken+        ]++instance AWSRequest ListApplications where+    type Sv ListApplications = CodeDeploy+    type Rs ListApplications = ListApplicationsResponse++    request  = post "ListApplications"+    response = jsonResponse++instance FromJSON ListApplicationsResponse where+    parseJSON = withObject "ListApplicationsResponse" $ \o -> ListApplicationsResponse+        <$> o .:  "applications"+        <*> o .:? "nextToken"
+ gen/Network/AWS/CodeDeploy/ListDeploymentConfigs.hs view
@@ -0,0 +1,127 @@+{-# 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.CodeDeploy.ListDeploymentConfigs+-- 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)++-- | Lists the deployment configurations within the AWS user account.+--+-- <http://docs.aws.amazon.com/codedeploy/latest/APIReference/API_ListDeploymentConfigs.html>+module Network.AWS.CodeDeploy.ListDeploymentConfigs+    (+    -- * Request+      ListDeploymentConfigs+    -- ** Request constructor+    , listDeploymentConfigs+    -- ** Request lenses+    , ldcNextToken++    -- * Response+    , ListDeploymentConfigsResponse+    -- ** Response constructor+    , listDeploymentConfigsResponse+    -- ** Response lenses+    , ldcrDeploymentConfigsList+    , ldcrNextToken+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.JSON+import Network.AWS.CodeDeploy.Types+import qualified GHC.Exts++newtype ListDeploymentConfigs = ListDeploymentConfigs+    { _ldcNextToken :: Maybe Text+    } deriving (Eq, Ord, Show, Monoid)++-- | 'ListDeploymentConfigs' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'ldcNextToken' @::@ 'Maybe' 'Text'+--+listDeploymentConfigs :: ListDeploymentConfigs+listDeploymentConfigs = ListDeploymentConfigs+    { _ldcNextToken = Nothing+    }++-- | An identifier that was returned from the previous list deployment+-- configurations call, which can be used to return the next set of+-- deployment configurations in the list.+ldcNextToken :: Lens' ListDeploymentConfigs (Maybe Text)+ldcNextToken = lens _ldcNextToken (\s a -> s { _ldcNextToken = a })++data ListDeploymentConfigsResponse = ListDeploymentConfigsResponse+    { _ldcrDeploymentConfigsList :: List "deploymentConfigsList" Text+    , _ldcrNextToken             :: Maybe Text+    } deriving (Eq, Ord, Show)++-- | 'ListDeploymentConfigsResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'ldcrDeploymentConfigsList' @::@ ['Text']+--+-- * 'ldcrNextToken' @::@ 'Maybe' 'Text'+--+listDeploymentConfigsResponse :: ListDeploymentConfigsResponse+listDeploymentConfigsResponse = ListDeploymentConfigsResponse+    { _ldcrDeploymentConfigsList = mempty+    , _ldcrNextToken             = Nothing+    }++-- | A list of deployment configurations, including the built-in+-- configurations such as CodeDeployDefault.OneAtATime.+ldcrDeploymentConfigsList :: Lens' ListDeploymentConfigsResponse [Text]+ldcrDeploymentConfigsList =+    lens _ldcrDeploymentConfigsList+        (\s a -> s { _ldcrDeploymentConfigsList = a })+            . _List++-- | If the amount of information that is returned is significantly large, an+-- identifier will also be returned, which can be used in a subsequent list+-- deployment configurations call to return the next set of deployment+-- configurations in the list.+ldcrNextToken :: Lens' ListDeploymentConfigsResponse (Maybe Text)+ldcrNextToken = lens _ldcrNextToken (\s a -> s { _ldcrNextToken = a })++instance ToPath ListDeploymentConfigs where+    toPath = const "/"++instance ToQuery ListDeploymentConfigs where+    toQuery = const mempty++instance ToHeaders ListDeploymentConfigs++instance ToJSON ListDeploymentConfigs where+    toJSON ListDeploymentConfigs{..} = object+        [ "nextToken" .= _ldcNextToken+        ]++instance AWSRequest ListDeploymentConfigs where+    type Sv ListDeploymentConfigs = CodeDeploy+    type Rs ListDeploymentConfigs = ListDeploymentConfigsResponse++    request  = post "ListDeploymentConfigs"+    response = jsonResponse++instance FromJSON ListDeploymentConfigsResponse where+    parseJSON = withObject "ListDeploymentConfigsResponse" $ \o -> ListDeploymentConfigsResponse+        <$> o .:  "deploymentConfigsList"+        <*> o .:? "nextToken"
+ gen/Network/AWS/CodeDeploy/ListDeploymentGroups.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.CodeDeploy.ListDeploymentGroups+-- 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)++-- | Lists the deployment groups for an application registered within the AWS+-- user account.+--+-- <http://docs.aws.amazon.com/codedeploy/latest/APIReference/API_ListDeploymentGroups.html>+module Network.AWS.CodeDeploy.ListDeploymentGroups+    (+    -- * Request+      ListDeploymentGroups+    -- ** Request constructor+    , listDeploymentGroups+    -- ** Request lenses+    , ldgApplicationName+    , ldgNextToken++    -- * Response+    , ListDeploymentGroupsResponse+    -- ** Response constructor+    , listDeploymentGroupsResponse+    -- ** Response lenses+    , ldgrApplicationName+    , ldgrDeploymentGroups+    , ldgrNextToken+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.JSON+import Network.AWS.CodeDeploy.Types+import qualified GHC.Exts++data ListDeploymentGroups = ListDeploymentGroups+    { _ldgApplicationName :: Text+    , _ldgNextToken       :: Maybe Text+    } deriving (Eq, Ord, Show)++-- | 'ListDeploymentGroups' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'ldgApplicationName' @::@ 'Text'+--+-- * 'ldgNextToken' @::@ 'Maybe' 'Text'+--+listDeploymentGroups :: Text -- ^ 'ldgApplicationName'+                     -> ListDeploymentGroups+listDeploymentGroups p1 = ListDeploymentGroups+    { _ldgApplicationName = p1+    , _ldgNextToken       = Nothing+    }++-- | The name of an existing AWS CodeDeploy application within the AWS user+-- account.+ldgApplicationName :: Lens' ListDeploymentGroups Text+ldgApplicationName =+    lens _ldgApplicationName (\s a -> s { _ldgApplicationName = a })++-- | An identifier that was returned from the previous list deployment groups+-- call, which can be used to return the next set of deployment groups in+-- the list.+ldgNextToken :: Lens' ListDeploymentGroups (Maybe Text)+ldgNextToken = lens _ldgNextToken (\s a -> s { _ldgNextToken = a })++data ListDeploymentGroupsResponse = ListDeploymentGroupsResponse+    { _ldgrApplicationName  :: Maybe Text+    , _ldgrDeploymentGroups :: List "deploymentGroups" Text+    , _ldgrNextToken        :: Maybe Text+    } deriving (Eq, Ord, Show)++-- | 'ListDeploymentGroupsResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'ldgrApplicationName' @::@ 'Maybe' 'Text'+--+-- * 'ldgrDeploymentGroups' @::@ ['Text']+--+-- * 'ldgrNextToken' @::@ 'Maybe' 'Text'+--+listDeploymentGroupsResponse :: ListDeploymentGroupsResponse+listDeploymentGroupsResponse = ListDeploymentGroupsResponse+    { _ldgrApplicationName  = Nothing+    , _ldgrDeploymentGroups = mempty+    , _ldgrNextToken        = Nothing+    }++-- | The application name.+ldgrApplicationName :: Lens' ListDeploymentGroupsResponse (Maybe Text)+ldgrApplicationName =+    lens _ldgrApplicationName (\s a -> s { _ldgrApplicationName = a })++-- | A list of corresponding deployment group names.+ldgrDeploymentGroups :: Lens' ListDeploymentGroupsResponse [Text]+ldgrDeploymentGroups =+    lens _ldgrDeploymentGroups (\s a -> s { _ldgrDeploymentGroups = a })+        . _List++-- | If the amount of information that is returned is significantly large, an+-- identifier will also be returned, which can be used in a subsequent list+-- deployment groups call to return the next set of deployment groups in the+-- list.+ldgrNextToken :: Lens' ListDeploymentGroupsResponse (Maybe Text)+ldgrNextToken = lens _ldgrNextToken (\s a -> s { _ldgrNextToken = a })++instance ToPath ListDeploymentGroups where+    toPath = const "/"++instance ToQuery ListDeploymentGroups where+    toQuery = const mempty++instance ToHeaders ListDeploymentGroups++instance ToJSON ListDeploymentGroups where+    toJSON ListDeploymentGroups{..} = object+        [ "applicationName" .= _ldgApplicationName+        , "nextToken"       .= _ldgNextToken+        ]++instance AWSRequest ListDeploymentGroups where+    type Sv ListDeploymentGroups = CodeDeploy+    type Rs ListDeploymentGroups = ListDeploymentGroupsResponse++    request  = post "ListDeploymentGroups"+    response = jsonResponse++instance FromJSON ListDeploymentGroupsResponse where+    parseJSON = withObject "ListDeploymentGroupsResponse" $ \o -> ListDeploymentGroupsResponse+        <$> o .:? "applicationName"+        <*> o .:  "deploymentGroups"+        <*> o .:? "nextToken"
+ gen/Network/AWS/CodeDeploy/ListDeploymentInstances.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.CodeDeploy.ListDeploymentInstances+-- 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)++-- | Lists the Amazon EC2 instances for a deployment within the AWS user+-- account.+--+-- <http://docs.aws.amazon.com/codedeploy/latest/APIReference/API_ListDeploymentInstances.html>+module Network.AWS.CodeDeploy.ListDeploymentInstances+    (+    -- * Request+      ListDeploymentInstances+    -- ** Request constructor+    , listDeploymentInstances+    -- ** Request lenses+    , ldiDeploymentId+    , ldiInstanceStatusFilter+    , ldiNextToken++    -- * Response+    , ListDeploymentInstancesResponse+    -- ** Response constructor+    , listDeploymentInstancesResponse+    -- ** Response lenses+    , ldirInstancesList+    , ldirNextToken+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.JSON+import Network.AWS.CodeDeploy.Types+import qualified GHC.Exts++data ListDeploymentInstances = ListDeploymentInstances+    { _ldiDeploymentId         :: Text+    , _ldiInstanceStatusFilter :: List "instanceStatusFilter" Text+    , _ldiNextToken            :: Maybe Text+    } deriving (Eq, Ord, Show)++-- | 'ListDeploymentInstances' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'ldiDeploymentId' @::@ 'Text'+--+-- * 'ldiInstanceStatusFilter' @::@ ['Text']+--+-- * 'ldiNextToken' @::@ 'Maybe' 'Text'+--+listDeploymentInstances :: Text -- ^ 'ldiDeploymentId'+                        -> ListDeploymentInstances+listDeploymentInstances p1 = ListDeploymentInstances+    { _ldiDeploymentId         = p1+    , _ldiNextToken            = Nothing+    , _ldiInstanceStatusFilter = mempty+    }++-- | The unique ID of a deployment.+ldiDeploymentId :: Lens' ListDeploymentInstances Text+ldiDeploymentId = lens _ldiDeploymentId (\s a -> s { _ldiDeploymentId = a })++-- | A subset of instances to list, by status: Pending: Include in the+-- resulting list those instances with pending deployments. InProgress:+-- Include in the resulting list those instances with in-progress+-- deployments. Succeeded: Include in the resulting list those instances+-- with succeeded deployments. Failed: Include in the resulting list those+-- instances with failed deployments. Skipped: Include in the resulting list+-- those instances with skipped deployments. Unknown: Include in the+-- resulting list those instances with deployments in an unknown state.+ldiInstanceStatusFilter :: Lens' ListDeploymentInstances [Text]+ldiInstanceStatusFilter =+    lens _ldiInstanceStatusFilter (\s a -> s { _ldiInstanceStatusFilter = a })+        . _List++-- | An identifier that was returned from the previous list deployment+-- instances call, which can be used to return the next set of deployment+-- instances in the list.+ldiNextToken :: Lens' ListDeploymentInstances (Maybe Text)+ldiNextToken = lens _ldiNextToken (\s a -> s { _ldiNextToken = a })++data ListDeploymentInstancesResponse = ListDeploymentInstancesResponse+    { _ldirInstancesList :: List "instancesList" Text+    , _ldirNextToken     :: Maybe Text+    } deriving (Eq, Ord, Show)++-- | 'ListDeploymentInstancesResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'ldirInstancesList' @::@ ['Text']+--+-- * 'ldirNextToken' @::@ 'Maybe' 'Text'+--+listDeploymentInstancesResponse :: ListDeploymentInstancesResponse+listDeploymentInstancesResponse = ListDeploymentInstancesResponse+    { _ldirInstancesList = mempty+    , _ldirNextToken     = Nothing+    }++-- | A list of instance IDs.+ldirInstancesList :: Lens' ListDeploymentInstancesResponse [Text]+ldirInstancesList =+    lens _ldirInstancesList (\s a -> s { _ldirInstancesList = a })+        . _List++-- | If the amount of information that is returned is significantly large, an+-- identifier will also be returned, which can be used in a subsequent list+-- deployment instances call to return the next set of deployment instances+-- in the list.+ldirNextToken :: Lens' ListDeploymentInstancesResponse (Maybe Text)+ldirNextToken = lens _ldirNextToken (\s a -> s { _ldirNextToken = a })++instance ToPath ListDeploymentInstances where+    toPath = const "/"++instance ToQuery ListDeploymentInstances where+    toQuery = const mempty++instance ToHeaders ListDeploymentInstances++instance ToJSON ListDeploymentInstances where+    toJSON ListDeploymentInstances{..} = object+        [ "deploymentId"         .= _ldiDeploymentId+        , "nextToken"            .= _ldiNextToken+        , "instanceStatusFilter" .= _ldiInstanceStatusFilter+        ]++instance AWSRequest ListDeploymentInstances where+    type Sv ListDeploymentInstances = CodeDeploy+    type Rs ListDeploymentInstances = ListDeploymentInstancesResponse++    request  = post "ListDeploymentInstances"+    response = jsonResponse++instance FromJSON ListDeploymentInstancesResponse where+    parseJSON = withObject "ListDeploymentInstancesResponse" $ \o -> ListDeploymentInstancesResponse+        <$> o .:  "instancesList"+        <*> o .:? "nextToken"
+ gen/Network/AWS/CodeDeploy/ListDeployments.hs view
@@ -0,0 +1,174 @@+{-# 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.CodeDeploy.ListDeployments+-- 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)++-- | Lists the deployments under a deployment group for an application+-- registered within the AWS user account.+--+-- <http://docs.aws.amazon.com/codedeploy/latest/APIReference/API_ListDeployments.html>+module Network.AWS.CodeDeploy.ListDeployments+    (+    -- * Request+      ListDeployments+    -- ** Request constructor+    , listDeployments+    -- ** Request lenses+    , ldApplicationName+    , ldCreateTimeRange+    , ldDeploymentGroupName+    , ldIncludeOnlyStatuses+    , ldNextToken++    -- * Response+    , ListDeploymentsResponse+    -- ** Response constructor+    , listDeploymentsResponse+    -- ** Response lenses+    , ldrDeployments+    , ldrNextToken+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.JSON+import Network.AWS.CodeDeploy.Types+import qualified GHC.Exts++data ListDeployments = ListDeployments+    { _ldApplicationName     :: Maybe Text+    , _ldCreateTimeRange     :: Maybe TimeRange+    , _ldDeploymentGroupName :: Maybe Text+    , _ldIncludeOnlyStatuses :: List "includeOnlyStatuses" Text+    , _ldNextToken           :: Maybe Text+    } deriving (Eq, Show)++-- | 'ListDeployments' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'ldApplicationName' @::@ 'Maybe' 'Text'+--+-- * 'ldCreateTimeRange' @::@ 'Maybe' 'TimeRange'+--+-- * 'ldDeploymentGroupName' @::@ 'Maybe' 'Text'+--+-- * 'ldIncludeOnlyStatuses' @::@ ['Text']+--+-- * 'ldNextToken' @::@ 'Maybe' 'Text'+--+listDeployments :: ListDeployments+listDeployments = ListDeployments+    { _ldApplicationName     = Nothing+    , _ldDeploymentGroupName = Nothing+    , _ldIncludeOnlyStatuses = mempty+    , _ldCreateTimeRange     = Nothing+    , _ldNextToken           = Nothing+    }++-- | The name of an existing AWS CodeDeploy application within the AWS user+-- account.+ldApplicationName :: Lens' ListDeployments (Maybe Text)+ldApplicationName =+    lens _ldApplicationName (\s a -> s { _ldApplicationName = a })++-- | A deployment creation start- and end-time range for returning a subset of+-- the list of deployments.+ldCreateTimeRange :: Lens' ListDeployments (Maybe TimeRange)+ldCreateTimeRange =+    lens _ldCreateTimeRange (\s a -> s { _ldCreateTimeRange = a })++-- | The name of an existing deployment group for the specified application.+ldDeploymentGroupName :: Lens' ListDeployments (Maybe Text)+ldDeploymentGroupName =+    lens _ldDeploymentGroupName (\s a -> s { _ldDeploymentGroupName = a })++-- | A subset of deployments to list, by status: Created: Include in the+-- resulting list created deployments. Queued: Include in the resulting list+-- queued deployments. In Progress: Include in the resulting list+-- in-progress deployments. Succeeded: Include in the resulting list+-- succeeded deployments. Failed: Include in the resulting list failed+-- deployments. Aborted: Include in the resulting list aborted deployments.+ldIncludeOnlyStatuses :: Lens' ListDeployments [Text]+ldIncludeOnlyStatuses =+    lens _ldIncludeOnlyStatuses (\s a -> s { _ldIncludeOnlyStatuses = a })+        . _List++-- | An identifier that was returned from the previous list deployments call,+-- which can be used to return the next set of deployments in the list.+ldNextToken :: Lens' ListDeployments (Maybe Text)+ldNextToken = lens _ldNextToken (\s a -> s { _ldNextToken = a })++data ListDeploymentsResponse = ListDeploymentsResponse+    { _ldrDeployments :: List "deployments" Text+    , _ldrNextToken   :: Maybe Text+    } deriving (Eq, Ord, Show)++-- | 'ListDeploymentsResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'ldrDeployments' @::@ ['Text']+--+-- * 'ldrNextToken' @::@ 'Maybe' 'Text'+--+listDeploymentsResponse :: ListDeploymentsResponse+listDeploymentsResponse = ListDeploymentsResponse+    { _ldrDeployments = mempty+    , _ldrNextToken   = Nothing+    }++-- | A list of deployment IDs.+ldrDeployments :: Lens' ListDeploymentsResponse [Text]+ldrDeployments = lens _ldrDeployments (\s a -> s { _ldrDeployments = a }) . _List++-- | If the amount of information that is returned is significantly large, an+-- identifier will also be returned, which can be used in a subsequent list+-- deployments call to return the next set of deployments in the list.+ldrNextToken :: Lens' ListDeploymentsResponse (Maybe Text)+ldrNextToken = lens _ldrNextToken (\s a -> s { _ldrNextToken = a })++instance ToPath ListDeployments where+    toPath = const "/"++instance ToQuery ListDeployments where+    toQuery = const mempty++instance ToHeaders ListDeployments++instance ToJSON ListDeployments where+    toJSON ListDeployments{..} = object+        [ "applicationName"     .= _ldApplicationName+        , "deploymentGroupName" .= _ldDeploymentGroupName+        , "includeOnlyStatuses" .= _ldIncludeOnlyStatuses+        , "createTimeRange"     .= _ldCreateTimeRange+        , "nextToken"           .= _ldNextToken+        ]++instance AWSRequest ListDeployments where+    type Sv ListDeployments = CodeDeploy+    type Rs ListDeployments = ListDeploymentsResponse++    request  = post "ListDeployments"+    response = jsonResponse++instance FromJSON ListDeploymentsResponse where+    parseJSON = withObject "ListDeploymentsResponse" $ \o -> ListDeploymentsResponse+        <$> o .:  "deployments"+        <*> o .:? "nextToken"
+ gen/Network/AWS/CodeDeploy/RegisterApplicationRevision.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.CodeDeploy.RegisterApplicationRevision+-- 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 with AWS CodeDeploy a revision for the specified application.+--+-- <http://docs.aws.amazon.com/codedeploy/latest/APIReference/API_RegisterApplicationRevision.html>+module Network.AWS.CodeDeploy.RegisterApplicationRevision+    (+    -- * Request+      RegisterApplicationRevision+    -- ** Request constructor+    , registerApplicationRevision+    -- ** Request lenses+    , rarApplicationName+    , rarDescription+    , rarRevision++    -- * Response+    , RegisterApplicationRevisionResponse+    -- ** Response constructor+    , registerApplicationRevisionResponse+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.JSON+import Network.AWS.CodeDeploy.Types+import qualified GHC.Exts++data RegisterApplicationRevision = RegisterApplicationRevision+    { _rarApplicationName :: Text+    , _rarDescription     :: Maybe Text+    , _rarRevision        :: RevisionLocation+    } deriving (Eq, Show)++-- | 'RegisterApplicationRevision' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'rarApplicationName' @::@ 'Text'+--+-- * 'rarDescription' @::@ 'Maybe' 'Text'+--+-- * 'rarRevision' @::@ 'RevisionLocation'+--+registerApplicationRevision :: Text -- ^ 'rarApplicationName'+                            -> RevisionLocation -- ^ 'rarRevision'+                            -> RegisterApplicationRevision+registerApplicationRevision p1 p2 = RegisterApplicationRevision+    { _rarApplicationName = p1+    , _rarRevision        = p2+    , _rarDescription     = Nothing+    }++-- | The name of an existing AWS CodeDeploy application within the AWS user+-- account.+rarApplicationName :: Lens' RegisterApplicationRevision Text+rarApplicationName =+    lens _rarApplicationName (\s a -> s { _rarApplicationName = a })++-- | A comment about the revision.+rarDescription :: Lens' RegisterApplicationRevision (Maybe Text)+rarDescription = lens _rarDescription (\s a -> s { _rarDescription = a })++-- | Information about the application revision to register, including the+-- revision's type and its location.+rarRevision :: Lens' RegisterApplicationRevision RevisionLocation+rarRevision = lens _rarRevision (\s a -> s { _rarRevision = a })++data RegisterApplicationRevisionResponse = RegisterApplicationRevisionResponse+    deriving (Eq, Ord, Show, Generic)++-- | 'RegisterApplicationRevisionResponse' constructor.+registerApplicationRevisionResponse :: RegisterApplicationRevisionResponse+registerApplicationRevisionResponse = RegisterApplicationRevisionResponse++instance ToPath RegisterApplicationRevision where+    toPath = const "/"++instance ToQuery RegisterApplicationRevision where+    toQuery = const mempty++instance ToHeaders RegisterApplicationRevision++instance ToJSON RegisterApplicationRevision where+    toJSON RegisterApplicationRevision{..} = object+        [ "applicationName" .= _rarApplicationName+        , "description"     .= _rarDescription+        , "revision"        .= _rarRevision+        ]++instance AWSRequest RegisterApplicationRevision where+    type Sv RegisterApplicationRevision = CodeDeploy+    type Rs RegisterApplicationRevision = RegisterApplicationRevisionResponse++    request  = post "RegisterApplicationRevision"+    response = nullResponse RegisterApplicationRevisionResponse
+ gen/Network/AWS/CodeDeploy/StopDeployment.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.CodeDeploy.StopDeployment+-- 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)++-- | Attempts to stop an ongoing deployment.+--+-- <http://docs.aws.amazon.com/codedeploy/latest/APIReference/API_StopDeployment.html>+module Network.AWS.CodeDeploy.StopDeployment+    (+    -- * Request+      StopDeployment+    -- ** Request constructor+    , stopDeployment+    -- ** Request lenses+    , sdDeploymentId++    -- * Response+    , StopDeploymentResponse+    -- ** Response constructor+    , stopDeploymentResponse+    -- ** Response lenses+    , sdrStatus+    , sdrStatusMessage+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.JSON+import Network.AWS.CodeDeploy.Types+import qualified GHC.Exts++newtype StopDeployment = StopDeployment+    { _sdDeploymentId :: Text+    } deriving (Eq, Ord, Show, Monoid, IsString)++-- | 'StopDeployment' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'sdDeploymentId' @::@ 'Text'+--+stopDeployment :: Text -- ^ 'sdDeploymentId'+               -> StopDeployment+stopDeployment p1 = StopDeployment+    { _sdDeploymentId = p1+    }++-- | The unique ID of a deployment.+sdDeploymentId :: Lens' StopDeployment Text+sdDeploymentId = lens _sdDeploymentId (\s a -> s { _sdDeploymentId = a })++data StopDeploymentResponse = StopDeploymentResponse+    { _sdrStatus        :: Maybe Text+    , _sdrStatusMessage :: Maybe Text+    } deriving (Eq, Ord, Show)++-- | 'StopDeploymentResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'sdrStatus' @::@ 'Maybe' 'Text'+--+-- * 'sdrStatusMessage' @::@ 'Maybe' 'Text'+--+stopDeploymentResponse :: StopDeploymentResponse+stopDeploymentResponse = StopDeploymentResponse+    { _sdrStatus        = Nothing+    , _sdrStatusMessage = Nothing+    }++-- | The status of the stop deployment operation: Pending: The stop operation+-- is pending. Succeeded: The stop operation succeeded.+sdrStatus :: Lens' StopDeploymentResponse (Maybe Text)+sdrStatus = lens _sdrStatus (\s a -> s { _sdrStatus = a })++-- | An accompanying status message.+sdrStatusMessage :: Lens' StopDeploymentResponse (Maybe Text)+sdrStatusMessage = lens _sdrStatusMessage (\s a -> s { _sdrStatusMessage = a })++instance ToPath StopDeployment where+    toPath = const "/"++instance ToQuery StopDeployment where+    toQuery = const mempty++instance ToHeaders StopDeployment++instance ToJSON StopDeployment where+    toJSON StopDeployment{..} = object+        [ "deploymentId" .= _sdDeploymentId+        ]++instance AWSRequest StopDeployment where+    type Sv StopDeployment = CodeDeploy+    type Rs StopDeployment = StopDeploymentResponse++    request  = post "StopDeployment"+    response = jsonResponse++instance FromJSON StopDeploymentResponse where+    parseJSON = withObject "StopDeploymentResponse" $ \o -> StopDeploymentResponse+        <$> o .:? "status"+        <*> o .:? "statusMessage"
+ gen/Network/AWS/CodeDeploy/Types.hs view
@@ -0,0 +1,1788 @@+{-# 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.CodeDeploy.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.CodeDeploy.Types+    (+    -- * Service+      CodeDeploy+    -- ** Error+    , JSONError++    -- * GenericRevisionInfo+    , GenericRevisionInfo+    , genericRevisionInfo+    , griDeploymentGroups+    , griDescription+    , griFirstUsedTime+    , griLastUsedTime+    , griRegisterTime++    -- * ApplicationInfo+    , ApplicationInfo+    , applicationInfo+    , aiApplicationId+    , aiApplicationName+    , aiCreateTime+    , aiLinkedToGitHub++    -- * BundleType+    , BundleType (..)++    -- * TimeRange+    , TimeRange+    , timeRange+    , trEnd+    , trStart++    -- * DeploymentCreator+    , DeploymentCreator (..)++    -- * InstanceSummary+    , InstanceSummary+    , instanceSummary+    , isDeploymentId+    , isInstanceId+    , isLastUpdatedAt+    , isLifecycleEvents+    , isStatus++    -- * AutoScalingGroup+    , AutoScalingGroup+    , autoScalingGroup+    , asgHook+    , asgName++    -- * DeploymentGroupInfo+    , DeploymentGroupInfo+    , deploymentGroupInfo+    , dgiApplicationName+    , dgiAutoScalingGroups+    , dgiDeploymentConfigName+    , dgiDeploymentGroupId+    , dgiDeploymentGroupName+    , dgiEc2TagFilters+    , dgiServiceRoleArn+    , dgiTargetRevision++    -- * ApplicationRevisionSortBy+    , ApplicationRevisionSortBy (..)++    -- * MinimumHealthyHosts+    , MinimumHealthyHosts+    , minimumHealthyHosts+    , mhhType+    , mhhValue++    -- * ListStateFilterAction+    , ListStateFilterAction (..)++    -- * LifecycleErrorCode+    , LifecycleErrorCode (..)++    -- * RevisionLocation+    , RevisionLocation+    , revisionLocation+    , rlGitHubLocation+    , rlRevisionType+    , rlS3Location++    -- * LifecycleEventStatus+    , LifecycleEventStatus (..)++    -- * EC2TagFilter+    , EC2TagFilter+    , ec2TagFilter+    , ectfKey+    , ectfType+    , ectfValue++    -- * Diagnostics+    , Diagnostics+    , diagnostics+    , dErrorCode+    , dLogTail+    , dMessage+    , dScriptName++    -- * StopStatus+    , StopStatus (..)++    -- * ErrorInformation+    , ErrorInformation+    , errorInformation+    , eiCode+    , eiMessage++    -- * SortOrder+    , SortOrder (..)++    -- * DeploymentInfo+    , DeploymentInfo+    , deploymentInfo+    , diApplicationName+    , diCompleteTime+    , diCreateTime+    , diCreator+    , diDeploymentConfigName+    , diDeploymentGroupName+    , diDeploymentId+    , diDeploymentOverview+    , diDescription+    , diErrorInformation+    , diIgnoreApplicationStopFailures+    , diRevision+    , diStartTime+    , diStatus++    -- * LifecycleEvent+    , LifecycleEvent+    , lifecycleEvent+    , leDiagnostics+    , leEndTime+    , leLifecycleEventName+    , leStartTime+    , leStatus++    -- * DeploymentOverview+    , DeploymentOverview+    , deploymentOverview+    , doFailed+    , doInProgress+    , doPending+    , doSkipped+    , doSucceeded++    -- * ErrorCode+    , ErrorCode (..)++    -- * DeploymentConfigInfo+    , DeploymentConfigInfo+    , deploymentConfigInfo+    , dciCreateTime+    , dciDeploymentConfigId+    , dciDeploymentConfigName+    , dciMinimumHealthyHosts++    -- * InstanceStatus+    , InstanceStatus (..)++    -- * DeploymentStatus+    , DeploymentStatus (..)++    -- * S3Location+    , S3Location+    , s3Location+    , slBucket+    , slBundleType+    , slETag+    , slKey+    , slVersion++    -- * MinimumHealthyHostsType+    , MinimumHealthyHostsType (..)++    -- * GitHubLocation+    , GitHubLocation+    , gitHubLocation+    , ghlCommitId+    , ghlRepository++    -- * RevisionLocationType+    , RevisionLocationType (..)++    -- * EC2TagFilterType+    , EC2TagFilterType (..)+    ) where++import Data.Char (isUpper)+import Network.AWS.Error+import Network.AWS.Prelude+import Network.AWS.Signing.V4+import qualified GHC.Exts++-- | Version @2014-10-06@ of the Amazon CodeDeploy service.+data CodeDeploy++instance AWSService CodeDeploy where+    type Sg CodeDeploy = V4+    type Er CodeDeploy = JSONError++    service = Service+        { _svcEndpoint     = regional+        , _svcAbbrev       = "CodeDeploy"+        , _svcPrefix       = "codedeploy"+        , _svcVersion      = "2014-10-06"+        , _svcTargetPrefix = Just "CodeDeploy_20141006"+        , _svcJSONVersion  = Just "1.1"+        }++    handle = jsonError statusSuccess++data GenericRevisionInfo = GenericRevisionInfo+    { _griDeploymentGroups :: List "deploymentGroups" Text+    , _griDescription      :: Maybe Text+    , _griFirstUsedTime    :: Maybe RFC822+    , _griLastUsedTime     :: Maybe RFC822+    , _griRegisterTime     :: Maybe RFC822+    } deriving (Eq, Ord, Show)++-- | 'GenericRevisionInfo' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'griDeploymentGroups' @::@ ['Text']+--+-- * 'griDescription' @::@ 'Maybe' 'Text'+--+-- * 'griFirstUsedTime' @::@ 'Maybe' 'UTCTime'+--+-- * 'griLastUsedTime' @::@ 'Maybe' 'UTCTime'+--+-- * 'griRegisterTime' @::@ 'Maybe' 'UTCTime'+--+genericRevisionInfo :: GenericRevisionInfo+genericRevisionInfo = GenericRevisionInfo+    { _griDescription      = Nothing+    , _griDeploymentGroups = mempty+    , _griFirstUsedTime    = Nothing+    , _griLastUsedTime     = Nothing+    , _griRegisterTime     = Nothing+    }++-- | A list of deployment groups that use this revision.+griDeploymentGroups :: Lens' GenericRevisionInfo [Text]+griDeploymentGroups =+    lens _griDeploymentGroups (\s a -> s { _griDeploymentGroups = a })+        . _List++-- | A comment about the revision.+griDescription :: Lens' GenericRevisionInfo (Maybe Text)+griDescription = lens _griDescription (\s a -> s { _griDescription = a })++-- | When the revision was first used by AWS CodeDeploy.+griFirstUsedTime :: Lens' GenericRevisionInfo (Maybe UTCTime)+griFirstUsedTime = lens _griFirstUsedTime (\s a -> s { _griFirstUsedTime = a }) . mapping _Time++-- | When the revision was last used by AWS CodeDeploy.+griLastUsedTime :: Lens' GenericRevisionInfo (Maybe UTCTime)+griLastUsedTime = lens _griLastUsedTime (\s a -> s { _griLastUsedTime = a }) . mapping _Time++-- | When the revision was registered with AWS CodeDeploy.+griRegisterTime :: Lens' GenericRevisionInfo (Maybe UTCTime)+griRegisterTime = lens _griRegisterTime (\s a -> s { _griRegisterTime = a }) . mapping _Time++instance FromJSON GenericRevisionInfo where+    parseJSON = withObject "GenericRevisionInfo" $ \o -> GenericRevisionInfo+        <$> o .:  "deploymentGroups"+        <*> o .:? "description"+        <*> o .:? "firstUsedTime"+        <*> o .:? "lastUsedTime"+        <*> o .:? "registerTime"++instance ToJSON GenericRevisionInfo where+    toJSON GenericRevisionInfo{..} = object+        [ "description"      .= _griDescription+        , "deploymentGroups" .= _griDeploymentGroups+        , "firstUsedTime"    .= _griFirstUsedTime+        , "lastUsedTime"     .= _griLastUsedTime+        , "registerTime"     .= _griRegisterTime+        ]++data ApplicationInfo = ApplicationInfo+    { _aiApplicationId   :: Maybe Text+    , _aiApplicationName :: Maybe Text+    , _aiCreateTime      :: Maybe RFC822+    , _aiLinkedToGitHub  :: Maybe Bool+    } deriving (Eq, Ord, Show)++-- | 'ApplicationInfo' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'aiApplicationId' @::@ 'Maybe' 'Text'+--+-- * 'aiApplicationName' @::@ 'Maybe' 'Text'+--+-- * 'aiCreateTime' @::@ 'Maybe' 'UTCTime'+--+-- * 'aiLinkedToGitHub' @::@ 'Maybe' 'Bool'+--+applicationInfo :: ApplicationInfo+applicationInfo = ApplicationInfo+    { _aiApplicationId   = Nothing+    , _aiApplicationName = Nothing+    , _aiCreateTime      = Nothing+    , _aiLinkedToGitHub  = Nothing+    }++-- | The application ID.+aiApplicationId :: Lens' ApplicationInfo (Maybe Text)+aiApplicationId = lens _aiApplicationId (\s a -> s { _aiApplicationId = a })++-- | The application name.+aiApplicationName :: Lens' ApplicationInfo (Maybe Text)+aiApplicationName =+    lens _aiApplicationName (\s a -> s { _aiApplicationName = a })++-- | The time that the application was created.+aiCreateTime :: Lens' ApplicationInfo (Maybe UTCTime)+aiCreateTime = lens _aiCreateTime (\s a -> s { _aiCreateTime = a }) . mapping _Time++-- | True if the user has authenticated with GitHub for the specified+-- application; otherwise, false.+aiLinkedToGitHub :: Lens' ApplicationInfo (Maybe Bool)+aiLinkedToGitHub = lens _aiLinkedToGitHub (\s a -> s { _aiLinkedToGitHub = a })++instance FromJSON ApplicationInfo where+    parseJSON = withObject "ApplicationInfo" $ \o -> ApplicationInfo+        <$> o .:? "applicationId"+        <*> o .:? "applicationName"+        <*> o .:? "createTime"+        <*> o .:? "linkedToGitHub"++instance ToJSON ApplicationInfo where+    toJSON ApplicationInfo{..} = object+        [ "applicationId"   .= _aiApplicationId+        , "applicationName" .= _aiApplicationName+        , "createTime"      .= _aiCreateTime+        , "linkedToGitHub"  .= _aiLinkedToGitHub+        ]++data BundleType+    = Tar -- ^ tar+    | Tgz -- ^ tgz+    | Zip -- ^ zip+      deriving (Eq, Ord, Show, Generic, Enum)++instance Hashable BundleType++instance FromText BundleType where+    parser = match "tar" Tar+         <|> match "tgz" Tgz+         <|> match "zip" Zip++instance ToText BundleType where+    toText = \case+        Tar -> "tar"+        Tgz -> "tgz"+        Zip -> "zip"++instance FromJSON BundleType where+    parseJSON = parseJSONText "BundleType"++instance ToJSON BundleType where+    toJSON = toJSONText++data TimeRange = TimeRange+    { _trEnd   :: Maybe RFC822+    , _trStart :: Maybe RFC822+    } deriving (Eq, Ord, Show)++-- | 'TimeRange' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'trEnd' @::@ 'Maybe' 'UTCTime'+--+-- * 'trStart' @::@ 'Maybe' 'UTCTime'+--+timeRange :: TimeRange+timeRange = TimeRange+    { _trStart = Nothing+    , _trEnd   = Nothing+    }++-- | The time range's end time. Specify null to leave the time range's end+-- time open-ended.+trEnd :: Lens' TimeRange (Maybe UTCTime)+trEnd = lens _trEnd (\s a -> s { _trEnd = a }) . mapping _Time++-- | The time range's start time. Specify null to leave the time range's start+-- time open-ended.+trStart :: Lens' TimeRange (Maybe UTCTime)+trStart = lens _trStart (\s a -> s { _trStart = a }) . mapping _Time++instance FromJSON TimeRange where+    parseJSON = withObject "TimeRange" $ \o -> TimeRange+        <$> o .:? "end"+        <*> o .:? "start"++instance ToJSON TimeRange where+    toJSON TimeRange{..} = object+        [ "start" .= _trStart+        , "end"   .= _trEnd+        ]++data DeploymentCreator+    = Autoscaling -- ^ autoscaling+    | User        -- ^ user+      deriving (Eq, Ord, Show, Generic, Enum)++instance Hashable DeploymentCreator++instance FromText DeploymentCreator where+    parser = match "autoscaling" Autoscaling+         <|> match "user"        User++instance ToText DeploymentCreator where+    toText = \case+        Autoscaling -> "autoscaling"+        User        -> "user"++instance FromJSON DeploymentCreator where+    parseJSON = parseJSONText "DeploymentCreator"++instance ToJSON DeploymentCreator where+    toJSON = toJSONText++data InstanceSummary = InstanceSummary+    { _isDeploymentId    :: Maybe Text+    , _isInstanceId      :: Maybe Text+    , _isLastUpdatedAt   :: Maybe RFC822+    , _isLifecycleEvents :: List "lifecycleEvents" LifecycleEvent+    , _isStatus          :: Maybe Text+    } deriving (Eq, Show)++-- | 'InstanceSummary' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'isDeploymentId' @::@ 'Maybe' 'Text'+--+-- * 'isInstanceId' @::@ 'Maybe' 'Text'+--+-- * 'isLastUpdatedAt' @::@ 'Maybe' 'UTCTime'+--+-- * 'isLifecycleEvents' @::@ ['LifecycleEvent']+--+-- * 'isStatus' @::@ 'Maybe' 'Text'+--+instanceSummary :: InstanceSummary+instanceSummary = InstanceSummary+    { _isDeploymentId    = Nothing+    , _isInstanceId      = Nothing+    , _isStatus          = Nothing+    , _isLastUpdatedAt   = Nothing+    , _isLifecycleEvents = mempty+    }++-- | The deployment ID.+isDeploymentId :: Lens' InstanceSummary (Maybe Text)+isDeploymentId = lens _isDeploymentId (\s a -> s { _isDeploymentId = a })++-- | The instance ID.+isInstanceId :: Lens' InstanceSummary (Maybe Text)+isInstanceId = lens _isInstanceId (\s a -> s { _isInstanceId = a })++-- | A timestamp indicating when the instance information was last updated.+isLastUpdatedAt :: Lens' InstanceSummary (Maybe UTCTime)+isLastUpdatedAt = lens _isLastUpdatedAt (\s a -> s { _isLastUpdatedAt = a }) . mapping _Time++-- | A list of lifecycle events for this instance.+isLifecycleEvents :: Lens' InstanceSummary [LifecycleEvent]+isLifecycleEvents =+    lens _isLifecycleEvents (\s a -> s { _isLifecycleEvents = a })+        . _List++-- | The deployment status for this instance: Pending: The deployment is+-- pending for this instance. In Progress: The deployment is in progress for+-- this instance. Succeeded: The deployment has succeeded for this instance.+-- Failed: The deployment has failed for this instance. Skipped: The+-- deployment has been skipped for this instance. Unknown: The deployment+-- status is unknown for this instance.+isStatus :: Lens' InstanceSummary (Maybe Text)+isStatus = lens _isStatus (\s a -> s { _isStatus = a })++instance FromJSON InstanceSummary where+    parseJSON = withObject "InstanceSummary" $ \o -> InstanceSummary+        <$> o .:? "deploymentId"+        <*> o .:? "instanceId"+        <*> o .:? "lastUpdatedAt"+        <*> o .:  "lifecycleEvents"+        <*> o .:? "status"++instance ToJSON InstanceSummary where+    toJSON InstanceSummary{..} = object+        [ "deploymentId"    .= _isDeploymentId+        , "instanceId"      .= _isInstanceId+        , "status"          .= _isStatus+        , "lastUpdatedAt"   .= _isLastUpdatedAt+        , "lifecycleEvents" .= _isLifecycleEvents+        ]++data AutoScalingGroup = AutoScalingGroup+    { _asgHook :: Maybe Text+    , _asgName :: Maybe Text+    } deriving (Eq, Ord, Show)++-- | 'AutoScalingGroup' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'asgHook' @::@ 'Maybe' 'Text'+--+-- * 'asgName' @::@ 'Maybe' 'Text'+--+autoScalingGroup :: AutoScalingGroup+autoScalingGroup = AutoScalingGroup+    { _asgName = Nothing+    , _asgHook = Nothing+    }++-- | An Auto Scaling lifecycle event hook name.+asgHook :: Lens' AutoScalingGroup (Maybe Text)+asgHook = lens _asgHook (\s a -> s { _asgHook = a })++-- | The Auto Scaling group name.+asgName :: Lens' AutoScalingGroup (Maybe Text)+asgName = lens _asgName (\s a -> s { _asgName = a })++instance FromJSON AutoScalingGroup where+    parseJSON = withObject "AutoScalingGroup" $ \o -> AutoScalingGroup+        <$> o .:? "hook"+        <*> o .:? "name"++instance ToJSON AutoScalingGroup where+    toJSON AutoScalingGroup{..} = object+        [ "name" .= _asgName+        , "hook" .= _asgHook+        ]++data DeploymentGroupInfo = DeploymentGroupInfo+    { _dgiApplicationName      :: Maybe Text+    , _dgiAutoScalingGroups    :: List "autoScalingGroups" AutoScalingGroup+    , _dgiDeploymentConfigName :: Maybe Text+    , _dgiDeploymentGroupId    :: Maybe Text+    , _dgiDeploymentGroupName  :: Maybe Text+    , _dgiEc2TagFilters        :: List "ec2TagFilters" EC2TagFilter+    , _dgiServiceRoleArn       :: Maybe Text+    , _dgiTargetRevision       :: Maybe RevisionLocation+    } deriving (Eq, Show)++-- | 'DeploymentGroupInfo' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'dgiApplicationName' @::@ 'Maybe' 'Text'+--+-- * 'dgiAutoScalingGroups' @::@ ['AutoScalingGroup']+--+-- * 'dgiDeploymentConfigName' @::@ 'Maybe' 'Text'+--+-- * 'dgiDeploymentGroupId' @::@ 'Maybe' 'Text'+--+-- * 'dgiDeploymentGroupName' @::@ 'Maybe' 'Text'+--+-- * 'dgiEc2TagFilters' @::@ ['EC2TagFilter']+--+-- * 'dgiServiceRoleArn' @::@ 'Maybe' 'Text'+--+-- * 'dgiTargetRevision' @::@ 'Maybe' 'RevisionLocation'+--+deploymentGroupInfo :: DeploymentGroupInfo+deploymentGroupInfo = DeploymentGroupInfo+    { _dgiApplicationName      = Nothing+    , _dgiDeploymentGroupId    = Nothing+    , _dgiDeploymentGroupName  = Nothing+    , _dgiDeploymentConfigName = Nothing+    , _dgiEc2TagFilters        = mempty+    , _dgiAutoScalingGroups    = mempty+    , _dgiServiceRoleArn       = Nothing+    , _dgiTargetRevision       = Nothing+    }++-- | The application name.+dgiApplicationName :: Lens' DeploymentGroupInfo (Maybe Text)+dgiApplicationName =+    lens _dgiApplicationName (\s a -> s { _dgiApplicationName = a })++-- | A list of associated Auto Scaling groups.+dgiAutoScalingGroups :: Lens' DeploymentGroupInfo [AutoScalingGroup]+dgiAutoScalingGroups =+    lens _dgiAutoScalingGroups (\s a -> s { _dgiAutoScalingGroups = a })+        . _List++-- | The deployment configuration name.+dgiDeploymentConfigName :: Lens' DeploymentGroupInfo (Maybe Text)+dgiDeploymentConfigName =+    lens _dgiDeploymentConfigName (\s a -> s { _dgiDeploymentConfigName = a })++-- | The deployment group ID.+dgiDeploymentGroupId :: Lens' DeploymentGroupInfo (Maybe Text)+dgiDeploymentGroupId =+    lens _dgiDeploymentGroupId (\s a -> s { _dgiDeploymentGroupId = a })++-- | The deployment group name.+dgiDeploymentGroupName :: Lens' DeploymentGroupInfo (Maybe Text)+dgiDeploymentGroupName =+    lens _dgiDeploymentGroupName (\s a -> s { _dgiDeploymentGroupName = a })++-- | The Amazon EC2 tags to filter on.+dgiEc2TagFilters :: Lens' DeploymentGroupInfo [EC2TagFilter]+dgiEc2TagFilters = lens _dgiEc2TagFilters (\s a -> s { _dgiEc2TagFilters = a }) . _List++-- | A service role ARN.+dgiServiceRoleArn :: Lens' DeploymentGroupInfo (Maybe Text)+dgiServiceRoleArn =+    lens _dgiServiceRoleArn (\s a -> s { _dgiServiceRoleArn = a })++-- | Information about the deployment group's target revision, including the+-- revision's type and its location.+dgiTargetRevision :: Lens' DeploymentGroupInfo (Maybe RevisionLocation)+dgiTargetRevision =+    lens _dgiTargetRevision (\s a -> s { _dgiTargetRevision = a })++instance FromJSON DeploymentGroupInfo where+    parseJSON = withObject "DeploymentGroupInfo" $ \o -> DeploymentGroupInfo+        <$> o .:? "applicationName"+        <*> o .:  "autoScalingGroups"+        <*> o .:? "deploymentConfigName"+        <*> o .:? "deploymentGroupId"+        <*> o .:? "deploymentGroupName"+        <*> o .:  "ec2TagFilters"+        <*> o .:? "serviceRoleArn"+        <*> o .:? "targetRevision"++instance ToJSON DeploymentGroupInfo where+    toJSON DeploymentGroupInfo{..} = object+        [ "applicationName"      .= _dgiApplicationName+        , "deploymentGroupId"    .= _dgiDeploymentGroupId+        , "deploymentGroupName"  .= _dgiDeploymentGroupName+        , "deploymentConfigName" .= _dgiDeploymentConfigName+        , "ec2TagFilters"        .= _dgiEc2TagFilters+        , "autoScalingGroups"    .= _dgiAutoScalingGroups+        , "serviceRoleArn"       .= _dgiServiceRoleArn+        , "targetRevision"       .= _dgiTargetRevision+        ]++data ApplicationRevisionSortBy+    = FirstUsedTime -- ^ firstUsedTime+    | LastUsedTime  -- ^ lastUsedTime+    | RegisterTime  -- ^ registerTime+      deriving (Eq, Ord, Show, Generic, Enum)++instance Hashable ApplicationRevisionSortBy++instance FromText ApplicationRevisionSortBy where+    parser = match "firstUsedTime" FirstUsedTime+         <|> match "lastUsedTime"  LastUsedTime+         <|> match "registerTime"  RegisterTime++instance ToText ApplicationRevisionSortBy where+    toText = \case+        FirstUsedTime -> "firstUsedTime"+        LastUsedTime  -> "lastUsedTime"+        RegisterTime  -> "registerTime"++instance FromJSON ApplicationRevisionSortBy where+    parseJSON = parseJSONText "ApplicationRevisionSortBy"++instance ToJSON ApplicationRevisionSortBy where+    toJSON = toJSONText++data MinimumHealthyHosts = MinimumHealthyHosts+    { _mhhType  :: Maybe Text+    , _mhhValue :: Maybe Int+    } deriving (Eq, Ord, Show)++-- | 'MinimumHealthyHosts' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'mhhType' @::@ 'Maybe' 'Text'+--+-- * 'mhhValue' @::@ 'Maybe' 'Int'+--+minimumHealthyHosts :: MinimumHealthyHosts+minimumHealthyHosts = MinimumHealthyHosts+    { _mhhValue = Nothing+    , _mhhType  = Nothing+    }++-- | The minimum healthy instances type: HOST_COUNT: The minimum number of+-- healthy instances, as an absolute value. FLEET_PERCENT: The minimum+-- number of healthy instances, as a percentage of the total number of+-- instances in the deployment. For example, for 9 Amazon EC2 instances, if+-- a HOST_COUNT of 6 is specified, deploy to up to 3 instances at a time.+-- The deployment succeeds if 6 or more instances are successfully deployed+-- to; otherwise, the deployment fails. If a FLEET_PERCENT of 40 is+-- specified, deploy to up to 5 instances at a time. The deployment succeeds+-- if 4 or more instances are successfully deployed to; otherwise, the+-- deployment fails. In a call to the get deployment configuration+-- operation, CodeDeployDefault.OneAtATime will return a minimum healthy+-- instances type of MOST_CONCURRENCY and a value of 1. This means a+-- deployment to only one Amazon EC2 instance at a time. (You cannot set the+-- type to MOST_CONCURRENCY, only to HOST_COUNT or FLEET_PERCENT.).+mhhType :: Lens' MinimumHealthyHosts (Maybe Text)+mhhType = lens _mhhType (\s a -> s { _mhhType = a })++-- | The minimum healthy instances value.+mhhValue :: Lens' MinimumHealthyHosts (Maybe Int)+mhhValue = lens _mhhValue (\s a -> s { _mhhValue = a })++instance FromJSON MinimumHealthyHosts where+    parseJSON = withObject "MinimumHealthyHosts" $ \o -> MinimumHealthyHosts+        <$> o .:? "type"+        <*> o .:? "value"++instance ToJSON MinimumHealthyHosts where+    toJSON MinimumHealthyHosts{..} = object+        [ "value" .= _mhhValue+        , "type"  .= _mhhType+        ]++data ListStateFilterAction+    = Exclude -- ^ exclude+    | Ignore  -- ^ ignore+    | Include -- ^ include+      deriving (Eq, Ord, Show, Generic, Enum)++instance Hashable ListStateFilterAction++instance FromText ListStateFilterAction where+    parser = match "exclude" Exclude+         <|> match "ignore"  Ignore+         <|> match "include" Include++instance ToText ListStateFilterAction where+    toText = \case+        Exclude -> "exclude"+        Ignore  -> "ignore"+        Include -> "include"++instance FromJSON ListStateFilterAction where+    parseJSON = parseJSONText "ListStateFilterAction"++instance ToJSON ListStateFilterAction where+    toJSON = toJSONText++data LifecycleErrorCode+    = ScriptFailed        -- ^ ScriptFailed+    | ScriptMissing       -- ^ ScriptMissing+    | ScriptNotExecutable -- ^ ScriptNotExecutable+    | ScriptTimedOut      -- ^ ScriptTimedOut+    | Success             -- ^ Success+    | UnknownError        -- ^ UnknownError+      deriving (Eq, Ord, Show, Generic, Enum)++instance Hashable LifecycleErrorCode++instance FromText LifecycleErrorCode where+    parser = match "ScriptFailed"        ScriptFailed+         <|> match "ScriptMissing"       ScriptMissing+         <|> match "ScriptNotExecutable" ScriptNotExecutable+         <|> match "ScriptTimedOut"      ScriptTimedOut+         <|> match "Success"             Success+         <|> match "UnknownError"        UnknownError++instance ToText LifecycleErrorCode where+    toText = \case+        ScriptFailed        -> "ScriptFailed"+        ScriptMissing       -> "ScriptMissing"+        ScriptNotExecutable -> "ScriptNotExecutable"+        ScriptTimedOut      -> "ScriptTimedOut"+        Success             -> "Success"+        UnknownError        -> "UnknownError"++instance FromJSON LifecycleErrorCode where+    parseJSON = parseJSONText "LifecycleErrorCode"++instance ToJSON LifecycleErrorCode where+    toJSON = toJSONText++data RevisionLocation = RevisionLocation+    { _rlGitHubLocation :: Maybe GitHubLocation+    , _rlRevisionType   :: Maybe Text+    , _rlS3Location     :: Maybe S3Location+    } deriving (Eq, Show)++-- | 'RevisionLocation' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'rlGitHubLocation' @::@ 'Maybe' 'GitHubLocation'+--+-- * 'rlRevisionType' @::@ 'Maybe' 'Text'+--+-- * 'rlS3Location' @::@ 'Maybe' 'S3Location'+--+revisionLocation :: RevisionLocation+revisionLocation = RevisionLocation+    { _rlRevisionType   = Nothing+    , _rlS3Location     = Nothing+    , _rlGitHubLocation = Nothing+    }++rlGitHubLocation :: Lens' RevisionLocation (Maybe GitHubLocation)+rlGitHubLocation = lens _rlGitHubLocation (\s a -> s { _rlGitHubLocation = a })++-- | The application revision's type: S3: An application revision stored in+-- Amazon S3. GitHub: An application revision stored in GitHub.+rlRevisionType :: Lens' RevisionLocation (Maybe Text)+rlRevisionType = lens _rlRevisionType (\s a -> s { _rlRevisionType = a })++rlS3Location :: Lens' RevisionLocation (Maybe S3Location)+rlS3Location = lens _rlS3Location (\s a -> s { _rlS3Location = a })++instance FromJSON RevisionLocation where+    parseJSON = withObject "RevisionLocation" $ \o -> RevisionLocation+        <$> o .:? "gitHubLocation"+        <*> o .:? "revisionType"+        <*> o .:? "s3Location"++instance ToJSON RevisionLocation where+    toJSON RevisionLocation{..} = object+        [ "revisionType"   .= _rlRevisionType+        , "s3Location"     .= _rlS3Location+        , "gitHubLocation" .= _rlGitHubLocation+        ]++data LifecycleEventStatus+    = Failed     -- ^ Failed+    | InProgress -- ^ InProgress+    | Pending    -- ^ Pending+    | Skipped    -- ^ Skipped+    | Succeeded  -- ^ Succeeded+    | Unknown    -- ^ Unknown+      deriving (Eq, Ord, Show, Generic, Enum)++instance Hashable LifecycleEventStatus++instance FromText LifecycleEventStatus where+    parser = match "Failed"     Failed+         <|> match "InProgress" InProgress+         <|> match "Pending"    Pending+         <|> match "Skipped"    Skipped+         <|> match "Succeeded"  Succeeded+         <|> match "Unknown"    Unknown++instance ToText LifecycleEventStatus where+    toText = \case+        Failed     -> "Failed"+        InProgress -> "InProgress"+        Pending    -> "Pending"+        Skipped    -> "Skipped"+        Succeeded  -> "Succeeded"+        Unknown    -> "Unknown"++instance FromJSON LifecycleEventStatus where+    parseJSON = parseJSONText "LifecycleEventStatus"++instance ToJSON LifecycleEventStatus where+    toJSON = toJSONText++data EC2TagFilter = EC2TagFilter+    { _ectfKey   :: Maybe Text+    , _ectfType  :: Maybe Text+    , _ectfValue :: Maybe Text+    } deriving (Eq, Ord, Show)++-- | 'EC2TagFilter' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'ectfKey' @::@ 'Maybe' 'Text'+--+-- * 'ectfType' @::@ 'Maybe' 'Text'+--+-- * 'ectfValue' @::@ 'Maybe' 'Text'+--+ec2TagFilter :: EC2TagFilter+ec2TagFilter = EC2TagFilter+    { _ectfKey   = Nothing+    , _ectfValue = Nothing+    , _ectfType  = Nothing+    }++-- | The Amazon EC2 tag filter key.+ectfKey :: Lens' EC2TagFilter (Maybe Text)+ectfKey = lens _ectfKey (\s a -> s { _ectfKey = a })++-- | The Amazon EC2 tag filter type: KEY_ONLY: Key only. VALUE_ONLY: Value+-- only. KEY_AND_VALUE: Key and value.+ectfType :: Lens' EC2TagFilter (Maybe Text)+ectfType = lens _ectfType (\s a -> s { _ectfType = a })++-- | The Amazon EC2 tag filter value.+ectfValue :: Lens' EC2TagFilter (Maybe Text)+ectfValue = lens _ectfValue (\s a -> s { _ectfValue = a })++instance FromJSON EC2TagFilter where+    parseJSON = withObject "EC2TagFilter" $ \o -> EC2TagFilter+        <$> o .:? "Key"+        <*> o .:? "Type"+        <*> o .:? "Value"++instance ToJSON EC2TagFilter where+    toJSON EC2TagFilter{..} = object+        [ "Key"   .= _ectfKey+        , "Value" .= _ectfValue+        , "Type"  .= _ectfType+        ]++data Diagnostics = Diagnostics+    { _dErrorCode  :: Maybe Text+    , _dLogTail    :: Maybe Text+    , _dMessage    :: Maybe Text+    , _dScriptName :: Maybe Text+    } deriving (Eq, Ord, Show)++-- | 'Diagnostics' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'dErrorCode' @::@ 'Maybe' 'Text'+--+-- * 'dLogTail' @::@ 'Maybe' 'Text'+--+-- * 'dMessage' @::@ 'Maybe' 'Text'+--+-- * 'dScriptName' @::@ 'Maybe' 'Text'+--+diagnostics :: Diagnostics+diagnostics = Diagnostics+    { _dErrorCode  = Nothing+    , _dScriptName = Nothing+    , _dMessage    = Nothing+    , _dLogTail    = Nothing+    }++-- | The associated error code: Success: The specified script ran.+-- ScriptMissing: The specified script was not found in the specified+-- location. ScriptNotExecutable: The specified script is not a recognized+-- executable file type. ScriptTimedOut: The specified script did not finish+-- running in the specified time period. ScriptFailed: The specified script+-- failed to run as expected. UnknownError: The specified script did not run+-- for an unknown reason.+dErrorCode :: Lens' Diagnostics (Maybe Text)+dErrorCode = lens _dErrorCode (\s a -> s { _dErrorCode = a })++-- | The last portion of the associated diagnostic log.+dLogTail :: Lens' Diagnostics (Maybe Text)+dLogTail = lens _dLogTail (\s a -> s { _dLogTail = a })++-- | The message associated with the error.+dMessage :: Lens' Diagnostics (Maybe Text)+dMessage = lens _dMessage (\s a -> s { _dMessage = a })++-- | The name of the script.+dScriptName :: Lens' Diagnostics (Maybe Text)+dScriptName = lens _dScriptName (\s a -> s { _dScriptName = a })++instance FromJSON Diagnostics where+    parseJSON = withObject "Diagnostics" $ \o -> Diagnostics+        <$> o .:? "errorCode"+        <*> o .:? "logTail"+        <*> o .:? "message"+        <*> o .:? "scriptName"++instance ToJSON Diagnostics where+    toJSON Diagnostics{..} = object+        [ "errorCode"  .= _dErrorCode+        , "scriptName" .= _dScriptName+        , "message"    .= _dMessage+        , "logTail"    .= _dLogTail+        ]++data StopStatus+    = SSPending   -- ^ Pending+    | SSSucceeded -- ^ Succeeded+      deriving (Eq, Ord, Show, Generic, Enum)++instance Hashable StopStatus++instance FromText StopStatus where+    parser = match "Pending"   SSPending+         <|> match "Succeeded" SSSucceeded++instance ToText StopStatus where+    toText = \case+        SSPending   -> "Pending"+        SSSucceeded -> "Succeeded"++instance FromJSON StopStatus where+    parseJSON = parseJSONText "StopStatus"++instance ToJSON StopStatus where+    toJSON = toJSONText++data ErrorInformation = ErrorInformation+    { _eiCode    :: Maybe Text+    , _eiMessage :: Maybe Text+    } deriving (Eq, Ord, Show)++-- | 'ErrorInformation' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'eiCode' @::@ 'Maybe' 'Text'+--+-- * 'eiMessage' @::@ 'Maybe' 'Text'+--+errorInformation :: ErrorInformation+errorInformation = ErrorInformation+    { _eiCode    = Nothing+    , _eiMessage = Nothing+    }++-- | The error code: APPLICATION_MISSING: The application was missing. Note+-- that this error code will most likely be raised if the application is+-- deleted after the deployment is created but before it starts.+-- DEPLOYMENT_GROUP_MISSING: The deployment group was missing. Note that+-- this error code will most likely be raised if the deployment group is+-- deleted after the deployment is created but before it starts.+-- REVISION_MISSING: The revision ID was missing. Note that this error code+-- will most likely be raised if the revision is deleted after the+-- deployment is created but before it starts. IAM_ROLE_MISSING: The service+-- role cannot be accessed. IAM_ROLE_PERMISSIONS: The service role does not+-- have the correct permissions. OVER_MAX_INSTANCES: The maximum number of+-- instances was exceeded. NO_INSTANCES: No instances were specified, or no+-- instances can be found. TIMEOUT: The deployment has timed out.+-- HEALTH_CONSTRAINTS_INVALID: The revision can never successfully deploy+-- under the instance health constraints as specified. HEALTH_CONSTRAINTS:+-- The deployment failed on too many instances to be able to successfully+-- deploy under the specified instance health constraints. INTERNAL_ERROR:+-- There was an internal error.+eiCode :: Lens' ErrorInformation (Maybe Text)+eiCode = lens _eiCode (\s a -> s { _eiCode = a })++-- | An accompanying error message.+eiMessage :: Lens' ErrorInformation (Maybe Text)+eiMessage = lens _eiMessage (\s a -> s { _eiMessage = a })++instance FromJSON ErrorInformation where+    parseJSON = withObject "ErrorInformation" $ \o -> ErrorInformation+        <$> o .:? "code"+        <*> o .:? "message"++instance ToJSON ErrorInformation where+    toJSON ErrorInformation{..} = object+        [ "code"    .= _eiCode+        , "message" .= _eiMessage+        ]++data SortOrder+    = Ascending  -- ^ ascending+    | Descending -- ^ descending+      deriving (Eq, Ord, Show, Generic, Enum)++instance Hashable SortOrder++instance FromText SortOrder where+    parser = match "ascending"  Ascending+         <|> match "descending" Descending++instance ToText SortOrder where+    toText = \case+        Ascending  -> "ascending"+        Descending -> "descending"++instance FromJSON SortOrder where+    parseJSON = parseJSONText "SortOrder"++instance ToJSON SortOrder where+    toJSON = toJSONText++data DeploymentInfo = DeploymentInfo+    { _diApplicationName               :: Maybe Text+    , _diCompleteTime                  :: Maybe RFC822+    , _diCreateTime                    :: Maybe RFC822+    , _diCreator                       :: Maybe Text+    , _diDeploymentConfigName          :: Maybe Text+    , _diDeploymentGroupName           :: Maybe Text+    , _diDeploymentId                  :: Maybe Text+    , _diDeploymentOverview            :: Maybe DeploymentOverview+    , _diDescription                   :: Maybe Text+    , _diErrorInformation              :: Maybe ErrorInformation+    , _diIgnoreApplicationStopFailures :: Maybe Bool+    , _diRevision                      :: Maybe RevisionLocation+    , _diStartTime                     :: Maybe RFC822+    , _diStatus                        :: Maybe Text+    } deriving (Eq, Show)++-- | 'DeploymentInfo' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'diApplicationName' @::@ 'Maybe' 'Text'+--+-- * 'diCompleteTime' @::@ 'Maybe' 'UTCTime'+--+-- * 'diCreateTime' @::@ 'Maybe' 'UTCTime'+--+-- * 'diCreator' @::@ 'Maybe' 'Text'+--+-- * 'diDeploymentConfigName' @::@ 'Maybe' 'Text'+--+-- * 'diDeploymentGroupName' @::@ 'Maybe' 'Text'+--+-- * 'diDeploymentId' @::@ 'Maybe' 'Text'+--+-- * 'diDeploymentOverview' @::@ 'Maybe' 'DeploymentOverview'+--+-- * 'diDescription' @::@ 'Maybe' 'Text'+--+-- * 'diErrorInformation' @::@ 'Maybe' 'ErrorInformation'+--+-- * 'diIgnoreApplicationStopFailures' @::@ 'Maybe' 'Bool'+--+-- * 'diRevision' @::@ 'Maybe' 'RevisionLocation'+--+-- * 'diStartTime' @::@ 'Maybe' 'UTCTime'+--+-- * 'diStatus' @::@ 'Maybe' 'Text'+--+deploymentInfo :: DeploymentInfo+deploymentInfo = DeploymentInfo+    { _diApplicationName               = Nothing+    , _diDeploymentGroupName           = Nothing+    , _diDeploymentConfigName          = Nothing+    , _diDeploymentId                  = Nothing+    , _diRevision                      = Nothing+    , _diStatus                        = Nothing+    , _diErrorInformation              = Nothing+    , _diCreateTime                    = Nothing+    , _diStartTime                     = Nothing+    , _diCompleteTime                  = Nothing+    , _diDeploymentOverview            = Nothing+    , _diDescription                   = Nothing+    , _diCreator                       = Nothing+    , _diIgnoreApplicationStopFailures = Nothing+    }++-- | The application name.+diApplicationName :: Lens' DeploymentInfo (Maybe Text)+diApplicationName =+    lens _diApplicationName (\s a -> s { _diApplicationName = a })++-- | A timestamp indicating when the deployment was completed.+diCompleteTime :: Lens' DeploymentInfo (Maybe UTCTime)+diCompleteTime = lens _diCompleteTime (\s a -> s { _diCompleteTime = a }) . mapping _Time++-- | A timestamp indicating when the deployment was created.+diCreateTime :: Lens' DeploymentInfo (Maybe UTCTime)+diCreateTime = lens _diCreateTime (\s a -> s { _diCreateTime = a }) . mapping _Time++-- | How the deployment was created: user: A user created the deployment.+-- autoscaling: Auto Scaling created the deployment.+diCreator :: Lens' DeploymentInfo (Maybe Text)+diCreator = lens _diCreator (\s a -> s { _diCreator = a })++-- | The deployment configuration name.+diDeploymentConfigName :: Lens' DeploymentInfo (Maybe Text)+diDeploymentConfigName =+    lens _diDeploymentConfigName (\s a -> s { _diDeploymentConfigName = a })++-- | The deployment group name.+diDeploymentGroupName :: Lens' DeploymentInfo (Maybe Text)+diDeploymentGroupName =+    lens _diDeploymentGroupName (\s a -> s { _diDeploymentGroupName = a })++-- | The deployment ID.+diDeploymentId :: Lens' DeploymentInfo (Maybe Text)+diDeploymentId = lens _diDeploymentId (\s a -> s { _diDeploymentId = a })++-- | A summary of the deployment status of the instances in the deployment.+diDeploymentOverview :: Lens' DeploymentInfo (Maybe DeploymentOverview)+diDeploymentOverview =+    lens _diDeploymentOverview (\s a -> s { _diDeploymentOverview = a })++-- | A comment about the deployment.+diDescription :: Lens' DeploymentInfo (Maybe Text)+diDescription = lens _diDescription (\s a -> s { _diDescription = a })++-- | Information about any error associated with this deployment.+diErrorInformation :: Lens' DeploymentInfo (Maybe ErrorInformation)+diErrorInformation =+    lens _diErrorInformation (\s a -> s { _diErrorInformation = a })++-- | If true, then if the deployment causes the ApplicationStop deployment+-- lifecycle event to fail to a specific instance, the deployment will not+-- be considered to have failed to that instance at that point and will+-- continue on to the BeforeInstall deployment lifecycle event. If false or+-- not specified, then if the deployment causes the ApplicationStop+-- deployment lifecycle event to fail to a specific instance, the deployment+-- will stop to that instance, and the deployment to that instance will be+-- considered to have failed.+diIgnoreApplicationStopFailures :: Lens' DeploymentInfo (Maybe Bool)+diIgnoreApplicationStopFailures =+    lens _diIgnoreApplicationStopFailures+        (\s a -> s { _diIgnoreApplicationStopFailures = a })++-- | Information about the location of application artifacts that are stored+-- and the service to retrieve them from.+diRevision :: Lens' DeploymentInfo (Maybe RevisionLocation)+diRevision = lens _diRevision (\s a -> s { _diRevision = a })++-- | A timestamp indicating when the deployment began deploying to the+-- deployment group. Note that in some cases, the reported value of the+-- start time may be later than the complete time. This is due to+-- differences in the clock settings of various back-end servers that+-- participate in the overall deployment process.+diStartTime :: Lens' DeploymentInfo (Maybe UTCTime)+diStartTime = lens _diStartTime (\s a -> s { _diStartTime = a }) . mapping _Time++-- | The current state of the deployment as a whole.+diStatus :: Lens' DeploymentInfo (Maybe Text)+diStatus = lens _diStatus (\s a -> s { _diStatus = a })++instance FromJSON DeploymentInfo where+    parseJSON = withObject "DeploymentInfo" $ \o -> DeploymentInfo+        <$> o .:? "applicationName"+        <*> o .:? "completeTime"+        <*> o .:? "createTime"+        <*> o .:? "creator"+        <*> o .:? "deploymentConfigName"+        <*> o .:? "deploymentGroupName"+        <*> o .:? "deploymentId"+        <*> o .:? "deploymentOverview"+        <*> o .:? "description"+        <*> o .:? "errorInformation"+        <*> o .:? "ignoreApplicationStopFailures"+        <*> o .:? "revision"+        <*> o .:? "startTime"+        <*> o .:? "status"++instance ToJSON DeploymentInfo where+    toJSON DeploymentInfo{..} = object+        [ "applicationName"               .= _diApplicationName+        , "deploymentGroupName"           .= _diDeploymentGroupName+        , "deploymentConfigName"          .= _diDeploymentConfigName+        , "deploymentId"                  .= _diDeploymentId+        , "revision"                      .= _diRevision+        , "status"                        .= _diStatus+        , "errorInformation"              .= _diErrorInformation+        , "createTime"                    .= _diCreateTime+        , "startTime"                     .= _diStartTime+        , "completeTime"                  .= _diCompleteTime+        , "deploymentOverview"            .= _diDeploymentOverview+        , "description"                   .= _diDescription+        , "creator"                       .= _diCreator+        , "ignoreApplicationStopFailures" .= _diIgnoreApplicationStopFailures+        ]++data LifecycleEvent = LifecycleEvent+    { _leDiagnostics        :: Maybe Diagnostics+    , _leEndTime            :: Maybe RFC822+    , _leLifecycleEventName :: Maybe Text+    , _leStartTime          :: Maybe RFC822+    , _leStatus             :: Maybe Text+    } deriving (Eq, Show)++-- | 'LifecycleEvent' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'leDiagnostics' @::@ 'Maybe' 'Diagnostics'+--+-- * 'leEndTime' @::@ 'Maybe' 'UTCTime'+--+-- * 'leLifecycleEventName' @::@ 'Maybe' 'Text'+--+-- * 'leStartTime' @::@ 'Maybe' 'UTCTime'+--+-- * 'leStatus' @::@ 'Maybe' 'Text'+--+lifecycleEvent :: LifecycleEvent+lifecycleEvent = LifecycleEvent+    { _leLifecycleEventName = Nothing+    , _leDiagnostics        = Nothing+    , _leStartTime          = Nothing+    , _leEndTime            = Nothing+    , _leStatus             = Nothing+    }++-- | Diagnostic information about the deployment lifecycle event.+leDiagnostics :: Lens' LifecycleEvent (Maybe Diagnostics)+leDiagnostics = lens _leDiagnostics (\s a -> s { _leDiagnostics = a })++-- | A timestamp indicating when the deployment lifecycle event ended.+leEndTime :: Lens' LifecycleEvent (Maybe UTCTime)+leEndTime = lens _leEndTime (\s a -> s { _leEndTime = a }) . mapping _Time++-- | The deployment lifecycle event name, such as ApplicationStop,+-- BeforeInstall, AfterInstall, ApplicationStart, or ValidateService.+leLifecycleEventName :: Lens' LifecycleEvent (Maybe Text)+leLifecycleEventName =+    lens _leLifecycleEventName (\s a -> s { _leLifecycleEventName = a })++-- | A timestamp indicating when the deployment lifecycle event started.+leStartTime :: Lens' LifecycleEvent (Maybe UTCTime)+leStartTime = lens _leStartTime (\s a -> s { _leStartTime = a }) . mapping _Time++-- | The deployment lifecycle event status: Pending: The deployment lifecycle+-- event is pending. InProgress: The deployment lifecycle event is in+-- progress. Succeeded: The deployment lifecycle event has succeeded.+-- Failed: The deployment lifecycle event has failed. Skipped: The+-- deployment lifecycle event has been skipped. Unknown: The deployment+-- lifecycle event is unknown.+leStatus :: Lens' LifecycleEvent (Maybe Text)+leStatus = lens _leStatus (\s a -> s { _leStatus = a })++instance FromJSON LifecycleEvent where+    parseJSON = withObject "LifecycleEvent" $ \o -> LifecycleEvent+        <$> o .:? "diagnostics"+        <*> o .:? "endTime"+        <*> o .:? "lifecycleEventName"+        <*> o .:? "startTime"+        <*> o .:? "status"++instance ToJSON LifecycleEvent where+    toJSON LifecycleEvent{..} = object+        [ "lifecycleEventName" .= _leLifecycleEventName+        , "diagnostics"        .= _leDiagnostics+        , "startTime"          .= _leStartTime+        , "endTime"            .= _leEndTime+        , "status"             .= _leStatus+        ]++data DeploymentOverview = DeploymentOverview+    { _doFailed     :: Maybe Integer+    , _doInProgress :: Maybe Integer+    , _doPending    :: Maybe Integer+    , _doSkipped    :: Maybe Integer+    , _doSucceeded  :: Maybe Integer+    } deriving (Eq, Ord, Show)++-- | 'DeploymentOverview' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'doFailed' @::@ 'Maybe' 'Integer'+--+-- * 'doInProgress' @::@ 'Maybe' 'Integer'+--+-- * 'doPending' @::@ 'Maybe' 'Integer'+--+-- * 'doSkipped' @::@ 'Maybe' 'Integer'+--+-- * 'doSucceeded' @::@ 'Maybe' 'Integer'+--+deploymentOverview :: DeploymentOverview+deploymentOverview = DeploymentOverview+    { _doPending    = Nothing+    , _doInProgress = Nothing+    , _doSucceeded  = Nothing+    , _doFailed     = Nothing+    , _doSkipped    = Nothing+    }++-- | The number of instances that have failed in the deployment.+doFailed :: Lens' DeploymentOverview (Maybe Integer)+doFailed = lens _doFailed (\s a -> s { _doFailed = a })++-- | The number of instances that are in progress in the deployment.+doInProgress :: Lens' DeploymentOverview (Maybe Integer)+doInProgress = lens _doInProgress (\s a -> s { _doInProgress = a })++-- | The number of instances that are pending in the deployment.+doPending :: Lens' DeploymentOverview (Maybe Integer)+doPending = lens _doPending (\s a -> s { _doPending = a })++-- | The number of instances that have been skipped in the deployment.+doSkipped :: Lens' DeploymentOverview (Maybe Integer)+doSkipped = lens _doSkipped (\s a -> s { _doSkipped = a })++-- | The number of instances that have succeeded in the deployment.+doSucceeded :: Lens' DeploymentOverview (Maybe Integer)+doSucceeded = lens _doSucceeded (\s a -> s { _doSucceeded = a })++instance FromJSON DeploymentOverview where+    parseJSON = withObject "DeploymentOverview" $ \o -> DeploymentOverview+        <$> o .:? "Failed"+        <*> o .:? "InProgress"+        <*> o .:? "Pending"+        <*> o .:? "Skipped"+        <*> o .:? "Succeeded"++instance ToJSON DeploymentOverview where+    toJSON DeploymentOverview{..} = object+        [ "Pending"    .= _doPending+        , "InProgress" .= _doInProgress+        , "Succeeded"  .= _doSucceeded+        , "Failed"     .= _doFailed+        , "Skipped"    .= _doSkipped+        ]++data ErrorCode+    = ApplicationMissing       -- ^ APPLICATION_MISSING+    | DeploymentGroupMissing   -- ^ DEPLOYMENT_GROUP_MISSING+    | HealthConstraints        -- ^ HEALTH_CONSTRAINTS+    | HealthConstraintsInvalid -- ^ HEALTH_CONSTRAINTS_INVALID+    | IamRoleMissing           -- ^ IAM_ROLE_MISSING+    | IamRolePermissions       -- ^ IAM_ROLE_PERMISSIONS+    | InternalError            -- ^ INTERNAL_ERROR+    | NoInstances              -- ^ NO_INSTANCES+    | OverMaxInstances         -- ^ OVER_MAX_INSTANCES+    | RevisionMissing          -- ^ REVISION_MISSING+    | Timeout                  -- ^ TIMEOUT+      deriving (Eq, Ord, Show, Generic, Enum)++instance Hashable ErrorCode++instance FromText ErrorCode where+    parser = match "APPLICATION_MISSING"        ApplicationMissing+         <|> match "DEPLOYMENT_GROUP_MISSING"   DeploymentGroupMissing+         <|> match "HEALTH_CONSTRAINTS"         HealthConstraints+         <|> match "HEALTH_CONSTRAINTS_INVALID" HealthConstraintsInvalid+         <|> match "IAM_ROLE_MISSING"           IamRoleMissing+         <|> match "IAM_ROLE_PERMISSIONS"       IamRolePermissions+         <|> match "INTERNAL_ERROR"             InternalError+         <|> match "NO_INSTANCES"               NoInstances+         <|> match "OVER_MAX_INSTANCES"         OverMaxInstances+         <|> match "REVISION_MISSING"           RevisionMissing+         <|> match "TIMEOUT"                    Timeout++instance ToText ErrorCode where+    toText = \case+        ApplicationMissing       -> "APPLICATION_MISSING"+        DeploymentGroupMissing   -> "DEPLOYMENT_GROUP_MISSING"+        HealthConstraints        -> "HEALTH_CONSTRAINTS"+        HealthConstraintsInvalid -> "HEALTH_CONSTRAINTS_INVALID"+        IamRoleMissing           -> "IAM_ROLE_MISSING"+        IamRolePermissions       -> "IAM_ROLE_PERMISSIONS"+        InternalError            -> "INTERNAL_ERROR"+        NoInstances              -> "NO_INSTANCES"+        OverMaxInstances         -> "OVER_MAX_INSTANCES"+        RevisionMissing          -> "REVISION_MISSING"+        Timeout                  -> "TIMEOUT"++instance FromJSON ErrorCode where+    parseJSON = parseJSONText "ErrorCode"++instance ToJSON ErrorCode where+    toJSON = toJSONText++data DeploymentConfigInfo = DeploymentConfigInfo+    { _dciCreateTime           :: Maybe RFC822+    , _dciDeploymentConfigId   :: Maybe Text+    , _dciDeploymentConfigName :: Maybe Text+    , _dciMinimumHealthyHosts  :: Maybe MinimumHealthyHosts+    } deriving (Eq, Show)++-- | 'DeploymentConfigInfo' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'dciCreateTime' @::@ 'Maybe' 'UTCTime'+--+-- * 'dciDeploymentConfigId' @::@ 'Maybe' 'Text'+--+-- * 'dciDeploymentConfigName' @::@ 'Maybe' 'Text'+--+-- * 'dciMinimumHealthyHosts' @::@ 'Maybe' 'MinimumHealthyHosts'+--+deploymentConfigInfo :: DeploymentConfigInfo+deploymentConfigInfo = DeploymentConfigInfo+    { _dciDeploymentConfigId   = Nothing+    , _dciDeploymentConfigName = Nothing+    , _dciMinimumHealthyHosts  = Nothing+    , _dciCreateTime           = Nothing+    }++-- | The time that the deployment configuration was created.+dciCreateTime :: Lens' DeploymentConfigInfo (Maybe UTCTime)+dciCreateTime = lens _dciCreateTime (\s a -> s { _dciCreateTime = a }) . mapping _Time++-- | The deployment configuration ID.+dciDeploymentConfigId :: Lens' DeploymentConfigInfo (Maybe Text)+dciDeploymentConfigId =+    lens _dciDeploymentConfigId (\s a -> s { _dciDeploymentConfigId = a })++-- | The deployment configuration name.+dciDeploymentConfigName :: Lens' DeploymentConfigInfo (Maybe Text)+dciDeploymentConfigName =+    lens _dciDeploymentConfigName (\s a -> s { _dciDeploymentConfigName = a })++-- | Information about the number or percentage of minimum healthy instances.+dciMinimumHealthyHosts :: Lens' DeploymentConfigInfo (Maybe MinimumHealthyHosts)+dciMinimumHealthyHosts =+    lens _dciMinimumHealthyHosts (\s a -> s { _dciMinimumHealthyHosts = a })++instance FromJSON DeploymentConfigInfo where+    parseJSON = withObject "DeploymentConfigInfo" $ \o -> DeploymentConfigInfo+        <$> o .:? "createTime"+        <*> o .:? "deploymentConfigId"+        <*> o .:? "deploymentConfigName"+        <*> o .:? "minimumHealthyHosts"++instance ToJSON DeploymentConfigInfo where+    toJSON DeploymentConfigInfo{..} = object+        [ "deploymentConfigId"   .= _dciDeploymentConfigId+        , "deploymentConfigName" .= _dciDeploymentConfigName+        , "minimumHealthyHosts"  .= _dciMinimumHealthyHosts+        , "createTime"           .= _dciCreateTime+        ]++data InstanceStatus+    = ISFailed     -- ^ Failed+    | ISInProgress -- ^ InProgress+    | ISPending    -- ^ Pending+    | ISSkipped    -- ^ Skipped+    | ISSucceeded  -- ^ Succeeded+    | ISUnknown    -- ^ Unknown+      deriving (Eq, Ord, Show, Generic, Enum)++instance Hashable InstanceStatus++instance FromText InstanceStatus where+    parser = match "Failed"     ISFailed+         <|> match "InProgress" ISInProgress+         <|> match "Pending"    ISPending+         <|> match "Skipped"    ISSkipped+         <|> match "Succeeded"  ISSucceeded+         <|> match "Unknown"    ISUnknown++instance ToText InstanceStatus where+    toText = \case+        ISFailed     -> "Failed"+        ISInProgress -> "InProgress"+        ISPending    -> "Pending"+        ISSkipped    -> "Skipped"+        ISSucceeded  -> "Succeeded"+        ISUnknown    -> "Unknown"++instance FromJSON InstanceStatus where+    parseJSON = parseJSONText "InstanceStatus"++instance ToJSON InstanceStatus where+    toJSON = toJSONText++data DeploymentStatus+    = DSCreated    -- ^ Created+    | DSFailed     -- ^ Failed+    | DSInProgress -- ^ InProgress+    | DSQueued     -- ^ Queued+    | DSStopped    -- ^ Stopped+    | DSSucceeded  -- ^ Succeeded+      deriving (Eq, Ord, Show, Generic, Enum)++instance Hashable DeploymentStatus++instance FromText DeploymentStatus where+    parser = match "Created"    DSCreated+         <|> match "Failed"     DSFailed+         <|> match "InProgress" DSInProgress+         <|> match "Queued"     DSQueued+         <|> match "Stopped"    DSStopped+         <|> match "Succeeded"  DSSucceeded++instance ToText DeploymentStatus where+    toText = \case+        DSCreated    -> "Created"+        DSFailed     -> "Failed"+        DSInProgress -> "InProgress"+        DSQueued     -> "Queued"+        DSStopped    -> "Stopped"+        DSSucceeded  -> "Succeeded"++instance FromJSON DeploymentStatus where+    parseJSON = parseJSONText "DeploymentStatus"++instance ToJSON DeploymentStatus where+    toJSON = toJSONText++data S3Location = S3Location+    { _slBucket     :: Maybe Text+    , _slBundleType :: Maybe Text+    , _slETag       :: Maybe Text+    , _slKey        :: Maybe Text+    , _slVersion    :: Maybe Text+    } deriving (Eq, Ord, Show)++-- | 'S3Location' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'slBucket' @::@ 'Maybe' 'Text'+--+-- * 'slBundleType' @::@ 'Maybe' 'Text'+--+-- * 'slETag' @::@ 'Maybe' 'Text'+--+-- * 'slKey' @::@ 'Maybe' 'Text'+--+-- * 'slVersion' @::@ 'Maybe' 'Text'+--+s3Location :: S3Location+s3Location = S3Location+    { _slBucket     = Nothing+    , _slKey        = Nothing+    , _slBundleType = Nothing+    , _slVersion    = Nothing+    , _slETag       = Nothing+    }++-- | The name of the Amazon S3 bucket where the application revision is+-- stored.+slBucket :: Lens' S3Location (Maybe Text)+slBucket = lens _slBucket (\s a -> s { _slBucket = a })++-- | The file type of the application revision. Must be one of the following:+-- tar: A tar archive file. tgz: A compressed tar archive file. zip: A zip+-- archive file.+slBundleType :: Lens' S3Location (Maybe Text)+slBundleType = lens _slBundleType (\s a -> s { _slBundleType = a })++-- | The ETag of the Amazon S3 object that represents the bundled artifacts+-- for the application revision. If the ETag is not specified as an input+-- parameter, ETag validation of the object will be skipped.+slETag :: Lens' S3Location (Maybe Text)+slETag = lens _slETag (\s a -> s { _slETag = a })++-- | The name of the Amazon S3 object that represents the bundled artifacts+-- for the application revision.+slKey :: Lens' S3Location (Maybe Text)+slKey = lens _slKey (\s a -> s { _slKey = a })++-- | A specific version of the Amazon S3 object that represents the bundled+-- artifacts for the application revision. If the version is not specified,+-- the system will use the most recent version by default.+slVersion :: Lens' S3Location (Maybe Text)+slVersion = lens _slVersion (\s a -> s { _slVersion = a })++instance FromJSON S3Location where+    parseJSON = withObject "S3Location" $ \o -> S3Location+        <$> o .:? "bucket"+        <*> o .:? "bundleType"+        <*> o .:? "eTag"+        <*> o .:? "key"+        <*> o .:? "version"++instance ToJSON S3Location where+    toJSON S3Location{..} = object+        [ "bucket"     .= _slBucket+        , "key"        .= _slKey+        , "bundleType" .= _slBundleType+        , "version"    .= _slVersion+        , "eTag"       .= _slETag+        ]++data MinimumHealthyHostsType+    = FleetPercent -- ^ FLEET_PERCENT+    | HostCount    -- ^ HOST_COUNT+      deriving (Eq, Ord, Show, Generic, Enum)++instance Hashable MinimumHealthyHostsType++instance FromText MinimumHealthyHostsType where+    parser = match "FLEET_PERCENT" FleetPercent+         <|> match "HOST_COUNT"    HostCount++instance ToText MinimumHealthyHostsType where+    toText = \case+        FleetPercent -> "FLEET_PERCENT"+        HostCount    -> "HOST_COUNT"++instance FromJSON MinimumHealthyHostsType where+    parseJSON = parseJSONText "MinimumHealthyHostsType"++instance ToJSON MinimumHealthyHostsType where+    toJSON = toJSONText++data GitHubLocation = GitHubLocation+    { _ghlCommitId   :: Maybe Text+    , _ghlRepository :: Maybe Text+    } deriving (Eq, Ord, Show)++-- | 'GitHubLocation' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'ghlCommitId' @::@ 'Maybe' 'Text'+--+-- * 'ghlRepository' @::@ 'Maybe' 'Text'+--+gitHubLocation :: GitHubLocation+gitHubLocation = GitHubLocation+    { _ghlRepository = Nothing+    , _ghlCommitId   = Nothing+    }++-- | The SHA1 commit ID of the GitHub commit that references the that+-- represents the bundled artifacts for the application revision.+ghlCommitId :: Lens' GitHubLocation (Maybe Text)+ghlCommitId = lens _ghlCommitId (\s a -> s { _ghlCommitId = a })++-- | The GitHub account and repository pair that stores a reference to the+-- commit that represents the bundled artifacts for the application+-- revision. Specified as account/repository.+ghlRepository :: Lens' GitHubLocation (Maybe Text)+ghlRepository = lens _ghlRepository (\s a -> s { _ghlRepository = a })++instance FromJSON GitHubLocation where+    parseJSON = withObject "GitHubLocation" $ \o -> GitHubLocation+        <$> o .:? "commitId"+        <*> o .:? "repository"++instance ToJSON GitHubLocation where+    toJSON GitHubLocation{..} = object+        [ "repository" .= _ghlRepository+        , "commitId"   .= _ghlCommitId+        ]++data RevisionLocationType+    = GitHub -- ^ GitHub+    | S3     -- ^ S3+      deriving (Eq, Ord, Show, Generic, Enum)++instance Hashable RevisionLocationType++instance FromText RevisionLocationType where+    parser = match "GitHub" GitHub+         <|> match "S3"     S3++instance ToText RevisionLocationType where+    toText = \case+        GitHub -> "GitHub"+        S3     -> "S3"++instance FromJSON RevisionLocationType where+    parseJSON = parseJSONText "RevisionLocationType"++instance ToJSON RevisionLocationType where+    toJSON = toJSONText++data EC2TagFilterType+    = KeyAndValue -- ^ KEY_AND_VALUE+    | KeyOnly     -- ^ KEY_ONLY+    | ValueOnly   -- ^ VALUE_ONLY+      deriving (Eq, Ord, Show, Generic, Enum)++instance Hashable EC2TagFilterType++instance FromText EC2TagFilterType where+    parser = match "KEY_AND_VALUE" KeyAndValue+         <|> match "KEY_ONLY"      KeyOnly+         <|> match "VALUE_ONLY"    ValueOnly++instance ToText EC2TagFilterType where+    toText = \case+        KeyAndValue -> "KEY_AND_VALUE"+        KeyOnly     -> "KEY_ONLY"+        ValueOnly   -> "VALUE_ONLY"++instance FromJSON EC2TagFilterType where+    parseJSON = parseJSONText "EC2TagFilterType"++instance ToJSON EC2TagFilterType where+    toJSON = toJSONText
+ gen/Network/AWS/CodeDeploy/UpdateApplication.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.CodeDeploy.UpdateApplication+-- 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 an existing application's name.+--+-- <http://docs.aws.amazon.com/codedeploy/latest/APIReference/API_UpdateApplication.html>+module Network.AWS.CodeDeploy.UpdateApplication+    (+    -- * Request+      UpdateApplication+    -- ** Request constructor+    , updateApplication+    -- ** Request lenses+    , uaApplicationName+    , uaNewApplicationName++    -- * Response+    , UpdateApplicationResponse+    -- ** Response constructor+    , updateApplicationResponse+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.JSON+import Network.AWS.CodeDeploy.Types+import qualified GHC.Exts++data UpdateApplication = UpdateApplication+    { _uaApplicationName    :: Maybe Text+    , _uaNewApplicationName :: Maybe Text+    } deriving (Eq, Ord, Show)++-- | 'UpdateApplication' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'uaApplicationName' @::@ 'Maybe' 'Text'+--+-- * 'uaNewApplicationName' @::@ 'Maybe' 'Text'+--+updateApplication :: UpdateApplication+updateApplication = UpdateApplication+    { _uaApplicationName    = Nothing+    , _uaNewApplicationName = Nothing+    }++-- | The current name of the application that you want to change.+uaApplicationName :: Lens' UpdateApplication (Maybe Text)+uaApplicationName =+    lens _uaApplicationName (\s a -> s { _uaApplicationName = a })++-- | The new name that you want to change the application to.+uaNewApplicationName :: Lens' UpdateApplication (Maybe Text)+uaNewApplicationName =+    lens _uaNewApplicationName (\s a -> s { _uaNewApplicationName = a })++data UpdateApplicationResponse = UpdateApplicationResponse+    deriving (Eq, Ord, Show, Generic)++-- | 'UpdateApplicationResponse' constructor.+updateApplicationResponse :: UpdateApplicationResponse+updateApplicationResponse = UpdateApplicationResponse++instance ToPath UpdateApplication where+    toPath = const "/"++instance ToQuery UpdateApplication where+    toQuery = const mempty++instance ToHeaders UpdateApplication++instance ToJSON UpdateApplication where+    toJSON UpdateApplication{..} = object+        [ "applicationName"    .= _uaApplicationName+        , "newApplicationName" .= _uaNewApplicationName+        ]++instance AWSRequest UpdateApplication where+    type Sv UpdateApplication = CodeDeploy+    type Rs UpdateApplication = UpdateApplicationResponse++    request  = post "UpdateApplication"+    response = nullResponse UpdateApplicationResponse
+ gen/Network/AWS/CodeDeploy/UpdateDeploymentGroup.hs view
@@ -0,0 +1,194 @@+{-# 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.CodeDeploy.UpdateDeploymentGroup+-- 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 information about an existing deployment group.+--+-- <http://docs.aws.amazon.com/codedeploy/latest/APIReference/API_UpdateDeploymentGroup.html>+module Network.AWS.CodeDeploy.UpdateDeploymentGroup+    (+    -- * Request+      UpdateDeploymentGroup+    -- ** Request constructor+    , updateDeploymentGroup+    -- ** Request lenses+    , udgApplicationName+    , udgAutoScalingGroups+    , udgCurrentDeploymentGroupName+    , udgDeploymentConfigName+    , udgEc2TagFilters+    , udgNewDeploymentGroupName+    , udgServiceRoleArn++    -- * Response+    , UpdateDeploymentGroupResponse+    -- ** Response constructor+    , updateDeploymentGroupResponse+    -- ** Response lenses+    , udgrHooksNotCleanedUp+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.JSON+import Network.AWS.CodeDeploy.Types+import qualified GHC.Exts++data UpdateDeploymentGroup = UpdateDeploymentGroup+    { _udgApplicationName            :: Text+    , _udgAutoScalingGroups          :: List "autoScalingGroups" Text+    , _udgCurrentDeploymentGroupName :: Text+    , _udgDeploymentConfigName       :: Maybe Text+    , _udgEc2TagFilters              :: List "ec2TagFilters" EC2TagFilter+    , _udgNewDeploymentGroupName     :: Maybe Text+    , _udgServiceRoleArn             :: Maybe Text+    } deriving (Eq, Show)++-- | 'UpdateDeploymentGroup' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'udgApplicationName' @::@ 'Text'+--+-- * 'udgAutoScalingGroups' @::@ ['Text']+--+-- * 'udgCurrentDeploymentGroupName' @::@ 'Text'+--+-- * 'udgDeploymentConfigName' @::@ 'Maybe' 'Text'+--+-- * 'udgEc2TagFilters' @::@ ['EC2TagFilter']+--+-- * 'udgNewDeploymentGroupName' @::@ 'Maybe' 'Text'+--+-- * 'udgServiceRoleArn' @::@ 'Maybe' 'Text'+--+updateDeploymentGroup :: Text -- ^ 'udgApplicationName'+                      -> Text -- ^ 'udgCurrentDeploymentGroupName'+                      -> UpdateDeploymentGroup+updateDeploymentGroup p1 p2 = UpdateDeploymentGroup+    { _udgApplicationName            = p1+    , _udgCurrentDeploymentGroupName = p2+    , _udgNewDeploymentGroupName     = Nothing+    , _udgDeploymentConfigName       = Nothing+    , _udgEc2TagFilters              = mempty+    , _udgAutoScalingGroups          = mempty+    , _udgServiceRoleArn             = Nothing+    }++-- | The application name corresponding to the deployment group to update.+udgApplicationName :: Lens' UpdateDeploymentGroup Text+udgApplicationName =+    lens _udgApplicationName (\s a -> s { _udgApplicationName = a })++-- | The replacement list of Auto Scaling groups to be included in the+-- deployment group, if you want to change them.+udgAutoScalingGroups :: Lens' UpdateDeploymentGroup [Text]+udgAutoScalingGroups =+    lens _udgAutoScalingGroups (\s a -> s { _udgAutoScalingGroups = a })+        . _List++-- | The current name of the existing deployment group.+udgCurrentDeploymentGroupName :: Lens' UpdateDeploymentGroup Text+udgCurrentDeploymentGroupName =+    lens _udgCurrentDeploymentGroupName+        (\s a -> s { _udgCurrentDeploymentGroupName = a })++-- | The replacement deployment configuration name to use, if you want to+-- change it.+udgDeploymentConfigName :: Lens' UpdateDeploymentGroup (Maybe Text)+udgDeploymentConfigName =+    lens _udgDeploymentConfigName (\s a -> s { _udgDeploymentConfigName = a })++-- | The replacement set of Amazon EC2 tags to filter on, if you want to+-- change them.+udgEc2TagFilters :: Lens' UpdateDeploymentGroup [EC2TagFilter]+udgEc2TagFilters = lens _udgEc2TagFilters (\s a -> s { _udgEc2TagFilters = a }) . _List++-- | The new name of the deployment group, if you want to change it.+udgNewDeploymentGroupName :: Lens' UpdateDeploymentGroup (Maybe Text)+udgNewDeploymentGroupName =+    lens _udgNewDeploymentGroupName+        (\s a -> s { _udgNewDeploymentGroupName = a })++-- | A replacement service role's ARN, if you want to change it.+udgServiceRoleArn :: Lens' UpdateDeploymentGroup (Maybe Text)+udgServiceRoleArn =+    lens _udgServiceRoleArn (\s a -> s { _udgServiceRoleArn = a })++newtype UpdateDeploymentGroupResponse = UpdateDeploymentGroupResponse+    { _udgrHooksNotCleanedUp :: List "autoScalingGroups" AutoScalingGroup+    } deriving (Eq, Show, Monoid, Semigroup)++instance GHC.Exts.IsList UpdateDeploymentGroupResponse where+    type Item UpdateDeploymentGroupResponse = AutoScalingGroup++    fromList = UpdateDeploymentGroupResponse . GHC.Exts.fromList+    toList   = GHC.Exts.toList . _udgrHooksNotCleanedUp++-- | 'UpdateDeploymentGroupResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'udgrHooksNotCleanedUp' @::@ ['AutoScalingGroup']+--+updateDeploymentGroupResponse :: UpdateDeploymentGroupResponse+updateDeploymentGroupResponse = UpdateDeploymentGroupResponse+    { _udgrHooksNotCleanedUp = mempty+    }++-- | If the output contains no data, and the corresponding deployment group+-- contained at least one Auto Scaling group, AWS CodeDeploy successfully+-- removed all corresponding Auto Scaling lifecycle event hooks from the AWS+-- user account. If the output does contain data, AWS CodeDeploy could not+-- remove some Auto Scaling lifecycle event hooks from the AWS user account.+udgrHooksNotCleanedUp :: Lens' UpdateDeploymentGroupResponse [AutoScalingGroup]+udgrHooksNotCleanedUp =+    lens _udgrHooksNotCleanedUp (\s a -> s { _udgrHooksNotCleanedUp = a })+        . _List++instance ToPath UpdateDeploymentGroup where+    toPath = const "/"++instance ToQuery UpdateDeploymentGroup where+    toQuery = const mempty++instance ToHeaders UpdateDeploymentGroup++instance ToJSON UpdateDeploymentGroup where+    toJSON UpdateDeploymentGroup{..} = object+        [ "applicationName"            .= _udgApplicationName+        , "currentDeploymentGroupName" .= _udgCurrentDeploymentGroupName+        , "newDeploymentGroupName"     .= _udgNewDeploymentGroupName+        , "deploymentConfigName"       .= _udgDeploymentConfigName+        , "ec2TagFilters"              .= _udgEc2TagFilters+        , "autoScalingGroups"          .= _udgAutoScalingGroups+        , "serviceRoleArn"             .= _udgServiceRoleArn+        ]++instance AWSRequest UpdateDeploymentGroup where+    type Sv UpdateDeploymentGroup = CodeDeploy+    type Rs UpdateDeploymentGroup = UpdateDeploymentGroupResponse++    request  = post "UpdateDeploymentGroup"+    response = jsonResponse++instance FromJSON UpdateDeploymentGroupResponse where+    parseJSON = withObject "UpdateDeploymentGroupResponse" $ \o -> UpdateDeploymentGroupResponse+        <$> o .:  "hooksNotCleanedUp"