From aa0cc7001795b5ccf9fbc87a9fa33282bdda5779 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Andreas=20L=C3=A4ndle?= Date: Sun, 11 Feb 2024 22:51:14 +0100 Subject: [PATCH] Do not prefix Zipkin kind keys (#27) MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Co-authored-by: Andreas Ländle <969523+alaendle@users.noreply.github.com> --- src/Monitor/Tracing/Zipkin.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/Monitor/Tracing/Zipkin.hs b/src/Monitor/Tracing/Zipkin.hs index 1ada041..190217b 100644 --- a/src/Monitor/Tracing/Zipkin.hs +++ b/src/Monitor/Tracing/Zipkin.hs @@ -183,7 +183,7 @@ addTag key val bldr = -- Use this method if you want to create a root consumer span. Otherwise use 'consumerSpanWith' to -- create a sub span with consumer kind. addConsumerKind :: Builder -> Builder -addConsumerKind = addTag kindKey consumerKindValue +addConsumerKind = appEndo $ insertTag kindKey consumerKindValue -- | Adds a producer kind tag to a builder. This is a convenience method to use with 'rootSpanWith', -- for example: @@ -193,7 +193,7 @@ addConsumerKind = addTag kindKey consumerKindValue -- Use this method if you want to create a root producer span. Otherwise use 'producerSpanWith' to -- create a sub span with producer kind. addProducerKind :: Builder -> Builder -addProducerKind = addTag kindKey producerKindValue +addProducerKind = appEndo $ insertTag kindKey producerKindValue -- | Adds an inherited tag to a builder. Unlike a tag added via 'addTag', this tag: --