amazonka-codebuild 1.4.5 → 1.5.0

raw patch · 29 files changed

+1564/−810 lines, 29 filesdep ~amazonka-codebuilddep ~amazonka-coredep ~amazonka-testPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: amazonka-codebuild, amazonka-core, amazonka-test

API changes (from Hackage documentation)

Files

• README.md +1/−1
• amazonka-codebuild.cabal +19/−11
• fixture/BatchDeleteBuilds.yaml +10/−0
• fixture/BatchDeleteBuildsResponse.proto +0/−0
• fixture/CreateWebhook.yaml +10/−0
• fixture/CreateWebhookResponse.proto +0/−0
• fixture/DeleteWebhook.yaml +10/−0
• fixture/DeleteWebhookResponse.proto +0/−0
• gen/Network/AWS/CodeBuild.hs +57/−19
• gen/Network/AWS/CodeBuild/BatchDeleteBuilds.hs +144/−0
• gen/Network/AWS/CodeBuild/BatchGetBuilds.hs +30/−29
• gen/Network/AWS/CodeBuild/BatchGetProjects.hs +30/−29
• gen/Network/AWS/CodeBuild/CreateProject.hs +57/−55
• gen/Network/AWS/CodeBuild/CreateWebhook.hs +133/−0
• gen/Network/AWS/CodeBuild/DeleteProject.hs +23/−24
• gen/Network/AWS/CodeBuild/DeleteWebhook.hs +121/−0
• gen/Network/AWS/CodeBuild/ListBuilds.hs +38/−28
• gen/Network/AWS/CodeBuild/ListBuildsForProject.hs +45/−31
• gen/Network/AWS/CodeBuild/ListCuratedEnvironmentImages.hs +22/−19
• gen/Network/AWS/CodeBuild/ListProjects.hs +40/−29
• gen/Network/AWS/CodeBuild/StartBuild.hs +45/−43
• gen/Network/AWS/CodeBuild/StopBuild.hs +27/−28
• gen/Network/AWS/CodeBuild/Types.hs +61/−29
• gen/Network/AWS/CodeBuild/Types/Product.hs +404/−303
• gen/Network/AWS/CodeBuild/Types/Sum.hs +115/−66
• gen/Network/AWS/CodeBuild/UpdateProject.hs +56/−54
• gen/Network/AWS/CodeBuild/Waiters.hs +6/−6
• test/Main.hs +2/−2
• test/Test/AWS/Gen/CodeBuild.hs +58/−4

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

@@ -1,13 +1,13 @@ name:                  amazonka-codebuild-version:               1.4.5+version:               1.5.0 synopsis:              Amazon CodeBuild SDK. homepage:              https://github.com/brendanhay/amazonka bug-reports:           https://github.com/brendanhay/amazonka/issues-license:               OtherLicense+license:               MPL-2.0 license-file:          LICENSE author:                Brendan Hay-maintainer:            Brendan Hay <brendan.g.hay@gmail.com>-copyright:             Copyright (c) 2013-2016 Brendan Hay+maintainer:            Brendan Hay <brendan.g.hay+amazonka@gmail.com>+copyright:             Copyright (c) 2013-2017 Brendan Hay category:              Network, AWS, Cloud, Distributed Computing build-type:            Simple cabal-version:         >= 1.10@@ -29,21 +29,29 @@     to get started.  source-repository head-    type:     git-    location: git://github.com/brendanhay/amazonka.git+    type:              git+    location:          git://github.com/brendanhay/amazonka.git+    subdir:            amazonka-codebuild  library     default-language:  Haskell2010     hs-source-dirs:    src gen -    ghc-options:       -Wall+    ghc-options:+        -Wall+        -fwarn-incomplete-uni-patterns+        -fwarn-incomplete-record-updates+        -funbox-strict-fields      exposed-modules:           Network.AWS.CodeBuild+        , Network.AWS.CodeBuild.BatchDeleteBuilds         , Network.AWS.CodeBuild.BatchGetBuilds         , Network.AWS.CodeBuild.BatchGetProjects         , Network.AWS.CodeBuild.CreateProject+        , Network.AWS.CodeBuild.CreateWebhook         , Network.AWS.CodeBuild.DeleteProject+        , Network.AWS.CodeBuild.DeleteWebhook         , Network.AWS.CodeBuild.ListBuilds         , Network.AWS.CodeBuild.ListBuildsForProject         , Network.AWS.CodeBuild.ListCuratedEnvironmentImages@@ -59,7 +67,7 @@         , Network.AWS.CodeBuild.Types.Sum      build-depends:-          amazonka-core == 1.4.5.*+          amazonka-core == 1.5.0.*         , base          >= 4.7     && < 5  test-suite amazonka-codebuild-test@@ -79,9 +87,9 @@         , Test.AWS.CodeBuild.Internal      build-depends:-          amazonka-core == 1.4.5.*-        , amazonka-test == 1.4.5.*-        , amazonka-codebuild == 1.4.5.*+          amazonka-core == 1.5.0.*+        , amazonka-test == 1.5.0.*+        , amazonka-codebuild         , base         , bytestring         , tasty

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

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

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

