@@ -13,7 +13,7 @@
13{-# OPTIONS_GHC -fno-warn-unused-imports #-}
13{-# OPTIONS_GHC -fno-warn-unused-imports #-}
16−-- Module : Network.Google.Resource.TaskQueue.Taskqueues.Get
16+-- Module : Network.Google.Resource.TaskQueue.TaskQueues.Get
17-- Copyright : (c) 2015-2016 Brendan Hay
17-- Copyright : (c) 2015-2016 Brendan Hay
18-- License : Mozilla Public License, v. 2.0.
18-- License : Mozilla Public License, v. 2.0.
19-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
19-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
@@ -23,27 +23,27 @@
23-- Get detailed information about a TaskQueue.
23-- Get detailed information about a TaskQueue.
25-- /See:/ <https://developers.google.com/appengine/docs/python/taskqueue/rest TaskQueue API Reference> for @taskqueue.taskqueues.get@.
25-- /See:/ <https://developers.google.com/appengine/docs/python/taskqueue/rest TaskQueue API Reference> for @taskqueue.taskqueues.get@.
26−module Network.Google.Resource.TaskQueue.Taskqueues.Get
26+module Network.Google.Resource.TaskQueue.TaskQueues.Get
28 -- * REST Resource
28 -- * REST Resource
29− TaskqueuesGetResource
29+ TaskQueuesGetResource
31 -- * Creating a Request
31 -- * Creating a Request
32− , taskqueuesGet
32+ , taskQueuesGet
33− , TaskqueuesGet
33+ , TaskQueuesGet
35 -- * Request Lenses
35 -- * Request Lenses
36− , tasTaskqueue
36+ , tqgTaskQueue
37− , tasProject
37+ , tqgProject
38− , tasGetStats
38+ , tqgGetStats
41import Network.Google.Prelude
41import Network.Google.Prelude
42import Network.Google.TaskQueue.Types
42import Network.Google.TaskQueue.Types
44-- | A resource alias for @taskqueue.taskqueues.get@ method which the
44-- | A resource alias for @taskqueue.taskqueues.get@ method which the
45−-- 'TaskqueuesGet' request conforms to.
45+-- 'TaskQueuesGet' request conforms to.
46−type TaskqueuesGetResource =
46+type TaskQueuesGetResource =
47 "taskqueue" :>
47 "taskqueue" :>
48 "v1beta2" :>
48 "v1beta2" :>
49 "projects" :>
49 "projects" :>
@@ -55,57 +55,57 @@ type TaskqueuesGetResource =
56-- | Get detailed information about a TaskQueue.
56-- | Get detailed information about a TaskQueue.
58−-- /See:/ 'taskqueuesGet' smart constructor.
58+-- /See:/ 'taskQueuesGet' smart constructor.
59−data TaskqueuesGet = TaskqueuesGet'
59+data TaskQueuesGet = TaskQueuesGet'
60− { _tasTaskqueue :: !Text
60+ { _tqgTaskQueue :: !Text
61− , _tasProject :: !Text
61+ , _tqgProject :: !Text
62− , _tasGetStats :: !(Maybe Bool)
62+ , _tqgGetStats :: !(Maybe Bool)
63 } deriving (Eq,Show,Data,Typeable,Generic)
63 } deriving (Eq,Show,Data,Typeable,Generic)
65−-- | Creates a value of 'TaskqueuesGet' with the minimum fields required to make a request.
65+-- | Creates a value of 'TaskQueuesGet' with the minimum fields required to make a request.
67-- Use one of the following lenses to modify other fields as desired:
67-- Use one of the following lenses to modify other fields as desired:
69−-- * 'tasTaskqueue'
69+-- * 'tqgTaskQueue'
71−-- * 'tasProject'
71+-- * 'tqgProject'
73−-- * 'tasGetStats'
73+-- * 'tqgGetStats'
74−taskqueuesGet
74+taskQueuesGet
75− :: Text -- ^ 'tasTaskqueue'
75+ :: Text -- ^ 'tqgTaskQueue'
76− -> Text -- ^ 'tasProject'
76+ -> Text -- ^ 'tqgProject'
77− -> TaskqueuesGet
77+ -> TaskQueuesGet
78−taskqueuesGet pTasTaskqueue_ pTasProject_ =
78+taskQueuesGet pTqgTaskQueue_ pTqgProject_ =
79− TaskqueuesGet'
79+ TaskQueuesGet'
80− { _tasTaskqueue = pTasTaskqueue_
80+ { _tqgTaskQueue = pTqgTaskQueue_
81− , _tasProject = pTasProject_
81+ , _tqgProject = pTqgProject_
82− , _tasGetStats = Nothing
82+ , _tqgGetStats = Nothing
85-- | The id of the taskqueue to get the properties of.
85-- | The id of the taskqueue to get the properties of.
86−tasTaskqueue :: Lens' TaskqueuesGet Text
86+tqgTaskQueue :: Lens' TaskQueuesGet Text
87−tasTaskqueue
87+tqgTaskQueue
88− = lens _tasTaskqueue (\ s a -> s{_tasTaskqueue = a})
88+ = lens _tqgTaskQueue (\ s a -> s{_tqgTaskQueue = a})
90-- | The project under which the queue lies.
90-- | The project under which the queue lies.
91−tasProject :: Lens' TaskqueuesGet Text
91+tqgProject :: Lens' TaskQueuesGet Text
92−tasProject
92+tqgProject
93− = lens _tasProject (\ s a -> s{_tasProject = a})
93+ = lens _tqgProject (\ s a -> s{_tqgProject = a})
95-- | Whether to get stats. Optional.
95-- | Whether to get stats. Optional.
96−tasGetStats :: Lens' TaskqueuesGet (Maybe Bool)
96+tqgGetStats :: Lens' TaskQueuesGet (Maybe Bool)
97−tasGetStats
97+tqgGetStats
98− = lens _tasGetStats (\ s a -> s{_tasGetStats = a})
98+ = lens _tqgGetStats (\ s a -> s{_tqgGetStats = a})
100−instance GoogleRequest TaskqueuesGet where
100+instance GoogleRequest TaskQueuesGet where
101− type Rs TaskqueuesGet = TaskQueue
101+ type Rs TaskQueuesGet = TaskQueue
102− type Scopes TaskqueuesGet =
102+ type Scopes TaskQueuesGet =
103 '["https://www.googleapis.com/auth/taskqueue",
103 '["https://www.googleapis.com/auth/taskqueue",
104 "https://www.googleapis.com/auth/taskqueue.consumer"]
104 "https://www.googleapis.com/auth/taskqueue.consumer"]
105− requestClient TaskqueuesGet'{..}
105+ requestClient TaskQueuesGet'{..}
106− = go _tasProject _tasTaskqueue _tasGetStats
106+ = go _tqgProject _tqgTaskQueue _tqgGetStats
107 (Just AltJSON)
107 (Just AltJSON)
108 taskQueueService
108 taskQueueService
110− = buildClient (Proxy :: Proxy TaskqueuesGetResource)
110+ = buildClient (Proxy :: Proxy TaskQueuesGetResource)