{-# LANGUAGE DataKinds          #-}
{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric      #-}
{-# LANGUAGE FlexibleInstances  #-}
{-# LANGUAGE NoImplicitPrelude  #-}
{-# LANGUAGE OverloadedStrings  #-}
{-# LANGUAGE RecordWildCards    #-}
{-# LANGUAGE TypeFamilies       #-}
{-# LANGUAGE TypeOperators      #-}

{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
{-# OPTIONS_GHC -fno-warn-unused-binds      #-}
{-# OPTIONS_GHC -fno-warn-unused-imports    #-}

-- |
-- Module      : Network.Google.Resource.Composer.Projects.Locations.Environments.Patch
-- Copyright   : (c) 2015-2016 Brendan Hay
-- License     : Mozilla Public License, v. 2.0.
-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>
-- Stability   : auto-generated
-- Portability : non-portable (GHC extensions)
--
-- Update an environment.
--
-- /See:/ <https://cloud.google.com/composer/ Cloud Composer API Reference> for @composer.projects.locations.environments.patch@.
module Network.Google.Resource.Composer.Projects.Locations.Environments.Patch
    (
    -- * REST Resource
      ProjectsLocationsEnvironmentsPatchResource

    -- * Creating a Request
    , projectsLocationsEnvironmentsPatch
    , ProjectsLocationsEnvironmentsPatch

    -- * Request Lenses
    , plepXgafv
    , plepUploadProtocol
    , plepUpdateMask
    , plepAccessToken
    , plepUploadType
    , plepPayload
    , plepName
    , plepCallback
    ) where

import Network.Google.Composer.Types
import Network.Google.Prelude

-- | A resource alias for @composer.projects.locations.environments.patch@ method which the
-- 'ProjectsLocationsEnvironmentsPatch' request conforms to.
type ProjectsLocationsEnvironmentsPatchResource =
     "v1" :>
       Capture "name" Text :>
         QueryParam "$.xgafv" Xgafv :>
           QueryParam "upload_protocol" Text :>
             QueryParam "updateMask" GFieldMask :>
               QueryParam "access_token" Text :>
                 QueryParam "uploadType" Text :>
                   QueryParam "callback" Text :>
                     QueryParam "alt" AltJSON :>
                       ReqBody '[JSON] Environment :>
                         Patch '[JSON] Operation

-- | Update an environment.
--
-- /See:/ 'projectsLocationsEnvironmentsPatch' smart constructor.
data ProjectsLocationsEnvironmentsPatch =
  ProjectsLocationsEnvironmentsPatch'
    { _plepXgafv :: !(Maybe Xgafv)
    , _plepUploadProtocol :: !(Maybe Text)
    , _plepUpdateMask :: !(Maybe GFieldMask)
    , _plepAccessToken :: !(Maybe Text)
    , _plepUploadType :: !(Maybe Text)
    , _plepPayload :: !Environment
    , _plepName :: !Text
    , _plepCallback :: !(Maybe Text)
    }
  deriving (Eq, Show, Data, Typeable, Generic)


-- | Creates a value of 'ProjectsLocationsEnvironmentsPatch' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
-- * 'plepXgafv'
--
-- * 'plepUploadProtocol'
--
-- * 'plepUpdateMask'
--
-- * 'plepAccessToken'
--
-- * 'plepUploadType'
--
-- * 'plepPayload'
--
-- * 'plepName'
--
-- * 'plepCallback'
projectsLocationsEnvironmentsPatch
    :: Environment -- ^ 'plepPayload'
    -> Text -- ^ 'plepName'
    -> ProjectsLocationsEnvironmentsPatch
projectsLocationsEnvironmentsPatch pPlepPayload_ pPlepName_ =
  ProjectsLocationsEnvironmentsPatch'
    { _plepXgafv = Nothing
    , _plepUploadProtocol = Nothing
    , _plepUpdateMask = Nothing
    , _plepAccessToken = Nothing
    , _plepUploadType = Nothing
    , _plepPayload = pPlepPayload_
    , _plepName = pPlepName_
    , _plepCallback = Nothing
    }


-- | V1 error format.
plepXgafv :: Lens' ProjectsLocationsEnvironmentsPatch (Maybe Xgafv)
plepXgafv
  = lens _plepXgafv (\ s a -> s{_plepXgafv = a})

-- | Upload protocol for media (e.g. \"raw\", \"multipart\").
plepUploadProtocol :: Lens' ProjectsLocationsEnvironmentsPatch (Maybe Text)
plepUploadProtocol
  = lens _plepUploadProtocol
      (\ s a -> s{_plepUploadProtocol = a})

-- | Required. A comma-separated list of paths, relative to \`Environment\`,
-- of fields to update. For example, to set the version of scikit-learn to
-- install in the environment to 0.19.0 and to remove an existing
-- installation of numpy, the \`updateMask\` parameter would include the
-- following two \`paths\` values:
-- \"config.softwareConfig.pypiPackages.scikit-learn\" and
-- \"config.softwareConfig.pypiPackages.numpy\". The included patch
-- environment would specify the scikit-learn version as follows: {
-- \"config\":{ \"softwareConfig\":{ \"pypiPackages\":{
-- \"scikit-learn\":\"==0.19.0\" } } } } Note that in the above example,
-- any existing PyPI packages other than scikit-learn and numpy will be
-- unaffected. Only one update type may be included in a single request\'s
-- \`updateMask\`. For example, one cannot update both the PyPI packages
-- and labels in the same request. However, it is possible to update
-- multiple members of a map field simultaneously in the same request. For
-- example, to set the labels \"label1\" and \"label2\" while clearing
-- \"label3\" (assuming it already exists), one can provide the paths
-- \"labels.label1\", \"labels.label2\", and \"labels.label3\" and populate
-- the patch environment as follows: { \"labels\":{
-- \"label1\":\"new-label1-value\" \"label2\":\"new-label2-value\" } } Note
-- that in the above example, any existing labels that are not included in
-- the \`updateMask\` will be unaffected. It is also possible to replace an
-- entire map field by providing the map field\'s path in the
-- \`updateMask\`. The new value of the field will be that which is
-- provided in the patch environment. For example, to delete all
-- pre-existing user-specified PyPI packages and install botocore at
-- version 1.7.14, the \`updateMask\` would contain the path
-- \"config.softwareConfig.pypiPackages\", and the patch environment would
-- be the following: { \"config\":{ \"softwareConfig\":{ \"pypiPackages\":{
-- \"botocore\":\"==1.7.14\" } } } } **Note:** Only the following fields
-- can be updated: * \`config.softwareConfig.pypiPackages\` * Replace all
-- custom custom PyPI packages. If a replacement package map is not
-- included in \`environment\`, all custom PyPI packages are cleared. It is
-- an error to provide both this mask and a mask specifying an individual
-- package. * \`config.softwareConfig.pypiPackages.\`packagename * Update
-- the custom PyPI package *packagename*, preserving other packages. To
-- delete the package, include it in \`updateMask\`, and omit the mapping
-- for it in \`environment.config.softwareConfig.pypiPackages\`. It is an
-- error to provide both a mask of this form and the
-- \`config.softwareConfig.pypiPackages\` mask. * \`labels\` * Replace all
-- environment labels. If a replacement labels map is not included in
-- \`environment\`, all labels are cleared. It is an error to provide both
-- this mask and a mask specifying one or more individual labels. *
-- \`labels.\`labelName * Set the label named *labelName*, while preserving
-- other labels. To delete the label, include it in \`updateMask\` and omit
-- its mapping in \`environment.labels\`. It is an error to provide both a
-- mask of this form and the \`labels\` mask. * \`config.nodeCount\` *
-- Horizontally scale the number of nodes in the environment. An integer
-- greater than or equal to 3 must be provided in the \`config.nodeCount\`
-- field. * \`config.webServerNetworkAccessControl\` * Replace the
-- environment\'s current \`WebServerNetworkAccessControl\`. *
-- \`config.databaseConfig\` * Replace the environment\'s current
-- \`DatabaseConfig\`. * \`config.webServerConfig\` * Replace the
-- environment\'s current \`WebServerConfig\`. *
-- \`config.softwareConfig.airflowConfigOverrides\` * Replace all Apache
-- Airflow config overrides. If a replacement config overrides map is not
-- included in \`environment\`, all config overrides are cleared. It is an
-- error to provide both this mask and a mask specifying one or more
-- individual config overrides. *
-- \`config.softwareConfig.airflowConfigOverrides.\`section-name * Override
-- the Apache Airflow config property *name* in the section named
-- *section*, preserving other properties. To delete the property override,
-- include it in \`updateMask\` and omit its mapping in
-- \`environment.config.softwareConfig.airflowConfigOverrides\`. It is an
-- error to provide both a mask of this form and the
-- \`config.softwareConfig.airflowConfigOverrides\` mask. *
-- \`config.softwareConfig.envVariables\` * Replace all environment
-- variables. If a replacement environment variable map is not included in
-- \`environment\`, all custom environment variables are cleared. It is an
-- error to provide both this mask and a mask specifying one or more
-- individual environment variables.
plepUpdateMask :: Lens' ProjectsLocationsEnvironmentsPatch (Maybe GFieldMask)
plepUpdateMask
  = lens _plepUpdateMask
      (\ s a -> s{_plepUpdateMask = a})

-- | OAuth access token.
plepAccessToken :: Lens' ProjectsLocationsEnvironmentsPatch (Maybe Text)
plepAccessToken
  = lens _plepAccessToken
      (\ s a -> s{_plepAccessToken = a})

-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").
plepUploadType :: Lens' ProjectsLocationsEnvironmentsPatch (Maybe Text)
plepUploadType
  = lens _plepUploadType
      (\ s a -> s{_plepUploadType = a})

-- | Multipart request metadata.
plepPayload :: Lens' ProjectsLocationsEnvironmentsPatch Environment
plepPayload
  = lens _plepPayload (\ s a -> s{_plepPayload = a})

-- | The relative resource name of the environment to update, in the form:
-- \"projects\/{projectId}\/locations\/{locationId}\/environments\/{environmentId}\"
plepName :: Lens' ProjectsLocationsEnvironmentsPatch Text
plepName = lens _plepName (\ s a -> s{_plepName = a})

-- | JSONP
plepCallback :: Lens' ProjectsLocationsEnvironmentsPatch (Maybe Text)
plepCallback
  = lens _plepCallback (\ s a -> s{_plepCallback = a})

instance GoogleRequest
           ProjectsLocationsEnvironmentsPatch
         where
        type Rs ProjectsLocationsEnvironmentsPatch =
             Operation
        type Scopes ProjectsLocationsEnvironmentsPatch =
             '["https://www.googleapis.com/auth/cloud-platform"]
        requestClient ProjectsLocationsEnvironmentsPatch'{..}
          = go _plepName _plepXgafv _plepUploadProtocol
              _plepUpdateMask
              _plepAccessToken
              _plepUploadType
              _plepCallback
              (Just AltJSON)
              _plepPayload
              composerService
          where go
                  = buildClient
                      (Proxy ::
                         Proxy ProjectsLocationsEnvironmentsPatchResource)
                      mempty