@@ -5,24 +5,30 @@  -- | -- Module      : Network.AWS.CodeBuild--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) -- -- __AWS CodeBuild__ ----- AWS CodeBuild is a fully-managed build service in the cloud. AWS CodeBuild compiles your source code, runs unit tests, and produces artifacts that are ready to deploy. AWS CodeBuild eliminates the need to provision, manage, and scale your own build servers. It provides prepackaged build environments for the most popular programming languages and build tools such as Apach Maven, Gradle, and more. You can also fully customize build environments in AWS CodeBuild to use your own build tools. AWS CodeBuild scales automatically to meet peak build requests, and you pay only for the build time you consume. For more information about AWS CodeBuild, see the /AWS CodeBuild User Guide/ .+-- AWS CodeBuild is a fully managed build service in the cloud. AWS CodeBuild compiles your source code, runs unit tests, and produces artifacts that are ready to deploy. AWS CodeBuild eliminates the need to provision, manage, and scale your own build servers. It provides prepackaged build environments for the most popular programming languages and build tools, such as Apache Maven, Gradle, and more. You can also fully customize build environments in AWS CodeBuild to use your own build tools. AWS CodeBuild scales automatically to meet peak build requests, and you pay only for the build time you consume. For more information about AWS CodeBuild, see the /AWS CodeBuild User Guide/ . -- -- AWS CodeBuild supports these operations: --+--     * @BatchDeleteBuilds@ : Deletes one or more builds.+-- --     * @BatchGetProjects@ : Gets information about one or more build projects. A /build project/ defines how AWS CodeBuild will run a build. This includes information such as where to get the source code to build, the build environment to use, the build commands to run, and where to store the build output. A /build environment/ represents a combination of operating system, programming language runtime, and tools that AWS CodeBuild will use to run a build. Also, you can add tags to build projects to help manage your resources and costs. -- --     * @CreateProject@ : Creates a build project. --+--     * @CreateWebhook@ : For an existing AWS CodeBuild build project that has its source code stored in a GitHub repository, enables AWS CodeBuild to begin automatically rebuilding the source code every time a code change is pushed to the repository.+-- --     * @DeleteProject@ : Deletes a build project. --+--     * @DeleteWebhook@ : For an existing AWS CodeBuild build project that has its source code stored in a GitHub repository, stops AWS CodeBuild from automatically rebuilding the source code every time a code change is pushed to the repository.+-- --     * @ListProjects@ : Gets a list of build project names, with each build project name representing a single build project. -- --     * @UpdateProject@ : Changes the settings of an existing build project.@@ -52,6 +58,9 @@     -- ** ResourceAlreadyExistsException     , _ResourceAlreadyExistsException +    -- ** OAuthProviderException+    , _OAuthProviderException+     -- ** AccountLimitExceededException     , _AccountLimitExceededException @@ -67,7 +76,7 @@     -- * Operations     -- $operations -    -- ** ListProjects+    -- ** ListProjects (Paginated)     , module Network.AWS.CodeBuild.ListProjects      -- ** DeleteProject@@ -76,13 +85,16 @@     -- ** UpdateProject     , module Network.AWS.CodeBuild.UpdateProject -    -- ** ListBuilds+    -- ** ListBuilds (Paginated)     , module Network.AWS.CodeBuild.ListBuilds +    -- ** CreateWebhook+    , module Network.AWS.CodeBuild.CreateWebhook+     -- ** StartBuild     , module Network.AWS.CodeBuild.StartBuild -    -- ** ListBuildsForProject+    -- ** ListBuildsForProject (Paginated)     , module Network.AWS.CodeBuild.ListBuildsForProject      -- ** BatchGetProjects@@ -91,6 +103,12 @@     -- ** BatchGetBuilds     , module Network.AWS.CodeBuild.BatchGetBuilds +    -- ** DeleteWebhook+    , module Network.AWS.CodeBuild.DeleteWebhook++    -- ** BatchDeleteBuilds+    , module Network.AWS.CodeBuild.BatchDeleteBuilds+     -- ** ListCuratedEnvironmentImages     , module Network.AWS.CodeBuild.ListCuratedEnvironmentImages @@ -120,6 +138,9 @@     -- ** EnvironmentType     , EnvironmentType (..) +    -- ** EnvironmentVariableType+    , EnvironmentVariableType (..)+     -- ** LanguageType     , LanguageType (..) @@ -168,6 +189,12 @@     , baMd5sum     , baSha256sum +    -- ** BuildNotDeleted+    , BuildNotDeleted+    , buildNotDeleted+    , bndId+    , bndStatusCode+     -- ** BuildPhase     , BuildPhase     , buildPhase@@ -199,6 +226,7 @@     -- ** EnvironmentVariable     , EnvironmentVariable     , environmentVariable+    , evType     , evName     , evValue @@ -226,6 +254,7 @@     , pSource     , pEncryptionKey     , pLastModified+    , pWebhook     , pDescription     , pServiceRole     , pTags@@ -244,6 +273,7 @@     -- ** ProjectEnvironment     , ProjectEnvironment     , projectEnvironment+    , pePrivilegedMode     , peEnvironmentVariables     , peType     , peImage@@ -268,21 +298,29 @@     , tag     , tagValue     , tagKey++    -- ** Webhook+    , Webhook+    , webhook+    , wUrl     ) where -import           Network.AWS.CodeBuild.BatchGetBuilds-import           Network.AWS.CodeBuild.BatchGetProjects-import           Network.AWS.CodeBuild.CreateProject-import           Network.AWS.CodeBuild.DeleteProject-import           Network.AWS.CodeBuild.ListBuilds-import           Network.AWS.CodeBuild.ListBuildsForProject-import           Network.AWS.CodeBuild.ListCuratedEnvironmentImages-import           Network.AWS.CodeBuild.ListProjects-import           Network.AWS.CodeBuild.StartBuild-import           Network.AWS.CodeBuild.StopBuild-import           Network.AWS.CodeBuild.Types-import           Network.AWS.CodeBuild.UpdateProject-import           Network.AWS.CodeBuild.Waiters+import Network.AWS.CodeBuild.BatchDeleteBuilds+import Network.AWS.CodeBuild.BatchGetBuilds+import Network.AWS.CodeBuild.BatchGetProjects+import Network.AWS.CodeBuild.CreateProject+import Network.AWS.CodeBuild.CreateWebhook+import Network.AWS.CodeBuild.DeleteProject+import Network.AWS.CodeBuild.DeleteWebhook+import Network.AWS.CodeBuild.ListBuilds+import Network.AWS.CodeBuild.ListBuildsForProject+import Network.AWS.CodeBuild.ListCuratedEnvironmentImages+import Network.AWS.CodeBuild.ListProjects+import Network.AWS.CodeBuild.StartBuild+import Network.AWS.CodeBuild.StopBuild+import Network.AWS.CodeBuild.Types+import Network.AWS.CodeBuild.UpdateProject+import Network.AWS.CodeBuild.Waiters  {- $errors Error matchers are designed for use with the functions provided by

@@ -0,0 +1,144 @@+{-# 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.CodeBuild.BatchDeleteBuilds+-- Copyright   : (c) 2013-2017 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Deletes one or more builds.+--+--+module Network.AWS.CodeBuild.BatchDeleteBuilds+    (+    -- * Creating a Request+      batchDeleteBuilds+    , BatchDeleteBuilds+    -- * Request Lenses+    , bdbIds++    -- * Destructuring the Response+    , batchDeleteBuildsResponse+    , BatchDeleteBuildsResponse+    -- * Response Lenses+    , bdbrsBuildsNotDeleted+    , bdbrsBuildsDeleted+    , bdbrsResponseStatus+    ) where++import Network.AWS.CodeBuild.Types+import Network.AWS.CodeBuild.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response++-- | /See:/ 'batchDeleteBuilds' smart constructor.+newtype BatchDeleteBuilds = BatchDeleteBuilds'+  { _bdbIds :: List1 Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'BatchDeleteBuilds' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'bdbIds' - The IDs of the builds to delete.+batchDeleteBuilds+    :: NonEmpty Text -- ^ 'bdbIds'+    -> BatchDeleteBuilds+batchDeleteBuilds pIds_ = BatchDeleteBuilds' {_bdbIds = _List1 # pIds_}+++-- | The IDs of the builds to delete.+bdbIds :: Lens' BatchDeleteBuilds (NonEmpty Text)+bdbIds = lens _bdbIds (\ s a -> s{_bdbIds = a}) . _List1;++instance AWSRequest BatchDeleteBuilds where+        type Rs BatchDeleteBuilds = BatchDeleteBuildsResponse+        request = postJSON codeBuild+        response+          = receiveJSON+              (\ s h x ->+                 BatchDeleteBuildsResponse' <$>+                   (x .?> "buildsNotDeleted" .!@ mempty) <*>+                     (x .?> "buildsDeleted")+                     <*> (pure (fromEnum s)))++instance Hashable BatchDeleteBuilds where++instance NFData BatchDeleteBuilds where++instance ToHeaders BatchDeleteBuilds where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("CodeBuild_20161006.BatchDeleteBuilds" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON BatchDeleteBuilds where+        toJSON BatchDeleteBuilds'{..}+          = object (catMaybes [Just ("ids" .= _bdbIds)])++instance ToPath BatchDeleteBuilds where+        toPath = const "/"++instance ToQuery BatchDeleteBuilds where+        toQuery = const mempty++-- | /See:/ 'batchDeleteBuildsResponse' smart constructor.+data BatchDeleteBuildsResponse = BatchDeleteBuildsResponse'+  { _bdbrsBuildsNotDeleted :: !(Maybe [BuildNotDeleted])+  , _bdbrsBuildsDeleted    :: !(Maybe (List1 Text))+  , _bdbrsResponseStatus   :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'BatchDeleteBuildsResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'bdbrsBuildsNotDeleted' - Information about any builds that could not be successfully deleted.+--+-- * 'bdbrsBuildsDeleted' - The IDs of the builds that were successfully deleted.+--+-- * 'bdbrsResponseStatus' - -- | The response status code.+batchDeleteBuildsResponse+    :: Int -- ^ 'bdbrsResponseStatus'+    -> BatchDeleteBuildsResponse+batchDeleteBuildsResponse pResponseStatus_ =+  BatchDeleteBuildsResponse'+  { _bdbrsBuildsNotDeleted = Nothing+  , _bdbrsBuildsDeleted = Nothing+  , _bdbrsResponseStatus = pResponseStatus_+  }+++-- | Information about any builds that could not be successfully deleted.+bdbrsBuildsNotDeleted :: Lens' BatchDeleteBuildsResponse [BuildNotDeleted]+bdbrsBuildsNotDeleted = lens _bdbrsBuildsNotDeleted (\ s a -> s{_bdbrsBuildsNotDeleted = a}) . _Default . _Coerce;++-- | The IDs of the builds that were successfully deleted.+bdbrsBuildsDeleted :: Lens' BatchDeleteBuildsResponse (Maybe (NonEmpty Text))+bdbrsBuildsDeleted = lens _bdbrsBuildsDeleted (\ s a -> s{_bdbrsBuildsDeleted = a}) . mapping _List1;++-- | -- | The response status code.+bdbrsResponseStatus :: Lens' BatchDeleteBuildsResponse Int+bdbrsResponseStatus = lens _bdbrsResponseStatus (\ s a -> s{_bdbrsResponseStatus = a});++instance NFData BatchDeleteBuildsResponse where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.CodeBuild.BatchGetBuilds--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Gets information about one or more builds.+-- Gets information about builds. -- -- module Network.AWS.CodeBuild.BatchGetBuilds@@ -38,32 +38,31 @@     , bgbrsResponseStatus     ) where -import           Network.AWS.CodeBuild.Types-import           Network.AWS.CodeBuild.Types.Product-import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.CodeBuild.Types+import Network.AWS.CodeBuild.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | /See:/ 'batchGetBuilds' smart constructor. newtype BatchGetBuilds = BatchGetBuilds'-    { _bgbIds :: List1 Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _bgbIds :: List1 Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'BatchGetBuilds' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'bgbIds' - The IDs of the builds to get information about.+-- * 'bgbIds' - The IDs of the builds. batchGetBuilds     :: NonEmpty Text -- ^ 'bgbIds'     -> BatchGetBuilds-batchGetBuilds pIds_ =-    BatchGetBuilds'-    { _bgbIds = _List1 # pIds_-    }+batchGetBuilds pIds_ = BatchGetBuilds' {_bgbIds = _List1 # pIds_} --- | The IDs of the builds to get information about.++-- | The IDs of the builds. bgbIds :: Lens' BatchGetBuilds (NonEmpty Text) bgbIds = lens _bgbIds (\ s a -> s{_bgbIds = a}) . _List1; @@ -78,9 +77,9 @@                      (x .?> "buildsNotFound")                      <*> (pure (fromEnum s))) -instance Hashable BatchGetBuilds+instance Hashable BatchGetBuilds where -instance NFData BatchGetBuilds+instance NFData BatchGetBuilds where  instance ToHeaders BatchGetBuilds where         toHeaders@@ -103,11 +102,12 @@  -- | /See:/ 'batchGetBuildsResponse' smart constructor. data BatchGetBuildsResponse = BatchGetBuildsResponse'-    { _bgbrsBuilds         :: !(Maybe [Build])-    , _bgbrsBuildsNotFound :: !(Maybe (List1 Text))-    , _bgbrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _bgbrsBuilds         :: !(Maybe [Build])+  , _bgbrsBuildsNotFound :: !(Maybe (List1 Text))+  , _bgbrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'BatchGetBuildsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -121,12 +121,13 @@     :: Int -- ^ 'bgbrsResponseStatus'     -> BatchGetBuildsResponse batchGetBuildsResponse pResponseStatus_ =-    BatchGetBuildsResponse'-    { _bgbrsBuilds = Nothing-    , _bgbrsBuildsNotFound = Nothing-    , _bgbrsResponseStatus = pResponseStatus_-    }+  BatchGetBuildsResponse'+  { _bgbrsBuilds = Nothing+  , _bgbrsBuildsNotFound = Nothing+  , _bgbrsResponseStatus = pResponseStatus_+  } + -- | Information about the requested builds. bgbrsBuilds :: Lens' BatchGetBuildsResponse [Build] bgbrsBuilds = lens _bgbrsBuilds (\ s a -> s{_bgbrsBuilds = a}) . _Default . _Coerce;@@ -139,4 +140,4 @@ bgbrsResponseStatus :: Lens' BatchGetBuildsResponse Int bgbrsResponseStatus = lens _bgbrsResponseStatus (\ s a -> s{_bgbrsResponseStatus = a}); -instance NFData BatchGetBuildsResponse+instance NFData BatchGetBuildsResponse where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.CodeBuild.BatchGetProjects--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Gets information about one or more build projects.+-- Gets information about build projects. -- -- module Network.AWS.CodeBuild.BatchGetProjects@@ -38,32 +38,31 @@     , bgprsResponseStatus     ) where -import           Network.AWS.CodeBuild.Types-import           Network.AWS.CodeBuild.Types.Product-import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.CodeBuild.Types+import Network.AWS.CodeBuild.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | /See:/ 'batchGetProjects' smart constructor. newtype BatchGetProjects = BatchGetProjects'-    { _bgpNames :: List1 Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _bgpNames :: List1 Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'BatchGetProjects' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'bgpNames' - The names of the build projects to get information about.+-- * 'bgpNames' - The names of the build projects. batchGetProjects     :: NonEmpty Text -- ^ 'bgpNames'     -> BatchGetProjects-batchGetProjects pNames_ =-    BatchGetProjects'-    { _bgpNames = _List1 # pNames_-    }+batchGetProjects pNames_ = BatchGetProjects' {_bgpNames = _List1 # pNames_} --- | The names of the build projects to get information about.++-- | The names of the build projects. bgpNames :: Lens' BatchGetProjects (NonEmpty Text) bgpNames = lens _bgpNames (\ s a -> s{_bgpNames = a}) . _List1; @@ -78,9 +77,9 @@                      (x .?> "projects" .!@ mempty)                      <*> (pure (fromEnum s))) -instance Hashable BatchGetProjects+instance Hashable BatchGetProjects where -instance NFData BatchGetProjects+instance NFData BatchGetProjects where  instance ToHeaders BatchGetProjects where         toHeaders@@ -104,11 +103,12 @@  -- | /See:/ 'batchGetProjectsResponse' smart constructor. data BatchGetProjectsResponse = BatchGetProjectsResponse'-    { _bgprsProjectsNotFound :: !(Maybe (List1 Text))-    , _bgprsProjects         :: !(Maybe [Project])-    , _bgprsResponseStatus   :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _bgprsProjectsNotFound :: !(Maybe (List1 Text))+  , _bgprsProjects         :: !(Maybe [Project])+  , _bgprsResponseStatus   :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'BatchGetProjectsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -122,12 +122,13 @@     :: Int -- ^ 'bgprsResponseStatus'     -> BatchGetProjectsResponse batchGetProjectsResponse pResponseStatus_ =-    BatchGetProjectsResponse'-    { _bgprsProjectsNotFound = Nothing-    , _bgprsProjects = Nothing-    , _bgprsResponseStatus = pResponseStatus_-    }+  BatchGetProjectsResponse'+  { _bgprsProjectsNotFound = Nothing+  , _bgprsProjects = Nothing+  , _bgprsResponseStatus = pResponseStatus_+  } + -- | The names of build projects for which information could not be found. bgprsProjectsNotFound :: Lens' BatchGetProjectsResponse (Maybe (NonEmpty Text)) bgprsProjectsNotFound = lens _bgprsProjectsNotFound (\ s a -> s{_bgprsProjectsNotFound = a}) . mapping _List1;@@ -140,4 +141,4 @@ bgprsResponseStatus :: Lens' BatchGetProjectsResponse Int bgprsResponseStatus = lens _bgprsResponseStatus (\ s a -> s{_bgprsResponseStatus = a}); -instance NFData BatchGetProjectsResponse+instance NFData BatchGetProjectsResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.CodeBuild.CreateProject--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -45,47 +45,48 @@     , cprsResponseStatus     ) where -import           Network.AWS.CodeBuild.Types-import           Network.AWS.CodeBuild.Types.Product-import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.CodeBuild.Types+import Network.AWS.CodeBuild.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | /See:/ 'createProject' smart constructor. data CreateProject = CreateProject'-    { _cpEncryptionKey    :: !(Maybe Text)-    , _cpDescription      :: !(Maybe Text)-    , _cpServiceRole      :: !(Maybe Text)-    , _cpTags             :: !(Maybe [Tag])-    , _cpTimeoutInMinutes :: !(Maybe Nat)-    , _cpName             :: !Text-    , _cpSource           :: !ProjectSource-    , _cpArtifacts        :: !ProjectArtifacts-    , _cpEnvironment      :: !ProjectEnvironment-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _cpEncryptionKey    :: !(Maybe Text)+  , _cpDescription      :: !(Maybe Text)+  , _cpServiceRole      :: !(Maybe Text)+  , _cpTags             :: !(Maybe [Tag])+  , _cpTimeoutInMinutes :: !(Maybe Nat)+  , _cpName             :: !Text+  , _cpSource           :: !ProjectSource+  , _cpArtifacts        :: !ProjectArtifacts+  , _cpEnvironment      :: !ProjectEnvironment+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateProject' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'cpEncryptionKey' - The AWS Key Management Service (AWS KMS) customer master key (CMK) to be used for encrypting the build project's build output artifacts. You can specify either the CMK's Amazon Resource Name (ARN) or, if available, the CMK's alias (using the format @alias//alias-name/ @ ).+-- * 'cpEncryptionKey' - The AWS Key Management Service (AWS KMS) customer master key (CMK) to be used for encrypting the build output artifacts. You can specify either the CMK's Amazon Resource Name (ARN) or, if available, the CMK's alias (using the format @alias//alias-name/ @ ). ----- * 'cpDescription' - A meaningful description of the build project.+-- * 'cpDescription' - A description that makes the build project easy to identify. ----- * 'cpServiceRole' - The Amazon Resource Name (ARN) of the AWS Identity and Access Management (IAM) role that enables AWS CodeBuild to interact with dependent AWS services on behalf of the AWS account.+-- * 'cpServiceRole' - The ARN of the AWS Identity and Access Management (IAM) role that enables AWS CodeBuild to interact with dependent AWS services on behalf of the AWS account. -- -- * 'cpTags' - A set of tags for this build project. These tags are available for use by AWS services that support AWS CodeBuild build project tags. ----- * 'cpTimeoutInMinutes' - How long in minutes, from 5 to 480 (8 hours), for AWS CodeBuild to wait until timing out any related build that does not get marked as completed. The default is 60 minutes.+-- * 'cpTimeoutInMinutes' - How long, in minutes, from 5 to 480 (8 hours), for AWS CodeBuild to wait until timing out any build that has not been marked as completed. The default is 60 minutes. ----- * 'cpName' - The build project's name.+-- * 'cpName' - The name of the build project. ----- * 'cpSource' - Information about the build project's build input source code.+-- * 'cpSource' - Information about the build input source code for the build project. ----- * 'cpArtifacts' - Information about the build project's build output artifacts.+-- * 'cpArtifacts' - Information about the build output artifacts for the build project. ----- * 'cpEnvironment' - Information about the build project's build environment.+-- * 'cpEnvironment' - Information about the build environment for the build project. createProject     :: Text -- ^ 'cpName'     -> ProjectSource -- ^ 'cpSource'@@ -93,27 +94,28 @@     -> ProjectEnvironment -- ^ 'cpEnvironment'     -> CreateProject createProject pName_ pSource_ pArtifacts_ pEnvironment_ =-    CreateProject'-    { _cpEncryptionKey = Nothing-    , _cpDescription = Nothing-    , _cpServiceRole = Nothing-    , _cpTags = Nothing-    , _cpTimeoutInMinutes = Nothing-    , _cpName = pName_-    , _cpSource = pSource_-    , _cpArtifacts = pArtifacts_-    , _cpEnvironment = pEnvironment_-    }+  CreateProject'+  { _cpEncryptionKey = Nothing+  , _cpDescription = Nothing+  , _cpServiceRole = Nothing+  , _cpTags = Nothing+  , _cpTimeoutInMinutes = Nothing+  , _cpName = pName_+  , _cpSource = pSource_+  , _cpArtifacts = pArtifacts_+  , _cpEnvironment = pEnvironment_+  } --- | The AWS Key Management Service (AWS KMS) customer master key (CMK) to be used for encrypting the build project's build output artifacts. You can specify either the CMK's Amazon Resource Name (ARN) or, if available, the CMK's alias (using the format @alias//alias-name/ @ ).++-- | The AWS Key Management Service (AWS KMS) customer master key (CMK) to be used for encrypting the build output artifacts. You can specify either the CMK's Amazon Resource Name (ARN) or, if available, the CMK's alias (using the format @alias//alias-name/ @ ). cpEncryptionKey :: Lens' CreateProject (Maybe Text) cpEncryptionKey = lens _cpEncryptionKey (\ s a -> s{_cpEncryptionKey = a}); --- | A meaningful description of the build project.+-- | A description that makes the build project easy to identify. cpDescription :: Lens' CreateProject (Maybe Text) cpDescription = lens _cpDescription (\ s a -> s{_cpDescription = a}); --- | The Amazon Resource Name (ARN) of the AWS Identity and Access Management (IAM) role that enables AWS CodeBuild to interact with dependent AWS services on behalf of the AWS account.+-- | The ARN of the AWS Identity and Access Management (IAM) role that enables AWS CodeBuild to interact with dependent AWS services on behalf of the AWS account. cpServiceRole :: Lens' CreateProject (Maybe Text) cpServiceRole = lens _cpServiceRole (\ s a -> s{_cpServiceRole = a}); @@ -121,23 +123,23 @@ cpTags :: Lens' CreateProject [Tag] cpTags = lens _cpTags (\ s a -> s{_cpTags = a}) . _Default . _Coerce; --- | How long in minutes, from 5 to 480 (8 hours), for AWS CodeBuild to wait until timing out any related build that does not get marked as completed. The default is 60 minutes.+-- | How long, in minutes, from 5 to 480 (8 hours), for AWS CodeBuild to wait until timing out any build that has not been marked as completed. The default is 60 minutes. cpTimeoutInMinutes :: Lens' CreateProject (Maybe Natural) cpTimeoutInMinutes = lens _cpTimeoutInMinutes (\ s a -> s{_cpTimeoutInMinutes = a}) . mapping _Nat; --- | The build project's name.+-- | The name of the build project. cpName :: Lens' CreateProject Text cpName = lens _cpName (\ s a -> s{_cpName = a}); --- | Information about the build project's build input source code.+-- | Information about the build input source code for the build project. cpSource :: Lens' CreateProject ProjectSource cpSource = lens _cpSource (\ s a -> s{_cpSource = a}); --- | Information about the build project's build output artifacts.+-- | Information about the build output artifacts for the build project. cpArtifacts :: Lens' CreateProject ProjectArtifacts cpArtifacts = lens _cpArtifacts (\ s a -> s{_cpArtifacts = a}); --- | Information about the build project's build environment.+-- | Information about the build environment for the build project. cpEnvironment :: Lens' CreateProject ProjectEnvironment cpEnvironment = lens _cpEnvironment (\ s a -> s{_cpEnvironment = a}); @@ -150,9 +152,9 @@                  CreateProjectResponse' <$>                    (x .?> "project") <*> (pure (fromEnum s))) -instance Hashable CreateProject+instance Hashable CreateProject where -instance NFData CreateProject+instance NFData CreateProject where  instance ToHeaders CreateProject where         toHeaders@@ -185,10 +187,11 @@  -- | /See:/ 'createProjectResponse' smart constructor. data CreateProjectResponse = CreateProjectResponse'-    { _cprsProject        :: !(Maybe Project)-    , _cprsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _cprsProject        :: !(Maybe Project)+  , _cprsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateProjectResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -200,11 +203,10 @@     :: Int -- ^ 'cprsResponseStatus'     -> CreateProjectResponse createProjectResponse pResponseStatus_ =-    CreateProjectResponse'-    { _cprsProject = Nothing-    , _cprsResponseStatus = pResponseStatus_-    }+  CreateProjectResponse'+  {_cprsProject = Nothing, _cprsResponseStatus = pResponseStatus_} + -- | Information about the build project that was created. cprsProject :: Lens' CreateProjectResponse (Maybe Project) cprsProject = lens _cprsProject (\ s a -> s{_cprsProject = a});@@ -213,4 +215,4 @@ cprsResponseStatus :: Lens' CreateProjectResponse Int cprsResponseStatus = lens _cprsResponseStatus (\ s a -> s{_cprsResponseStatus = a}); -instance NFData CreateProjectResponse+instance NFData CreateProjectResponse where

@@ -0,0 +1,133 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.CodeBuild.CreateWebhook+-- Copyright   : (c) 2013-2017 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- For an existing AWS CodeBuild build project that has its source code stored in a GitHub repository, enables AWS CodeBuild to begin automatically rebuilding the source code every time a code change is pushed to the repository.+--+--+-- /Important:/ If you enable webhooks for an AWS CodeBuild project, and the project is used as a build step in AWS CodePipeline, then two identical builds will be created for each commit. One build is triggered through webhooks, and one through AWS CodePipeline. Because billing is on a per-build basis, you will be billed for both builds. Therefore, if you are using AWS CodePipeline, we recommend that you disable webhooks in CodeBuild. In the AWS CodeBuild console, clear the Webhook box. For more information, see step 9 in <http://docs.aws.amazon.com/codebuild/latest/userguide/change-project.html#change-project-console Change a Build Project’s Settings> .+--+module Network.AWS.CodeBuild.CreateWebhook+    (+    -- * Creating a Request+      createWebhook+    , CreateWebhook+    -- * Request Lenses+    , cwProjectName++    -- * Destructuring the Response+    , createWebhookResponse+    , CreateWebhookResponse+    -- * Response Lenses+    , cwrsWebhook+    , cwrsResponseStatus+    ) where++import Network.AWS.CodeBuild.Types+import Network.AWS.CodeBuild.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response++-- | /See:/ 'createWebhook' smart constructor.+newtype CreateWebhook = CreateWebhook'+  { _cwProjectName :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'CreateWebhook' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cwProjectName' - The name of the build project.+createWebhook+    :: Text -- ^ 'cwProjectName'+    -> CreateWebhook+createWebhook pProjectName_ = CreateWebhook' {_cwProjectName = pProjectName_}+++-- | The name of the build project.+cwProjectName :: Lens' CreateWebhook Text+cwProjectName = lens _cwProjectName (\ s a -> s{_cwProjectName = a});++instance AWSRequest CreateWebhook where+        type Rs CreateWebhook = CreateWebhookResponse+        request = postJSON codeBuild+        response+          = receiveJSON+              (\ s h x ->+                 CreateWebhookResponse' <$>+                   (x .?> "webhook") <*> (pure (fromEnum s)))++instance Hashable CreateWebhook where++instance NFData CreateWebhook where++instance ToHeaders CreateWebhook where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("CodeBuild_20161006.CreateWebhook" :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON CreateWebhook where+        toJSON CreateWebhook'{..}+          = object+              (catMaybes [Just ("projectName" .= _cwProjectName)])++instance ToPath CreateWebhook where+        toPath = const "/"++instance ToQuery CreateWebhook where+        toQuery = const mempty++-- | /See:/ 'createWebhookResponse' smart constructor.+data CreateWebhookResponse = CreateWebhookResponse'+  { _cwrsWebhook        :: !(Maybe Webhook)+  , _cwrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'CreateWebhookResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cwrsWebhook' - Information about a webhook in GitHub that connects repository events to a build project in AWS CodeBuild.+--+-- * 'cwrsResponseStatus' - -- | The response status code.+createWebhookResponse+    :: Int -- ^ 'cwrsResponseStatus'+    -> CreateWebhookResponse+createWebhookResponse pResponseStatus_ =+  CreateWebhookResponse'+  {_cwrsWebhook = Nothing, _cwrsResponseStatus = pResponseStatus_}+++-- | Information about a webhook in GitHub that connects repository events to a build project in AWS CodeBuild.+cwrsWebhook :: Lens' CreateWebhookResponse (Maybe Webhook)+cwrsWebhook = lens _cwrsWebhook (\ s a -> s{_cwrsWebhook = a});++-- | -- | The response status code.+cwrsResponseStatus :: Lens' CreateWebhookResponse Int+cwrsResponseStatus = lens _cwrsResponseStatus (\ s a -> s{_cwrsResponseStatus = a});++instance NFData CreateWebhookResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.CodeBuild.DeleteProject--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -36,32 +36,31 @@     , dprsResponseStatus     ) where -import           Network.AWS.CodeBuild.Types-import           Network.AWS.CodeBuild.Types.Product-import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.CodeBuild.Types+import Network.AWS.CodeBuild.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | /See:/ 'deleteProject' smart constructor. newtype DeleteProject = DeleteProject'-    { _dpName :: Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dpName :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteProject' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dpName' - The name of the build project to delete.+-- * 'dpName' - The name of the build project. deleteProject     :: Text -- ^ 'dpName'     -> DeleteProject-deleteProject pName_ =-    DeleteProject'-    { _dpName = pName_-    }+deleteProject pName_ = DeleteProject' {_dpName = pName_} --- | The name of the build project to delete.++-- | The name of the build project. dpName :: Lens' DeleteProject Text dpName = lens _dpName (\ s a -> s{_dpName = a}); @@ -73,9 +72,9 @@               (\ s h x ->                  DeleteProjectResponse' <$> (pure (fromEnum s))) -instance Hashable DeleteProject+instance Hashable DeleteProject where -instance NFData DeleteProject+instance NFData DeleteProject where  instance ToHeaders DeleteProject where         toHeaders@@ -98,9 +97,10 @@  -- | /See:/ 'deleteProjectResponse' smart constructor. newtype DeleteProjectResponse = DeleteProjectResponse'-    { _dprsResponseStatus :: Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dprsResponseStatus :: Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteProjectResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -110,12 +110,11 @@     :: Int -- ^ 'dprsResponseStatus'     -> DeleteProjectResponse deleteProjectResponse pResponseStatus_ =-    DeleteProjectResponse'-    { _dprsResponseStatus = pResponseStatus_-    }+  DeleteProjectResponse' {_dprsResponseStatus = pResponseStatus_} + -- | -- | The response status code. dprsResponseStatus :: Lens' DeleteProjectResponse Int dprsResponseStatus = lens _dprsResponseStatus (\ s a -> s{_dprsResponseStatus = a}); -instance NFData DeleteProjectResponse+instance NFData DeleteProjectResponse where

@@ -0,0 +1,121 @@+{-# 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.CodeBuild.DeleteWebhook+-- Copyright   : (c) 2013-2017 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- For an existing AWS CodeBuild build project that has its source code stored in a GitHub repository, stops AWS CodeBuild from automatically rebuilding the source code every time a code change is pushed to the repository.+--+--+module Network.AWS.CodeBuild.DeleteWebhook+    (+    -- * Creating a Request+      deleteWebhook+    , DeleteWebhook+    -- * Request Lenses+    , dwProjectName++    -- * Destructuring the Response+    , deleteWebhookResponse+    , DeleteWebhookResponse+    -- * Response Lenses+    , dwrsResponseStatus+    ) where++import Network.AWS.CodeBuild.Types+import Network.AWS.CodeBuild.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response++-- | /See:/ 'deleteWebhook' smart constructor.+newtype DeleteWebhook = DeleteWebhook'+  { _dwProjectName :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DeleteWebhook' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dwProjectName' - The name of the build project.+deleteWebhook+    :: Text -- ^ 'dwProjectName'+    -> DeleteWebhook+deleteWebhook pProjectName_ = DeleteWebhook' {_dwProjectName = pProjectName_}+++-- | The name of the build project.+dwProjectName :: Lens' DeleteWebhook Text+dwProjectName = lens _dwProjectName (\ s a -> s{_dwProjectName = a});++instance AWSRequest DeleteWebhook where+        type Rs DeleteWebhook = DeleteWebhookResponse+        request = postJSON codeBuild+        response+          = receiveEmpty+              (\ s h x ->+                 DeleteWebhookResponse' <$> (pure (fromEnum s)))++instance Hashable DeleteWebhook where++instance NFData DeleteWebhook where++instance ToHeaders DeleteWebhook where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("CodeBuild_20161006.DeleteWebhook" :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON DeleteWebhook where+        toJSON DeleteWebhook'{..}+          = object+              (catMaybes [Just ("projectName" .= _dwProjectName)])++instance ToPath DeleteWebhook where+        toPath = const "/"++instance ToQuery DeleteWebhook where+        toQuery = const mempty++-- | /See:/ 'deleteWebhookResponse' smart constructor.+newtype DeleteWebhookResponse = DeleteWebhookResponse'+  { _dwrsResponseStatus :: Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DeleteWebhookResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dwrsResponseStatus' - -- | The response status code.+deleteWebhookResponse+    :: Int -- ^ 'dwrsResponseStatus'+    -> DeleteWebhookResponse+deleteWebhookResponse pResponseStatus_ =+  DeleteWebhookResponse' {_dwrsResponseStatus = pResponseStatus_}+++-- | -- | The response status code.+dwrsResponseStatus :: Lens' DeleteWebhookResponse Int+dwrsResponseStatus = lens _dwrsResponseStatus (\ s a -> s{_dwrsResponseStatus = a});++instance NFData DeleteWebhookResponse where

@@ -12,15 +12,17 @@  -- | -- Module      : Network.AWS.CodeBuild.ListBuilds--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) -- -- Gets a list of build IDs, with each build ID representing a single build. -- --+--+-- This operation returns paginated results. module Network.AWS.CodeBuild.ListBuilds     (     -- * Creating a Request@@ -39,19 +41,21 @@     , lbrsResponseStatus     ) where -import           Network.AWS.CodeBuild.Types-import           Network.AWS.CodeBuild.Types.Product-import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.CodeBuild.Types+import Network.AWS.CodeBuild.Types.Product+import Network.AWS.Lens+import Network.AWS.Pager+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | /See:/ 'listBuilds' smart constructor. data ListBuilds = ListBuilds'-    { _lbSortOrder :: !(Maybe SortOrderType)-    , _lbNextToken :: !(Maybe Text)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _lbSortOrder :: !(Maybe SortOrderType)+  , _lbNextToken :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListBuilds' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -61,12 +65,9 @@ -- * 'lbNextToken' - During a previous call, if there are more than 100 items in the list, only the first 100 items are returned, along with a unique string called a /next token/ . To get the next batch of items in the list, call this operation again, adding the next token to the call. To get all of the items in the list, keep calling this operation with each subsequent next token that is returned, until no more next tokens are returned. listBuilds     :: ListBuilds-listBuilds =-    ListBuilds'-    { _lbSortOrder = Nothing-    , _lbNextToken = Nothing-    }+listBuilds = ListBuilds' {_lbSortOrder = Nothing, _lbNextToken = Nothing} + -- | The order to list build IDs. Valid values include:     * @ASCENDING@ : List the build IDs in ascending order by build ID.     * @DESCENDING@ : List the build IDs in descending order by build ID. lbSortOrder :: Lens' ListBuilds (Maybe SortOrderType) lbSortOrder = lens _lbSortOrder (\ s a -> s{_lbSortOrder = a});@@ -75,6 +76,13 @@ lbNextToken :: Lens' ListBuilds (Maybe Text) lbNextToken = lens _lbNextToken (\ s a -> s{_lbNextToken = a}); +instance AWSPager ListBuilds where+        page rq rs+          | stop (rs ^. lbrsNextToken) = Nothing+          | stop (rs ^. lbrsIds) = Nothing+          | otherwise =+            Just $ rq & lbNextToken .~ rs ^. lbrsNextToken+ instance AWSRequest ListBuilds where         type Rs ListBuilds = ListBuildsResponse         request = postJSON codeBuild@@ -85,9 +93,9 @@                    (x .?> "ids") <*> (x .?> "nextToken") <*>                      (pure (fromEnum s))) -instance Hashable ListBuilds+instance Hashable ListBuilds where -instance NFData ListBuilds+instance NFData ListBuilds where  instance ToHeaders ListBuilds where         toHeaders@@ -113,11 +121,12 @@  -- | /See:/ 'listBuildsResponse' smart constructor. data ListBuildsResponse = ListBuildsResponse'-    { _lbrsIds            :: !(Maybe (List1 Text))-    , _lbrsNextToken      :: !(Maybe Text)-    , _lbrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _lbrsIds            :: !(Maybe (List1 Text))+  , _lbrsNextToken      :: !(Maybe Text)+  , _lbrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListBuildsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -131,12 +140,13 @@     :: Int -- ^ 'lbrsResponseStatus'     -> ListBuildsResponse listBuildsResponse pResponseStatus_ =-    ListBuildsResponse'-    { _lbrsIds = Nothing-    , _lbrsNextToken = Nothing-    , _lbrsResponseStatus = pResponseStatus_-    }+  ListBuildsResponse'+  { _lbrsIds = Nothing+  , _lbrsNextToken = Nothing+  , _lbrsResponseStatus = pResponseStatus_+  } + -- | A list of build IDs, with each build ID representing a single build. lbrsIds :: Lens' ListBuildsResponse (Maybe (NonEmpty Text)) lbrsIds = lens _lbrsIds (\ s a -> s{_lbrsIds = a}) . mapping _List1;@@ -149,4 +159,4 @@ lbrsResponseStatus :: Lens' ListBuildsResponse Int lbrsResponseStatus = lens _lbrsResponseStatus (\ s a -> s{_lbrsResponseStatus = a}); -instance NFData ListBuildsResponse+instance NFData ListBuildsResponse where

@@ -12,15 +12,17 @@  -- | -- Module      : Network.AWS.CodeBuild.ListBuildsForProject--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) -- -- Gets a list of build IDs for the specified build project, with each build ID representing a single build. -- --+--+-- This operation returns paginated results. module Network.AWS.CodeBuild.ListBuildsForProject     (     -- * Creating a Request@@ -40,20 +42,22 @@     , lbfprsResponseStatus     ) where -import           Network.AWS.CodeBuild.Types-import           Network.AWS.CodeBuild.Types.Product-import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.CodeBuild.Types+import Network.AWS.CodeBuild.Types.Product+import Network.AWS.Lens+import Network.AWS.Pager+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | /See:/ 'listBuildsForProject' smart constructor. data ListBuildsForProject = ListBuildsForProject'-    { _lbfpSortOrder   :: !(Maybe SortOrderType)-    , _lbfpNextToken   :: !(Maybe Text)-    , _lbfpProjectName :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _lbfpSortOrder   :: !(Maybe SortOrderType)+  , _lbfpNextToken   :: !(Maybe Text)+  , _lbfpProjectName :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListBuildsForProject' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -62,17 +66,18 @@ -- -- * 'lbfpNextToken' - During a previous call, if there are more than 100 items in the list, only the first 100 items are returned, along with a unique string called a /next token/ . To get the next batch of items in the list, call this operation again, adding the next token to the call. To get all of the items in the list, keep calling this operation with each subsequent next token that is returned, until no more next tokens are returned. ----- * 'lbfpProjectName' - The name of the build project to get a list of build IDs for.+-- * 'lbfpProjectName' - The name of the build project. listBuildsForProject     :: Text -- ^ 'lbfpProjectName'     -> ListBuildsForProject listBuildsForProject pProjectName_ =-    ListBuildsForProject'-    { _lbfpSortOrder = Nothing-    , _lbfpNextToken = Nothing-    , _lbfpProjectName = pProjectName_-    }+  ListBuildsForProject'+  { _lbfpSortOrder = Nothing+  , _lbfpNextToken = Nothing+  , _lbfpProjectName = pProjectName_+  } + -- | The order to list build IDs. Valid values include:     * @ASCENDING@ : List the build IDs in ascending order by build ID.     * @DESCENDING@ : List the build IDs in descending order by build ID. lbfpSortOrder :: Lens' ListBuildsForProject (Maybe SortOrderType) lbfpSortOrder = lens _lbfpSortOrder (\ s a -> s{_lbfpSortOrder = a});@@ -81,10 +86,17 @@ lbfpNextToken :: Lens' ListBuildsForProject (Maybe Text) lbfpNextToken = lens _lbfpNextToken (\ s a -> s{_lbfpNextToken = a}); --- | The name of the build project to get a list of build IDs for.+-- | The name of the build project. lbfpProjectName :: Lens' ListBuildsForProject Text lbfpProjectName = lens _lbfpProjectName (\ s a -> s{_lbfpProjectName = a}); +instance AWSPager ListBuildsForProject where+        page rq rs+          | stop (rs ^. lbfprsNextToken) = Nothing+          | stop (rs ^. lbfprsIds) = Nothing+          | otherwise =+            Just $ rq & lbfpNextToken .~ rs ^. lbfprsNextToken+ instance AWSRequest ListBuildsForProject where         type Rs ListBuildsForProject =              ListBuildsForProjectResponse@@ -96,9 +108,9 @@                    (x .?> "ids") <*> (x .?> "nextToken") <*>                      (pure (fromEnum s))) -instance Hashable ListBuildsForProject+instance Hashable ListBuildsForProject where -instance NFData ListBuildsForProject+instance NFData ListBuildsForProject where  instance ToHeaders ListBuildsForProject where         toHeaders@@ -126,11 +138,12 @@  -- | /See:/ 'listBuildsForProjectResponse' smart constructor. data ListBuildsForProjectResponse = ListBuildsForProjectResponse'-    { _lbfprsIds            :: !(Maybe (List1 Text))-    , _lbfprsNextToken      :: !(Maybe Text)-    , _lbfprsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _lbfprsIds            :: !(Maybe (List1 Text))+  , _lbfprsNextToken      :: !(Maybe Text)+  , _lbfprsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListBuildsForProjectResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -144,12 +157,13 @@     :: Int -- ^ 'lbfprsResponseStatus'     -> ListBuildsForProjectResponse listBuildsForProjectResponse pResponseStatus_ =-    ListBuildsForProjectResponse'-    { _lbfprsIds = Nothing-    , _lbfprsNextToken = Nothing-    , _lbfprsResponseStatus = pResponseStatus_-    }+  ListBuildsForProjectResponse'+  { _lbfprsIds = Nothing+  , _lbfprsNextToken = Nothing+  , _lbfprsResponseStatus = pResponseStatus_+  } + -- | A list of build IDs for the specified build project, with each build ID representing a single build. lbfprsIds :: Lens' ListBuildsForProjectResponse (Maybe (NonEmpty Text)) lbfprsIds = lens _lbfprsIds (\ s a -> s{_lbfprsIds = a}) . mapping _List1;@@ -162,4 +176,4 @@ lbfprsResponseStatus :: Lens' ListBuildsForProjectResponse Int lbfprsResponseStatus = lens _lbfprsResponseStatus (\ s a -> s{_lbfprsResponseStatus = a}); -instance NFData ListBuildsForProjectResponse+instance NFData ListBuildsForProjectResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.CodeBuild.ListCuratedEnvironmentImages--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -35,24 +35,26 @@     , lceirsResponseStatus     ) where -import           Network.AWS.CodeBuild.Types-import           Network.AWS.CodeBuild.Types.Product-import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.CodeBuild.Types+import Network.AWS.CodeBuild.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | /See:/ 'listCuratedEnvironmentImages' smart constructor. data ListCuratedEnvironmentImages =-    ListCuratedEnvironmentImages'-    deriving (Eq,Read,Show,Data,Typeable,Generic)+  ListCuratedEnvironmentImages'+  deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListCuratedEnvironmentImages' with the minimum fields required to make a request. -- listCuratedEnvironmentImages     :: ListCuratedEnvironmentImages listCuratedEnvironmentImages = ListCuratedEnvironmentImages' + instance AWSRequest ListCuratedEnvironmentImages          where         type Rs ListCuratedEnvironmentImages =@@ -65,9 +67,9 @@                    (x .?> "platforms" .!@ mempty) <*>                      (pure (fromEnum s))) -instance Hashable ListCuratedEnvironmentImages+instance Hashable ListCuratedEnvironmentImages where -instance NFData ListCuratedEnvironmentImages+instance NFData ListCuratedEnvironmentImages where  instance ToHeaders ListCuratedEnvironmentImages where         toHeaders@@ -90,10 +92,11 @@  -- | /See:/ 'listCuratedEnvironmentImagesResponse' smart constructor. data ListCuratedEnvironmentImagesResponse = ListCuratedEnvironmentImagesResponse'-    { _lceirsPlatforms      :: !(Maybe [EnvironmentPlatform])-    , _lceirsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _lceirsPlatforms      :: !(Maybe [EnvironmentPlatform])+  , _lceirsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListCuratedEnvironmentImagesResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -105,11 +108,10 @@     :: Int -- ^ 'lceirsResponseStatus'     -> ListCuratedEnvironmentImagesResponse listCuratedEnvironmentImagesResponse pResponseStatus_ =-    ListCuratedEnvironmentImagesResponse'-    { _lceirsPlatforms = Nothing-    , _lceirsResponseStatus = pResponseStatus_-    }+  ListCuratedEnvironmentImagesResponse'+  {_lceirsPlatforms = Nothing, _lceirsResponseStatus = pResponseStatus_} + -- | Information about supported platforms for Docker images that are managed by AWS CodeBuild. lceirsPlatforms :: Lens' ListCuratedEnvironmentImagesResponse [EnvironmentPlatform] lceirsPlatforms = lens _lceirsPlatforms (\ s a -> s{_lceirsPlatforms = a}) . _Default . _Coerce;@@ -119,3 +121,4 @@ lceirsResponseStatus = lens _lceirsResponseStatus (\ s a -> s{_lceirsResponseStatus = a});  instance NFData ListCuratedEnvironmentImagesResponse+         where

