@@ -1,225 +0,0 @@
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 #-}
10−
11−{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
12−{-# OPTIONS_GHC -fno-warn-unused-binds #-}
13−{-# OPTIONS_GHC -fno-warn-unused-imports #-}
14−
15−-- |
16−-- Module : Network.Google.Resource.Dataproc.Media.Upload
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−-- Method for media upload. Upload is supported on the URI
24−-- \`\/upload\/v1\/media\/{+name}\`.
25−--
26−-- /See:/ <https://cloud.google.com/dataproc/ Google Cloud Dataproc API Reference> for @dataproc.media.upload@.
27−module Network.Google.Resource.Dataproc.Media.Upload
28− (
29− -- * REST Resource
30− MediaUploadResource
31−
32− -- * Creating a Request
33− , mediaUpload
34− , MediaUpload'
35−
36− -- * Request Lenses
37− , muXgafv
38− , muUploadProtocol
39− , muResourceName
40− , muPp
41− , muAccessToken
42− , muUploadType
43− , muPayload
44− , muBearerToken
45− , muCallback
46− ) where
47−
48−import Network.Google.Dataproc.Types
49−import Network.Google.Prelude
50−
51−-- | A resource alias for @dataproc.media.upload@ method which the
52−-- 'MediaUpload'' request conforms to.
53−type MediaUploadResource =
54− "v1" :>
55− "media" :>
56− Capture "resourceName" Text :>
57− QueryParam "$.xgafv" Text :>
58− QueryParam "upload_protocol" Text :>
59− QueryParam "pp" Bool :>
60− QueryParam "access_token" Text :>
61− QueryParam "uploadType" Text :>
62− QueryParam "bearer_token" Text :>
63− QueryParam "callback" Text :>
64− QueryParam "alt" AltJSON :>
65− ReqBody '[JSON] Media :> Post '[JSON] Media
66− :<|>
67− "upload" :>
68− "v1" :>
69− "media" :>
70− Capture "resourceName" Text :>
71− QueryParam "$.xgafv" Text :>
72− QueryParam "upload_protocol" Text :>
73− QueryParam "pp" Bool :>
74− QueryParam "access_token" Text :>
75− QueryParam "uploadType" Text :>
76− QueryParam "bearer_token" Text :>
77− QueryParam "callback" Text :>
78− QueryParam "alt" AltJSON :>
79− QueryParam "uploadType" Multipart :>
80− MultipartRelated '[JSON] Media :>
81− Post '[JSON] Media
82−
83−-- | Method for media upload. Upload is supported on the URI
84−-- \`\/upload\/v1\/media\/{+name}\`.
85−--
86−-- /See:/ 'mediaUpload' smart constructor.
87−data MediaUpload' = MediaUpload''
88− { _muXgafv :: !(Maybe Text)
89− , _muUploadProtocol :: !(Maybe Text)
90− , _muResourceName :: !Text
91− , _muPp :: !Bool
92− , _muAccessToken :: !(Maybe Text)
93− , _muUploadType :: !(Maybe Text)
94− , _muPayload :: !Media
95− , _muBearerToken :: !(Maybe Text)
96− , _muCallback :: !(Maybe Text)
97− } deriving (Eq,Show,Data,Typeable,Generic)
98−
99−-- | Creates a value of 'MediaUpload' with the minimum fields required to make a request.
100−--
101−-- Use one of the following lenses to modify other fields as desired:
102−--
103−-- * 'muXgafv'
104−--
105−-- * 'muUploadProtocol'
106−--
107−-- * 'muResourceName'
108−--
109−-- * 'muPp'
110−--
111−-- * 'muAccessToken'
112−--
113−-- * 'muUploadType'
114−--
115−-- * 'muPayload'
116−--
117−-- * 'muBearerToken'
118−--
119−-- * 'muCallback'
120−mediaUpload
121− :: Text -- ^ 'muResourceName'
122− -> Media -- ^ 'muPayload'
123− -> MediaUpload'
124−mediaUpload pMuResourceName_ pMuPayload_ =
125− MediaUpload''
126− { _muXgafv = Nothing
127− , _muUploadProtocol = Nothing
128− , _muResourceName = pMuResourceName_
129− , _muPp = True
130− , _muAccessToken = Nothing
131− , _muUploadType = Nothing
132− , _muPayload = pMuPayload_
133− , _muBearerToken = Nothing
134− , _muCallback = Nothing
135− }
136−
137−-- | V1 error format.
138−muXgafv :: Lens' MediaUpload' (Maybe Text)
139−muXgafv = lens _muXgafv (\ s a -> s{_muXgafv = a})
140−
141−-- | Upload protocol for media (e.g. \"raw\", \"multipart\").
142−muUploadProtocol :: Lens' MediaUpload' (Maybe Text)
143−muUploadProtocol
144− = lens _muUploadProtocol
145− (\ s a -> s{_muUploadProtocol = a})
146−
147−-- | Name of the media that is being downloaded. See
148−-- ByteStream.ReadRequest.resource_name.
149−muResourceName :: Lens' MediaUpload' Text
150−muResourceName
151− = lens _muResourceName
152− (\ s a -> s{_muResourceName = a})
153−
154−-- | Pretty-print response.
155−muPp :: Lens' MediaUpload' Bool
156−muPp = lens _muPp (\ s a -> s{_muPp = a})
157−
158−-- | OAuth access token.
159−muAccessToken :: Lens' MediaUpload' (Maybe Text)
160−muAccessToken
161− = lens _muAccessToken
162− (\ s a -> s{_muAccessToken = a})
163−
164−-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").
165−muUploadType :: Lens' MediaUpload' (Maybe Text)
166−muUploadType
167− = lens _muUploadType (\ s a -> s{_muUploadType = a})
168−
169−-- | Multipart request metadata.
170−muPayload :: Lens' MediaUpload' Media
171−muPayload
172− = lens _muPayload (\ s a -> s{_muPayload = a})
173−
174−-- | OAuth bearer token.
175−muBearerToken :: Lens' MediaUpload' (Maybe Text)
176−muBearerToken
177− = lens _muBearerToken
178− (\ s a -> s{_muBearerToken = a})
179−
180−-- | JSONP
181−muCallback :: Lens' MediaUpload' (Maybe Text)
182−muCallback
183− = lens _muCallback (\ s a -> s{_muCallback = a})
184−
185−instance GoogleRequest MediaUpload' where
186− type Rs MediaUpload' = Media
187− type Scopes MediaUpload' =
188− '["https://www.googleapis.com/auth/cloud-platform",
189− "https://www.googleapis.com/auth/logging.admin",
190− "https://www.googleapis.com/auth/logging.read",
191− "https://www.googleapis.com/auth/logging.write"]
192− requestClient MediaUpload''{..}
193− = go _muResourceName _muXgafv _muUploadProtocol
194− (Just _muPp)
195− _muAccessToken
196− _muUploadType
197− _muBearerToken
198− _muCallback
199− (Just AltJSON)
200− _muPayload
201− dataprocService
202− where go :<|> _
203− = buildClient (Proxy :: Proxy MediaUploadResource)
204− mempty
205−
206−instance GoogleRequest (MediaUpload MediaUpload')
207− where
208− type Rs (MediaUpload MediaUpload') = Media
209− type Scopes (MediaUpload MediaUpload') =
210− Scopes MediaUpload'
211− requestClient (MediaUpload MediaUpload''{..} body)
212− = go _muResourceName _muXgafv _muUploadProtocol
213− (Just _muPp)
214− _muAccessToken
215− _muUploadType
216− _muBearerToken
217− _muCallback
218− (Just AltJSON)
219− (Just Multipart)
220− _muPayload
221− body
222− dataprocService
223− where _ :<|> go
224− = buildClient (Proxy :: Proxy MediaUploadResource)
225− mempty