[mod] Only incl. :end-instant in signals with run forms

This commit is contained in:
Peter Taoussanis 2024-03-16 16:54:34 +01:00
parent 2989649679
commit 45f924a1f3
2 changed files with 2 additions and 3 deletions

View file

@ -370,7 +370,7 @@
(Signal. 1 instant uid,
location ns line column file,
sample-rate, kind id level, ctx parent,
data msg_, error nil nil instant nil extra-kvs))]
data msg_, error nil nil nil nil extra-kvs))]
(if extra-kvs
(reduce-kv assoc signal extra-kvs)

View file

@ -86,8 +86,7 @@
[(let [{start :instant, end :end-instant} sv1]
[(is (enc/inst? start))
(is (enc/inst? end))
(is (= start end))])
(is (nil? end))])
(let [{start :instant, end :end-instant} sv2]
[(is (enc/inst? start))