@@ -12,15 +12,17 @@  -- | -- Module      : Network.AWS.CodeBuild.ListProjects--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) -- -- Gets a list of build project names, with each build project name representing a single build project. -- --+--+-- This operation returns paginated results. module Network.AWS.CodeBuild.ListProjects     (     -- * Creating a Request@@ -40,20 +42,22 @@     , lprsResponseStatus     ) where -import           Network.AWS.CodeBuild.Types-import           Network.AWS.CodeBuild.Types.Product-import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.CodeBuild.Types+import Network.AWS.CodeBuild.Types.Product+import Network.AWS.Lens+import Network.AWS.Pager+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | /See:/ 'listProjects' smart constructor. data ListProjects = ListProjects'-    { _lpSortOrder :: !(Maybe SortOrderType)-    , _lpNextToken :: !(Maybe Text)-    , _lpSortBy    :: !(Maybe ProjectSortByType)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _lpSortOrder :: !(Maybe SortOrderType)+  , _lpNextToken :: !(Maybe Text)+  , _lpSortBy    :: !(Maybe ProjectSortByType)+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListProjects' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -66,12 +70,10 @@ listProjects     :: ListProjects listProjects =-    ListProjects'-    { _lpSortOrder = Nothing-    , _lpNextToken = Nothing-    , _lpSortBy = Nothing-    }+  ListProjects'+  {_lpSortOrder = Nothing, _lpNextToken = Nothing, _lpSortBy = Nothing} + -- | The order in which to list build projects. Valid values include:     * @ASCENDING@ : List the build project names in ascending order.     * @DESCENDING@ : List the build project names in descending order. Use @sortBy@ to specify the criterion to be used to list build project names. lpSortOrder :: Lens' ListProjects (Maybe SortOrderType) lpSortOrder = lens _lpSortOrder (\ s a -> s{_lpSortOrder = a});@@ -84,6 +86,13 @@ lpSortBy :: Lens' ListProjects (Maybe ProjectSortByType) lpSortBy = lens _lpSortBy (\ s a -> s{_lpSortBy = a}); +instance AWSPager ListProjects where+        page rq rs+          | stop (rs ^. lprsNextToken) = Nothing+          | stop (rs ^. lprsProjects) = Nothing+          | otherwise =+            Just $ rq & lpNextToken .~ rs ^. lprsNextToken+ instance AWSRequest ListProjects where         type Rs ListProjects = ListProjectsResponse         request = postJSON codeBuild@@ -94,9 +103,9 @@                    (x .?> "nextToken") <*> (x .?> "projects") <*>                      (pure (fromEnum s))) -instance Hashable ListProjects+instance Hashable ListProjects where -instance NFData ListProjects+instance NFData ListProjects where  instance ToHeaders ListProjects where         toHeaders@@ -123,11 +132,12 @@  -- | /See:/ 'listProjectsResponse' smart constructor. data ListProjectsResponse = ListProjectsResponse'-    { _lprsNextToken      :: !(Maybe Text)-    , _lprsProjects       :: !(Maybe (List1 Text))-    , _lprsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _lprsNextToken      :: !(Maybe Text)+  , _lprsProjects       :: !(Maybe (List1 Text))+  , _lprsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListProjectsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -141,12 +151,13 @@     :: Int -- ^ 'lprsResponseStatus'     -> ListProjectsResponse listProjectsResponse pResponseStatus_ =-    ListProjectsResponse'-    { _lprsNextToken = Nothing-    , _lprsProjects = Nothing-    , _lprsResponseStatus = pResponseStatus_-    }+  ListProjectsResponse'+  { _lprsNextToken = Nothing+  , _lprsProjects = Nothing+  , _lprsResponseStatus = pResponseStatus_+  } + -- | If there are more than 100 items in the list, only the first 100 items are returned, along with a unique string called a /next token/ . To get the next batch of items in the list, call this operation again, adding the next token to the call. lprsNextToken :: Lens' ListProjectsResponse (Maybe Text) lprsNextToken = lens _lprsNextToken (\ s a -> s{_lprsNextToken = a});@@ -159,4 +170,4 @@ lprsResponseStatus :: Lens' ListProjectsResponse Int lprsResponseStatus = lens _lprsResponseStatus (\ s a -> s{_lprsResponseStatus = a}); -instance NFData ListProjectsResponse+instance NFData ListProjectsResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.CodeBuild.StartBuild--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -42,68 +42,70 @@     , srsResponseStatus     ) where -import           Network.AWS.CodeBuild.Types-import           Network.AWS.CodeBuild.Types.Product-import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.CodeBuild.Types+import Network.AWS.CodeBuild.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | /See:/ 'startBuild' smart constructor. data StartBuild = StartBuild'-    { _sbEnvironmentVariablesOverride :: !(Maybe [EnvironmentVariable])-    , _sbTimeoutInMinutesOverride     :: !(Maybe Nat)-    , _sbSourceVersion                :: !(Maybe Text)-    , _sbBuildspecOverride            :: !(Maybe Text)-    , _sbArtifactsOverride            :: !(Maybe ProjectArtifacts)-    , _sbProjectName                  :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _sbEnvironmentVariablesOverride :: !(Maybe [EnvironmentVariable])+  , _sbTimeoutInMinutesOverride     :: !(Maybe Nat)+  , _sbSourceVersion                :: !(Maybe Text)+  , _sbBuildspecOverride            :: !(Maybe Text)+  , _sbArtifactsOverride            :: !(Maybe ProjectArtifacts)+  , _sbProjectName                  :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'StartBuild' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'sbEnvironmentVariablesOverride' - A set of environment variables that overrides, for this build only, the latest ones already defined in the corresponding build project.+-- * 'sbEnvironmentVariablesOverride' - A set of environment variables that overrides, for this build only, the latest ones already defined in the build project. ----- * 'sbTimeoutInMinutesOverride' - The number of build timeout minutes, from 5 to 480 (8 hours) that overrides, for this build only, the latest setting already defined in the corresponding build project.+-- * 'sbTimeoutInMinutesOverride' - The number of build timeout minutes, from 5 to 480 (8 hours), that overrides, for this build only, the latest setting already defined in the build project. ----- * 'sbSourceVersion' - A version of the build input to be built, for this build only. If not specified, the latest version will be used. If specified, must be one of:     * For AWS CodeCommit or GitHub: the commit ID to use.     * For Amazon Simple Storage Service (Amazon S3): the version ID of the object representing the build input ZIP file to use.+-- * 'sbSourceVersion' - A version of the build input to be built, for this build only. If not specified, the latest version will be used. If specified, must be one of:     * For AWS CodeCommit: the commit ID to use.     * For GitHub: the commit ID, pull request ID, branch name, or tag name that corresponds to the version of the source code you want to build. If a pull request ID is specified, it must use the format @pr/pull-request-ID@ (for example @pr/25@ ). If a branch name is specified, the branch's HEAD commit ID will be used. If not specified, the default branch's HEAD commit ID will be used.     * For Bitbucket: the commit ID, branch name, or tag name that corresponds to the version of the source code you want to build. If a branch name is specified, the branch's HEAD commit ID will be used. If not specified, the default branch's HEAD commit ID will be used.     * For Amazon Simple Storage Service (Amazon S3): the version ID of the object representing the build input ZIP file to use. ----- * 'sbBuildspecOverride' - A build spec declaration that overrides, for this build only, the latest one already defined in the corresponding build project.+-- * 'sbBuildspecOverride' - A build spec declaration that overrides, for this build only, the latest one already defined in the build project. ----- * 'sbArtifactsOverride' - Build output artifact settings that override, for this build only, the latest ones already defined in the corresponding build project.+-- * 'sbArtifactsOverride' - Build output artifact settings that override, for this build only, the latest ones already defined in the build project. -- -- * 'sbProjectName' - The name of the build project to start running a build. startBuild     :: Text -- ^ 'sbProjectName'     -> StartBuild startBuild pProjectName_ =-    StartBuild'-    { _sbEnvironmentVariablesOverride = Nothing-    , _sbTimeoutInMinutesOverride = Nothing-    , _sbSourceVersion = Nothing-    , _sbBuildspecOverride = Nothing-    , _sbArtifactsOverride = Nothing-    , _sbProjectName = pProjectName_-    }+  StartBuild'+  { _sbEnvironmentVariablesOverride = Nothing+  , _sbTimeoutInMinutesOverride = Nothing+  , _sbSourceVersion = Nothing+  , _sbBuildspecOverride = Nothing+  , _sbArtifactsOverride = Nothing+  , _sbProjectName = pProjectName_+  } --- | A set of environment variables that overrides, for this build only, the latest ones already defined in the corresponding build project.++-- | A set of environment variables that overrides, for this build only, the latest ones already defined in the build project. sbEnvironmentVariablesOverride :: Lens' StartBuild [EnvironmentVariable] sbEnvironmentVariablesOverride = lens _sbEnvironmentVariablesOverride (\ s a -> s{_sbEnvironmentVariablesOverride = a}) . _Default . _Coerce; --- | The number of build timeout minutes, from 5 to 480 (8 hours) that overrides, for this build only, the latest setting already defined in the corresponding build project.+-- | The number of build timeout minutes, from 5 to 480 (8 hours), that overrides, for this build only, the latest setting already defined in the build project. sbTimeoutInMinutesOverride :: Lens' StartBuild (Maybe Natural) sbTimeoutInMinutesOverride = lens _sbTimeoutInMinutesOverride (\ s a -> s{_sbTimeoutInMinutesOverride = a}) . mapping _Nat; --- | A version of the build input to be built, for this build only. If not specified, the latest version will be used. If specified, must be one of:     * For AWS CodeCommit or GitHub: the commit ID to use.     * For Amazon Simple Storage Service (Amazon S3): the version ID of the object representing the build input ZIP file to use.+-- | A version of the build input to be built, for this build only. If not specified, the latest version will be used. If specified, must be one of:     * For AWS CodeCommit: the commit ID to use.     * For GitHub: the commit ID, pull request ID, branch name, or tag name that corresponds to the version of the source code you want to build. If a pull request ID is specified, it must use the format @pr/pull-request-ID@ (for example @pr/25@ ). If a branch name is specified, the branch's HEAD commit ID will be used. If not specified, the default branch's HEAD commit ID will be used.     * For Bitbucket: the commit ID, branch name, or tag name that corresponds to the version of the source code you want to build. If a branch name is specified, the branch's HEAD commit ID will be used. If not specified, the default branch's HEAD commit ID will be used.     * For Amazon Simple Storage Service (Amazon S3): the version ID of the object representing the build input ZIP file to use. sbSourceVersion :: Lens' StartBuild (Maybe Text) sbSourceVersion = lens _sbSourceVersion (\ s a -> s{_sbSourceVersion = a}); --- | A build spec declaration that overrides, for this build only, the latest one already defined in the corresponding build project.+-- | A build spec declaration that overrides, for this build only, the latest one already defined in the build project. sbBuildspecOverride :: Lens' StartBuild (Maybe Text) sbBuildspecOverride = lens _sbBuildspecOverride (\ s a -> s{_sbBuildspecOverride = a}); --- | Build output artifact settings that override, for this build only, the latest ones already defined in the corresponding build project.+-- | Build output artifact settings that override, for this build only, the latest ones already defined in the build project. sbArtifactsOverride :: Lens' StartBuild (Maybe ProjectArtifacts) sbArtifactsOverride = lens _sbArtifactsOverride (\ s a -> s{_sbArtifactsOverride = a}); @@ -120,9 +122,9 @@                  StartBuildResponse' <$>                    (x .?> "build") <*> (pure (fromEnum s))) -instance Hashable StartBuild+instance Hashable StartBuild where -instance NFData StartBuild+instance NFData StartBuild where  instance ToHeaders StartBuild where         toHeaders@@ -154,10 +156,11 @@  -- | /See:/ 'startBuildResponse' smart constructor. data StartBuildResponse = StartBuildResponse'-    { _srsBuild          :: !(Maybe Build)-    , _srsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _srsBuild          :: !(Maybe Build)+  , _srsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'StartBuildResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -169,11 +172,10 @@     :: Int -- ^ 'srsResponseStatus'     -> StartBuildResponse startBuildResponse pResponseStatus_ =-    StartBuildResponse'-    { _srsBuild = Nothing-    , _srsResponseStatus = pResponseStatus_-    }+  StartBuildResponse'+  {_srsBuild = Nothing, _srsResponseStatus = pResponseStatus_} + -- | Information about the build to be run. srsBuild :: Lens' StartBuildResponse (Maybe Build) srsBuild = lens _srsBuild (\ s a -> s{_srsBuild = a});@@ -182,4 +184,4 @@ srsResponseStatus :: Lens' StartBuildResponse Int srsResponseStatus = lens _srsResponseStatus (\ s a -> s{_srsResponseStatus = a}); -instance NFData StartBuildResponse+instance NFData StartBuildResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.CodeBuild.StopBuild--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -37,32 +37,31 @@     , sbrsResponseStatus     ) where -import           Network.AWS.CodeBuild.Types-import           Network.AWS.CodeBuild.Types.Product-import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.CodeBuild.Types+import Network.AWS.CodeBuild.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | /See:/ 'stopBuild' smart constructor. newtype StopBuild = StopBuild'-    { _sbId :: Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _sbId :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'StopBuild' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'sbId' - The ID of the build to attempt to stop running.+-- * 'sbId' - The ID of the build. stopBuild     :: Text -- ^ 'sbId'     -> StopBuild-stopBuild pId_ =-    StopBuild'-    { _sbId = pId_-    }+stopBuild pId_ = StopBuild' {_sbId = pId_} --- | The ID of the build to attempt to stop running.++-- | The ID of the build. sbId :: Lens' StopBuild Text sbId = lens _sbId (\ s a -> s{_sbId = a}); @@ -75,9 +74,9 @@                  StopBuildResponse' <$>                    (x .?> "build") <*> (pure (fromEnum s))) -instance Hashable StopBuild+instance Hashable StopBuild where -instance NFData StopBuild+instance NFData StopBuild where  instance ToHeaders StopBuild where         toHeaders@@ -100,27 +99,27 @@  -- | /See:/ 'stopBuildResponse' smart constructor. data StopBuildResponse = StopBuildResponse'-    { _sbrsBuild          :: !(Maybe Build)-    , _sbrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _sbrsBuild          :: !(Maybe Build)+  , _sbrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'StopBuildResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'sbrsBuild' - Information about the build that was attempted to be stopped.+-- * 'sbrsBuild' - Information about the build. -- -- * 'sbrsResponseStatus' - -- | The response status code. stopBuildResponse     :: Int -- ^ 'sbrsResponseStatus'     -> StopBuildResponse stopBuildResponse pResponseStatus_ =-    StopBuildResponse'-    { _sbrsBuild = Nothing-    , _sbrsResponseStatus = pResponseStatus_-    }+  StopBuildResponse'+  {_sbrsBuild = Nothing, _sbrsResponseStatus = pResponseStatus_} --- | Information about the build that was attempted to be stopped.++-- | Information about the build. sbrsBuild :: Lens' StopBuildResponse (Maybe Build) sbrsBuild = lens _sbrsBuild (\ s a -> s{_sbrsBuild = a}); @@ -128,4 +127,4 @@ sbrsResponseStatus :: Lens' StopBuildResponse Int sbrsResponseStatus = lens _sbrsResponseStatus (\ s a -> s{_sbrsResponseStatus = a}); -instance NFData StopBuildResponse+instance NFData StopBuildResponse where

@@ -4,9 +4,9 @@  -- | -- Module      : Network.AWS.CodeBuild.Types--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -17,6 +17,7 @@      -- * Errors     , _ResourceAlreadyExistsException+    , _OAuthProviderException     , _AccountLimitExceededException     , _InvalidInputException     , _ResourceNotFoundException@@ -39,6 +40,9 @@     -- * EnvironmentType     , EnvironmentType (..) +    -- * EnvironmentVariableType+    , EnvironmentVariableType (..)+     -- * LanguageType     , LanguageType (..) @@ -87,6 +91,12 @@     , baMd5sum     , baSha256sum +    -- * BuildNotDeleted+    , BuildNotDeleted+    , buildNotDeleted+    , bndId+    , bndStatusCode+     -- * BuildPhase     , BuildPhase     , buildPhase@@ -118,6 +128,7 @@     -- * EnvironmentVariable     , EnvironmentVariable     , environmentVariable+    , evType     , evName     , evValue @@ -145,6 +156,7 @@     , pSource     , pEncryptionKey     , pLastModified+    , pWebhook     , pDescription     , pServiceRole     , pTags@@ -163,6 +175,7 @@     -- * ProjectEnvironment     , ProjectEnvironment     , projectEnvironment+    , pePrivilegedMode     , peEnvironmentVariables     , peType     , peImage@@ -187,40 +200,47 @@     , tag     , tagValue     , tagKey++    -- * Webhook+    , Webhook+    , webhook+    , wUrl     ) where -import           Network.AWS.CodeBuild.Types.Product-import           Network.AWS.CodeBuild.Types.Sum-import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Sign.V4+import Network.AWS.CodeBuild.Types.Product+import Network.AWS.CodeBuild.Types.Sum+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Sign.V4  -- | API version @2016-10-06@ of the Amazon CodeBuild SDK configuration. codeBuild :: Service codeBuild =-    Service-    { _svcAbbrev = "CodeBuild"-    , _svcSigner = v4-    , _svcPrefix = "codebuild"-    , _svcVersion = "2016-10-06"-    , _svcEndpoint = defaultEndpoint codeBuild-    , _svcTimeout = Just 70-    , _svcCheck = statusSuccess-    , _svcError = parseJSONError "CodeBuild"-    , _svcRetry = retry-    }+  Service+  { _svcAbbrev = "CodeBuild"+  , _svcSigner = v4+  , _svcPrefix = "codebuild"+  , _svcVersion = "2016-10-06"+  , _svcEndpoint = defaultEndpoint codeBuild+  , _svcTimeout = Just 70+  , _svcCheck = statusSuccess+  , _svcError = parseJSONError "CodeBuild"+  , _svcRetry = retry+  }   where     retry =-        Exponential-        { _retryBase = 5.0e-2-        , _retryGrowth = 2-        , _retryAttempts = 5-        , _retryCheck = check-        }+      Exponential+      { _retryBase = 5.0e-2+      , _retryGrowth = 2+      , _retryAttempts = 5+      , _retryCheck = check+      }     check e+      | has (hasCode "ThrottledException" . hasStatus 400) e =+        Just "throttled_exception"       | has (hasStatus 429) e = Just "too_many_requests"       | has (hasCode "ThrottlingException" . hasStatus 400) e =-          Just "throttling_exception"+        Just "throttling_exception"       | has (hasCode "Throttling" . hasStatus 400) e = Just "throttling"       | has (hasStatus 504) e = Just "gateway_timeout"       | has (hasStatus 502) e = Just "bad_gateway"@@ -229,29 +249,41 @@       | has (hasStatus 509) e = Just "limit_exceeded"       | otherwise = Nothing + -- | The specified AWS resource cannot be created, because an AWS resource with the same settings already exists. -- -- _ResourceAlreadyExistsException :: AsError a => Getting (First ServiceError) a ServiceError _ResourceAlreadyExistsException =-    _ServiceError . hasCode "ResourceAlreadyExistsException"+  _MatchServiceError codeBuild "ResourceAlreadyExistsException" ++-- | There was a problem with the underlying OAuth provider.+--+--+_OAuthProviderException :: AsError a => Getting (First ServiceError) a ServiceError+_OAuthProviderException = _MatchServiceError codeBuild "OAuthProviderException"++ -- | An AWS service limit was exceeded for the calling AWS account. -- -- _AccountLimitExceededException :: AsError a => Getting (First ServiceError) a ServiceError _AccountLimitExceededException =-    _ServiceError . hasCode "AccountLimitExceededException"+  _MatchServiceError codeBuild "AccountLimitExceededException" + -- | The input value that was provided is not valid. -- -- _InvalidInputException :: AsError a => Getting (First ServiceError) a ServiceError-_InvalidInputException = _ServiceError . hasCode "InvalidInputException"+_InvalidInputException = _MatchServiceError codeBuild "InvalidInputException" + -- | The specified AWS resource cannot be found. -- -- _ResourceNotFoundException :: AsError a => Getting (First ServiceError) a ServiceError _ResourceNotFoundException =-    _ServiceError . hasCode "ResourceNotFoundException"+  _MatchServiceError codeBuild "ResourceNotFoundException"+

