[fix] Properly ignore internal :otel-context key

This commit is contained in:
Peter Taoussanis 2024-08-19 16:18:27 +02:00
parent 8b58be68a2
commit 290dfe268d
2 changed files with 4 additions and 2 deletions

View file

@ -192,7 +192,9 @@
(do (enc/def-print-impl [sig Signal] (str "#" `Signal (pr-str (into {} sig)))))
#?(:clj (enc/def-print-dup [sig Signal] (str "#" `Signal (pr-str (into {} sig))))) ; NB intentionally verbose, to support extra keys
(def standard-signal-keys (set (keys (map->Signal {:schema 0}))))
(def standard-signal-keys
(disj (set (keys (map->Signal {:schema 0})))
:_otel-context))
(comment
(def s1 (with-signal (signal! {:level :info, :my-k1 :my-v1})))

View file

@ -261,7 +261,7 @@
#?(:clj
(testing "Printing"
(let [sv1 (with-sig (sig! {:level :info, :run (+ 1 2), :my-k1 :my-v1}))
(let [sv1 (dissoc (with-sig (sig! {:level :info, :run (+ 1 2), :my-k1 :my-v1})) :_otel-context)
sv1 ; Ensure instants are printable
(-> sv1
(update-in [:inst] enc/inst->udt)