Get.hs

{-# 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.Container.Projects.Zones.Clusters.NodePools.Get
-- 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)
--
-- Retrieves the node pool requested.
--
-- /See:/ <https://cloud.google.com/container-engine/ Google Container Engine API Reference> for @container.projects.zones.clusters.nodePools.get@.
module Network.Google.Resource.Container.Projects.Zones.Clusters.NodePools.Get
    (
    -- * REST Resource
      ProjectsZonesClustersNodePoolsGetResource

    -- * Creating a Request
    , projectsZonesClustersNodePoolsGet
    , ProjectsZonesClustersNodePoolsGet

    -- * Request Lenses
    , pzcnpgXgafv
    , pzcnpgUploadProtocol
    , pzcnpgPp
    , pzcnpgAccessToken
    , pzcnpgUploadType
    , pzcnpgZone
    , pzcnpgNodePoolId
    , pzcnpgBearerToken
    , pzcnpgClusterId
    , pzcnpgProjectId
    , pzcnpgCallback
    ) where

import           Network.Google.Container.Types
import           Network.Google.Prelude

-- | A resource alias for @container.projects.zones.clusters.nodePools.get@ method which the
-- 'ProjectsZonesClustersNodePoolsGet' request conforms to.
type ProjectsZonesClustersNodePoolsGetResource =
     "v1" :>
       "projects" :>
         Capture "projectId" Text :>
           "zones" :>
             Capture "zone" Text :>
               "clusters" :>
                 Capture "clusterId" Text :>
                   "nodePools" :>
                     Capture "nodePoolId" Text :>
                       QueryParam "$.xgafv" Text :>
                         QueryParam "upload_protocol" Text :>
                           QueryParam "pp" Bool :>
                             QueryParam "access_token" Text :>
                               QueryParam "uploadType" Text :>
                                 QueryParam "bearer_token" Text :>
                                   QueryParam "callback" Text :>
                                     QueryParam "alt" AltJSON :>
                                       Get '[JSON] NodePool

-- | Retrieves the node pool requested.
--
-- /See:/ 'projectsZonesClustersNodePoolsGet' smart constructor.
data ProjectsZonesClustersNodePoolsGet = ProjectsZonesClustersNodePoolsGet'
    { _pzcnpgXgafv          :: !(Maybe Text)
    , _pzcnpgUploadProtocol :: !(Maybe Text)
    , _pzcnpgPp             :: !Bool
    , _pzcnpgAccessToken    :: !(Maybe Text)
    , _pzcnpgUploadType     :: !(Maybe Text)
    , _pzcnpgZone           :: !Text
    , _pzcnpgNodePoolId     :: !Text
    , _pzcnpgBearerToken    :: !(Maybe Text)
    , _pzcnpgClusterId      :: !Text
    , _pzcnpgProjectId      :: !Text
    , _pzcnpgCallback       :: !(Maybe Text)
    } deriving (Eq,Show,Data,Typeable,Generic)

-- | Creates a value of 'ProjectsZonesClustersNodePoolsGet' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
-- * 'pzcnpgXgafv'
--
-- * 'pzcnpgUploadProtocol'
--
-- * 'pzcnpgPp'
--
-- * 'pzcnpgAccessToken'
--
-- * 'pzcnpgUploadType'
--
-- * 'pzcnpgZone'
--
-- * 'pzcnpgNodePoolId'
--
-- * 'pzcnpgBearerToken'
--
-- * 'pzcnpgClusterId'
--
-- * 'pzcnpgProjectId'
--
-- * 'pzcnpgCallback'
projectsZonesClustersNodePoolsGet
    :: Text -- ^ 'pzcnpgZone'
    -> Text -- ^ 'pzcnpgNodePoolId'
    -> Text -- ^ 'pzcnpgClusterId'
    -> Text -- ^ 'pzcnpgProjectId'
    -> ProjectsZonesClustersNodePoolsGet
