{-# 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.TaskQueue.Tasks.Update
-- Copyright   : (c) 2015 Brendan Hay
-- License     : Mozilla Public License, v. 2.0.
-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>
-- Stability   : auto-generated
-- Portability : non-portable (GHC extensions)
--
-- | Update tasks that are leased out of a TaskQueue.
--
-- /See:/ <https://developers.google.com/appengine/docs/python/taskqueue/rest TaskQueue API Reference> for @TaskqueueTasksUpdate@.
module Network.Google.Resource.TaskQueue.Tasks.Update
    (
    -- * REST Resource
      TasksUpdateResource

    -- * Creating a Request
    , tasksUpdate'
    , TasksUpdate'

    -- * Request Lenses
    , tuTaskqueue
    , tuQuotaUser
    , tuPrettyPrint
    , tuProject
    , tuUserIP
    , tuPayload
    , tuKey
    , tuTask
    , tuOAuthToken
    , tuNewLeaseSeconds
    , tuFields
    ) where

import           Network.Google.Prelude
import           Network.Google.TaskQueue.Types

-- | A resource alias for @TaskqueueTasksUpdate@ method which the
-- 'TasksUpdate'' request conforms to.
type TasksUpdateResource =
     Capture "project" Text :>
       "taskqueues" :>
         Capture "taskqueue" Text :>
           "tasks" :>
             Capture "task" Text :>
               QueryParam "newLeaseSeconds" Int32 :>
                 QueryParam "quotaUser" Text :>
                   QueryParam "prettyPrint" Bool :>
                     QueryParam "userIp" Text :>
                       QueryParam "fields" Text :>
                         QueryParam "key" AuthKey :>
                           QueryParam "oauth_token" OAuthToken :>
                             QueryParam "alt" AltJSON :>
                               ReqBody '[JSON] Task :> Post '[JSON] Task

-- | Update tasks that are leased out of a TaskQueue.
--
-- /See:/ 'tasksUpdate'' smart constructor.
data TasksUpdate' = TasksUpdate'
    { _tuTaskqueue       :: !Text
    , _tuQuotaUser       :: !(Maybe Text)
    , _tuPrettyPrint     :: !Bool
    , _tuProject         :: !Text
    , _tuUserIP          :: !(Maybe Text)
    , _tuPayload         :: !Task
    , _tuKey             :: !(Maybe AuthKey)
    , _tuTask            :: !Text
    , _tuOAuthToken      :: !(Maybe OAuthToken)
    , _tuNewLeaseSeconds :: !Int32
    , _tuFields          :: !(Maybe Text)
    } deriving (Eq,Show,Data,Typeable,Generic)

-- | Creates a value of 'TasksUpdate'' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
-- * 'tuTaskqueue'
--
-- * 'tuQuotaUser'
--
-- * 'tuPrettyPrint'
--
-- * 'tuProject'
--
-- * 'tuUserIP'
--
-- * 'tuPayload'
--
-- * 'tuKey'
--
-- * 'tuTask'
--
-- * 'tuOAuthToken'
--
-- * 'tuNewLeaseSeconds'
--
-- * 'tuFields'
tasksUpdate'
    :: Text -- ^ 'taskqueue'
    -> Text -- ^ 'project'
    -> Task -- ^ 'payload'
    -> Text -- ^ 'task'
    -> Int32 -- ^ 'newLeaseSeconds'
    -> TasksUpdate'
tasksUpdate' pTuTaskqueue_ pTuProject_ pTuPayload_ pTuTask_ pTuNewLeaseSeconds_ =
    TasksUpdate'
    { _tuTaskqueue = pTuTaskqueue_
    , _tuQuotaUser = Nothing
    , _tuPrettyPrint = True
    , _tuProject = pTuProject_
    , _tuUserIP = Nothing
    , _tuPayload = pTuPayload_
    , _tuKey = Nothing
    , _tuTask = pTuTask_
    , _tuOAuthToken = Nothing
    , _tuNewLeaseSeconds = pTuNewLeaseSeconds_
    , _tuFields = Nothing
    }

tuTaskqueue :: Lens' TasksUpdate' Text
tuTaskqueue
  = lens _tuTaskqueue (\ s a -> s{_tuTaskqueue = a})

-- | Available to use for quota purposes for server-side applications. Can be
-- any arbitrary string assigned to a user, but should not exceed 40
-- characters. Overrides userIp if both are provided.
tuQuotaUser :: Lens' TasksUpdate' (Maybe Text)
tuQuotaUser
  = lens _tuQuotaUser (\ s a -> s{_tuQuotaUser = a})

-- | Returns response with indentations and line breaks.
tuPrettyPrint :: Lens' TasksUpdate' Bool
tuPrettyPrint
  = lens _tuPrettyPrint
      (\ s a -> s{_tuPrettyPrint = a})

-- | The project under which the queue lies.
tuProject :: Lens' TasksUpdate' Text
tuProject
  = lens _tuProject (\ s a -> s{_tuProject = a})

-- | IP address of the site where the request originates. Use this if you
-- want to enforce per-user limits.
tuUserIP :: Lens' TasksUpdate' (Maybe Text)
tuUserIP = lens _tuUserIP (\ s a -> s{_tuUserIP = a})

-- | Multipart request metadata.
tuPayload :: Lens' TasksUpdate' Task
tuPayload
  = lens _tuPayload (\ s a -> s{_tuPayload = a})

-- | API key. Your API key identifies your project and provides you with API
-- access, quota, and reports. Required unless you provide an OAuth 2.0
-- token.
tuKey :: Lens' TasksUpdate' (Maybe AuthKey)
tuKey = lens _tuKey (\ s a -> s{_tuKey = a})

tuTask :: Lens' TasksUpdate' Text
tuTask = lens _tuTask (\ s a -> s{_tuTask = a})

-- | OAuth 2.0 token for the current user.
tuOAuthToken :: Lens' TasksUpdate' (Maybe OAuthToken)
tuOAuthToken
  = lens _tuOAuthToken (\ s a -> s{_tuOAuthToken = a})

-- | The new lease in seconds.
tuNewLeaseSeconds :: Lens' TasksUpdate' Int32
tuNewLeaseSeconds
  = lens _tuNewLeaseSeconds
      (\ s a -> s{_tuNewLeaseSeconds = a})

-- | Selector specifying which fields to include in a partial response.
tuFields :: Lens' TasksUpdate' (Maybe Text)
tuFields = lens _tuFields (\ s a -> s{_tuFields = a})

instance GoogleAuth TasksUpdate' where
        _AuthKey = tuKey . _Just
        _AuthToken = tuOAuthToken . _Just

instance GoogleRequest TasksUpdate' where
        type Rs TasksUpdate' = Task
        request = requestWith taskQueueRequest
        requestWith rq TasksUpdate'{..}
          = go _tuProject _tuTaskqueue _tuTask
              (Just _tuNewLeaseSeconds)
              _tuQuotaUser
              (Just _tuPrettyPrint)
              _tuUserIP
              _tuFields
              _tuKey
              _tuOAuthToken
              (Just AltJSON)
              _tuPayload
          where go
                  = clientBuild (Proxy :: Proxy TasksUpdateResource) rq