gogol-cloudtrace (empty) → 0.0.1
raw patch · 12 files changed
+1813/−0 lines, 12 filesdep +basedep +gogol-coresetup-changed
Dependencies added: base, gogol-core
Files
- LICENSE +367/−0
- README.md +28/−0
- Setup.hs +2/−0
- gen/Network/Google/CloudTrace.hs +98/−0
- gen/Network/Google/CloudTrace/Types.hs +75/−0
- gen/Network/Google/CloudTrace/Types/Product.hs +335/−0
- gen/Network/Google/CloudTrace/Types/Sum.hs +19/−0
- gen/Network/Google/Resource/CloudTrace/GetDiscovery.hs +206/−0
- gen/Network/Google/Resource/CloudTrace/Projects/PatchTraces.hs +188/−0
- gen/Network/Google/Resource/CloudTrace/Projects/Traces/Get.hs +182/−0
- gen/Network/Google/Resource/CloudTrace/Projects/Traces/List.hs +263/−0
- gogol-cloudtrace.cabal +50/−0
+ LICENSE view
@@ -0,0 +1,367 @@+Mozilla Public License Version 2.0+==================================++1. Definitions+--------------++1.1. "Contributor"+ means each individual or legal entity that creates, contributes to+ the creation of, or owns Covered Software.++1.2. "Contributor Version"+ means the combination of the Contributions of others (if any) used+ by a Contributor and that particular Contributor's Contribution.++1.3. "Contribution"+ means Covered Software of a particular Contributor.++1.4. "Covered Software"+ means Source Code Form to which the initial Contributor has attached+ the notice in Exhibit A, the Executable Form of such Source Code+ Form, and Modifications of such Source Code Form, in each case+ including portions thereof.++1.5. "Incompatible With Secondary Licenses"+ means++ (a) that the initial Contributor has attached the notice described+ in Exhibit B to the Covered Software; or++ (b) that the Covered Software was made available under the terms of+ version 1.1 or earlier of the License, but not also under the+ terms of a Secondary License.++1.6. "Executable Form"+ means any form of the work other than Source Code Form.++1.7. "Larger Work"+ means a work that combines Covered Software with other material, in+ a separate file or files, that is not Covered Software.++1.8. "License"+ means this document.++1.9. "Licensable"+ means having the right to grant, to the maximum extent possible,+ whether at the time of the initial grant or subsequently, any and+ all of the rights conveyed by this License.++1.10. "Modifications"+ means any of the following:++ (a) any file in Source Code Form that results from an addition to,+ deletion from, or modification of the contents of Covered+ Software; or++ (b) any new file in Source Code Form that contains any Covered+ Software.++1.11. "Patent Claims" of a Contributor+ means any patent claim(s), including without limitation, method,+ process, and apparatus claims, in any patent Licensable by such+ Contributor that would be infringed, but for the grant of the+ License, by the making, using, selling, offering for sale, having+ made, import, or transfer of either its Contributions or its+ Contributor Version.++1.12. "Secondary License"+ means either the GNU General Public License, Version 2.0, the GNU+ Lesser General Public License, Version 2.1, the GNU Affero General+ Public License, Version 3.0, or any later versions of those+ licenses.++1.13. "Source Code Form"+ means the form of the work preferred for making modifications.++1.14. "You" (or "Your")+ means an individual or a legal entity exercising rights under this+ License. For legal entities, "You" includes any entity that+ controls, is controlled by, or is under common control with You. For+ purposes of this definition, "control" means (a) the power, direct+ or indirect, to cause the direction or management of such entity,+ whether by contract or otherwise, or (b) ownership of more than+ fifty percent (50%) of the outstanding shares or beneficial+ ownership of such entity.++2. License Grants and Conditions+--------------------------------++2.1. Grants++Each Contributor hereby grants You a world-wide, royalty-free,+non-exclusive license:++(a) under intellectual property rights (other than patent or trademark)+ Licensable by such Contributor to use, reproduce, make available,+ modify, display, perform, distribute, and otherwise exploit its+ Contributions, either on an unmodified basis, with Modifications, or+ as part of a Larger Work; and++(b) under Patent Claims of such Contributor to make, use, sell, offer+ for sale, have made, import, and otherwise transfer either its+ Contributions or its Contributor Version.++2.2. Effective Date++The licenses granted in Section 2.1 with respect to any Contribution+become effective for each Contribution on the date the Contributor first+distributes such Contribution.++2.3. Limitations on Grant Scope++The licenses granted in this Section 2 are the only rights granted under+this License. No additional rights or licenses will be implied from the+distribution or licensing of Covered Software under this License.+Notwithstanding Section 2.1(b) above, no patent license is granted by a+Contributor:++(a) for any code that a Contributor has removed from Covered Software;+ or++(b) for infringements caused by: (i) Your and any other third party's+ modifications of Covered Software, or (ii) the combination of its+ Contributions with other software (except as part of its Contributor+ Version); or++(c) under Patent Claims infringed by Covered Software in the absence of+ its Contributions.++This License does not grant any rights in the trademarks, service marks,+or logos of any Contributor (except as may be necessary to comply with+the notice requirements in Section 3.4).++2.4. Subsequent Licenses++No Contributor makes additional grants as a result of Your choice to+distribute the Covered Software under a subsequent version of this+License (see Section 10.2) or under the terms of a Secondary License (if+permitted under the terms of Section 3.3).++2.5. Representation++Each Contributor represents that the Contributor believes its+Contributions are its original creation(s) or it has sufficient rights+to grant the rights to its Contributions conveyed by this License.++2.6. Fair Use++This License is not intended to limit any rights You have under+applicable copyright doctrines of fair use, fair dealing, or other+equivalents.++2.7. Conditions++Sections 3.1, 3.2, 3.3, and 3.4 are conditions of the licenses granted+in Section 2.1.++3. Responsibilities+-------------------++3.1. Distribution of Source Form++All distribution of Covered Software in Source Code Form, including any+Modifications that You create or to which You contribute, must be under+the terms of this License. You must inform recipients that the Source+Code Form of the Covered Software is governed by the terms of this+License, and how they can obtain a copy of this License. You may not+attempt to alter or restrict the recipients' rights in the Source Code+Form.++3.2. Distribution of Executable Form++If You distribute Covered Software in Executable Form then:++(a) such Covered Software must also be made available in Source Code+ Form, as described in Section 3.1, and You must inform recipients of+ the Executable Form how they can obtain a copy of such Source Code+ Form by reasonable means in a timely manner, at a charge no more+ than the cost of distribution to the recipient; and++(b) You may distribute such Executable Form under the terms of this+ License, or sublicense it under different terms, provided that the+ license for the Executable Form does not attempt to limit or alter+ the recipients' rights in the Source Code Form under this License.++3.3. Distribution of a Larger Work++You may create and distribute a Larger Work under terms of Your choice,+provided that You also comply with the requirements of this License for+the Covered Software. If the Larger Work is a combination of Covered+Software with a work governed by one or more Secondary Licenses, and the+Covered Software is not Incompatible With Secondary Licenses, this+License permits You to additionally distribute such Covered Software+under the terms of such Secondary License(s), so that the recipient of+the Larger Work may, at their option, further distribute the Covered+Software under the terms of either this License or such Secondary+License(s).++3.4. Notices++You may not remove or alter the substance of any license notices+(including copyright notices, patent notices, disclaimers of warranty,+or limitations of liability) contained within the Source Code Form of+the Covered Software, except that You may alter any license notices to+the extent required to remedy known factual inaccuracies.++3.5. Application of Additional Terms++You may choose to offer, and to charge a fee for, warranty, support,+indemnity or liability obligations to one or more recipients of Covered+Software. However, You may do so only on Your own behalf, and not on+behalf of any Contributor. You must make it absolutely clear that any+such warranty, support, indemnity, or liability obligation is offered by+You alone, and You hereby agree to indemnify every Contributor for any+liability incurred by such Contributor as a result of warranty, support,+indemnity or liability terms You offer. You may include additional+disclaimers of warranty and limitations of liability specific to any+jurisdiction.++4. Inability to Comply Due to Statute or Regulation+---------------------------------------------------++If it is impossible for You to comply with any of the terms of this+License with respect to some or all of the Covered Software due to+statute, judicial order, or regulation then You must: (a) comply with+the terms of this License to the maximum extent possible; and (b)+describe the limitations and the code they affect. Such description must+be placed in a text file included with all distributions of the Covered+Software under this License. Except to the extent prohibited by statute+or regulation, such description must be sufficiently detailed for a+recipient of ordinary skill to be able to understand it.++5. Termination+--------------++5.1. The rights granted under this License will terminate automatically+if You fail to comply with any of its terms. However, if You become+compliant, then the rights granted under this License from a particular+Contributor are reinstated (a) provisionally, unless and until such+Contributor explicitly and finally terminates Your grants, and (b) on an+ongoing basis, if such Contributor fails to notify You of the+non-compliance by some reasonable means prior to 60 days after You have+come back into compliance. Moreover, Your grants from a particular+Contributor are reinstated on an ongoing basis if such Contributor+notifies You of the non-compliance by some reasonable means, this is the+first time You have received notice of non-compliance with this License+from such Contributor, and You become compliant prior to 30 days after+Your receipt of the notice.++5.2. If You initiate litigation against any entity by asserting a patent+infringement claim (excluding declaratory judgment actions,+counter-claims, and cross-claims) alleging that a Contributor Version+directly or indirectly infringes any patent, then the rights granted to+You by any and all Contributors for the Covered Software under Section+2.1 of this License shall terminate.++5.3. In the event of termination under Sections 5.1 or 5.2 above, all+end user license agreements (excluding distributors and resellers) which+have been validly granted by You or Your distributors under this License+prior to termination shall survive termination.++************************************************************************+* *+* 6. Disclaimer of Warranty *+* ------------------------- *+* *+* Covered Software is provided under this License on an "as is" *+* basis, without warranty of any kind, either expressed, implied, or *+* statutory, including, without limitation, warranties that the *+* Covered Software is free of defects, merchantable, fit for a *+* particular purpose or non-infringing. The entire risk as to the *+* quality and performance of the Covered Software is with You. *+* Should any Covered Software prove defective in any respect, You *+* (not any Contributor) assume the cost of any necessary servicing, *+* repair, or correction. This disclaimer of warranty constitutes an *+* essential part of this License. No use of any Covered Software is *+* authorized under this License except under this disclaimer. *+* *+************************************************************************++************************************************************************+* *+* 7. Limitation of Liability *+* -------------------------- *+* *+* Under no circumstances and under no legal theory, whether tort *+* (including negligence), contract, or otherwise, shall any *+* Contributor, or anyone who distributes Covered Software as *+* permitted above, be liable to You for any direct, indirect, *+* special, incidental, or consequential damages of any character *+* including, without limitation, damages for lost profits, loss of *+* goodwill, work stoppage, computer failure or malfunction, or any *+* and all other commercial damages or losses, even if such party *+* shall have been informed of the possibility of such damages. This *+* limitation of liability shall not apply to liability for death or *+* personal injury resulting from such party's negligence to the *+* extent applicable law prohibits such limitation. Some *+* jurisdictions do not allow the exclusion or limitation of *+* incidental or consequential damages, so this exclusion and *+* limitation may not apply to You. *+* *+************************************************************************++8. Litigation+-------------++Any litigation relating to this License may be brought only in the+courts of a jurisdiction where the defendant maintains its principal+place of business and such litigation shall be governed by laws of that+jurisdiction, without reference to its conflict-of-law provisions.+Nothing in this Section shall prevent a party's ability to bring+cross-claims or counter-claims.++9. Miscellaneous+----------------++This License represents the complete agreement concerning the subject+matter hereof. If any provision of this License is held to be+unenforceable, such provision shall be reformed only to the extent+necessary to make it enforceable. Any law or regulation which provides+that the language of a contract shall be construed against the drafter+shall not be used to construe this License against a Contributor.++10. Versions of the License+---------------------------++10.1. New Versions++Mozilla Foundation is the license steward. Except as provided in Section+10.3, no one other than the license steward has the right to modify or+publish new versions of this License. Each version will be given a+distinguishing version number.++10.2. Effect of New Versions++You may distribute the Covered Software under the terms of the version+of the License under which You originally received the Covered Software,+or under the terms of any subsequent version published by the license+steward.++10.3. Modified Versions++If you create software not governed by this License, and you want to+create a new license for such software, you may create and use a+modified version of this License if you rename the license and remove+any references to the name of the license steward (except to note that+such modified license differs from this License).++10.4. Distributing Source Code Form that is Incompatible With Secondary+Licenses++If You choose to distribute Source Code Form that is Incompatible With+Secondary Licenses under the terms of this version of the License, the+notice described in Exhibit B of this License must be attached.++Exhibit A - Source Code Form License Notice+-------------------------------------------++ This Source Code Form is subject to the terms of the Mozilla Public+ License, v. 2.0. If a copy of the MPL was not distributed with this+ file, You can obtain one at http://mozilla.org/MPL/2.0/.++If it is not possible or desirable to put the notice in a particular+file, then You may include the notice in a location (such as a LICENSE+file in a relevant directory) where a recipient would be likely to look+for such a notice.++You may add additional accurate notices of copyright ownership.
+ README.md view
@@ -0,0 +1,28 @@+# gogol-cloudtrace++* [Version](#version)+* [Description](#description)+* [Contribute](#contribute)+* [Licence](#licence)+++## Version++`0.0.1`+++## Description++A client library for the Google Cloud Trace.+++## Contribute++For any problems, comments, or feedback please create an issue [here on GitHub](https://github.com/brendanhay/amazonka/issues).++> _Note:_ this library is an auto-generated Haskell package. Please see `amazonka-gen` for more information.+++## Licence++`gogol-cloudtrace` is released under the [Mozilla Public License Version 2.0](http://www.mozilla.org/MPL/).
+ Setup.hs view
@@ -0,0 +1,2 @@+import Distribution.Simple+main = defaultMain
+ gen/Network/Google/CloudTrace.hs view
@@ -0,0 +1,98 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# LANGUAGE TypeOperators #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}++-- |+-- Module : Network.Google.CloudTrace+-- Copyright : (c) 2015 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- The Google Cloud Trace API provides services for reading and writing+-- runtime trace data for Cloud applications.+--+-- /See:/ <https://cloud.google.com/tools/cloud-trace Google Cloud Trace API Reference>+module Network.Google.CloudTrace+ (+ -- * Service Configuration+ cloudTraceService++ -- * API Declaration+ , CloudTraceAPI++ -- * Resources++ -- ** cloudtrace.getDiscovery+ , module Network.Google.Resource.CloudTrace.GetDiscovery++ -- ** cloudtrace.projects.patchTraces+ , module Network.Google.Resource.CloudTrace.Projects.PatchTraces++ -- ** cloudtrace.projects.traces.get+ , module Network.Google.Resource.CloudTrace.Projects.Traces.Get++ -- ** cloudtrace.projects.traces.list+ , module Network.Google.Resource.CloudTrace.Projects.Traces.List++ -- * Types++ -- ** Empty+ , Empty+ , empty++ -- ** TraceSpanLabels+ , TraceSpanLabels+ , traceSpanLabels+ , tslAddtional++ -- ** Traces+ , Traces+ , traces+ , tTraces++ -- ** TraceSpan+ , TraceSpan+ , traceSpan+ , tsStartTime+ , tsKind+ , tsName+ , tsEndTime+ , tsLabels+ , tsParentSpanId+ , tsSpanId++ -- ** ListTracesResponse+ , ListTracesResponse+ , listTracesResponse+ , ltrNextPageToken+ , ltrTraces++ -- ** Trace+ , Trace+ , trace+ , tTraceId+ , tSpans+ , tProjectId+ ) where++import Network.Google.CloudTrace.Types+import Network.Google.Prelude+import Network.Google.Resource.CloudTrace.GetDiscovery+import Network.Google.Resource.CloudTrace.Projects.PatchTraces+import Network.Google.Resource.CloudTrace.Projects.Traces.Get+import Network.Google.Resource.CloudTrace.Projects.Traces.List++{- $resources+TODO+-}++-- | Represents the entirety of the methods and resources available for the Google Cloud Trace API service.+type CloudTraceAPI =+ GetDiscoveryResource :<|> ProjectsTracesListResource+ :<|> ProjectsTracesGetResource+ :<|> ProjectsPatchTracesResource
+ gen/Network/Google/CloudTrace/Types.hs view
@@ -0,0 +1,75 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# LANGUAGE OverloadedStrings #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- |+-- Module : Network.Google.CloudTrace.Types+-- Copyright : (c) 2015 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+module Network.Google.CloudTrace.Types+ (+ -- * Service Configuration+ cloudTraceService++ -- * OAuth Scopes+ , cloudPlatformScope++ -- * Empty+ , Empty+ , empty++ -- * TraceSpanLabels+ , TraceSpanLabels+ , traceSpanLabels+ , tslAddtional++ -- * Traces+ , Traces+ , traces+ , tTraces++ -- * TraceSpan+ , TraceSpan+ , traceSpan+ , tsStartTime+ , tsKind+ , tsName+ , tsEndTime+ , tsLabels+ , tsParentSpanId+ , tsSpanId++ -- * ListTracesResponse+ , ListTracesResponse+ , listTracesResponse+ , ltrNextPageToken+ , ltrTraces++ -- * Trace+ , Trace+ , trace+ , tTraceId+ , tSpans+ , tProjectId+ ) where++import Network.Google.CloudTrace.Types.Product+import Network.Google.CloudTrace.Types.Sum+import Network.Google.Prelude++-- | Default request referring to version 'v1' of the Google Cloud Trace API. This contains the host and root path used as a starting point for constructing service requests.+cloudTraceService :: Service+cloudTraceService+ = defaultService (ServiceId "cloudtrace:v1")+ "cloudtrace.googleapis.com"++-- | View and manage your data across Google Cloud Platform services+cloudPlatformScope :: OAuthScope+cloudPlatformScope = "https://www.googleapis.com/auth/cloud-platform";
+ gen/Network/Google/CloudTrace/Types/Product.hs view
@@ -0,0 +1,335 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}++{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- |+-- Module : Network.Google.CloudTrace.Types.Product+-- Copyright : (c) 2015 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+module Network.Google.CloudTrace.Types.Product where++import Network.Google.CloudTrace.Types.Sum+import Network.Google.Prelude++-- | A generic empty message that you can re-use to avoid defining duplicated+-- empty messages in your APIs. A typical example is to use it as the+-- request or the response type of an API method. For instance: service Foo+-- { rpc Bar(google.protobuf.Empty) returns (google.protobuf.Empty); } The+-- JSON representation for \`Empty\` is empty JSON object \`{}\`.+--+-- /See:/ 'empty' smart constructor.+data Empty =+ Empty+ deriving (Eq,Show,Data,Typeable,Generic)++-- | Creates a value of 'Empty' with the minimum fields required to make a request.+--+empty+ :: Empty+empty = Empty++instance FromJSON Empty where+ parseJSON = withObject "Empty" (\ o -> pure Empty)++instance ToJSON Empty where+ toJSON = const emptyObject++-- | Annotations via labels.+--+-- /See:/ 'traceSpanLabels' smart constructor.+newtype TraceSpanLabels = TraceSpanLabels+ { _tslAddtional :: HashMap Text Text+ } deriving (Eq,Show,Data,Typeable,Generic)++-- | Creates a value of 'TraceSpanLabels' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'tslAddtional'+traceSpanLabels+ :: HashMap Text Text -- ^ 'tslAddtional'+ -> TraceSpanLabels+traceSpanLabels pTslAddtional_ =+ TraceSpanLabels+ { _tslAddtional = _Coerce # pTslAddtional_+ }++tslAddtional :: Lens' TraceSpanLabels (HashMap Text Text)+tslAddtional+ = lens _tslAddtional (\ s a -> s{_tslAddtional = a})+ . _Coerce++instance FromJSON TraceSpanLabels where+ parseJSON+ = withObject "TraceSpanLabels"+ (\ o -> TraceSpanLabels <$> (parseJSONObject o))++instance ToJSON TraceSpanLabels where+ toJSON = toJSON . _tslAddtional++-- | A list of traces for the PatchTraces method.+--+-- /See:/ 'traces' smart constructor.+newtype Traces = Traces+ { _tTraces :: Maybe [Trace]+ } deriving (Eq,Show,Data,Typeable,Generic)++-- | Creates a value of 'Traces' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'tTraces'+traces+ :: Traces+traces =+ Traces+ { _tTraces = Nothing+ }++-- | A list of traces.+tTraces :: Lens' Traces [Trace]+tTraces+ = lens _tTraces (\ s a -> s{_tTraces = a}) . _Default+ . _Coerce++instance FromJSON Traces where+ parseJSON+ = withObject "Traces"+ (\ o -> Traces <$> (o .:? "traces" .!= mempty))++instance ToJSON Traces where+ toJSON Traces{..}+ = object (catMaybes [("traces" .=) <$> _tTraces])++-- | A span is the data recorded with a single span.+--+-- /See:/ 'traceSpan' smart constructor.+data TraceSpan = TraceSpan+ { _tsStartTime :: !(Maybe Text)+ , _tsKind :: !(Maybe Text)+ , _tsName :: !(Maybe Text)+ , _tsEndTime :: !(Maybe Text)+ , _tsLabels :: !(Maybe TraceSpanLabels)+ , _tsParentSpanId :: !(Maybe (Textual Word64))+ , _tsSpanId :: !(Maybe (Textual Word64))+ } deriving (Eq,Show,Data,Typeable,Generic)++-- | Creates a value of 'TraceSpan' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'tsStartTime'+--+-- * 'tsKind'+--+-- * 'tsName'+--+-- * 'tsEndTime'+--+-- * 'tsLabels'+--+-- * 'tsParentSpanId'+--+-- * 'tsSpanId'+traceSpan+ :: TraceSpan+traceSpan =+ TraceSpan+ { _tsStartTime = Nothing+ , _tsKind = Nothing+ , _tsName = Nothing+ , _tsEndTime = Nothing+ , _tsLabels = Nothing+ , _tsParentSpanId = Nothing+ , _tsSpanId = Nothing+ }++-- | The start time of the span in nanoseconds from the UNIX epoch.+tsStartTime :: Lens' TraceSpan (Maybe Text)+tsStartTime+ = lens _tsStartTime (\ s a -> s{_tsStartTime = a})++-- | SpanKind distinguishes spans generated in a particular context. For+-- example, two spans with the same name, one with the kind RPC_CLIENT, and+-- the other with RPC_SERVER can indicate the queueing latency associated+-- with the span.+tsKind :: Lens' TraceSpan (Maybe Text)+tsKind = lens _tsKind (\ s a -> s{_tsKind = a})++-- | The name of the trace. This is sanitized and displayed on the UI. This+-- may be a method name or some other per-callsite name. For the same+-- binary and the same call point, it is a good practice to choose a+-- consistent name in order to correlate cross-trace spans.+tsName :: Lens' TraceSpan (Maybe Text)+tsName = lens _tsName (\ s a -> s{_tsName = a})++-- | The end time of the span in nanoseconds from the UNIX epoch.+tsEndTime :: Lens' TraceSpan (Maybe Text)+tsEndTime+ = lens _tsEndTime (\ s a -> s{_tsEndTime = a})++-- | Annotations via labels.+tsLabels :: Lens' TraceSpan (Maybe TraceSpanLabels)+tsLabels = lens _tsLabels (\ s a -> s{_tsLabels = a})++-- | Identifies the parent of the current span. May be missing. Serialized+-- bytes representation of SpanId.+tsParentSpanId :: Lens' TraceSpan (Maybe Word64)+tsParentSpanId+ = lens _tsParentSpanId+ (\ s a -> s{_tsParentSpanId = a})+ . mapping _Coerce++-- | Identifier of the span within the trace. Each span should have an+-- identifier that is unique per trace.+tsSpanId :: Lens' TraceSpan (Maybe Word64)+tsSpanId+ = lens _tsSpanId (\ s a -> s{_tsSpanId = a}) .+ mapping _Coerce++instance FromJSON TraceSpan where+ parseJSON+ = withObject "TraceSpan"+ (\ o ->+ TraceSpan <$>+ (o .:? "startTime") <*> (o .:? "kind") <*>+ (o .:? "name")+ <*> (o .:? "endTime")+ <*> (o .:? "labels")+ <*> (o .:? "parentSpanId")+ <*> (o .:? "spanId"))++instance ToJSON TraceSpan where+ toJSON TraceSpan{..}+ = object+ (catMaybes+ [("startTime" .=) <$> _tsStartTime,+ ("kind" .=) <$> _tsKind, ("name" .=) <$> _tsName,+ ("endTime" .=) <$> _tsEndTime,+ ("labels" .=) <$> _tsLabels,+ ("parentSpanId" .=) <$> _tsParentSpanId,+ ("spanId" .=) <$> _tsSpanId])++-- | The response message for the ListTraces method.+--+-- /See:/ 'listTracesResponse' smart constructor.+data ListTracesResponse = ListTracesResponse+ { _ltrNextPageToken :: !(Maybe Text)+ , _ltrTraces :: !(Maybe [Trace])+ } deriving (Eq,Show,Data,Typeable,Generic)++-- | Creates a value of 'ListTracesResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ltrNextPageToken'+--+-- * 'ltrTraces'+listTracesResponse+ :: ListTracesResponse+listTracesResponse =+ ListTracesResponse+ { _ltrNextPageToken = Nothing+ , _ltrTraces = Nothing+ }++-- | If defined, indicates that there are more topics that match the request,+-- and this value should be passed to the next ListTopicsRequest to+-- continue.+ltrNextPageToken :: Lens' ListTracesResponse (Maybe Text)+ltrNextPageToken+ = lens _ltrNextPageToken+ (\ s a -> s{_ltrNextPageToken = a})++-- | The list of trace records returned.+ltrTraces :: Lens' ListTracesResponse [Trace]+ltrTraces+ = lens _ltrTraces (\ s a -> s{_ltrTraces = a}) .+ _Default+ . _Coerce++instance FromJSON ListTracesResponse where+ parseJSON+ = withObject "ListTracesResponse"+ (\ o ->+ ListTracesResponse <$>+ (o .:? "nextPageToken") <*>+ (o .:? "traces" .!= mempty))++instance ToJSON ListTracesResponse where+ toJSON ListTracesResponse{..}+ = object+ (catMaybes+ [("nextPageToken" .=) <$> _ltrNextPageToken,+ ("traces" .=) <$> _ltrTraces])++-- | A Trace is a collection of spans describing the execution timings of a+-- single operation.+--+-- /See:/ 'trace' smart constructor.+data Trace = Trace+ { _tTraceId :: !(Maybe Text)+ , _tSpans :: !(Maybe [TraceSpan])+ , _tProjectId :: !(Maybe Text)+ } deriving (Eq,Show,Data,Typeable,Generic)++-- | Creates a value of 'Trace' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'tTraceId'+--+-- * 'tSpans'+--+-- * 'tProjectId'+trace+ :: Trace+trace =+ Trace+ { _tTraceId = Nothing+ , _tSpans = Nothing+ , _tProjectId = Nothing+ }++-- | A 128-bit numeric value, formatted as a 32-byte hex string, that+-- represents a trace. Each trace should have an identifier that is+-- globally unique.+tTraceId :: Lens' Trace (Maybe Text)+tTraceId = lens _tTraceId (\ s a -> s{_tTraceId = a})++-- | The collection of span records within this trace. Spans that appear in+-- calls to PatchTraces may be incomplete or partial.+tSpans :: Lens' Trace [TraceSpan]+tSpans+ = lens _tSpans (\ s a -> s{_tSpans = a}) . _Default .+ _Coerce++-- | The Project ID of the Google Cloud project.+tProjectId :: Lens' Trace (Maybe Text)+tProjectId+ = lens _tProjectId (\ s a -> s{_tProjectId = a})++instance FromJSON Trace where+ parseJSON+ = withObject "Trace"+ (\ o ->+ Trace <$>+ (o .:? "traceId") <*> (o .:? "spans" .!= mempty) <*>+ (o .:? "projectId"))++instance ToJSON Trace where+ toJSON Trace{..}+ = object+ (catMaybes+ [("traceId" .=) <$> _tTraceId,+ ("spans" .=) <$> _tSpans,+ ("projectId" .=) <$> _tProjectId])
+ gen/Network/Google/CloudTrace/Types/Sum.hs view
@@ -0,0 +1,19 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# LANGUAGE OverloadedStrings #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- |+-- Module : Network.Google.CloudTrace.Types.Sum+-- Copyright : (c) 2015 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+module Network.Google.CloudTrace.Types.Sum where++import Network.Google.Prelude
+ gen/Network/Google/Resource/CloudTrace/GetDiscovery.hs view
@@ -0,0 +1,206 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE FlexibleInstances #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE TypeOperators #-}++{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- |+-- Module : Network.Google.Resource.CloudTrace.GetDiscovery+-- Copyright : (c) 2015 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns a discovery document in the specified \`format\`. The typeurl in+-- the returned google.protobuf.Any value depends on the requested format.+--+-- /See:/ <https://cloud.google.com/tools/cloud-trace Google Cloud Trace API Reference> for @cloudtrace.getDiscovery@.+module Network.Google.Resource.CloudTrace.GetDiscovery+ (+ -- * REST Resource+ GetDiscoveryResource++ -- * Creating a Request+ , getDiscovery+ , GetDiscovery++ -- * Request Lenses+ , gdXgafv+ , gdArgs+ , gdUploadProtocol+ , gdPp+ , gdAccessToken+ , gdFormat+ , gdUploadType+ , gdBearerToken+ , gdVersion+ , gdLabels+ , gdCallback+ ) where++import Network.Google.CloudTrace.Types+import Network.Google.Prelude++-- | A resource alias for @cloudtrace.getDiscovery@ method which the+-- 'GetDiscovery' request conforms to.+type GetDiscoveryResource =+ "v1" :>+ "discovery" :>+ QueryParam "$.xgafv" Text :>+ QueryParams "args" Text :>+ QueryParam "upload_protocol" Text :>+ QueryParam "pp" Bool :>+ QueryParam "access_token" Text :>+ QueryParam "format" Text :>+ QueryParam "uploadType" Text :>+ QueryParam "bearer_token" Text :>+ QueryParam "version" Text :>+ QueryParams "labels" Text :>+ QueryParam "callback" Text :>+ QueryParam "alt" AltJSON :> Get '[JSON] ()++-- | Returns a discovery document in the specified \`format\`. The typeurl in+-- the returned google.protobuf.Any value depends on the requested format.+--+-- /See:/ 'getDiscovery' smart constructor.+data GetDiscovery = GetDiscovery+ { _gdXgafv :: !(Maybe Text)+ , _gdArgs :: !(Maybe [Text])+ , _gdUploadProtocol :: !(Maybe Text)+ , _gdPp :: !Bool+ , _gdAccessToken :: !(Maybe Text)+ , _gdFormat :: !(Maybe Text)+ , _gdUploadType :: !(Maybe Text)+ , _gdBearerToken :: !(Maybe Text)+ , _gdVersion :: !(Maybe Text)+ , _gdLabels :: !(Maybe [Text])+ , _gdCallback :: !(Maybe Text)+ } deriving (Eq,Show,Data,Typeable,Generic)++-- | Creates a value of 'GetDiscovery' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'gdXgafv'+--+-- * 'gdArgs'+--+-- * 'gdUploadProtocol'+--+-- * 'gdPp'+--+-- * 'gdAccessToken'+--+-- * 'gdFormat'+--+-- * 'gdUploadType'+--+-- * 'gdBearerToken'+--+-- * 'gdVersion'+--+-- * 'gdLabels'+--+-- * 'gdCallback'+getDiscovery+ :: GetDiscovery+getDiscovery =+ GetDiscovery+ { _gdXgafv = Nothing+ , _gdArgs = Nothing+ , _gdUploadProtocol = Nothing+ , _gdPp = True+ , _gdAccessToken = Nothing+ , _gdFormat = Nothing+ , _gdUploadType = Nothing+ , _gdBearerToken = Nothing+ , _gdVersion = Nothing+ , _gdLabels = Nothing+ , _gdCallback = Nothing+ }++-- | V1 error format.+gdXgafv :: Lens' GetDiscovery (Maybe Text)+gdXgafv = lens _gdXgafv (\ s a -> s{_gdXgafv = a})++-- | Any additional arguments.+gdArgs :: Lens' GetDiscovery [Text]+gdArgs+ = lens _gdArgs (\ s a -> s{_gdArgs = a}) . _Default .+ _Coerce++-- | Upload protocol for media (e.g. \"raw\", \"multipart\").+gdUploadProtocol :: Lens' GetDiscovery (Maybe Text)+gdUploadProtocol+ = lens _gdUploadProtocol+ (\ s a -> s{_gdUploadProtocol = a})++-- | Pretty-print response.+gdPp :: Lens' GetDiscovery Bool+gdPp = lens _gdPp (\ s a -> s{_gdPp = a})++-- | OAuth access token.+gdAccessToken :: Lens' GetDiscovery (Maybe Text)+gdAccessToken+ = lens _gdAccessToken+ (\ s a -> s{_gdAccessToken = a})++-- | The format requested for discovery.+gdFormat :: Lens' GetDiscovery (Maybe Text)+gdFormat = lens _gdFormat (\ s a -> s{_gdFormat = a})++-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+gdUploadType :: Lens' GetDiscovery (Maybe Text)+gdUploadType+ = lens _gdUploadType (\ s a -> s{_gdUploadType = a})++-- | OAuth bearer token.+gdBearerToken :: Lens' GetDiscovery (Maybe Text)+gdBearerToken+ = lens _gdBearerToken+ (\ s a -> s{_gdBearerToken = a})++-- | The API version of the requested discovery doc.+gdVersion :: Lens' GetDiscovery (Maybe Text)+gdVersion+ = lens _gdVersion (\ s a -> s{_gdVersion = a})++-- | A list of labels (like visibility) influencing the scope of the+-- requested doc.+gdLabels :: Lens' GetDiscovery [Text]+gdLabels+ = lens _gdLabels (\ s a -> s{_gdLabels = a}) .+ _Default+ . _Coerce++-- | JSONP+gdCallback :: Lens' GetDiscovery (Maybe Text)+gdCallback+ = lens _gdCallback (\ s a -> s{_gdCallback = a})++instance GoogleRequest GetDiscovery where+ type Rs GetDiscovery = ()+ requestClient GetDiscovery{..}+ = go _gdXgafv (_gdArgs ^. _Default) _gdUploadProtocol+ (Just _gdPp)+ _gdAccessToken+ _gdFormat+ _gdUploadType+ _gdBearerToken+ _gdVersion+ (_gdLabels ^. _Default)+ _gdCallback+ (Just AltJSON)+ cloudTraceService+ where go+ = buildClient (Proxy :: Proxy GetDiscoveryResource)+ mempty
+ gen/Network/Google/Resource/CloudTrace/Projects/PatchTraces.hs view
@@ -0,0 +1,188 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE FlexibleInstances #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE TypeOperators #-}++{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- |+-- Module : Network.Google.Resource.CloudTrace.Projects.PatchTraces+-- Copyright : (c) 2015 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Updates the existing traces specified by PatchTracesRequest and inserts+-- the new traces. Any existing trace or span fields included in an update+-- are overwritten by the update, and any additional fields in an update+-- are merged with the existing trace data.+--+-- /See:/ <https://cloud.google.com/tools/cloud-trace Google Cloud Trace API Reference> for @cloudtrace.projects.patchTraces@.+module Network.Google.Resource.CloudTrace.Projects.PatchTraces+ (+ -- * REST Resource+ ProjectsPatchTracesResource++ -- * Creating a Request+ , projectsPatchTraces+ , ProjectsPatchTraces++ -- * Request Lenses+ , pptXgafv+ , pptUploadProtocol+ , pptPp+ , pptAccessToken+ , pptUploadType+ , pptPayload+ , pptBearerToken+ , pptProjectId+ , pptCallback+ ) where++import Network.Google.CloudTrace.Types+import Network.Google.Prelude++-- | A resource alias for @cloudtrace.projects.patchTraces@ method which the+-- 'ProjectsPatchTraces' request conforms to.+type ProjectsPatchTracesResource =+ "v1" :>+ "projects" :>+ Capture "projectId" Text :>+ "traces" :>+ QueryParam "$.xgafv" Text :>+ QueryParam "upload_protocol" Text :>+ QueryParam "pp" Bool :>+ QueryParam "access_token" Text :>+ QueryParam "uploadType" Text :>+ QueryParam "bearer_token" Text :>+ QueryParam "callback" Text :>+ QueryParam "alt" AltJSON :>+ ReqBody '[JSON] Traces :> Patch '[JSON] Empty++-- | Updates the existing traces specified by PatchTracesRequest and inserts+-- the new traces. Any existing trace or span fields included in an update+-- are overwritten by the update, and any additional fields in an update+-- are merged with the existing trace data.+--+-- /See:/ 'projectsPatchTraces' smart constructor.+data ProjectsPatchTraces = ProjectsPatchTraces+ { _pptXgafv :: !(Maybe Text)+ , _pptUploadProtocol :: !(Maybe Text)+ , _pptPp :: !Bool+ , _pptAccessToken :: !(Maybe Text)+ , _pptUploadType :: !(Maybe Text)+ , _pptPayload :: !Traces+ , _pptBearerToken :: !(Maybe Text)+ , _pptProjectId :: !Text+ , _pptCallback :: !(Maybe Text)+ } deriving (Eq,Show,Data,Typeable,Generic)++-- | Creates a value of 'ProjectsPatchTraces' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'pptXgafv'+--+-- * 'pptUploadProtocol'+--+-- * 'pptPp'+--+-- * 'pptAccessToken'+--+-- * 'pptUploadType'+--+-- * 'pptPayload'+--+-- * 'pptBearerToken'+--+-- * 'pptProjectId'+--+-- * 'pptCallback'+projectsPatchTraces+ :: Traces -- ^ 'pptPayload'+ -> Text -- ^ 'pptProjectId'+ -> ProjectsPatchTraces+projectsPatchTraces pPptPayload_ pPptProjectId_ =+ ProjectsPatchTraces+ { _pptXgafv = Nothing+ , _pptUploadProtocol = Nothing+ , _pptPp = True+ , _pptAccessToken = Nothing+ , _pptUploadType = Nothing+ , _pptPayload = pPptPayload_+ , _pptBearerToken = Nothing+ , _pptProjectId = pPptProjectId_+ , _pptCallback = Nothing+ }++-- | V1 error format.+pptXgafv :: Lens' ProjectsPatchTraces (Maybe Text)+pptXgafv = lens _pptXgafv (\ s a -> s{_pptXgafv = a})++-- | Upload protocol for media (e.g. \"raw\", \"multipart\").+pptUploadProtocol :: Lens' ProjectsPatchTraces (Maybe Text)+pptUploadProtocol+ = lens _pptUploadProtocol+ (\ s a -> s{_pptUploadProtocol = a})++-- | Pretty-print response.+pptPp :: Lens' ProjectsPatchTraces Bool+pptPp = lens _pptPp (\ s a -> s{_pptPp = a})++-- | OAuth access token.+pptAccessToken :: Lens' ProjectsPatchTraces (Maybe Text)+pptAccessToken+ = lens _pptAccessToken+ (\ s a -> s{_pptAccessToken = a})++-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+pptUploadType :: Lens' ProjectsPatchTraces (Maybe Text)+pptUploadType+ = lens _pptUploadType+ (\ s a -> s{_pptUploadType = a})++-- | Multipart request metadata.+pptPayload :: Lens' ProjectsPatchTraces Traces+pptPayload+ = lens _pptPayload (\ s a -> s{_pptPayload = a})++-- | OAuth bearer token.+pptBearerToken :: Lens' ProjectsPatchTraces (Maybe Text)+pptBearerToken+ = lens _pptBearerToken+ (\ s a -> s{_pptBearerToken = a})++-- | The project id of the trace to patch.+pptProjectId :: Lens' ProjectsPatchTraces Text+pptProjectId+ = lens _pptProjectId (\ s a -> s{_pptProjectId = a})++-- | JSONP+pptCallback :: Lens' ProjectsPatchTraces (Maybe Text)+pptCallback+ = lens _pptCallback (\ s a -> s{_pptCallback = a})++instance GoogleRequest ProjectsPatchTraces where+ type Rs ProjectsPatchTraces = Empty+ requestClient ProjectsPatchTraces{..}+ = go _pptProjectId _pptXgafv _pptUploadProtocol+ (Just _pptPp)+ _pptAccessToken+ _pptUploadType+ _pptBearerToken+ _pptCallback+ (Just AltJSON)+ _pptPayload+ cloudTraceService+ where go+ = buildClient+ (Proxy :: Proxy ProjectsPatchTracesResource)+ mempty
+ gen/Network/Google/Resource/CloudTrace/Projects/Traces/Get.hs view
@@ -0,0 +1,182 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE FlexibleInstances #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE TypeOperators #-}++{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- |+-- Module : Network.Google.Resource.CloudTrace.Projects.Traces.Get+-- Copyright : (c) 2015 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Gets one trace by id.+--+-- /See:/ <https://cloud.google.com/tools/cloud-trace Google Cloud Trace API Reference> for @cloudtrace.projects.traces.get@.+module Network.Google.Resource.CloudTrace.Projects.Traces.Get+ (+ -- * REST Resource+ ProjectsTracesGetResource++ -- * Creating a Request+ , projectsTracesGet+ , ProjectsTracesGet++ -- * Request Lenses+ , ptgTraceId+ , ptgXgafv+ , ptgUploadProtocol+ , ptgPp+ , ptgAccessToken+ , ptgUploadType+ , ptgBearerToken+ , ptgProjectId+ , ptgCallback+ ) where++import Network.Google.CloudTrace.Types+import Network.Google.Prelude++-- | A resource alias for @cloudtrace.projects.traces.get@ method which the+-- 'ProjectsTracesGet' request conforms to.+type ProjectsTracesGetResource =+ "v1" :>+ "projects" :>+ Capture "projectId" Text :>+ "traces" :>+ Capture "traceId" Text :>+ QueryParam "$.xgafv" Text :>+ QueryParam "upload_protocol" Text :>+ QueryParam "pp" Bool :>+ QueryParam "access_token" Text :>+ QueryParam "uploadType" Text :>+ QueryParam "bearer_token" Text :>+ QueryParam "callback" Text :>+ QueryParam "alt" AltJSON :> Get '[JSON] Trace++-- | Gets one trace by id.+--+-- /See:/ 'projectsTracesGet' smart constructor.+data ProjectsTracesGet = ProjectsTracesGet+ { _ptgTraceId :: !Text+ , _ptgXgafv :: !(Maybe Text)+ , _ptgUploadProtocol :: !(Maybe Text)+ , _ptgPp :: !Bool+ , _ptgAccessToken :: !(Maybe Text)+ , _ptgUploadType :: !(Maybe Text)+ , _ptgBearerToken :: !(Maybe Text)+ , _ptgProjectId :: !Text+ , _ptgCallback :: !(Maybe Text)+ } deriving (Eq,Show,Data,Typeable,Generic)++-- | Creates a value of 'ProjectsTracesGet' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ptgTraceId'+--+-- * 'ptgXgafv'+--+-- * 'ptgUploadProtocol'+--+-- * 'ptgPp'+--+-- * 'ptgAccessToken'+--+-- * 'ptgUploadType'+--+-- * 'ptgBearerToken'+--+-- * 'ptgProjectId'+--+-- * 'ptgCallback'+projectsTracesGet+ :: Text -- ^ 'ptgTraceId'+ -> Text -- ^ 'ptgProjectId'+ -> ProjectsTracesGet+projectsTracesGet pPtgTraceId_ pPtgProjectId_ =+ ProjectsTracesGet+ { _ptgTraceId = pPtgTraceId_+ , _ptgXgafv = Nothing+ , _ptgUploadProtocol = Nothing+ , _ptgPp = True+ , _ptgAccessToken = Nothing+ , _ptgUploadType = Nothing+ , _ptgBearerToken = Nothing+ , _ptgProjectId = pPtgProjectId_+ , _ptgCallback = Nothing+ }++-- | The trace id of the trace to return.+ptgTraceId :: Lens' ProjectsTracesGet Text+ptgTraceId+ = lens _ptgTraceId (\ s a -> s{_ptgTraceId = a})++-- | V1 error format.+ptgXgafv :: Lens' ProjectsTracesGet (Maybe Text)+ptgXgafv = lens _ptgXgafv (\ s a -> s{_ptgXgafv = a})++-- | Upload protocol for media (e.g. \"raw\", \"multipart\").+ptgUploadProtocol :: Lens' ProjectsTracesGet (Maybe Text)+ptgUploadProtocol+ = lens _ptgUploadProtocol+ (\ s a -> s{_ptgUploadProtocol = a})++-- | Pretty-print response.+ptgPp :: Lens' ProjectsTracesGet Bool+ptgPp = lens _ptgPp (\ s a -> s{_ptgPp = a})++-- | OAuth access token.+ptgAccessToken :: Lens' ProjectsTracesGet (Maybe Text)+ptgAccessToken+ = lens _ptgAccessToken+ (\ s a -> s{_ptgAccessToken = a})++-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+ptgUploadType :: Lens' ProjectsTracesGet (Maybe Text)+ptgUploadType+ = lens _ptgUploadType+ (\ s a -> s{_ptgUploadType = a})++-- | OAuth bearer token.+ptgBearerToken :: Lens' ProjectsTracesGet (Maybe Text)+ptgBearerToken+ = lens _ptgBearerToken+ (\ s a -> s{_ptgBearerToken = a})++-- | The project id of the trace to return.+ptgProjectId :: Lens' ProjectsTracesGet Text+ptgProjectId+ = lens _ptgProjectId (\ s a -> s{_ptgProjectId = a})++-- | JSONP+ptgCallback :: Lens' ProjectsTracesGet (Maybe Text)+ptgCallback+ = lens _ptgCallback (\ s a -> s{_ptgCallback = a})++instance GoogleRequest ProjectsTracesGet where+ type Rs ProjectsTracesGet = Trace+ requestClient ProjectsTracesGet{..}+ = go _ptgProjectId _ptgTraceId _ptgXgafv+ _ptgUploadProtocol+ (Just _ptgPp)+ _ptgAccessToken+ _ptgUploadType+ _ptgBearerToken+ _ptgCallback+ (Just AltJSON)+ cloudTraceService+ where go+ = buildClient+ (Proxy :: Proxy ProjectsTracesGetResource)+ mempty
+ gen/Network/Google/Resource/CloudTrace/Projects/Traces/List.hs view
@@ -0,0 +1,263 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE FlexibleInstances #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE TypeOperators #-}++{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- |+-- Module : Network.Google.Resource.CloudTrace.Projects.Traces.List+-- Copyright : (c) 2015 Brendan Hay+-- License : Mozilla Public License, v. 2.0.+-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- List traces matching the filter expression.+--+-- /See:/ <https://cloud.google.com/tools/cloud-trace Google Cloud Trace API Reference> for @cloudtrace.projects.traces.list@.+module Network.Google.Resource.CloudTrace.Projects.Traces.List+ (+ -- * REST Resource+ ProjectsTracesListResource++ -- * Creating a Request+ , projectsTracesList+ , ProjectsTracesList++ -- * Request Lenses+ , ptlXgafv+ , ptlUploadProtocol+ , ptlOrderBy+ , ptlStartTime+ , ptlPp+ , ptlAccessToken+ , ptlUploadType+ , ptlBearerToken+ , ptlEndTime+ , ptlView+ , ptlFilter+ , ptlPageToken+ , ptlProjectId+ , ptlPageSize+ , ptlCallback+ ) where++import Network.Google.CloudTrace.Types+import Network.Google.Prelude++-- | A resource alias for @cloudtrace.projects.traces.list@ method which the+-- 'ProjectsTracesList' request conforms to.+type ProjectsTracesListResource =+ "v1" :>+ "projects" :>+ Capture "projectId" Text :>+ "traces" :>+ QueryParam "$.xgafv" Text :>+ QueryParam "upload_protocol" Text :>+ QueryParam "orderBy" Text :>+ QueryParam "startTime" Text :>+ QueryParam "pp" Bool :>+ QueryParam "access_token" Text :>+ QueryParam "uploadType" Text :>+ QueryParam "bearer_token" Text :>+ QueryParam "endTime" Text :>+ QueryParam "view" Text :>+ QueryParam "filter" Text :>+ QueryParam "pageToken" Text :>+ QueryParam "pageSize" (Textual Int32) :>+ QueryParam "callback" Text :>+ QueryParam "alt" AltJSON :>+ Get '[JSON] ListTracesResponse++-- | List traces matching the filter expression.+--+-- /See:/ 'projectsTracesList' smart constructor.+data ProjectsTracesList = ProjectsTracesList+ { _ptlXgafv :: !(Maybe Text)+ , _ptlUploadProtocol :: !(Maybe Text)+ , _ptlOrderBy :: !(Maybe Text)+ , _ptlStartTime :: !(Maybe Text)+ , _ptlPp :: !Bool+ , _ptlAccessToken :: !(Maybe Text)+ , _ptlUploadType :: !(Maybe Text)+ , _ptlBearerToken :: !(Maybe Text)+ , _ptlEndTime :: !(Maybe Text)+ , _ptlView :: !(Maybe Text)+ , _ptlFilter :: !(Maybe Text)+ , _ptlPageToken :: !(Maybe Text)+ , _ptlProjectId :: !Text+ , _ptlPageSize :: !(Maybe (Textual Int32))+ , _ptlCallback :: !(Maybe Text)+ } deriving (Eq,Show,Data,Typeable,Generic)++-- | Creates a value of 'ProjectsTracesList' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ptlXgafv'+--+-- * 'ptlUploadProtocol'+--+-- * 'ptlOrderBy'+--+-- * 'ptlStartTime'+--+-- * 'ptlPp'+--+-- * 'ptlAccessToken'+--+-- * 'ptlUploadType'+--+-- * 'ptlBearerToken'+--+-- * 'ptlEndTime'+--+-- * 'ptlView'+--+-- * 'ptlFilter'+--+-- * 'ptlPageToken'+--+-- * 'ptlProjectId'+--+-- * 'ptlPageSize'+--+-- * 'ptlCallback'+projectsTracesList+ :: Text -- ^ 'ptlProjectId'+ -> ProjectsTracesList+projectsTracesList pPtlProjectId_ =+ ProjectsTracesList+ { _ptlXgafv = Nothing+ , _ptlUploadProtocol = Nothing+ , _ptlOrderBy = Nothing+ , _ptlStartTime = Nothing+ , _ptlPp = True+ , _ptlAccessToken = Nothing+ , _ptlUploadType = Nothing+ , _ptlBearerToken = Nothing+ , _ptlEndTime = Nothing+ , _ptlView = Nothing+ , _ptlFilter = Nothing+ , _ptlPageToken = Nothing+ , _ptlProjectId = pPtlProjectId_+ , _ptlPageSize = Nothing+ , _ptlCallback = Nothing+ }++-- | V1 error format.+ptlXgafv :: Lens' ProjectsTracesList (Maybe Text)+ptlXgafv = lens _ptlXgafv (\ s a -> s{_ptlXgafv = a})++-- | Upload protocol for media (e.g. \"raw\", \"multipart\").+ptlUploadProtocol :: Lens' ProjectsTracesList (Maybe Text)+ptlUploadProtocol+ = lens _ptlUploadProtocol+ (\ s a -> s{_ptlUploadProtocol = a})++-- | The trace field used to establish the order of traces returned by the+-- ListTraces method. Possible options are: trace_id name (name field of+-- root span) duration (different between end_time and start_time fields of+-- root span) start (start_time field of root span) Descending order can be+-- specified by appending \"desc\" to the sort field: name desc Only one+-- sort field is permitted, though this may change in the future.+ptlOrderBy :: Lens' ProjectsTracesList (Maybe Text)+ptlOrderBy+ = lens _ptlOrderBy (\ s a -> s{_ptlOrderBy = a})++-- | End of the time interval (inclusive).+ptlStartTime :: Lens' ProjectsTracesList (Maybe Text)+ptlStartTime+ = lens _ptlStartTime (\ s a -> s{_ptlStartTime = a})++-- | Pretty-print response.+ptlPp :: Lens' ProjectsTracesList Bool+ptlPp = lens _ptlPp (\ s a -> s{_ptlPp = a})++-- | OAuth access token.+ptlAccessToken :: Lens' ProjectsTracesList (Maybe Text)+ptlAccessToken+ = lens _ptlAccessToken+ (\ s a -> s{_ptlAccessToken = a})++-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").+ptlUploadType :: Lens' ProjectsTracesList (Maybe Text)+ptlUploadType+ = lens _ptlUploadType+ (\ s a -> s{_ptlUploadType = a})++-- | OAuth bearer token.+ptlBearerToken :: Lens' ProjectsTracesList (Maybe Text)+ptlBearerToken+ = lens _ptlBearerToken+ (\ s a -> s{_ptlBearerToken = a})++-- | Start of the time interval (exclusive).+ptlEndTime :: Lens' ProjectsTracesList (Maybe Text)+ptlEndTime+ = lens _ptlEndTime (\ s a -> s{_ptlEndTime = a})++-- | ViewType specifies the projection of the result.+ptlView :: Lens' ProjectsTracesList (Maybe Text)+ptlView = lens _ptlView (\ s a -> s{_ptlView = a})++-- | An optional filter for the request.+ptlFilter :: Lens' ProjectsTracesList (Maybe Text)+ptlFilter+ = lens _ptlFilter (\ s a -> s{_ptlFilter = a})++-- | The token identifying the page of results to return from the ListTraces+-- method. If present, this value is should be taken from the+-- next_page_token field of a previous ListTracesResponse.+ptlPageToken :: Lens' ProjectsTracesList (Maybe Text)+ptlPageToken+ = lens _ptlPageToken (\ s a -> s{_ptlPageToken = a})++-- | The stringified-version of the project id.+ptlProjectId :: Lens' ProjectsTracesList Text+ptlProjectId+ = lens _ptlProjectId (\ s a -> s{_ptlProjectId = a})++-- | Maximum number of topics to return. If not specified or \<= 0, the+-- implementation will select a reasonable value. The implemenation may+-- always return fewer than the requested page_size.+ptlPageSize :: Lens' ProjectsTracesList (Maybe Int32)+ptlPageSize+ = lens _ptlPageSize (\ s a -> s{_ptlPageSize = a}) .+ mapping _Coerce++-- | JSONP+ptlCallback :: Lens' ProjectsTracesList (Maybe Text)+ptlCallback+ = lens _ptlCallback (\ s a -> s{_ptlCallback = a})++instance GoogleRequest ProjectsTracesList where+ type Rs ProjectsTracesList = ListTracesResponse+ requestClient ProjectsTracesList{..}+ = go _ptlProjectId _ptlXgafv _ptlUploadProtocol+ _ptlOrderBy+ _ptlStartTime+ (Just _ptlPp)+ _ptlAccessToken+ _ptlUploadType+ _ptlBearerToken+ _ptlEndTime+ _ptlView+ _ptlFilter+ _ptlPageToken+ _ptlPageSize+ _ptlCallback+ (Just AltJSON)+ cloudTraceService+ where go+ = buildClient+ (Proxy :: Proxy ProjectsTracesListResource)+ mempty
+ gogol-cloudtrace.cabal view
@@ -0,0 +1,50 @@+name: gogol-cloudtrace+version: 0.0.1+synopsis: Google Cloud Trace SDK.+homepage: https://github.com/brendanhay/gogol+bug-reports: https://github.com/brendanhay/gogol/issues+license: OtherLicense+license-file: LICENSE+author: Brendan Hay+maintainer: Brendan Hay <brendan.g.hay@gmail.com>+copyright: Copyright (c) 2015 Brendan Hay+category: Network, Google, Cloud+build-type: Simple+cabal-version: >= 1.10+extra-source-files: README.md++description:+ The Google Cloud Trace API provides services for reading and writing+ runtime trace data for Cloud applications.+ .+ /Warning:/ This is an experimental prototype/preview release which is still+ under exploratory development and not intended for public use, caveat emptor!+ .+ This library is compatible with version @v1@+ of the API.++source-repository head+ type: git+ location: git://github.com/brendanhay/gogol.git++library+ default-language: Haskell2010+ hs-source-dirs: src gen++ ghc-options: -Wall++ exposed-modules:+ Network.Google.CloudTrace+ , Network.Google.CloudTrace.Types+ , Network.Google.Resource.CloudTrace.GetDiscovery+ , Network.Google.Resource.CloudTrace.Projects.PatchTraces+ , Network.Google.Resource.CloudTrace.Projects.Traces.Get+ , Network.Google.Resource.CloudTrace.Projects.Traces.List++ other-modules:+ Network.Google.CloudTrace.Types.Product+ , Network.Google.CloudTrace.Types.Sum++ build-depends:+ gogol-core == 0.0.1.*+ , base >= 4.7 && < 5