projectsZonesClustersNodePoolsGet pPzcnpgZone_ pPzcnpgNodePoolId_ pPzcnpgClusterId_ pPzcnpgProjectId_ =
    ProjectsZonesClustersNodePoolsGet'
    { _pzcnpgXgafv = Nothing
    , _pzcnpgUploadProtocol = Nothing
    , _pzcnpgPp = True
    , _pzcnpgAccessToken = Nothing
    , _pzcnpgUploadType = Nothing
    , _pzcnpgZone = pPzcnpgZone_
    , _pzcnpgNodePoolId = pPzcnpgNodePoolId_
    , _pzcnpgBearerToken = Nothing
    , _pzcnpgClusterId = pPzcnpgClusterId_
    , _pzcnpgProjectId = pPzcnpgProjectId_
    , _pzcnpgCallback = Nothing
    }

-- | V1 error format.
pzcnpgXgafv :: Lens' ProjectsZonesClustersNodePoolsGet (Maybe Text)
pzcnpgXgafv
  = lens _pzcnpgXgafv (\ s a -> s{_pzcnpgXgafv = a})

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

-- | Pretty-print response.
pzcnpgPp :: Lens' ProjectsZonesClustersNodePoolsGet Bool
pzcnpgPp = lens _pzcnpgPp (\ s a -> s{_pzcnpgPp = a})

-- | OAuth access token.
pzcnpgAccessToken :: Lens' ProjectsZonesClustersNodePoolsGet (Maybe Text)
pzcnpgAccessToken
  = lens _pzcnpgAccessToken
      (\ s a -> s{_pzcnpgAccessToken = a})

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

-- | The name of the Google Compute Engine
-- [zone](\/compute\/docs\/zones#available) in which the cluster resides.
pzcnpgZone :: Lens' ProjectsZonesClustersNodePoolsGet Text
pzcnpgZone
  = lens _pzcnpgZone (\ s a -> s{_pzcnpgZone = a})

-- | The name of the node pool.
pzcnpgNodePoolId :: Lens' ProjectsZonesClustersNodePoolsGet Text
pzcnpgNodePoolId
  = lens _pzcnpgNodePoolId
      (\ s a -> s{_pzcnpgNodePoolId = a})

-- | OAuth bearer token.
pzcnpgBearerToken :: Lens' ProjectsZonesClustersNodePoolsGet (Maybe Text)
pzcnpgBearerToken
  = lens _pzcnpgBearerToken
      (\ s a -> s{_pzcnpgBearerToken = a})

-- | The name of the cluster.
pzcnpgClusterId :: Lens' ProjectsZonesClustersNodePoolsGet Text
pzcnpgClusterId
  = lens _pzcnpgClusterId
      (\ s a -> s{_pzcnpgClusterId = a})

-- | The Google Developers Console [project ID or project
-- number](https:\/\/developers.google.com\/console\/help\/new\/#projectnumber).
pzcnpgProjectId :: Lens' ProjectsZonesClustersNodePoolsGet Text
pzcnpgProjectId
  = lens _pzcnpgProjectId
      (\ s a -> s{_pzcnpgProjectId = a})

-- | JSONP
pzcnpgCallback :: Lens' ProjectsZonesClustersNodePoolsGet (Maybe Text)
pzcnpgCallback
  = lens _pzcnpgCallback
      (\ s a -> s{_pzcnpgCallback = a})

instance GoogleRequest
         ProjectsZonesClustersNodePoolsGet where
        type Rs ProjectsZonesClustersNodePoolsGet = NodePool
        type Scopes ProjectsZonesClustersNodePoolsGet =
             '["https://www.googleapis.com/auth/cloud-platform"]
        requestClient ProjectsZonesClustersNodePoolsGet'{..}
          = go _pzcnpgProjectId _pzcnpgZone _pzcnpgClusterId
              _pzcnpgNodePoolId
              _pzcnpgXgafv
              _pzcnpgUploadProtocol
              (Just _pzcnpgPp)
              _pzcnpgAccessToken
              _pzcnpgUploadType
              _pzcnpgBearerToken
              _pzcnpgCallback
              (Just AltJSON)
              containerService
          where go
                  = buildClient
                      (Proxy ::
                         Proxy ProjectsZonesClustersNodePoolsGetResource)
                      mempty