gogol-cloudtrace 0.4.0 → 0.5.0
raw patch · 6 files changed
+151/−112 lines, 6 filesdep ~gogol-corePVP ok
version bump matches the API change (PVP)
Dependency ranges changed: gogol-core
API changes (from Hackage documentation)
Files
- README.md +1/−1
- gen/Network/Google/CloudTrace/Types.hs +2/−2
- gen/Network/Google/CloudTrace/Types/Product.hs +132/−101
- gen/Network/Google/Resource/CloudTrace/Projects/Traces/BatchWrite.hs +7/−3
- gen/Network/Google/Resource/CloudTrace/Projects/Traces/Spans/CreateSpan.hs +7/−3
- gogol-cloudtrace.cabal +2/−2
README.md view
@@ -8,7 +8,7 @@ ## Version -`0.3.0`+`0.5.0` ## Description
gen/Network/Google/CloudTrace/Types.hs view
@@ -178,8 +178,8 @@ -- | Write Trace data for a project or application traceAppendScope :: Proxy '["https://www.googleapis.com/auth/trace.append"]-traceAppendScope = Proxy;+traceAppendScope = Proxy -- | View and manage your data across Google Cloud Platform services cloudPlatformScope :: Proxy '["https://www.googleapis.com/auth/cloud-platform"]-cloudPlatformScope = Proxy;+cloudPlatformScope = Proxy
gen/Network/Google/CloudTrace/Types/Product.hs view
@@ -28,7 +28,8 @@ -- a trace. -- -- /See:/ 'span' smart constructor.-data Span = Span'+data Span =+ Span' { _sStatus :: !(Maybe Status) , _sStartTime :: !(Maybe DateTime') , _sChildSpanCount :: !(Maybe (Textual Int32))@@ -42,8 +43,10 @@ , _sParentSpanId :: !(Maybe Text) , _sLinks :: !(Maybe Links) , _sSpanId :: !(Maybe Text)- } deriving (Eq,Show,Data,Typeable,Generic)+ }+ deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Span' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -76,7 +79,7 @@ span :: Span span =- Span'+ Span' { _sStatus = Nothing , _sStartTime = Nothing , _sChildSpanCount = Nothing@@ -92,6 +95,7 @@ , _sSpanId = Nothing } + -- | An optional final status for this span. sStatus :: Lens' Span (Maybe Status) sStatus = lens _sStatus (\ s a -> s{_sStatus = a})@@ -220,11 +224,14 @@ -- | Represents a string that might be shortened to a specified length. -- -- /See:/ 'truncatableString' smart constructor.-data TruncatableString = TruncatableString'+data TruncatableString =+ TruncatableString' { _tsValue :: !(Maybe Text) , _tsTruncatedByteCount :: !(Maybe (Textual Int32))- } deriving (Eq,Show,Data,Typeable,Generic)+ }+ deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'TruncatableString' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -235,11 +242,9 @@ truncatableString :: TruncatableString truncatableString =- TruncatableString'- { _tsValue = Nothing- , _tsTruncatedByteCount = Nothing- }+ TruncatableString' {_tsValue = Nothing, _tsTruncatedByteCount = Nothing} + -- | The shortened string. For example, if the original string is 500 bytes -- long and the limit of the string is 128 bytes, then \`value\` contains -- the first 128 bytes of the 500-byte string. Truncation always happens on@@ -308,12 +313,15 @@ -- security\/privacy reasons. -- -- /See:/ 'status' smart constructor.-data Status = Status'+data Status =+ Status' { _sDetails :: !(Maybe [StatusDetailsItem]) , _sCode :: !(Maybe (Textual Int32)) , _sMessage :: !(Maybe Text)- } deriving (Eq,Show,Data,Typeable,Generic)+ }+ deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Status' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -325,13 +333,9 @@ -- * 'sMessage' status :: Status-status =- Status'- { _sDetails = Nothing- , _sCode = Nothing- , _sMessage = Nothing- }+status = Status' {_sDetails = Nothing, _sCode = Nothing, _sMessage = Nothing} + -- | A list of messages that carry the error details. There is a common set -- of message types for APIs to use. sDetails :: Lens' Status [StatusDetailsItem]@@ -375,10 +379,13 @@ -- \"\/http\/request_bytes\": 300 \"abc.com\/myattribute\": true -- -- /See:/ 'attributesAttributeMap' smart constructor.-newtype AttributesAttributeMap = AttributesAttributeMap'+newtype AttributesAttributeMap =+ AttributesAttributeMap' { _aamAddtional :: HashMap Text AttributeValue- } deriving (Eq,Show,Data,Typeable,Generic)+ }+ deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'AttributesAttributeMap' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -388,10 +395,9 @@ :: HashMap Text AttributeValue -- ^ 'aamAddtional' -> AttributesAttributeMap attributesAttributeMap pAamAddtional_ =- AttributesAttributeMap'- { _aamAddtional = _Coerce # pAamAddtional_- }+ AttributesAttributeMap' {_aamAddtional = _Coerce # pAamAddtional_} + aamAddtional :: Lens' AttributesAttributeMap (HashMap Text AttributeValue) aamAddtional = lens _aamAddtional (\ s a -> s{_aamAddtional = a})@@ -409,11 +415,14 @@ -- | Text annotation with a set of attributes. -- -- /See:/ 'annotation' smart constructor.-data Annotation = Annotation'+data Annotation =+ Annotation' { _aAttributes :: !(Maybe Attributes) , _aDescription :: !(Maybe TruncatableString)- } deriving (Eq,Show,Data,Typeable,Generic)+ }+ deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Annotation' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -423,12 +432,9 @@ -- * 'aDescription' annotation :: Annotation-annotation =- Annotation'- { _aAttributes = Nothing- , _aDescription = Nothing- }+annotation = Annotation' {_aAttributes = Nothing, _aDescription = Nothing} + -- | A set of attributes on the annotation. You can have up to 4 attributes -- per Annotation. aAttributes :: Lens' Annotation (Maybe Attributes)@@ -458,12 +464,15 @@ -- | The allowed types for [VALUE] in a \`[KEY]:[VALUE]\` attribute. -- -- /See:/ 'attributeValue' smart constructor.-data AttributeValue = AttributeValue'+data AttributeValue =+ AttributeValue' { _avBoolValue :: !(Maybe Bool) , _avIntValue :: !(Maybe (Textual Int64)) , _avStringValue :: !(Maybe TruncatableString)- } deriving (Eq,Show,Data,Typeable,Generic)+ }+ deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'AttributeValue' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -476,12 +485,10 @@ attributeValue :: AttributeValue attributeValue =- AttributeValue'- { _avBoolValue = Nothing- , _avIntValue = Nothing- , _avStringValue = Nothing- }+ AttributeValue'+ {_avBoolValue = Nothing, _avIntValue = Nothing, _avStringValue = Nothing} + -- | A Boolean value represented by \`true\` or \`false\`. avBoolValue :: Lens' AttributeValue (Maybe Bool) avBoolValue@@ -518,13 +525,16 @@ -- | An event describing a message sent\/received between Spans. -- -- /See:/ 'messageEvent' smart constructor.-data MessageEvent = MessageEvent'+data MessageEvent =+ MessageEvent' { _meId :: !(Maybe (Textual Int64)) , _meUncompressedSizeBytes :: !(Maybe (Textual Int64)) , _meType :: !(Maybe MessageEventType) , _meCompressedSizeBytes :: !(Maybe (Textual Int64))- } deriving (Eq,Show,Data,Typeable,Generic)+ }+ deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'MessageEvent' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -539,13 +549,14 @@ messageEvent :: MessageEvent messageEvent =- MessageEvent'+ MessageEvent' { _meId = Nothing , _meUncompressedSizeBytes = Nothing , _meType = Nothing , _meCompressedSizeBytes = Nothing } + -- | An identifier for the MessageEvent\'s message that can be used to match -- SENT and RECEIVED MessageEvents. It is recommended to be unique within a -- Span.@@ -602,15 +613,17 @@ -- -- /See:/ 'empty' smart constructor. data Empty =- Empty'- deriving (Eq,Show,Data,Typeable,Generic)+ 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') @@ -623,13 +636,16 @@ -- traces or when the handler receives a request from a different project. -- -- /See:/ 'link' smart constructor.-data Link = Link'+data Link =+ Link' { _lTraceId :: !(Maybe Text) , _lAttributes :: !(Maybe Attributes) , _lType :: !(Maybe LinkType) , _lSpanId :: !(Maybe Text)- } deriving (Eq,Show,Data,Typeable,Generic)+ }+ deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Link' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -644,13 +660,14 @@ link :: Link link =- Link'+ Link' { _lTraceId = Nothing , _lAttributes = Nothing , _lType = Nothing , _lSpanId = Nothing } + -- | The [TRACE_ID] for a trace within a project. lTraceId :: Lens' Link (Maybe Text) lTraceId = lens _lTraceId (\ s a -> s{_lTraceId = a})@@ -688,10 +705,13 @@ -- -- /See:/ 'statusDetailsItem' smart constructor.-newtype StatusDetailsItem = StatusDetailsItem'+newtype StatusDetailsItem =+ StatusDetailsItem' { _sdiAddtional :: HashMap Text JSONValue- } deriving (Eq,Show,Data,Typeable,Generic)+ }+ deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'StatusDetailsItem' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -701,10 +721,9 @@ :: HashMap Text JSONValue -- ^ 'sdiAddtional' -> StatusDetailsItem statusDetailsItem pSdiAddtional_ =- StatusDetailsItem'- { _sdiAddtional = _Coerce # pSdiAddtional_- }+ StatusDetailsItem' {_sdiAddtional = _Coerce # pSdiAddtional_} + -- | Properties of the object. Contains field \'type with type URL. sdiAddtional :: Lens' StatusDetailsItem (HashMap Text JSONValue) sdiAddtional@@ -722,11 +741,14 @@ -- | A call stack appearing in a trace. -- -- /See:/ 'stackTrace' smart constructor.-data StackTrace = StackTrace'+data StackTrace =+ StackTrace' { _stStackTraceHashId :: !(Maybe (Textual Int64)) , _stStackFrames :: !(Maybe StackFrames)- } deriving (Eq,Show,Data,Typeable,Generic)+ }+ deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'StackTrace' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -737,11 +759,9 @@ stackTrace :: StackTrace stackTrace =- StackTrace'- { _stStackTraceHashId = Nothing- , _stStackFrames = Nothing- }+ StackTrace' {_stStackTraceHashId = Nothing, _stStackFrames = Nothing} + -- | The hash ID is used to conserve network bandwidth for duplicate stack -- traces within a single trace. Often multiple spans will have identical -- stack traces. The first occurrence of a stack trace should contain both@@ -777,10 +797,13 @@ -- | The request message for the \`BatchWriteSpans\` method. -- -- /See:/ 'batchWriteSpansRequest' smart constructor.-newtype BatchWriteSpansRequest = BatchWriteSpansRequest'+newtype BatchWriteSpansRequest =+ BatchWriteSpansRequest' { _bwsrSpans :: Maybe [Span]- } deriving (Eq,Show,Data,Typeable,Generic)+ }+ deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'BatchWriteSpansRequest' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -788,11 +811,9 @@ -- * 'bwsrSpans' batchWriteSpansRequest :: BatchWriteSpansRequest-batchWriteSpansRequest =- BatchWriteSpansRequest'- { _bwsrSpans = Nothing- }+batchWriteSpansRequest = BatchWriteSpansRequest' {_bwsrSpans = Nothing} + -- | A list of new spans. The span names must not match existing spans, or -- the results are undefined. bwsrSpans :: Lens' BatchWriteSpansRequest [Span]@@ -815,11 +836,14 @@ -- | A set of attributes, each in the format \`[KEY]:[VALUE]\`. -- -- /See:/ 'attributes' smart constructor.-data Attributes = Attributes'+data Attributes =+ Attributes' { _aDroppedAttributesCount :: !(Maybe (Textual Int32)) , _aAttributeMap :: !(Maybe AttributesAttributeMap)- } deriving (Eq,Show,Data,Typeable,Generic)+ }+ deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Attributes' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -830,11 +854,9 @@ attributes :: Attributes attributes =- Attributes'- { _aDroppedAttributesCount = Nothing- , _aAttributeMap = Nothing- }+ Attributes' {_aDroppedAttributesCount = Nothing, _aAttributeMap = Nothing} + -- | The number of attributes that were discarded. Attributes can be -- discarded because their keys are too long or because there are too many -- attributes. If this value is 0 then all attributes are valid.@@ -873,11 +895,14 @@ -- | Binary module. -- -- /See:/ 'module'' smart constructor.-data Module = Module'+data Module =+ Module' { _mBuildId :: !(Maybe TruncatableString) , _mModule :: !(Maybe TruncatableString)- } deriving (Eq,Show,Data,Typeable,Generic)+ }+ deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Module' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -887,12 +912,9 @@ -- * 'mModule' module' :: Module-module' =- Module'- { _mBuildId = Nothing- , _mModule = Nothing- }+module' = Module' {_mBuildId = Nothing, _mModule = Nothing} + -- | A unique identifier for the module, usually a hash of its contents (up -- to 128 bytes). mBuildId :: Lens' Module (Maybe TruncatableString)@@ -921,12 +943,15 @@ -- pairs, or details of a message sent\/received between Spans. -- -- /See:/ 'timeEvents' smart constructor.-data TimeEvents = TimeEvents'+data TimeEvents =+ TimeEvents' { _teDroppedMessageEventsCount :: !(Maybe (Textual Int32)) , _teDroppedAnnotationsCount :: !(Maybe (Textual Int32)) , _teTimeEvent :: !(Maybe [TimeEvent])- } deriving (Eq,Show,Data,Typeable,Generic)+ }+ deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'TimeEvents' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -939,12 +964,13 @@ timeEvents :: TimeEvents timeEvents =- TimeEvents'+ TimeEvents' { _teDroppedMessageEventsCount = Nothing , _teDroppedAnnotationsCount = Nothing , _teTimeEvent = Nothing } + -- | The number of dropped message events in all the included time events. If -- the value is 0, then no message events were dropped. teDroppedMessageEventsCount :: Lens' TimeEvents (Maybe Int32)@@ -990,11 +1016,14 @@ -- | A collection of stack frames, which can be truncated. -- -- /See:/ 'stackFrames' smart constructor.-data StackFrames = StackFrames'+data StackFrames =+ StackFrames' { _sfDroppedFramesCount :: !(Maybe (Textual Int32)) , _sfFrame :: !(Maybe [StackFrame])- } deriving (Eq,Show,Data,Typeable,Generic)+ }+ deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'StackFrames' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1004,12 +1033,9 @@ -- * 'sfFrame' stackFrames :: StackFrames-stackFrames =- StackFrames'- { _sfDroppedFramesCount = Nothing- , _sfFrame = Nothing- }+stackFrames = StackFrames' {_sfDroppedFramesCount = Nothing, _sfFrame = Nothing} + -- | The number of stack frames that were dropped because there were too many -- stack frames. If this value is 0, then no stack frames were dropped. sfDroppedFramesCount :: Lens' StackFrames (Maybe Int32)@@ -1042,7 +1068,8 @@ -- | Represents a single stack frame in a stack trace. -- -- /See:/ 'stackFrame' smart constructor.-data StackFrame = StackFrame'+data StackFrame =+ StackFrame' { _sfLoadModule :: !(Maybe Module) , _sfOriginalFunctionName :: !(Maybe TruncatableString) , _sfLineNumber :: !(Maybe (Textual Int64))@@ -1050,8 +1077,10 @@ , _sfFunctionName :: !(Maybe TruncatableString) , _sfColumnNumber :: !(Maybe (Textual Int64)) , _sfFileName :: !(Maybe TruncatableString)- } deriving (Eq,Show,Data,Typeable,Generic)+ }+ deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'StackFrame' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1072,7 +1101,7 @@ stackFrame :: StackFrame stackFrame =- StackFrame'+ StackFrame' { _sfLoadModule = Nothing , _sfOriginalFunctionName = Nothing , _sfLineNumber = Nothing@@ -1082,6 +1111,7 @@ , _sfFileName = Nothing } + -- | The binary module from where the code was loaded. sfLoadModule :: Lens' StackFrame (Maybe Module) sfLoadModule@@ -1158,11 +1188,14 @@ -- the same or different trace. -- -- /See:/ 'links' smart constructor.-data Links = Links'+data Links =+ Links' { _lDroppedLinksCount :: !(Maybe (Textual Int32)) , _lLink :: !(Maybe [Link])- } deriving (Eq,Show,Data,Typeable,Generic)+ }+ deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Links' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1172,12 +1205,9 @@ -- * 'lLink' links :: Links-links =- Links'- { _lDroppedLinksCount = Nothing- , _lLink = Nothing- }+links = Links' {_lDroppedLinksCount = Nothing, _lLink = Nothing} + -- | The number of dropped links after the maximum size was enforced. If this -- value is 0, then no links were dropped. lDroppedLinksCount :: Lens' Links (Maybe Int32)@@ -1210,12 +1240,15 @@ -- | A time-stamped annotation or message event in the Span. -- -- /See:/ 'timeEvent' smart constructor.-data TimeEvent = TimeEvent'+data TimeEvent =+ TimeEvent' { _teMessageEvent :: !(Maybe MessageEvent) , _teAnnotation :: !(Maybe Annotation) , _teTime :: !(Maybe DateTime')- } deriving (Eq,Show,Data,Typeable,Generic)+ }+ deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'TimeEvent' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1228,11 +1261,9 @@ timeEvent :: TimeEvent timeEvent =- TimeEvent'- { _teMessageEvent = Nothing- , _teAnnotation = Nothing- , _teTime = Nothing- }+ TimeEvent'+ {_teMessageEvent = Nothing, _teAnnotation = Nothing, _teTime = Nothing}+ -- | An event describing a message sent\/received between Spans. teMessageEvent :: Lens' TimeEvent (Maybe MessageEvent)
gen/Network/Google/Resource/CloudTrace/Projects/Traces/BatchWrite.hs view
@@ -65,7 +65,8 @@ -- spans. -- -- /See:/ 'projectsTracesBatchWrite' smart constructor.-data ProjectsTracesBatchWrite = ProjectsTracesBatchWrite'+data ProjectsTracesBatchWrite =+ ProjectsTracesBatchWrite' { _ptbwXgafv :: !(Maybe Xgafv) , _ptbwUploadProtocol :: !(Maybe Text) , _ptbwAccessToken :: !(Maybe Text)@@ -73,8 +74,10 @@ , _ptbwPayload :: !BatchWriteSpansRequest , _ptbwName :: !Text , _ptbwCallback :: !(Maybe Text)- } deriving (Eq,Show,Data,Typeable,Generic)+ }+ deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsTracesBatchWrite' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -97,7 +100,7 @@ -> Text -- ^ 'ptbwName' -> ProjectsTracesBatchWrite projectsTracesBatchWrite pPtbwPayload_ pPtbwName_ =- ProjectsTracesBatchWrite'+ ProjectsTracesBatchWrite' { _ptbwXgafv = Nothing , _ptbwUploadProtocol = Nothing , _ptbwAccessToken = Nothing@@ -106,6 +109,7 @@ , _ptbwName = pPtbwName_ , _ptbwCallback = Nothing }+ -- | V1 error format. ptbwXgafv :: Lens' ProjectsTracesBatchWrite (Maybe Xgafv)
gen/Network/Google/Resource/CloudTrace/Projects/Traces/Spans/CreateSpan.hs view
@@ -61,7 +61,8 @@ -- | Creates a new span. -- -- /See:/ 'projectsTracesSpansCreateSpan' smart constructor.-data ProjectsTracesSpansCreateSpan = ProjectsTracesSpansCreateSpan'+data ProjectsTracesSpansCreateSpan =+ ProjectsTracesSpansCreateSpan' { _ptscsXgafv :: !(Maybe Xgafv) , _ptscsUploadProtocol :: !(Maybe Text) , _ptscsAccessToken :: !(Maybe Text)@@ -69,8 +70,10 @@ , _ptscsPayload :: !Span , _ptscsName :: !Text , _ptscsCallback :: !(Maybe Text)- } deriving (Eq,Show,Data,Typeable,Generic)+ }+ deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsTracesSpansCreateSpan' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -93,7 +96,7 @@ -> Text -- ^ 'ptscsName' -> ProjectsTracesSpansCreateSpan projectsTracesSpansCreateSpan pPtscsPayload_ pPtscsName_ =- ProjectsTracesSpansCreateSpan'+ ProjectsTracesSpansCreateSpan' { _ptscsXgafv = Nothing , _ptscsUploadProtocol = Nothing , _ptscsAccessToken = Nothing@@ -102,6 +105,7 @@ , _ptscsName = pPtscsName_ , _ptscsCallback = Nothing }+ -- | V1 error format. ptscsXgafv :: Lens' ProjectsTracesSpansCreateSpan (Maybe Xgafv)
gogol-cloudtrace.cabal view
@@ -1,5 +1,5 @@ name: gogol-cloudtrace-version: 0.4.0+version: 0.5.0 synopsis: Google Stackdriver Trace SDK. homepage: https://github.com/brendanhay/gogol bug-reports: https://github.com/brendanhay/gogol/issues@@ -48,5 +48,5 @@ , Network.Google.CloudTrace.Types.Sum build-depends:- gogol-core == 0.4.0.*+ gogol-core == 0.5.0.* , base >= 4.7 && < 5