(ns metabase.search.util) | |
An (incomplete) check where queries will definitely return nothing, to help avoid spurious index update queries. | (defn impossible-condition?
[where]
(when (vector? where)
(case (first where)
:= (let [[a b] (rest where)]
(and (string? a) (string? b) (not= a b)))
:!= (let [[a b] (rest where)]
(and (string? a) (string? b) (= a b)))
:and (boolean (some impossible-condition? (rest where)))
:or (every? impossible-condition? (rest where))
false))) |