@@ -13,7 +13,7 @@
1313{-# OPTIONS_GHC -fno-warn-unused-imports #-}
1414
1515-- |
16−-- Module : Network.Google.Resource.TaskQueue.Taskqueues.Get
16+-- Module : Network.Google.Resource.TaskQueue.TaskQueues.Get
1717-- Copyright : (c) 2015-2016 Brendan Hay
1818-- License : Mozilla Public License, v. 2.0.
1919-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
@@ -23,27 +23,27 @@
2323-- Get detailed information about a TaskQueue.
2424--
2525-- /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
2727 (
2828 -- * REST Resource
29− TaskqueuesGetResource
29+ TaskQueuesGetResource
3030
3131 -- * Creating a Request
32− , taskqueuesGet
33− , TaskqueuesGet
32+ , taskQueuesGet
33+ , TaskQueuesGet
3434
3535 -- * Request Lenses
36− , tasTaskqueue
37− , tasProject
38− , tasGetStats
36+ , tqgTaskQueue
37+ , tqgProject
38+ , tqgGetStats
3939 ) where
4040
4141import Network.Google.Prelude
4242import Network.Google.TaskQueue.Types
4343
4444-- | A resource alias for @taskqueue.taskqueues.get@ method which the
45−-- 'TaskqueuesGet' request conforms to.
46−type TaskqueuesGetResource =
45+-- 'TaskQueuesGet' request conforms to.
46+type TaskQueuesGetResource =
4747 "taskqueue" :>
4848 "v1beta2" :>
4949 "projects" :>
@@ -55,57 +55,57 @@ type TaskqueuesGetResource =
5555
5656-- | Get detailed information about a TaskQueue.
5757--
58−-- /See:/ 'taskqueuesGet' smart constructor.
59−data TaskqueuesGet = TaskqueuesGet'
60− { _tasTaskqueue :: !Text
61− , _tasProject :: !Text
62− , _tasGetStats :: !(Maybe Bool)
58+-- /See:/ 'taskQueuesGet' smart constructor.
59+data TaskQueuesGet = TaskQueuesGet'
60+ { _tqgTaskQueue :: !Text
61+ , _tqgProject :: !Text
62+ , _tqgGetStats :: !(Maybe Bool)
6363 } deriving (Eq,Show,Data,Typeable,Generic)
6464
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.
6666--
6767-- Use one of the following lenses to modify other fields as desired:
6868--
69−-- * 'tasTaskqueue'
69+-- * 'tqgTaskQueue'
7070--
71−-- * 'tasProject'
71+-- * 'tqgProject'
7272--
73−-- * 'tasGetStats'
74−taskqueuesGet
75− :: Text -- ^ 'tasTaskqueue'
76− -> Text -- ^ 'tasProject'
77− -> TaskqueuesGet
78−taskqueuesGet pTasTaskqueue_ pTasProject_ =
79− TaskqueuesGet'
80− { _tasTaskqueue = pTasTaskqueue_
81− , _tasProject = pTasProject_
82− , _tasGetStats = Nothing
73+-- * 'tqgGetStats'
74+taskQueuesGet
75+ :: Text -- ^ 'tqgTaskQueue'
76+ -> Text -- ^ 'tqgProject'
77+ -> TaskQueuesGet
78+taskQueuesGet pTqgTaskQueue_ pTqgProject_ =
79+ TaskQueuesGet'
80+ { _tqgTaskQueue = pTqgTaskQueue_
81+ , _tqgProject = pTqgProject_
82+ , _tqgGetStats = Nothing
8383 }
8484
8585-- | The id of the taskqueue to get the properties of.
86−tasTaskqueue :: Lens' TaskqueuesGet Text
87−tasTaskqueue
88− = lens _tasTaskqueue (\ s a -> s{_tasTaskqueue = a})
86+tqgTaskQueue :: Lens' TaskQueuesGet Text
87+tqgTaskQueue
88+ = lens _tqgTaskQueue (\ s a -> s{_tqgTaskQueue = a})
8989
9090-- | The project under which the queue lies.
91−tasProject :: Lens' TaskqueuesGet Text
92−tasProject
93− = lens _tasProject (\ s a -> s{_tasProject = a})
91+tqgProject :: Lens' TaskQueuesGet Text
92+tqgProject
93+ = lens _tqgProject (\ s a -> s{_tqgProject = a})
9494
9595-- | Whether to get stats. Optional.
96−tasGetStats :: Lens' TaskqueuesGet (Maybe Bool)
97−tasGetStats
98− = lens _tasGetStats (\ s a -> s{_tasGetStats = a})
96+tqgGetStats :: Lens' TaskQueuesGet (Maybe Bool)
97+tqgGetStats
98+ = lens _tqgGetStats (\ s a -> s{_tqgGetStats = a})
9999
100−instance GoogleRequest TaskqueuesGet where
101− type Rs TaskqueuesGet = TaskQueue
102− type Scopes TaskqueuesGet =
100+instance GoogleRequest TaskQueuesGet where
101+ type Rs TaskQueuesGet = TaskQueue
102+ type Scopes TaskQueuesGet =
103103 '["https://www.googleapis.com/auth/taskqueue",
104104 "https://www.googleapis.com/auth/taskqueue.consumer"]
105− requestClient TaskqueuesGet'{..}
106− = go _tasProject _tasTaskqueue _tasGetStats
105+ requestClient TaskQueuesGet'{..}
106+ = go _tqgProject _tqgTaskQueue _tqgGetStats
107107 (Just AltJSON)
108108 taskQueueService
109109 where go
110− = buildClient (Proxy :: Proxy TaskqueuesGetResource)
110+ = buildClient (Proxy :: Proxy TaskQueuesGetResource)
111111 mempty