deterministic sort

threatgrid · Jul 8, 2024 · e89ff76 · e89ff76
1 parent 30b5868
commit e89ff76
Showing 1 changed file with 6 additions and 6 deletions.
diff --git a/src/flanders/core.cljc b/src/flanders/core.cljc
@@ -179,13 +179,13 @@
 (defn enum [values & {:keys [open?]
                       :or {open? false}
                       :as opts}]
-  (let [v (first values)
-        default (-> values sort first)]
+  (let [values (into (sorted-set) values)
+        v (first values)]
     (cond
-      (integer? v) (ft/map->IntegerType (merge {:default default} opts {:values values :open? open?}))
-      (number? v)  (ft/map->NumberType  (merge {:default default} opts {:values values :open? open?}))
-      (keyword? v) (ft/map->KeywordType (merge {:default default} opts {:values values :open? open?}))
-      (string? v)  (ft/map->StringType  (merge {:default default} opts {:values values :open? open?})))))
+      (integer? v) (ft/map->IntegerType (merge {:default v} opts {:values values :open? open?}))
+      (number? v)  (ft/map->NumberType  (merge {:default v} opts {:values values :open? open?}))
+      (keyword? v) (ft/map->KeywordType (merge {:default v} opts {:values values :open? open?}))
+      (string? v)  (ft/map->StringType  (merge {:default v} opts {:values values :open? open?})))))
 
 (defn eq [value & {:keys [description reference comment usage name]}]
   (enum #{value}