{-# 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.Compute.Instances.GetShieldedInstanceIdentity
(
InstancesGetShieldedInstanceIdentityResource
, instancesGetShieldedInstanceIdentity
, InstancesGetShieldedInstanceIdentity
, igsiiProject
, igsiiZone
, igsiiInstance
) where
import Network.Google.Compute.Types
import Network.Google.Prelude
type InstancesGetShieldedInstanceIdentityResource =
"compute" :>
"v1" :>
"projects" :>
Capture "project" Text :>
"zones" :>
Capture "zone" Text :>
"instances" :>
Capture "instance" Text :>
"getShieldedInstanceIdentity" :>
QueryParam "alt" AltJSON :>
Get '[JSON] ShieldedInstanceIdentity
data InstancesGetShieldedInstanceIdentity =
InstancesGetShieldedInstanceIdentity'
{ _igsiiProject :: !Text
, _igsiiZone :: !Text
, _igsiiInstance :: !Text
}
deriving (Eq, Show, Data, Typeable, Generic)
instancesGetShieldedInstanceIdentity
:: Text
-> Text
-> Text
-> InstancesGetShieldedInstanceIdentity
instancesGetShieldedInstanceIdentity pIgsiiProject_ pIgsiiZone_ pIgsiiInstance_ =
InstancesGetShieldedInstanceIdentity'
{ _igsiiProject = pIgsiiProject_
, _igsiiZone = pIgsiiZone_
, _igsiiInstance = pIgsiiInstance_
}
igsiiProject :: Lens' InstancesGetShieldedInstanceIdentity Text
igsiiProject
= lens _igsiiProject (\ s a -> s{_igsiiProject = a})
igsiiZone :: Lens' InstancesGetShieldedInstanceIdentity Text
igsiiZone
= lens _igsiiZone (\ s a -> s{_igsiiZone = a})
igsiiInstance :: Lens' InstancesGetShieldedInstanceIdentity Text
igsiiInstance
= lens _igsiiInstance
(\ s a -> s{_igsiiInstance = a})
instance GoogleRequest
InstancesGetShieldedInstanceIdentity
where
type Rs InstancesGetShieldedInstanceIdentity =
ShieldedInstanceIdentity
type Scopes InstancesGetShieldedInstanceIdentity =
'["https://www.googleapis.com/auth/cloud-platform",
"https://www.googleapis.com/auth/compute",
"https://www.googleapis.com/auth/compute.readonly"]
requestClient
InstancesGetShieldedInstanceIdentity'{..}
= go _igsiiProject _igsiiZone _igsiiInstance
(Just AltJSON)
computeService
where go
= buildClient
(Proxy ::
Proxy InstancesGetShieldedInstanceIdentityResource)
mempty