{-# 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.FusionTables.Task.Delete
(
TaskDeleteResource
, taskDelete
, TaskDelete
, tdTaskId
, tdTableId
) where
import Network.Google.FusionTables.Types
import Network.Google.Prelude
type TaskDeleteResource =
"fusiontables" :>
"v2" :>
"tables" :>
Capture "tableId" Text :>
"tasks" :>
Capture "taskId" Text :>
QueryParam "alt" AltJSON :> Delete '[JSON] ()
-- | Deletes a specific task by its ID, unless that task has already started
-- running.
--
-- /See:/ 'taskDelete' smart constructor.
data TaskDelete = TaskDelete'
{ _tdTaskId :: !Text
, _tdTableId :: !Text
} deriving (Eq,Show,Data,Typeable,Generic)
-- | Creates a value of 'TaskDelete' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
-- * 'tdTaskId'
--
-- * 'tdTableId'
taskDelete
:: Text -- ^ 'tdTaskId'
-> Text -- ^ 'tdTableId'
-> TaskDelete
taskDelete pTdTaskId_ pTdTableId_ =
TaskDelete'
{ _tdTaskId = pTdTaskId_
, _tdTableId = pTdTableId_
}
-- | The identifier of the task to delete.
tdTaskId :: Lens' TaskDelete Text
tdTaskId = lens _tdTaskId (\ s a -> s{_tdTaskId = a})
-- | Table from which the task is being deleted.
tdTableId :: Lens' TaskDelete Text
tdTableId
= lens _tdTableId (\ s a -> s{_tdTableId = a})
instance GoogleRequest TaskDelete where
type Rs TaskDelete = ()
type Scopes TaskDelete =
'["https://www.googleapis.com/auth/fusiontables"]
requestClient TaskDelete'{..}
= go _tdTableId _tdTaskId (Just AltJSON)
fusionTablesService
where go
= buildClient (Proxy :: Proxy TaskDeleteResource)
mempty