git.iko.soy/gogol
on develop help sign in
gogol/gogol-containeranalysis/gen/Network/Google/Resource/ContainerAnalysis/Projects/Notes/BatchCreate.hs
167 lines 5.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.ContainerAnalysis.Projects.Notes.BatchCreate
17-- Copyright : (c) 2015-2016 Brendan Hay
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-- Creates new notes in batch.
24--
25-- /See:/ <https://cloud.google.com/container-analysis/api/reference/rest/ Container Analysis API Reference> for @containeranalysis.projects.notes.batchCreate@.
26module Network.Google.Resource.ContainerAnalysis.Projects.Notes.BatchCreate
27 (
28 -- * REST Resource
29 ProjectsNotesBatchCreateResource
31 -- * Creating a Request
32 , projectsNotesBatchCreate
33 , ProjectsNotesBatchCreate
35 -- * Request Lenses
36 , pnbcParent
37 , pnbcXgafv
38 , pnbcUploadProtocol
39 , pnbcAccessToken
40 , pnbcUploadType
41 , pnbcPayload
42 , pnbcCallback
43 ) where
45import Network.Google.ContainerAnalysis.Types
46import Network.Google.Prelude
48-- | A resource alias for @containeranalysis.projects.notes.batchCreate@ method which the
49-- 'ProjectsNotesBatchCreate' request conforms to.
50type ProjectsNotesBatchCreateResource =
51 "v1beta1" :>
52 Capture "parent" Text :>
53 "notes:batchCreate" :>
54 QueryParam "$.xgafv" Xgafv :>
55 QueryParam "upload_protocol" Text :>
56 QueryParam "access_token" Text :>
57 QueryParam "uploadType" Text :>
58 QueryParam "callback" Text :>
59 QueryParam "alt" AltJSON :>
60 ReqBody '[JSON] BatchCreateNotesRequest :>
61 Post '[JSON] BatchCreateNotesResponse
63-- | Creates new notes in batch.
64--
65-- /See:/ 'projectsNotesBatchCreate' smart constructor.
66data ProjectsNotesBatchCreate =
67 ProjectsNotesBatchCreate'
68 { _pnbcParent :: !Text
69 , _pnbcXgafv :: !(Maybe Xgafv)
70 , _pnbcUploadProtocol :: !(Maybe Text)
71 , _pnbcAccessToken :: !(Maybe Text)
72 , _pnbcUploadType :: !(Maybe Text)
73 , _pnbcPayload :: !BatchCreateNotesRequest
74 , _pnbcCallback :: !(Maybe Text)
75 }
76 deriving (Eq, Show, Data, Typeable, Generic)
79-- | Creates a value of 'ProjectsNotesBatchCreate' with the minimum fields required to make a request.
80--
81-- Use one of the following lenses to modify other fields as desired:
82--
83-- * 'pnbcParent'
84--
85-- * 'pnbcXgafv'
86--
87-- * 'pnbcUploadProtocol'
88--
89-- * 'pnbcAccessToken'
90--
91-- * 'pnbcUploadType'
92--
93-- * 'pnbcPayload'
94--
95-- * 'pnbcCallback'
96projectsNotesBatchCreate
97 :: Text -- ^ 'pnbcParent'
98 -> BatchCreateNotesRequest -- ^ 'pnbcPayload'
99 -> ProjectsNotesBatchCreate
100projectsNotesBatchCreate pPnbcParent_ pPnbcPayload_ =
101 ProjectsNotesBatchCreate'
102 { _pnbcParent = pPnbcParent_
103 , _pnbcXgafv = Nothing
104 , _pnbcUploadProtocol = Nothing
105 , _pnbcAccessToken = Nothing
106 , _pnbcUploadType = Nothing
107 , _pnbcPayload = pPnbcPayload_
108 , _pnbcCallback = Nothing
109 }
112-- | The name of the project in the form of \`projects\/[PROJECT_ID]\`, under
113-- which the notes are to be created.
114pnbcParent :: Lens' ProjectsNotesBatchCreate Text
115pnbcParent
116 = lens _pnbcParent (\ s a -> s{_pnbcParent = a})
118-- | V1 error format.
119pnbcXgafv :: Lens' ProjectsNotesBatchCreate (Maybe Xgafv)
120pnbcXgafv
121 = lens _pnbcXgafv (\ s a -> s{_pnbcXgafv = a})
123-- | Upload protocol for media (e.g. \"raw\", \"multipart\").
124pnbcUploadProtocol :: Lens' ProjectsNotesBatchCreate (Maybe Text)
125pnbcUploadProtocol
126 = lens _pnbcUploadProtocol
127 (\ s a -> s{_pnbcUploadProtocol = a})
129-- | OAuth access token.
130pnbcAccessToken :: Lens' ProjectsNotesBatchCreate (Maybe Text)
131pnbcAccessToken
132 = lens _pnbcAccessToken
133 (\ s a -> s{_pnbcAccessToken = a})
135-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").
136pnbcUploadType :: Lens' ProjectsNotesBatchCreate (Maybe Text)
137pnbcUploadType
138 = lens _pnbcUploadType
139 (\ s a -> s{_pnbcUploadType = a})
141-- | Multipart request metadata.
142pnbcPayload :: Lens' ProjectsNotesBatchCreate BatchCreateNotesRequest
143pnbcPayload
144 = lens _pnbcPayload (\ s a -> s{_pnbcPayload = a})
146-- | JSONP
147pnbcCallback :: Lens' ProjectsNotesBatchCreate (Maybe Text)
148pnbcCallback
149 = lens _pnbcCallback (\ s a -> s{_pnbcCallback = a})
151instance GoogleRequest ProjectsNotesBatchCreate where
152 type Rs ProjectsNotesBatchCreate =
153 BatchCreateNotesResponse
154 type Scopes ProjectsNotesBatchCreate =
155 '["https://www.googleapis.com/auth/cloud-platform"]
156 requestClient ProjectsNotesBatchCreate'{..}
157 = go _pnbcParent _pnbcXgafv _pnbcUploadProtocol
158 _pnbcAccessToken
159 _pnbcUploadType
160 _pnbcCallback
161 (Just AltJSON)
162 _pnbcPayload
163 containerAnalysisService
164 where go
165 = buildClient
166 (Proxy :: Proxy ProjectsNotesBatchCreateResource)
167 mempty