gogol-taskqueue/gen/Network/Google/Resource/TaskQueue/TaskQueues/Get.hs · gogol

git.iko.soy/gogol

on ce42607 help sign in

gogol/gogol-taskqueue/gen/Network/Google/Resource/TaskQueue/TaskQueues/Get.hs

111 lines 3.5 kB history raw

1{-# LANGUAGE DataKinds #-}

2{-# LANGUAGE DeriveDataTypeable #-}

3{-# LANGUAGE DeriveGeneric #-}

4{-# LANGUAGE FlexibleInstances #-}

5{-# LANGUAGE NoImplicitPrelude #-}

6{-# LANGUAGE OverloadedStrings #-}

7{-# LANGUAGE RecordWildCards #-}

8{-# LANGUAGE TypeFamilies #-}

9{-# LANGUAGE TypeOperators #-}

11{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}

12{-# OPTIONS_GHC -fno-warn-unused-binds #-}

13{-# OPTIONS_GHC -fno-warn-unused-imports #-}

15-- |

16-- Module : Network.Google.Resource.TaskQueue.TaskQueues.Get

18-- License : Mozilla Public License, v. 2.0.

19-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>

20-- Stability : auto-generated

21-- Portability : non-portable (GHC extensions)

22--

23-- Get detailed information about a TaskQueue.

24--

25-- /See:/ <https://developers.google.com/appengine/docs/python/taskqueue/rest TaskQueue API Reference> for @taskqueue.taskqueues.get@.

26module Network.Google.Resource.TaskQueue.TaskQueues.Get

27 (

28 -- * REST Resource

29 TaskQueuesGetResource

31 -- * Creating a Request

32 , taskQueuesGet

33 , TaskQueuesGet

35 -- * Request Lenses

36 , tqgTaskQueue

37 , tqgProject

38 , tqgGetStats

39 ) where

41import Network.Google.Prelude

42import Network.Google.TaskQueue.Types

44-- | A resource alias for @taskqueue.taskqueues.get@ method which the

45-- 'TaskQueuesGet' request conforms to.

46type TaskQueuesGetResource =

47 "taskqueue" :>

48 "v1beta2" :>

49 "projects" :>

50 Capture "project" Text :>

51 "taskqueues" :>

52 Capture "taskqueue" Text :>

53 QueryParam "getStats" Bool :>

54 QueryParam "alt" AltJSON :> Get '[JSON] TaskQueue

56-- | Get detailed information about a TaskQueue.

57--

58-- /See:/ 'taskQueuesGet' smart constructor.

59data TaskQueuesGet = TaskQueuesGet'

60 { _tqgTaskQueue :: !Text

61 , _tqgProject :: !Text

62 , _tqgGetStats :: !(Maybe Bool)

63 } deriving (Eq,Show,Data,Typeable,Generic)

65-- | Creates a value of 'TaskQueuesGet' with the minimum fields required to make a request.

66--

67-- Use one of the following lenses to modify other fields as desired:

68--

69-- * 'tqgTaskQueue'

70--

71-- * 'tqgProject'

72--

73-- * 'tqgGetStats'

74taskQueuesGet

75 :: Text -- ^ 'tqgTaskQueue'

76 -> Text -- ^ 'tqgProject'

77 -> TaskQueuesGet

78taskQueuesGet pTqgTaskQueue_ pTqgProject_ =

79 TaskQueuesGet'

80 { _tqgTaskQueue = pTqgTaskQueue_

81 , _tqgProject = pTqgProject_

82 , _tqgGetStats = Nothing

83 }

85-- | The id of the taskqueue to get the properties of.

86tqgTaskQueue :: Lens' TaskQueuesGet Text

87tqgTaskQueue

88 = lens _tqgTaskQueue (\ s a -> s{_tqgTaskQueue = a})

90-- | The project under which the queue lies.

91tqgProject :: Lens' TaskQueuesGet Text

92tqgProject

93 = lens _tqgProject (\ s a -> s{_tqgProject = a})

95-- | Whether to get stats. Optional.

96tqgGetStats :: Lens' TaskQueuesGet (Maybe Bool)

97tqgGetStats

98 = lens _tqgGetStats (\ s a -> s{_tqgGetStats = a})

100instance GoogleRequest TaskQueuesGet where

101 type Rs TaskQueuesGet = TaskQueue

102 type Scopes TaskQueuesGet =

103 '["https://www.googleapis.com/auth/taskqueue",

104 "https://www.googleapis.com/auth/taskqueue.consumer"]

105 requestClient TaskQueuesGet'{..}

106 = go _tqgProject _tqgTaskQueue _tqgGetStats

107 (Just AltJSON)

108 taskQueueService

109 where go

110 = buildClient (Proxy :: Proxy TaskQueuesGetResource)

111 mempty