{-# LANGUAGE DataKinds #-} {-# LANGUAGE DerivingStrategies #-} {-# LANGUAGE DuplicateRecordFields #-} {-# LANGUAGE ImportQualifiedPost #-} {-# LANGUAGE LambdaCase #-} {-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE RecordWildCards #-} {-# LANGUAGE StrictData #-} {-# LANGUAGE TypeFamilies #-} {-# LANGUAGE NoImplicitPrelude #-} {-# OPTIONS_GHC -fno-warn-duplicate-exports #-} {-# OPTIONS_GHC -fno-warn-name-shadowing #-} {-# OPTIONS_GHC -fno-warn-unused-binds #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} {-# OPTIONS_GHC -fno-warn-unused-matches #-} -- | -- Module : Gogol.Compute.VpnGateways.Get -- Copyright : (c) 2015-2025 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Toni Cebrián -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- -- Returns the specified VPN gateway. -- -- /See:/ for @compute.vpnGateways.get@. module Gogol.Compute.VpnGateways.Get ( -- * Resource ComputeVpnGatewaysGetResource, -- ** Constructing a Request ComputeVpnGatewaysGet (..), newComputeVpnGatewaysGet, ) where import Gogol.Compute.Types import Gogol.Prelude qualified as Core -- | A resource alias for @compute.vpnGateways.get@ method which the -- 'ComputeVpnGatewaysGet' request conforms to. type ComputeVpnGatewaysGetResource = "compute" Core.:> "v1" Core.:> "projects" Core.:> Core.Capture "project" Core.Text Core.:> "regions" Core.:> Core.Capture "region" Core.Text Core.:> "vpnGateways" Core.:> Core.Capture "vpnGateway" Core.Text Core.:> Core.QueryParam "$.xgafv" Xgafv Core.:> Core.QueryParam "access_token" Core.Text Core.:> Core.QueryParam "callback" Core.Text Core.:> Core.QueryParam "uploadType" Core.Text Core.:> Core.QueryParam "upload_protocol" Core.Text Core.:> Core.QueryParam "alt" Core.AltJSON Core.:> Core.Get '[Core.JSON] VpnGateway -- | Returns the specified VPN gateway. -- -- /See:/ 'newComputeVpnGatewaysGet' smart constructor. data ComputeVpnGatewaysGet = ComputeVpnGatewaysGet { -- | V1 error format. xgafv :: (Core.Maybe Xgafv), -- | OAuth access token. accessToken :: (Core.Maybe Core.Text), -- | JSONP callback :: (Core.Maybe Core.Text), -- | Project ID for this request. project :: Core.Text, -- | Name of the region for this request. region :: Core.Text, -- | Legacy upload protocol for media (e.g. \"media\", \"multipart\"). uploadType :: (Core.Maybe Core.Text), -- | Upload protocol for media (e.g. \"raw\", \"multipart\"). uploadProtocol :: (Core.Maybe Core.Text), -- | Name of the VPN gateway to return. vpnGateway :: Core.Text } deriving (Core.Eq, Core.Show, Core.Generic) -- | Creates a value of 'ComputeVpnGatewaysGet' with the minimum fields required to make a request. newComputeVpnGatewaysGet :: -- | Project ID for this request. See 'project'. Core.Text -> -- | Name of the region for this request. See 'region'. Core.Text -> -- | Name of the VPN gateway to return. See 'vpnGateway'. Core.Text -> ComputeVpnGatewaysGet newComputeVpnGatewaysGet project region vpnGateway = ComputeVpnGatewaysGet { xgafv = Core.Nothing, accessToken = Core.Nothing, callback = Core.Nothing, project = project, region = region, uploadType = Core.Nothing, uploadProtocol = Core.Nothing, vpnGateway = vpnGateway } instance Core.GoogleRequest ComputeVpnGatewaysGet where type Rs ComputeVpnGatewaysGet = VpnGateway type Scopes ComputeVpnGatewaysGet = '[CloudPlatform'FullControl, Compute'FullControl, Compute'Readonly] requestClient ComputeVpnGatewaysGet {..} = go project region vpnGateway xgafv accessToken callback uploadType uploadProtocol (Core.Just Core.AltJSON) computeService where go = Core.buildClient (Core.Proxy :: Core.Proxy ComputeVpnGatewaysGetResource) Core.mempty