earmuffs on dynamic var

xtdb · Nov 27, 2019 · 5a2e725 · 5a2e725
1 parent 9c02e6d
commit 5a2e725
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/crux-core/src/crux/tx.clj b/crux-core/src/crux/tx.clj
@@ -97,15 +97,15 @@
             (c/->id-buffer new-v)]]}))
 
 (def evict-time-ranges-env-var "CRUX_EVICT_TIME_RANGES")
-(def ^:dynamic evict-all-on-legacy-time-ranges? (= (System/getenv evict-time-ranges-env-var) "EVICT_ALL"))
+(def ^:dynamic *evict-all-on-legacy-time-ranges?* (= (System/getenv evict-time-ranges-env-var) "EVICT_ALL"))
 
 (defn tx-command-evict [indexer kv object-store snapshot tx-log [op k & legacy-args] transact-time tx-id]
   (let [eid (c/new-id k)
         history-descending (idx/entity-history snapshot eid)]
     {:pre-commit-fn #(cond
                        (empty? legacy-args) true
 
-                       (not evict-all-on-legacy-time-ranges?)
+                       (not *evict-all-on-legacy-time-ranges?*)
                        (throw (IllegalArgumentException. (str "Evict no longer supports time-range parameters. "
                                                               "See https://github.com/juxt/crux/pull/438 for more details, and what to do about this message.")))