@@ -9,17 +9,17 @@  -- | -- Module      : Network.AWS.CodeBuild.Types.Product--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) -- module Network.AWS.CodeBuild.Types.Product where -import           Network.AWS.CodeBuild.Types.Sum-import           Network.AWS.Lens-import           Network.AWS.Prelude+import Network.AWS.CodeBuild.Types.Sum+import Network.AWS.Lens+import Network.AWS.Prelude  -- | Information about a build. --@@ -27,43 +27,44 @@ -- -- /See:/ 'build' smart constructor. data Build = Build'-    { _bPhases           :: !(Maybe [BuildPhase])-    , _bBuildComplete    :: !(Maybe Bool)-    , _bArn              :: !(Maybe Text)-    , _bStartTime        :: !(Maybe POSIX)-    , _bArtifacts        :: !(Maybe BuildArtifacts)-    , _bEnvironment      :: !(Maybe ProjectEnvironment)-    , _bInitiator        :: !(Maybe Text)-    , _bCurrentPhase     :: !(Maybe Text)-    , _bSourceVersion    :: !(Maybe Text)-    , _bLogs             :: !(Maybe LogsLocation)-    , _bEndTime          :: !(Maybe POSIX)-    , _bProjectName      :: !(Maybe Text)-    , _bBuildStatus      :: !(Maybe StatusType)-    , _bSource           :: !(Maybe ProjectSource)-    , _bId               :: !(Maybe Text)-    , _bTimeoutInMinutes :: !(Maybe Int)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _bPhases           :: !(Maybe [BuildPhase])+  , _bBuildComplete    :: !(Maybe Bool)+  , _bArn              :: !(Maybe Text)+  , _bStartTime        :: !(Maybe POSIX)+  , _bArtifacts        :: !(Maybe BuildArtifacts)+  , _bEnvironment      :: !(Maybe ProjectEnvironment)+  , _bInitiator        :: !(Maybe Text)+  , _bCurrentPhase     :: !(Maybe Text)+  , _bSourceVersion    :: !(Maybe Text)+  , _bLogs             :: !(Maybe LogsLocation)+  , _bEndTime          :: !(Maybe POSIX)+  , _bProjectName      :: !(Maybe Text)+  , _bBuildStatus      :: !(Maybe StatusType)+  , _bSource           :: !(Maybe ProjectSource)+  , _bId               :: !(Maybe Text)+  , _bTimeoutInMinutes :: !(Maybe Int)+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'Build' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'bPhases' - Information about all previous build phases that have completed, and information about any current build phase that has not yet completed.+-- * 'bPhases' - Information about all previous build phases that are completed and information about any current build phase that is not yet complete. ----- * 'bBuildComplete' - Whether the build has finished. Valid values include true if completed; otherwise, false.+-- * 'bBuildComplete' - Whether the build has finished. True if completed; otherwise, false. ----- * 'bArn' - The build's Amazon Resource Name (ARN).+-- * 'bArn' - The Amazon Resource Name (ARN) of the build. -- -- * 'bStartTime' - When the build process started, expressed in Unix time format. ----- * 'bArtifacts' - Information about the build's output artifacts.+-- * 'bArtifacts' - Information about the output artifacts for the build. -- -- * 'bEnvironment' - Information about the build environment for this build. ----- * 'bInitiator' - The entity that started the build. Valid values include:     * If AWS CodePipeline started the build, the pipeline's name, for example @codepipeline/my-demo-pipeline@ .     * If an AWS Identity and Access Management (IAM) user started the build, the user's name, for example @MyUserName@ .     * If the Jenkins plugin for AWS CodeBuild started the build, the string @CodeBuild-Jenkins-Plugin@ .+-- * 'bInitiator' - The entity that started the build. Valid values include:     * If AWS CodePipeline started the build, the pipeline's name (for example, @codepipeline/my-demo-pipeline@ ).     * If an AWS Identity and Access Management (IAM) user started the build, the user's name (for example @MyUserName@ ).     * If the Jenkins plugin for AWS CodeBuild started the build, the string @CodeBuild-Jenkins-Plugin@ . ----- * 'bCurrentPhase' - The build's current build phase.+-- * 'bCurrentPhase' - The current build phase. -- -- * 'bSourceVersion' - Any version identifier for the version of the source code to be built. --@@ -71,46 +72,47 @@ -- -- * 'bEndTime' - When the build process ended, expressed in Unix time format. ----- * 'bProjectName' - The build project's name.+-- * 'bProjectName' - The name of the build project. ----- * 'bBuildStatus' - The build's current status. Valid values include:     * @FAILED@ : The build failed.     * @FAULT@ : The build faulted.     * @IN_PROGRESS@ : The build is still in progress.     * @STOPPED@ : The build stopped.     * @SUCCEEDED@ : The build succeeded.     * @TIMED_OUT@ : The build timed out.+-- * 'bBuildStatus' - The current status of the build. Valid values include:     * @FAILED@ : The build failed.     * @FAULT@ : The build faulted.     * @IN_PROGRESS@ : The build is still in progress.     * @STOPPED@ : The build stopped.     * @SUCCEEDED@ : The build succeeded.     * @TIMED_OUT@ : The build timed out. -- -- * 'bSource' - Information about the source code to be built. ----- * 'bId' - The build's unique ID.+-- * 'bId' - The unique ID for the build. ----- * 'bTimeoutInMinutes' - How long in minutes for AWS CodeBuild to wait to timeout this build if it does not get marked as completed.+-- * 'bTimeoutInMinutes' - How long, in minutes, for AWS CodeBuild to wait before timing out this build if it does not get marked as completed. build     :: Build build =-    Build'-    { _bPhases = Nothing-    , _bBuildComplete = Nothing-    , _bArn = Nothing-    , _bStartTime = Nothing-    , _bArtifacts = Nothing-    , _bEnvironment = Nothing-    , _bInitiator = Nothing-    , _bCurrentPhase = Nothing-    , _bSourceVersion = Nothing-    , _bLogs = Nothing-    , _bEndTime = Nothing-    , _bProjectName = Nothing-    , _bBuildStatus = Nothing-    , _bSource = Nothing-    , _bId = Nothing-    , _bTimeoutInMinutes = Nothing-    }+  Build'+  { _bPhases = Nothing+  , _bBuildComplete = Nothing+  , _bArn = Nothing+  , _bStartTime = Nothing+  , _bArtifacts = Nothing+  , _bEnvironment = Nothing+  , _bInitiator = Nothing+  , _bCurrentPhase = Nothing+  , _bSourceVersion = Nothing+  , _bLogs = Nothing+  , _bEndTime = Nothing+  , _bProjectName = Nothing+  , _bBuildStatus = Nothing+  , _bSource = Nothing+  , _bId = Nothing+  , _bTimeoutInMinutes = Nothing+  } --- | Information about all previous build phases that have completed, and information about any current build phase that has not yet completed.++-- | Information about all previous build phases that are completed and information about any current build phase that is not yet complete. bPhases :: Lens' Build [BuildPhase] bPhases = lens _bPhases (\ s a -> s{_bPhases = a}) . _Default . _Coerce; --- | Whether the build has finished. Valid values include true if completed; otherwise, false.+-- | Whether the build has finished. True if completed; otherwise, false. bBuildComplete :: Lens' Build (Maybe Bool) bBuildComplete = lens _bBuildComplete (\ s a -> s{_bBuildComplete = a}); --- | The build's Amazon Resource Name (ARN).+-- | The Amazon Resource Name (ARN) of the build. bArn :: Lens' Build (Maybe Text) bArn = lens _bArn (\ s a -> s{_bArn = a}); @@ -118,7 +120,7 @@ bStartTime :: Lens' Build (Maybe UTCTime) bStartTime = lens _bStartTime (\ s a -> s{_bStartTime = a}) . mapping _Time; --- | Information about the build's output artifacts.+-- | Information about the output artifacts for the build. bArtifacts :: Lens' Build (Maybe BuildArtifacts) bArtifacts = lens _bArtifacts (\ s a -> s{_bArtifacts = a}); @@ -126,11 +128,11 @@ bEnvironment :: Lens' Build (Maybe ProjectEnvironment) bEnvironment = lens _bEnvironment (\ s a -> s{_bEnvironment = a}); --- | The entity that started the build. Valid values include:     * If AWS CodePipeline started the build, the pipeline's name, for example @codepipeline/my-demo-pipeline@ .     * If an AWS Identity and Access Management (IAM) user started the build, the user's name, for example @MyUserName@ .     * If the Jenkins plugin for AWS CodeBuild started the build, the string @CodeBuild-Jenkins-Plugin@ .+-- | The entity that started the build. Valid values include:     * If AWS CodePipeline started the build, the pipeline's name (for example, @codepipeline/my-demo-pipeline@ ).     * If an AWS Identity and Access Management (IAM) user started the build, the user's name (for example @MyUserName@ ).     * If the Jenkins plugin for AWS CodeBuild started the build, the string @CodeBuild-Jenkins-Plugin@ . bInitiator :: Lens' Build (Maybe Text) bInitiator = lens _bInitiator (\ s a -> s{_bInitiator = a}); --- | The build's current build phase.+-- | The current build phase. bCurrentPhase :: Lens' Build (Maybe Text) bCurrentPhase = lens _bCurrentPhase (\ s a -> s{_bCurrentPhase = a}); @@ -146,11 +148,11 @@ bEndTime :: Lens' Build (Maybe UTCTime) bEndTime = lens _bEndTime (\ s a -> s{_bEndTime = a}) . mapping _Time; --- | The build project's name.+-- | The name of the build project. bProjectName :: Lens' Build (Maybe Text) bProjectName = lens _bProjectName (\ s a -> s{_bProjectName = a}); --- | The build's current status. Valid values include:     * @FAILED@ : The build failed.     * @FAULT@ : The build faulted.     * @IN_PROGRESS@ : The build is still in progress.     * @STOPPED@ : The build stopped.     * @SUCCEEDED@ : The build succeeded.     * @TIMED_OUT@ : The build timed out.+-- | The current status of the build. Valid values include:     * @FAILED@ : The build failed.     * @FAULT@ : The build faulted.     * @IN_PROGRESS@ : The build is still in progress.     * @STOPPED@ : The build stopped.     * @SUCCEEDED@ : The build succeeded.     * @TIMED_OUT@ : The build timed out. bBuildStatus :: Lens' Build (Maybe StatusType) bBuildStatus = lens _bBuildStatus (\ s a -> s{_bBuildStatus = a}); @@ -158,11 +160,11 @@ bSource :: Lens' Build (Maybe ProjectSource) bSource = lens _bSource (\ s a -> s{_bSource = a}); --- | The build's unique ID.+-- | The unique ID for the build. bId :: Lens' Build (Maybe Text) bId = lens _bId (\ s a -> s{_bId = a}); --- | How long in minutes for AWS CodeBuild to wait to timeout this build if it does not get marked as completed.+-- | How long, in minutes, for AWS CodeBuild to wait before timing out this build if it does not get marked as completed. bTimeoutInMinutes :: Lens' Build (Maybe Int) bTimeoutInMinutes = lens _bTimeoutInMinutes (\ s a -> s{_bTimeoutInMinutes = a}); @@ -188,9 +190,9 @@                      <*> (x .:? "id")                      <*> (x .:? "timeoutInMinutes")) -instance Hashable Build+instance Hashable Build where -instance NFData Build+instance NFData Build where  -- | Information about build output artifacts. --@@ -198,16 +200,17 @@ -- -- /See:/ 'buildArtifacts' smart constructor. data BuildArtifacts = BuildArtifacts'-    { _baLocation  :: !(Maybe Text)-    , _baMd5sum    :: !(Maybe Text)-    , _baSha256sum :: !(Maybe Text)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _baLocation  :: !(Maybe Text)+  , _baMd5sum    :: !(Maybe Text)+  , _baSha256sum :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'BuildArtifacts' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'baLocation' - Information about the build artifacts' location.+-- * 'baLocation' - Information about the location of the build artifacts. -- -- * 'baMd5sum' - The MD5 hash of the build artifact. You can use this hash along with a checksum tool to confirm both file integrity and authenticity. --@@ -215,13 +218,11 @@ buildArtifacts     :: BuildArtifacts buildArtifacts =-    BuildArtifacts'-    { _baLocation = Nothing-    , _baMd5sum = Nothing-    , _baSha256sum = Nothing-    }+  BuildArtifacts'+  {_baLocation = Nothing, _baMd5sum = Nothing, _baSha256sum = Nothing} --- | Information about the build artifacts' location.++-- | Information about the location of the build artifacts. baLocation :: Lens' BuildArtifacts (Maybe Text) baLocation = lens _baLocation (\ s a -> s{_baLocation = a}); @@ -241,24 +242,67 @@                    (x .:? "location") <*> (x .:? "md5sum") <*>                      (x .:? "sha256sum")) -instance Hashable BuildArtifacts+instance Hashable BuildArtifacts where -instance NFData BuildArtifacts+instance NFData BuildArtifacts where +-- | Information about a build that could not be successfully deleted.+--+--+--+-- /See:/ 'buildNotDeleted' smart constructor.+data BuildNotDeleted = BuildNotDeleted'+  { _bndId         :: !(Maybe Text)+  , _bndStatusCode :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'BuildNotDeleted' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'bndId' - The ID of the build that could not be successfully deleted.+--+-- * 'bndStatusCode' - Additional information about the build that could not be successfully deleted.+buildNotDeleted+    :: BuildNotDeleted+buildNotDeleted = BuildNotDeleted' {_bndId = Nothing, _bndStatusCode = Nothing}+++-- | The ID of the build that could not be successfully deleted.+bndId :: Lens' BuildNotDeleted (Maybe Text)+bndId = lens _bndId (\ s a -> s{_bndId = a});++-- | Additional information about the build that could not be successfully deleted.+bndStatusCode :: Lens' BuildNotDeleted (Maybe Text)+bndStatusCode = lens _bndStatusCode (\ s a -> s{_bndStatusCode = a});++instance FromJSON BuildNotDeleted where+        parseJSON+          = withObject "BuildNotDeleted"+              (\ x ->+                 BuildNotDeleted' <$>+                   (x .:? "id") <*> (x .:? "statusCode"))++instance Hashable BuildNotDeleted where++instance NFData BuildNotDeleted where+ -- | Information about a stage for a build. -- -- -- -- /See:/ 'buildPhase' smart constructor. data BuildPhase = BuildPhase'-    { _bpContexts          :: !(Maybe [PhaseContext])-    , _bpStartTime         :: !(Maybe POSIX)-    , _bpPhaseStatus       :: !(Maybe StatusType)-    , _bpPhaseType         :: !(Maybe BuildPhaseType)-    , _bpEndTime           :: !(Maybe POSIX)-    , _bpDurationInSeconds :: !(Maybe Integer)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _bpContexts          :: !(Maybe [PhaseContext])+  , _bpStartTime         :: !(Maybe POSIX)+  , _bpPhaseStatus       :: !(Maybe StatusType)+  , _bpPhaseType         :: !(Maybe BuildPhaseType)+  , _bpEndTime           :: !(Maybe POSIX)+  , _bpDurationInSeconds :: !(Maybe Integer)+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'BuildPhase' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -267,25 +311,26 @@ -- -- * 'bpStartTime' - When the build phase started, expressed in Unix time format. ----- * 'bpPhaseStatus' - The build phase's current status. Valid values include:     * @FAILED@ : The build phase failed.     * @FAULT@ : The build phase faulted.     * @IN_PROGRESS@ : The build phase is still in progress.     * @STOPPED@ : The build phase stopped.     * @SUCCEEDED@ : The build phase succeeded.     * @TIMED_OUT@ : The build phase timed out.+-- * 'bpPhaseStatus' - The current status of the build phase. Valid values include:     * @FAILED@ : The build phase failed.     * @FAULT@ : The build phase faulted.     * @IN_PROGRESS@ : The build phase is still in progress.     * @STOPPED@ : The build phase stopped.     * @SUCCEEDED@ : The build phase succeeded.     * @TIMED_OUT@ : The build phase timed out. ----- * 'bpPhaseType' - The build phase's name. Valid values include:     * @BUILD@ : Core build activities typically occur in this build phase.     * @COMPLETED@ : The build has completed.     * @DOWNLOAD_SOURCE@ : Source code is being downloaded in this build phase.     * @FINALIZING@ : The build process is completing in this build phase.     * @INSTALL@ : Installation activities typically occur in this build phase.     * @POST_BUILD@ : Post-build activities typically occur in this build phase.     * @PRE_BUILD@ : Pre-build activities typically occur in this build phase.     * @PROVISIONING@ : The build environment is being set up.     * @SUBMITTED@ : The build has been submitted.     * @UPLOAD_ARTIFACTS@ : Build output artifacts are being uploaded to output location.+-- * 'bpPhaseType' - The name of the build phase. Valid values include:     * @BUILD@ : Core build activities typically occur in this build phase.     * @COMPLETED@ : The build has been completed.     * @DOWNLOAD_SOURCE@ : Source code is being downloaded in this build phase.     * @FINALIZING@ : The build process is completing in this build phase.     * @INSTALL@ : Installation activities typically occur in this build phase.     * @POST_BUILD@ : Post-build activities typically occur in this build phase.     * @PRE_BUILD@ : Pre-build activities typically occur in this build phase.     * @PROVISIONING@ : The build environment is being set up.     * @SUBMITTED@ : The build has been submitted.     * @UPLOAD_ARTIFACTS@ : Build output artifacts are being uploaded to the output location. -- -- * 'bpEndTime' - When the build phase ended, expressed in Unix time format. ----- * 'bpDurationInSeconds' - How long, in seconds, between the build's phase starting and ending times.+-- * 'bpDurationInSeconds' - How long, in seconds, between the starting and ending times of the build's phase. buildPhase     :: BuildPhase buildPhase =-    BuildPhase'-    { _bpContexts = Nothing-    , _bpStartTime = Nothing-    , _bpPhaseStatus = Nothing-    , _bpPhaseType = Nothing-    , _bpEndTime = Nothing-    , _bpDurationInSeconds = Nothing-    }+  BuildPhase'+  { _bpContexts = Nothing+  , _bpStartTime = Nothing+  , _bpPhaseStatus = Nothing+  , _bpPhaseType = Nothing+  , _bpEndTime = Nothing+  , _bpDurationInSeconds = Nothing+  } + -- | Additional information about a build phase, especially to help troubleshoot a failed build. bpContexts :: Lens' BuildPhase [PhaseContext] bpContexts = lens _bpContexts (\ s a -> s{_bpContexts = a}) . _Default . _Coerce;@@ -294,11 +339,11 @@ bpStartTime :: Lens' BuildPhase (Maybe UTCTime) bpStartTime = lens _bpStartTime (\ s a -> s{_bpStartTime = a}) . mapping _Time; --- | The build phase's current status. Valid values include:     * @FAILED@ : The build phase failed.     * @FAULT@ : The build phase faulted.     * @IN_PROGRESS@ : The build phase is still in progress.     * @STOPPED@ : The build phase stopped.     * @SUCCEEDED@ : The build phase succeeded.     * @TIMED_OUT@ : The build phase timed out.+-- | The current status of the build phase. Valid values include:     * @FAILED@ : The build phase failed.     * @FAULT@ : The build phase faulted.     * @IN_PROGRESS@ : The build phase is still in progress.     * @STOPPED@ : The build phase stopped.     * @SUCCEEDED@ : The build phase succeeded.     * @TIMED_OUT@ : The build phase timed out. bpPhaseStatus :: Lens' BuildPhase (Maybe StatusType) bpPhaseStatus = lens _bpPhaseStatus (\ s a -> s{_bpPhaseStatus = a}); --- | The build phase's name. Valid values include:     * @BUILD@ : Core build activities typically occur in this build phase.     * @COMPLETED@ : The build has completed.     * @DOWNLOAD_SOURCE@ : Source code is being downloaded in this build phase.     * @FINALIZING@ : The build process is completing in this build phase.     * @INSTALL@ : Installation activities typically occur in this build phase.     * @POST_BUILD@ : Post-build activities typically occur in this build phase.     * @PRE_BUILD@ : Pre-build activities typically occur in this build phase.     * @PROVISIONING@ : The build environment is being set up.     * @SUBMITTED@ : The build has been submitted.     * @UPLOAD_ARTIFACTS@ : Build output artifacts are being uploaded to output location.+-- | The name of the build phase. Valid values include:     * @BUILD@ : Core build activities typically occur in this build phase.     * @COMPLETED@ : The build has been completed.     * @DOWNLOAD_SOURCE@ : Source code is being downloaded in this build phase.     * @FINALIZING@ : The build process is completing in this build phase.     * @INSTALL@ : Installation activities typically occur in this build phase.     * @POST_BUILD@ : Post-build activities typically occur in this build phase.     * @PRE_BUILD@ : Pre-build activities typically occur in this build phase.     * @PROVISIONING@ : The build environment is being set up.     * @SUBMITTED@ : The build has been submitted.     * @UPLOAD_ARTIFACTS@ : Build output artifacts are being uploaded to the output location. bpPhaseType :: Lens' BuildPhase (Maybe BuildPhaseType) bpPhaseType = lens _bpPhaseType (\ s a -> s{_bpPhaseType = a}); @@ -306,7 +351,7 @@ bpEndTime :: Lens' BuildPhase (Maybe UTCTime) bpEndTime = lens _bpEndTime (\ s a -> s{_bpEndTime = a}) . mapping _Time; --- | How long, in seconds, between the build's phase starting and ending times.+-- | How long, in seconds, between the starting and ending times of the build's phase. bpDurationInSeconds :: Lens' BuildPhase (Maybe Integer) bpDurationInSeconds = lens _bpDurationInSeconds (\ s a -> s{_bpDurationInSeconds = a}); @@ -321,9 +366,9 @@                      <*> (x .:? "endTime")                      <*> (x .:? "durationInSeconds")) -instance Hashable BuildPhase+instance Hashable BuildPhase where -instance NFData BuildPhase+instance NFData BuildPhase where  -- | Information about a Docker image that is managed by AWS CodeBuild. --@@ -331,30 +376,29 @@ -- -- /See:/ 'environmentImage' smart constructor. data EnvironmentImage = EnvironmentImage'-    { _eiName        :: !(Maybe Text)-    , _eiDescription :: !(Maybe Text)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _eiName        :: !(Maybe Text)+  , _eiDescription :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'EnvironmentImage' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'eiName' - The Docker image's name.+-- * 'eiName' - The name of the Docker image. ----- * 'eiDescription' - The Docker image's description.+-- * 'eiDescription' - The description of the Docker image. environmentImage     :: EnvironmentImage environmentImage =-    EnvironmentImage'-    { _eiName = Nothing-    , _eiDescription = Nothing-    }+  EnvironmentImage' {_eiName = Nothing, _eiDescription = Nothing} --- | The Docker image's name.++-- | The name of the Docker image. eiName :: Lens' EnvironmentImage (Maybe Text) eiName = lens _eiName (\ s a -> s{_eiName = a}); --- | The Docker image's description.+-- | The description of the Docker image. eiDescription :: Lens' EnvironmentImage (Maybe Text) eiDescription = lens _eiDescription (\ s a -> s{_eiDescription = a}); @@ -365,9 +409,9 @@                  EnvironmentImage' <$>                    (x .:? "name") <*> (x .:? "description")) -instance Hashable EnvironmentImage+instance Hashable EnvironmentImage where -instance NFData EnvironmentImage+instance NFData EnvironmentImage where  -- | A set of Docker images that are related by programming language and are managed by AWS CodeBuild. --@@ -375,30 +419,29 @@ -- -- /See:/ 'environmentLanguage' smart constructor. data EnvironmentLanguage = EnvironmentLanguage'-    { _elImages   :: !(Maybe [EnvironmentImage])-    , _elLanguage :: !(Maybe LanguageType)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _elImages   :: !(Maybe [EnvironmentImage])+  , _elLanguage :: !(Maybe LanguageType)+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'EnvironmentLanguage' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'elImages' - The list of Docker images that are related by the specified programming language. ----- * 'elLanguage' - The programming language for the related set of Docker images.+-- * 'elLanguage' - The programming language for the Docker images. environmentLanguage     :: EnvironmentLanguage environmentLanguage =-    EnvironmentLanguage'-    { _elImages = Nothing-    , _elLanguage = Nothing-    }+  EnvironmentLanguage' {_elImages = Nothing, _elLanguage = Nothing} + -- | The list of Docker images that are related by the specified programming language. elImages :: Lens' EnvironmentLanguage [EnvironmentImage] elImages = lens _elImages (\ s a -> s{_elImages = a}) . _Default . _Coerce; --- | The programming language for the related set of Docker images.+-- | The programming language for the Docker images. elLanguage :: Lens' EnvironmentLanguage (Maybe LanguageType) elLanguage = lens _elLanguage (\ s a -> s{_elLanguage = a}); @@ -409,9 +452,9 @@                  EnvironmentLanguage' <$>                    (x .:? "images" .!= mempty) <*> (x .:? "language")) -instance Hashable EnvironmentLanguage+instance Hashable EnvironmentLanguage where -instance NFData EnvironmentLanguage+instance NFData EnvironmentLanguage where  -- | A set of Docker images that are related by platform and are managed by AWS CodeBuild. --@@ -419,10 +462,11 @@ -- -- /See:/ 'environmentPlatform' smart constructor. data EnvironmentPlatform = EnvironmentPlatform'-    { _epPlatform  :: !(Maybe PlatformType)-    , _epLanguages :: !(Maybe [EnvironmentLanguage])-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _epPlatform  :: !(Maybe PlatformType)+  , _epLanguages :: !(Maybe [EnvironmentLanguage])+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'EnvironmentPlatform' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -433,11 +477,9 @@ environmentPlatform     :: EnvironmentPlatform environmentPlatform =-    EnvironmentPlatform'-    { _epPlatform = Nothing-    , _epLanguages = Nothing-    }+  EnvironmentPlatform' {_epPlatform = Nothing, _epLanguages = Nothing} + -- | The platform's name. epPlatform :: Lens' EnvironmentPlatform (Maybe PlatformType) epPlatform = lens _epPlatform (\ s a -> s{_epPlatform = a});@@ -454,9 +496,9 @@                    (x .:? "platform") <*>                      (x .:? "languages" .!= mempty)) -instance Hashable EnvironmentPlatform+instance Hashable EnvironmentPlatform where -instance NFData EnvironmentPlatform+instance NFData EnvironmentPlatform where  -- | Information about an environment variable for a build project or a build. --@@ -464,32 +506,38 @@ -- -- /See:/ 'environmentVariable' smart constructor. data EnvironmentVariable = EnvironmentVariable'-    { _evName  :: !Text-    , _evValue :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _evType  :: !(Maybe EnvironmentVariableType)+  , _evName  :: !Text+  , _evValue :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'EnvironmentVariable' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'evName' - The environment variable's name or key.+-- * 'evType' - The type of environment variable. Valid values include:     * @PARAMETER_STORE@ : An environment variable stored in Amazon EC2 Systems Manager Parameter Store.     * @PLAINTEXT@ : An environment variable in plaintext format. ----- * 'evValue' - The environment variable's value.+-- * 'evName' - The name or key of the environment variable.+--+-- * 'evValue' - The value of the environment variable. /Important:/ We strongly discourage using environment variables to store sensitive values, especially AWS secret key IDs and secret access keys. Environment variables can be displayed in plain text using tools such as the AWS CodeBuild console and the AWS Command Line Interface (AWS CLI). environmentVariable     :: Text -- ^ 'evName'     -> Text -- ^ 'evValue'     -> EnvironmentVariable environmentVariable pName_ pValue_ =-    EnvironmentVariable'-    { _evName = pName_-    , _evValue = pValue_-    }+  EnvironmentVariable' {_evType = Nothing, _evName = pName_, _evValue = pValue_} --- | The environment variable's name or key.++-- | The type of environment variable. Valid values include:     * @PARAMETER_STORE@ : An environment variable stored in Amazon EC2 Systems Manager Parameter Store.     * @PLAINTEXT@ : An environment variable in plaintext format.+evType :: Lens' EnvironmentVariable (Maybe EnvironmentVariableType)+evType = lens _evType (\ s a -> s{_evType = a});++-- | The name or key of the environment variable. evName :: Lens' EnvironmentVariable Text evName = lens _evName (\ s a -> s{_evName = a}); --- | The environment variable's value.+-- | The value of the environment variable. /Important:/ We strongly discourage using environment variables to store sensitive values, especially AWS secret key IDs and secret access keys. Environment variables can be displayed in plain text using tools such as the AWS CodeBuild console and the AWS Command Line Interface (AWS CLI). evValue :: Lens' EnvironmentVariable Text evValue = lens _evValue (\ s a -> s{_evValue = a}); @@ -498,17 +546,17 @@           = withObject "EnvironmentVariable"               (\ x ->                  EnvironmentVariable' <$>-                   (x .: "name") <*> (x .: "value"))+                   (x .:? "type") <*> (x .: "name") <*> (x .: "value")) -instance Hashable EnvironmentVariable+instance Hashable EnvironmentVariable where -instance NFData EnvironmentVariable+instance NFData EnvironmentVariable where  instance ToJSON EnvironmentVariable where         toJSON EnvironmentVariable'{..}           = object               (catMaybes-                 [Just ("name" .= _evName),+                 [("type" .=) <$> _evType, Just ("name" .= _evName),                   Just ("value" .= _evValue)])  -- | Information about build logs in Amazon CloudWatch Logs.@@ -517,38 +565,37 @@ -- -- /See:/ 'logsLocation' smart constructor. data LogsLocation = LogsLocation'-    { _llDeepLink   :: !(Maybe Text)-    , _llGroupName  :: !(Maybe Text)-    , _llStreamName :: !(Maybe Text)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _llDeepLink   :: !(Maybe Text)+  , _llGroupName  :: !(Maybe Text)+  , _llStreamName :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'LogsLocation' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'llDeepLink' - The URL to an individual build log in Amazon CloudWatch Logs. ----- * 'llGroupName' - The name of the Amazon CloudWatch Logs group for the associated build logs.+-- * 'llGroupName' - The name of the Amazon CloudWatch Logs group for the build logs. ----- * 'llStreamName' - The name of the Amazon CloudWatch Logs stream for the associated build logs.+-- * 'llStreamName' - The name of the Amazon CloudWatch Logs stream for the build logs. logsLocation     :: LogsLocation logsLocation =-    LogsLocation'-    { _llDeepLink = Nothing-    , _llGroupName = Nothing-    , _llStreamName = Nothing-    }+  LogsLocation'+  {_llDeepLink = Nothing, _llGroupName = Nothing, _llStreamName = Nothing} + -- | The URL to an individual build log in Amazon CloudWatch Logs. llDeepLink :: Lens' LogsLocation (Maybe Text) llDeepLink = lens _llDeepLink (\ s a -> s{_llDeepLink = a}); --- | The name of the Amazon CloudWatch Logs group for the associated build logs.+-- | The name of the Amazon CloudWatch Logs group for the build logs. llGroupName :: Lens' LogsLocation (Maybe Text) llGroupName = lens _llGroupName (\ s a -> s{_llGroupName = a}); --- | The name of the Amazon CloudWatch Logs stream for the associated build logs.+-- | The name of the Amazon CloudWatch Logs stream for the build logs. llStreamName :: Lens' LogsLocation (Maybe Text) llStreamName = lens _llStreamName (\ s a -> s{_llStreamName = a}); @@ -560,36 +607,34 @@                    (x .:? "deepLink") <*> (x .:? "groupName") <*>                      (x .:? "streamName")) -instance Hashable LogsLocation+instance Hashable LogsLocation where -instance NFData LogsLocation+instance NFData LogsLocation where --- | Additional information about a build phase that has an error, which you can use to help troubleshoot a failed build.+-- | Additional information about a build phase that has an error. You can use this information to help troubleshoot a failed build. -- -- -- -- /See:/ 'phaseContext' smart constructor. data PhaseContext = PhaseContext'-    { _pcMessage    :: !(Maybe Text)-    , _pcStatusCode :: !(Maybe Text)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _pcMessage    :: !(Maybe Text)+  , _pcStatusCode :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'PhaseContext' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'pcMessage' - An explanation of the build phase's context. This explanation may include a command ID and an exit code.+-- * 'pcMessage' - An explanation of the build phase's context. This explanation might include a command ID and an exit code. -- -- * 'pcStatusCode' - The status code for the context of the build phase. phaseContext     :: PhaseContext-phaseContext =-    PhaseContext'-    { _pcMessage = Nothing-    , _pcStatusCode = Nothing-    }+phaseContext = PhaseContext' {_pcMessage = Nothing, _pcStatusCode = Nothing} --- | An explanation of the build phase's context. This explanation may include a command ID and an exit code.++-- | An explanation of the build phase's context. This explanation might include a command ID and an exit code. pcMessage :: Lens' PhaseContext (Maybe Text) pcMessage = lens _pcMessage (\ s a -> s{_pcMessage = a}); @@ -604,9 +649,9 @@                  PhaseContext' <$>                    (x .:? "message") <*> (x .:? "statusCode")) -instance Hashable PhaseContext+instance Hashable PhaseContext where -instance NFData PhaseContext+instance NFData PhaseContext where  -- | Information about a build project. --@@ -614,70 +659,76 @@ -- -- /See:/ 'project' smart constructor. data Project = Project'-    { _pArn              :: !(Maybe Text)-    , _pArtifacts        :: !(Maybe ProjectArtifacts)-    , _pEnvironment      :: !(Maybe ProjectEnvironment)-    , _pCreated          :: !(Maybe POSIX)-    , _pName             :: !(Maybe Text)-    , _pSource           :: !(Maybe ProjectSource)-    , _pEncryptionKey    :: !(Maybe Text)-    , _pLastModified     :: !(Maybe POSIX)-    , _pDescription      :: !(Maybe Text)-    , _pServiceRole      :: !(Maybe Text)-    , _pTags             :: !(Maybe [Tag])-    , _pTimeoutInMinutes :: !(Maybe Nat)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _pArn              :: !(Maybe Text)+  , _pArtifacts        :: !(Maybe ProjectArtifacts)+  , _pEnvironment      :: !(Maybe ProjectEnvironment)+  , _pCreated          :: !(Maybe POSIX)+  , _pName             :: !(Maybe Text)+  , _pSource           :: !(Maybe ProjectSource)+  , _pEncryptionKey    :: !(Maybe Text)+  , _pLastModified     :: !(Maybe POSIX)+  , _pWebhook          :: !(Maybe Webhook)+  , _pDescription      :: !(Maybe Text)+  , _pServiceRole      :: !(Maybe Text)+  , _pTags             :: !(Maybe [Tag])+  , _pTimeoutInMinutes :: !(Maybe Nat)+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'Project' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'pArn' - The build project's Amazon Resource Name (ARN).+-- * 'pArn' - The Amazon Resource Name (ARN) of the build project. ----- * 'pArtifacts' - Information about the build project's build output artifacts.+-- * 'pArtifacts' - Information about the build output artifacts for the build project. -- -- * 'pEnvironment' - Information about the build environment for this build project. -- -- * 'pCreated' - When the build project was created, expressed in Unix time format. ----- * 'pName' - The build project's name.+-- * 'pName' - The name of the build project. ----- * 'pSource' - Information about the build project's build input source code.+-- * 'pSource' - Information about the build input source code for this build project. ----- * 'pEncryptionKey' - The AWS Key Management Service (AWS KMS) customer master key (CMK) to be used for encrypting the build project's build output artifacts. This is expressed either as the CMK's Amazon Resource Name (ARN) or, if specified, the CMK's alias (using the format @alias//alias-name/ @ ).+-- * 'pEncryptionKey' - The AWS Key Management Service (AWS KMS) customer master key (CMK) to be used for encrypting the build output artifacts. This is expressed either as the CMK's Amazon Resource Name (ARN) or, if specified, the CMK's alias (using the format @alias//alias-name/ @ ). -- -- * 'pLastModified' - When the build project's settings were last modified, expressed in Unix time format. ----- * 'pDescription' - A meaningful description of the build project.+-- * 'pWebhook' - Information about a webhook in GitHub that connects repository events to a build project in AWS CodeBuild. ----- * 'pServiceRole' - The Amazon Resource Name (ARN) of the AWS Identity and Access Management (IAM) role that enables AWS CodeBuild to interact with dependent AWS services on behalf of the AWS account.+-- * 'pDescription' - A description that makes the build project easy to identify. --+-- * 'pServiceRole' - The ARN of the AWS Identity and Access Management (IAM) role that enables AWS CodeBuild to interact with dependent AWS services on behalf of the AWS account.+-- -- * 'pTags' - The tags for this build project. These tags are available for use by AWS services that support AWS CodeBuild build project tags. ----- * 'pTimeoutInMinutes' - How long in minutes, from 5 to 480 (8 hours), for AWS CodeBuild to wait to timeout any related build that did not get marked as completed. The default is 60 minutes.+-- * 'pTimeoutInMinutes' - How long, in minutes, from 5 to 480 (8 hours), for AWS CodeBuild to wait before timing out any related build that did not get marked as completed. The default is 60 minutes. project     :: Project project =-    Project'-    { _pArn = Nothing-    , _pArtifacts = Nothing-    , _pEnvironment = Nothing-    , _pCreated = Nothing-    , _pName = Nothing-    , _pSource = Nothing-    , _pEncryptionKey = Nothing-    , _pLastModified = Nothing-    , _pDescription = Nothing-    , _pServiceRole = Nothing-    , _pTags = Nothing-    , _pTimeoutInMinutes = Nothing-    }+  Project'+  { _pArn = Nothing+  , _pArtifacts = Nothing+  , _pEnvironment = Nothing+  , _pCreated = Nothing+  , _pName = Nothing+  , _pSource = Nothing+  , _pEncryptionKey = Nothing+  , _pLastModified = Nothing+  , _pWebhook = Nothing+  , _pDescription = Nothing+  , _pServiceRole = Nothing+  , _pTags = Nothing+  , _pTimeoutInMinutes = Nothing+  } --- | The build project's Amazon Resource Name (ARN).++-- | The Amazon Resource Name (ARN) of the build project. pArn :: Lens' Project (Maybe Text) pArn = lens _pArn (\ s a -> s{_pArn = a}); --- | Information about the build project's build output artifacts.+-- | Information about the build output artifacts for the build project. pArtifacts :: Lens' Project (Maybe ProjectArtifacts) pArtifacts = lens _pArtifacts (\ s a -> s{_pArtifacts = a}); @@ -689,15 +740,15 @@ pCreated :: Lens' Project (Maybe UTCTime) pCreated = lens _pCreated (\ s a -> s{_pCreated = a}) . mapping _Time; --- | The build project's name.+-- | The name of the build project. pName :: Lens' Project (Maybe Text) pName = lens _pName (\ s a -> s{_pName = a}); --- | Information about the build project's build input source code.+-- | Information about the build input source code for this build project. pSource :: Lens' Project (Maybe ProjectSource) pSource = lens _pSource (\ s a -> s{_pSource = a}); --- | The AWS Key Management Service (AWS KMS) customer master key (CMK) to be used for encrypting the build project's build output artifacts. This is expressed either as the CMK's Amazon Resource Name (ARN) or, if specified, the CMK's alias (using the format @alias//alias-name/ @ ).+-- | The AWS Key Management Service (AWS KMS) customer master key (CMK) to be used for encrypting the build output artifacts. This is expressed either as the CMK's Amazon Resource Name (ARN) or, if specified, the CMK's alias (using the format @alias//alias-name/ @ ). pEncryptionKey :: Lens' Project (Maybe Text) pEncryptionKey = lens _pEncryptionKey (\ s a -> s{_pEncryptionKey = a}); @@ -705,11 +756,15 @@ pLastModified :: Lens' Project (Maybe UTCTime) pLastModified = lens _pLastModified (\ s a -> s{_pLastModified = a}) . mapping _Time; --- | A meaningful description of the build project.+-- | Information about a webhook in GitHub that connects repository events to a build project in AWS CodeBuild.+pWebhook :: Lens' Project (Maybe Webhook)+pWebhook = lens _pWebhook (\ s a -> s{_pWebhook = a});++-- | A description that makes the build project easy to identify. pDescription :: Lens' Project (Maybe Text) pDescription = lens _pDescription (\ s a -> s{_pDescription = a}); --- | The Amazon Resource Name (ARN) of the AWS Identity and Access Management (IAM) role that enables AWS CodeBuild to interact with dependent AWS services on behalf of the AWS account.+-- | The ARN of the AWS Identity and Access Management (IAM) role that enables AWS CodeBuild to interact with dependent AWS services on behalf of the AWS account. pServiceRole :: Lens' Project (Maybe Text) pServiceRole = lens _pServiceRole (\ s a -> s{_pServiceRole = a}); @@ -717,7 +772,7 @@ pTags :: Lens' Project [Tag] pTags = lens _pTags (\ s a -> s{_pTags = a}) . _Default . _Coerce; --- | How long in minutes, from 5 to 480 (8 hours), for AWS CodeBuild to wait to timeout any related build that did not get marked as completed. The default is 60 minutes.+-- | How long, in minutes, from 5 to 480 (8 hours), for AWS CodeBuild to wait before timing out any related build that did not get marked as completed. The default is 60 minutes. pTimeoutInMinutes :: Lens' Project (Maybe Natural) pTimeoutInMinutes = lens _pTimeoutInMinutes (\ s a -> s{_pTimeoutInMinutes = a}) . mapping _Nat; @@ -733,29 +788,31 @@                      <*> (x .:? "source")                      <*> (x .:? "encryptionKey")                      <*> (x .:? "lastModified")+                     <*> (x .:? "webhook")                      <*> (x .:? "description")                      <*> (x .:? "serviceRole")                      <*> (x .:? "tags" .!= mempty)                      <*> (x .:? "timeoutInMinutes")) -instance Hashable Project+instance Hashable Project where -instance NFData Project+instance NFData Project where --- | Information about the build project's build output artifacts.+-- | Information about the build output artifacts for the build project. -- -- -- -- /See:/ 'projectArtifacts' smart constructor. data ProjectArtifacts = ProjectArtifacts'-    { _paPackaging     :: !(Maybe ArtifactPackaging)-    , _paPath          :: !(Maybe Text)-    , _paLocation      :: !(Maybe Text)-    , _paName          :: !(Maybe Text)-    , _paNamespaceType :: !(Maybe ArtifactNamespace)-    , _paType          :: !ArtifactsType-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _paPackaging     :: !(Maybe ArtifactPackaging)+  , _paPath          :: !(Maybe Text)+  , _paLocation      :: !(Maybe Text)+  , _paName          :: !(Maybe Text)+  , _paNamespaceType :: !(Maybe ArtifactNamespace)+  , _paType          :: !ArtifactsType+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectArtifacts' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -764,26 +821,27 @@ -- -- * 'paPath' - Along with @namespaceType@ and @name@ , the pattern that AWS CodeBuild will use to name and store the output artifact, as follows:     * If @type@ is set to @CODEPIPELINE@ , then AWS CodePipeline will ignore this value if specified. This is because AWS CodePipeline manages its build output names instead of AWS CodeBuild.     * If @type@ is set to @NO_ARTIFACTS@ , then this value will be ignored if specified, because no build output will be produced.     * If @type@ is set to @S3@ , this is the path to the output artifact. If @path@ is not specified, then @path@ will not be used. For example, if @path@ is set to @MyArtifacts@ , @namespaceType@ is set to @NONE@ , and @name@ is set to @MyArtifact.zip@ , then the output artifact would be stored in the output bucket at @MyArtifacts/MyArtifact.zip@ . ----- * 'paLocation' - Information about the build output artifact location, as follows:     * If @type@ is set to @CODEPIPELINE@ , then AWS CodePipeline will ignore this value if specified. This is because AWS CodePipeline manages its build output locations instead of AWS CodeBuild.     * If @type@ is set to @NO_ARTIFACTS@ , then this value will be ignored if specified, because no build output will be produced.     * If @type@ is set to @S3@ , this is the name of the output bucket. If @path@ is not also specified, then @location@ can also specify the path of the output artifact in the output bucket.+-- * 'paLocation' - Information about the build output artifact location, as follows:     * If @type@ is set to @CODEPIPELINE@ , then AWS CodePipeline will ignore this value if specified. This is because AWS CodePipeline manages its build output locations instead of AWS CodeBuild.     * If @type@ is set to @NO_ARTIFACTS@ , then this value will be ignored if specified, because no build output will be produced.     * If @type@ is set to @S3@ , this is the name of the output bucket. -- -- * 'paName' - Along with @path@ and @namespaceType@ , the pattern that AWS CodeBuild will use to name and store the output artifact, as follows:     * If @type@ is set to @CODEPIPELINE@ , then AWS CodePipeline will ignore this value if specified. This is because AWS CodePipeline manages its build output names instead of AWS CodeBuild.     * If @type@ is set to @NO_ARTIFACTS@ , then this value will be ignored if specified, because no build output will be produced.     * If @type@ is set to @S3@ , this is the name of the output artifact object. For example, if @path@ is set to @MyArtifacts@ , @namespaceType@ is set to @BUILD_ID@ , and @name@ is set to @MyArtifact.zip@ , then the output artifact would be stored in @MyArtifacts//build-ID/ /MyArtifact.zip@ . -- -- * 'paNamespaceType' - Along with @path@ and @name@ , the pattern that AWS CodeBuild will use to determine the name and location to store the output artifact, as follows:     * If @type@ is set to @CODEPIPELINE@ , then AWS CodePipeline will ignore this value if specified. This is because AWS CodePipeline manages its build output names instead of AWS CodeBuild.     * If @type@ is set to @NO_ARTIFACTS@ , then this value will be ignored if specified, because no build output will be produced.     * If @type@ is set to @S3@ , then valid values include:     * @BUILD_ID@ : Include the build ID in the location of the build output artifact.     * @NONE@ : Do not include the build ID. This is the default if @namespaceType@ is not specified. For example, if @path@ is set to @MyArtifacts@ , @namespaceType@ is set to @BUILD_ID@ , and @name@ is set to @MyArtifact.zip@ , then the output artifact would be stored in @MyArtifacts//build-ID/ /MyArtifact.zip@ . ----- * 'paType' - The build output artifact's type. Valid values include:     * @CODEPIPELINE@ : The build project with have build output generated through AWS CodePipeline.     * @NO_ARTIFACTS@ : The build project will not produce any build output.     * @S3@ : The build project will store build output in Amazon Simple Storage Service (Amazon S3).+-- * 'paType' - The type of build output artifact. Valid values include:     * @CODEPIPELINE@ : The build project will have build output generated through AWS CodePipeline.     * @NO_ARTIFACTS@ : The build project will not produce any build output.     * @S3@ : The build project will store build output in Amazon Simple Storage Service (Amazon S3). projectArtifacts     :: ArtifactsType -- ^ 'paType'     -> ProjectArtifacts projectArtifacts pType_ =-    ProjectArtifacts'-    { _paPackaging = Nothing-    , _paPath = Nothing-    , _paLocation = Nothing-    , _paName = Nothing-    , _paNamespaceType = Nothing-    , _paType = pType_-    }+  ProjectArtifacts'+  { _paPackaging = Nothing+  , _paPath = Nothing+  , _paLocation = Nothing+  , _paName = Nothing+  , _paNamespaceType = Nothing+  , _paType = pType_+  } + -- | The type of build output artifact to create, as follows:     * If @type@ is set to @CODEPIPELINE@ , then AWS CodePipeline will ignore this value if specified. This is because AWS CodePipeline manages its build output artifacts instead of AWS CodeBuild.     * If @type@ is set to @NO_ARTIFACTS@ , then this value will be ignored if specified, because no build output will be produced.     * If @type@ is set to @S3@ , valid values include:     * @NONE@ : AWS CodeBuild will create in the output bucket a folder containing the build output. This is the default if @packaging@ is not specified.     * @ZIP@ : AWS CodeBuild will create in the output bucket a ZIP file containing the build output. paPackaging :: Lens' ProjectArtifacts (Maybe ArtifactPackaging) paPackaging = lens _paPackaging (\ s a -> s{_paPackaging = a});@@ -792,7 +850,7 @@ paPath :: Lens' ProjectArtifacts (Maybe Text) paPath = lens _paPath (\ s a -> s{_paPath = a}); --- | Information about the build output artifact location, as follows:     * If @type@ is set to @CODEPIPELINE@ , then AWS CodePipeline will ignore this value if specified. This is because AWS CodePipeline manages its build output locations instead of AWS CodeBuild.     * If @type@ is set to @NO_ARTIFACTS@ , then this value will be ignored if specified, because no build output will be produced.     * If @type@ is set to @S3@ , this is the name of the output bucket. If @path@ is not also specified, then @location@ can also specify the path of the output artifact in the output bucket.+-- | Information about the build output artifact location, as follows:     * If @type@ is set to @CODEPIPELINE@ , then AWS CodePipeline will ignore this value if specified. This is because AWS CodePipeline manages its build output locations instead of AWS CodeBuild.     * If @type@ is set to @NO_ARTIFACTS@ , then this value will be ignored if specified, because no build output will be produced.     * If @type@ is set to @S3@ , this is the name of the output bucket. paLocation :: Lens' ProjectArtifacts (Maybe Text) paLocation = lens _paLocation (\ s a -> s{_paLocation = a}); @@ -804,7 +862,7 @@ paNamespaceType :: Lens' ProjectArtifacts (Maybe ArtifactNamespace) paNamespaceType = lens _paNamespaceType (\ s a -> s{_paNamespaceType = a}); --- | The build output artifact's type. Valid values include:     * @CODEPIPELINE@ : The build project with have build output generated through AWS CodePipeline.     * @NO_ARTIFACTS@ : The build project will not produce any build output.     * @S3@ : The build project will store build output in Amazon Simple Storage Service (Amazon S3).+-- | The type of build output artifact. Valid values include:     * @CODEPIPELINE@ : The build project will have build output generated through AWS CodePipeline.     * @NO_ARTIFACTS@ : The build project will not produce any build output.     * @S3@ : The build project will store build output in Amazon Simple Storage Service (Amazon S3). paType :: Lens' ProjectArtifacts ArtifactsType paType = lens _paType (\ s a -> s{_paType = a}); @@ -819,9 +877,9 @@                      <*> (x .:? "namespaceType")                      <*> (x .: "type")) -instance Hashable ProjectArtifacts+instance Hashable ProjectArtifacts where -instance NFData ProjectArtifacts+instance NFData ProjectArtifacts where  instance ToJSON ProjectArtifacts where         toJSON ProjectArtifacts'{..}@@ -834,25 +892,29 @@                   ("namespaceType" .=) <$> _paNamespaceType,                   Just ("type" .= _paType)]) --- | Information about the build project's build environment.+-- | Information about the build environment of the build project. -- -- -- -- /See:/ 'projectEnvironment' smart constructor. data ProjectEnvironment = ProjectEnvironment'-    { _peEnvironmentVariables :: !(Maybe [EnvironmentVariable])-    , _peType                 :: !EnvironmentType-    , _peImage                :: !Text-    , _peComputeType          :: !ComputeType-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _pePrivilegedMode       :: !(Maybe Bool)+  , _peEnvironmentVariables :: !(Maybe [EnvironmentVariable])+  , _peType                 :: !EnvironmentType+  , _peImage                :: !Text+  , _peComputeType          :: !ComputeType+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectEnvironment' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: --+-- * 'pePrivilegedMode' - If set to true, enables running the Docker daemon inside a Docker container; otherwise, false or not specified (the default). This value must be set to true only if this build project will be used to build Docker images, and the specified build environment image is not one provided by AWS CodeBuild with Docker support. Otherwise, all associated builds that attempt to interact with the Docker daemon will fail. Note that you must also start the Docker daemon so that your builds can interact with it as needed. One way to do this is to initialize the Docker daemon in the install phase of your build spec by running the following build commands. (Do not run the following build commands if the specified build environment image is provided by AWS CodeBuild with Docker support.) @- nohup /usr/local/bin/dockerd --host=unix:///var/run/docker.sock --host=tcp://0.0.0.0:2375 --storage-driver=overlay& - timeout -t 15 sh -c "until docker info; do echo .; sleep 1; done"@+-- -- * 'peEnvironmentVariables' - A set of environment variables to make available to builds for this build project. ----- * 'peType' - The type of build environment to use for related builds. The only valid value is @LINUX_CONTAINER@ , which represents a Linux-based build environment.+-- * 'peType' - The type of build environment to use for related builds. -- -- * 'peImage' - The ID of the Docker image to use for this build project. --@@ -863,18 +925,24 @@     -> ComputeType -- ^ 'peComputeType'     -> ProjectEnvironment projectEnvironment pType_ pImage_ pComputeType_ =-    ProjectEnvironment'-    { _peEnvironmentVariables = Nothing-    , _peType = pType_-    , _peImage = pImage_-    , _peComputeType = pComputeType_-    }+  ProjectEnvironment'+  { _pePrivilegedMode = Nothing+  , _peEnvironmentVariables = Nothing+  , _peType = pType_+  , _peImage = pImage_+  , _peComputeType = pComputeType_+  } ++-- | If set to true, enables running the Docker daemon inside a Docker container; otherwise, false or not specified (the default). This value must be set to true only if this build project will be used to build Docker images, and the specified build environment image is not one provided by AWS CodeBuild with Docker support. Otherwise, all associated builds that attempt to interact with the Docker daemon will fail. Note that you must also start the Docker daemon so that your builds can interact with it as needed. One way to do this is to initialize the Docker daemon in the install phase of your build spec by running the following build commands. (Do not run the following build commands if the specified build environment image is provided by AWS CodeBuild with Docker support.) @- nohup /usr/local/bin/dockerd --host=unix:///var/run/docker.sock --host=tcp://0.0.0.0:2375 --storage-driver=overlay& - timeout -t 15 sh -c "until docker info; do echo .; sleep 1; done"@+pePrivilegedMode :: Lens' ProjectEnvironment (Maybe Bool)+pePrivilegedMode = lens _pePrivilegedMode (\ s a -> s{_pePrivilegedMode = a});+ -- | A set of environment variables to make available to builds for this build project. peEnvironmentVariables :: Lens' ProjectEnvironment [EnvironmentVariable] peEnvironmentVariables = lens _peEnvironmentVariables (\ s a -> s{_peEnvironmentVariables = a}) . _Default . _Coerce; --- | The type of build environment to use for related builds. The only valid value is @LINUX_CONTAINER@ , which represents a Linux-based build environment.+-- | The type of build environment to use for related builds. peType :: Lens' ProjectEnvironment EnvironmentType peType = lens _peType (\ s a -> s{_peType = a}); @@ -891,71 +959,75 @@           = withObject "ProjectEnvironment"               (\ x ->                  ProjectEnvironment' <$>-                   (x .:? "environmentVariables" .!= mempty) <*>-                     (x .: "type")+                   (x .:? "privilegedMode") <*>+                     (x .:? "environmentVariables" .!= mempty)+                     <*> (x .: "type")                      <*> (x .: "image")                      <*> (x .: "computeType")) -instance Hashable ProjectEnvironment+instance Hashable ProjectEnvironment where -instance NFData ProjectEnvironment+instance NFData ProjectEnvironment where  instance ToJSON ProjectEnvironment where         toJSON ProjectEnvironment'{..}           = object               (catMaybes-                 [("environmentVariables" .=) <$>+                 [("privilegedMode" .=) <$> _pePrivilegedMode,+                  ("environmentVariables" .=) <$>                     _peEnvironmentVariables,                   Just ("type" .= _peType), Just ("image" .= _peImage),                   Just ("computeType" .= _peComputeType)]) --- | Information about the build project's build input source code.+-- | Information about the build input source code for the build project. -- -- -- -- /See:/ 'projectSource' smart constructor. data ProjectSource = ProjectSource'-    { _psLocation  :: !(Maybe Text)-    , _psAuth      :: !(Maybe SourceAuth)-    , _psBuildspec :: !(Maybe Text)-    , _psType      :: !SourceType-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _psLocation  :: !(Maybe Text)+  , _psAuth      :: !(Maybe SourceAuth)+  , _psBuildspec :: !(Maybe Text)+  , _psType      :: !SourceType+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectSource' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'psLocation' - Information about the location of the source code to be built. Valid values include:     * For source code settings that are specified in the source action of a pipeline in AWS CodePipeline, @location@ should not be specified. If it is specified, AWS CodePipeline will ignore it. This is because AWS CodePipeline uses the settings in a pipeline's source action instead of this value.     * For source code in an AWS CodeCommit repository, the HTTPS clone URL to the repository that contains the source code and the build spec (for example, @https://git-codecommit./region-ID/ .amazonaws.com/v1/repos//repo-name/ @ ).     * For source code in an Amazon Simple Storage Service (Amazon S3) input bucket, the path to the ZIP file that contains the source code (for example, @/bucket-name/ //path/ //to/ //object-name/ .zip@ )     * For source code in a GitHub repository, the HTTPS clone URL, including the user name and personal access token, to the repository that contains the source code and the build spec (for example, @https:///login-user-name/ :/personal-access-token/ @github.com//repo-owner-name/ //repo-name/ .git@ ). For more information, see <https://help.github.com/articles/creating-an-access-token-for-command-line-use/ Creating an Access Token for Command-Line Use> on the GitHub Help website.+-- * 'psLocation' - Information about the location of the source code to be built. Valid values include:     * For source code settings that are specified in the source action of a pipeline in AWS CodePipeline, @location@ should not be specified. If it is specified, AWS CodePipeline will ignore it. This is because AWS CodePipeline uses the settings in a pipeline's source action instead of this value.     * For source code in an AWS CodeCommit repository, the HTTPS clone URL to the repository that contains the source code and the build spec (for example, @https://git-codecommit./region-ID/ .amazonaws.com/v1/repos//repo-name/ @ ).     * For source code in an Amazon Simple Storage Service (Amazon S3) input bucket, the path to the ZIP file that contains the source code (for example, @/bucket-name/ //path/ //to/ //object-name/ .zip@ )     * For source code in a GitHub repository, the HTTPS clone URL to the repository that contains the source and the build spec. Also, you must connect your AWS account to your GitHub account. To do this, use the AWS CodeBuild console to begin creating a build project. When you use the console to connect (or reconnect) with GitHub, on the GitHub __Authorize application__ page that displays, for __Organization access__ , choose __Request access__ next to each repository you want to allow AWS CodeBuild to have access to. Then choose __Authorize application__ . (After you have connected to your GitHub account, you do not need to finish creating the build project, and you may then leave the AWS CodeBuild console.) To instruct AWS CodeBuild to then use this connection, in the @source@ object, set the @auth@ object's @type@ value to @OAUTH@ .     * For source code in a Bitbucket repository, the HTTPS clone URL to the repository that contains the source and the build spec. Also, you must connect your AWS account to your Bitbucket account. To do this, use the AWS CodeBuild console to begin creating a build project. When you use the console to connect (or reconnect) with Bitbucket, on the Bitbucket __Confirm access to your account__ page that displays, choose __Grant access__ . (After you have connected to your Bitbucket account, you do not need to finish creating the build project, and you may then leave the AWS CodeBuild console.) To instruct AWS CodeBuild to then use this connection, in the @source@ object, set the @auth@ object's @type@ value to @OAUTH@ . ----- * 'psAuth' - Information about the authorization settings for AWS CodeBuild to access the source code to be built. This information is only for the AWS CodeBuild console's use. Your code should not get or set this information directly.+-- * 'psAuth' - Information about the authorization settings for AWS CodeBuild to access the source code to be built. This information is for the AWS CodeBuild console's use only. Your code should not get or set this information directly (unless the build project's source @type@ value is @BITBUCKET@ or @GITHUB@ ). ----- * 'psBuildspec' - The build spec declaration to use for this build project's related builds. If this value is not specified, a build spec must be included along with the source code to be built.+-- * 'psBuildspec' - The build spec declaration to use for the builds in this build project. If this value is not specified, a build spec must be included along with the source code to be built. ----- * 'psType' - The type of repository that contains the source code to be built. Valid values include:     * @CODECOMMIT@ : The source code is in an AWS CodeCommit repository.     * @CODEPIPELINE@ : The source code settings are specified in the source action of a pipeline in AWS CodePipeline.     * @GITHUB@ : The source code is in a GitHub repository.     * @S3@ : The source code is in an Amazon Simple Storage Service (Amazon S3) input bucket.+-- * 'psType' - The type of repository that contains the source code to be built. Valid values include:     * @BITBUCKET@ : The source code is in a Bitbucket repository.     * @CODECOMMIT@ : The source code is in an AWS CodeCommit repository.     * @CODEPIPELINE@ : The source code settings are specified in the source action of a pipeline in AWS CodePipeline.     * @GITHUB@ : The source code is in a GitHub repository.     * @S3@ : The source code is in an Amazon Simple Storage Service (Amazon S3) input bucket. projectSource     :: SourceType -- ^ 'psType'     -> ProjectSource projectSource pType_ =-    ProjectSource'-    { _psLocation = Nothing-    , _psAuth = Nothing-    , _psBuildspec = Nothing-    , _psType = pType_-    }+  ProjectSource'+  { _psLocation = Nothing+  , _psAuth = Nothing+  , _psBuildspec = Nothing+  , _psType = pType_+  } --- | Information about the location of the source code to be built. Valid values include:     * For source code settings that are specified in the source action of a pipeline in AWS CodePipeline, @location@ should not be specified. If it is specified, AWS CodePipeline will ignore it. This is because AWS CodePipeline uses the settings in a pipeline's source action instead of this value.     * For source code in an AWS CodeCommit repository, the HTTPS clone URL to the repository that contains the source code and the build spec (for example, @https://git-codecommit./region-ID/ .amazonaws.com/v1/repos//repo-name/ @ ).     * For source code in an Amazon Simple Storage Service (Amazon S3) input bucket, the path to the ZIP file that contains the source code (for example, @/bucket-name/ //path/ //to/ //object-name/ .zip@ )     * For source code in a GitHub repository, the HTTPS clone URL, including the user name and personal access token, to the repository that contains the source code and the build spec (for example, @https:///login-user-name/ :/personal-access-token/ @github.com//repo-owner-name/ //repo-name/ .git@ ). For more information, see <https://help.github.com/articles/creating-an-access-token-for-command-line-use/ Creating an Access Token for Command-Line Use> on the GitHub Help website.++-- | Information about the location of the source code to be built. Valid values include:     * For source code settings that are specified in the source action of a pipeline in AWS CodePipeline, @location@ should not be specified. If it is specified, AWS CodePipeline will ignore it. This is because AWS CodePipeline uses the settings in a pipeline's source action instead of this value.     * For source code in an AWS CodeCommit repository, the HTTPS clone URL to the repository that contains the source code and the build spec (for example, @https://git-codecommit./region-ID/ .amazonaws.com/v1/repos//repo-name/ @ ).     * For source code in an Amazon Simple Storage Service (Amazon S3) input bucket, the path to the ZIP file that contains the source code (for example, @/bucket-name/ //path/ //to/ //object-name/ .zip@ )     * For source code in a GitHub repository, the HTTPS clone URL to the repository that contains the source and the build spec. Also, you must connect your AWS account to your GitHub account. To do this, use the AWS CodeBuild console to begin creating a build project. When you use the console to connect (or reconnect) with GitHub, on the GitHub __Authorize application__ page that displays, for __Organization access__ , choose __Request access__ next to each repository you want to allow AWS CodeBuild to have access to. Then choose __Authorize application__ . (After you have connected to your GitHub account, you do not need to finish creating the build project, and you may then leave the AWS CodeBuild console.) To instruct AWS CodeBuild to then use this connection, in the @source@ object, set the @auth@ object's @type@ value to @OAUTH@ .     * For source code in a Bitbucket repository, the HTTPS clone URL to the repository that contains the source and the build spec. Also, you must connect your AWS account to your Bitbucket account. To do this, use the AWS CodeBuild console to begin creating a build project. When you use the console to connect (or reconnect) with Bitbucket, on the Bitbucket __Confirm access to your account__ page that displays, choose __Grant access__ . (After you have connected to your Bitbucket account, you do not need to finish creating the build project, and you may then leave the AWS CodeBuild console.) To instruct AWS CodeBuild to then use this connection, in the @source@ object, set the @auth@ object's @type@ value to @OAUTH@ . psLocation :: Lens' ProjectSource (Maybe Text) psLocation = lens _psLocation (\ s a -> s{_psLocation = a}); --- | Information about the authorization settings for AWS CodeBuild to access the source code to be built. This information is only for the AWS CodeBuild console's use. Your code should not get or set this information directly.+-- | Information about the authorization settings for AWS CodeBuild to access the source code to be built. This information is for the AWS CodeBuild console's use only. Your code should not get or set this information directly (unless the build project's source @type@ value is @BITBUCKET@ or @GITHUB@ ). psAuth :: Lens' ProjectSource (Maybe SourceAuth) psAuth = lens _psAuth (\ s a -> s{_psAuth = a}); --- | The build spec declaration to use for this build project's related builds. If this value is not specified, a build spec must be included along with the source code to be built.+-- | The build spec declaration to use for the builds in this build project. If this value is not specified, a build spec must be included along with the source code to be built. psBuildspec :: Lens' ProjectSource (Maybe Text) psBuildspec = lens _psBuildspec (\ s a -> s{_psBuildspec = a}); --- | The type of repository that contains the source code to be built. Valid values include:     * @CODECOMMIT@ : The source code is in an AWS CodeCommit repository.     * @CODEPIPELINE@ : The source code settings are specified in the source action of a pipeline in AWS CodePipeline.     * @GITHUB@ : The source code is in a GitHub repository.     * @S3@ : The source code is in an Amazon Simple Storage Service (Amazon S3) input bucket.+-- | The type of repository that contains the source code to be built. Valid values include:     * @BITBUCKET@ : The source code is in a Bitbucket repository.     * @CODECOMMIT@ : The source code is in an AWS CodeCommit repository.     * @CODEPIPELINE@ : The source code settings are specified in the source action of a pipeline in AWS CodePipeline.     * @GITHUB@ : The source code is in a GitHub repository.     * @S3@ : The source code is in an Amazon Simple Storage Service (Amazon S3) input bucket. psType :: Lens' ProjectSource SourceType psType = lens _psType (\ s a -> s{_psType = a}); @@ -968,9 +1040,9 @@                      (x .:? "buildspec")                      <*> (x .: "type")) -instance Hashable ProjectSource+instance Hashable ProjectSource where -instance NFData ProjectSource+instance NFData ProjectSource where  instance ToJSON ProjectSource where         toJSON ProjectSource'{..}@@ -984,15 +1056,16 @@ -- | Information about the authorization settings for AWS CodeBuild to access the source code to be built. -- ----- This information is only for the AWS CodeBuild console's use. Your code should not get or set this information directly.+-- This information is for the AWS CodeBuild console's use only. Your code should not get or set this information directly (unless the build project's source @type@ value is @BITBUCKET@ or @GITHUB@ ). -- -- -- /See:/ 'sourceAuth' smart constructor. data SourceAuth = SourceAuth'-    { _saResource :: !(Maybe Text)-    , _saType     :: !SourceAuthType-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _saResource :: !(Maybe Text)+  , _saType     :: !SourceAuthType+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'SourceAuth' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1003,12 +1076,9 @@ sourceAuth     :: SourceAuthType -- ^ 'saType'     -> SourceAuth-sourceAuth pType_ =-    SourceAuth'-    { _saResource = Nothing-    , _saType = pType_-    }+sourceAuth pType_ = SourceAuth' {_saResource = Nothing, _saType = pType_} + -- | The resource value that applies to the specified authorization type. saResource :: Lens' SourceAuth (Maybe Text) saResource = lens _saResource (\ s a -> s{_saResource = a});@@ -1023,9 +1093,9 @@               (\ x ->                  SourceAuth' <$> (x .:? "resource") <*> (x .: "type")) -instance Hashable SourceAuth+instance Hashable SourceAuth where -instance NFData SourceAuth+instance NFData SourceAuth where  instance ToJSON SourceAuth where         toJSON SourceAuth'{..}@@ -1042,10 +1112,11 @@ -- -- /See:/ 'tag' smart constructor. data Tag = Tag'-    { _tagValue :: !(Maybe Text)-    , _tagKey   :: !(Maybe Text)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _tagValue :: !(Maybe Text)+  , _tagKey   :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'Tag' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1055,12 +1126,9 @@ -- * 'tagKey' - The tag's key. tag     :: Tag-tag =-    Tag'-    { _tagValue = Nothing-    , _tagKey = Nothing-    }+tag = Tag' {_tagValue = Nothing, _tagKey = Nothing} + -- | The tag's value. tagValue :: Lens' Tag (Maybe Text) tagValue = lens _tagValue (\ s a -> s{_tagValue = a});@@ -1074,12 +1142,45 @@           = withObject "Tag"               (\ x -> Tag' <$> (x .:? "value") <*> (x .:? "key")) -instance Hashable Tag+instance Hashable Tag where -instance NFData Tag+instance NFData Tag where  instance ToJSON Tag where         toJSON Tag'{..}           = object               (catMaybes                  [("value" .=) <$> _tagValue, ("key" .=) <$> _tagKey])++-- | Information about a webhook in GitHub that connects repository events to a build project in AWS CodeBuild.+--+--+--+-- /See:/ 'webhook' smart constructor.+newtype Webhook = Webhook'+  { _wUrl :: Maybe Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'Webhook' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'wUrl' - The URL to the webhook.+webhook+    :: Webhook+webhook = Webhook' {_wUrl = Nothing}+++-- | The URL to the webhook.+wUrl :: Lens' Webhook (Maybe Text)+wUrl = lens _wUrl (\ s a -> s{_wUrl = a});++instance FromJSON Webhook where+        parseJSON+          = withObject "Webhook"+              (\ x -> Webhook' <$> (x .:? "url"))++instance Hashable Webhook where++instance NFData Webhook where

@@ -9,21 +9,22 @@  -- | -- Module      : Network.AWS.CodeBuild.Types.Sum--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) -- module Network.AWS.CodeBuild.Types.Sum where -import           Network.AWS.Prelude+import Network.AWS.Prelude  data ArtifactNamespace-    = ANBuildId-    | ANNone-    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)+  = ANBuildId+  | ANNone+  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) + instance FromText ArtifactNamespace where     parser = takeLowerText >>= \case         "build_id" -> pure ANBuildId@@ -49,10 +50,11 @@     parseJSON = parseJSONText "ArtifactNamespace"  data ArtifactPackaging-    = None-    | Zip-    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)+  = None+  | Zip+  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) + instance FromText ArtifactPackaging where     parser = takeLowerText >>= \case         "none" -> pure None@@ -78,11 +80,12 @@     parseJSON = parseJSONText "ArtifactPackaging"  data ArtifactsType-    = Codepipeline-    | NoArtifacts-    | S3-    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)+  = Codepipeline+  | NoArtifacts+  | S3+  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) + instance FromText ArtifactsType where     parser = takeLowerText >>= \case         "codepipeline" -> pure Codepipeline@@ -110,18 +113,19 @@     parseJSON = parseJSONText "ArtifactsType"  data BuildPhaseType-    = Build-    | Completed-    | DownloadSource-    | Finalizing-    | Install-    | PostBuild-    | PreBuild-    | Provisioning-    | Submitted-    | UploadArtifacts-    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)+  = Build+  | Completed+  | DownloadSource+  | Finalizing+  | Install+  | PostBuild+  | PreBuild+  | Provisioning+  | Submitted+  | UploadArtifacts+  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) + instance FromText BuildPhaseType where     parser = takeLowerText >>= \case         "build" -> pure Build@@ -160,11 +164,12 @@     parseJSON = parseJSONText "BuildPhaseType"  data ComputeType-    = BuildGENERAL1Large-    | BuildGENERAL1Medium-    | BuildGENERAL1Small-    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)+  = BuildGENERAL1Large+  | BuildGENERAL1Medium+  | BuildGENERAL1Small+  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) + instance FromText ComputeType where     parser = takeLowerText >>= \case         "build_general1_large" -> pure BuildGENERAL1Large@@ -192,9 +197,10 @@     parseJSON = parseJSONText "ComputeType"  data EnvironmentType =-    LinuxContainer-    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)+  LinuxContainer+  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) + instance FromText EnvironmentType where     parser = takeLowerText >>= \case         "linux_container" -> pure LinuxContainer@@ -217,35 +223,69 @@ instance FromJSON EnvironmentType where     parseJSON = parseJSONText "EnvironmentType" +data EnvironmentVariableType+  = ParameterStore+  | Plaintext+  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)+++instance FromText EnvironmentVariableType where+    parser = takeLowerText >>= \case+        "parameter_store" -> pure ParameterStore+        "plaintext" -> pure Plaintext+        e -> fromTextError $ "Failure parsing EnvironmentVariableType from value: '" <> e+           <> "'. Accepted values: parameter_store, plaintext"++instance ToText EnvironmentVariableType where+    toText = \case+        ParameterStore -> "PARAMETER_STORE"+        Plaintext -> "PLAINTEXT"++instance Hashable     EnvironmentVariableType+instance NFData       EnvironmentVariableType+instance ToByteString EnvironmentVariableType+instance ToQuery      EnvironmentVariableType+instance ToHeader     EnvironmentVariableType++instance ToJSON EnvironmentVariableType where+    toJSON = toJSONText++instance FromJSON EnvironmentVariableType where+    parseJSON = parseJSONText "EnvironmentVariableType"+ data LanguageType-    = Android-    | Base-    | Docker-    | Golang-    | Java-    | NodeJs-    | Python-    | Ruby-    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)+  = Android+  | Base+  | Docker+  | Dotnet+  | Golang+  | Java+  | NodeJs+  | Python+  | Ruby+  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) + instance FromText LanguageType where     parser = takeLowerText >>= \case         "android" -> pure Android         "base" -> pure Base         "docker" -> pure Docker+        "dotnet" -> pure Dotnet         "golang" -> pure Golang         "java" -> pure Java         "node_js" -> pure NodeJs         "python" -> pure Python         "ruby" -> pure Ruby         e -> fromTextError $ "Failure parsing LanguageType from value: '" <> e-           <> "'. Accepted values: android, base, docker, golang, java, node_js, python, ruby"+           <> "'. Accepted values: android, base, docker, dotnet, golang, java, node_js, python, ruby"  instance ToText LanguageType where     toText = \case         Android -> "ANDROID"         Base -> "BASE"         Docker -> "DOCKER"+        Dotnet -> "DOTNET"         Golang -> "GOLANG"         Java -> "JAVA"         NodeJs -> "NODE_JS"@@ -262,11 +302,12 @@     parseJSON = parseJSONText "LanguageType"  data PlatformType-    = AmazonLinux-    | Debian-    | Ubuntu-    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)+  = AmazonLinux+  | Debian+  | Ubuntu+  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) + instance FromText PlatformType where     parser = takeLowerText >>= \case         "amazon_linux" -> pure AmazonLinux@@ -291,11 +332,12 @@     parseJSON = parseJSONText "PlatformType"  data ProjectSortByType-    = CreatedTime-    | LastModifiedTime-    | Name-    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)+  = CreatedTime+  | LastModifiedTime+  | Name+  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) + instance FromText ProjectSortByType where     parser = takeLowerText >>= \case         "created_time" -> pure CreatedTime@@ -320,10 +362,11 @@     toJSON = toJSONText  data SortOrderType-    = Ascending-    | Descending-    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)+  = Ascending+  | Descending+  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) + instance FromText SortOrderType where     parser = takeLowerText >>= \case         "ascending" -> pure Ascending@@ -346,9 +389,10 @@     toJSON = toJSONText  data SourceAuthType =-    Oauth-    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)+  Oauth+  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) + instance FromText SourceAuthType where     parser = takeLowerText >>= \case         "oauth" -> pure Oauth@@ -372,23 +416,27 @@     parseJSON = parseJSONText "SourceAuthType"  data SourceType-    = STCodecommit-    | STCodepipeline-    | STGithub-    | STS3-    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)+  = STBitbucket+  | STCodecommit+  | STCodepipeline+  | STGithub+  | STS3+  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) + instance FromText SourceType where     parser = takeLowerText >>= \case+        "bitbucket" -> pure STBitbucket         "codecommit" -> pure STCodecommit         "codepipeline" -> pure STCodepipeline         "github" -> pure STGithub         "s3" -> pure STS3         e -> fromTextError $ "Failure parsing SourceType from value: '" <> e-           <> "'. Accepted values: codecommit, codepipeline, github, s3"+           <> "'. Accepted values: bitbucket, codecommit, codepipeline, github, s3"  instance ToText SourceType where     toText = \case+        STBitbucket -> "BITBUCKET"         STCodecommit -> "CODECOMMIT"         STCodepipeline -> "CODEPIPELINE"         STGithub -> "GITHUB"@@ -407,13 +455,14 @@     parseJSON = parseJSONText "SourceType"  data StatusType-    = Failed-    | Fault-    | InProgress-    | Stopped-    | Succeeded-    | TimedOut-    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)+  = Failed+  | Fault+  | InProgress+  | Stopped+  | Succeeded+  | TimedOut+  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)+  instance FromText StatusType where     parser = takeLowerText >>= \case

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.CodeBuild.UpdateProject--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Changes the settings of an existing build project.+-- Changes the settings of a build project. -- -- module Network.AWS.CodeBuild.UpdateProject@@ -45,76 +45,78 @@     , uprsResponseStatus     ) where -import           Network.AWS.CodeBuild.Types-import           Network.AWS.CodeBuild.Types.Product-import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.CodeBuild.Types+import Network.AWS.CodeBuild.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | /See:/ 'updateProject' smart constructor. data UpdateProject = UpdateProject'-    { _upArtifacts        :: !(Maybe ProjectArtifacts)-    , _upEnvironment      :: !(Maybe ProjectEnvironment)-    , _upSource           :: !(Maybe ProjectSource)-    , _upEncryptionKey    :: !(Maybe Text)-    , _upDescription      :: !(Maybe Text)-    , _upServiceRole      :: !(Maybe Text)-    , _upTags             :: !(Maybe [Tag])-    , _upTimeoutInMinutes :: !(Maybe Nat)-    , _upName             :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _upArtifacts        :: !(Maybe ProjectArtifacts)+  , _upEnvironment      :: !(Maybe ProjectEnvironment)+  , _upSource           :: !(Maybe ProjectSource)+  , _upEncryptionKey    :: !(Maybe Text)+  , _upDescription      :: !(Maybe Text)+  , _upServiceRole      :: !(Maybe Text)+  , _upTags             :: !(Maybe [Tag])+  , _upTimeoutInMinutes :: !(Maybe Nat)+  , _upName             :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'UpdateProject' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'upArtifacts' - Information to be changed about the build project's build output artifacts.+-- * 'upArtifacts' - Information to be changed about the build output artifacts for the build project. ----- * 'upEnvironment' - Information to be changed about the build project's build environment.+-- * 'upEnvironment' - Information to be changed about the build environment for the build project. ----- * 'upSource' - Information to be changed about the build project's build input source code.+-- * 'upSource' - Information to be changed about the build input source code for the build project. ----- * 'upEncryptionKey' - The replacement AWS Key Management Service (AWS KMS) customer master key (CMK) to be used for encrypting the build project's build output artifacts. You can specify either the CMK's Amazon Resource Name (ARN) or, if available, the CMK's alias (using the format @alias//alias-name/ @ ).+-- * 'upEncryptionKey' - The replacement AWS Key Management Service (AWS KMS) customer master key (CMK) to be used for encrypting the build output artifacts. You can specify either the CMK's Amazon Resource Name (ARN) or, if available, the CMK's alias (using the format @alias//alias-name/ @ ). -- -- * 'upDescription' - A new or replacement description of the build project. ----- * 'upServiceRole' - The replacement Amazon Resource Name (ARN) of the AWS Identity and Access Management (IAM) role that enables AWS CodeBuild to interact with dependent AWS services on behalf of the AWS account.+-- * 'upServiceRole' - The replacement ARN of the AWS Identity and Access Management (IAM) role that enables AWS CodeBuild to interact with dependent AWS services on behalf of the AWS account. -- -- * 'upTags' - The replacement set of tags for this build project. These tags are available for use by AWS services that support AWS CodeBuild build project tags. ----- * 'upTimeoutInMinutes' - The replacement value in minutes, from 5 to 480 (8 hours), for AWS CodeBuild to wait to timeout any related build that did not get marked as completed.+-- * 'upTimeoutInMinutes' - The replacement value in minutes, from 5 to 480 (8 hours), for AWS CodeBuild to wait before timing out any related build that did not get marked as completed. ----- * 'upName' - The name of the existing build project to change settings.+-- * 'upName' - The name of the build project. updateProject     :: Text -- ^ 'upName'     -> UpdateProject updateProject pName_ =-    UpdateProject'-    { _upArtifacts = Nothing-    , _upEnvironment = Nothing-    , _upSource = Nothing-    , _upEncryptionKey = Nothing-    , _upDescription = Nothing-    , _upServiceRole = Nothing-    , _upTags = Nothing-    , _upTimeoutInMinutes = Nothing-    , _upName = pName_-    }+  UpdateProject'+  { _upArtifacts = Nothing+  , _upEnvironment = Nothing+  , _upSource = Nothing+  , _upEncryptionKey = Nothing+  , _upDescription = Nothing+  , _upServiceRole = Nothing+  , _upTags = Nothing+  , _upTimeoutInMinutes = Nothing+  , _upName = pName_+  } --- | Information to be changed about the build project's build output artifacts.++-- | Information to be changed about the build output artifacts for the build project. upArtifacts :: Lens' UpdateProject (Maybe ProjectArtifacts) upArtifacts = lens _upArtifacts (\ s a -> s{_upArtifacts = a}); --- | Information to be changed about the build project's build environment.+-- | Information to be changed about the build environment for the build project. upEnvironment :: Lens' UpdateProject (Maybe ProjectEnvironment) upEnvironment = lens _upEnvironment (\ s a -> s{_upEnvironment = a}); --- | Information to be changed about the build project's build input source code.+-- | Information to be changed about the build input source code for the build project. upSource :: Lens' UpdateProject (Maybe ProjectSource) upSource = lens _upSource (\ s a -> s{_upSource = a}); --- | The replacement AWS Key Management Service (AWS KMS) customer master key (CMK) to be used for encrypting the build project's build output artifacts. You can specify either the CMK's Amazon Resource Name (ARN) or, if available, the CMK's alias (using the format @alias//alias-name/ @ ).+-- | The replacement AWS Key Management Service (AWS KMS) customer master key (CMK) to be used for encrypting the build output artifacts. You can specify either the CMK's Amazon Resource Name (ARN) or, if available, the CMK's alias (using the format @alias//alias-name/ @ ). upEncryptionKey :: Lens' UpdateProject (Maybe Text) upEncryptionKey = lens _upEncryptionKey (\ s a -> s{_upEncryptionKey = a}); @@ -122,7 +124,7 @@ upDescription :: Lens' UpdateProject (Maybe Text) upDescription = lens _upDescription (\ s a -> s{_upDescription = a}); --- | The replacement Amazon Resource Name (ARN) of the AWS Identity and Access Management (IAM) role that enables AWS CodeBuild to interact with dependent AWS services on behalf of the AWS account.+-- | The replacement ARN of the AWS Identity and Access Management (IAM) role that enables AWS CodeBuild to interact with dependent AWS services on behalf of the AWS account. upServiceRole :: Lens' UpdateProject (Maybe Text) upServiceRole = lens _upServiceRole (\ s a -> s{_upServiceRole = a}); @@ -130,11 +132,11 @@ upTags :: Lens' UpdateProject [Tag] upTags = lens _upTags (\ s a -> s{_upTags = a}) . _Default . _Coerce; --- | The replacement value in minutes, from 5 to 480 (8 hours), for AWS CodeBuild to wait to timeout any related build that did not get marked as completed.+-- | The replacement value in minutes, from 5 to 480 (8 hours), for AWS CodeBuild to wait before timing out any related build that did not get marked as completed. upTimeoutInMinutes :: Lens' UpdateProject (Maybe Natural) upTimeoutInMinutes = lens _upTimeoutInMinutes (\ s a -> s{_upTimeoutInMinutes = a}) . mapping _Nat; --- | The name of the existing build project to change settings.+-- | The name of the build project. upName :: Lens' UpdateProject Text upName = lens _upName (\ s a -> s{_upName = a}); @@ -147,9 +149,9 @@                  UpdateProjectResponse' <$>                    (x .?> "project") <*> (pure (fromEnum s))) -instance Hashable UpdateProject+instance Hashable UpdateProject where -instance NFData UpdateProject+instance NFData UpdateProject where  instance ToHeaders UpdateProject where         toHeaders@@ -182,10 +184,11 @@  -- | /See:/ 'updateProjectResponse' smart constructor. data UpdateProjectResponse = UpdateProjectResponse'-    { _uprsProject        :: !(Maybe Project)-    , _uprsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _uprsProject        :: !(Maybe Project)+  , _uprsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'UpdateProjectResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -197,11 +200,10 @@     :: Int -- ^ 'uprsResponseStatus'     -> UpdateProjectResponse updateProjectResponse pResponseStatus_ =-    UpdateProjectResponse'-    { _uprsProject = Nothing-    , _uprsResponseStatus = pResponseStatus_-    }+  UpdateProjectResponse'+  {_uprsProject = Nothing, _uprsResponseStatus = pResponseStatus_} + -- | Information about the build project that was changed. uprsProject :: Lens' UpdateProjectResponse (Maybe Project) uprsProject = lens _uprsProject (\ s a -> s{_uprsProject = a});@@ -210,4 +212,4 @@ uprsResponseStatus :: Lens' UpdateProjectResponse Int uprsResponseStatus = lens _uprsResponseStatus (\ s a -> s{_uprsResponseStatus = a}); -instance NFData UpdateProjectResponse+instance NFData UpdateProjectResponse where

@@ -7,15 +7,15 @@  -- | -- Module      : Network.AWS.CodeBuild.Waiters--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) -- module Network.AWS.CodeBuild.Waiters where -import           Network.AWS.CodeBuild.Types-import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Waiter+import Network.AWS.CodeBuild.Types+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Waiter

