{-# 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.Storage.Projects.HmacKeys.Delete
(
ProjectsHmacKeysDeleteResource
, projectsHmacKeysDelete
, ProjectsHmacKeysDelete
, phkdProjectId
, phkdAccessId
) where
import Network.Google.Prelude
import Network.Google.Storage.Types
type ProjectsHmacKeysDeleteResource =
"storage" :>
"v1" :>
"projects" :>
Capture "projectId" Text :>
"hmacKeys" :>
Capture "accessId" Text :>
QueryParam "alt" AltJSON :> Delete '[JSON] ()
data ProjectsHmacKeysDelete =
ProjectsHmacKeysDelete'
{ _phkdProjectId :: !Text
, _phkdAccessId :: !Text
}
deriving (Eq, Show, Data, Typeable, Generic)
projectsHmacKeysDelete
:: Text
-> Text
-> ProjectsHmacKeysDelete
projectsHmacKeysDelete pPhkdProjectId_ pPhkdAccessId_ =
ProjectsHmacKeysDelete'
{_phkdProjectId = pPhkdProjectId_, _phkdAccessId = pPhkdAccessId_}
phkdProjectId :: Lens' ProjectsHmacKeysDelete Text
phkdProjectId
= lens _phkdProjectId
(\ s a -> s{_phkdProjectId = a})
phkdAccessId :: Lens' ProjectsHmacKeysDelete Text
phkdAccessId
= lens _phkdAccessId (\ s a -> s{_phkdAccessId = a})
instance GoogleRequest ProjectsHmacKeysDelete where
type Rs ProjectsHmacKeysDelete = ()
type Scopes ProjectsHmacKeysDelete =
'["https://www.googleapis.com/auth/cloud-platform",
"https://www.googleapis.com/auth/devstorage.full_control",
"https://www.googleapis.com/auth/devstorage.read_write"]
requestClient ProjectsHmacKeysDelete'{..}
= go _phkdProjectId _phkdAccessId (Just AltJSON)
storageService
where go
= buildClient
(Proxy :: Proxy ProjectsHmacKeysDeleteResource)
mempty