       (str/includes? (str/lower-case (str (:operation trace) " " (:op-type trace)))
                     (:query query)))
     (fn [trace]
-      (< (js/parseInt (:query query)) (:duration trace)))))
+      (< (:query query) (:duration trace)))))
 
 (defn render-traces [showing-traces]
   (doall

            [:button.button.icon-button {:on-click save-query
                                         :style {:margin 0}}
             [components/icon-add]]
            [:br]]
           [:ul.filter-items
             (map (fn [item]

(defn render-trace-panel []
  (let [filter-input     (r/atom "")
        filter-items     (r/atom [])
        filter-type      (r/atom :contains)
        input-error      (r/atom false)]
    (fn []
      (let [showing-traces       (if (= @filter-items [])
                                   @traces
                                   (filter (apply every-pred (map query->fn @filter-items)) @traces))
            save-query           (fn [_]
                                   (if (and (= @filter-type :slower-than)
                                            (js/isNaN (js/parseFloat @filter-input)))
                                     (reset! input-error true)
                                     (do
                                       (reset! input-error false)
                                       (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}))))]
        [:div
         [:div.filter-control {:style {:margin-bottom 20}}
           [:div.filter-control-input
