[mod] Drop redundant 'filter' alias for 'when' fn/form

This commit is contained in:
Peter Taoussanis 2024-03-07 15:54:36 +01:00
parent ab00cb4f64
commit 1440a764c9
2 changed files with 8 additions and 8 deletions

View file

@ -314,7 +314,7 @@
'([{:as opts :keys '([{:as opts :keys
[#_defaults #_elide? #_allow? #_callsite-id, [#_defaults #_elide? #_allow? #_callsite-id,
elidable? location instant uid middleware, elidable? location instant uid middleware,
sample-rate ns kind id level filter when rate-limit, sample-rate ns kind id level when rate-limit,
ctx parent trace?, do let data msg error run & user-opts]}]) ctx parent trace?, do let data msg error run & user-opts]}])
:log! ; [msg] [level-or-opts msg] => <allowed?> :log! ; [msg] [level-or-opts msg] => <allowed?>
@ -323,7 +323,7 @@
[{:as opts :keys [{:as opts :keys
[#_defaults #_elide? #_allow? #_callsite-id, [#_defaults #_elide? #_allow? #_callsite-id,
elidable? location instant uid middleware, elidable? location instant uid middleware,
sample-rate ns kind id level filter when rate-limit, sample-rate ns kind id level when rate-limit,
ctx parent trace?, do let data msg error #_run & user-opts]} ctx parent trace?, do let data msg error #_run & user-opts]}
msg]) msg])
@ -333,7 +333,7 @@
[{:as opts :keys [{:as opts :keys
[#_defaults #_elide? #_allow? #_callsite-id, [#_defaults #_elide? #_allow? #_callsite-id,
elidable? location instant uid middleware, elidable? location instant uid middleware,
sample-rate ns kind id level filter when rate-limit, sample-rate ns kind id level when rate-limit,
ctx parent trace?, do let data msg error #_run & user-opts]} ctx parent trace?, do let data msg error #_run & user-opts]}
id]) id])
@ -343,7 +343,7 @@
[{:as opts :keys [{:as opts :keys
[#_defaults #_elide? #_allow? #_callsite-id, [#_defaults #_elide? #_allow? #_callsite-id,
elidable? location instant uid middleware, elidable? location instant uid middleware,
sample-rate ns kind id level filter when rate-limit, sample-rate ns kind id level when rate-limit,
ctx parent trace?, do let data msg error #_run & user-opts]} ctx parent trace?, do let data msg error #_run & user-opts]}
error]) error])
@ -353,7 +353,7 @@
[{:as opts :keys [{:as opts :keys
[#_defaults #_elide? #_allow? #_callsite-id, [#_defaults #_elide? #_allow? #_callsite-id,
elidable? location instant uid middleware, elidable? location instant uid middleware,
sample-rate ns kind id level filter when rate-limit, sample-rate ns kind id level when rate-limit,
ctx parent trace?, do let data msg error run & user-opts]} ctx parent trace?, do let data msg error run & user-opts]}
form]) form])
@ -363,7 +363,7 @@
[{:as opts :keys [{:as opts :keys
[#_defaults #_elide? #_allow? #_callsite-id, rethrow? catch-val, [#_defaults #_elide? #_allow? #_callsite-id, rethrow? catch-val,
elidable? location instant uid middleware, elidable? location instant uid middleware,
sample-rate ns kind id level filter when rate-limit, sample-rate ns kind id level when rate-limit,
ctx parent trace?, do let data msg error #_run & user-opts]} ctx parent trace?, do let data msg error #_run & user-opts]}
form]) form])
@ -373,7 +373,7 @@
[{:as opts :keys [{:as opts :keys
[#_defaults #_elide? #_allow? #_callsite-id, [#_defaults #_elide? #_allow? #_callsite-id,
elidable? location instant uid middleware, elidable? location instant uid middleware,
sample-rate ns kind id level filter when rate-limit, sample-rate ns kind id level when rate-limit,
ctx parent trace?, do let data msg error #_run & user-opts]}]) ctx parent trace?, do let data msg error #_run & user-opts]}])
(enc/unexpected-arg! macro-id)))) (enc/unexpected-arg! macro-id))))

View file

@ -283,7 +283,7 @@
{:async nil, :error-fn (fn [x] (reset! error_ x)), :rl-error nil, {:async nil, :error-fn (fn [x] (reset! error_ x)), :rl-error nil,
:middleware [(fn [sv] (if *throwing-handler-middleware?* (throw ex1) sv))]} :middleware [(fn [sv] (if *throwing-handler-middleware?* (throw ex1) sv))]}
[(is (->> (sig! {:level :info, :filter (throw ex1)}) (throws? :ex-info "TestEx")) "`~filterable-expansion/allow` throws at call") [(is (->> (sig! {:level :info, :when (throw ex1)}) (throws? :ex-info "TestEx")) "`~filterable-expansion/allow` throws at call")
(is (->> (sig! {:level :info, :instant (throw ex1)}) (throws? :ex-info "TestEx")) "`~instant-form` throws at call") (is (->> (sig! {:level :info, :instant (throw ex1)}) (throws? :ex-info "TestEx")) "`~instant-form` throws at call")
(is (->> (sig! {:level :info, :id (throw ex1)}) (throws? :ex-info "TestEx")) "`~id-form` throws at call") (is (->> (sig! {:level :info, :id (throw ex1)}) (throws? :ex-info "TestEx")) "`~id-form` throws at call")
(is (->> (sig! {:level :info, :uid (throw ex1)}) (throws? :ex-info "TestEx")) "`~uid-form` throws at call") (is (->> (sig! {:level :info, :uid (throw ex1)}) (throws? :ex-info "TestEx")) "`~uid-form` throws at call")