on develop help sign in
Generating new gogol-manufacturers library
commitc9845f69b5ab7bcea4638291e3b7ef259f602112 authorBrendan Hay <brendan.g.hay@gmail.com> dateSat 11 Feb 2017, 11:36 (10 years ago) parent88dbd26
12 files changed+1536
gogol-manufacturers/LICENSE+367 gogol-manufacturers/Makefile+1 gogol-manufacturers/README.md+28 gogol-manufacturers/Setup.hs+2 gogol-manufacturers/gen/Network/Google/Manufacturers.hs+99 gogol-manufacturers/gen/Network/Google/Manufacturers/Types.hs+84 gogol-manufacturers/gen/Network/Google/Manufacturers/Types/Product.hs+429 gogol-manufacturers/gen/Network/Google/Manufacturers/Types/Sum.hs+91 gogol-manufacturers/gen/Network/Google/Resource/Manufacturers/Accounts/Products/Get.hs+190 gogol-manufacturers/gen/Network/Google/Resource/Manufacturers/Accounts/Products/List.hs+198 gogol-manufacturers/gogol-manufacturers.cabal+47 gogol-manufacturers/src/.gitkeep
gogol-manufacturers/LICENSEnew file+367
@@ -0,0 +1,367 @@
1+Mozilla Public License Version 2.0
2+==================================
3+
4+1. Definitions
5+--------------
6+
7+1.1. "Contributor"
8+ means each individual or legal entity that creates, contributes to
9+ the creation of, or owns Covered Software.
10+
11+1.2. "Contributor Version"
12+ means the combination of the Contributions of others (if any) used
13+ by a Contributor and that particular Contributor's Contribution.
14+
15+1.3. "Contribution"
16+ means Covered Software of a particular Contributor.
17+
18+1.4. "Covered Software"
19+ means Source Code Form to which the initial Contributor has attached
20+ the notice in Exhibit A, the Executable Form of such Source Code
21+ Form, and Modifications of such Source Code Form, in each case
22+ including portions thereof.
23+
24+1.5. "Incompatible With Secondary Licenses"
25+ means
26+
27+ (a) that the initial Contributor has attached the notice described
28+ in Exhibit B to the Covered Software; or
29+
30+ (b) that the Covered Software was made available under the terms of
31+ version 1.1 or earlier of the License, but not also under the
32+ terms of a Secondary License.
33+
34+1.6. "Executable Form"
35+ means any form of the work other than Source Code Form.
36+
37+1.7. "Larger Work"
38+ means a work that combines Covered Software with other material, in
39+ a separate file or files, that is not Covered Software.
40+
41+1.8. "License"
42+ means this document.
43+
44+1.9. "Licensable"
45+ means having the right to grant, to the maximum extent possible,
46+ whether at the time of the initial grant or subsequently, any and
47+ all of the rights conveyed by this License.
48+
49+1.10. "Modifications"
50+ means any of the following:
51+
52+ (a) any file in Source Code Form that results from an addition to,
53+ deletion from, or modification of the contents of Covered
54+ Software; or
55+
56+ (b) any new file in Source Code Form that contains any Covered
57+ Software.
58+
59+1.11. "Patent Claims" of a Contributor
60+ means any patent claim(s), including without limitation, method,
61+ process, and apparatus claims, in any patent Licensable by such
62+ Contributor that would be infringed, but for the grant of the
63+ License, by the making, using, selling, offering for sale, having
64+ made, import, or transfer of either its Contributions or its
65+ Contributor Version.
66+
67+1.12. "Secondary License"
68+ means either the GNU General Public License, Version 2.0, the GNU
69+ Lesser General Public License, Version 2.1, the GNU Affero General
70+ Public License, Version 3.0, or any later versions of those
71+ licenses.
72+
73+1.13. "Source Code Form"
74+ means the form of the work preferred for making modifications.
75+
76+1.14. "You" (or "Your")
77+ means an individual or a legal entity exercising rights under this
78+ License. For legal entities, "You" includes any entity that
79+ controls, is controlled by, or is under common control with You. For
80+ purposes of this definition, "control" means (a) the power, direct
81+ or indirect, to cause the direction or management of such entity,
82+ whether by contract or otherwise, or (b) ownership of more than
83+ fifty percent (50%) of the outstanding shares or beneficial
84+ ownership of such entity.
85+
86+2. License Grants and Conditions
87+--------------------------------
88+
89+2.1. Grants
90+
91+Each Contributor hereby grants You a world-wide, royalty-free,
92+non-exclusive license:
93+
94+(a) under intellectual property rights (other than patent or trademark)
95+ Licensable by such Contributor to use, reproduce, make available,
96+ modify, display, perform, distribute, and otherwise exploit its
97+ Contributions, either on an unmodified basis, with Modifications, or
98+ as part of a Larger Work; and
99+
100+(b) under Patent Claims of such Contributor to make, use, sell, offer
101+ for sale, have made, import, and otherwise transfer either its
102+ Contributions or its Contributor Version.
103+
104+2.2. Effective Date
105+
106+The licenses granted in Section 2.1 with respect to any Contribution
107+become effective for each Contribution on the date the Contributor first
108+distributes such Contribution.
109+
110+2.3. Limitations on Grant Scope
111+
112+The licenses granted in this Section 2 are the only rights granted under
113+this License. No additional rights or licenses will be implied from the
114+distribution or licensing of Covered Software under this License.
115+Notwithstanding Section 2.1(b) above, no patent license is granted by a
116+Contributor:
117+
118+(a) for any code that a Contributor has removed from Covered Software;
119+ or
120+
121+(b) for infringements caused by: (i) Your and any other third party's
122+ modifications of Covered Software, or (ii) the combination of its
123+ Contributions with other software (except as part of its Contributor
124+ Version); or
125+
126+(c) under Patent Claims infringed by Covered Software in the absence of
127+ its Contributions.
128+
129+This License does not grant any rights in the trademarks, service marks,
130+or logos of any Contributor (except as may be necessary to comply with
131+the notice requirements in Section 3.4).
132+
133+2.4. Subsequent Licenses
134+
135+No Contributor makes additional grants as a result of Your choice to
136+distribute the Covered Software under a subsequent version of this
137+License (see Section 10.2) or under the terms of a Secondary License (if
138+permitted under the terms of Section 3.3).
139+
140+2.5. Representation
141+
142+Each Contributor represents that the Contributor believes its
143+Contributions are its original creation(s) or it has sufficient rights
144+to grant the rights to its Contributions conveyed by this License.
145+
146+2.6. Fair Use
147+
148+This License is not intended to limit any rights You have under
149+applicable copyright doctrines of fair use, fair dealing, or other
150+equivalents.
151+
152+2.7. Conditions
153+
154+Sections 3.1, 3.2, 3.3, and 3.4 are conditions of the licenses granted
155+in Section 2.1.
156+
157+3. Responsibilities
158+-------------------
159+
160+3.1. Distribution of Source Form
161+
162+All distribution of Covered Software in Source Code Form, including any
163+Modifications that You create or to which You contribute, must be under
164+the terms of this License. You must inform recipients that the Source
165+Code Form of the Covered Software is governed by the terms of this
166+License, and how they can obtain a copy of this License. You may not
167+attempt to alter or restrict the recipients' rights in the Source Code
168+Form.
169+
170+3.2. Distribution of Executable Form
171+
172+If You distribute Covered Software in Executable Form then:
173+
174+(a) such Covered Software must also be made available in Source Code
175+ Form, as described in Section 3.1, and You must inform recipients of
176+ the Executable Form how they can obtain a copy of such Source Code
177+ Form by reasonable means in a timely manner, at a charge no more
178+ than the cost of distribution to the recipient; and
179+
180+(b) You may distribute such Executable Form under the terms of this
181+ License, or sublicense it under different terms, provided that the
182+ license for the Executable Form does not attempt to limit or alter
183+ the recipients' rights in the Source Code Form under this License.
184+
185+3.3. Distribution of a Larger Work
186+
187+You may create and distribute a Larger Work under terms of Your choice,
188+provided that You also comply with the requirements of this License for
189+the Covered Software. If the Larger Work is a combination of Covered
190+Software with a work governed by one or more Secondary Licenses, and the
191+Covered Software is not Incompatible With Secondary Licenses, this
192+License permits You to additionally distribute such Covered Software
193+under the terms of such Secondary License(s), so that the recipient of
194+the Larger Work may, at their option, further distribute the Covered
195+Software under the terms of either this License or such Secondary
196+License(s).
197+
198+3.4. Notices
199+
200+You may not remove or alter the substance of any license notices
201+(including copyright notices, patent notices, disclaimers of warranty,
202+or limitations of liability) contained within the Source Code Form of
203+the Covered Software, except that You may alter any license notices to
204+the extent required to remedy known factual inaccuracies.
205+
206+3.5. Application of Additional Terms
207+
208+You may choose to offer, and to charge a fee for, warranty, support,
209+indemnity or liability obligations to one or more recipients of Covered
210+Software. However, You may do so only on Your own behalf, and not on
211+behalf of any Contributor. You must make it absolutely clear that any
212+such warranty, support, indemnity, or liability obligation is offered by
213+You alone, and You hereby agree to indemnify every Contributor for any
214+liability incurred by such Contributor as a result of warranty, support,
215+indemnity or liability terms You offer. You may include additional
216+disclaimers of warranty and limitations of liability specific to any
217+jurisdiction.
218+
219+4. Inability to Comply Due to Statute or Regulation
220+---------------------------------------------------
221+
222+If it is impossible for You to comply with any of the terms of this
223+License with respect to some or all of the Covered Software due to
224+statute, judicial order, or regulation then You must: (a) comply with
225+the terms of this License to the maximum extent possible; and (b)
226+describe the limitations and the code they affect. Such description must
227+be placed in a text file included with all distributions of the Covered
228+Software under this License. Except to the extent prohibited by statute
229+or regulation, such description must be sufficiently detailed for a
230+recipient of ordinary skill to be able to understand it.
231+
232+5. Termination
233+--------------
234+
235+5.1. The rights granted under this License will terminate automatically
236+if You fail to comply with any of its terms. However, if You become
237+compliant, then the rights granted under this License from a particular
238+Contributor are reinstated (a) provisionally, unless and until such
239+Contributor explicitly and finally terminates Your grants, and (b) on an
240+ongoing basis, if such Contributor fails to notify You of the
241+non-compliance by some reasonable means prior to 60 days after You have
242+come back into compliance. Moreover, Your grants from a particular
243+Contributor are reinstated on an ongoing basis if such Contributor
244+notifies You of the non-compliance by some reasonable means, this is the
245+first time You have received notice of non-compliance with this License
246+from such Contributor, and You become compliant prior to 30 days after
247+Your receipt of the notice.
248+
249+5.2. If You initiate litigation against any entity by asserting a patent
250+infringement claim (excluding declaratory judgment actions,
251+counter-claims, and cross-claims) alleging that a Contributor Version
252+directly or indirectly infringes any patent, then the rights granted to
253+You by any and all Contributors for the Covered Software under Section
254+2.1 of this License shall terminate.
255+
256+5.3. In the event of termination under Sections 5.1 or 5.2 above, all
257+end user license agreements (excluding distributors and resellers) which
258+have been validly granted by You or Your distributors under this License
259+prior to termination shall survive termination.
260+
261+************************************************************************
262+* *
263+* 6. Disclaimer of Warranty *
264+* ------------------------- *
265+* *
266+* Covered Software is provided under this License on an "as is" *
267+* basis, without warranty of any kind, either expressed, implied, or *
268+* statutory, including, without limitation, warranties that the *
269+* Covered Software is free of defects, merchantable, fit for a *
270+* particular purpose or non-infringing. The entire risk as to the *
271+* quality and performance of the Covered Software is with You. *
272+* Should any Covered Software prove defective in any respect, You *
273+* (not any Contributor) assume the cost of any necessary servicing, *
274+* repair, or correction. This disclaimer of warranty constitutes an *
275+* essential part of this License. No use of any Covered Software is *
276+* authorized under this License except under this disclaimer. *
277+* *
278+************************************************************************
279+
280+************************************************************************
281+* *
282+* 7. Limitation of Liability *
283+* -------------------------- *
284+* *
285+* Under no circumstances and under no legal theory, whether tort *
286+* (including negligence), contract, or otherwise, shall any *
287+* Contributor, or anyone who distributes Covered Software as *
288+* permitted above, be liable to You for any direct, indirect, *
289+* special, incidental, or consequential damages of any character *
290+* including, without limitation, damages for lost profits, loss of *
291+* goodwill, work stoppage, computer failure or malfunction, or any *
292+* and all other commercial damages or losses, even if such party *
293+* shall have been informed of the possibility of such damages. This *
294+* limitation of liability shall not apply to liability for death or *
295+* personal injury resulting from such party's negligence to the *
296+* extent applicable law prohibits such limitation. Some *
297+* jurisdictions do not allow the exclusion or limitation of *
298+* incidental or consequential damages, so this exclusion and *
299+* limitation may not apply to You. *
300+* *
301+************************************************************************
302+
303+8. Litigation
304+-------------
305+
306+Any litigation relating to this License may be brought only in the
307+courts of a jurisdiction where the defendant maintains its principal
308+place of business and such litigation shall be governed by laws of that
309+jurisdiction, without reference to its conflict-of-law provisions.
310+Nothing in this Section shall prevent a party's ability to bring
311+cross-claims or counter-claims.
312+
313+9. Miscellaneous
314+----------------
315+
316+This License represents the complete agreement concerning the subject
317+matter hereof. If any provision of this License is held to be
318+unenforceable, such provision shall be reformed only to the extent
319+necessary to make it enforceable. Any law or regulation which provides
320+that the language of a contract shall be construed against the drafter
321+shall not be used to construe this License against a Contributor.
322+
323+10. Versions of the License
324+---------------------------
325+
326+10.1. New Versions
327+
328+Mozilla Foundation is the license steward. Except as provided in Section
329+10.3, no one other than the license steward has the right to modify or
330+publish new versions of this License. Each version will be given a
331+distinguishing version number.
332+
333+10.2. Effect of New Versions
334+
335+You may distribute the Covered Software under the terms of the version
336+of the License under which You originally received the Covered Software,
337+or under the terms of any subsequent version published by the license
338+steward.
339+
340+10.3. Modified Versions
341+
342+If you create software not governed by this License, and you want to
343+create a new license for such software, you may create and use a
344+modified version of this License if you rename the license and remove
345+any references to the name of the license steward (except to note that
346+such modified license differs from this License).
347+
348+10.4. Distributing Source Code Form that is Incompatible With Secondary
349+Licenses
350+
351+If You choose to distribute Source Code Form that is Incompatible With
352+Secondary Licenses under the terms of this version of the License, the
353+notice described in Exhibit B of this License must be attached.
354+
355+Exhibit A - Source Code Form License Notice
356+-------------------------------------------
357+
358+ This Source Code Form is subject to the terms of the Mozilla Public
359+ License, v. 2.0. If a copy of the MPL was not distributed with this
360+ file, You can obtain one at http://mozilla.org/MPL/2.0/.
361+
362+If it is not possible or desirable to put the notice in a particular
363+file, then You may include the notice in a location (such as a LICENSE
364+file in a relevant directory) where a recipient would be likely to look
365+for such a notice.
366+
367+You may add additional accurate notices of copyright ownership.
gogol-manufacturers/Makefilenew file+1
@@ -0,0 +1 @@
1+include ../share/library.mk
gogol-manufacturers/README.mdnew file+28
@@ -0,0 +1,28 @@
1+# gogol-manufacturers
2+
3+* [Version](#version)
4+* [Description](#description)
5+* [Contribute](#contribute)
6+* [Licence](#licence)
7+
8+
9+## Version
10+
11+`0.1.1`
12+
13+
14+## Description
15+
16+A client library for the Google Manufacturer Center.
17+
18+
19+## Contribute
20+
21+For any problems, comments, or feedback please create an issue [here on GitHub](https://github.com/brendanhay/gogol/issues).
22+
23+> _Note:_ this library is an auto-generated Haskell package. Please see `gogol-gen` for more information.
24+
25+
26+## Licence
27+
28+`gogol-manufacturers` is released under the [Mozilla Public License Version 2.0](http://www.mozilla.org/MPL/).
gogol-manufacturers/Setup.hsnew file+2
@@ -0,0 +1,2 @@
1+import Distribution.Simple
2+main = defaultMain
gogol-manufacturers/gen/Network/Google/Manufacturers.hsnew file+99
@@ -0,0 +1,99 @@
1+{-# LANGUAGE DataKinds #-}
2+{-# LANGUAGE NoImplicitPrelude #-}
3+{-# LANGUAGE TypeOperators #-}
4+
5+{-# OPTIONS_GHC -fno-warn-unused-imports #-}
6+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
7+
8+-- |
9+-- Module : Network.Google.Manufacturers
10+-- Copyright : (c) 2015-2016 Brendan Hay
11+-- License : Mozilla Public License, v. 2.0.
12+-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
13+-- Stability : auto-generated
14+-- Portability : non-portable (GHC extensions)
15+--
16+-- Public API for managing Manufacturer Center related data.
17+--
18+-- /See:/ <https://developers.google.com/manufacturers/ Manufacturer Center API Reference>
19+module Network.Google.Manufacturers
20+ (
21+ -- * Service Configuration
22+ manufacturersService
23+
24+ -- * OAuth Scopes
25+ , manufacturercenterScope
26+
27+ -- * API Declaration
28+ , ManufacturersAPI
29+
30+ -- * Resources
31+
32+ -- ** manufacturers.accounts.products.get
33+ , module Network.Google.Resource.Manufacturers.Accounts.Products.Get
34+
35+ -- ** manufacturers.accounts.products.list
36+ , module Network.Google.Resource.Manufacturers.Accounts.Products.List
37+
38+ -- * Types
39+
40+ -- ** Attributes
41+ , Attributes
42+ , attributes
43+ , aProductName
44+ , aProductLine
45+ , aProductType
46+ , aBrand
47+ , aGtin
48+ , aTitle
49+ , aMpn
50+ , aProductPageURL
51+
52+ -- ** Xgafv
53+ , Xgafv (..)
54+
55+ -- ** IssueSeverity
56+ , IssueSeverity (..)
57+
58+ -- ** Product
59+ , Product
60+ , product
61+ , pParent
62+ , pManuallyDeletedAttributes
63+ , pTargetCountry
64+ , pManuallyProvidedAttributes
65+ , pName
66+ , pIssues
67+ , pUploadedAttributes
68+ , pContentLanguage
69+ , pFinalAttributes
70+ , pProductId
71+
72+ -- ** Issue
73+ , Issue
74+ , issue
75+ , iAttribute
76+ , iSeverity
77+ , iType
78+ , iDescription
79+
80+ -- ** ListProductsResponse
81+ , ListProductsResponse
82+ , listProductsResponse
83+ , lprNextPageToken
84+ , lprProducts
85+ ) where
86+
87+import Network.Google.Manufacturers.Types
88+import Network.Google.Prelude
89+import Network.Google.Resource.Manufacturers.Accounts.Products.Get
90+import Network.Google.Resource.Manufacturers.Accounts.Products.List
91+
92+{- $resources
93+TODO
94+-}
95+
96+-- | Represents the entirety of the methods and resources available for the Manufacturer Center API service.
97+type ManufacturersAPI =
98+ AccountsProductsListResource :<|>
99+ AccountsProductsGetResource
gogol-manufacturers/gen/Network/Google/Manufacturers/Types.hsnew file+84
@@ -0,0 +1,84 @@
1+{-# LANGUAGE DataKinds #-}
2+{-# LANGUAGE DeriveDataTypeable #-}
3+{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE NoImplicitPrelude #-}
5+{-# LANGUAGE OverloadedStrings #-}
6+
7+{-# OPTIONS_GHC -fno-warn-unused-imports #-}
8+
9+-- |
10+-- Module : Network.Google.Manufacturers.Types
11+-- Copyright : (c) 2015-2016 Brendan Hay
12+-- License : Mozilla Public License, v. 2.0.
13+-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
14+-- Stability : auto-generated
15+-- Portability : non-portable (GHC extensions)
16+--
17+module Network.Google.Manufacturers.Types
18+ (
19+ -- * Service Configuration
20+ manufacturersService
21+
22+ -- * OAuth Scopes
23+ , manufacturercenterScope
24+
25+ -- * Attributes
26+ , Attributes
27+ , attributes
28+ , aProductName
29+ , aProductLine
30+ , aProductType
31+ , aBrand
32+ , aGtin
33+ , aTitle
34+ , aMpn
35+ , aProductPageURL
36+
37+ -- * Xgafv
38+ , Xgafv (..)
39+
40+ -- * IssueSeverity
41+ , IssueSeverity (..)
42+
43+ -- * Product
44+ , Product
45+ , product
46+ , pParent
47+ , pManuallyDeletedAttributes
48+ , pTargetCountry
49+ , pManuallyProvidedAttributes
50+ , pName
51+ , pIssues
52+ , pUploadedAttributes
53+ , pContentLanguage
54+ , pFinalAttributes
55+ , pProductId
56+
57+ -- * Issue
58+ , Issue
59+ , issue
60+ , iAttribute
61+ , iSeverity
62+ , iType
63+ , iDescription
64+
65+ -- * ListProductsResponse
66+ , ListProductsResponse
67+ , listProductsResponse
68+ , lprNextPageToken
69+ , lprProducts
70+ ) where
71+
72+import Network.Google.Manufacturers.Types.Product
73+import Network.Google.Manufacturers.Types.Sum
74+import Network.Google.Prelude
75+
76+-- | Default request referring to version 'v1' of the Manufacturer Center API. This contains the host and root path used as a starting point for constructing service requests.
77+manufacturersService :: ServiceConfig
78+manufacturersService
79+ = defaultService (ServiceId "manufacturers:v1")
80+ "manufacturers.googleapis.com"
81+
82+-- | Manage your product listings for Google Manufacturer Center
83+manufacturercenterScope :: Proxy '["https://www.googleapis.com/auth/manufacturercenter"]
84+manufacturercenterScope = Proxy;
gogol-manufacturers/gen/Network/Google/Manufacturers/Types/Product.hsnew file+429
@@ -0,0 +1,429 @@
1+{-# LANGUAGE DeriveDataTypeable #-}
2+{-# LANGUAGE DeriveGeneric #-}
3+{-# LANGUAGE NoImplicitPrelude #-}
4+{-# LANGUAGE OverloadedStrings #-}
5+{-# LANGUAGE RecordWildCards #-}
6+
7+{-# OPTIONS_GHC -fno-warn-unused-binds #-}
8+{-# OPTIONS_GHC -fno-warn-unused-imports #-}
9+
10+-- |
11+-- Module : Network.Google.Manufacturers.Types.Product
12+-- Copyright : (c) 2015-2016 Brendan Hay
13+-- License : Mozilla Public License, v. 2.0.
14+-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
15+-- Stability : auto-generated
16+-- Portability : non-portable (GHC extensions)
17+--
18+module Network.Google.Manufacturers.Types.Product where
19+
20+import Network.Google.Manufacturers.Types.Sum
21+import Network.Google.Prelude
22+
23+-- | Attributes of the product. For more information, see
24+-- https:\/\/support.google.com\/manufacturers\/answer\/6124116.
25+--
26+-- /See:/ 'attributes' smart constructor.
27+data Attributes = Attributes'
28+ { _aProductName :: !(Maybe Text)
29+ , _aProductLine :: !(Maybe Text)
30+ , _aProductType :: !(Maybe [Text])
31+ , _aBrand :: !(Maybe Text)
32+ , _aGtin :: !(Maybe [Text])
33+ , _aTitle :: !(Maybe Text)
34+ , _aMpn :: !(Maybe Text)
35+ , _aProductPageURL :: !(Maybe Text)
36+ } deriving (Eq,Show,Data,Typeable,Generic)
37+
38+-- | Creates a value of 'Attributes' with the minimum fields required to make a request.
39+--
40+-- Use one of the following lenses to modify other fields as desired:
41+--
42+-- * 'aProductName'
43+--
44+-- * 'aProductLine'
45+--
46+-- * 'aProductType'
47+--
48+-- * 'aBrand'
49+--
50+-- * 'aGtin'
51+--
52+-- * 'aTitle'
53+--
54+-- * 'aMpn'
55+--
56+-- * 'aProductPageURL'
57+attributes
58+ :: Attributes
59+attributes =
60+ Attributes'
61+ { _aProductName = Nothing
62+ , _aProductLine = Nothing
63+ , _aProductType = Nothing
64+ , _aBrand = Nothing
65+ , _aGtin = Nothing
66+ , _aTitle = Nothing
67+ , _aMpn = Nothing
68+ , _aProductPageURL = Nothing
69+ }
70+
71+-- | The canonical name of the product. For more information, see
72+-- https:\/\/support.google.com\/manufacturers\/answer\/6124116#productname.
73+aProductName :: Lens' Attributes (Maybe Text)
74+aProductName
75+ = lens _aProductName (\ s a -> s{_aProductName = a})
76+
77+-- | The name of the group of products related to the product. For more
78+-- information, see
79+-- https:\/\/support.google.com\/manufacturers\/answer\/6124116#productline.
80+aProductLine :: Lens' Attributes (Maybe Text)
81+aProductLine
82+ = lens _aProductLine (\ s a -> s{_aProductLine = a})
83+
84+-- | The manufacturer\'s category of the product. For more information, see
85+-- https:\/\/support.google.com\/manufacturers\/answer\/6124116#producttype.
86+aProductType :: Lens' Attributes [Text]
87+aProductType
88+ = lens _aProductType (\ s a -> s{_aProductType = a})
89+ . _Default
90+ . _Coerce
91+
92+-- | The brand name of the product. For more information, see
93+-- https:\/\/support.google.com\/manufacturers\/answer\/6124116#brand.
94+aBrand :: Lens' Attributes (Maybe Text)
95+aBrand = lens _aBrand (\ s a -> s{_aBrand = a})
96+
97+-- | The Global Trade Item Number (GTIN) of the product. For more
98+-- information, see
99+-- https:\/\/support.google.com\/manufacturers\/answer\/6124116#gtin.
100+aGtin :: Lens' Attributes [Text]
101+aGtin
102+ = lens _aGtin (\ s a -> s{_aGtin = a}) . _Default .
103+ _Coerce
104+
105+-- | The title of the product. For more information, see
106+-- https:\/\/support.google.com\/manufacturers\/answer\/6124116#title.
107+aTitle :: Lens' Attributes (Maybe Text)
108+aTitle = lens _aTitle (\ s a -> s{_aTitle = a})
109+
110+-- | The Manufacturer Part Number (MPN) of the product. For more information,
111+-- see https:\/\/support.google.com\/manufacturers\/answer\/6124116#mpn.
112+aMpn :: Lens' Attributes (Maybe Text)
113+aMpn = lens _aMpn (\ s a -> s{_aMpn = a})
114+
115+-- | The URL of the manufacturer\'s detail page of the product. For more
116+-- information, see
117+-- https:\/\/support.google.com\/manufacturers\/answer\/6124116#productpage.
118+aProductPageURL :: Lens' Attributes (Maybe Text)
119+aProductPageURL
120+ = lens _aProductPageURL
121+ (\ s a -> s{_aProductPageURL = a})
122+
123+instance FromJSON Attributes where
124+ parseJSON
125+ = withObject "Attributes"
126+ (\ o ->
127+ Attributes' <$>
128+ (o .:? "productName") <*> (o .:? "productLine") <*>
129+ (o .:? "productType" .!= mempty)
130+ <*> (o .:? "brand")
131+ <*> (o .:? "gtin" .!= mempty)
132+ <*> (o .:? "title")
133+ <*> (o .:? "mpn")
134+ <*> (o .:? "productPageUrl"))
135+
136+instance ToJSON Attributes where
137+ toJSON Attributes'{..}
138+ = object
139+ (catMaybes
140+ [("productName" .=) <$> _aProductName,
141+ ("productLine" .=) <$> _aProductLine,
142+ ("productType" .=) <$> _aProductType,
143+ ("brand" .=) <$> _aBrand, ("gtin" .=) <$> _aGtin,
144+ ("title" .=) <$> _aTitle, ("mpn" .=) <$> _aMpn,
145+ ("productPageUrl" .=) <$> _aProductPageURL])
146+
147+-- | Product data.
148+--
149+-- /See:/ 'product' smart constructor.
150+data Product = Product'
151+ { _pParent :: !(Maybe Text)
152+ , _pManuallyDeletedAttributes :: !(Maybe [Text])
153+ , _pTargetCountry :: !(Maybe Text)
154+ , _pManuallyProvidedAttributes :: !(Maybe Attributes)
155+ , _pName :: !(Maybe Text)
156+ , _pIssues :: !(Maybe [Issue])
157+ , _pUploadedAttributes :: !(Maybe Attributes)
158+ , _pContentLanguage :: !(Maybe Text)
159+ , _pFinalAttributes :: !(Maybe Attributes)
160+ , _pProductId :: !(Maybe Text)
161+ } deriving (Eq,Show,Data,Typeable,Generic)
162+
163+-- | Creates a value of 'Product' with the minimum fields required to make a request.
164+--
165+-- Use one of the following lenses to modify other fields as desired:
166+--
167+-- * 'pParent'
168+--
169+-- * 'pManuallyDeletedAttributes'
170+--
171+-- * 'pTargetCountry'
172+--
173+-- * 'pManuallyProvidedAttributes'
174+--
175+-- * 'pName'
176+--
177+-- * 'pIssues'
178+--
179+-- * 'pUploadedAttributes'
180+--
181+-- * 'pContentLanguage'
182+--
183+-- * 'pFinalAttributes'
184+--
185+-- * 'pProductId'
186+product
187+ :: Product
188+product =
189+ Product'
190+ { _pParent = Nothing
191+ , _pManuallyDeletedAttributes = Nothing
192+ , _pTargetCountry = Nothing
193+ , _pManuallyProvidedAttributes = Nothing
194+ , _pName = Nothing
195+ , _pIssues = Nothing
196+ , _pUploadedAttributes = Nothing
197+ , _pContentLanguage = Nothing
198+ , _pFinalAttributes = Nothing
199+ , _pProductId = Nothing
200+ }
201+
202+-- | Parent ID in the format \`accounts\/{account_id}\`. \`account_id\` - The
203+-- ID of the Manufacturer Center account. \'OutputOnly
204+pParent :: Lens' Product (Maybe Text)
205+pParent = lens _pParent (\ s a -> s{_pParent = a})
206+
207+-- | Names of the attributes of the product deleted manually via the
208+-- Manufacturer Center UI. \'OutputOnly
209+pManuallyDeletedAttributes :: Lens' Product [Text]
210+pManuallyDeletedAttributes
211+ = lens _pManuallyDeletedAttributes
212+ (\ s a -> s{_pManuallyDeletedAttributes = a})
213+ . _Default
214+ . _Coerce
215+
216+-- | The target country of the product as a CLDR territory code (for example,
217+-- US). \'OutputOnly
218+pTargetCountry :: Lens' Product (Maybe Text)
219+pTargetCountry
220+ = lens _pTargetCountry
221+ (\ s a -> s{_pTargetCountry = a})
222+
223+-- | Attributes of the product provided manually via the Manufacturer Center
224+-- UI. \'OutputOnly
225+pManuallyProvidedAttributes :: Lens' Product (Maybe Attributes)
226+pManuallyProvidedAttributes
227+ = lens _pManuallyProvidedAttributes
228+ (\ s a -> s{_pManuallyProvidedAttributes = a})
229+
230+-- | Name in the format \`{target_country}:{content_language}:{product_id}\`.
231+-- \`target_country\` - The target country of the product as a CLDR
232+-- territory code (for example, US). \`content_language\` - The content
233+-- language of the product as a two-letter ISO 639-1 language code (for
234+-- example, en). \`product_id\` - The ID of the product. For more
235+-- information, see
236+-- https:\/\/support.google.com\/manufacturers\/answer\/6124116#id.
237+-- \'OutputOnly
238+pName :: Lens' Product (Maybe Text)
239+pName = lens _pName (\ s a -> s{_pName = a})
240+
241+-- | A server-generated list of issues associated with the product.
242+-- \'OutputOnly
243+pIssues :: Lens' Product [Issue]
244+pIssues
245+ = lens _pIssues (\ s a -> s{_pIssues = a}) . _Default
246+ . _Coerce
247+
248+-- | Attributes of the product uploaded via the Manufacturer Center API or
249+-- via feeds.
250+pUploadedAttributes :: Lens' Product (Maybe Attributes)
251+pUploadedAttributes
252+ = lens _pUploadedAttributes
253+ (\ s a -> s{_pUploadedAttributes = a})
254+
255+-- | The content language of the product as a two-letter ISO 639-1 language
256+-- code (for example, en). \'OutputOnly
257+pContentLanguage :: Lens' Product (Maybe Text)
258+pContentLanguage
259+ = lens _pContentLanguage
260+ (\ s a -> s{_pContentLanguage = a})
261+
262+-- | Final attributes of the product. The final attributes are obtained by
263+-- overriding the uploaded attributes with the manually provided and
264+-- deleted attributes. Google systems only process, evaluate, review,
265+-- and\/or use final attributes. \'OutputOnly
266+pFinalAttributes :: Lens' Product (Maybe Attributes)
267+pFinalAttributes
268+ = lens _pFinalAttributes
269+ (\ s a -> s{_pFinalAttributes = a})
270+
271+-- | The ID of the product. For more information, see
272+-- https:\/\/support.google.com\/manufacturers\/answer\/6124116#id.
273+-- \'OutputOnly
274+pProductId :: Lens' Product (Maybe Text)
275+pProductId
276+ = lens _pProductId (\ s a -> s{_pProductId = a})
277+
278+instance FromJSON Product where
279+ parseJSON
280+ = withObject "Product"
281+ (\ o ->
282+ Product' <$>
283+ (o .:? "parent") <*>
284+ (o .:? "manuallyDeletedAttributes" .!= mempty)
285+ <*> (o .:? "targetCountry")
286+ <*> (o .:? "manuallyProvidedAttributes")
287+ <*> (o .:? "name")
288+ <*> (o .:? "issues" .!= mempty)
289+ <*> (o .:? "uploadedAttributes")
290+ <*> (o .:? "contentLanguage")
291+ <*> (o .:? "finalAttributes")
292+ <*> (o .:? "productId"))
293+
294+instance ToJSON Product where
295+ toJSON Product'{..}
296+ = object
297+ (catMaybes
298+ [("parent" .=) <$> _pParent,
299+ ("manuallyDeletedAttributes" .=) <$>
300+ _pManuallyDeletedAttributes,
301+ ("targetCountry" .=) <$> _pTargetCountry,
302+ ("manuallyProvidedAttributes" .=) <$>
303+ _pManuallyProvidedAttributes,
304+ ("name" .=) <$> _pName, ("issues" .=) <$> _pIssues,
305+ ("uploadedAttributes" .=) <$> _pUploadedAttributes,
306+ ("contentLanguage" .=) <$> _pContentLanguage,
307+ ("finalAttributes" .=) <$> _pFinalAttributes,
308+ ("productId" .=) <$> _pProductId])
309+
310+-- | Product issue.
311+--
312+-- /See:/ 'issue' smart constructor.
313+data Issue = Issue'
314+ { _iAttribute :: !(Maybe Text)
315+ , _iSeverity :: !(Maybe IssueSeverity)
316+ , _iType :: !(Maybe Text)
317+ , _iDescription :: !(Maybe Text)
318+ } deriving (Eq,Show,Data,Typeable,Generic)
319+
320+-- | Creates a value of 'Issue' with the minimum fields required to make a request.
321+--
322+-- Use one of the following lenses to modify other fields as desired:
323+--
324+-- * 'iAttribute'
325+--
326+-- * 'iSeverity'
327+--
328+-- * 'iType'
329+--
330+-- * 'iDescription'
331+issue
332+ :: Issue
333+issue =
334+ Issue'
335+ { _iAttribute = Nothing
336+ , _iSeverity = Nothing
337+ , _iType = Nothing
338+ , _iDescription = Nothing
339+ }
340+
341+-- | If present, the attribute that triggered the issue. For more information
342+-- about attributes, see
343+-- https:\/\/support.google.com\/manufacturers\/answer\/6124116.
344+iAttribute :: Lens' Issue (Maybe Text)
345+iAttribute
346+ = lens _iAttribute (\ s a -> s{_iAttribute = a})
347+
348+-- | The severity of the issue.
349+iSeverity :: Lens' Issue (Maybe IssueSeverity)
350+iSeverity
351+ = lens _iSeverity (\ s a -> s{_iSeverity = a})
352+
353+-- | The server-generated type of the issue, for example,
354+-- “INCORRECT_TEXT_FORMATTING”, “IMAGE_NOT_SERVEABLE”, etc.
355+iType :: Lens' Issue (Maybe Text)
356+iType = lens _iType (\ s a -> s{_iType = a})
357+
358+-- | Description of the issue.
359+iDescription :: Lens' Issue (Maybe Text)
360+iDescription
361+ = lens _iDescription (\ s a -> s{_iDescription = a})
362+
363+instance FromJSON Issue where
364+ parseJSON
365+ = withObject "Issue"
366+ (\ o ->
367+ Issue' <$>
368+ (o .:? "attribute") <*> (o .:? "severity") <*>
369+ (o .:? "type")
370+ <*> (o .:? "description"))
371+
372+instance ToJSON Issue where
373+ toJSON Issue'{..}
374+ = object
375+ (catMaybes
376+ [("attribute" .=) <$> _iAttribute,
377+ ("severity" .=) <$> _iSeverity,
378+ ("type" .=) <$> _iType,
379+ ("description" .=) <$> _iDescription])
380+
381+--
382+-- /See:/ 'listProductsResponse' smart constructor.
383+data ListProductsResponse = ListProductsResponse'
384+ { _lprNextPageToken :: !(Maybe Text)
385+ , _lprProducts :: !(Maybe [Product])
386+ } deriving (Eq,Show,Data,Typeable,Generic)
387+
388+-- | Creates a value of 'ListProductsResponse' with the minimum fields required to make a request.
389+--
390+-- Use one of the following lenses to modify other fields as desired:
391+--
392+-- * 'lprNextPageToken'
393+--
394+-- * 'lprProducts'
395+listProductsResponse
396+ :: ListProductsResponse
397+listProductsResponse =
398+ ListProductsResponse'
399+ { _lprNextPageToken = Nothing
400+ , _lprProducts = Nothing
401+ }
402+
403+-- | The token for the retrieval of the next page of product statuses.
404+lprNextPageToken :: Lens' ListProductsResponse (Maybe Text)
405+lprNextPageToken
406+ = lens _lprNextPageToken
407+ (\ s a -> s{_lprNextPageToken = a})
408+
409+-- | List of the products.
410+lprProducts :: Lens' ListProductsResponse [Product]
411+lprProducts
412+ = lens _lprProducts (\ s a -> s{_lprProducts = a}) .
413+ _Default
414+ . _Coerce
415+
416+instance FromJSON ListProductsResponse where
417+ parseJSON
418+ = withObject "ListProductsResponse"
419+ (\ o ->
420+ ListProductsResponse' <$>
421+ (o .:? "nextPageToken") <*>
422+ (o .:? "products" .!= mempty))
423+
424+instance ToJSON ListProductsResponse where
425+ toJSON ListProductsResponse'{..}
426+ = object
427+ (catMaybes
428+ [("nextPageToken" .=) <$> _lprNextPageToken,
429+ ("products" .=) <$> _lprProducts])
gogol-manufacturers/gen/Network/Google/Manufacturers/Types/Sum.hsnew file+91
@@ -0,0 +1,91 @@
1+{-# LANGUAGE DeriveDataTypeable #-}
2+{-# LANGUAGE DeriveGeneric #-}
3+{-# LANGUAGE LambdaCase #-}
4+{-# LANGUAGE NoImplicitPrelude #-}
5+{-# LANGUAGE OverloadedStrings #-}
6+
7+{-# OPTIONS_GHC -fno-warn-unused-imports #-}
8+
9+-- |
10+-- Module : Network.Google.Manufacturers.Types.Sum
11+-- Copyright : (c) 2015-2016 Brendan Hay
12+-- License : Mozilla Public License, v. 2.0.
13+-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
14+-- Stability : auto-generated
15+-- Portability : non-portable (GHC extensions)
16+--
17+module Network.Google.Manufacturers.Types.Sum where
18+
19+import Network.Google.Prelude
20+
21+-- | V1 error format.
22+data Xgafv
23+ = X1
24+ -- ^ @1@
25+ -- v1 error format
26+ | X2
27+ -- ^ @2@
28+ -- v2 error format
29+ deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
30+
31+instance Hashable Xgafv
32+
33+instance FromHttpApiData Xgafv where
34+ parseQueryParam = \case
35+ "1" -> Right X1
36+ "2" -> Right X2
37+ x -> Left ("Unable to parse Xgafv from: " <> x)
38+
39+instance ToHttpApiData Xgafv where
40+ toQueryParam = \case
41+ X1 -> "1"
42+ X2 -> "2"
43+
44+instance FromJSON Xgafv where
45+ parseJSON = parseJSONText "Xgafv"
46+
47+instance ToJSON Xgafv where
48+ toJSON = toJSONText
49+
50+-- | The severity of the issue.
51+data IssueSeverity
52+ = SeverityUnspecified
53+ -- ^ @SEVERITY_UNSPECIFIED@
54+ -- Unspecified severity, never used.
55+ | Error'
56+ -- ^ @ERROR@
57+ -- Error severity. The issue prevents the usage of the whole item.
58+ | Warning
59+ -- ^ @WARNING@
60+ -- Warning severity. The issue is either one that prevents the usage of the
61+ -- attribute that triggered it or one that will soon prevent the usage of
62+ -- the whole item.
63+ | Info
64+ -- ^ @INFO@
65+ -- Info severity. The issue is one that doesn\'t require immediate
66+ -- attention. It is, for example, used to communicate which attributes are
67+ -- still pending review.
68+ deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
69+
70+instance Hashable IssueSeverity
71+
72+instance FromHttpApiData IssueSeverity where
73+ parseQueryParam = \case
74+ "SEVERITY_UNSPECIFIED" -> Right SeverityUnspecified
75+ "ERROR" -> Right Error'
76+ "WARNING" -> Right Warning
77+ "INFO" -> Right Info
78+ x -> Left ("Unable to parse IssueSeverity from: " <> x)
79+
80+instance ToHttpApiData IssueSeverity where
81+ toQueryParam = \case
82+ SeverityUnspecified -> "SEVERITY_UNSPECIFIED"
83+ Error' -> "ERROR"
84+ Warning -> "WARNING"
85+ Info -> "INFO"
86+
87+instance FromJSON IssueSeverity where
88+ parseJSON = parseJSONText "IssueSeverity"
89+
90+instance ToJSON IssueSeverity where
91+ toJSON = toJSONText
gogol-manufacturers/gen/Network/Google/Resource/Manufacturers/Accounts/Products/Get.hsnew file+190
@@ -0,0 +1,190 @@
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.Manufacturers.Accounts.Products.Get
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+-- Gets the product from a Manufacturer Center account, including product
24+-- issues.
25+--
26+-- /See:/ <https://developers.google.com/manufacturers/ Manufacturer Center API Reference> for @manufacturers.accounts.products.get@.
27+module Network.Google.Resource.Manufacturers.Accounts.Products.Get
28+ (
29+ -- * REST Resource
30+ AccountsProductsGetResource
31+
32+ -- * Creating a Request
33+ , accountsProductsGet
34+ , AccountsProductsGet
35+
36+ -- * Request Lenses
37+ , apgParent
38+ , apgXgafv
39+ , apgUploadProtocol
40+ , apgPp
41+ , apgAccessToken
42+ , apgUploadType
43+ , apgBearerToken
44+ , apgName
45+ , apgCallback
46+ ) where
47+
48+import Network.Google.Manufacturers.Types
49+import Network.Google.Prelude
50+
51+-- | A resource alias for @manufacturers.accounts.products.get@ method which the
52+-- 'AccountsProductsGet' request conforms to.
53+type AccountsProductsGetResource =
54+ "v1" :>
55+ Capture "parent" Text :>
56+ "products" :>
57+ Capture "name" Text :>
58+ QueryParam "$.xgafv" Xgafv :>
59+ QueryParam "upload_protocol" Text :>
60+ QueryParam "pp" Bool :>
61+ QueryParam "access_token" Text :>
62+ QueryParam "uploadType" Text :>
63+ QueryParam "bearer_token" Text :>
64+ QueryParam "callback" Text :>
65+ QueryParam "alt" AltJSON :> Get '[JSON] Product
66+
67+-- | Gets the product from a Manufacturer Center account, including product
68+-- issues.
69+--
70+-- /See:/ 'accountsProductsGet' smart constructor.
71+data AccountsProductsGet = AccountsProductsGet'
72+ { _apgParent :: !Text
73+ , _apgXgafv :: !(Maybe Xgafv)
74+ , _apgUploadProtocol :: !(Maybe Text)
75+ , _apgPp :: !Bool
76+ , _apgAccessToken :: !(Maybe Text)
77+ , _apgUploadType :: !(Maybe Text)
78+ , _apgBearerToken :: !(Maybe Text)
79+ , _apgName :: !Text
80+ , _apgCallback :: !(Maybe Text)
81+ } deriving (Eq,Show,Data,Typeable,Generic)
82+
83+-- | Creates a value of 'AccountsProductsGet' with the minimum fields required to make a request.
84+--
85+-- Use one of the following lenses to modify other fields as desired:
86+--
87+-- * 'apgParent'
88+--
89+-- * 'apgXgafv'
90+--
91+-- * 'apgUploadProtocol'
92+--
93+-- * 'apgPp'
94+--
95+-- * 'apgAccessToken'
96+--
97+-- * 'apgUploadType'
98+--
99+-- * 'apgBearerToken'
100+--
101+-- * 'apgName'
102+--
103+-- * 'apgCallback'
104+accountsProductsGet
105+ :: Text -- ^ 'apgParent'
106+ -> Text -- ^ 'apgName'
107+ -> AccountsProductsGet
108+accountsProductsGet pApgParent_ pApgName_ =
109+ AccountsProductsGet'
110+ { _apgParent = pApgParent_
111+ , _apgXgafv = Nothing
112+ , _apgUploadProtocol = Nothing
113+ , _apgPp = True
114+ , _apgAccessToken = Nothing
115+ , _apgUploadType = Nothing
116+ , _apgBearerToken = Nothing
117+ , _apgName = pApgName_
118+ , _apgCallback = Nothing
119+ }
120+
121+-- | Parent ID in the format \`accounts\/{account_id}\`. \`account_id\` - The
122+-- ID of the Manufacturer Center account.
123+apgParent :: Lens' AccountsProductsGet Text
124+apgParent
125+ = lens _apgParent (\ s a -> s{_apgParent = a})
126+
127+-- | V1 error format.
128+apgXgafv :: Lens' AccountsProductsGet (Maybe Xgafv)
129+apgXgafv = lens _apgXgafv (\ s a -> s{_apgXgafv = a})
130+
131+-- | Upload protocol for media (e.g. \"raw\", \"multipart\").
132+apgUploadProtocol :: Lens' AccountsProductsGet (Maybe Text)
133+apgUploadProtocol
134+ = lens _apgUploadProtocol
135+ (\ s a -> s{_apgUploadProtocol = a})
136+
137+-- | Pretty-print response.
138+apgPp :: Lens' AccountsProductsGet Bool
139+apgPp = lens _apgPp (\ s a -> s{_apgPp = a})
140+
141+-- | OAuth access token.
142+apgAccessToken :: Lens' AccountsProductsGet (Maybe Text)
143+apgAccessToken
144+ = lens _apgAccessToken
145+ (\ s a -> s{_apgAccessToken = a})
146+
147+-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").
148+apgUploadType :: Lens' AccountsProductsGet (Maybe Text)
149+apgUploadType
150+ = lens _apgUploadType
151+ (\ s a -> s{_apgUploadType = a})
152+
153+-- | OAuth bearer token.
154+apgBearerToken :: Lens' AccountsProductsGet (Maybe Text)
155+apgBearerToken
156+ = lens _apgBearerToken
157+ (\ s a -> s{_apgBearerToken = a})
158+
159+-- | Name in the format \`{target_country}:{content_language}:{product_id}\`.
160+-- \`target_country\` - The target country of the product as a CLDR
161+-- territory code (for example, US). \`content_language\` - The content
162+-- language of the product as a two-letter ISO 639-1 language code (for
163+-- example, en). \`product_id\` - The ID of the product. For more
164+-- information, see
165+-- https:\/\/support.google.com\/manufacturers\/answer\/6124116#id.
166+apgName :: Lens' AccountsProductsGet Text
167+apgName = lens _apgName (\ s a -> s{_apgName = a})
168+
169+-- | JSONP
170+apgCallback :: Lens' AccountsProductsGet (Maybe Text)
171+apgCallback
172+ = lens _apgCallback (\ s a -> s{_apgCallback = a})
173+
174+instance GoogleRequest AccountsProductsGet where
175+ type Rs AccountsProductsGet = Product
176+ type Scopes AccountsProductsGet =
177+ '["https://www.googleapis.com/auth/manufacturercenter"]
178+ requestClient AccountsProductsGet'{..}
179+ = go _apgParent _apgName _apgXgafv _apgUploadProtocol
180+ (Just _apgPp)
181+ _apgAccessToken
182+ _apgUploadType
183+ _apgBearerToken
184+ _apgCallback
185+ (Just AltJSON)
186+ manufacturersService
187+ where go
188+ = buildClient
189+ (Proxy :: Proxy AccountsProductsGetResource)
190+ mempty
gogol-manufacturers/gen/Network/Google/Resource/Manufacturers/Accounts/Products/List.hsnew file+198
@@ -0,0 +1,198 @@
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.Manufacturers.Accounts.Products.List
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+-- Lists all the products in a Manufacturer Center account.
24+--
25+-- /See:/ <https://developers.google.com/manufacturers/ Manufacturer Center API Reference> for @manufacturers.accounts.products.list@.
26+module Network.Google.Resource.Manufacturers.Accounts.Products.List
27+ (
28+ -- * REST Resource
29+ AccountsProductsListResource
30+
31+ -- * Creating a Request
32+ , accountsProductsList
33+ , AccountsProductsList
34+
35+ -- * Request Lenses
36+ , aplParent
37+ , aplXgafv
38+ , aplUploadProtocol
39+ , aplPp
40+ , aplAccessToken
41+ , aplUploadType
42+ , aplBearerToken
43+ , aplPageToken
44+ , aplPageSize
45+ , aplCallback
46+ ) where
47+
48+import Network.Google.Manufacturers.Types
49+import Network.Google.Prelude
50+
51+-- | A resource alias for @manufacturers.accounts.products.list@ method which the
52+-- 'AccountsProductsList' request conforms to.
53+type AccountsProductsListResource =
54+ "v1" :>
55+ Capture "parent" Text :>
56+ "products" :>
57+ QueryParam "$.xgafv" Xgafv :>
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 "pageToken" Text :>
64+ QueryParam "pageSize" (Textual Int32) :>
65+ QueryParam "callback" Text :>
66+ QueryParam "alt" AltJSON :>
67+ Get '[JSON] ListProductsResponse
68+
69+-- | Lists all the products in a Manufacturer Center account.
70+--
71+-- /See:/ 'accountsProductsList' smart constructor.
72+data AccountsProductsList = AccountsProductsList'
73+ { _aplParent :: !Text
74+ , _aplXgafv :: !(Maybe Xgafv)
75+ , _aplUploadProtocol :: !(Maybe Text)
76+ , _aplPp :: !Bool
77+ , _aplAccessToken :: !(Maybe Text)
78+ , _aplUploadType :: !(Maybe Text)
79+ , _aplBearerToken :: !(Maybe Text)
80+ , _aplPageToken :: !(Maybe Text)
81+ , _aplPageSize :: !(Maybe (Textual Int32))
82+ , _aplCallback :: !(Maybe Text)
83+ } deriving (Eq,Show,Data,Typeable,Generic)
84+
85+-- | Creates a value of 'AccountsProductsList' with the minimum fields required to make a request.
86+--
87+-- Use one of the following lenses to modify other fields as desired:
88+--
89+-- * 'aplParent'
90+--
91+-- * 'aplXgafv'
92+--
93+-- * 'aplUploadProtocol'
94+--
95+-- * 'aplPp'
96+--
97+-- * 'aplAccessToken'
98+--
99+-- * 'aplUploadType'
100+--
101+-- * 'aplBearerToken'
102+--
103+-- * 'aplPageToken'
104+--
105+-- * 'aplPageSize'
106+--
107+-- * 'aplCallback'
108+accountsProductsList
109+ :: Text -- ^ 'aplParent'
110+ -> AccountsProductsList
111+accountsProductsList pAplParent_ =
112+ AccountsProductsList'
113+ { _aplParent = pAplParent_
114+ , _aplXgafv = Nothing
115+ , _aplUploadProtocol = Nothing
116+ , _aplPp = True
117+ , _aplAccessToken = Nothing
118+ , _aplUploadType = Nothing
119+ , _aplBearerToken = Nothing
120+ , _aplPageToken = Nothing
121+ , _aplPageSize = Nothing
122+ , _aplCallback = Nothing
123+ }
124+
125+-- | Parent ID in the format \`accounts\/{account_id}\`. \`account_id\` - The
126+-- ID of the Manufacturer Center account.
127+aplParent :: Lens' AccountsProductsList Text
128+aplParent
129+ = lens _aplParent (\ s a -> s{_aplParent = a})
130+
131+-- | V1 error format.
132+aplXgafv :: Lens' AccountsProductsList (Maybe Xgafv)
133+aplXgafv = lens _aplXgafv (\ s a -> s{_aplXgafv = a})
134+
135+-- | Upload protocol for media (e.g. \"raw\", \"multipart\").
136+aplUploadProtocol :: Lens' AccountsProductsList (Maybe Text)
137+aplUploadProtocol
138+ = lens _aplUploadProtocol
139+ (\ s a -> s{_aplUploadProtocol = a})
140+
141+-- | Pretty-print response.
142+aplPp :: Lens' AccountsProductsList Bool
143+aplPp = lens _aplPp (\ s a -> s{_aplPp = a})
144+
145+-- | OAuth access token.
146+aplAccessToken :: Lens' AccountsProductsList (Maybe Text)
147+aplAccessToken
148+ = lens _aplAccessToken
149+ (\ s a -> s{_aplAccessToken = a})
150+
151+-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").
152+aplUploadType :: Lens' AccountsProductsList (Maybe Text)
153+aplUploadType
154+ = lens _aplUploadType
155+ (\ s a -> s{_aplUploadType = a})
156+
157+-- | OAuth bearer token.
158+aplBearerToken :: Lens' AccountsProductsList (Maybe Text)
159+aplBearerToken
160+ = lens _aplBearerToken
161+ (\ s a -> s{_aplBearerToken = a})
162+
163+-- | The token returned by the previous request.
164+aplPageToken :: Lens' AccountsProductsList (Maybe Text)
165+aplPageToken
166+ = lens _aplPageToken (\ s a -> s{_aplPageToken = a})
167+
168+-- | Maximum number of product statuses to return in the response, used for
169+-- paging.
170+aplPageSize :: Lens' AccountsProductsList (Maybe Int32)
171+aplPageSize
172+ = lens _aplPageSize (\ s a -> s{_aplPageSize = a}) .
173+ mapping _Coerce
174+
175+-- | JSONP
176+aplCallback :: Lens' AccountsProductsList (Maybe Text)
177+aplCallback
178+ = lens _aplCallback (\ s a -> s{_aplCallback = a})
179+
180+instance GoogleRequest AccountsProductsList where
181+ type Rs AccountsProductsList = ListProductsResponse
182+ type Scopes AccountsProductsList =
183+ '["https://www.googleapis.com/auth/manufacturercenter"]
184+ requestClient AccountsProductsList'{..}
185+ = go _aplParent _aplXgafv _aplUploadProtocol
186+ (Just _aplPp)
187+ _aplAccessToken
188+ _aplUploadType
189+ _aplBearerToken
190+ _aplPageToken
191+ _aplPageSize
192+ _aplCallback
193+ (Just AltJSON)
194+ manufacturersService
195+ where go
196+ = buildClient
197+ (Proxy :: Proxy AccountsProductsListResource)
198+ mempty
gogol-manufacturers/gogol-manufacturers.cabalnew file+47
@@ -0,0 +1,47 @@
1+name: gogol-manufacturers
2+version: 0.1.1
3+synopsis: Google Manufacturer Center SDK.
4+homepage: https://github.com/brendanhay/gogol
5+bug-reports: https://github.com/brendanhay/gogol/issues
6+license: OtherLicense
7+license-file: LICENSE
8+author: Brendan Hay
9+maintainer: Brendan Hay <brendan.g.hay@gmail.com>
10+copyright: Copyright (c) 2015-2016 Brendan Hay
11+category: Network, Google, Cloud
12+build-type: Simple
13+cabal-version: >= 1.10
14+extra-source-files: README.md src/.gitkeep
15+
16+description:
17+ Public API for managing Manufacturer Center related data.
18+ .
19+ /Warning:/ This is an experimental prototype/preview release which is still
20+ under exploratory development and not intended for public use, caveat emptor!
21+ .
22+ This library is compatible with version @v1@
23+ of the API.
24+
25+source-repository head
26+ type: git
27+ location: git://github.com/brendanhay/gogol.git
28+
29+library
30+ default-language: Haskell2010
31+ hs-source-dirs: src gen
32+
33+ ghc-options: -Wall
34+
35+ exposed-modules:
36+ Network.Google.Manufacturers
37+ , Network.Google.Manufacturers.Types
38+ , Network.Google.Resource.Manufacturers.Accounts.Products.Get
39+ , Network.Google.Resource.Manufacturers.Accounts.Products.List
40+
41+ other-modules:
42+ Network.Google.Manufacturers.Types.Product
43+ , Network.Google.Manufacturers.Types.Sum
44+
45+ build-depends:
46+ gogol-core == 0.1.1.*
47+ , base >= 4.7 && < 5
gogol-manufacturers/src/.gitkeepnew file

No changes to the content.