@@ -2,9 +2,9 @@  -- | -- Module      : Main--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --

@@ -5,20 +5,20 @@  -- | -- Module      : Test.AWS.Gen.CodeBuild--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) -- module Test.AWS.Gen.CodeBuild where  import Data.Proxy+import Network.AWS.CodeBuild+import Test.AWS.CodeBuild.Internal import Test.AWS.Fixture import Test.AWS.Prelude import Test.Tasty-import Network.AWS.CodeBuild-import Test.AWS.CodeBuild.Internal  -- Auto-generated: the actual test selection needs to be manually placed into -- the top-level so that real test data can be incrementally added.@@ -40,6 +40,9 @@ --         , requestListBuilds $ --             listBuilds --+--         , requestCreateWebhook $+--             createWebhook+-- --         , requestStartBuild $ --             startBuild --@@ -52,6 +55,12 @@ --         , requestBatchGetBuilds $ --             batchGetBuilds --+--         , requestDeleteWebhook $+--             deleteWebhook+--+--         , requestBatchDeleteBuilds $+--             batchDeleteBuilds+-- --         , requestListCuratedEnvironmentImages $ --             listCuratedEnvironmentImages --@@ -76,6 +85,9 @@ --         , responseListBuilds $ --             listBuildsResponse --+--         , responseCreateWebhook $+--             createWebhookResponse+-- --         , responseStartBuild $ --             startBuildResponse --@@ -88,6 +100,12 @@ --         , responseBatchGetBuilds $ --             batchGetBuildsResponse --+--         , responseDeleteWebhook $+--             deleteWebhookResponse+--+--         , responseBatchDeleteBuilds $+--             batchDeleteBuildsResponse+-- --         , responseListCuratedEnvironmentImages $ --             listCuratedEnvironmentImagesResponse --@@ -122,6 +140,11 @@     "ListBuilds"     "fixture/ListBuilds.yaml" +requestCreateWebhook :: CreateWebhook -> TestTree+requestCreateWebhook = req+    "CreateWebhook"+    "fixture/CreateWebhook.yaml"+ requestStartBuild :: StartBuild -> TestTree requestStartBuild = req     "StartBuild"@@ -142,6 +165,16 @@     "BatchGetBuilds"     "fixture/BatchGetBuilds.yaml" +requestDeleteWebhook :: DeleteWebhook -> TestTree+requestDeleteWebhook = req+    "DeleteWebhook"+    "fixture/DeleteWebhook.yaml"++requestBatchDeleteBuilds :: BatchDeleteBuilds -> TestTree+requestBatchDeleteBuilds = req+    "BatchDeleteBuilds"+    "fixture/BatchDeleteBuilds.yaml"+ requestListCuratedEnvironmentImages :: ListCuratedEnvironmentImages -> TestTree requestListCuratedEnvironmentImages = req     "ListCuratedEnvironmentImages"@@ -187,6 +220,13 @@     codeBuild     (Proxy :: Proxy ListBuilds) +responseCreateWebhook :: CreateWebhookResponse -> TestTree+responseCreateWebhook = res+    "CreateWebhookResponse"+    "fixture/CreateWebhookResponse.proto"+    codeBuild+    (Proxy :: Proxy CreateWebhook)+ responseStartBuild :: StartBuildResponse -> TestTree responseStartBuild = res     "StartBuildResponse"@@ -214,6 +254,20 @@     "fixture/BatchGetBuildsResponse.proto"     codeBuild     (Proxy :: Proxy BatchGetBuilds)++responseDeleteWebhook :: DeleteWebhookResponse -> TestTree+responseDeleteWebhook = res+    "DeleteWebhookResponse"+    "fixture/DeleteWebhookResponse.proto"+    codeBuild+    (Proxy :: Proxy DeleteWebhook)++responseBatchDeleteBuilds :: BatchDeleteBuildsResponse -> TestTree+responseBatchDeleteBuilds = res+    "BatchDeleteBuildsResponse"+    "fixture/BatchDeleteBuildsResponse.proto"+    codeBuild+    (Proxy :: Proxy BatchDeleteBuilds)  responseListCuratedEnvironmentImages :: ListCuratedEnvironmentImagesResponse -> TestTree responseListCuratedEnvironmentImages = res