From 562a8c73224e136ea169f8f694533c09438919a4 Mon Sep 17 00:00:00 2001 From: Saskia Lindner Date: Thu, 31 Aug 2017 13:55:22 +0200 Subject: [PATCH] Prevent duplicate filter strings --- src/day8/re_frame/trace.cljs | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/src/day8/re_frame/trace.cljs b/src/day8/re_frame/trace.cljs index ad19ad6..14ac70e 100644 --- a/src/day8/re_frame/trace.cljs +++ b/src/day8/re_frame/trace.cljs @@ -147,11 +147,12 @@ (< (:query query) (:duration trace))))) (defn add-filter [filter-items filter-input filter-type] - (swap! filter-items conj {:id (random-uuid) - :query (if (= filter-type :contains) - (str/lower-case filter-input) - (js/parseFloat filter-input)) - :filter-type filter-type})) + (if-not (some #(= filter-input (:query %)) @filter-items) + (swap! filter-items conj {:id (random-uuid) + :query (if (= filter-type :contains) + (str/lower-case filter-input) + (js/parseFloat filter-input)) + :filter-type filter-type}))) (defn render-traces [showing-traces filter-items filter-input trace-detail-expansions] (doall