amazonka-codedeploy 0.3.6 → 1.0.0

raw patch · 43 files changed

+7510/−5348 lines, 43 filesdep +amazonka-codedeploydep +amazonka-testdep +bytestringdep ~amazonka-coredep ~basePVP ok

version bump matches the API change (PVP)

Dependencies added: amazonka-codedeploy, amazonka-test, bytestring, lens, tasty, tasty-hunit, text, time, unordered-containers

Dependency ranges changed: amazonka-core, base

API changes (from Hackage documentation)

Files

• README.md +75/−9
• amazonka-codedeploy.cabal +105/−13
• gen/Network/AWS/CodeDeploy.hs +624/−73
• gen/Network/AWS/CodeDeploy/AddTagsToOnPremisesInstances.hs +84/−74
• gen/Network/AWS/CodeDeploy/BatchGetApplications.hs +99/−95
• gen/Network/AWS/CodeDeploy/BatchGetDeployments.hs +99/−92
• gen/Network/AWS/CodeDeploy/BatchGetOnPremisesInstances.hs +97/−93
• gen/Network/AWS/CodeDeploy/CreateApplication.hs +97/−80
• gen/Network/AWS/CodeDeploy/CreateDeployment.hs +146/−130
• gen/Network/AWS/CodeDeploy/CreateDeploymentConfig.hs +121/−102
• gen/Network/AWS/CodeDeploy/CreateDeploymentGroup.hs +183/−158
• gen/Network/AWS/CodeDeploy/DeleteApplication.hs +70/−63
• gen/Network/AWS/CodeDeploy/DeleteDeploymentConfig.hs +73/−63
• gen/Network/AWS/CodeDeploy/DeleteDeploymentGroup.hs +109/−98
• gen/Network/AWS/CodeDeploy/DeregisterOnPremisesInstance.hs +73/−62
• gen/Network/AWS/CodeDeploy/GetApplication.hs +94/−78
• gen/Network/AWS/CodeDeploy/GetApplicationRevision.hs +125/−107
• gen/Network/AWS/CodeDeploy/GetDeployment.hs +94/−78
• gen/Network/AWS/CodeDeploy/GetDeploymentConfig.hs +98/−80
• gen/Network/AWS/CodeDeploy/GetDeploymentGroup.hs +105/−87
• gen/Network/AWS/CodeDeploy/GetDeploymentInstance.hs +105/−86
• gen/Network/AWS/CodeDeploy/GetOnPremisesInstance.hs +96/−78
• gen/Network/AWS/CodeDeploy/ListApplicationRevisions.hs +177/−149
• gen/Network/AWS/CodeDeploy/ListApplications.hs +108/−87
• gen/Network/AWS/CodeDeploy/ListDeploymentConfigs.hs +108/−91
• gen/Network/AWS/CodeDeploy/ListDeploymentGroups.hs +129/−113
• gen/Network/AWS/CodeDeploy/ListDeploymentInstances.hs +140/−118
• gen/Network/AWS/CodeDeploy/ListDeployments.hs +146/−130
• gen/Network/AWS/CodeDeploy/ListOnPremisesInstances.hs +133/−112
• gen/Network/AWS/CodeDeploy/RegisterApplicationRevision.hs +90/−80
• gen/Network/AWS/CodeDeploy/RegisterOnPremisesInstance.hs +84/−73
• gen/Network/AWS/CodeDeploy/RemoveTagsFromOnPremisesInstances.hs +90/−72
• gen/Network/AWS/CodeDeploy/StopDeployment.hs +94/−90
• gen/Network/AWS/CodeDeploy/Types.hs +625/−2205
• gen/Network/AWS/CodeDeploy/Types/Product.hs +1371/−0
• gen/Network/AWS/CodeDeploy/Types/Sum.hs +537/−0
• gen/Network/AWS/CodeDeploy/UpdateApplication.hs +79/−72
• gen/Network/AWS/CodeDeploy/UpdateDeploymentGroup.hs +161/−157
• gen/Network/AWS/CodeDeploy/Waiters.hs +20/−0
• test/Main.hs +21/−0
• test/Test/AWS/CodeDeploy.hs +26/−0
• test/Test/AWS/CodeDeploy/Internal.hs +16/−0
• test/Test/AWS/Gen/CodeDeploy.hs +583/−0

@@ -1,24 +1,90 @@ # Amazon CodeDeploy SDK -> _Warning:_ This is an experimental preview release which is still under heavy development and not intended for public consumption, _caveat emptor_!-+* [Version](#version) * [Description](#description) * [Contribute](#contribute) * [Licence](#licence) ++## Version++`1.0.0`++ ## 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.+AWS CodeDeploy __Overview__ +This is the AWS CodeDeploy API Reference. This guide provides+descriptions of the AWS CodeDeploy APIs. For additional information, see+the+<http://docs.aws.amazon.com/codedeploy/latest/userguide AWS CodeDeploy User Guide>.++__Using the APIs__++You can use the AWS CodeDeploy APIs to work with the following items:++-   Applications are unique identifiers that AWS CodeDeploy uses to+    ensure that the correct combinations of revisions, deployment+    configurations, and deployment groups are being referenced during+    deployments.++    You can use the AWS CodeDeploy APIs to create, delete, get, list,+    and update applications.++-   Deployment configurations are sets of deployment rules and+    deployment success and failure conditions that AWS CodeDeploy uses+    during deployments.++    You can use the AWS CodeDeploy APIs to create, delete, get, and list+    deployment configurations.++-   Deployment groups are groups of instances to which application+    revisions can be deployed.++    You can use the AWS CodeDeploy APIs to create, delete, get, list,+    and update deployment groups.++-   Instances represent Amazon EC2 instances to which application+    revisions are deployed. Instances are identified by their Amazon EC2+    tags or Auto Scaling group names. Instances belong to deployment+    groups.++    You can use the AWS CodeDeploy APIs to get and list instances.++-   Deployments represent the process of deploying revisions to+    instances.++    You can use the AWS CodeDeploy APIs to create, get, list, and stop+    deployments.++-   Application revisions are archive files that are stored in Amazon S3+    buckets or GitHub repositories. These revisions contain source+    content (such as source code, web pages, executable files, any+    deployment scripts, and similar) along with an Application+    Specification file (AppSpec file). (The AppSpec file is unique to+    AWS CodeDeploy; it defines a series of deployment actions that you+    want AWS CodeDeploy to execute.) An application revision is uniquely+    identified by its Amazon S3 object key and its ETag, version, or+    both (for application revisions that are stored in Amazon S3+    buckets) or by its repository name and commit ID (for applications+    revisions that are stored in GitHub repositories). Application+    revisions are deployed through deployment groups.++    You can use the AWS CodeDeploy APIs to get, list, and register+    application revisions.+ Documentation is available via [Hackage](http://hackage.haskell.org/package/amazonka-codedeploy) and the [AWS API Reference](http://docs.aws.amazon.com/codedeploy/latest/APIReference/Welcome.html). +The types from this library are intended to be used with [amazonka](http://hackage.haskell.org/package/amazonka),+which provides mechanisms for specifying AuthN/AuthZ information and sending requests.++Use of lenses is required for constructing and manipulating types.+This is due to the amount of nesting of AWS types and transparency regarding+de/serialisation into more palatable Haskell values.+The provided lenses should be compatible with any of the major lens libraries+[lens](http://hackage.haskell.org/package/lens) or [lens-family-core](http://hackage.haskell.org/package/lens-family-core).  ## Contribute 

@@ -1,31 +1,92 @@ name:                  amazonka-codedeploy-version:               0.3.6+version:               1.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+copyright:             Copyright (c) 2013-2015 Brendan Hay category:              Network, AWS, Cloud, Distributed Computing 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.+    AWS CodeDeploy __Overview__ +    This is the AWS CodeDeploy API Reference. This guide provides+    descriptions of the AWS CodeDeploy APIs. For additional information, see+    the+    <http://docs.aws.amazon.com/codedeploy/latest/userguide AWS CodeDeploy User Guide>.++    __Using the APIs__++    You can use the AWS CodeDeploy APIs to work with the following items:++    -   Applications are unique identifiers that AWS CodeDeploy uses to+        ensure that the correct combinations of revisions, deployment+        configurations, and deployment groups are being referenced during+        deployments.++        You can use the AWS CodeDeploy APIs to create, delete, get, list,+        and update applications.++    -   Deployment configurations are sets of deployment rules and+        deployment success and failure conditions that AWS CodeDeploy uses+        during deployments.++        You can use the AWS CodeDeploy APIs to create, delete, get, and list+        deployment configurations.++    -   Deployment groups are groups of instances to which application+        revisions can be deployed.++        You can use the AWS CodeDeploy APIs to create, delete, get, list,+        and update deployment groups.++    -   Instances represent Amazon EC2 instances to which application+        revisions are deployed. Instances are identified by their Amazon EC2+        tags or Auto Scaling group names. Instances belong to deployment+        groups.++        You can use the AWS CodeDeploy APIs to get and list instances.++    -   Deployments represent the process of deploying revisions to+        instances.++        You can use the AWS CodeDeploy APIs to create, get, list, and stop+        deployments.++    -   Application revisions are archive files that are stored in Amazon S3+        buckets or GitHub repositories. These revisions contain source+        content (such as source code, web pages, executable files, any+        deployment scripts, and similar) along with an Application+        Specification file (AppSpec file). (The AppSpec file is unique to+        AWS CodeDeploy; it defines a series of deployment actions that you+        want AWS CodeDeploy to execute.) An application revision is uniquely+        identified by its Amazon S3 object key and its ETag, version, or+        both (for application revisions that are stored in Amazon S3+        buckets) or by its repository name and commit ID (for applications+        revisions that are stored in GitHub repositories). Application+        revisions are deployed through deployment groups.++        You can use the AWS CodeDeploy APIs to get, list, and register+        application revisions.     .-    /See:/ <http://docs.aws.amazon.com/codedeploy/latest/APIReference/Welcome.html AWS API Reference>+    The types from this library are intended to be used with+    <http://hackage.haskell.org/package/amazonka amazonka>, which provides+    mechanisms for specifying AuthN/AuthZ information and sending requests.     .-    /Warning:/ This is an experimental preview release which is still under-    heavy development and not intended for public consumption, caveat emptor!+    Use of lenses is required for constructing and manipulating types.+    This is due to the amount of nesting of AWS types and transparency regarding+    de/serialisation into more palatable Haskell values.+    The provided lenses should be compatible with any of the major lens libraries+    such as <http://hackage.haskell.org/package/lens lens> or+    <http://hackage.haskell.org/package/lens-family-core lens-family-core>.+    .+    See "Network.AWS.CodeDeploy" and the <http://docs.aws.amazon.com/codedeploy/latest/APIReference/Welcome.html AWS API Reference>+    to get started.  source-repository head     type:     git@@ -72,9 +133,40 @@         , Network.AWS.CodeDeploy.Types         , Network.AWS.CodeDeploy.UpdateApplication         , Network.AWS.CodeDeploy.UpdateDeploymentGroup+        , Network.AWS.CodeDeploy.Waiters      other-modules:+          Network.AWS.CodeDeploy.Types.Product+        , Network.AWS.CodeDeploy.Types.Sum      build-depends:-          amazonka-core == 0.3.6.*+          amazonka-core == 1.0.0.*         , base          >= 4.7     && < 5++test-suite amazonka-codedeploy-test+    type:              exitcode-stdio-1.0+    default-language:  Haskell2010+    hs-source-dirs:    test+    main-is:           Main.hs++    ghc-options:       -Wall -threaded++    -- This is not comprehensive if modules have manually been added.+    -- It exists to ensure cabal 'somewhat' detects test module changes.+    other-modules:+          Test.AWS.CodeDeploy+        , Test.AWS.Gen.CodeDeploy+        , Test.AWS.CodeDeploy.Internal++    build-depends:+          amazonka-core == 1.0.0+        , amazonka-test == 1.0.0+        , amazonka-codedeploy == 1.0.0+        , base+        , bytestring+        , lens+        , tasty+        , tasty-hunit+        , text+        , time+        , unordered-containers

