{-# 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.BigQuery.Tables.Delete
(
TablesDeleteResource
, tablesDelete
, TablesDelete
, tdDataSetId
, tdProjectId
, tdTableId
) where
import Network.Google.BigQuery.Types
import Network.Google.Prelude
type TablesDeleteResource =
"bigquery" :>
"v2" :>
"projects" :>
Capture "projectId" Text :>
"datasets" :>
Capture "datasetId" Text :>
"tables" :>
Capture "tableId" Text :>
QueryParam "alt" AltJSON :> Delete '[JSON] ()
data TablesDelete = TablesDelete'
{ _tdDataSetId :: !Text
, _tdProjectId :: !Text
, _tdTableId :: !Text
} deriving (Eq,Show,Data,Typeable,Generic)
tablesDelete
:: Text
-> Text
-> Text
-> TablesDelete
tablesDelete pTdDataSetId_ pTdProjectId_ pTdTableId_ =
TablesDelete'
{ _tdDataSetId = pTdDataSetId_
, _tdProjectId = pTdProjectId_
, _tdTableId = pTdTableId_
}
tdDataSetId :: Lens' TablesDelete Text
tdDataSetId
= lens _tdDataSetId (\ s a -> s{_tdDataSetId = a})
tdProjectId :: Lens' TablesDelete Text
tdProjectId
= lens _tdProjectId (\ s a -> s{_tdProjectId = a})
tdTableId :: Lens' TablesDelete Text
tdTableId
= lens _tdTableId (\ s a -> s{_tdTableId = a})
instance GoogleRequest TablesDelete where
type Rs TablesDelete = ()
type Scopes TablesDelete =
'["https://www.googleapis.com/auth/bigquery",
"https://www.googleapis.com/auth/cloud-platform"]
requestClient TablesDelete'{..}
= go _tdProjectId _tdDataSetId _tdTableId
(Just AltJSON)
bigQueryService
where go
= buildClient (Proxy :: Proxy TablesDeleteResource)
mempty