gogol-taskqueue 0.0.1 → 0.1.0

raw patch · 15 files changed

+292/−263 lines, 15 filesdep ~gogol-corePVP ok

version bump matches the API change (PVP)

Dependency ranges changed: gogol-core

API changes (from Hackage documentation)

Files

• README.md +3/−3
• gen/Network/Google/Resource/TaskQueue/TaskQueues/Get.hs +111/−0
• gen/Network/Google/Resource/TaskQueue/Taskqueues/Get.hs +0/−108
• gen/Network/Google/Resource/TaskQueue/Tasks/Delete.hs +17/−14
• gen/Network/Google/Resource/TaskQueue/Tasks/Get.hs +17/−14
• gen/Network/Google/Resource/TaskQueue/Tasks/Insert.hs +17/−14
• gen/Network/Google/Resource/TaskQueue/Tasks/Lease.hs +17/−14
• gen/Network/Google/Resource/TaskQueue/Tasks/List.hs +17/−14
• gen/Network/Google/Resource/TaskQueue/Tasks/Patch.hs +17/−14
• gen/Network/Google/Resource/TaskQueue/Tasks/Update.hs +17/−14
• gen/Network/Google/TaskQueue.hs +10/−6
• gen/Network/Google/TaskQueue/Types.hs +10/−9
• gen/Network/Google/TaskQueue/Types/Product.hs +33/−33
• gen/Network/Google/TaskQueue/Types/Sum.hs +1/−1
• gogol-taskqueue.cabal +5/−5

@@ -8,7 +8,7 @@  ## Version -`0.0.1`+`0.1.0`   ## Description@@ -18,9 +18,9 @@  ## Contribute -For any problems, comments, or feedback please create an issue [here on GitHub](https://github.com/brendanhay/amazonka/issues).+For any problems, comments, or feedback please create an issue [here on GitHub](https://github.com/brendanhay/gogol/issues). -> _Note:_ this library is an auto-generated Haskell package. Please see `amazonka-gen` for more information.+> _Note:_ this library is an auto-generated Haskell package. Please see `gogol-gen` for more information.   ## Licence