@@ -1,88 +1,639 @@+{-# OPTIONS_GHC -fno-warn-unused-imports    #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- 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/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | 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.+-- AWS CodeDeploy __Overview__+--+-- This is the AWS CodeDeploy API Reference. This guide provides+-- descriptions of the AWS CodeDeploy APIs. For additional information, see+-- the+-- <http://docs.aws.amazon.com/codedeploy/latest/userguide AWS CodeDeploy User Guide>.+--+-- __Using the APIs__+--+-- You can use the AWS CodeDeploy APIs to work with the following items:+--+-- -   Applications are unique identifiers that AWS CodeDeploy uses to+--     ensure that the correct combinations of revisions, deployment+--     configurations, and deployment groups are being referenced during+--     deployments.+--+--     You can use the AWS CodeDeploy APIs to create, delete, get, list,+--     and update applications.+--+-- -   Deployment configurations are sets of deployment rules and+--     deployment success and failure conditions that AWS CodeDeploy uses+--     during deployments.+--+--     You can use the AWS CodeDeploy APIs to create, delete, get, and list+--     deployment configurations.+--+-- -   Deployment groups are groups of instances to which application+--     revisions can be deployed.+--+--     You can use the AWS CodeDeploy APIs to create, delete, get, list,+--     and update deployment groups.+--+-- -   Instances represent Amazon EC2 instances to which application+--     revisions are deployed. Instances are identified by their Amazon EC2+--     tags or Auto Scaling group names. Instances belong to deployment+--     groups.+--+--     You can use the AWS CodeDeploy APIs to get and list instances.+--+-- -   Deployments represent the process of deploying revisions to+--     instances.+--+--     You can use the AWS CodeDeploy APIs to create, get, list, and stop+--     deployments.+--+-- -   Application revisions are archive files that are stored in Amazon S3+--     buckets or GitHub repositories. These revisions contain source+--     content (such as source code, web pages, executable files, any+--     deployment scripts, and similar) along with an Application+--     Specification file (AppSpec file). (The AppSpec file is unique to+--     AWS CodeDeploy; it defines a series of deployment actions that you+--     want AWS CodeDeploy to execute.) An application revision is uniquely+--     identified by its Amazon S3 object key and its ETag, version, or+--     both (for application revisions that are stored in Amazon S3+--     buckets) or by its repository name and commit ID (for applications+--     revisions that are stored in GitHub repositories). Application+--     revisions are deployed through deployment groups.+--+--     You can use the AWS CodeDeploy APIs to get, list, and register+--     application revisions.+--+--+-- /See:/ <http://docs.aws.amazon.com/codedeploy/latest/APIReference/Welcome.html AWS API Reference> module Network.AWS.CodeDeploy-    ( module Network.AWS.CodeDeploy.AddTagsToOnPremisesInstances-    , module Network.AWS.CodeDeploy.BatchGetApplications-    , module Network.AWS.CodeDeploy.BatchGetDeployments-    , module Network.AWS.CodeDeploy.BatchGetOnPremisesInstances-    , module Network.AWS.CodeDeploy.CreateApplication-    , module Network.AWS.CodeDeploy.CreateDeployment+    (+    -- * Service+      CodeDeploy++    -- * Errors+    -- $errors++    -- ** InvalidTimeRangeException+    , _InvalidTimeRangeException++    -- ** InvalidTagException+    , _InvalidTagException++    -- ** InstanceNameAlreadyRegisteredException+    , _InstanceNameAlreadyRegisteredException++    -- ** InvalidIAMUserARNException+    , _InvalidIAMUserARNException++    -- ** IAMUserARNRequiredException+    , _IAMUserARNRequiredException++    -- ** InvalidDeploymentGroupNameException+    , _InvalidDeploymentGroupNameException++    -- ** DescriptionTooLongException+    , _DescriptionTooLongException++    -- ** DeploymentConfigAlreadyExistsException+    , _DeploymentConfigAlreadyExistsException++    -- ** DeploymentConfigLimitExceededException+    , _DeploymentConfigLimitExceededException++    -- ** InvalidRoleException+    , _InvalidRoleException++    -- ** DeploymentNotStartedException+    , _DeploymentNotStartedException++    -- ** RoleRequiredException+    , _RoleRequiredException++    -- ** IAMUserARNAlreadyRegisteredException+    , _IAMUserARNAlreadyRegisteredException++    -- ** DeploymentLimitExceededException+    , _DeploymentLimitExceededException++    -- ** InstanceLimitExceededException+    , _InstanceLimitExceededException++    -- ** InvalidAutoScalingGroupException+    , _InvalidAutoScalingGroupException++    -- ** InvalidApplicationNameException+    , _InvalidApplicationNameException++    -- ** InvalidDeployedStateFilterException+    , _InvalidDeployedStateFilterException++    -- ** InvalidMinimumHealthyHostValueException+    , _InvalidMinimumHealthyHostValueException++    -- ** ApplicationDoesNotExistException+    , _ApplicationDoesNotExistException++    -- ** InvalidTagFilterException+    , _InvalidTagFilterException++    -- ** TagRequiredException+    , _TagRequiredException++    -- ** RevisionDoesNotExistException+    , _RevisionDoesNotExistException++    -- ** DeploymentGroupNameRequiredException+    , _DeploymentGroupNameRequiredException++    -- ** InvalidBucketNameFilterException+    , _InvalidBucketNameFilterException++    -- ** DeploymentConfigDoesNotExistException+    , _DeploymentConfigDoesNotExistException++    -- ** InvalidSortByException+    , _InvalidSortByException++    -- ** BucketNameFilterRequiredException+    , _BucketNameFilterRequiredException++    -- ** DeploymentGroupLimitExceededException+    , _DeploymentGroupLimitExceededException++    -- ** DeploymentGroupAlreadyExistsException+    , _DeploymentGroupAlreadyExistsException++    -- ** InvalidDeploymentIdException+    , _InvalidDeploymentIdException++    -- ** DeploymentGroupDoesNotExistException+    , _DeploymentGroupDoesNotExistException++    -- ** DeploymentIdRequiredException+    , _DeploymentIdRequiredException++    -- ** InstanceIdRequiredException+    , _InstanceIdRequiredException++    -- ** DeploymentConfigNameRequiredException+    , _DeploymentConfigNameRequiredException++    -- ** InvalidDeploymentConfigNameException+    , _InvalidDeploymentConfigNameException++    -- ** InvalidSortOrderException+    , _InvalidSortOrderException++    -- ** InvalidNextTokenException+    , _InvalidNextTokenException++    -- ** InvalidRevisionException+    , _InvalidRevisionException++    -- ** DeploymentAlreadyCompletedException+    , _DeploymentAlreadyCompletedException++    -- ** RevisionRequiredException+    , _RevisionRequiredException++    -- ** InstanceDoesNotExistException+    , _InstanceDoesNotExistException++    -- ** DeploymentDoesNotExistException+    , _DeploymentDoesNotExistException++    -- ** InstanceNameRequiredException+    , _InstanceNameRequiredException++    -- ** DeploymentConfigInUseException+    , _DeploymentConfigInUseException++    -- ** InvalidEC2TagException+    , _InvalidEC2TagException++    -- ** InvalidInstanceNameException+    , _InvalidInstanceNameException++    -- ** InvalidDeploymentStatusException+    , _InvalidDeploymentStatusException++    -- ** InvalidRegistrationStatusException+    , _InvalidRegistrationStatusException++    -- ** TagLimitExceededException+    , _TagLimitExceededException++    -- ** InstanceNotRegisteredException+    , _InstanceNotRegisteredException++    -- ** ApplicationLimitExceededException+    , _ApplicationLimitExceededException++    -- ** InvalidOperationException+    , _InvalidOperationException++    -- ** ApplicationAlreadyExistsException+    , _ApplicationAlreadyExistsException++    -- ** InvalidInstanceStatusException+    , _InvalidInstanceStatusException++    -- ** ApplicationNameRequiredException+    , _ApplicationNameRequiredException++    -- ** InvalidKeyPrefixFilterException+    , _InvalidKeyPrefixFilterException++    -- * Waiters+    -- $waiters++    -- * Operations+    -- $operations++    -- ** RemoveTagsFromOnPremisesInstances+    , module Network.AWS.CodeDeploy.RemoveTagsFromOnPremisesInstances++    -- ** GetDeployment+    , module Network.AWS.CodeDeploy.GetDeployment++    -- ** CreateDeploymentConfig     , module Network.AWS.CodeDeploy.CreateDeploymentConfig-    , module Network.AWS.CodeDeploy.CreateDeploymentGroup-    , module Network.AWS.CodeDeploy.DeleteApplication-    , module Network.AWS.CodeDeploy.DeleteDeploymentConfig++    -- ** UpdateDeploymentGroup+    , module Network.AWS.CodeDeploy.UpdateDeploymentGroup++    -- ** DeleteDeploymentGroup     , module Network.AWS.CodeDeploy.DeleteDeploymentGroup-    , module Network.AWS.CodeDeploy.DeregisterOnPremisesInstance-    , module Network.AWS.CodeDeploy.GetApplication++    -- ** ListOnPremisesInstances+    , module Network.AWS.CodeDeploy.ListOnPremisesInstances++    -- ** GetApplicationRevision     , module Network.AWS.CodeDeploy.GetApplicationRevision-    , module Network.AWS.CodeDeploy.GetDeployment++    -- ** DeleteDeploymentConfig+    , module Network.AWS.CodeDeploy.DeleteDeploymentConfig++    -- ** GetDeploymentConfig     , module Network.AWS.CodeDeploy.GetDeploymentConfig-    , module Network.AWS.CodeDeploy.GetDeploymentGroup-    , module Network.AWS.CodeDeploy.GetDeploymentInstance++    -- ** CreateDeployment+    , module Network.AWS.CodeDeploy.CreateDeployment++    -- ** GetOnPremisesInstance     , module Network.AWS.CodeDeploy.GetOnPremisesInstance++    -- ** BatchGetDeployments+    , module Network.AWS.CodeDeploy.BatchGetDeployments++    -- ** RegisterApplicationRevision+    , module Network.AWS.CodeDeploy.RegisterApplicationRevision++    -- ** DeleteApplication+    , module Network.AWS.CodeDeploy.DeleteApplication++    -- ** UpdateApplication+    , module Network.AWS.CodeDeploy.UpdateApplication++    -- ** BatchGetApplications+    , module Network.AWS.CodeDeploy.BatchGetApplications++    -- ** CreateApplication+    , module Network.AWS.CodeDeploy.CreateApplication++    -- ** DeregisterOnPremisesInstance+    , module Network.AWS.CodeDeploy.DeregisterOnPremisesInstance++    -- ** GetDeploymentInstance+    , module Network.AWS.CodeDeploy.GetDeploymentInstance++    -- ** StopDeployment+    , module Network.AWS.CodeDeploy.StopDeployment++    -- ** GetApplication+    , module Network.AWS.CodeDeploy.GetApplication++    -- ** ListDeploymentGroups+    , module Network.AWS.CodeDeploy.ListDeploymentGroups++    -- ** RegisterOnPremisesInstance+    , module Network.AWS.CodeDeploy.RegisterOnPremisesInstance++    -- ** BatchGetOnPremisesInstances+    , module Network.AWS.CodeDeploy.BatchGetOnPremisesInstances++    -- ** ListDeploymentConfigs+    , module Network.AWS.CodeDeploy.ListDeploymentConfigs++    -- ** CreateDeploymentGroup+    , module Network.AWS.CodeDeploy.CreateDeploymentGroup++    -- ** GetDeploymentGroup+    , module Network.AWS.CodeDeploy.GetDeploymentGroup++    -- ** ListDeployments+    , module Network.AWS.CodeDeploy.ListDeployments++    -- ** ListApplicationRevisions     , module Network.AWS.CodeDeploy.ListApplicationRevisions++    -- ** ListApplications     , module Network.AWS.CodeDeploy.ListApplications-    , module Network.AWS.CodeDeploy.ListDeploymentConfigs-    , module Network.AWS.CodeDeploy.ListDeploymentGroups++    -- ** AddTagsToOnPremisesInstances+    , module Network.AWS.CodeDeploy.AddTagsToOnPremisesInstances++    -- ** ListDeploymentInstances     , module Network.AWS.CodeDeploy.ListDeploymentInstances-    , module Network.AWS.CodeDeploy.ListDeployments-    , module Network.AWS.CodeDeploy.ListOnPremisesInstances-    , module Network.AWS.CodeDeploy.RegisterApplicationRevision-    , module Network.AWS.CodeDeploy.RegisterOnPremisesInstance-    , module Network.AWS.CodeDeploy.RemoveTagsFromOnPremisesInstances-    , module Network.AWS.CodeDeploy.StopDeployment-    , module Network.AWS.CodeDeploy.Types-    , module Network.AWS.CodeDeploy.UpdateApplication-    , module Network.AWS.CodeDeploy.UpdateDeploymentGroup++    -- * Types++    -- ** ApplicationRevisionSortBy+    , ApplicationRevisionSortBy (..)++    -- ** BundleType+    , BundleType (..)++    -- ** DeployErrorCode+    , DeployErrorCode (..)++    -- ** DeploymentCreator+    , DeploymentCreator (..)++    -- ** DeploymentStatus+    , DeploymentStatus (..)++    -- ** EC2TagFilterType+    , EC2TagFilterType (..)++    -- ** InstanceStatus+    , InstanceStatus (..)++    -- ** LifecycleErrorCode+    , LifecycleErrorCode (..)++    -- ** LifecycleEventStatus+    , LifecycleEventStatus (..)++    -- ** ListStateFilterAction+    , ListStateFilterAction (..)++    -- ** MinimumHealthyHostsType+    , MinimumHealthyHostsType (..)++    -- ** RegistrationStatus+    , RegistrationStatus (..)++    -- ** RevisionLocationType+    , RevisionLocationType (..)++    -- ** SortOrder+    , SortOrder (..)++    -- ** StopStatus+    , StopStatus (..)++    -- ** TagFilterType+    , TagFilterType (..)++    -- ** ApplicationInfo+    , ApplicationInfo+    , applicationInfo+    , aiLinkedToGitHub+    , aiApplicationId+    , aiApplicationName+    , aiCreateTime++    -- ** AutoScalingGroup+    , AutoScalingGroup+    , autoScalingGroup+    , asgHook+    , asgName++    -- ** DeploymentConfigInfo+    , DeploymentConfigInfo+    , deploymentConfigInfo+    , dciDeploymentConfigName+    , dciMinimumHealthyHosts+    , dciDeploymentConfigId+    , dciCreateTime++    -- ** DeploymentGroupInfo+    , DeploymentGroupInfo+    , deploymentGroupInfo+    , dgiServiceRoleARN+    , dgiDeploymentConfigName+    , dgiTargetRevision+    , dgiEc2TagFilters+    , dgiOnPremisesInstanceTagFilters+    , dgiApplicationName+    , dgiDeploymentGroupId+    , dgiAutoScalingGroups+    , dgiDeploymentGroupName++    -- ** DeploymentInfo+    , DeploymentInfo+    , deploymentInfo+    , diDeploymentId+    , diCreator+    , diStatus+    , diDeploymentConfigName+    , diStartTime+    , diCompleteTime+    , diErrorInformation+    , diDeploymentOverview+    , diApplicationName+    , diRevision+    , diDescription+    , diIgnoreApplicationStopFailures+    , diDeploymentGroupName+    , diCreateTime++    -- ** DeploymentOverview+    , DeploymentOverview+    , deploymentOverview+    , doPending+    , doSkipped+    , doInProgress+    , doSucceeded+    , doFailed++    -- ** Diagnostics+    , Diagnostics+    , diagnostics+    , dLogTail+    , dErrorCode+    , dScriptName+    , dMessage++    -- ** EC2TagFilter+    , EC2TagFilter+    , ec2TagFilter+    , etfValue+    , etfKey+    , etfType++    -- ** ErrorInformation+    , ErrorInformation+    , errorInformation+    , eiCode+    , eiMessage++    -- ** GenericRevisionInfo+    , GenericRevisionInfo+    , genericRevisionInfo+    , griRegisterTime+    , griFirstUsedTime+    , griDeploymentGroups+    , griLastUsedTime+    , griDescription++    -- ** GitHubLocation+    , GitHubLocation+    , gitHubLocation+    , ghlCommitId+    , ghlRepository++    -- ** InstanceInfo+    , InstanceInfo+    , instanceInfo+    , iiInstanceARN+    , iiRegisterTime+    , iiDeregisterTime+    , iiIamUserARN+    , iiInstanceName+    , iiTags++    -- ** InstanceSummary+    , InstanceSummary+    , instanceSummary+    , isInstanceId+    , isDeploymentId+    , isStatus+    , isLastUpdatedAt+    , isLifecycleEvents++    -- ** LifecycleEvent+    , LifecycleEvent+    , lifecycleEvent+    , leStatus+    , leStartTime+    , leLifecycleEventName+    , leDiagnostics+    , leEndTime++    -- ** MinimumHealthyHosts+    , MinimumHealthyHosts+    , minimumHealthyHosts+    , mhhValue+    , mhhType++    -- ** RevisionLocation+    , RevisionLocation+    , revisionLocation+    , rlRevisionType+    , rlS3Location+    , rlGitHubLocation++    -- ** S3Location+    , S3Location+    , s3Location+    , slBundleType+    , slETag+    , slBucket+    , slKey+    , slVersion++    -- ** Tag+    , Tag+    , tag+    , tagValue+    , tagKey++    -- ** TagFilter+    , TagFilter+    , tagFilter+    , tfValue+    , tfKey+    , tfType++    -- ** TimeRange+    , TimeRange+    , timeRange+    , trStart+    , trEnd     ) where -import Network.AWS.CodeDeploy.AddTagsToOnPremisesInstances-import Network.AWS.CodeDeploy.BatchGetApplications-import Network.AWS.CodeDeploy.BatchGetDeployments-import Network.AWS.CodeDeploy.BatchGetOnPremisesInstances-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.DeregisterOnPremisesInstance-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.GetOnPremisesInstance-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.ListOnPremisesInstances-import Network.AWS.CodeDeploy.RegisterApplicationRevision-import Network.AWS.CodeDeploy.RegisterOnPremisesInstance-import Network.AWS.CodeDeploy.RemoveTagsFromOnPremisesInstances-import Network.AWS.CodeDeploy.StopDeployment-import Network.AWS.CodeDeploy.Types-import Network.AWS.CodeDeploy.UpdateApplication-import Network.AWS.CodeDeploy.UpdateDeploymentGroup+import           Network.AWS.CodeDeploy.AddTagsToOnPremisesInstances+import           Network.AWS.CodeDeploy.BatchGetApplications+import           Network.AWS.CodeDeploy.BatchGetDeployments+import           Network.AWS.CodeDeploy.BatchGetOnPremisesInstances+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.DeregisterOnPremisesInstance+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.GetOnPremisesInstance+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.ListOnPremisesInstances+import           Network.AWS.CodeDeploy.RegisterApplicationRevision+import           Network.AWS.CodeDeploy.RegisterOnPremisesInstance+import           Network.AWS.CodeDeploy.RemoveTagsFromOnPremisesInstances+import           Network.AWS.CodeDeploy.StopDeployment+import           Network.AWS.CodeDeploy.Types+import           Network.AWS.CodeDeploy.UpdateApplication+import           Network.AWS.CodeDeploy.UpdateDeploymentGroup+import           Network.AWS.CodeDeploy.Waiters++{- $errors+Error matchers are designed for use with the functions provided by+<http://hackage.haskell.org/package/lens/docs/Control-Exception-Lens.html Control.Exception.Lens>.+This allows catching (and rethrowing) service specific errors returned+by 'CodeDeploy'.+-}++{- $operations+Some AWS operations return results that are incomplete and require subsequent+requests in order to obtain the entire result set. The process of sending+subsequent requests to continue where a previous request left off is called+pagination. For example, the 'ListObjects' operation of Amazon S3 returns up to+1000 objects at a time, and you must send subsequent requests with the+appropriate Marker in order to retrieve the next page of results.++Operations that have an 'AWSPager' instance can transparently perform subsequent+requests, correctly setting Markers and other request facets to iterate through+the entire result set of a truncated API operation. Operations which support+this have an additional note in the documentation.++Many operations have the ability to filter results on the server side. See the+individual operation parameters for details.+-}++{- $waiters+Waiters poll by repeatedly sending a request until some remote success condition+configured by the 'Wait' specification is fulfilled. The 'Wait' specification+determines how many attempts should be made, in addition to delay and retry strategies.+-}

@@ -1,108 +1,118 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.CodeDeploy.AddTagsToOnPremisesInstances--- 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/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Adds tags to on-premises instances.+-- Adds tags to on-premises instances. ----- <http://docs.aws.amazon.com/codedeploy/latest/APIReference/API_AddTagsToOnPremisesInstances.html>+-- /See:/ <http://docs.aws.amazon.com/codedeploy/latest/APIReference/API_AddTagsToOnPremisesInstances.html AWS API Reference> for AddTagsToOnPremisesInstances. module Network.AWS.CodeDeploy.AddTagsToOnPremisesInstances     (-    -- * Request-      AddTagsToOnPremisesInstances-    -- ** Request constructor-    , addTagsToOnPremisesInstances-    -- ** Request lenses-    , attopiInstanceNames+    -- * Creating a Request+      addTagsToOnPremisesInstances+    , AddTagsToOnPremisesInstances+    -- * Request Lenses     , attopiTags+    , attopiInstanceNames -    -- * Response-    , AddTagsToOnPremisesInstancesResponse-    -- ** Response constructor+    -- * Destructuring the Response     , addTagsToOnPremisesInstancesResponse+    , AddTagsToOnPremisesInstancesResponse     ) where -import Network.AWS.Data (Object)-import Network.AWS.Prelude-import Network.AWS.Request.JSON-import Network.AWS.CodeDeploy.Types-import qualified GHC.Exts--data AddTagsToOnPremisesInstances = AddTagsToOnPremisesInstances-    { _attopiInstanceNames :: List "instanceNames" Text-    , _attopiTags          :: List "tags" Tag-    } deriving (Eq, Read, Show)+import           Network.AWS.CodeDeploy.Types+import           Network.AWS.CodeDeploy.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response --- | 'AddTagsToOnPremisesInstances' constructor.+-- | Represents the input of an adds tags to on-premises instance operation. ----- The fields accessible through corresponding lenses are:+-- /See:/ 'addTagsToOnPremisesInstances' smart constructor.+data AddTagsToOnPremisesInstances = AddTagsToOnPremisesInstances'+    { _attopiTags          :: ![Tag]+    , _attopiInstanceNames :: ![Text]+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'AddTagsToOnPremisesInstances' with the minimum fields required to make a request. ----- * 'attopiInstanceNames' @::@ ['Text']+-- Use one of the following lenses to modify other fields as desired: ----- * 'attopiTags' @::@ ['Tag']+-- * 'attopiTags' ---addTagsToOnPremisesInstances :: AddTagsToOnPremisesInstances-addTagsToOnPremisesInstances = AddTagsToOnPremisesInstances-    { _attopiTags          = mempty+-- * 'attopiInstanceNames'+addTagsToOnPremisesInstances+    :: AddTagsToOnPremisesInstances+addTagsToOnPremisesInstances =+    AddTagsToOnPremisesInstances'+    { _attopiTags = mempty     , _attopiInstanceNames = mempty     } --- | The names of the on-premises instances to add tags to.-attopiInstanceNames :: Lens' AddTagsToOnPremisesInstances [Text]-attopiInstanceNames =-    lens _attopiInstanceNames (\s a -> s { _attopiInstanceNames = a })-        . _List- -- | The tag key-value pairs to add to the on-premises instances. ----- Keys and values are both required. Keys cannot be nulls or empty strings.--- Value-only tags are not allowed.+-- Keys and values are both required. Keys cannot be nulls or empty+-- strings. Value-only tags are not allowed. attopiTags :: Lens' AddTagsToOnPremisesInstances [Tag]-attopiTags = lens _attopiTags (\s a -> s { _attopiTags = a }) . _List+attopiTags = lens _attopiTags (\ s a -> s{_attopiTags = a}) . _Coerce; -data AddTagsToOnPremisesInstancesResponse = AddTagsToOnPremisesInstancesResponse-    deriving (Eq, Ord, Read, Show, Generic)+-- | The names of the on-premises instances to add tags to.+attopiInstanceNames :: Lens' AddTagsToOnPremisesInstances [Text]+attopiInstanceNames = lens _attopiInstanceNames (\ s a -> s{_attopiInstanceNames = a}) . _Coerce; --- | 'AddTagsToOnPremisesInstancesResponse' constructor.-addTagsToOnPremisesInstancesResponse :: AddTagsToOnPremisesInstancesResponse-addTagsToOnPremisesInstancesResponse = AddTagsToOnPremisesInstancesResponse+instance AWSRequest AddTagsToOnPremisesInstances+         where+        type Sv AddTagsToOnPremisesInstances = CodeDeploy+        type Rs AddTagsToOnPremisesInstances =+             AddTagsToOnPremisesInstancesResponse+        request = postJSON+        response+          = receiveNull AddTagsToOnPremisesInstancesResponse' -instance ToPath AddTagsToOnPremisesInstances where-    toPath = const "/"+instance ToHeaders AddTagsToOnPremisesInstances where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("CodeDeploy_20141006.AddTagsToOnPremisesInstances"+                       :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)]) -instance ToQuery AddTagsToOnPremisesInstances where-    toQuery = const mempty+instance ToJSON AddTagsToOnPremisesInstances where+        toJSON AddTagsToOnPremisesInstances'{..}+          = object+              ["tags" .= _attopiTags,+               "instanceNames" .= _attopiInstanceNames] -instance ToHeaders AddTagsToOnPremisesInstances+instance ToPath AddTagsToOnPremisesInstances where+        toPath = const "/" -instance ToJSON AddTagsToOnPremisesInstances where-    toJSON AddTagsToOnPremisesInstances{..} = object-        [ "tags"          .= _attopiTags-        , "instanceNames" .= _attopiInstanceNames-        ]+instance ToQuery AddTagsToOnPremisesInstances where+        toQuery = const mempty -instance AWSRequest AddTagsToOnPremisesInstances where-    type Sv AddTagsToOnPremisesInstances = CodeDeploy-    type Rs AddTagsToOnPremisesInstances = AddTagsToOnPremisesInstancesResponse+-- | /See:/ 'addTagsToOnPremisesInstancesResponse' smart constructor.+data AddTagsToOnPremisesInstancesResponse =+    AddTagsToOnPremisesInstancesResponse'+    deriving (Eq,Read,Show,Data,Typeable,Generic) -    request  = post "AddTagsToOnPremisesInstances"-    response = nullResponse AddTagsToOnPremisesInstancesResponse+-- | Creates a value of 'AddTagsToOnPremisesInstancesResponse' with the minimum fields required to make a request.+--+addTagsToOnPremisesInstancesResponse+    :: AddTagsToOnPremisesInstancesResponse+addTagsToOnPremisesInstancesResponse = AddTagsToOnPremisesInstancesResponse'

@@ -1,128 +1,132 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.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/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Gets information about one or more applications.+-- Gets information about one or more applications. ----- <http://docs.aws.amazon.com/codedeploy/latest/APIReference/API_BatchGetApplications.html>+-- /See:/ <http://docs.aws.amazon.com/codedeploy/latest/APIReference/API_BatchGetApplications.html AWS API Reference> for BatchGetApplications. module Network.AWS.CodeDeploy.BatchGetApplications     (-    -- * Request-      BatchGetApplications-    -- ** Request constructor-    , batchGetApplications-    -- ** Request lenses+    -- * Creating a Request+      batchGetApplications+    , BatchGetApplications+    -- * Request Lenses     , bgaApplicationNames -    -- * Response-    , BatchGetApplicationsResponse-    -- ** Response constructor+    -- * Destructuring the Response     , batchGetApplicationsResponse-    -- ** Response lenses-    , bgarApplicationsInfo+    , BatchGetApplicationsResponse+    -- * Response Lenses+    , bgarsApplicationsInfo+    , bgarsStatus     ) where -import Network.AWS.Data (Object)-import Network.AWS.Prelude-import Network.AWS.Request.JSON-import Network.AWS.CodeDeploy.Types-import qualified GHC.Exts--newtype BatchGetApplications = BatchGetApplications-    { _bgaApplicationNames :: List "applicationNames" Text-    } deriving (Eq, Ord, Read, Show, Monoid, Semigroup)--instance GHC.Exts.IsList BatchGetApplications where-    type Item BatchGetApplications = Text--    fromList = BatchGetApplications . GHC.Exts.fromList-    toList   = GHC.Exts.toList . _bgaApplicationNames+import           Network.AWS.CodeDeploy.Types+import           Network.AWS.CodeDeploy.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response --- | 'BatchGetApplications' constructor.+-- | Represents the input of a batch get applications operation. ----- The fields accessible through corresponding lenses are:+-- /See:/ 'batchGetApplications' smart constructor.+newtype BatchGetApplications = BatchGetApplications'+    { _bgaApplicationNames :: Maybe [Text]+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'BatchGetApplications' with the minimum fields required to make a request. ----- * 'bgaApplicationNames' @::@ ['Text']+-- Use one of the following lenses to modify other fields as desired: ---batchGetApplications :: BatchGetApplications-batchGetApplications = BatchGetApplications-    { _bgaApplicationNames = mempty+-- * 'bgaApplicationNames'+batchGetApplications+    :: BatchGetApplications+batchGetApplications =+    BatchGetApplications'+    { _bgaApplicationNames = Nothing     } --- | A list of application names, with multiple application names separated by--- spaces.+-- | 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, Read, Show, Monoid, Semigroup)--instance GHC.Exts.IsList BatchGetApplicationsResponse where-    type Item BatchGetApplicationsResponse = ApplicationInfo+bgaApplicationNames = lens _bgaApplicationNames (\ s a -> s{_bgaApplicationNames = a}) . _Default . _Coerce; -    fromList = BatchGetApplicationsResponse . GHC.Exts.fromList-    toList   = GHC.Exts.toList . _bgarApplicationsInfo+instance AWSRequest BatchGetApplications where+        type Sv BatchGetApplications = CodeDeploy+        type Rs BatchGetApplications =+             BatchGetApplicationsResponse+        request = postJSON+        response+          = receiveJSON+              (\ s h x ->+                 BatchGetApplicationsResponse' <$>+                   (x .?> "applicationsInfo" .!@ mempty) <*>+                     (pure (fromEnum s))) --- | 'BatchGetApplicationsResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'bgarApplicationsInfo' @::@ ['ApplicationInfo']----batchGetApplicationsResponse :: BatchGetApplicationsResponse-batchGetApplicationsResponse = BatchGetApplicationsResponse-    { _bgarApplicationsInfo = mempty-    }+instance ToHeaders BatchGetApplications where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("CodeDeploy_20141006.BatchGetApplications" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)]) --- | Information about the applications.-bgarApplicationsInfo :: Lens' BatchGetApplicationsResponse [ApplicationInfo]-bgarApplicationsInfo =-    lens _bgarApplicationsInfo (\s a -> s { _bgarApplicationsInfo = a })-        . _List+instance ToJSON BatchGetApplications where+        toJSON BatchGetApplications'{..}+          = object ["applicationNames" .= _bgaApplicationNames]  instance ToPath BatchGetApplications where-    toPath = const "/"+        toPath = const "/"  instance ToQuery BatchGetApplications where-    toQuery = const mempty--instance ToHeaders BatchGetApplications+        toQuery = const mempty -instance ToJSON BatchGetApplications where-    toJSON BatchGetApplications{..} = object-        [ "applicationNames" .= _bgaApplicationNames-        ]+-- | Represents the output of a batch get applications operation.+--+-- /See:/ 'batchGetApplicationsResponse' smart constructor.+data BatchGetApplicationsResponse = BatchGetApplicationsResponse'+    { _bgarsApplicationsInfo :: !(Maybe [ApplicationInfo])+    , _bgarsStatus           :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest BatchGetApplications where-    type Sv BatchGetApplications = CodeDeploy-    type Rs BatchGetApplications = BatchGetApplicationsResponse+-- | Creates a value of 'BatchGetApplicationsResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'bgarsApplicationsInfo'+--+-- * 'bgarsStatus'+batchGetApplicationsResponse+    :: Int -- ^ 'bgarsStatus'+    -> BatchGetApplicationsResponse+batchGetApplicationsResponse pStatus_ =+    BatchGetApplicationsResponse'+    { _bgarsApplicationsInfo = Nothing+    , _bgarsStatus = pStatus_+    } -    request  = post "BatchGetApplications"-    response = jsonResponse+-- | Information about the applications.+bgarsApplicationsInfo :: Lens' BatchGetApplicationsResponse [ApplicationInfo]+bgarsApplicationsInfo = lens _bgarsApplicationsInfo (\ s a -> s{_bgarsApplicationsInfo = a}) . _Default . _Coerce; -instance FromJSON BatchGetApplicationsResponse where-    parseJSON = withObject "BatchGetApplicationsResponse" $ \o -> BatchGetApplicationsResponse-        <$> o .:? "applicationsInfo" .!= mempty+-- | The response status code.+bgarsStatus :: Lens' BatchGetApplicationsResponse Int+bgarsStatus = lens _bgarsStatus (\ s a -> s{_bgarsStatus = a});

@@ -1,125 +1,132 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.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/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Gets information about one or more deployments.+-- Gets information about one or more deployments. ----- <http://docs.aws.amazon.com/codedeploy/latest/APIReference/API_BatchGetDeployments.html>+-- /See:/ <http://docs.aws.amazon.com/codedeploy/latest/APIReference/API_BatchGetDeployments.html AWS API Reference> for BatchGetDeployments. module Network.AWS.CodeDeploy.BatchGetDeployments     (-    -- * Request-      BatchGetDeployments-    -- ** Request constructor-    , batchGetDeployments-    -- ** Request lenses+    -- * Creating a Request+      batchGetDeployments+    , BatchGetDeployments+    -- * Request Lenses     , bgdDeploymentIds -    -- * Response-    , BatchGetDeploymentsResponse-    -- ** Response constructor+    -- * Destructuring the Response     , batchGetDeploymentsResponse-    -- ** Response lenses-    , bgdrDeploymentsInfo+    , BatchGetDeploymentsResponse+    -- * Response Lenses+    , bgdrsDeploymentsInfo+    , bgdrsStatus     ) where -import Network.AWS.Data (Object)-import Network.AWS.Prelude-import Network.AWS.Request.JSON-import Network.AWS.CodeDeploy.Types-import qualified GHC.Exts--newtype BatchGetDeployments = BatchGetDeployments-    { _bgdDeploymentIds :: List "deploymentIds" Text-    } deriving (Eq, Ord, Read, Show, Monoid, Semigroup)--instance GHC.Exts.IsList BatchGetDeployments where-    type Item BatchGetDeployments = Text--    fromList = BatchGetDeployments . GHC.Exts.fromList-    toList   = GHC.Exts.toList . _bgdDeploymentIds+import           Network.AWS.CodeDeploy.Types+import           Network.AWS.CodeDeploy.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response --- | 'BatchGetDeployments' constructor.+-- | Represents the input of a batch get deployments operation. ----- The fields accessible through corresponding lenses are:+-- /See:/ 'batchGetDeployments' smart constructor.+newtype BatchGetDeployments = BatchGetDeployments'+    { _bgdDeploymentIds :: Maybe [Text]+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'BatchGetDeployments' with the minimum fields required to make a request. ----- * 'bgdDeploymentIds' @::@ ['Text']+-- Use one of the following lenses to modify other fields as desired: ---batchGetDeployments :: BatchGetDeployments-batchGetDeployments = BatchGetDeployments-    { _bgdDeploymentIds = mempty+-- * 'bgdDeploymentIds'+batchGetDeployments+    :: BatchGetDeployments+batchGetDeployments =+    BatchGetDeployments'+    { _bgdDeploymentIds = Nothing     } --- | A list of deployment IDs, with multiple deployment IDs separated by spaces.+-- | 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, Read, Show, Monoid, Semigroup)--instance GHC.Exts.IsList BatchGetDeploymentsResponse where-    type Item BatchGetDeploymentsResponse = DeploymentInfo+bgdDeploymentIds = lens _bgdDeploymentIds (\ s a -> s{_bgdDeploymentIds = a}) . _Default . _Coerce; -    fromList = BatchGetDeploymentsResponse . GHC.Exts.fromList-    toList   = GHC.Exts.toList . _bgdrDeploymentsInfo+instance AWSRequest BatchGetDeployments where+        type Sv BatchGetDeployments = CodeDeploy+        type Rs BatchGetDeployments =+             BatchGetDeploymentsResponse+        request = postJSON+        response+          = receiveJSON+              (\ s h x ->+                 BatchGetDeploymentsResponse' <$>+                   (x .?> "deploymentsInfo" .!@ mempty) <*>+                     (pure (fromEnum s))) --- | 'BatchGetDeploymentsResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'bgdrDeploymentsInfo' @::@ ['DeploymentInfo']----batchGetDeploymentsResponse :: BatchGetDeploymentsResponse-batchGetDeploymentsResponse = BatchGetDeploymentsResponse-    { _bgdrDeploymentsInfo = mempty-    }+instance ToHeaders BatchGetDeployments where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("CodeDeploy_20141006.BatchGetDeployments" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)]) --- | Information about the deployments.-bgdrDeploymentsInfo :: Lens' BatchGetDeploymentsResponse [DeploymentInfo]-bgdrDeploymentsInfo =-    lens _bgdrDeploymentsInfo (\s a -> s { _bgdrDeploymentsInfo = a })-        . _List+instance ToJSON BatchGetDeployments where+        toJSON BatchGetDeployments'{..}+          = object ["deploymentIds" .= _bgdDeploymentIds]  instance ToPath BatchGetDeployments where-    toPath = const "/"+        toPath = const "/"  instance ToQuery BatchGetDeployments where-    toQuery = const mempty--instance ToHeaders BatchGetDeployments+        toQuery = const mempty -instance ToJSON BatchGetDeployments where-    toJSON BatchGetDeployments{..} = object-        [ "deploymentIds" .= _bgdDeploymentIds-        ]+-- | Represents the output of a batch get deployments operation.+--+-- /See:/ 'batchGetDeploymentsResponse' smart constructor.+data BatchGetDeploymentsResponse = BatchGetDeploymentsResponse'+    { _bgdrsDeploymentsInfo :: !(Maybe [DeploymentInfo])+    , _bgdrsStatus          :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest BatchGetDeployments where-    type Sv BatchGetDeployments = CodeDeploy-    type Rs BatchGetDeployments = BatchGetDeploymentsResponse+-- | Creates a value of 'BatchGetDeploymentsResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'bgdrsDeploymentsInfo'+--+-- * 'bgdrsStatus'+batchGetDeploymentsResponse+    :: Int -- ^ 'bgdrsStatus'+    -> BatchGetDeploymentsResponse+batchGetDeploymentsResponse pStatus_ =+    BatchGetDeploymentsResponse'+    { _bgdrsDeploymentsInfo = Nothing+    , _bgdrsStatus = pStatus_+    } -    request  = post "BatchGetDeployments"-    response = jsonResponse+-- | Information about the deployments.+bgdrsDeploymentsInfo :: Lens' BatchGetDeploymentsResponse [DeploymentInfo]+bgdrsDeploymentsInfo = lens _bgdrsDeploymentsInfo (\ s a -> s{_bgdrsDeploymentsInfo = a}) . _Default . _Coerce; -instance FromJSON BatchGetDeploymentsResponse where-    parseJSON = withObject "BatchGetDeploymentsResponse" $ \o -> BatchGetDeploymentsResponse-        <$> o .:? "deploymentsInfo" .!= mempty+-- | The response status code.+bgdrsStatus :: Lens' BatchGetDeploymentsResponse Int+bgdrsStatus = lens _bgdrsStatus (\ s a -> s{_bgdrsStatus = a});

@@ -1,127 +1,131 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.CodeDeploy.BatchGetOnPremisesInstances--- 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/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Gets information about one or more on-premises instances.+-- Gets information about one or more on-premises instances. ----- <http://docs.aws.amazon.com/codedeploy/latest/APIReference/API_BatchGetOnPremisesInstances.html>+-- /See:/ <http://docs.aws.amazon.com/codedeploy/latest/APIReference/API_BatchGetOnPremisesInstances.html AWS API Reference> for BatchGetOnPremisesInstances. module Network.AWS.CodeDeploy.BatchGetOnPremisesInstances     (-    -- * Request-      BatchGetOnPremisesInstances-    -- ** Request constructor-    , batchGetOnPremisesInstances-    -- ** Request lenses+    -- * Creating a Request+      batchGetOnPremisesInstances+    , BatchGetOnPremisesInstances+    -- * Request Lenses     , bgopiInstanceNames -    -- * Response-    , BatchGetOnPremisesInstancesResponse-    -- ** Response constructor+    -- * Destructuring the Response     , batchGetOnPremisesInstancesResponse-    -- ** Response lenses-    , bgopirInstanceInfos+    , BatchGetOnPremisesInstancesResponse+    -- * Response Lenses+    , bgopirsInstanceInfos+    , bgopirsStatus     ) where -import Network.AWS.Data (Object)-import Network.AWS.Prelude-import Network.AWS.Request.JSON-import Network.AWS.CodeDeploy.Types-import qualified GHC.Exts--newtype BatchGetOnPremisesInstances = BatchGetOnPremisesInstances-    { _bgopiInstanceNames :: List "instanceNames" Text-    } deriving (Eq, Ord, Read, Show, Monoid, Semigroup)--instance GHC.Exts.IsList BatchGetOnPremisesInstances where-    type Item BatchGetOnPremisesInstances = Text--    fromList = BatchGetOnPremisesInstances . GHC.Exts.fromList-    toList   = GHC.Exts.toList . _bgopiInstanceNames+import           Network.AWS.CodeDeploy.Types+import           Network.AWS.CodeDeploy.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response --- | 'BatchGetOnPremisesInstances' constructor.+-- | Represents the input of a batch get on-premises instances operation. ----- The fields accessible through corresponding lenses are:+-- /See:/ 'batchGetOnPremisesInstances' smart constructor.+newtype BatchGetOnPremisesInstances = BatchGetOnPremisesInstances'+    { _bgopiInstanceNames :: Maybe [Text]+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'BatchGetOnPremisesInstances' with the minimum fields required to make a request. ----- * 'bgopiInstanceNames' @::@ ['Text']+-- Use one of the following lenses to modify other fields as desired: ---batchGetOnPremisesInstances :: BatchGetOnPremisesInstances-batchGetOnPremisesInstances = BatchGetOnPremisesInstances-    { _bgopiInstanceNames = mempty+-- * 'bgopiInstanceNames'+batchGetOnPremisesInstances+    :: BatchGetOnPremisesInstances+batchGetOnPremisesInstances =+    BatchGetOnPremisesInstances'+    { _bgopiInstanceNames = Nothing     }  -- | The names of the on-premises instances to get information about. bgopiInstanceNames :: Lens' BatchGetOnPremisesInstances [Text]-bgopiInstanceNames =-    lens _bgopiInstanceNames (\s a -> s { _bgopiInstanceNames = a })-        . _List--newtype BatchGetOnPremisesInstancesResponse = BatchGetOnPremisesInstancesResponse-    { _bgopirInstanceInfos :: List "instanceInfos" InstanceInfo-    } deriving (Eq, Read, Show, Monoid, Semigroup)--instance GHC.Exts.IsList BatchGetOnPremisesInstancesResponse where-    type Item BatchGetOnPremisesInstancesResponse = InstanceInfo+bgopiInstanceNames = lens _bgopiInstanceNames (\ s a -> s{_bgopiInstanceNames = a}) . _Default . _Coerce; -    fromList = BatchGetOnPremisesInstancesResponse . GHC.Exts.fromList-    toList   = GHC.Exts.toList . _bgopirInstanceInfos+instance AWSRequest BatchGetOnPremisesInstances where+        type Sv BatchGetOnPremisesInstances = CodeDeploy+        type Rs BatchGetOnPremisesInstances =+             BatchGetOnPremisesInstancesResponse+        request = postJSON+        response+          = receiveJSON+              (\ s h x ->+                 BatchGetOnPremisesInstancesResponse' <$>+                   (x .?> "instanceInfos" .!@ mempty) <*>+                     (pure (fromEnum s))) --- | 'BatchGetOnPremisesInstancesResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'bgopirInstanceInfos' @::@ ['InstanceInfo']----batchGetOnPremisesInstancesResponse :: BatchGetOnPremisesInstancesResponse-batchGetOnPremisesInstancesResponse = BatchGetOnPremisesInstancesResponse-    { _bgopirInstanceInfos = mempty-    }+instance ToHeaders BatchGetOnPremisesInstances where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("CodeDeploy_20141006.BatchGetOnPremisesInstances" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)]) --- | Information about the on-premises instances.-bgopirInstanceInfos :: Lens' BatchGetOnPremisesInstancesResponse [InstanceInfo]-bgopirInstanceInfos =-    lens _bgopirInstanceInfos (\s a -> s { _bgopirInstanceInfos = a })-        . _List+instance ToJSON BatchGetOnPremisesInstances where+        toJSON BatchGetOnPremisesInstances'{..}+          = object ["instanceNames" .= _bgopiInstanceNames]  instance ToPath BatchGetOnPremisesInstances where-    toPath = const "/"+        toPath = const "/"  instance ToQuery BatchGetOnPremisesInstances where-    toQuery = const mempty--instance ToHeaders BatchGetOnPremisesInstances+        toQuery = const mempty -instance ToJSON BatchGetOnPremisesInstances where-    toJSON BatchGetOnPremisesInstances{..} = object-        [ "instanceNames" .= _bgopiInstanceNames-        ]+-- | Represents the output of a batch get on-premises instances operation.+--+-- /See:/ 'batchGetOnPremisesInstancesResponse' smart constructor.+data BatchGetOnPremisesInstancesResponse = BatchGetOnPremisesInstancesResponse'+    { _bgopirsInstanceInfos :: !(Maybe [InstanceInfo])+    , _bgopirsStatus        :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest BatchGetOnPremisesInstances where-    type Sv BatchGetOnPremisesInstances = CodeDeploy-    type Rs BatchGetOnPremisesInstances = BatchGetOnPremisesInstancesResponse+-- | Creates a value of 'BatchGetOnPremisesInstancesResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'bgopirsInstanceInfos'+--+-- * 'bgopirsStatus'+batchGetOnPremisesInstancesResponse+    :: Int -- ^ 'bgopirsStatus'+    -> BatchGetOnPremisesInstancesResponse+batchGetOnPremisesInstancesResponse pStatus_ =+    BatchGetOnPremisesInstancesResponse'+    { _bgopirsInstanceInfos = Nothing+    , _bgopirsStatus = pStatus_+    } -    request  = post "BatchGetOnPremisesInstances"-    response = jsonResponse+-- | Information about the on-premises instances.+bgopirsInstanceInfos :: Lens' BatchGetOnPremisesInstancesResponse [InstanceInfo]+bgopirsInstanceInfos = lens _bgopirsInstanceInfos (\ s a -> s{_bgopirsInstanceInfos = a}) . _Default . _Coerce; -instance FromJSON BatchGetOnPremisesInstancesResponse where-    parseJSON = withObject "BatchGetOnPremisesInstancesResponse" $ \o -> BatchGetOnPremisesInstancesResponse-        <$> o .:? "instanceInfos" .!= mempty+-- | The response status code.+bgopirsStatus :: Lens' BatchGetOnPremisesInstancesResponse Int+bgopirsStatus = lens _bgopirsStatus (\ s a -> s{_bgopirsStatus = a});

@@ -1,114 +1,131 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.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/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Creates a new application.+-- Creates a new application. ----- <http://docs.aws.amazon.com/codedeploy/latest/APIReference/API_CreateApplication.html>+-- /See:/ <http://docs.aws.amazon.com/codedeploy/latest/APIReference/API_CreateApplication.html AWS API Reference> for CreateApplication. module Network.AWS.CodeDeploy.CreateApplication     (-    -- * Request-      CreateApplication-    -- ** Request constructor-    , createApplication-    -- ** Request lenses+    -- * Creating a Request+      createApplication+    , CreateApplication+    -- * Request Lenses     , caApplicationName -    -- * Response-    , CreateApplicationResponse-    -- ** Response constructor+    -- * Destructuring the Response     , createApplicationResponse-    -- ** Response lenses-    , carApplicationId+    , CreateApplicationResponse+    -- * Response Lenses+    , carsApplicationId+    , carsStatus     ) where -import Network.AWS.Data (Object)-import Network.AWS.Prelude-import Network.AWS.Request.JSON-import Network.AWS.CodeDeploy.Types-import qualified GHC.Exts+import           Network.AWS.CodeDeploy.Types+import           Network.AWS.CodeDeploy.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response -newtype CreateApplication = CreateApplication+-- | Represents the input of a create application operation.+--+-- /See:/ 'createApplication' smart constructor.+newtype CreateApplication = CreateApplication'     { _caApplicationName :: Text-    } deriving (Eq, Ord, Read, Show, Monoid, IsString)+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'CreateApplication' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'CreateApplication' with the minimum fields required to make a request. ----- * 'caApplicationName' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ---createApplication :: Text -- ^ 'caApplicationName'-                  -> CreateApplication-createApplication p1 = CreateApplication-    { _caApplicationName = p1+-- * 'caApplicationName'+createApplication+    :: Text -- ^ 'caApplicationName'+    -> CreateApplication+createApplication pApplicationName_ =+    CreateApplication'+    { _caApplicationName = pApplicationName_     } --- | The name of the application. This name must be unique with the applicable IAM--- user or AWS account.+-- | The name of the application. This name must be unique with the+-- applicable IAM user or AWS account. caApplicationName :: Lens' CreateApplication Text-caApplicationName =-    lens _caApplicationName (\s a -> s { _caApplicationName = a })+caApplicationName = lens _caApplicationName (\ s a -> s{_caApplicationName = a}); -newtype CreateApplicationResponse = CreateApplicationResponse-    { _carApplicationId :: Maybe Text-    } deriving (Eq, Ord, Read, Show, Monoid)+instance AWSRequest CreateApplication where+        type Sv CreateApplication = CodeDeploy+        type Rs CreateApplication = CreateApplicationResponse+        request = postJSON+        response+          = receiveJSON+              (\ s h x ->+                 CreateApplicationResponse' <$>+                   (x .?> "applicationId") <*> (pure (fromEnum s))) --- | 'CreateApplicationResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'carApplicationId' @::@ 'Maybe' 'Text'----createApplicationResponse :: CreateApplicationResponse-createApplicationResponse = CreateApplicationResponse-    { _carApplicationId = Nothing-    }+instance ToHeaders CreateApplication where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("CodeDeploy_20141006.CreateApplication" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)]) --- | A unique application ID.-carApplicationId :: Lens' CreateApplicationResponse (Maybe Text)-carApplicationId = lens _carApplicationId (\s a -> s { _carApplicationId = a })+instance ToJSON CreateApplication where+        toJSON CreateApplication'{..}+          = object ["applicationName" .= _caApplicationName]  instance ToPath CreateApplication where-    toPath = const "/"+        toPath = const "/"  instance ToQuery CreateApplication where-    toQuery = const mempty--instance ToHeaders CreateApplication+        toQuery = const mempty -instance ToJSON CreateApplication where-    toJSON CreateApplication{..} = object-        [ "applicationName" .= _caApplicationName-        ]+-- | Represents the output of a create application operation.+--+-- /See:/ 'createApplicationResponse' smart constructor.+data CreateApplicationResponse = CreateApplicationResponse'+    { _carsApplicationId :: !(Maybe Text)+    , _carsStatus        :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest CreateApplication where-    type Sv CreateApplication = CodeDeploy-    type Rs CreateApplication = CreateApplicationResponse+-- | Creates a value of 'CreateApplicationResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'carsApplicationId'+--+-- * 'carsStatus'+createApplicationResponse+    :: Int -- ^ 'carsStatus'+    -> CreateApplicationResponse+createApplicationResponse pStatus_ =+    CreateApplicationResponse'+    { _carsApplicationId = Nothing+    , _carsStatus = pStatus_+    } -    request  = post "CreateApplication"-    response = jsonResponse+-- | A unique application ID.+carsApplicationId :: Lens' CreateApplicationResponse (Maybe Text)+carsApplicationId = lens _carsApplicationId (\ s a -> s{_carsApplicationId = a}); -instance FromJSON CreateApplicationResponse where-    parseJSON = withObject "CreateApplicationResponse" $ \o -> CreateApplicationResponse-        <$> o .:? "applicationId"+-- | The response status code.+carsStatus :: Lens' CreateApplicationResponse Int+carsStatus = lens _carsStatus (\ s a -> s{_carsStatus = a});

@@ -1,183 +1,199 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.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/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Deploys an application revision through the specified deployment group.+-- Deploys an application revision through the specified deployment group. ----- <http://docs.aws.amazon.com/codedeploy/latest/APIReference/API_CreateDeployment.html>+-- /See:/ <http://docs.aws.amazon.com/codedeploy/latest/APIReference/API_CreateDeployment.html AWS API Reference> for CreateDeployment. module Network.AWS.CodeDeploy.CreateDeployment     (-    -- * Request-      CreateDeployment-    -- ** Request constructor-    , createDeployment-    -- ** Request lenses-    , cdApplicationName+    -- * Creating a Request+      createDeployment+    , CreateDeployment+    -- * Request Lenses     , cdDeploymentConfigName-    , cdDeploymentGroupName+    , cdRevision     , cdDescription     , cdIgnoreApplicationStopFailures-    , cdRevision+    , cdDeploymentGroupName+    , cdApplicationName -    -- * Response-    , CreateDeploymentResponse-    -- ** Response constructor+    -- * Destructuring the Response     , createDeploymentResponse-    -- ** Response lenses-    , cdrDeploymentId+    , CreateDeploymentResponse+    -- * Response Lenses+    , cdrsDeploymentId+    , cdrsStatus     ) where -import Network.AWS.Data (Object)-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, Read, Show)+import           Network.AWS.CodeDeploy.Types+import           Network.AWS.CodeDeploy.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response --- | 'CreateDeployment' constructor.+-- | Represents the input of a create deployment operation. ----- The fields accessible through corresponding lenses are:+-- /See:/ 'createDeployment' smart constructor.+data CreateDeployment = CreateDeployment'+    { _cdDeploymentConfigName          :: !(Maybe Text)+    , _cdRevision                      :: !(Maybe RevisionLocation)+    , _cdDescription                   :: !(Maybe Text)+    , _cdIgnoreApplicationStopFailures :: !(Maybe Bool)+    , _cdDeploymentGroupName           :: !(Maybe Text)+    , _cdApplicationName               :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'CreateDeployment' with the minimum fields required to make a request. ----- * 'cdApplicationName' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'cdDeploymentConfigName' @::@ 'Maybe' 'Text'+-- * 'cdDeploymentConfigName' ----- * 'cdDeploymentGroupName' @::@ 'Maybe' 'Text'+-- * 'cdRevision' ----- * 'cdDescription' @::@ 'Maybe' 'Text'+-- * 'cdDescription' ----- * 'cdIgnoreApplicationStopFailures' @::@ 'Maybe' 'Bool'+-- * 'cdIgnoreApplicationStopFailures' ----- * 'cdRevision' @::@ 'Maybe' 'RevisionLocation'+-- * 'cdDeploymentGroupName' ---createDeployment :: Text -- ^ 'cdApplicationName'-                 -> CreateDeployment-createDeployment p1 = CreateDeployment-    { _cdApplicationName               = p1-    , _cdDeploymentGroupName           = Nothing-    , _cdRevision                      = Nothing-    , _cdDeploymentConfigName          = Nothing-    , _cdDescription                   = Nothing+-- * 'cdApplicationName'+createDeployment+    :: Text -- ^ 'cdApplicationName'+    -> CreateDeployment+createDeployment pApplicationName_ =+    CreateDeployment'+    { _cdDeploymentConfigName = Nothing+    , _cdRevision = Nothing+    , _cdDescription = Nothing     , _cdIgnoreApplicationStopFailures = Nothing+    , _cdDeploymentGroupName = Nothing+    , _cdApplicationName = pApplicationName_     } --- | The name of an existing AWS CodeDeploy application associated with the--- applicable IAM user or AWS account.-cdApplicationName :: Lens' CreateDeployment Text-cdApplicationName =-    lens _cdApplicationName (\s a -> s { _cdApplicationName = a })- -- | The name of an existing deployment configuration associated with the -- applicable IAM user or AWS 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.+-- 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 })+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 })+-- | 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});  -- | A comment about the deployment. cdDescription :: Lens' CreateDeployment (Maybe Text)-cdDescription = lens _cdDescription (\s a -> s { _cdDescription = a })+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 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.+-- 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 })+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 })+-- | The deployment group\'s name.+cdDeploymentGroupName :: Lens' CreateDeployment (Maybe Text)+cdDeploymentGroupName = lens _cdDeploymentGroupName (\ s a -> s{_cdDeploymentGroupName = a}); -newtype CreateDeploymentResponse = CreateDeploymentResponse-    { _cdrDeploymentId :: Maybe Text-    } deriving (Eq, Ord, Read, Show, Monoid)+-- | The name of an existing AWS CodeDeploy application associated with the+-- applicable IAM user or AWS account.+cdApplicationName :: Lens' CreateDeployment Text+cdApplicationName = lens _cdApplicationName (\ s a -> s{_cdApplicationName = a}); --- | 'CreateDeploymentResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'cdrDeploymentId' @::@ 'Maybe' 'Text'----createDeploymentResponse :: CreateDeploymentResponse-createDeploymentResponse = CreateDeploymentResponse-    { _cdrDeploymentId = Nothing-    }+instance AWSRequest CreateDeployment where+        type Sv CreateDeployment = CodeDeploy+        type Rs CreateDeployment = CreateDeploymentResponse+        request = postJSON+        response+          = receiveJSON+              (\ s h x ->+                 CreateDeploymentResponse' <$>+                   (x .?> "deploymentId") <*> (pure (fromEnum s))) --- | A unique deployment ID.-cdrDeploymentId :: Lens' CreateDeploymentResponse (Maybe Text)-cdrDeploymentId = lens _cdrDeploymentId (\s a -> s { _cdrDeploymentId = a })+instance ToHeaders CreateDeployment where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("CodeDeploy_20141006.CreateDeployment" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)]) +instance ToJSON CreateDeployment where+        toJSON CreateDeployment'{..}+          = object+              ["deploymentConfigName" .= _cdDeploymentConfigName,+               "revision" .= _cdRevision,+               "description" .= _cdDescription,+               "ignoreApplicationStopFailures" .=+                 _cdIgnoreApplicationStopFailures,+               "deploymentGroupName" .= _cdDeploymentGroupName,+               "applicationName" .= _cdApplicationName]+ instance ToPath CreateDeployment where-    toPath = const "/"+        toPath = const "/"  instance ToQuery CreateDeployment where-    toQuery = const mempty--instance ToHeaders CreateDeployment+        toQuery = const mempty -instance ToJSON CreateDeployment where-    toJSON CreateDeployment{..} = object-        [ "applicationName"               .= _cdApplicationName-        , "deploymentGroupName"           .= _cdDeploymentGroupName-        , "revision"                      .= _cdRevision-        , "deploymentConfigName"          .= _cdDeploymentConfigName-        , "description"                   .= _cdDescription-        , "ignoreApplicationStopFailures" .= _cdIgnoreApplicationStopFailures-        ]+-- | Represents the output of a create deployment operation.+--+-- /See:/ 'createDeploymentResponse' smart constructor.+data CreateDeploymentResponse = CreateDeploymentResponse'+    { _cdrsDeploymentId :: !(Maybe Text)+    , _cdrsStatus       :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest CreateDeployment where-    type Sv CreateDeployment = CodeDeploy-    type Rs CreateDeployment = CreateDeploymentResponse+-- | Creates a value of 'CreateDeploymentResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cdrsDeploymentId'+--+-- * 'cdrsStatus'+createDeploymentResponse+    :: Int -- ^ 'cdrsStatus'+    -> CreateDeploymentResponse+createDeploymentResponse pStatus_ =+    CreateDeploymentResponse'+    { _cdrsDeploymentId = Nothing+    , _cdrsStatus = pStatus_+    } -    request  = post "CreateDeployment"-    response = jsonResponse+-- | A unique deployment ID.+cdrsDeploymentId :: Lens' CreateDeploymentResponse (Maybe Text)+cdrsDeploymentId = lens _cdrsDeploymentId (\ s a -> s{_cdrsDeploymentId = a}); -instance FromJSON CreateDeploymentResponse where-    parseJSON = withObject "CreateDeploymentResponse" $ \o -> CreateDeploymentResponse-        <$> o .:? "deploymentId"+-- | The response status code.+cdrsStatus :: Lens' CreateDeploymentResponse Int+cdrsStatus = lens _cdrsStatus (\ s a -> s{_cdrsStatus = a});

@@ -1,140 +1,159 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.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/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Creates a new deployment configuration.+-- Creates a new deployment configuration. ----- <http://docs.aws.amazon.com/codedeploy/latest/APIReference/API_CreateDeploymentConfig.html>+-- /See:/ <http://docs.aws.amazon.com/codedeploy/latest/APIReference/API_CreateDeploymentConfig.html AWS API Reference> for CreateDeploymentConfig. module Network.AWS.CodeDeploy.CreateDeploymentConfig     (-    -- * Request-      CreateDeploymentConfig-    -- ** Request constructor-    , createDeploymentConfig-    -- ** Request lenses-    , cdcDeploymentConfigName+    -- * Creating a Request+      createDeploymentConfig+    , CreateDeploymentConfig+    -- * Request Lenses     , cdcMinimumHealthyHosts+    , cdcDeploymentConfigName -    -- * Response-    , CreateDeploymentConfigResponse-    -- ** Response constructor+    -- * Destructuring the Response     , createDeploymentConfigResponse-    -- ** Response lenses-    , cdcrDeploymentConfigId+    , CreateDeploymentConfigResponse+    -- * Response Lenses+    , cdcrsDeploymentConfigId+    , cdcrsStatus     ) where -import Network.AWS.Data (Object)-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, Read, Show)+import           Network.AWS.CodeDeploy.Types+import           Network.AWS.CodeDeploy.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response --- | 'CreateDeploymentConfig' constructor.+-- | Represents the input of a create deployment configuration operation. ----- The fields accessible through corresponding lenses are:+-- /See:/ 'createDeploymentConfig' smart constructor.+data CreateDeploymentConfig = CreateDeploymentConfig'+    { _cdcMinimumHealthyHosts  :: !(Maybe MinimumHealthyHosts)+    , _cdcDeploymentConfigName :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'CreateDeploymentConfig' with the minimum fields required to make a request. ----- * 'cdcDeploymentConfigName' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'cdcMinimumHealthyHosts' @::@ 'Maybe' 'MinimumHealthyHosts'+-- * 'cdcMinimumHealthyHosts' ---createDeploymentConfig :: Text -- ^ 'cdcDeploymentConfigName'-                       -> CreateDeploymentConfig-createDeploymentConfig p1 = CreateDeploymentConfig-    { _cdcDeploymentConfigName = p1-    , _cdcMinimumHealthyHosts  = Nothing+-- * 'cdcDeploymentConfigName'+createDeploymentConfig+    :: Text -- ^ 'cdcDeploymentConfigName'+    -> CreateDeploymentConfig+createDeploymentConfig pDeploymentConfigName_ =+    CreateDeploymentConfig'+    { _cdcMinimumHealthyHosts = Nothing+    , _cdcDeploymentConfigName = pDeploymentConfigName_     } --- | 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 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.+-- -   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. ----- For example, to set a minimum of 95% healthy instances, specify a type of--- FLEET_PERCENT and a value of 95.+-- 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 })+cdcMinimumHealthyHosts = lens _cdcMinimumHealthyHosts (\ s a -> s{_cdcMinimumHealthyHosts = a}); -newtype CreateDeploymentConfigResponse = CreateDeploymentConfigResponse-    { _cdcrDeploymentConfigId :: Maybe Text-    } deriving (Eq, Ord, Read, Show, Monoid)+-- | The name of the deployment configuration to create.+cdcDeploymentConfigName :: Lens' CreateDeploymentConfig Text+cdcDeploymentConfigName = lens _cdcDeploymentConfigName (\ s a -> s{_cdcDeploymentConfigName = a}); --- | 'CreateDeploymentConfigResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'cdcrDeploymentConfigId' @::@ 'Maybe' 'Text'----createDeploymentConfigResponse :: CreateDeploymentConfigResponse-createDeploymentConfigResponse = CreateDeploymentConfigResponse-    { _cdcrDeploymentConfigId = Nothing-    }+instance AWSRequest CreateDeploymentConfig where+        type Sv CreateDeploymentConfig = CodeDeploy+        type Rs CreateDeploymentConfig =+             CreateDeploymentConfigResponse+        request = postJSON+        response+          = receiveJSON+              (\ s h x ->+                 CreateDeploymentConfigResponse' <$>+                   (x .?> "deploymentConfigId") <*> (pure (fromEnum s))) --- | A unique deployment configuration ID.-cdcrDeploymentConfigId :: Lens' CreateDeploymentConfigResponse (Maybe Text)-cdcrDeploymentConfigId =-    lens _cdcrDeploymentConfigId (\s a -> s { _cdcrDeploymentConfigId = a })+instance ToHeaders CreateDeploymentConfig where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("CodeDeploy_20141006.CreateDeploymentConfig" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)]) +instance ToJSON CreateDeploymentConfig where+        toJSON CreateDeploymentConfig'{..}+          = object+              ["minimumHealthyHosts" .= _cdcMinimumHealthyHosts,+               "deploymentConfigName" .= _cdcDeploymentConfigName]+ instance ToPath CreateDeploymentConfig where-    toPath = const "/"+        toPath = const "/"  instance ToQuery CreateDeploymentConfig where-    toQuery = const mempty--instance ToHeaders CreateDeploymentConfig+        toQuery = const mempty -instance ToJSON CreateDeploymentConfig where-    toJSON CreateDeploymentConfig{..} = object-        [ "deploymentConfigName" .= _cdcDeploymentConfigName-        , "minimumHealthyHosts"  .= _cdcMinimumHealthyHosts-        ]+-- | Represents the output of a create deployment configuration operation.+--+-- /See:/ 'createDeploymentConfigResponse' smart constructor.+data CreateDeploymentConfigResponse = CreateDeploymentConfigResponse'+    { _cdcrsDeploymentConfigId :: !(Maybe Text)+    , _cdcrsStatus             :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest CreateDeploymentConfig where-    type Sv CreateDeploymentConfig = CodeDeploy-    type Rs CreateDeploymentConfig = CreateDeploymentConfigResponse+-- | Creates a value of 'CreateDeploymentConfigResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cdcrsDeploymentConfigId'+--+-- * 'cdcrsStatus'+createDeploymentConfigResponse+    :: Int -- ^ 'cdcrsStatus'+    -> CreateDeploymentConfigResponse+createDeploymentConfigResponse pStatus_ =+    CreateDeploymentConfigResponse'+    { _cdcrsDeploymentConfigId = Nothing+    , _cdcrsStatus = pStatus_+    } -    request  = post "CreateDeploymentConfig"-    response = jsonResponse+-- | A unique deployment configuration ID.+cdcrsDeploymentConfigId :: Lens' CreateDeploymentConfigResponse (Maybe Text)+cdcrsDeploymentConfigId = lens _cdcrsDeploymentConfigId (\ s a -> s{_cdcrsDeploymentConfigId = a}); -instance FromJSON CreateDeploymentConfigResponse where-    parseJSON = withObject "CreateDeploymentConfigResponse" $ \o -> CreateDeploymentConfigResponse-        <$> o .:? "deploymentConfigId"+-- | The response status code.+cdcrsStatus :: Lens' CreateDeploymentConfigResponse Int+cdcrsStatus = lens _cdcrsStatus (\ s a -> s{_cdcrsStatus = a});

@@ -1,207 +1,232 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.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/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Creates a new deployment group for application revisions to be deployed to.+-- Creates a new deployment group for application revisions to be deployed+-- to. ----- <http://docs.aws.amazon.com/codedeploy/latest/APIReference/API_CreateDeploymentGroup.html>+-- /See:/ <http://docs.aws.amazon.com/codedeploy/latest/APIReference/API_CreateDeploymentGroup.html AWS API Reference> for CreateDeploymentGroup. module Network.AWS.CodeDeploy.CreateDeploymentGroup     (-    -- * Request-      CreateDeploymentGroup-    -- ** Request constructor-    , createDeploymentGroup-    -- ** Request lenses-    , cdgApplicationName-    , cdgAutoScalingGroups+    -- * Creating a Request+      createDeploymentGroup+    , CreateDeploymentGroup+    -- * Request Lenses     , cdgDeploymentConfigName-    , cdgDeploymentGroupName     , cdgEc2TagFilters     , cdgOnPremisesInstanceTagFilters-    , cdgServiceRoleArn+    , cdgAutoScalingGroups+    , cdgApplicationName+    , cdgDeploymentGroupName+    , cdgServiceRoleARN -    -- * Response-    , CreateDeploymentGroupResponse-    -- ** Response constructor+    -- * Destructuring the Response     , createDeploymentGroupResponse-    -- ** Response lenses-    , cdgrDeploymentGroupId+    , CreateDeploymentGroupResponse+    -- * Response Lenses+    , cdgrsDeploymentGroupId+    , cdgrsStatus     ) where -import Network.AWS.Data (Object)-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-    , _cdgOnPremisesInstanceTagFilters :: List "onPremisesInstanceTagFilters" TagFilter-    , _cdgServiceRoleArn               :: Text-    } deriving (Eq, Read, Show)+import           Network.AWS.CodeDeploy.Types+import           Network.AWS.CodeDeploy.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response --- | 'CreateDeploymentGroup' constructor.+-- | Represents the input of a create deployment group operation. ----- The fields accessible through corresponding lenses are:+-- /See:/ 'createDeploymentGroup' smart constructor.+data CreateDeploymentGroup = CreateDeploymentGroup'+    { _cdgDeploymentConfigName         :: !(Maybe Text)+    , _cdgEc2TagFilters                :: !(Maybe [EC2TagFilter])+    , _cdgOnPremisesInstanceTagFilters :: !(Maybe [TagFilter])+    , _cdgAutoScalingGroups            :: !(Maybe [Text])+    , _cdgApplicationName              :: !Text+    , _cdgDeploymentGroupName          :: !Text+    , _cdgServiceRoleARN               :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'CreateDeploymentGroup' with the minimum fields required to make a request. ----- * 'cdgApplicationName' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'cdgAutoScalingGroups' @::@ ['Text']+-- * 'cdgDeploymentConfigName' ----- * 'cdgDeploymentConfigName' @::@ 'Maybe' 'Text'+-- * 'cdgEc2TagFilters' ----- * 'cdgDeploymentGroupName' @::@ 'Text'+-- * 'cdgOnPremisesInstanceTagFilters' ----- * 'cdgEc2TagFilters' @::@ ['EC2TagFilter']+-- * 'cdgAutoScalingGroups' ----- * 'cdgOnPremisesInstanceTagFilters' @::@ ['TagFilter']+-- * 'cdgApplicationName' ----- * 'cdgServiceRoleArn' @::@ 'Text'+-- * 'cdgDeploymentGroupName' ---createDeploymentGroup :: Text -- ^ 'cdgApplicationName'-                      -> Text -- ^ 'cdgDeploymentGroupName'-                      -> Text -- ^ 'cdgServiceRoleArn'-                      -> CreateDeploymentGroup-createDeploymentGroup p1 p2 p3 = CreateDeploymentGroup-    { _cdgApplicationName              = p1-    , _cdgDeploymentGroupName          = p2-    , _cdgServiceRoleArn               = p3-    , _cdgDeploymentConfigName         = Nothing-    , _cdgEc2TagFilters                = mempty-    , _cdgOnPremisesInstanceTagFilters = mempty-    , _cdgAutoScalingGroups            = mempty+-- * 'cdgServiceRoleARN'+createDeploymentGroup+    :: Text -- ^ 'cdgApplicationName'+    -> Text -- ^ 'cdgDeploymentGroupName'+    -> Text -- ^ 'cdgServiceRoleARN'+    -> CreateDeploymentGroup+createDeploymentGroup pApplicationName_ pDeploymentGroupName_ pServiceRoleARN_ =+    CreateDeploymentGroup'+    { _cdgDeploymentConfigName = Nothing+    , _cdgEc2TagFilters = Nothing+    , _cdgOnPremisesInstanceTagFilters = Nothing+    , _cdgAutoScalingGroups = Nothing+    , _cdgApplicationName = pApplicationName_+    , _cdgDeploymentGroupName = pDeploymentGroupName_+    , _cdgServiceRoleARN = pServiceRoleARN_     } --- | The name of an existing AWS CodeDeploy application associated with the--- applicable IAM user or AWS 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:+-- | 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 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 instances. 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.+-- -   CodeDeployDefault.AllAtOnce deploys an application revision to up to+--     all of the 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 instances. 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 })+cdgDeploymentConfigName = lens _cdgDeploymentConfigName (\ s a -> s{_cdgDeploymentConfigName = a});  -- | The Amazon EC2 tags to filter on. cdgEc2TagFilters :: Lens' CreateDeploymentGroup [EC2TagFilter]-cdgEc2TagFilters = lens _cdgEc2TagFilters (\s a -> s { _cdgEc2TagFilters = a }) . _List+cdgEc2TagFilters = lens _cdgEc2TagFilters (\ s a -> s{_cdgEc2TagFilters = a}) . _Default . _Coerce;  -- | The on-premises instance tags to filter on. cdgOnPremisesInstanceTagFilters :: Lens' CreateDeploymentGroup [TagFilter]-cdgOnPremisesInstanceTagFilters =-    lens _cdgOnPremisesInstanceTagFilters-        (\s a -> s { _cdgOnPremisesInstanceTagFilters = a })-            . _List+cdgOnPremisesInstanceTagFilters = lens _cdgOnPremisesInstanceTagFilters (\ s a -> s{_cdgOnPremisesInstanceTagFilters = a}) . _Default . _Coerce; --- | A service role ARN that allows AWS CodeDeploy to act on the user's behalf--- when interacting with AWS services.-cdgServiceRoleArn :: Lens' CreateDeploymentGroup Text-cdgServiceRoleArn =-    lens _cdgServiceRoleArn (\s a -> s { _cdgServiceRoleArn = a })+-- | A list of associated Auto Scaling groups.+cdgAutoScalingGroups :: Lens' CreateDeploymentGroup [Text]+cdgAutoScalingGroups = lens _cdgAutoScalingGroups (\ s a -> s{_cdgAutoScalingGroups = a}) . _Default . _Coerce; -newtype CreateDeploymentGroupResponse = CreateDeploymentGroupResponse-    { _cdgrDeploymentGroupId :: Maybe Text-    } deriving (Eq, Ord, Read, Show, Monoid)+-- | The name of an existing AWS CodeDeploy application associated with the+-- applicable IAM user or AWS account.+cdgApplicationName :: Lens' CreateDeploymentGroup Text+cdgApplicationName = lens _cdgApplicationName (\ s a -> s{_cdgApplicationName = a}); --- | 'CreateDeploymentGroupResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'cdgrDeploymentGroupId' @::@ 'Maybe' 'Text'----createDeploymentGroupResponse :: CreateDeploymentGroupResponse-createDeploymentGroupResponse = CreateDeploymentGroupResponse-    { _cdgrDeploymentGroupId = Nothing-    }+-- | The name of an existing deployment group for the specified application.+cdgDeploymentGroupName :: Lens' CreateDeploymentGroup Text+cdgDeploymentGroupName = lens _cdgDeploymentGroupName (\ s a -> s{_cdgDeploymentGroupName = a}); --- | A unique deployment group ID.-cdgrDeploymentGroupId :: Lens' CreateDeploymentGroupResponse (Maybe Text)-cdgrDeploymentGroupId =-    lens _cdgrDeploymentGroupId (\s a -> s { _cdgrDeploymentGroupId = a })+-- | A service role ARN that allows AWS CodeDeploy to act on the user\'s+-- behalf when interacting with AWS services.+cdgServiceRoleARN :: Lens' CreateDeploymentGroup Text+cdgServiceRoleARN = lens _cdgServiceRoleARN (\ s a -> s{_cdgServiceRoleARN = a}); +instance AWSRequest CreateDeploymentGroup where+        type Sv CreateDeploymentGroup = CodeDeploy+        type Rs CreateDeploymentGroup =+             CreateDeploymentGroupResponse+        request = postJSON+        response+          = receiveJSON+              (\ s h x ->+                 CreateDeploymentGroupResponse' <$>+                   (x .?> "deploymentGroupId") <*> (pure (fromEnum s)))++instance ToHeaders CreateDeploymentGroup where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("CodeDeploy_20141006.CreateDeploymentGroup" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON CreateDeploymentGroup where+        toJSON CreateDeploymentGroup'{..}+          = object+              ["deploymentConfigName" .= _cdgDeploymentConfigName,+               "ec2TagFilters" .= _cdgEc2TagFilters,+               "onPremisesInstanceTagFilters" .=+                 _cdgOnPremisesInstanceTagFilters,+               "autoScalingGroups" .= _cdgAutoScalingGroups,+               "applicationName" .= _cdgApplicationName,+               "deploymentGroupName" .= _cdgDeploymentGroupName,+               "serviceRoleArn" .= _cdgServiceRoleARN]+ instance ToPath CreateDeploymentGroup where-    toPath = const "/"+        toPath = const "/"  instance ToQuery CreateDeploymentGroup where-    toQuery = const mempty--instance ToHeaders CreateDeploymentGroup+        toQuery = const mempty -instance ToJSON CreateDeploymentGroup where-    toJSON CreateDeploymentGroup{..} = object-        [ "applicationName"              .= _cdgApplicationName-        , "deploymentGroupName"          .= _cdgDeploymentGroupName-        , "deploymentConfigName"         .= _cdgDeploymentConfigName-        , "ec2TagFilters"                .= _cdgEc2TagFilters-        , "onPremisesInstanceTagFilters" .= _cdgOnPremisesInstanceTagFilters-        , "autoScalingGroups"            .= _cdgAutoScalingGroups-        , "serviceRoleArn"               .= _cdgServiceRoleArn-        ]+-- | Represents the output of a create deployment group operation.+--+-- /See:/ 'createDeploymentGroupResponse' smart constructor.+data CreateDeploymentGroupResponse = CreateDeploymentGroupResponse'+    { _cdgrsDeploymentGroupId :: !(Maybe Text)+    , _cdgrsStatus            :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest CreateDeploymentGroup where-    type Sv CreateDeploymentGroup = CodeDeploy-    type Rs CreateDeploymentGroup = CreateDeploymentGroupResponse+-- | Creates a value of 'CreateDeploymentGroupResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cdgrsDeploymentGroupId'+--+-- * 'cdgrsStatus'+createDeploymentGroupResponse+    :: Int -- ^ 'cdgrsStatus'+    -> CreateDeploymentGroupResponse+createDeploymentGroupResponse pStatus_ =+    CreateDeploymentGroupResponse'+    { _cdgrsDeploymentGroupId = Nothing+    , _cdgrsStatus = pStatus_+    } -    request  = post "CreateDeploymentGroup"-    response = jsonResponse+-- | A unique deployment group ID.+cdgrsDeploymentGroupId :: Lens' CreateDeploymentGroupResponse (Maybe Text)+cdgrsDeploymentGroupId = lens _cdgrsDeploymentGroupId (\ s a -> s{_cdgrsDeploymentGroupId = a}); -instance FromJSON CreateDeploymentGroupResponse where-    parseJSON = withObject "CreateDeploymentGroupResponse" $ \o -> CreateDeploymentGroupResponse-        <$> o .:? "deploymentGroupId"+-- | The response status code.+cdgrsStatus :: Lens' CreateDeploymentGroupResponse Int+cdgrsStatus = lens _cdgrsStatus (\ s a -> s{_cdgrsStatus = a});

@@ -1,96 +1,103 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.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/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Deletes an application.+-- Deletes an application. ----- <http://docs.aws.amazon.com/codedeploy/latest/APIReference/API_DeleteApplication.html>+-- /See:/ <http://docs.aws.amazon.com/codedeploy/latest/APIReference/API_DeleteApplication.html AWS API Reference> for DeleteApplication. module Network.AWS.CodeDeploy.DeleteApplication     (-    -- * Request-      DeleteApplication-    -- ** Request constructor-    , deleteApplication-    -- ** Request lenses+    -- * Creating a Request+      deleteApplication+    , DeleteApplication+    -- * Request Lenses     , daApplicationName -    -- * Response-    , DeleteApplicationResponse-    -- ** Response constructor+    -- * Destructuring the Response     , deleteApplicationResponse+    , DeleteApplicationResponse     ) where -import Network.AWS.Data (Object)-import Network.AWS.Prelude-import Network.AWS.Request.JSON-import Network.AWS.CodeDeploy.Types-import qualified GHC.Exts+import           Network.AWS.CodeDeploy.Types+import           Network.AWS.CodeDeploy.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response -newtype DeleteApplication = DeleteApplication+-- | Represents the input of a delete application operation.+--+-- /See:/ 'deleteApplication' smart constructor.+newtype DeleteApplication = DeleteApplication'     { _daApplicationName :: Text-    } deriving (Eq, Ord, Read, Show, Monoid, IsString)+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'DeleteApplication' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'DeleteApplication' with the minimum fields required to make a request. ----- * 'daApplicationName' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ---deleteApplication :: Text -- ^ 'daApplicationName'-                  -> DeleteApplication-deleteApplication p1 = DeleteApplication-    { _daApplicationName = p1+-- * 'daApplicationName'+deleteApplication+    :: Text -- ^ 'daApplicationName'+    -> DeleteApplication+deleteApplication pApplicationName_ =+    DeleteApplication'+    { _daApplicationName = pApplicationName_     }  -- | The name of an existing AWS CodeDeploy application associated with the -- applicable IAM user or AWS account. daApplicationName :: Lens' DeleteApplication Text-daApplicationName =-    lens _daApplicationName (\s a -> s { _daApplicationName = a })+daApplicationName = lens _daApplicationName (\ s a -> s{_daApplicationName = a}); -data DeleteApplicationResponse = DeleteApplicationResponse-    deriving (Eq, Ord, Read, Show, Generic)+instance AWSRequest DeleteApplication where+        type Sv DeleteApplication = CodeDeploy+        type Rs DeleteApplication = DeleteApplicationResponse+        request = postJSON+        response = receiveNull DeleteApplicationResponse' --- | 'DeleteApplicationResponse' constructor.-deleteApplicationResponse :: DeleteApplicationResponse-deleteApplicationResponse = DeleteApplicationResponse+instance ToHeaders DeleteApplication where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("CodeDeploy_20141006.DeleteApplication" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)]) +instance ToJSON DeleteApplication where+        toJSON DeleteApplication'{..}+          = object ["applicationName" .= _daApplicationName]+ instance ToPath DeleteApplication where-    toPath = const "/"+        toPath = const "/"  instance ToQuery DeleteApplication where-    toQuery = const mempty--instance ToHeaders DeleteApplication--instance ToJSON DeleteApplication where-    toJSON DeleteApplication{..} = object-        [ "applicationName" .= _daApplicationName-        ]+        toQuery = const mempty -instance AWSRequest DeleteApplication where-    type Sv DeleteApplication = CodeDeploy-    type Rs DeleteApplication = DeleteApplicationResponse+-- | /See:/ 'deleteApplicationResponse' smart constructor.+data DeleteApplicationResponse =+    DeleteApplicationResponse'+    deriving (Eq,Read,Show,Data,Typeable,Generic) -    request  = post "DeleteApplication"-    response = nullResponse DeleteApplicationResponse+-- | Creates a value of 'DeleteApplicationResponse' with the minimum fields required to make a request.+--+deleteApplicationResponse+    :: DeleteApplicationResponse+deleteApplicationResponse = DeleteApplicationResponse'

@@ -1,99 +1,109 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.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/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Deletes a deployment configuration.+-- 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>+-- /See:/ <http://docs.aws.amazon.com/codedeploy/latest/APIReference/API_DeleteDeploymentConfig.html AWS API Reference> for DeleteDeploymentConfig. module Network.AWS.CodeDeploy.DeleteDeploymentConfig     (-    -- * Request-      DeleteDeploymentConfig-    -- ** Request constructor-    , deleteDeploymentConfig-    -- ** Request lenses+    -- * Creating a Request+      deleteDeploymentConfig+    , DeleteDeploymentConfig+    -- * Request Lenses     , ddcDeploymentConfigName -    -- * Response-    , DeleteDeploymentConfigResponse-    -- ** Response constructor+    -- * Destructuring the Response     , deleteDeploymentConfigResponse+    , DeleteDeploymentConfigResponse     ) where -import Network.AWS.Data (Object)-import Network.AWS.Prelude-import Network.AWS.Request.JSON-import Network.AWS.CodeDeploy.Types-import qualified GHC.Exts+import           Network.AWS.CodeDeploy.Types+import           Network.AWS.CodeDeploy.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response -newtype DeleteDeploymentConfig = DeleteDeploymentConfig+-- | Represents the input of a delete deployment configuration operation.+--+-- /See:/ 'deleteDeploymentConfig' smart constructor.+newtype DeleteDeploymentConfig = DeleteDeploymentConfig'     { _ddcDeploymentConfigName :: Text-    } deriving (Eq, Ord, Read, Show, Monoid, IsString)+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'DeleteDeploymentConfig' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'DeleteDeploymentConfig' with the minimum fields required to make a request. ----- * 'ddcDeploymentConfigName' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ---deleteDeploymentConfig :: Text -- ^ 'ddcDeploymentConfigName'-                       -> DeleteDeploymentConfig-deleteDeploymentConfig p1 = DeleteDeploymentConfig-    { _ddcDeploymentConfigName = p1+-- * 'ddcDeploymentConfigName'+deleteDeploymentConfig+    :: Text -- ^ 'ddcDeploymentConfigName'+    -> DeleteDeploymentConfig+deleteDeploymentConfig pDeploymentConfigName_ =+    DeleteDeploymentConfig'+    { _ddcDeploymentConfigName = pDeploymentConfigName_     }  -- | The name of an existing deployment configuration associated with the -- applicable IAM user or AWS account. ddcDeploymentConfigName :: Lens' DeleteDeploymentConfig Text-ddcDeploymentConfigName =-    lens _ddcDeploymentConfigName (\s a -> s { _ddcDeploymentConfigName = a })+ddcDeploymentConfigName = lens _ddcDeploymentConfigName (\ s a -> s{_ddcDeploymentConfigName = a}); -data DeleteDeploymentConfigResponse = DeleteDeploymentConfigResponse-    deriving (Eq, Ord, Read, Show, Generic)+instance AWSRequest DeleteDeploymentConfig where+        type Sv DeleteDeploymentConfig = CodeDeploy+        type Rs DeleteDeploymentConfig =+             DeleteDeploymentConfigResponse+        request = postJSON+        response+          = receiveNull DeleteDeploymentConfigResponse' --- | 'DeleteDeploymentConfigResponse' constructor.-deleteDeploymentConfigResponse :: DeleteDeploymentConfigResponse-deleteDeploymentConfigResponse = DeleteDeploymentConfigResponse+instance ToHeaders DeleteDeploymentConfig where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("CodeDeploy_20141006.DeleteDeploymentConfig" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)]) +instance ToJSON DeleteDeploymentConfig where+        toJSON DeleteDeploymentConfig'{..}+          = object+              ["deploymentConfigName" .= _ddcDeploymentConfigName]+ instance ToPath DeleteDeploymentConfig where-    toPath = const "/"+        toPath = const "/"  instance ToQuery DeleteDeploymentConfig where-    toQuery = const mempty--instance ToHeaders DeleteDeploymentConfig--instance ToJSON DeleteDeploymentConfig where-    toJSON DeleteDeploymentConfig{..} = object-        [ "deploymentConfigName" .= _ddcDeploymentConfigName-        ]+        toQuery = const mempty -instance AWSRequest DeleteDeploymentConfig where-    type Sv DeleteDeploymentConfig = CodeDeploy-    type Rs DeleteDeploymentConfig = DeleteDeploymentConfigResponse+-- | /See:/ 'deleteDeploymentConfigResponse' smart constructor.+data DeleteDeploymentConfigResponse =+    DeleteDeploymentConfigResponse'+    deriving (Eq,Read,Show,Data,Typeable,Generic) -    request  = post "DeleteDeploymentConfig"-    response = nullResponse DeleteDeploymentConfigResponse+-- | Creates a value of 'DeleteDeploymentConfigResponse' with the minimum fields required to make a request.+--+deleteDeploymentConfigResponse+    :: DeleteDeploymentConfigResponse+deleteDeploymentConfigResponse = DeleteDeploymentConfigResponse'

@@ -1,139 +1,150 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.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/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Deletes a deployment group.+-- Deletes a deployment group. ----- <http://docs.aws.amazon.com/codedeploy/latest/APIReference/API_DeleteDeploymentGroup.html>+-- /See:/ <http://docs.aws.amazon.com/codedeploy/latest/APIReference/API_DeleteDeploymentGroup.html AWS API Reference> for DeleteDeploymentGroup. module Network.AWS.CodeDeploy.DeleteDeploymentGroup     (-    -- * Request-      DeleteDeploymentGroup-    -- ** Request constructor-    , deleteDeploymentGroup-    -- ** Request lenses+    -- * Creating a Request+      deleteDeploymentGroup+    , DeleteDeploymentGroup+    -- * Request Lenses     , ddgApplicationName     , ddgDeploymentGroupName -    -- * Response-    , DeleteDeploymentGroupResponse-    -- ** Response constructor+    -- * Destructuring the Response     , deleteDeploymentGroupResponse-    -- ** Response lenses-    , ddgrHooksNotCleanedUp+    , DeleteDeploymentGroupResponse+    -- * Response Lenses+    , ddgrsHooksNotCleanedUp+    , ddgrsStatus     ) where -import Network.AWS.Data (Object)-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, Read, Show)+import           Network.AWS.CodeDeploy.Types+import           Network.AWS.CodeDeploy.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response --- | 'DeleteDeploymentGroup' constructor.+-- | Represents the input of a delete deployment group operation. ----- The fields accessible through corresponding lenses are:+-- /See:/ 'deleteDeploymentGroup' smart constructor.+data DeleteDeploymentGroup = DeleteDeploymentGroup'+    { _ddgApplicationName     :: !Text+    , _ddgDeploymentGroupName :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DeleteDeploymentGroup' with the minimum fields required to make a request. ----- * 'ddgApplicationName' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'ddgDeploymentGroupName' @::@ 'Text'+-- * 'ddgApplicationName' ---deleteDeploymentGroup :: Text -- ^ 'ddgApplicationName'-                      -> Text -- ^ 'ddgDeploymentGroupName'-                      -> DeleteDeploymentGroup-deleteDeploymentGroup p1 p2 = DeleteDeploymentGroup-    { _ddgApplicationName     = p1-    , _ddgDeploymentGroupName = p2+-- * 'ddgDeploymentGroupName'+deleteDeploymentGroup+    :: Text -- ^ 'ddgApplicationName'+    -> Text -- ^ 'ddgDeploymentGroupName'+    -> DeleteDeploymentGroup+deleteDeploymentGroup pApplicationName_ pDeploymentGroupName_ =+    DeleteDeploymentGroup'+    { _ddgApplicationName = pApplicationName_+    , _ddgDeploymentGroupName = pDeploymentGroupName_     }  -- | The name of an existing AWS CodeDeploy application associated with the -- applicable IAM user or AWS account. ddgApplicationName :: Lens' DeleteDeploymentGroup Text-ddgApplicationName =-    lens _ddgApplicationName (\s a -> s { _ddgApplicationName = a })+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 })+ddgDeploymentGroupName = lens _ddgDeploymentGroupName (\ s a -> s{_ddgDeploymentGroupName = a}); -newtype DeleteDeploymentGroupResponse = DeleteDeploymentGroupResponse-    { _ddgrHooksNotCleanedUp :: List "hooksNotCleanedUp" AutoScalingGroup-    } deriving (Eq, Read, Show, Monoid, Semigroup)+instance AWSRequest DeleteDeploymentGroup where+        type Sv DeleteDeploymentGroup = CodeDeploy+        type Rs DeleteDeploymentGroup =+             DeleteDeploymentGroupResponse+        request = postJSON+        response+          = receiveJSON+              (\ s h x ->+                 DeleteDeploymentGroupResponse' <$>+                   (x .?> "hooksNotCleanedUp" .!@ mempty) <*>+                     (pure (fromEnum s))) -instance GHC.Exts.IsList DeleteDeploymentGroupResponse where-    type Item DeleteDeploymentGroupResponse = AutoScalingGroup+instance ToHeaders DeleteDeploymentGroup where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("CodeDeploy_20141006.DeleteDeploymentGroup" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)]) -    fromList = DeleteDeploymentGroupResponse . GHC.Exts.fromList-    toList   = GHC.Exts.toList . _ddgrHooksNotCleanedUp+instance ToJSON DeleteDeploymentGroup where+        toJSON DeleteDeploymentGroup'{..}+          = object+              ["applicationName" .= _ddgApplicationName,+               "deploymentGroupName" .= _ddgDeploymentGroupName] --- | 'DeleteDeploymentGroupResponse' constructor.+instance ToPath DeleteDeploymentGroup where+        toPath = const "/"++instance ToQuery DeleteDeploymentGroup where+        toQuery = const mempty++-- | Represents the output of a delete deployment group operation. ----- The fields accessible through corresponding lenses are:+-- /See:/ 'deleteDeploymentGroupResponse' smart constructor.+data DeleteDeploymentGroupResponse = DeleteDeploymentGroupResponse'+    { _ddgrsHooksNotCleanedUp :: !(Maybe [AutoScalingGroup])+    , _ddgrsStatus            :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DeleteDeploymentGroupResponse' with the minimum fields required to make a request. ----- * 'ddgrHooksNotCleanedUp' @::@ ['AutoScalingGroup']+-- Use one of the following lenses to modify other fields as desired: ---deleteDeploymentGroupResponse :: DeleteDeploymentGroupResponse-deleteDeploymentGroupResponse = DeleteDeploymentGroupResponse-    { _ddgrHooksNotCleanedUp = mempty+-- * 'ddgrsHooksNotCleanedUp'+--+-- * 'ddgrsStatus'+deleteDeploymentGroupResponse+    :: Int -- ^ 'ddgrsStatus'+    -> DeleteDeploymentGroupResponse+deleteDeploymentGroupResponse pStatus_ =+    DeleteDeploymentGroupResponse'+    { _ddgrsHooksNotCleanedUp = Nothing+    , _ddgrsStatus = pStatus_     }  -- | 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 Amazon--- EC2 instances in the Auto Scaling. If the output does contain data, AWS--- CodeDeploy could not remove some Auto Scaling lifecycle event hooks from the--- Amazon EC2 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+-- removed all corresponding Auto Scaling lifecycle event hooks from the+-- Amazon EC2 instances in the Auto Scaling. If the output does contain+-- data, AWS CodeDeploy could not remove some Auto Scaling lifecycle event+-- hooks from the Amazon EC2 instances in the Auto Scaling group.+ddgrsHooksNotCleanedUp :: Lens' DeleteDeploymentGroupResponse [AutoScalingGroup]+ddgrsHooksNotCleanedUp = lens _ddgrsHooksNotCleanedUp (\ s a -> s{_ddgrsHooksNotCleanedUp = a}) . _Default . _Coerce; -instance FromJSON DeleteDeploymentGroupResponse where-    parseJSON = withObject "DeleteDeploymentGroupResponse" $ \o -> DeleteDeploymentGroupResponse-        <$> o .:? "hooksNotCleanedUp" .!= mempty+-- | The response status code.+ddgrsStatus :: Lens' DeleteDeploymentGroupResponse Int+ddgrsStatus = lens _ddgrsStatus (\ s a -> s{_ddgrsStatus = a});

@@ -1,94 +1,105 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.CodeDeploy.DeregisterOnPremisesInstance--- 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/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Deregisters an on-premises instance.+-- Deregisters an on-premises instance. ----- <http://docs.aws.amazon.com/codedeploy/latest/APIReference/API_DeregisterOnPremisesInstance.html>+-- /See:/ <http://docs.aws.amazon.com/codedeploy/latest/APIReference/API_DeregisterOnPremisesInstance.html AWS API Reference> for DeregisterOnPremisesInstance. module Network.AWS.CodeDeploy.DeregisterOnPremisesInstance     (-    -- * Request-      DeregisterOnPremisesInstance-    -- ** Request constructor-    , deregisterOnPremisesInstance-    -- ** Request lenses+    -- * Creating a Request+      deregisterOnPremisesInstance+    , DeregisterOnPremisesInstance+    -- * Request Lenses     , dopiInstanceName -    -- * Response-    , DeregisterOnPremisesInstanceResponse-    -- ** Response constructor+    -- * Destructuring the Response     , deregisterOnPremisesInstanceResponse+    , DeregisterOnPremisesInstanceResponse     ) where -import Network.AWS.Data (Object)-import Network.AWS.Prelude-import Network.AWS.Request.JSON-import Network.AWS.CodeDeploy.Types-import qualified GHC.Exts+import           Network.AWS.CodeDeploy.Types+import           Network.AWS.CodeDeploy.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response -newtype DeregisterOnPremisesInstance = DeregisterOnPremisesInstance+-- | Represents the input of a deregister on-premises instance operation.+--+-- /See:/ 'deregisterOnPremisesInstance' smart constructor.+newtype DeregisterOnPremisesInstance = DeregisterOnPremisesInstance'     { _dopiInstanceName :: Text-    } deriving (Eq, Ord, Read, Show, Monoid, IsString)+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'DeregisterOnPremisesInstance' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'DeregisterOnPremisesInstance' with the minimum fields required to make a request. ----- * 'dopiInstanceName' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ---deregisterOnPremisesInstance :: Text -- ^ 'dopiInstanceName'-                             -> DeregisterOnPremisesInstance-deregisterOnPremisesInstance p1 = DeregisterOnPremisesInstance-    { _dopiInstanceName = p1+-- * 'dopiInstanceName'+deregisterOnPremisesInstance+    :: Text -- ^ 'dopiInstanceName'+    -> DeregisterOnPremisesInstance+deregisterOnPremisesInstance pInstanceName_ =+    DeregisterOnPremisesInstance'+    { _dopiInstanceName = pInstanceName_     }  -- | The name of the on-premises instance to deregister. dopiInstanceName :: Lens' DeregisterOnPremisesInstance Text-dopiInstanceName = lens _dopiInstanceName (\s a -> s { _dopiInstanceName = a })+dopiInstanceName = lens _dopiInstanceName (\ s a -> s{_dopiInstanceName = a}); -data DeregisterOnPremisesInstanceResponse = DeregisterOnPremisesInstanceResponse-    deriving (Eq, Ord, Read, Show, Generic)+instance AWSRequest DeregisterOnPremisesInstance+         where+        type Sv DeregisterOnPremisesInstance = CodeDeploy+        type Rs DeregisterOnPremisesInstance =+             DeregisterOnPremisesInstanceResponse+        request = postJSON+        response+          = receiveNull DeregisterOnPremisesInstanceResponse' --- | 'DeregisterOnPremisesInstanceResponse' constructor.-deregisterOnPremisesInstanceResponse :: DeregisterOnPremisesInstanceResponse-deregisterOnPremisesInstanceResponse = DeregisterOnPremisesInstanceResponse+instance ToHeaders DeregisterOnPremisesInstance where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("CodeDeploy_20141006.DeregisterOnPremisesInstance"+                       :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)]) +instance ToJSON DeregisterOnPremisesInstance where+        toJSON DeregisterOnPremisesInstance'{..}+          = object ["instanceName" .= _dopiInstanceName]+ instance ToPath DeregisterOnPremisesInstance where-    toPath = const "/"+        toPath = const "/"  instance ToQuery DeregisterOnPremisesInstance where-    toQuery = const mempty--instance ToHeaders DeregisterOnPremisesInstance--instance ToJSON DeregisterOnPremisesInstance where-    toJSON DeregisterOnPremisesInstance{..} = object-        [ "instanceName" .= _dopiInstanceName-        ]+        toQuery = const mempty -instance AWSRequest DeregisterOnPremisesInstance where-    type Sv DeregisterOnPremisesInstance = CodeDeploy-    type Rs DeregisterOnPremisesInstance = DeregisterOnPremisesInstanceResponse+-- | /See:/ 'deregisterOnPremisesInstanceResponse' smart constructor.+data DeregisterOnPremisesInstanceResponse =+    DeregisterOnPremisesInstanceResponse'+    deriving (Eq,Read,Show,Data,Typeable,Generic) -    request  = post "DeregisterOnPremisesInstance"-    response = nullResponse DeregisterOnPremisesInstanceResponse+-- | Creates a value of 'DeregisterOnPremisesInstanceResponse' with the minimum fields required to make a request.+--+deregisterOnPremisesInstanceResponse+    :: DeregisterOnPremisesInstanceResponse+deregisterOnPremisesInstanceResponse = DeregisterOnPremisesInstanceResponse'

@@ -1,114 +1,130 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.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/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Gets information about an application.+-- Gets information about an application. ----- <http://docs.aws.amazon.com/codedeploy/latest/APIReference/API_GetApplication.html>+-- /See:/ <http://docs.aws.amazon.com/codedeploy/latest/APIReference/API_GetApplication.html AWS API Reference> for GetApplication. module Network.AWS.CodeDeploy.GetApplication     (-    -- * Request-      GetApplication-    -- ** Request constructor-    , getApplication-    -- ** Request lenses+    -- * Creating a Request+      getApplication+    , GetApplication+    -- * Request Lenses     , gaApplicationName -    -- * Response-    , GetApplicationResponse-    -- ** Response constructor+    -- * Destructuring the Response     , getApplicationResponse-    -- ** Response lenses-    , garApplication+    , GetApplicationResponse+    -- * Response Lenses+    , garsApplication+    , garsStatus     ) where -import Network.AWS.Data (Object)-import Network.AWS.Prelude-import Network.AWS.Request.JSON-import Network.AWS.CodeDeploy.Types-import qualified GHC.Exts+import           Network.AWS.CodeDeploy.Types+import           Network.AWS.CodeDeploy.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response -newtype GetApplication = GetApplication+-- | Represents the input of a get application operation.+--+-- /See:/ 'getApplication' smart constructor.+newtype GetApplication = GetApplication'     { _gaApplicationName :: Text-    } deriving (Eq, Ord, Read, Show, Monoid, IsString)+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'GetApplication' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'GetApplication' with the minimum fields required to make a request. ----- * 'gaApplicationName' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ---getApplication :: Text -- ^ 'gaApplicationName'-               -> GetApplication-getApplication p1 = GetApplication-    { _gaApplicationName = p1+-- * 'gaApplicationName'+getApplication+    :: Text -- ^ 'gaApplicationName'+    -> GetApplication+getApplication pApplicationName_ =+    GetApplication'+    { _gaApplicationName = pApplicationName_     }  -- | The name of an existing AWS CodeDeploy application associated with the -- applicable IAM user or AWS account. gaApplicationName :: Lens' GetApplication Text-gaApplicationName =-    lens _gaApplicationName (\s a -> s { _gaApplicationName = a })+gaApplicationName = lens _gaApplicationName (\ s a -> s{_gaApplicationName = a}); -newtype GetApplicationResponse = GetApplicationResponse-    { _garApplication :: Maybe ApplicationInfo-    } deriving (Eq, Read, Show)+instance AWSRequest GetApplication where+        type Sv GetApplication = CodeDeploy+        type Rs GetApplication = GetApplicationResponse+        request = postJSON+        response+          = receiveJSON+              (\ s h x ->+                 GetApplicationResponse' <$>+                   (x .?> "application") <*> (pure (fromEnum s))) --- | 'GetApplicationResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'garApplication' @::@ 'Maybe' 'ApplicationInfo'----getApplicationResponse :: GetApplicationResponse-getApplicationResponse = GetApplicationResponse-    { _garApplication = Nothing-    }+instance ToHeaders GetApplication where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("CodeDeploy_20141006.GetApplication" :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)]) --- | Information about the application.-garApplication :: Lens' GetApplicationResponse (Maybe ApplicationInfo)-garApplication = lens _garApplication (\s a -> s { _garApplication = a })+instance ToJSON GetApplication where+        toJSON GetApplication'{..}+          = object ["applicationName" .= _gaApplicationName]  instance ToPath GetApplication where-    toPath = const "/"+        toPath = const "/"  instance ToQuery GetApplication where-    toQuery = const mempty--instance ToHeaders GetApplication+        toQuery = const mempty -instance ToJSON GetApplication where-    toJSON GetApplication{..} = object-        [ "applicationName" .= _gaApplicationName-        ]+-- | Represents the output of a get application operation.+--+-- /See:/ 'getApplicationResponse' smart constructor.+data GetApplicationResponse = GetApplicationResponse'+    { _garsApplication :: !(Maybe ApplicationInfo)+    , _garsStatus      :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest GetApplication where-    type Sv GetApplication = CodeDeploy-    type Rs GetApplication = GetApplicationResponse+-- | Creates a value of 'GetApplicationResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'garsApplication'+--+-- * 'garsStatus'+getApplicationResponse+    :: Int -- ^ 'garsStatus'+    -> GetApplicationResponse+getApplicationResponse pStatus_ =+    GetApplicationResponse'+    { _garsApplication = Nothing+    , _garsStatus = pStatus_+    } -    request  = post "GetApplication"-    response = jsonResponse+-- | Information about the application.+garsApplication :: Lens' GetApplicationResponse (Maybe ApplicationInfo)+garsApplication = lens _garsApplication (\ s a -> s{_garsApplication = a}); -instance FromJSON GetApplicationResponse where-    parseJSON = withObject "GetApplicationResponse" $ \o -> GetApplicationResponse-        <$> o .:? "application"+-- | The response status code.+garsStatus :: Lens' GetApplicationResponse Int+garsStatus = lens _garsStatus (\ s a -> s{_garsStatus = a});

@@ -1,147 +1,165 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.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/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Gets information about an application revision.+-- Gets information about an application revision. ----- <http://docs.aws.amazon.com/codedeploy/latest/APIReference/API_GetApplicationRevision.html>+-- /See:/ <http://docs.aws.amazon.com/codedeploy/latest/APIReference/API_GetApplicationRevision.html AWS API Reference> for GetApplicationRevision. module Network.AWS.CodeDeploy.GetApplicationRevision     (-    -- * Request-      GetApplicationRevision-    -- ** Request constructor-    , getApplicationRevision-    -- ** Request lenses+    -- * Creating a Request+      getApplicationRevision+    , GetApplicationRevision+    -- * Request Lenses     , garApplicationName     , garRevision -    -- * Response-    , GetApplicationRevisionResponse-    -- ** Response constructor+    -- * Destructuring the Response     , getApplicationRevisionResponse-    -- ** Response lenses-    , garrApplicationName-    , garrRevision-    , garrRevisionInfo+    , GetApplicationRevisionResponse+    -- * Response Lenses+    , garrsRevisionInfo+    , garrsApplicationName+    , garrsRevision+    , garrsStatus     ) where -import Network.AWS.Data (Object)-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, Read, Show)+import           Network.AWS.CodeDeploy.Types+import           Network.AWS.CodeDeploy.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response --- | 'GetApplicationRevision' constructor.+-- | Represents the input of a get application revision operation. ----- The fields accessible through corresponding lenses are:+-- /See:/ 'getApplicationRevision' smart constructor.+data GetApplicationRevision = GetApplicationRevision'+    { _garApplicationName :: !Text+    , _garRevision        :: !RevisionLocation+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'GetApplicationRevision' with the minimum fields required to make a request. ----- * 'garApplicationName' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'garRevision' @::@ 'RevisionLocation'+-- * 'garApplicationName' ---getApplicationRevision :: Text -- ^ 'garApplicationName'-                       -> RevisionLocation -- ^ 'garRevision'-                       -> GetApplicationRevision-getApplicationRevision p1 p2 = GetApplicationRevision-    { _garApplicationName = p1-    , _garRevision        = p2+-- * 'garRevision'+getApplicationRevision+    :: Text -- ^ 'garApplicationName'+    -> RevisionLocation -- ^ 'garRevision'+    -> GetApplicationRevision+getApplicationRevision pApplicationName_ pRevision_ =+    GetApplicationRevision'+    { _garApplicationName = pApplicationName_+    , _garRevision = pRevision_     }  -- | The name of the application that corresponds to the revision. garApplicationName :: Lens' GetApplicationRevision Text-garApplicationName =-    lens _garApplicationName (\s a -> s { _garApplicationName = a })+garApplicationName = lens _garApplicationName (\ s a -> s{_garApplicationName = a}); --- | Information about the application revision to get, including the revision's--- type and its location.+-- | 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 })+garRevision = lens _garRevision (\ s a -> s{_garRevision = a}); -data GetApplicationRevisionResponse = GetApplicationRevisionResponse-    { _garrApplicationName :: Maybe Text-    , _garrRevision        :: Maybe RevisionLocation-    , _garrRevisionInfo    :: Maybe GenericRevisionInfo-    } deriving (Eq, Read, Show)+instance AWSRequest GetApplicationRevision where+        type Sv GetApplicationRevision = CodeDeploy+        type Rs GetApplicationRevision =+             GetApplicationRevisionResponse+        request = postJSON+        response+          = receiveJSON+              (\ s h x ->+                 GetApplicationRevisionResponse' <$>+                   (x .?> "revisionInfo") <*> (x .?> "applicationName")+                     <*> (x .?> "revision")+                     <*> (pure (fromEnum s))) --- | 'GetApplicationRevisionResponse' constructor.+instance ToHeaders GetApplicationRevision where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("CodeDeploy_20141006.GetApplicationRevision" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON GetApplicationRevision where+        toJSON GetApplicationRevision'{..}+          = object+              ["applicationName" .= _garApplicationName,+               "revision" .= _garRevision]++instance ToPath GetApplicationRevision where+        toPath = const "/"++instance ToQuery GetApplicationRevision where+        toQuery = const mempty++-- | Represents the output of a get application revision operation. ----- The fields accessible through corresponding lenses are:+-- /See:/ 'getApplicationRevisionResponse' smart constructor.+data GetApplicationRevisionResponse = GetApplicationRevisionResponse'+    { _garrsRevisionInfo    :: !(Maybe GenericRevisionInfo)+    , _garrsApplicationName :: !(Maybe Text)+    , _garrsRevision        :: !(Maybe RevisionLocation)+    , _garrsStatus          :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'GetApplicationRevisionResponse' with the minimum fields required to make a request. ----- * 'garrApplicationName' @::@ 'Maybe' 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'garrRevision' @::@ 'Maybe' 'RevisionLocation'+-- * 'garrsRevisionInfo' ----- * 'garrRevisionInfo' @::@ 'Maybe' 'GenericRevisionInfo'+-- * 'garrsApplicationName' ---getApplicationRevisionResponse :: GetApplicationRevisionResponse-getApplicationRevisionResponse = GetApplicationRevisionResponse-    { _garrApplicationName = Nothing-    , _garrRevision        = Nothing-    , _garrRevisionInfo    = Nothing+-- * 'garrsRevision'+--+-- * 'garrsStatus'+getApplicationRevisionResponse+    :: Int -- ^ 'garrsStatus'+    -> GetApplicationRevisionResponse+getApplicationRevisionResponse pStatus_ =+    GetApplicationRevisionResponse'+    { _garrsRevisionInfo = Nothing+    , _garrsApplicationName = Nothing+    , _garrsRevision = Nothing+    , _garrsStatus = pStatus_     } --- | 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-        ]+garrsRevisionInfo :: Lens' GetApplicationRevisionResponse (Maybe GenericRevisionInfo)+garrsRevisionInfo = lens _garrsRevisionInfo (\ s a -> s{_garrsRevisionInfo = a}); -instance AWSRequest GetApplicationRevision where-    type Sv GetApplicationRevision = CodeDeploy-    type Rs GetApplicationRevision = GetApplicationRevisionResponse+-- | The name of the application that corresponds to the revision.+garrsApplicationName :: Lens' GetApplicationRevisionResponse (Maybe Text)+garrsApplicationName = lens _garrsApplicationName (\ s a -> s{_garrsApplicationName = a}); -    request  = post "GetApplicationRevision"-    response = jsonResponse+-- | Additional information about the revision, including the revision\'s+-- type and its location.+garrsRevision :: Lens' GetApplicationRevisionResponse (Maybe RevisionLocation)+garrsRevision = lens _garrsRevision (\ s a -> s{_garrsRevision = a}); -instance FromJSON GetApplicationRevisionResponse where-    parseJSON = withObject "GetApplicationRevisionResponse" $ \o -> GetApplicationRevisionResponse-        <$> o .:? "applicationName"-        <*> o .:? "revision"-        <*> o .:? "revisionInfo"+-- | The response status code.+garrsStatus :: Lens' GetApplicationRevisionResponse Int+garrsStatus = lens _garrsStatus (\ s a -> s{_garrsStatus = a});

@@ -1,114 +1,130 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.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/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Gets information about a deployment.+-- Gets information about a deployment. ----- <http://docs.aws.amazon.com/codedeploy/latest/APIReference/API_GetDeployment.html>+-- /See:/ <http://docs.aws.amazon.com/codedeploy/latest/APIReference/API_GetDeployment.html AWS API Reference> for GetDeployment. module Network.AWS.CodeDeploy.GetDeployment     (-    -- * Request-      GetDeployment-    -- ** Request constructor-    , getDeployment-    -- ** Request lenses+    -- * Creating a Request+      getDeployment+    , GetDeployment+    -- * Request Lenses     , gdDeploymentId -    -- * Response-    , GetDeploymentResponse-    -- ** Response constructor+    -- * Destructuring the Response     , getDeploymentResponse-    -- ** Response lenses-    , gdrDeploymentInfo+    , GetDeploymentResponse+    -- * Response Lenses+    , gdrsDeploymentInfo+    , gdrsStatus     ) where -import Network.AWS.Data (Object)-import Network.AWS.Prelude-import Network.AWS.Request.JSON-import Network.AWS.CodeDeploy.Types-import qualified GHC.Exts+import           Network.AWS.CodeDeploy.Types+import           Network.AWS.CodeDeploy.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response -newtype GetDeployment = GetDeployment+-- | Represents the input of a get deployment operation.+--+-- /See:/ 'getDeployment' smart constructor.+newtype GetDeployment = GetDeployment'     { _gdDeploymentId :: Text-    } deriving (Eq, Ord, Read, Show, Monoid, IsString)+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'GetDeployment' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'GetDeployment' with the minimum fields required to make a request. ----- * 'gdDeploymentId' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ---getDeployment :: Text -- ^ 'gdDeploymentId'-              -> GetDeployment-getDeployment p1 = GetDeployment-    { _gdDeploymentId = p1+-- * 'gdDeploymentId'+getDeployment+    :: Text -- ^ 'gdDeploymentId'+    -> GetDeployment+getDeployment pDeploymentId_ =+    GetDeployment'+    { _gdDeploymentId = pDeploymentId_     }  -- | An existing deployment ID associated with the applicable IAM user or AWS -- account. gdDeploymentId :: Lens' GetDeployment Text-gdDeploymentId = lens _gdDeploymentId (\s a -> s { _gdDeploymentId = a })+gdDeploymentId = lens _gdDeploymentId (\ s a -> s{_gdDeploymentId = a}); -newtype GetDeploymentResponse = GetDeploymentResponse-    { _gdrDeploymentInfo :: Maybe DeploymentInfo-    } deriving (Eq, Read, Show)+instance AWSRequest GetDeployment where+        type Sv GetDeployment = CodeDeploy+        type Rs GetDeployment = GetDeploymentResponse+        request = postJSON+        response+          = receiveJSON+              (\ s h x ->+                 GetDeploymentResponse' <$>+                   (x .?> "deploymentInfo") <*> (pure (fromEnum s))) --- | 'GetDeploymentResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'gdrDeploymentInfo' @::@ 'Maybe' 'DeploymentInfo'----getDeploymentResponse :: GetDeploymentResponse-getDeploymentResponse = GetDeploymentResponse-    { _gdrDeploymentInfo = Nothing-    }+instance ToHeaders GetDeployment where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("CodeDeploy_20141006.GetDeployment" :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)]) --- | Information about the deployment.-gdrDeploymentInfo :: Lens' GetDeploymentResponse (Maybe DeploymentInfo)-gdrDeploymentInfo =-    lens _gdrDeploymentInfo (\s a -> s { _gdrDeploymentInfo = a })+instance ToJSON GetDeployment where+        toJSON GetDeployment'{..}+          = object ["deploymentId" .= _gdDeploymentId]  instance ToPath GetDeployment where-    toPath = const "/"+        toPath = const "/"  instance ToQuery GetDeployment where-    toQuery = const mempty--instance ToHeaders GetDeployment+        toQuery = const mempty -instance ToJSON GetDeployment where-    toJSON GetDeployment{..} = object-        [ "deploymentId" .= _gdDeploymentId-        ]+-- | Represents the output of a get deployment operation.+--+-- /See:/ 'getDeploymentResponse' smart constructor.+data GetDeploymentResponse = GetDeploymentResponse'+    { _gdrsDeploymentInfo :: !(Maybe DeploymentInfo)+    , _gdrsStatus         :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest GetDeployment where-    type Sv GetDeployment = CodeDeploy-    type Rs GetDeployment = GetDeploymentResponse+-- | Creates a value of 'GetDeploymentResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'gdrsDeploymentInfo'+--+-- * 'gdrsStatus'+getDeploymentResponse+    :: Int -- ^ 'gdrsStatus'+    -> GetDeploymentResponse+getDeploymentResponse pStatus_ =+    GetDeploymentResponse'+    { _gdrsDeploymentInfo = Nothing+    , _gdrsStatus = pStatus_+    } -    request  = post "GetDeployment"-    response = jsonResponse+-- | Information about the deployment.+gdrsDeploymentInfo :: Lens' GetDeploymentResponse (Maybe DeploymentInfo)+gdrsDeploymentInfo = lens _gdrsDeploymentInfo (\ s a -> s{_gdrsDeploymentInfo = a}); -instance FromJSON GetDeploymentResponse where-    parseJSON = withObject "GetDeploymentResponse" $ \o -> GetDeploymentResponse-        <$> o .:? "deploymentInfo"+-- | The response status code.+gdrsStatus :: Lens' GetDeploymentResponse Int+gdrsStatus = lens _gdrsStatus (\ s a -> s{_gdrsStatus = a});

@@ -1,116 +1,134 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.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/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Gets information about a deployment configuration.+-- Gets information about a deployment configuration. ----- <http://docs.aws.amazon.com/codedeploy/latest/APIReference/API_GetDeploymentConfig.html>+-- /See:/ <http://docs.aws.amazon.com/codedeploy/latest/APIReference/API_GetDeploymentConfig.html AWS API Reference> for GetDeploymentConfig. module Network.AWS.CodeDeploy.GetDeploymentConfig     (-    -- * Request-      GetDeploymentConfig-    -- ** Request constructor-    , getDeploymentConfig-    -- ** Request lenses+    -- * Creating a Request+      getDeploymentConfig+    , GetDeploymentConfig+    -- * Request Lenses     , gdcDeploymentConfigName -    -- * Response-    , GetDeploymentConfigResponse-    -- ** Response constructor+    -- * Destructuring the Response     , getDeploymentConfigResponse-    -- ** Response lenses-    , gdcrDeploymentConfigInfo+    , GetDeploymentConfigResponse+    -- * Response Lenses+    , gdcrsDeploymentConfigInfo+    , gdcrsStatus     ) where -import Network.AWS.Data (Object)-import Network.AWS.Prelude-import Network.AWS.Request.JSON-import Network.AWS.CodeDeploy.Types-import qualified GHC.Exts+import           Network.AWS.CodeDeploy.Types+import           Network.AWS.CodeDeploy.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response -newtype GetDeploymentConfig = GetDeploymentConfig+-- | Represents the input of a get deployment configuration operation.+--+-- /See:/ 'getDeploymentConfig' smart constructor.+newtype GetDeploymentConfig = GetDeploymentConfig'     { _gdcDeploymentConfigName :: Text-    } deriving (Eq, Ord, Read, Show, Monoid, IsString)+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'GetDeploymentConfig' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'GetDeploymentConfig' with the minimum fields required to make a request. ----- * 'gdcDeploymentConfigName' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ---getDeploymentConfig :: Text -- ^ 'gdcDeploymentConfigName'-                    -> GetDeploymentConfig-getDeploymentConfig p1 = GetDeploymentConfig-    { _gdcDeploymentConfigName = p1+-- * 'gdcDeploymentConfigName'+getDeploymentConfig+    :: Text -- ^ 'gdcDeploymentConfigName'+    -> GetDeploymentConfig+getDeploymentConfig pDeploymentConfigName_ =+    GetDeploymentConfig'+    { _gdcDeploymentConfigName = pDeploymentConfigName_     }  -- | The name of an existing deployment configuration associated with the -- applicable IAM user or AWS account. gdcDeploymentConfigName :: Lens' GetDeploymentConfig Text-gdcDeploymentConfigName =-    lens _gdcDeploymentConfigName (\s a -> s { _gdcDeploymentConfigName = a })+gdcDeploymentConfigName = lens _gdcDeploymentConfigName (\ s a -> s{_gdcDeploymentConfigName = a}); -newtype GetDeploymentConfigResponse = GetDeploymentConfigResponse-    { _gdcrDeploymentConfigInfo :: Maybe DeploymentConfigInfo-    } deriving (Eq, Read, Show)+instance AWSRequest GetDeploymentConfig where+        type Sv GetDeploymentConfig = CodeDeploy+        type Rs GetDeploymentConfig =+             GetDeploymentConfigResponse+        request = postJSON+        response+          = receiveJSON+              (\ s h x ->+                 GetDeploymentConfigResponse' <$>+                   (x .?> "deploymentConfigInfo") <*>+                     (pure (fromEnum s))) --- | 'GetDeploymentConfigResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'gdcrDeploymentConfigInfo' @::@ 'Maybe' 'DeploymentConfigInfo'----getDeploymentConfigResponse :: GetDeploymentConfigResponse-getDeploymentConfigResponse = GetDeploymentConfigResponse-    { _gdcrDeploymentConfigInfo = Nothing-    }+instance ToHeaders GetDeploymentConfig where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("CodeDeploy_20141006.GetDeploymentConfig" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)]) --- | Information about the deployment configuration.-gdcrDeploymentConfigInfo :: Lens' GetDeploymentConfigResponse (Maybe DeploymentConfigInfo)-gdcrDeploymentConfigInfo =-    lens _gdcrDeploymentConfigInfo-        (\s a -> s { _gdcrDeploymentConfigInfo = a })+instance ToJSON GetDeploymentConfig where+        toJSON GetDeploymentConfig'{..}+          = object+              ["deploymentConfigName" .= _gdcDeploymentConfigName]  instance ToPath GetDeploymentConfig where-    toPath = const "/"+        toPath = const "/"  instance ToQuery GetDeploymentConfig where-    toQuery = const mempty--instance ToHeaders GetDeploymentConfig+        toQuery = const mempty -instance ToJSON GetDeploymentConfig where-    toJSON GetDeploymentConfig{..} = object-        [ "deploymentConfigName" .= _gdcDeploymentConfigName-        ]+-- | Represents the output of a get deployment configuration operation.+--+-- /See:/ 'getDeploymentConfigResponse' smart constructor.+data GetDeploymentConfigResponse = GetDeploymentConfigResponse'+    { _gdcrsDeploymentConfigInfo :: !(Maybe DeploymentConfigInfo)+    , _gdcrsStatus               :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest GetDeploymentConfig where-    type Sv GetDeploymentConfig = CodeDeploy-    type Rs GetDeploymentConfig = GetDeploymentConfigResponse+-- | Creates a value of 'GetDeploymentConfigResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'gdcrsDeploymentConfigInfo'+--+-- * 'gdcrsStatus'+getDeploymentConfigResponse+    :: Int -- ^ 'gdcrsStatus'+    -> GetDeploymentConfigResponse+getDeploymentConfigResponse pStatus_ =+    GetDeploymentConfigResponse'+    { _gdcrsDeploymentConfigInfo = Nothing+    , _gdcrsStatus = pStatus_+    } -    request  = post "GetDeploymentConfig"-    response = jsonResponse+-- | Information about the deployment configuration.+gdcrsDeploymentConfigInfo :: Lens' GetDeploymentConfigResponse (Maybe DeploymentConfigInfo)+gdcrsDeploymentConfigInfo = lens _gdcrsDeploymentConfigInfo (\ s a -> s{_gdcrsDeploymentConfigInfo = a}); -instance FromJSON GetDeploymentConfigResponse where-    parseJSON = withObject "GetDeploymentConfigResponse" $ \o -> GetDeploymentConfigResponse-        <$> o .:? "deploymentConfigInfo"+-- | The response status code.+gdcrsStatus :: Lens' GetDeploymentConfigResponse Int+gdcrsStatus = lens _gdcrsStatus (\ s a -> s{_gdcrsStatus = a});

@@ -1,127 +1,145 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.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/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Gets information about a deployment group.+-- Gets information about a deployment group. ----- <http://docs.aws.amazon.com/codedeploy/latest/APIReference/API_GetDeploymentGroup.html>+-- /See:/ <http://docs.aws.amazon.com/codedeploy/latest/APIReference/API_GetDeploymentGroup.html AWS API Reference> for GetDeploymentGroup. module Network.AWS.CodeDeploy.GetDeploymentGroup     (-    -- * Request-      GetDeploymentGroup-    -- ** Request constructor-    , getDeploymentGroup-    -- ** Request lenses+    -- * Creating a Request+      getDeploymentGroup+    , GetDeploymentGroup+    -- * Request Lenses     , gdgApplicationName     , gdgDeploymentGroupName -    -- * Response-    , GetDeploymentGroupResponse-    -- ** Response constructor+    -- * Destructuring the Response     , getDeploymentGroupResponse-    -- ** Response lenses-    , gdgrDeploymentGroupInfo+    , GetDeploymentGroupResponse+    -- * Response Lenses+    , gdgrsDeploymentGroupInfo+    , gdgrsStatus     ) where -import Network.AWS.Data (Object)-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, Read, Show)+import           Network.AWS.CodeDeploy.Types+import           Network.AWS.CodeDeploy.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response --- | 'GetDeploymentGroup' constructor.+-- | Represents the input of a get deployment group operation. ----- The fields accessible through corresponding lenses are:+-- /See:/ 'getDeploymentGroup' smart constructor.+data GetDeploymentGroup = GetDeploymentGroup'+    { _gdgApplicationName     :: !Text+    , _gdgDeploymentGroupName :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'GetDeploymentGroup' with the minimum fields required to make a request. ----- * 'gdgApplicationName' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'gdgDeploymentGroupName' @::@ 'Text'+-- * 'gdgApplicationName' ---getDeploymentGroup :: Text -- ^ 'gdgApplicationName'-                   -> Text -- ^ 'gdgDeploymentGroupName'-                   -> GetDeploymentGroup-getDeploymentGroup p1 p2 = GetDeploymentGroup-    { _gdgApplicationName     = p1-    , _gdgDeploymentGroupName = p2+-- * 'gdgDeploymentGroupName'+getDeploymentGroup+    :: Text -- ^ 'gdgApplicationName'+    -> Text -- ^ 'gdgDeploymentGroupName'+    -> GetDeploymentGroup+getDeploymentGroup pApplicationName_ pDeploymentGroupName_ =+    GetDeploymentGroup'+    { _gdgApplicationName = pApplicationName_+    , _gdgDeploymentGroupName = pDeploymentGroupName_     }  -- | The name of an existing AWS CodeDeploy application associated with the -- applicable IAM user or AWS account. gdgApplicationName :: Lens' GetDeploymentGroup Text-gdgApplicationName =-    lens _gdgApplicationName (\s a -> s { _gdgApplicationName = a })+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 })+gdgDeploymentGroupName = lens _gdgDeploymentGroupName (\ s a -> s{_gdgDeploymentGroupName = a}); -newtype GetDeploymentGroupResponse = GetDeploymentGroupResponse-    { _gdgrDeploymentGroupInfo :: Maybe DeploymentGroupInfo-    } deriving (Eq, Read, Show)+instance AWSRequest GetDeploymentGroup where+        type Sv GetDeploymentGroup = CodeDeploy+        type Rs GetDeploymentGroup =+             GetDeploymentGroupResponse+        request = postJSON+        response+          = receiveJSON+              (\ s h x ->+                 GetDeploymentGroupResponse' <$>+                   (x .?> "deploymentGroupInfo") <*>+                     (pure (fromEnum s))) --- | 'GetDeploymentGroupResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'gdgrDeploymentGroupInfo' @::@ 'Maybe' 'DeploymentGroupInfo'----getDeploymentGroupResponse :: GetDeploymentGroupResponse-getDeploymentGroupResponse = GetDeploymentGroupResponse-    { _gdgrDeploymentGroupInfo = Nothing-    }+instance ToHeaders GetDeploymentGroup where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("CodeDeploy_20141006.GetDeploymentGroup" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)]) --- | Information about the deployment group.-gdgrDeploymentGroupInfo :: Lens' GetDeploymentGroupResponse (Maybe DeploymentGroupInfo)-gdgrDeploymentGroupInfo =-    lens _gdgrDeploymentGroupInfo (\s a -> s { _gdgrDeploymentGroupInfo = a })+instance ToJSON GetDeploymentGroup where+        toJSON GetDeploymentGroup'{..}+          = object+              ["applicationName" .= _gdgApplicationName,+               "deploymentGroupName" .= _gdgDeploymentGroupName]  instance ToPath GetDeploymentGroup where-    toPath = const "/"+        toPath = const "/"  instance ToQuery GetDeploymentGroup where-    toQuery = const mempty--instance ToHeaders GetDeploymentGroup+        toQuery = const mempty -instance ToJSON GetDeploymentGroup where-    toJSON GetDeploymentGroup{..} = object-        [ "applicationName"     .= _gdgApplicationName-        , "deploymentGroupName" .= _gdgDeploymentGroupName-        ]+-- | Represents the output of a get deployment group operation.+--+-- /See:/ 'getDeploymentGroupResponse' smart constructor.+data GetDeploymentGroupResponse = GetDeploymentGroupResponse'+    { _gdgrsDeploymentGroupInfo :: !(Maybe DeploymentGroupInfo)+    , _gdgrsStatus              :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest GetDeploymentGroup where-    type Sv GetDeploymentGroup = CodeDeploy-    type Rs GetDeploymentGroup = GetDeploymentGroupResponse+-- | Creates a value of 'GetDeploymentGroupResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'gdgrsDeploymentGroupInfo'+--+-- * 'gdgrsStatus'+getDeploymentGroupResponse+    :: Int -- ^ 'gdgrsStatus'+    -> GetDeploymentGroupResponse+getDeploymentGroupResponse pStatus_ =+    GetDeploymentGroupResponse'+    { _gdgrsDeploymentGroupInfo = Nothing+    , _gdgrsStatus = pStatus_+    } -    request  = post "GetDeploymentGroup"-    response = jsonResponse+-- | Information about the deployment group.+gdgrsDeploymentGroupInfo :: Lens' GetDeploymentGroupResponse (Maybe DeploymentGroupInfo)+gdgrsDeploymentGroupInfo = lens _gdgrsDeploymentGroupInfo (\ s a -> s{_gdgrsDeploymentGroupInfo = a}); -instance FromJSON GetDeploymentGroupResponse where-    parseJSON = withObject "GetDeploymentGroupResponse" $ \o -> GetDeploymentGroupResponse-        <$> o .:? "deploymentGroupInfo"+-- | The response status code.+gdgrsStatus :: Lens' GetDeploymentGroupResponse Int+gdgrsStatus = lens _gdgrsStatus (\ s a -> s{_gdgrsStatus = a});

@@ -1,124 +1,143 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.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/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Gets information about an instance as part of a deployment.+-- Gets information about an instance as part of a deployment. ----- <http://docs.aws.amazon.com/codedeploy/latest/APIReference/API_GetDeploymentInstance.html>+-- /See:/ <http://docs.aws.amazon.com/codedeploy/latest/APIReference/API_GetDeploymentInstance.html AWS API Reference> for GetDeploymentInstance. module Network.AWS.CodeDeploy.GetDeploymentInstance     (-    -- * Request-      GetDeploymentInstance-    -- ** Request constructor-    , getDeploymentInstance-    -- ** Request lenses+    -- * Creating a Request+      getDeploymentInstance+    , GetDeploymentInstance+    -- * Request Lenses     , gdiDeploymentId     , gdiInstanceId -    -- * Response-    , GetDeploymentInstanceResponse-    -- ** Response constructor+    -- * Destructuring the Response     , getDeploymentInstanceResponse-    -- ** Response lenses-    , gdirInstanceSummary+    , GetDeploymentInstanceResponse+    -- * Response Lenses+    , gdirsInstanceSummary+    , gdirsStatus     ) where -import Network.AWS.Data (Object)-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, Read, Show)+import           Network.AWS.CodeDeploy.Types+import           Network.AWS.CodeDeploy.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response --- | 'GetDeploymentInstance' constructor.+-- | Represents the input of a get deployment instance operation. ----- The fields accessible through corresponding lenses are:+-- /See:/ 'getDeploymentInstance' smart constructor.+data GetDeploymentInstance = GetDeploymentInstance'+    { _gdiDeploymentId :: !Text+    , _gdiInstanceId   :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'GetDeploymentInstance' with the minimum fields required to make a request. ----- * 'gdiDeploymentId' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'gdiInstanceId' @::@ 'Text'+-- * 'gdiDeploymentId' ---getDeploymentInstance :: Text -- ^ 'gdiDeploymentId'-                      -> Text -- ^ 'gdiInstanceId'-                      -> GetDeploymentInstance-getDeploymentInstance p1 p2 = GetDeploymentInstance-    { _gdiDeploymentId = p1-    , _gdiInstanceId   = p2+-- * 'gdiInstanceId'+getDeploymentInstance+    :: Text -- ^ 'gdiDeploymentId'+    -> Text -- ^ 'gdiInstanceId'+    -> GetDeploymentInstance+getDeploymentInstance pDeploymentId_ pInstanceId_ =+    GetDeploymentInstance'+    { _gdiDeploymentId = pDeploymentId_+    , _gdiInstanceId = pInstanceId_     }  -- | The unique ID of a deployment. gdiDeploymentId :: Lens' GetDeploymentInstance Text-gdiDeploymentId = lens _gdiDeploymentId (\s a -> s { _gdiDeploymentId = a })+gdiDeploymentId = lens _gdiDeploymentId (\ s a -> s{_gdiDeploymentId = a}); --- | The unique ID of an instance in the deployment's deployment group.+-- | The unique ID of an instance in the deployment\'s deployment group. gdiInstanceId :: Lens' GetDeploymentInstance Text-gdiInstanceId = lens _gdiInstanceId (\s a -> s { _gdiInstanceId = a })+gdiInstanceId = lens _gdiInstanceId (\ s a -> s{_gdiInstanceId = a}); -newtype GetDeploymentInstanceResponse = GetDeploymentInstanceResponse-    { _gdirInstanceSummary :: Maybe InstanceSummary-    } deriving (Eq, Read, Show)+instance AWSRequest GetDeploymentInstance where+        type Sv GetDeploymentInstance = CodeDeploy+        type Rs GetDeploymentInstance =+             GetDeploymentInstanceResponse+        request = postJSON+        response+          = receiveJSON+              (\ s h x ->+                 GetDeploymentInstanceResponse' <$>+                   (x .?> "instanceSummary") <*> (pure (fromEnum s))) --- | 'GetDeploymentInstanceResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'gdirInstanceSummary' @::@ 'Maybe' 'InstanceSummary'----getDeploymentInstanceResponse :: GetDeploymentInstanceResponse-getDeploymentInstanceResponse = GetDeploymentInstanceResponse-    { _gdirInstanceSummary = Nothing-    }+instance ToHeaders GetDeploymentInstance where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("CodeDeploy_20141006.GetDeploymentInstance" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)]) --- | Information about the instance.-gdirInstanceSummary :: Lens' GetDeploymentInstanceResponse (Maybe InstanceSummary)-gdirInstanceSummary =-    lens _gdirInstanceSummary (\s a -> s { _gdirInstanceSummary = a })+instance ToJSON GetDeploymentInstance where+        toJSON GetDeploymentInstance'{..}+          = object+              ["deploymentId" .= _gdiDeploymentId,+               "instanceId" .= _gdiInstanceId]  instance ToPath GetDeploymentInstance where-    toPath = const "/"+        toPath = const "/"  instance ToQuery GetDeploymentInstance where-    toQuery = const mempty--instance ToHeaders GetDeploymentInstance+        toQuery = const mempty -instance ToJSON GetDeploymentInstance where-    toJSON GetDeploymentInstance{..} = object-        [ "deploymentId" .= _gdiDeploymentId-        , "instanceId"   .= _gdiInstanceId-        ]+-- | Represents the output of a get deployment instance operation.+--+-- /See:/ 'getDeploymentInstanceResponse' smart constructor.+data GetDeploymentInstanceResponse = GetDeploymentInstanceResponse'+    { _gdirsInstanceSummary :: !(Maybe InstanceSummary)+    , _gdirsStatus          :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest GetDeploymentInstance where-    type Sv GetDeploymentInstance = CodeDeploy-    type Rs GetDeploymentInstance = GetDeploymentInstanceResponse+-- | Creates a value of 'GetDeploymentInstanceResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'gdirsInstanceSummary'+--+-- * 'gdirsStatus'+getDeploymentInstanceResponse+    :: Int -- ^ 'gdirsStatus'+    -> GetDeploymentInstanceResponse+getDeploymentInstanceResponse pStatus_ =+    GetDeploymentInstanceResponse'+    { _gdirsInstanceSummary = Nothing+    , _gdirsStatus = pStatus_+    } -    request  = post "GetDeploymentInstance"-    response = jsonResponse+-- | Information about the instance.+gdirsInstanceSummary :: Lens' GetDeploymentInstanceResponse (Maybe InstanceSummary)+gdirsInstanceSummary = lens _gdirsInstanceSummary (\ s a -> s{_gdirsInstanceSummary = a}); -instance FromJSON GetDeploymentInstanceResponse where-    parseJSON = withObject "GetDeploymentInstanceResponse" $ \o -> GetDeploymentInstanceResponse-        <$> o .:? "instanceSummary"+-- | The response status code.+gdirsStatus :: Lens' GetDeploymentInstanceResponse Int+gdirsStatus = lens _gdirsStatus (\ s a -> s{_gdirsStatus = a});

@@ -1,113 +1,131 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.CodeDeploy.GetOnPremisesInstance--- 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/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Gets information about an on-premises instance.+-- Gets information about an on-premises instance. ----- <http://docs.aws.amazon.com/codedeploy/latest/APIReference/API_GetOnPremisesInstance.html>+-- /See:/ <http://docs.aws.amazon.com/codedeploy/latest/APIReference/API_GetOnPremisesInstance.html AWS API Reference> for GetOnPremisesInstance. module Network.AWS.CodeDeploy.GetOnPremisesInstance     (-    -- * Request-      GetOnPremisesInstance-    -- ** Request constructor-    , getOnPremisesInstance-    -- ** Request lenses+    -- * Creating a Request+      getOnPremisesInstance+    , GetOnPremisesInstance+    -- * Request Lenses     , gopiInstanceName -    -- * Response-    , GetOnPremisesInstanceResponse-    -- ** Response constructor+    -- * Destructuring the Response     , getOnPremisesInstanceResponse-    -- ** Response lenses-    , gopirInstanceInfo+    , GetOnPremisesInstanceResponse+    -- * Response Lenses+    , gopirsInstanceInfo+    , gopirsStatus     ) where -import Network.AWS.Data (Object)-import Network.AWS.Prelude-import Network.AWS.Request.JSON-import Network.AWS.CodeDeploy.Types-import qualified GHC.Exts+import           Network.AWS.CodeDeploy.Types+import           Network.AWS.CodeDeploy.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response -newtype GetOnPremisesInstance = GetOnPremisesInstance+-- | Represents the input of a get on-premises instance operation.+--+-- /See:/ 'getOnPremisesInstance' smart constructor.+newtype GetOnPremisesInstance = GetOnPremisesInstance'     { _gopiInstanceName :: Text-    } deriving (Eq, Ord, Read, Show, Monoid, IsString)+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'GetOnPremisesInstance' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'GetOnPremisesInstance' with the minimum fields required to make a request. ----- * 'gopiInstanceName' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ---getOnPremisesInstance :: Text -- ^ 'gopiInstanceName'-                      -> GetOnPremisesInstance-getOnPremisesInstance p1 = GetOnPremisesInstance-    { _gopiInstanceName = p1+-- * 'gopiInstanceName'+getOnPremisesInstance+    :: Text -- ^ 'gopiInstanceName'+    -> GetOnPremisesInstance+getOnPremisesInstance pInstanceName_ =+    GetOnPremisesInstance'+    { _gopiInstanceName = pInstanceName_     }  -- | The name of the on-premises instance to get information about gopiInstanceName :: Lens' GetOnPremisesInstance Text-gopiInstanceName = lens _gopiInstanceName (\s a -> s { _gopiInstanceName = a })+gopiInstanceName = lens _gopiInstanceName (\ s a -> s{_gopiInstanceName = a}); -newtype GetOnPremisesInstanceResponse = GetOnPremisesInstanceResponse-    { _gopirInstanceInfo :: Maybe InstanceInfo-    } deriving (Eq, Read, Show)+instance AWSRequest GetOnPremisesInstance where+        type Sv GetOnPremisesInstance = CodeDeploy+        type Rs GetOnPremisesInstance =+             GetOnPremisesInstanceResponse+        request = postJSON+        response+          = receiveJSON+              (\ s h x ->+                 GetOnPremisesInstanceResponse' <$>+                   (x .?> "instanceInfo") <*> (pure (fromEnum s))) --- | 'GetOnPremisesInstanceResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'gopirInstanceInfo' @::@ 'Maybe' 'InstanceInfo'----getOnPremisesInstanceResponse :: GetOnPremisesInstanceResponse-getOnPremisesInstanceResponse = GetOnPremisesInstanceResponse-    { _gopirInstanceInfo = Nothing-    }+instance ToHeaders GetOnPremisesInstance where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("CodeDeploy_20141006.GetOnPremisesInstance" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)]) --- | Information about the on-premises instance.-gopirInstanceInfo :: Lens' GetOnPremisesInstanceResponse (Maybe InstanceInfo)-gopirInstanceInfo =-    lens _gopirInstanceInfo (\s a -> s { _gopirInstanceInfo = a })+instance ToJSON GetOnPremisesInstance where+        toJSON GetOnPremisesInstance'{..}+          = object ["instanceName" .= _gopiInstanceName]  instance ToPath GetOnPremisesInstance where-    toPath = const "/"+        toPath = const "/"  instance ToQuery GetOnPremisesInstance where-    toQuery = const mempty--instance ToHeaders GetOnPremisesInstance+        toQuery = const mempty -instance ToJSON GetOnPremisesInstance where-    toJSON GetOnPremisesInstance{..} = object-        [ "instanceName" .= _gopiInstanceName-        ]+-- | Represents the output of a get on-premises instance operation.+--+-- /See:/ 'getOnPremisesInstanceResponse' smart constructor.+data GetOnPremisesInstanceResponse = GetOnPremisesInstanceResponse'+    { _gopirsInstanceInfo :: !(Maybe InstanceInfo)+    , _gopirsStatus       :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest GetOnPremisesInstance where-    type Sv GetOnPremisesInstance = CodeDeploy-    type Rs GetOnPremisesInstance = GetOnPremisesInstanceResponse+-- | Creates a value of 'GetOnPremisesInstanceResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'gopirsInstanceInfo'+--+-- * 'gopirsStatus'+getOnPremisesInstanceResponse+    :: Int -- ^ 'gopirsStatus'+    -> GetOnPremisesInstanceResponse+getOnPremisesInstanceResponse pStatus_ =+    GetOnPremisesInstanceResponse'+    { _gopirsInstanceInfo = Nothing+    , _gopirsStatus = pStatus_+    } -    request  = post "GetOnPremisesInstance"-    response = jsonResponse+-- | Information about the on-premises instance.+gopirsInstanceInfo :: Lens' GetOnPremisesInstanceResponse (Maybe InstanceInfo)+gopirsInstanceInfo = lens _gopirsInstanceInfo (\ s a -> s{_gopirsInstanceInfo = a}); -instance FromJSON GetOnPremisesInstanceResponse where-    parseJSON = withObject "GetOnPremisesInstanceResponse" $ \o -> GetOnPremisesInstanceResponse-        <$> o .:? "instanceInfo"+-- | The response status code.+gopirsStatus :: Lens' GetOnPremisesInstanceResponse Int+gopirsStatus = lens _gopirsStatus (\ s a -> s{_gopirsStatus = a});

@@ -1,208 +1,236 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.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/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Lists information about revisions for an application.+-- Lists information about revisions for an application. ----- <http://docs.aws.amazon.com/codedeploy/latest/APIReference/API_ListApplicationRevisions.html>+-- /See:/ <http://docs.aws.amazon.com/codedeploy/latest/APIReference/API_ListApplicationRevisions.html AWS API Reference> for ListApplicationRevisions. module Network.AWS.CodeDeploy.ListApplicationRevisions     (-    -- * Request-      ListApplicationRevisions-    -- ** Request constructor-    , listApplicationRevisions-    -- ** Request lenses-    , larApplicationName+    -- * Creating a Request+      listApplicationRevisions+    , ListApplicationRevisions+    -- * Request Lenses+    , larS3KeyPrefix     , larDeployed     , larNextToken+    , larSortOrder     , larS3Bucket-    , larS3KeyPrefix     , larSortBy-    , larSortOrder+    , larApplicationName -    -- * Response-    , ListApplicationRevisionsResponse-    -- ** Response constructor+    -- * Destructuring the Response     , listApplicationRevisionsResponse-    -- ** Response lenses-    , larrNextToken-    , larrRevisions+    , ListApplicationRevisionsResponse+    -- * Response Lenses+    , larrsNextToken+    , larrsRevisions+    , larrsStatus     ) where -import Network.AWS.Data (Object)-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 ListStateFilterAction-    , _larNextToken       :: Maybe Text-    , _larS3Bucket        :: Maybe Text-    , _larS3KeyPrefix     :: Maybe Text-    , _larSortBy          :: Maybe ApplicationRevisionSortBy-    , _larSortOrder       :: Maybe SortOrder-    } deriving (Eq, Read, Show)+import           Network.AWS.CodeDeploy.Types+import           Network.AWS.CodeDeploy.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response --- | 'ListApplicationRevisions' constructor.+-- | Represents the input of a list application revisions operation. ----- The fields accessible through corresponding lenses are:+-- /See:/ 'listApplicationRevisions' smart constructor.+data ListApplicationRevisions = ListApplicationRevisions'+    { _larS3KeyPrefix     :: !(Maybe Text)+    , _larDeployed        :: !(Maybe ListStateFilterAction)+    , _larNextToken       :: !(Maybe Text)+    , _larSortOrder       :: !(Maybe SortOrder)+    , _larS3Bucket        :: !(Maybe Text)+    , _larSortBy          :: !(Maybe ApplicationRevisionSortBy)+    , _larApplicationName :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'ListApplicationRevisions' with the minimum fields required to make a request. ----- * 'larApplicationName' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'larDeployed' @::@ 'Maybe' 'ListStateFilterAction'+-- * 'larS3KeyPrefix' ----- * 'larNextToken' @::@ 'Maybe' 'Text'+-- * 'larDeployed' ----- * 'larS3Bucket' @::@ 'Maybe' 'Text'+-- * 'larNextToken' ----- * 'larS3KeyPrefix' @::@ 'Maybe' 'Text'+-- * 'larSortOrder' ----- * 'larSortBy' @::@ 'Maybe' 'ApplicationRevisionSortBy'+-- * 'larS3Bucket' ----- * 'larSortOrder' @::@ 'Maybe' 'SortOrder'+-- * 'larSortBy' ---listApplicationRevisions :: Text -- ^ 'larApplicationName'-                         -> ListApplicationRevisions-listApplicationRevisions p1 = ListApplicationRevisions-    { _larApplicationName = p1-    , _larSortBy          = Nothing-    , _larSortOrder       = Nothing-    , _larS3Bucket        = Nothing-    , _larS3KeyPrefix     = Nothing-    , _larDeployed        = Nothing-    , _larNextToken       = Nothing+-- * 'larApplicationName'+listApplicationRevisions+    :: Text -- ^ 'larApplicationName'+    -> ListApplicationRevisions+listApplicationRevisions pApplicationName_ =+    ListApplicationRevisions'+    { _larS3KeyPrefix = Nothing+    , _larDeployed = Nothing+    , _larNextToken = Nothing+    , _larSortOrder = Nothing+    , _larS3Bucket = Nothing+    , _larSortBy = Nothing+    , _larApplicationName = pApplicationName_     } --- | The name of an existing AWS CodeDeploy application associated with the--- applicable IAM user or AWS account.-larApplicationName :: Lens' ListApplicationRevisions Text-larApplicationName =-    lens _larApplicationName (\s a -> s { _larApplicationName = 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});  -- | 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.+-- -   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 ListStateFilterAction)-larDeployed = lens _larDeployed (\s a -> s { _larDeployed = a })+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.+-- | 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 })+larNextToken = lens _larNextToken (\ s a -> s{_larNextToken = a}); +-- | The order to sort the list results by:+--+-- -   ascending: Sort the list of results in ascending order.+-- -   descending: Sort the list of 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 SortOrder)+larSortOrder = lens _larSortOrder (\ s a -> s{_larSortOrder = 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.+-- 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 })+larS3Bucket = lens _larS3Bucket (\ s a -> s{_larS3Bucket = 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.+-- -   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 ApplicationRevisionSortBy)-larSortBy = lens _larSortBy (\s a -> s { _larSortBy = a })+larSortBy = lens _larSortBy (\ s a -> s{_larSortBy = a}); --- | The order to sort the list results by:------ ascending: Sort the list of results in ascending order. descending: Sort--- the list of 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 SortOrder)-larSortOrder = lens _larSortOrder (\s a -> s { _larSortOrder = a })+-- | The name of an existing AWS CodeDeploy application associated with the+-- applicable IAM user or AWS account.+larApplicationName :: Lens' ListApplicationRevisions Text+larApplicationName = lens _larApplicationName (\ s a -> s{_larApplicationName = a}); -data ListApplicationRevisionsResponse = ListApplicationRevisionsResponse-    { _larrNextToken :: Maybe Text-    , _larrRevisions :: List "revisions" RevisionLocation-    } deriving (Eq, Read, Show)+instance AWSRequest ListApplicationRevisions where+        type Sv ListApplicationRevisions = CodeDeploy+        type Rs ListApplicationRevisions =+             ListApplicationRevisionsResponse+        request = postJSON+        response+          = receiveJSON+              (\ s h x ->+                 ListApplicationRevisionsResponse' <$>+                   (x .?> "nextToken") <*>+                     (x .?> "revisions" .!@ mempty)+                     <*> (pure (fromEnum s))) --- | 'ListApplicationRevisionsResponse' constructor.+instance ToHeaders ListApplicationRevisions where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("CodeDeploy_20141006.ListApplicationRevisions" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON ListApplicationRevisions where+        toJSON ListApplicationRevisions'{..}+          = object+              ["s3KeyPrefix" .= _larS3KeyPrefix,+               "deployed" .= _larDeployed,+               "nextToken" .= _larNextToken,+               "sortOrder" .= _larSortOrder,+               "s3Bucket" .= _larS3Bucket, "sortBy" .= _larSortBy,+               "applicationName" .= _larApplicationName]++instance ToPath ListApplicationRevisions where+        toPath = const "/"++instance ToQuery ListApplicationRevisions where+        toQuery = const mempty++-- | Represents the output of a list application revisions operation. ----- The fields accessible through corresponding lenses are:+-- /See:/ 'listApplicationRevisionsResponse' smart constructor.+data ListApplicationRevisionsResponse = ListApplicationRevisionsResponse'+    { _larrsNextToken :: !(Maybe Text)+    , _larrsRevisions :: !(Maybe [RevisionLocation])+    , _larrsStatus    :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'ListApplicationRevisionsResponse' with the minimum fields required to make a request. ----- * 'larrNextToken' @::@ 'Maybe' 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'larrRevisions' @::@ ['RevisionLocation']+-- * 'larrsNextToken' ---listApplicationRevisionsResponse :: ListApplicationRevisionsResponse-listApplicationRevisionsResponse = ListApplicationRevisionsResponse-    { _larrRevisions = mempty-    , _larrNextToken = Nothing+-- * 'larrsRevisions'+--+-- * 'larrsStatus'+listApplicationRevisionsResponse+    :: Int -- ^ 'larrsStatus'+    -> ListApplicationRevisionsResponse+listApplicationRevisionsResponse pStatus_ =+    ListApplicationRevisionsResponse'+    { _larrsNextToken = Nothing+    , _larrsRevisions = Nothing+    , _larrsStatus = pStatus_     }  -- | 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 })+-- application revisions call to return the next set of application+-- revisions in the list.+larrsNextToken :: Lens' ListApplicationRevisionsResponse (Maybe Text)+larrsNextToken = lens _larrsNextToken (\ s a -> s{_larrsNextToken = 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+larrsRevisions :: Lens' ListApplicationRevisionsResponse [RevisionLocation]+larrsRevisions = lens _larrsRevisions (\ s a -> s{_larrsRevisions = a}) . _Default . _Coerce; -instance FromJSON ListApplicationRevisionsResponse where-    parseJSON = withObject "ListApplicationRevisionsResponse" $ \o -> ListApplicationRevisionsResponse-        <$> o .:? "nextToken"-        <*> o .:? "revisions" .!= mempty+-- | The response status code.+larrsStatus :: Lens' ListApplicationRevisionsResponse Int+larrsStatus = lens _larrsStatus (\ s a -> s{_larrsStatus = a});

@@ -1,124 +1,145 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.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/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Lists the applications registered with the applicable IAM user or AWS account.+-- Lists the applications registered with the applicable IAM user or AWS+-- account. ----- <http://docs.aws.amazon.com/codedeploy/latest/APIReference/API_ListApplications.html>+-- /See:/ <http://docs.aws.amazon.com/codedeploy/latest/APIReference/API_ListApplications.html AWS API Reference> for ListApplications. module Network.AWS.CodeDeploy.ListApplications     (-    -- * Request-      ListApplications-    -- ** Request constructor-    , listApplications-    -- ** Request lenses+    -- * Creating a Request+      listApplications+    , ListApplications+    -- * Request Lenses     , laNextToken -    -- * Response-    , ListApplicationsResponse-    -- ** Response constructor+    -- * Destructuring the Response     , listApplicationsResponse-    -- ** Response lenses-    , lar1Applications-    , lar1NextToken+    , ListApplicationsResponse+    -- * Response Lenses+    , larsNextToken+    , larsApplications+    , larsStatus     ) where -import Network.AWS.Data (Object)-import Network.AWS.Prelude-import Network.AWS.Request.JSON-import Network.AWS.CodeDeploy.Types-import qualified GHC.Exts+import           Network.AWS.CodeDeploy.Types+import           Network.AWS.CodeDeploy.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response -newtype ListApplications = ListApplications+-- | Represents the input of a list applications operation.+--+-- /See:/ 'listApplications' smart constructor.+newtype ListApplications = ListApplications'     { _laNextToken :: Maybe Text-    } deriving (Eq, Ord, Read, Show, Monoid)+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'ListApplications' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'ListApplications' with the minimum fields required to make a request. ----- * 'laNextToken' @::@ 'Maybe' 'Text'+-- Use one of the following lenses to modify other fields as desired: ---listApplications :: ListApplications-listApplications = ListApplications+-- * 'laNextToken'+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.+-- | 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 })+laNextToken = lens _laNextToken (\ s a -> s{_laNextToken = a}); -data ListApplicationsResponse = ListApplicationsResponse-    { _lar1Applications :: List "applications" Text-    , _lar1NextToken    :: Maybe Text-    } deriving (Eq, Ord, Read, Show)+instance AWSRequest ListApplications where+        type Sv ListApplications = CodeDeploy+        type Rs ListApplications = ListApplicationsResponse+        request = postJSON+        response+          = receiveJSON+              (\ s h x ->+                 ListApplicationsResponse' <$>+                   (x .?> "nextToken") <*>+                     (x .?> "applications" .!@ mempty)+                     <*> (pure (fromEnum s))) --- | 'ListApplicationsResponse' constructor.+instance ToHeaders ListApplications where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("CodeDeploy_20141006.ListApplications" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON ListApplications where+        toJSON ListApplications'{..}+          = object ["nextToken" .= _laNextToken]++instance ToPath ListApplications where+        toPath = const "/"++instance ToQuery ListApplications where+        toQuery = const mempty++-- | Represents the output of a list applications operation. ----- The fields accessible through corresponding lenses are:+-- /See:/ 'listApplicationsResponse' smart constructor.+data ListApplicationsResponse = ListApplicationsResponse'+    { _larsNextToken    :: !(Maybe Text)+    , _larsApplications :: !(Maybe [Text])+    , _larsStatus       :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'ListApplicationsResponse' with the minimum fields required to make a request. ----- * 'lar1Applications' @::@ ['Text']+-- Use one of the following lenses to modify other fields as desired: ----- * 'lar1NextToken' @::@ 'Maybe' 'Text'+-- * 'larsNextToken' ---listApplicationsResponse :: ListApplicationsResponse-listApplicationsResponse = ListApplicationsResponse-    { _lar1Applications = mempty-    , _lar1NextToken    = Nothing+-- * 'larsApplications'+--+-- * 'larsStatus'+listApplicationsResponse+    :: Int -- ^ 'larsStatus'+    -> ListApplicationsResponse+listApplicationsResponse pStatus_ =+    ListApplicationsResponse'+    { _larsNextToken = Nothing+    , _larsApplications = Nothing+    , _larsStatus = pStatus_     } --- | 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+larsNextToken :: Lens' ListApplicationsResponse (Maybe Text)+larsNextToken = lens _larsNextToken (\ s a -> s{_larsNextToken = a}); -    request  = post "ListApplications"-    response = jsonResponse+-- | A list of application names.+larsApplications :: Lens' ListApplicationsResponse [Text]+larsApplications = lens _larsApplications (\ s a -> s{_larsApplications = a}) . _Default . _Coerce; -instance FromJSON ListApplicationsResponse where-    parseJSON = withObject "ListApplicationsResponse" $ \o -> ListApplicationsResponse-        <$> o .:? "applications" .!= mempty-        <*> o .:? "nextToken"+-- | The response status code.+larsStatus :: Lens' ListApplicationsResponse Int+larsStatus = lens _larsStatus (\ s a -> s{_larsStatus = a});

@@ -1,131 +1,148 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.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/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Lists the deployment configurations with the applicable IAM user or AWS+-- Lists the deployment configurations with the applicable IAM user or AWS -- account. ----- <http://docs.aws.amazon.com/codedeploy/latest/APIReference/API_ListDeploymentConfigs.html>+-- /See:/ <http://docs.aws.amazon.com/codedeploy/latest/APIReference/API_ListDeploymentConfigs.html AWS API Reference> for ListDeploymentConfigs. module Network.AWS.CodeDeploy.ListDeploymentConfigs     (-    -- * Request-      ListDeploymentConfigs-    -- ** Request constructor-    , listDeploymentConfigs-    -- ** Request lenses+    -- * Creating a Request+      listDeploymentConfigs+    , ListDeploymentConfigs+    -- * Request Lenses     , ldcNextToken -    -- * Response-    , ListDeploymentConfigsResponse-    -- ** Response constructor+    -- * Destructuring the Response     , listDeploymentConfigsResponse-    -- ** Response lenses-    , ldcrDeploymentConfigsList-    , ldcrNextToken+    , ListDeploymentConfigsResponse+    -- * Response Lenses+    , ldcrsNextToken+    , ldcrsDeploymentConfigsList+    , ldcrsStatus     ) where -import Network.AWS.Data (Object)-import Network.AWS.Prelude-import Network.AWS.Request.JSON-import Network.AWS.CodeDeploy.Types-import qualified GHC.Exts+import           Network.AWS.CodeDeploy.Types+import           Network.AWS.CodeDeploy.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response -newtype ListDeploymentConfigs = ListDeploymentConfigs+-- | Represents the input of a list deployment configurations operation.+--+-- /See:/ 'listDeploymentConfigs' smart constructor.+newtype ListDeploymentConfigs = ListDeploymentConfigs'     { _ldcNextToken :: Maybe Text-    } deriving (Eq, Ord, Read, Show, Monoid)+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'ListDeploymentConfigs' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'ListDeploymentConfigs' with the minimum fields required to make a request. ----- * 'ldcNextToken' @::@ 'Maybe' 'Text'+-- Use one of the following lenses to modify other fields as desired: ---listDeploymentConfigs :: ListDeploymentConfigs-listDeploymentConfigs = ListDeploymentConfigs+-- * 'ldcNextToken'+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.+-- 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 })+ldcNextToken = lens _ldcNextToken (\ s a -> s{_ldcNextToken = a}); -data ListDeploymentConfigsResponse = ListDeploymentConfigsResponse-    { _ldcrDeploymentConfigsList :: List "deploymentConfigsList" Text-    , _ldcrNextToken             :: Maybe Text-    } deriving (Eq, Ord, Read, Show)+instance AWSRequest ListDeploymentConfigs where+        type Sv ListDeploymentConfigs = CodeDeploy+        type Rs ListDeploymentConfigs =+             ListDeploymentConfigsResponse+        request = postJSON+        response+          = receiveJSON+              (\ s h x ->+                 ListDeploymentConfigsResponse' <$>+                   (x .?> "nextToken") <*>+                     (x .?> "deploymentConfigsList" .!@ mempty)+                     <*> (pure (fromEnum s))) --- | 'ListDeploymentConfigsResponse' constructor.+instance ToHeaders ListDeploymentConfigs where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("CodeDeploy_20141006.ListDeploymentConfigs" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON ListDeploymentConfigs where+        toJSON ListDeploymentConfigs'{..}+          = object ["nextToken" .= _ldcNextToken]++instance ToPath ListDeploymentConfigs where+        toPath = const "/"++instance ToQuery ListDeploymentConfigs where+        toQuery = const mempty++-- | Represents the output of a list deployment configurations operation. ----- The fields accessible through corresponding lenses are:+-- /See:/ 'listDeploymentConfigsResponse' smart constructor.+data ListDeploymentConfigsResponse = ListDeploymentConfigsResponse'+    { _ldcrsNextToken             :: !(Maybe Text)+    , _ldcrsDeploymentConfigsList :: !(Maybe [Text])+    , _ldcrsStatus                :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'ListDeploymentConfigsResponse' with the minimum fields required to make a request. ----- * 'ldcrDeploymentConfigsList' @::@ ['Text']+-- Use one of the following lenses to modify other fields as desired: ----- * 'ldcrNextToken' @::@ 'Maybe' 'Text'+-- * 'ldcrsNextToken' ---listDeploymentConfigsResponse :: ListDeploymentConfigsResponse-listDeploymentConfigsResponse = ListDeploymentConfigsResponse-    { _ldcrDeploymentConfigsList = mempty-    , _ldcrNextToken             = Nothing+-- * 'ldcrsDeploymentConfigsList'+--+-- * 'ldcrsStatus'+listDeploymentConfigsResponse+    :: Int -- ^ 'ldcrsStatus'+    -> ListDeploymentConfigsResponse+listDeploymentConfigsResponse pStatus_ =+    ListDeploymentConfigsResponse'+    { _ldcrsNextToken = Nothing+    , _ldcrsDeploymentConfigsList = Nothing+    , _ldcrsStatus = pStatus_     } --- | 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+ldcrsNextToken :: Lens' ListDeploymentConfigsResponse (Maybe Text)+ldcrsNextToken = lens _ldcrsNextToken (\ s a -> s{_ldcrsNextToken = a}); -    request  = post "ListDeploymentConfigs"-    response = jsonResponse+-- | A list of deployment configurations, including the built-in+-- configurations such as CodeDeployDefault.OneAtATime.+ldcrsDeploymentConfigsList :: Lens' ListDeploymentConfigsResponse [Text]+ldcrsDeploymentConfigsList = lens _ldcrsDeploymentConfigsList (\ s a -> s{_ldcrsDeploymentConfigsList = a}) . _Default . _Coerce; -instance FromJSON ListDeploymentConfigsResponse where-    parseJSON = withObject "ListDeploymentConfigsResponse" $ \o -> ListDeploymentConfigsResponse-        <$> o .:? "deploymentConfigsList" .!= mempty-        <*> o .:? "nextToken"+-- | The response status code.+ldcrsStatus :: Lens' ListDeploymentConfigsResponse Int+ldcrsStatus = lens _ldcrsStatus (\ s a -> s{_ldcrsStatus = a});

@@ -1,153 +1,169 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.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/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Lists the deployment groups for an application registered with the applicable--- IAM user or AWS account.+-- Lists the deployment groups for an application registered with the+-- applicable IAM user or AWS account. ----- <http://docs.aws.amazon.com/codedeploy/latest/APIReference/API_ListDeploymentGroups.html>+-- /See:/ <http://docs.aws.amazon.com/codedeploy/latest/APIReference/API_ListDeploymentGroups.html AWS API Reference> for ListDeploymentGroups. module Network.AWS.CodeDeploy.ListDeploymentGroups     (-    -- * Request-      ListDeploymentGroups-    -- ** Request constructor-    , listDeploymentGroups-    -- ** Request lenses-    , ldgApplicationName+    -- * Creating a Request+      listDeploymentGroups+    , ListDeploymentGroups+    -- * Request Lenses     , ldgNextToken+    , ldgApplicationName -    -- * Response-    , ListDeploymentGroupsResponse-    -- ** Response constructor+    -- * Destructuring the Response     , listDeploymentGroupsResponse-    -- ** Response lenses-    , ldgrApplicationName-    , ldgrDeploymentGroups-    , ldgrNextToken+    , ListDeploymentGroupsResponse+    -- * Response Lenses+    , ldgrsNextToken+    , ldgrsApplicationName+    , ldgrsDeploymentGroups+    , ldgrsStatus     ) where -import Network.AWS.Data (Object)-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, Read, Show)+import           Network.AWS.CodeDeploy.Types+import           Network.AWS.CodeDeploy.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response --- | 'ListDeploymentGroups' constructor.+-- | Represents the input of a list deployment groups operation. ----- The fields accessible through corresponding lenses are:+-- /See:/ 'listDeploymentGroups' smart constructor.+data ListDeploymentGroups = ListDeploymentGroups'+    { _ldgNextToken       :: !(Maybe Text)+    , _ldgApplicationName :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'ListDeploymentGroups' with the minimum fields required to make a request. ----- * 'ldgApplicationName' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'ldgNextToken' @::@ 'Maybe' 'Text'+-- * 'ldgNextToken' ---listDeploymentGroups :: Text -- ^ 'ldgApplicationName'-                     -> ListDeploymentGroups-listDeploymentGroups p1 = ListDeploymentGroups-    { _ldgApplicationName = p1-    , _ldgNextToken       = Nothing+-- * 'ldgApplicationName'+listDeploymentGroups+    :: Text -- ^ 'ldgApplicationName'+    -> ListDeploymentGroups+listDeploymentGroups pApplicationName_ =+    ListDeploymentGroups'+    { _ldgNextToken = Nothing+    , _ldgApplicationName = pApplicationName_     } +-- | 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});+ -- | The name of an existing AWS CodeDeploy application associated with the -- applicable IAM user or AWS account. ldgApplicationName :: Lens' ListDeploymentGroups Text-ldgApplicationName =-    lens _ldgApplicationName (\s a -> s { _ldgApplicationName = a })+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 })+instance AWSRequest ListDeploymentGroups where+        type Sv ListDeploymentGroups = CodeDeploy+        type Rs ListDeploymentGroups =+             ListDeploymentGroupsResponse+        request = postJSON+        response+          = receiveJSON+              (\ s h x ->+                 ListDeploymentGroupsResponse' <$>+                   (x .?> "nextToken") <*> (x .?> "applicationName") <*>+                     (x .?> "deploymentGroups" .!@ mempty)+                     <*> (pure (fromEnum s))) -data ListDeploymentGroupsResponse = ListDeploymentGroupsResponse-    { _ldgrApplicationName  :: Maybe Text-    , _ldgrDeploymentGroups :: List "deploymentGroups" Text-    , _ldgrNextToken        :: Maybe Text-    } deriving (Eq, Ord, Read, Show)+instance ToHeaders ListDeploymentGroups where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("CodeDeploy_20141006.ListDeploymentGroups" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)]) --- | 'ListDeploymentGroupsResponse' constructor.+instance ToJSON ListDeploymentGroups where+        toJSON ListDeploymentGroups'{..}+          = object+              ["nextToken" .= _ldgNextToken,+               "applicationName" .= _ldgApplicationName]++instance ToPath ListDeploymentGroups where+        toPath = const "/"++instance ToQuery ListDeploymentGroups where+        toQuery = const mempty++-- | Represents the output of a list deployment groups operation. ----- The fields accessible through corresponding lenses are:+-- /See:/ 'listDeploymentGroupsResponse' smart constructor.+data ListDeploymentGroupsResponse = ListDeploymentGroupsResponse'+    { _ldgrsNextToken        :: !(Maybe Text)+    , _ldgrsApplicationName  :: !(Maybe Text)+    , _ldgrsDeploymentGroups :: !(Maybe [Text])+    , _ldgrsStatus           :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'ListDeploymentGroupsResponse' with the minimum fields required to make a request. ----- * 'ldgrApplicationName' @::@ 'Maybe' 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'ldgrDeploymentGroups' @::@ ['Text']+-- * 'ldgrsNextToken' ----- * 'ldgrNextToken' @::@ 'Maybe' 'Text'+-- * 'ldgrsApplicationName' ---listDeploymentGroupsResponse :: ListDeploymentGroupsResponse-listDeploymentGroupsResponse = ListDeploymentGroupsResponse-    { _ldgrApplicationName  = Nothing-    , _ldgrDeploymentGroups = mempty-    , _ldgrNextToken        = Nothing+-- * 'ldgrsDeploymentGroups'+--+-- * 'ldgrsStatus'+listDeploymentGroupsResponse+    :: Int -- ^ 'ldgrsStatus'+    -> ListDeploymentGroupsResponse+listDeploymentGroupsResponse pStatus_ =+    ListDeploymentGroupsResponse'+    { _ldgrsNextToken = Nothing+    , _ldgrsApplicationName = Nothing+    , _ldgrsDeploymentGroups = Nothing+    , _ldgrsStatus = pStatus_     } --- | 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-        ]+-- deployment groups call to return the next set of deployment groups in+-- the list.+ldgrsNextToken :: Lens' ListDeploymentGroupsResponse (Maybe Text)+ldgrsNextToken = lens _ldgrsNextToken (\ s a -> s{_ldgrsNextToken = a}); -instance AWSRequest ListDeploymentGroups where-    type Sv ListDeploymentGroups = CodeDeploy-    type Rs ListDeploymentGroups = ListDeploymentGroupsResponse+-- | The application name.+ldgrsApplicationName :: Lens' ListDeploymentGroupsResponse (Maybe Text)+ldgrsApplicationName = lens _ldgrsApplicationName (\ s a -> s{_ldgrsApplicationName = a}); -    request  = post "ListDeploymentGroups"-    response = jsonResponse+-- | A list of corresponding deployment group names.+ldgrsDeploymentGroups :: Lens' ListDeploymentGroupsResponse [Text]+ldgrsDeploymentGroups = lens _ldgrsDeploymentGroups (\ s a -> s{_ldgrsDeploymentGroups = a}) . _Default . _Coerce; -instance FromJSON ListDeploymentGroupsResponse where-    parseJSON = withObject "ListDeploymentGroupsResponse" $ \o -> ListDeploymentGroupsResponse-        <$> o .:? "applicationName"-        <*> o .:? "deploymentGroups" .!= mempty-        <*> o .:? "nextToken"+-- | The response status code.+ldgrsStatus :: Lens' ListDeploymentGroupsResponse Int+ldgrsStatus = lens _ldgrsStatus (\ s a -> s{_ldgrsStatus = a});