{-# 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.TagManager.Accounts.Containers.Versions.Publish
(
AccountsContainersVersionsPublishResource
, accountsContainersVersionsPublish
, AccountsContainersVersionsPublish
, acvpPath
, acvpFingerprint
) where
import Network.Google.Prelude
import Network.Google.TagManager.Types
type AccountsContainersVersionsPublishResource =
"tagmanager" :>
"v2" :>
CaptureMode "path" "publish" Text :>
QueryParam "fingerprint" Text :>
QueryParam "alt" AltJSON :>
Post '[JSON] PublishContainerVersionResponse
data AccountsContainersVersionsPublish =
AccountsContainersVersionsPublish'
{ _acvpPath :: !Text
, _acvpFingerprint :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
accountsContainersVersionsPublish
:: Text
-> AccountsContainersVersionsPublish
accountsContainersVersionsPublish pAcvpPath_ =
AccountsContainersVersionsPublish'
{_acvpPath = pAcvpPath_, _acvpFingerprint = Nothing}
acvpPath :: Lens' AccountsContainersVersionsPublish Text
acvpPath = lens _acvpPath (\ s a -> s{_acvpPath = a})
acvpFingerprint :: Lens' AccountsContainersVersionsPublish (Maybe Text)
acvpFingerprint
= lens _acvpFingerprint
(\ s a -> s{_acvpFingerprint = a})
instance GoogleRequest
AccountsContainersVersionsPublish
where
type Rs AccountsContainersVersionsPublish =
PublishContainerVersionResponse
type Scopes AccountsContainersVersionsPublish =
'["https://www.googleapis.com/auth/tagmanager.publish"]
requestClient AccountsContainersVersionsPublish'{..}
= go _acvpPath _acvpFingerprint (Just AltJSON)
tagManagerService
where go
= buildClient
(Proxy ::
Proxy AccountsContainersVersionsPublishResource)
mempty