@@ -0,0 +1,111 @@+{-# 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.TaskQueues.Get+-- Copyright   : (c) 2015-2016 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)+--+-- Get detailed information about a TaskQueue.+--+-- /See:/ <https://developers.google.com/appengine/docs/python/taskqueue/rest TaskQueue API Reference> for @taskqueue.taskqueues.get@.+module Network.Google.Resource.TaskQueue.TaskQueues.Get+    (+    -- * REST Resource+      TaskQueuesGetResource++    -- * Creating a Request+    , taskQueuesGet+    , TaskQueuesGet++    -- * Request Lenses+    , tqgTaskQueue+    , tqgProject+    , tqgGetStats+    ) where++import           Network.Google.Prelude+import           Network.Google.TaskQueue.Types++-- | A resource alias for @taskqueue.taskqueues.get@ method which the+-- 'TaskQueuesGet' request conforms to.+type TaskQueuesGetResource =+     "taskqueue" :>+       "v1beta2" :>+         "projects" :>+           Capture "project" Text :>+             "taskqueues" :>+               Capture "taskqueue" Text :>+                 QueryParam "getStats" Bool :>+                   QueryParam "alt" AltJSON :> Get '[JSON] TaskQueue++-- | Get detailed information about a TaskQueue.+--+-- /See:/ 'taskQueuesGet' smart constructor.+data TaskQueuesGet = TaskQueuesGet'+    { _tqgTaskQueue :: !Text+    , _tqgProject   :: !Text+    , _tqgGetStats  :: !(Maybe Bool)+    } deriving (Eq,Show,Data,Typeable,Generic)++-- | Creates a value of 'TaskQueuesGet' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'tqgTaskQueue'+--+-- * 'tqgProject'+--+-- * 'tqgGetStats'+taskQueuesGet+    :: Text -- ^ 'tqgTaskQueue'+    -> Text -- ^ 'tqgProject'+    -> TaskQueuesGet+taskQueuesGet pTqgTaskQueue_ pTqgProject_ =+    TaskQueuesGet'+    { _tqgTaskQueue = pTqgTaskQueue_+    , _tqgProject = pTqgProject_+    , _tqgGetStats = Nothing+    }++-- | The id of the taskqueue to get the properties of.+tqgTaskQueue :: Lens' TaskQueuesGet Text+tqgTaskQueue+  = lens _tqgTaskQueue (\ s a -> s{_tqgTaskQueue = a})++-- | The project under which the queue lies.+tqgProject :: Lens' TaskQueuesGet Text+tqgProject+  = lens _tqgProject (\ s a -> s{_tqgProject = a})++-- | Whether to get stats. Optional.+tqgGetStats :: Lens' TaskQueuesGet (Maybe Bool)+tqgGetStats+  = lens _tqgGetStats (\ s a -> s{_tqgGetStats = a})++instance GoogleRequest TaskQueuesGet where+        type Rs TaskQueuesGet = TaskQueue+        type Scopes TaskQueuesGet =+             '["https://www.googleapis.com/auth/taskqueue",+               "https://www.googleapis.com/auth/taskqueue.consumer"]+        requestClient TaskQueuesGet'{..}+          = go _tqgProject _tqgTaskQueue _tqgGetStats+              (Just AltJSON)+              taskQueueService+          where go+                  = buildClient (Proxy :: Proxy TaskQueuesGetResource)+                      mempty

@@ -1,108 +0,0 @@-{-# 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.Taskqueues.Get--- 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)------ Get detailed information about a TaskQueue.------ /See:/ <https://developers.google.com/appengine/docs/python/taskqueue/rest TaskQueue API Reference> for @taskqueue.taskqueues.get@.-module Network.Google.Resource.TaskQueue.Taskqueues.Get-    (-    -- * REST Resource-      TaskqueuesGetResource--    -- * Creating a Request-    , taskqueuesGet-    , TaskqueuesGet--    -- * Request Lenses-    , tasTaskqueue-    , tasProject-    , tasGetStats-    ) where--import           Network.Google.Prelude-import           Network.Google.TaskQueue.Types---- | A resource alias for @taskqueue.taskqueues.get@ method which the--- 'TaskqueuesGet' request conforms to.-type TaskqueuesGetResource =-     "taskqueue" :>-       "v1beta2" :>-         "projects" :>-           Capture "project" Text :>-             "taskqueues" :>-               Capture "taskqueue" Text :>-                 QueryParam "getStats" Bool :>-                   QueryParam "alt" AltJSON :> Get '[JSON] TaskQueue---- | Get detailed information about a TaskQueue.------ /See:/ 'taskqueuesGet' smart constructor.-data TaskqueuesGet = TaskqueuesGet-    { _tasTaskqueue :: !Text-    , _tasProject   :: !Text-    , _tasGetStats  :: !(Maybe Bool)-    } deriving (Eq,Show,Data,Typeable,Generic)---- | Creates a value of 'TaskqueuesGet' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'tasTaskqueue'------ * 'tasProject'------ * 'tasGetStats'-taskqueuesGet-    :: Text -- ^ 'tasTaskqueue'-    -> Text -- ^ 'tasProject'-    -> TaskqueuesGet-taskqueuesGet pTasTaskqueue_ pTasProject_ =-    TaskqueuesGet-    { _tasTaskqueue = pTasTaskqueue_-    , _tasProject = pTasProject_-    , _tasGetStats = Nothing-    }---- | The id of the taskqueue to get the properties of.-tasTaskqueue :: Lens' TaskqueuesGet Text-tasTaskqueue-  = lens _tasTaskqueue (\ s a -> s{_tasTaskqueue = a})---- | The project under which the queue lies.-tasProject :: Lens' TaskqueuesGet Text-tasProject-  = lens _tasProject (\ s a -> s{_tasProject = a})---- | Whether to get stats. Optional.-tasGetStats :: Lens' TaskqueuesGet (Maybe Bool)-tasGetStats-  = lens _tasGetStats (\ s a -> s{_tasGetStats = a})--instance GoogleRequest TaskqueuesGet where-        type Rs TaskqueuesGet = TaskQueue-        requestClient TaskqueuesGet{..}-          = go _tasProject _tasTaskqueue _tasGetStats-              (Just AltJSON)-              taskQueueService-          where go-                  = buildClient (Proxy :: Proxy TaskqueuesGetResource)-                      mempty

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.TaskQueue.Tasks.Delete--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -33,7 +33,7 @@     , TasksDelete      -- * Request Lenses-    , tdTaskqueue+    , tdTaskQueue     , tdProject     , tdTask     ) where@@ -57,8 +57,8 @@ -- | Delete a task from a TaskQueue. -- -- /See:/ 'tasksDelete' smart constructor.-data TasksDelete = TasksDelete-    { _tdTaskqueue :: !Text+data TasksDelete = TasksDelete'+    { _tdTaskQueue :: !Text     , _tdProject   :: !Text     , _tdTask      :: !Text     } deriving (Eq,Show,Data,Typeable,Generic)@@ -67,27 +67,27 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'tdTaskqueue'+-- * 'tdTaskQueue' -- -- * 'tdProject' -- -- * 'tdTask' tasksDelete-    :: Text -- ^ 'tdTaskqueue'+    :: Text -- ^ 'tdTaskQueue'     -> Text -- ^ 'tdProject'     -> Text -- ^ 'tdTask'     -> TasksDelete-tasksDelete pTdTaskqueue_ pTdProject_ pTdTask_ =-    TasksDelete-    { _tdTaskqueue = pTdTaskqueue_+tasksDelete pTdTaskQueue_ pTdProject_ pTdTask_ =+    TasksDelete'+    { _tdTaskQueue = pTdTaskQueue_     , _tdProject = pTdProject_     , _tdTask = pTdTask_     }  -- | The taskqueue to delete a task from.-tdTaskqueue :: Lens' TasksDelete Text-tdTaskqueue-  = lens _tdTaskqueue (\ s a -> s{_tdTaskqueue = a})+tdTaskQueue :: Lens' TasksDelete Text+tdTaskQueue+  = lens _tdTaskQueue (\ s a -> s{_tdTaskQueue = a})  -- | The project under which the queue lies. tdProject :: Lens' TasksDelete Text@@ -100,8 +100,11 @@  instance GoogleRequest TasksDelete where         type Rs TasksDelete = ()-        requestClient TasksDelete{..}-          = go _tdProject _tdTaskqueue _tdTask (Just AltJSON)+        type Scopes TasksDelete =+             '["https://www.googleapis.com/auth/taskqueue",+               "https://www.googleapis.com/auth/taskqueue.consumer"]+        requestClient TasksDelete'{..}+          = go _tdProject _tdTaskQueue _tdTask (Just AltJSON)               taskQueueService           where go                   = buildClient (Proxy :: Proxy TasksDeleteResource)

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.TaskQueue.Tasks.Get--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -33,7 +33,7 @@     , TasksGet      -- * Request Lenses-    , tgTaskqueue+    , tgTaskQueue     , tgProject     , tgTask     ) where@@ -57,8 +57,8 @@ -- | Get a particular task from a TaskQueue. -- -- /See:/ 'tasksGet' smart constructor.-data TasksGet = TasksGet-    { _tgTaskqueue :: !Text+data TasksGet = TasksGet'+    { _tgTaskQueue :: !Text     , _tgProject   :: !Text     , _tgTask      :: !Text     } deriving (Eq,Show,Data,Typeable,Generic)@@ -67,27 +67,27 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'tgTaskqueue'+-- * 'tgTaskQueue' -- -- * 'tgProject' -- -- * 'tgTask' tasksGet-    :: Text -- ^ 'tgTaskqueue'+    :: Text -- ^ 'tgTaskQueue'     -> Text -- ^ 'tgProject'     -> Text -- ^ 'tgTask'     -> TasksGet-tasksGet pTgTaskqueue_ pTgProject_ pTgTask_ =-    TasksGet-    { _tgTaskqueue = pTgTaskqueue_+tasksGet pTgTaskQueue_ pTgProject_ pTgTask_ =+    TasksGet'+    { _tgTaskQueue = pTgTaskQueue_     , _tgProject = pTgProject_     , _tgTask = pTgTask_     }  -- | The taskqueue in which the task belongs.-tgTaskqueue :: Lens' TasksGet Text-tgTaskqueue-  = lens _tgTaskqueue (\ s a -> s{_tgTaskqueue = a})+tgTaskQueue :: Lens' TasksGet Text+tgTaskQueue+  = lens _tgTaskQueue (\ s a -> s{_tgTaskQueue = a})  -- | The project under which the queue lies. tgProject :: Lens' TasksGet Text@@ -100,8 +100,11 @@  instance GoogleRequest TasksGet where         type Rs TasksGet = Task-        requestClient TasksGet{..}-          = go _tgProject _tgTaskqueue _tgTask (Just AltJSON)+        type Scopes TasksGet =+             '["https://www.googleapis.com/auth/taskqueue",+               "https://www.googleapis.com/auth/taskqueue.consumer"]+        requestClient TasksGet'{..}+          = go _tgProject _tgTaskQueue _tgTask (Just AltJSON)               taskQueueService           where go                   = buildClient (Proxy :: Proxy TasksGetResource)

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.TaskQueue.Tasks.Insert--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -33,7 +33,7 @@     , TasksInsert      -- * Request Lenses-    , tiTaskqueue+    , tiTaskQueue     , tiProject     , tiPayload     ) where@@ -57,8 +57,8 @@ -- | Insert a new task in a TaskQueue -- -- /See:/ 'tasksInsert' smart constructor.-data TasksInsert = TasksInsert-    { _tiTaskqueue :: !Text+data TasksInsert = TasksInsert'+    { _tiTaskQueue :: !Text     , _tiProject   :: !Text     , _tiPayload   :: !Task     } deriving (Eq,Show,Data,Typeable,Generic)@@ -67,27 +67,27 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'tiTaskqueue'+-- * 'tiTaskQueue' -- -- * 'tiProject' -- -- * 'tiPayload' tasksInsert-    :: Text -- ^ 'tiTaskqueue'+    :: Text -- ^ 'tiTaskQueue'     -> Text -- ^ 'tiProject'     -> Task -- ^ 'tiPayload'     -> TasksInsert-tasksInsert pTiTaskqueue_ pTiProject_ pTiPayload_ =-    TasksInsert-    { _tiTaskqueue = pTiTaskqueue_+tasksInsert pTiTaskQueue_ pTiProject_ pTiPayload_ =+    TasksInsert'+    { _tiTaskQueue = pTiTaskQueue_     , _tiProject = pTiProject_     , _tiPayload = pTiPayload_     }  -- | The taskqueue to insert the task into-tiTaskqueue :: Lens' TasksInsert Text-tiTaskqueue-  = lens _tiTaskqueue (\ s a -> s{_tiTaskqueue = a})+tiTaskQueue :: Lens' TasksInsert Text+tiTaskQueue+  = lens _tiTaskQueue (\ s a -> s{_tiTaskQueue = a})  -- | The project under which the queue lies tiProject :: Lens' TasksInsert Text@@ -101,8 +101,11 @@  instance GoogleRequest TasksInsert where         type Rs TasksInsert = Task-        requestClient TasksInsert{..}-          = go _tiProject _tiTaskqueue (Just AltJSON)+        type Scopes TasksInsert =+             '["https://www.googleapis.com/auth/taskqueue",+               "https://www.googleapis.com/auth/taskqueue.consumer"]+        requestClient TasksInsert'{..}+          = go _tiProject _tiTaskQueue (Just AltJSON)               _tiPayload               taskQueueService           where go

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.TaskQueue.Tasks.Lease--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -33,7 +33,7 @@     , TasksLease      -- * Request Lenses-    , tlTaskqueue+    , tlTaskQueue     , tlTag     , tlProject     , tlNumTasks@@ -64,8 +64,8 @@ -- | Lease 1 or more tasks from a TaskQueue. -- -- /See:/ 'tasksLease' smart constructor.-data TasksLease = TasksLease-    { _tlTaskqueue  :: !Text+data TasksLease = TasksLease'+    { _tlTaskQueue  :: !Text     , _tlTag        :: !(Maybe Text)     , _tlProject    :: !Text     , _tlNumTasks   :: !(Textual Int32)@@ -77,7 +77,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'tlTaskqueue'+-- * 'tlTaskQueue' -- -- * 'tlTag' --@@ -89,14 +89,14 @@ -- -- * 'tlGroupByTag' tasksLease-    :: Text -- ^ 'tlTaskqueue'+    :: Text -- ^ 'tlTaskQueue'     -> Text -- ^ 'tlProject'     -> Int32 -- ^ 'tlNumTasks'     -> Int32 -- ^ 'tlLeaseSecs'     -> TasksLease-tasksLease pTlTaskqueue_ pTlProject_ pTlNumTasks_ pTlLeaseSecs_ =-    TasksLease-    { _tlTaskqueue = pTlTaskqueue_+tasksLease pTlTaskQueue_ pTlProject_ pTlNumTasks_ pTlLeaseSecs_ =+    TasksLease'+    { _tlTaskQueue = pTlTaskQueue_     , _tlTag = Nothing     , _tlProject = pTlProject_     , _tlNumTasks = _Coerce # pTlNumTasks_@@ -105,9 +105,9 @@     }  -- | The taskqueue to lease a task from.-tlTaskqueue :: Lens' TasksLease Text-tlTaskqueue-  = lens _tlTaskqueue (\ s a -> s{_tlTaskqueue = a})+tlTaskQueue :: Lens' TasksLease Text+tlTaskQueue+  = lens _tlTaskQueue (\ s a -> s{_tlTaskQueue = a})  -- | The tag allowed for tasks in the response. Must only be specified if -- group_by_tag is true. If group_by_tag is true and tag is not specified@@ -140,8 +140,11 @@  instance GoogleRequest TasksLease where         type Rs TasksLease = Tasks-        requestClient TasksLease{..}-          = go _tlProject _tlTaskqueue (Just _tlNumTasks)+        type Scopes TasksLease =+             '["https://www.googleapis.com/auth/taskqueue",+               "https://www.googleapis.com/auth/taskqueue.consumer"]+        requestClient TasksLease'{..}+          = go _tlProject _tlTaskQueue (Just _tlNumTasks)               (Just _tlLeaseSecs)               _tlTag               _tlGroupByTag

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.TaskQueue.Tasks.List--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -33,7 +33,7 @@     , TasksList      -- * Request Lenses-    , tTaskqueue+    , tTaskQueue     , tProject     ) where @@ -55,8 +55,8 @@ -- | List Tasks in a TaskQueue -- -- /See:/ 'tasksList' smart constructor.-data TasksList = TasksList-    { _tTaskqueue :: !Text+data TasksList = TasksList'+    { _tTaskQueue :: !Text     , _tProject   :: !Text     } deriving (Eq,Show,Data,Typeable,Generic) @@ -64,23 +64,23 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'tTaskqueue'+-- * 'tTaskQueue' -- -- * 'tProject' tasksList-    :: Text -- ^ 'tTaskqueue'+    :: Text -- ^ 'tTaskQueue'     -> Text -- ^ 'tProject'     -> TasksList-tasksList pTTaskqueue_ pTProject_ =-    TasksList-    { _tTaskqueue = pTTaskqueue_+tasksList pTTaskQueue_ pTProject_ =+    TasksList'+    { _tTaskQueue = pTTaskQueue_     , _tProject = pTProject_     }  -- | The id of the taskqueue to list tasks from.-tTaskqueue :: Lens' TasksList Text-tTaskqueue-  = lens _tTaskqueue (\ s a -> s{_tTaskqueue = a})+tTaskQueue :: Lens' TasksList Text+tTaskQueue+  = lens _tTaskQueue (\ s a -> s{_tTaskQueue = a})  -- | The project under which the queue lies. tProject :: Lens' TasksList Text@@ -88,8 +88,11 @@  instance GoogleRequest TasksList where         type Rs TasksList = Tasks2-        requestClient TasksList{..}-          = go _tProject _tTaskqueue (Just AltJSON)+        type Scopes TasksList =+             '["https://www.googleapis.com/auth/taskqueue",+               "https://www.googleapis.com/auth/taskqueue.consumer"]+        requestClient TasksList'{..}+          = go _tProject _tTaskQueue (Just AltJSON)               taskQueueService           where go                   = buildClient (Proxy :: Proxy TasksListResource)

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.TaskQueue.Tasks.Patch--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -34,7 +34,7 @@     , TasksPatch      -- * Request Lenses-    , tpTaskqueue+    , tpTaskQueue     , tpProject     , tpPayload     , tpTask@@ -63,8 +63,8 @@ -- patch semantics. -- -- /See:/ 'tasksPatch' smart constructor.-data TasksPatch = TasksPatch-    { _tpTaskqueue       :: !Text+data TasksPatch = TasksPatch'+    { _tpTaskQueue       :: !Text     , _tpProject         :: !Text     , _tpPayload         :: !Task     , _tpTask            :: !Text@@ -75,7 +75,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'tpTaskqueue'+-- * 'tpTaskQueue' -- -- * 'tpProject' --@@ -85,24 +85,24 @@ -- -- * 'tpNewLeaseSeconds' tasksPatch-    :: Text -- ^ 'tpTaskqueue'+    :: Text -- ^ 'tpTaskQueue'     -> Text -- ^ 'tpProject'     -> Task -- ^ 'tpPayload'     -> Text -- ^ 'tpTask'     -> Int32 -- ^ 'tpNewLeaseSeconds'     -> TasksPatch-tasksPatch pTpTaskqueue_ pTpProject_ pTpPayload_ pTpTask_ pTpNewLeaseSeconds_ =-    TasksPatch-    { _tpTaskqueue = pTpTaskqueue_+tasksPatch pTpTaskQueue_ pTpProject_ pTpPayload_ pTpTask_ pTpNewLeaseSeconds_ =+    TasksPatch'+    { _tpTaskQueue = pTpTaskQueue_     , _tpProject = pTpProject_     , _tpPayload = pTpPayload_     , _tpTask = pTpTask_     , _tpNewLeaseSeconds = _Coerce # pTpNewLeaseSeconds_     } -tpTaskqueue :: Lens' TasksPatch Text-tpTaskqueue-  = lens _tpTaskqueue (\ s a -> s{_tpTaskqueue = a})+tpTaskQueue :: Lens' TasksPatch Text+tpTaskQueue+  = lens _tpTaskQueue (\ s a -> s{_tpTaskQueue = a})  -- | The project under which the queue lies. tpProject :: Lens' TasksPatch Text@@ -126,8 +126,11 @@  instance GoogleRequest TasksPatch where         type Rs TasksPatch = Task-        requestClient TasksPatch{..}-          = go _tpProject _tpTaskqueue _tpTask+        type Scopes TasksPatch =+             '["https://www.googleapis.com/auth/taskqueue",+               "https://www.googleapis.com/auth/taskqueue.consumer"]+        requestClient TasksPatch'{..}+          = go _tpProject _tpTaskQueue _tpTask               (Just _tpNewLeaseSeconds)               (Just AltJSON)               _tpPayload

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.TaskQueue.Tasks.Update--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -33,7 +33,7 @@     , TasksUpdate      -- * Request Lenses-    , tuTaskqueue+    , tuTaskQueue     , tuProject     , tuPayload     , tuTask@@ -61,8 +61,8 @@ -- | Update tasks that are leased out of a TaskQueue. -- -- /See:/ 'tasksUpdate' smart constructor.-data TasksUpdate = TasksUpdate-    { _tuTaskqueue       :: !Text+data TasksUpdate = TasksUpdate'+    { _tuTaskQueue       :: !Text     , _tuProject         :: !Text     , _tuPayload         :: !Task     , _tuTask            :: !Text@@ -73,7 +73,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'tuTaskqueue'+-- * 'tuTaskQueue' -- -- * 'tuProject' --@@ -83,24 +83,24 @@ -- -- * 'tuNewLeaseSeconds' tasksUpdate-    :: Text -- ^ 'tuTaskqueue'+    :: Text -- ^ 'tuTaskQueue'     -> Text -- ^ 'tuProject'     -> Task -- ^ 'tuPayload'     -> Text -- ^ 'tuTask'     -> Int32 -- ^ 'tuNewLeaseSeconds'     -> TasksUpdate-tasksUpdate pTuTaskqueue_ pTuProject_ pTuPayload_ pTuTask_ pTuNewLeaseSeconds_ =-    TasksUpdate-    { _tuTaskqueue = pTuTaskqueue_+tasksUpdate pTuTaskQueue_ pTuProject_ pTuPayload_ pTuTask_ pTuNewLeaseSeconds_ =+    TasksUpdate'+    { _tuTaskQueue = pTuTaskQueue_     , _tuProject = pTuProject_     , _tuPayload = pTuPayload_     , _tuTask = pTuTask_     , _tuNewLeaseSeconds = _Coerce # pTuNewLeaseSeconds_     } -tuTaskqueue :: Lens' TasksUpdate Text-tuTaskqueue-  = lens _tuTaskqueue (\ s a -> s{_tuTaskqueue = a})+tuTaskQueue :: Lens' TasksUpdate Text+tuTaskQueue+  = lens _tuTaskQueue (\ s a -> s{_tuTaskQueue = a})  -- | The project under which the queue lies. tuProject :: Lens' TasksUpdate Text@@ -124,8 +124,11 @@  instance GoogleRequest TasksUpdate where         type Rs TasksUpdate = Task-        requestClient TasksUpdate{..}-          = go _tuProject _tuTaskqueue _tuTask+        type Scopes TasksUpdate =+             '["https://www.googleapis.com/auth/taskqueue",+               "https://www.googleapis.com/auth/taskqueue.consumer"]+        requestClient TasksUpdate'{..}+          = go _tuProject _tuTaskQueue _tuTask               (Just _tuNewLeaseSeconds)               (Just AltJSON)               _tuPayload

@@ -7,13 +7,13 @@  -- | -- Module      : Network.Google.TaskQueue--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 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) ----- Lets you access a Google App Engine Pull Task Queue over REST.+-- Accesses a Google App Engine Pull Task Queue over REST. -- -- /See:/ <https://developers.google.com/appengine/docs/python/taskqueue/rest TaskQueue API Reference> module Network.Google.TaskQueue@@ -21,13 +21,17 @@     -- * Service Configuration       taskQueueService +    -- * OAuth Scopes+    , taskQueueConsumerScope+    , taskQueueScope+     -- * API Declaration     , TaskQueueAPI      -- * Resources      -- ** taskqueue.taskqueues.get-    , module Network.Google.Resource.TaskQueue.Taskqueues.Get+    , module Network.Google.Resource.TaskQueue.TaskQueues.Get      -- ** taskqueue.tasks.delete     , module Network.Google.Resource.TaskQueue.Tasks.Delete@@ -92,7 +96,7 @@     , Task     , task     , ttRetryCount-    , ttEnqueueTimestamp+    , ttEnQueueTimestamp     , ttTag     , ttKind     , ttQueueName@@ -102,7 +106,7 @@     ) where  import           Network.Google.Prelude-import           Network.Google.Resource.TaskQueue.Taskqueues.Get+import           Network.Google.Resource.TaskQueue.TaskQueues.Get import           Network.Google.Resource.TaskQueue.Tasks.Delete import           Network.Google.Resource.TaskQueue.Tasks.Get import           Network.Google.Resource.TaskQueue.Tasks.Insert@@ -124,4 +128,4 @@        :<|> TasksLeaseResource        :<|> TasksDeleteResource        :<|> TasksUpdateResource-       :<|> TaskqueuesGetResource+       :<|> TaskQueuesGetResource

@@ -1,3 +1,4 @@+{-# LANGUAGE DataKinds          #-} {-# LANGUAGE DeriveDataTypeable #-} {-# LANGUAGE DeriveGeneric      #-} {-# LANGUAGE NoImplicitPrelude  #-}@@ -7,7 +8,7 @@  -- | -- Module      : Network.Google.TaskQueue.Types--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -19,8 +20,8 @@       taskQueueService      -- * OAuth Scopes-    , taskqueueConsumerScope-    , taskqueueScope+    , taskQueueConsumerScope+    , taskQueueScope      -- * Tasks2     , Tasks2@@ -62,7 +63,7 @@     , Task     , task     , ttRetryCount-    , ttEnqueueTimestamp+    , ttEnQueueTimestamp     , ttTag     , ttKind     , ttQueueName@@ -76,15 +77,15 @@ import           Network.Google.TaskQueue.Types.Sum  -- | Default request referring to version 'v1beta2' of the TaskQueue API. This contains the host and root path used as a starting point for constructing service requests.-taskQueueService :: Service+taskQueueService :: ServiceConfig taskQueueService   = defaultService (ServiceId "taskqueue:v1beta2")       "www.googleapis.com"  -- | Consume Tasks from your Taskqueues-taskqueueConsumerScope :: OAuthScope-taskqueueConsumerScope = "https://www.googleapis.com/auth/taskqueue.consumer";+taskQueueConsumerScope :: Proxy '["https://www.googleapis.com/auth/taskqueue.consumer"]+taskQueueConsumerScope = Proxy;  -- | Manage your Tasks and Taskqueues-taskqueueScope :: OAuthScope-taskqueueScope = "https://www.googleapis.com/auth/taskqueue";+taskQueueScope :: Proxy '["https://www.googleapis.com/auth/taskqueue"]+taskQueueScope = Proxy;

@@ -9,7 +9,7 @@  -- | -- Module      : Network.Google.TaskQueue.Types.Product--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -22,7 +22,7 @@  -- -- /See:/ 'tasks2' smart constructor.-data Tasks2 = Tasks2+data Tasks2 = Tasks2'     { _tKind  :: !Text     , _tItems :: !(Maybe [Task])     } deriving (Eq,Show,Data,Typeable,Generic)@@ -37,7 +37,7 @@ tasks2     :: Tasks2 tasks2 =-    Tasks2+    Tasks2'     { _tKind = "taskqueues#tasks"     , _tItems = Nothing     }@@ -56,19 +56,19 @@         parseJSON           = withObject "Tasks2"               (\ o ->-                 Tasks2 <$>+                 Tasks2' <$>                    (o .:? "kind" .!= "taskqueues#tasks") <*>                      (o .:? "items" .!= mempty))  instance ToJSON Tasks2 where-        toJSON Tasks2{..}+        toJSON Tasks2'{..}           = object               (catMaybes                  [Just ("kind" .= _tKind), ("items" .=) <$> _tItems])  -- -- /See:/ 'taskQueue' smart constructor.-data TaskQueue = TaskQueue+data TaskQueue = TaskQueue'     { _tqKind      :: !Text     , _tqStats     :: !(Maybe TaskQueueStats)     , _tqMaxLeases :: !(Maybe (Textual Int32))@@ -92,7 +92,7 @@ taskQueue     :: TaskQueue taskQueue =-    TaskQueue+    TaskQueue'     { _tqKind = "taskqueues#taskqueue"     , _tqStats = Nothing     , _tqMaxLeases = Nothing@@ -127,7 +127,7 @@         parseJSON           = withObject "TaskQueue"               (\ o ->-                 TaskQueue <$>+                 TaskQueue' <$>                    (o .:? "kind" .!= "taskqueues#taskqueue") <*>                      (o .:? "stats")                      <*> (o .:? "maxLeases")@@ -135,7 +135,7 @@                      <*> (o .:? "acl"))  instance ToJSON TaskQueue where-        toJSON TaskQueue{..}+        toJSON TaskQueue'{..}           = object               (catMaybes                  [Just ("kind" .= _tqKind), ("stats" .=) <$> _tqStats,@@ -145,7 +145,7 @@ -- | ACLs that are applicable to this TaskQueue object. -- -- /See:/ 'taskQueueACL' smart constructor.-data TaskQueueACL = TaskQueueACL+data TaskQueueACL = TaskQueueACL'     { _tqaProducerEmails :: !(Maybe [Text])     , _tqaAdminEmails    :: !(Maybe [Text])     , _tqaConsumerEmails :: !(Maybe [Text])@@ -163,7 +163,7 @@ taskQueueACL     :: TaskQueueACL taskQueueACL =-    TaskQueueACL+    TaskQueueACL'     { _tqaProducerEmails = Nothing     , _tqaAdminEmails = Nothing     , _tqaConsumerEmails = Nothing@@ -200,13 +200,13 @@         parseJSON           = withObject "TaskQueueACL"               (\ o ->-                 TaskQueueACL <$>+                 TaskQueueACL' <$>                    (o .:? "producerEmails" .!= mempty) <*>                      (o .:? "adminEmails" .!= mempty)                      <*> (o .:? "consumerEmails" .!= mempty))  instance ToJSON TaskQueueACL where-        toJSON TaskQueueACL{..}+        toJSON TaskQueueACL'{..}           = object               (catMaybes                  [("producerEmails" .=) <$> _tqaProducerEmails,@@ -216,7 +216,7 @@ -- | Statistics for the TaskQueue object in question. -- -- /See:/ 'taskQueueStats' smart constructor.-data TaskQueueStats = TaskQueueStats+data TaskQueueStats = TaskQueueStats'     { _tqsTotalTasks       :: !(Maybe (Textual Int32))     , _tqsOldestTask       :: !(Maybe (Textual Int64))     , _tqsLeasedLastHour   :: !(Maybe (Textual Int64))@@ -237,7 +237,7 @@ taskQueueStats     :: TaskQueueStats taskQueueStats =-    TaskQueueStats+    TaskQueueStats'     { _tqsTotalTasks = Nothing     , _tqsOldestTask = Nothing     , _tqsLeasedLastHour = Nothing@@ -277,13 +277,13 @@         parseJSON           = withObject "TaskQueueStats"               (\ o ->-                 TaskQueueStats <$>+                 TaskQueueStats' <$>                    (o .:? "totalTasks") <*> (o .:? "oldestTask") <*>                      (o .:? "leasedLastHour")                      <*> (o .:? "leasedLastMinute"))  instance ToJSON TaskQueueStats where-        toJSON TaskQueueStats{..}+        toJSON TaskQueueStats'{..}           = object               (catMaybes                  [("totalTasks" .=) <$> _tqsTotalTasks,@@ -293,7 +293,7 @@  -- -- /See:/ 'tasks' smart constructor.-data Tasks = Tasks+data Tasks = Tasks'     { _tasKind  :: !Text     , _tasItems :: !(Maybe [Task])     } deriving (Eq,Show,Data,Typeable,Generic)@@ -308,7 +308,7 @@ tasks     :: Tasks tasks =-    Tasks+    Tasks'     { _tasKind = "taskqueue#tasks"     , _tasItems = Nothing     }@@ -328,12 +328,12 @@         parseJSON           = withObject "Tasks"               (\ o ->-                 Tasks <$>+                 Tasks' <$>                    (o .:? "kind" .!= "taskqueue#tasks") <*>                      (o .:? "items" .!= mempty))  instance ToJSON Tasks where-        toJSON Tasks{..}+        toJSON Tasks'{..}           = object               (catMaybes                  [Just ("kind" .= _tasKind),@@ -341,9 +341,9 @@  -- -- /See:/ 'task' smart constructor.-data Task = Task+data Task = Task'     { _ttRetryCount       :: !(Maybe (Textual Int32))-    , _ttEnqueueTimestamp :: !(Maybe (Textual Int64))+    , _ttEnQueueTimestamp :: !(Maybe (Textual Int64))     , _ttTag              :: !(Maybe Text)     , _ttKind             :: !Text     , _ttQueueName        :: !(Maybe Text)@@ -358,7 +358,7 @@ -- -- * 'ttRetryCount' ----- * 'ttEnqueueTimestamp'+-- * 'ttEnQueueTimestamp' -- -- * 'ttTag' --@@ -374,9 +374,9 @@ task     :: Task task =-    Task+    Task'     { _ttRetryCount = Nothing-    , _ttEnqueueTimestamp = Nothing+    , _ttEnQueueTimestamp = Nothing     , _ttTag = Nothing     , _ttKind = "taskqueues#task"     , _ttQueueName = Nothing@@ -392,10 +392,10 @@       . mapping _Coerce  -- | Time (in seconds since the epoch) at which the task was enqueued.-ttEnqueueTimestamp :: Lens' Task (Maybe Int64)-ttEnqueueTimestamp-  = lens _ttEnqueueTimestamp-      (\ s a -> s{_ttEnqueueTimestamp = a})+ttEnQueueTimestamp :: Lens' Task (Maybe Int64)+ttEnQueueTimestamp+  = lens _ttEnQueueTimestamp+      (\ s a -> s{_ttEnQueueTimestamp = a})       . mapping _Coerce  -- | Tag for the task, could be used later to lease tasks grouped by a@@ -435,7 +435,7 @@         parseJSON           = withObject "Task"               (\ o ->-                 Task <$>+                 Task' <$>                    (o .:? "retry_count") <*> (o .:? "enqueueTimestamp")                      <*> (o .:? "tag")                      <*> (o .:? "kind" .!= "taskqueues#task")@@ -445,11 +445,11 @@                      <*> (o .:? "leaseTimestamp"))  instance ToJSON Task where-        toJSON Task{..}+        toJSON Task'{..}           = object               (catMaybes                  [("retry_count" .=) <$> _ttRetryCount,-                  ("enqueueTimestamp" .=) <$> _ttEnqueueTimestamp,+                  ("enqueueTimestamp" .=) <$> _ttEnQueueTimestamp,                   ("tag" .=) <$> _ttTag, Just ("kind" .= _ttKind),                   ("queueName" .=) <$> _ttQueueName,                   ("payloadBase64" .=) <$> _ttPayloadBase64,

@@ -8,7 +8,7 @@  -- | -- Module      : Network.Google.TaskQueue.Types.Sum--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated

@@ -1,5 +1,5 @@ name:                  gogol-taskqueue-version:               0.0.1+version:               0.1.0 synopsis:              Google TaskQueue SDK. homepage:              https://github.com/brendanhay/gogol bug-reports:           https://github.com/brendanhay/gogol/issues@@ -7,14 +7,14 @@ license-file:          LICENSE author:                Brendan Hay maintainer:            Brendan Hay <brendan.g.hay@gmail.com>-copyright:             Copyright (c) 2015 Brendan Hay+copyright:             Copyright (c) 2015-2016 Brendan Hay category:              Network, Google, Cloud build-type:            Simple cabal-version:         >= 1.10 extra-source-files:    README.md  description:-    Lets you access a Google App Engine Pull Task Queue over REST.+    Accesses a Google App Engine Pull Task Queue over REST.     .     /Warning:/ This is an experimental prototype/preview release which is still     under exploratory development and not intended for public use, caveat emptor!@@ -33,7 +33,7 @@     ghc-options:       -Wall      exposed-modules:-          Network.Google.Resource.TaskQueue.Taskqueues.Get+          Network.Google.Resource.TaskQueue.TaskQueues.Get         , Network.Google.Resource.TaskQueue.Tasks.Delete         , Network.Google.Resource.TaskQueue.Tasks.Get         , Network.Google.Resource.TaskQueue.Tasks.Insert@@ -49,5 +49,5 @@         , Network.Google.TaskQueue.Types.Sum      build-depends:-          gogol-core == 0.0.1.*+          gogol-core == 0.1.0.*         , base       >= 4.7 && < 5