~severeoverfl0w/rich-crdts

0f94b3fdd1307a4337d05088ad9f30732f100799 — Dominic Monroe 1 year, 8 months ago d2d8139
Revert "Add indirection to readers"

This reverts commit d2d8139107c14b53e02576a9c6d78981c1242229.
M src/io/dominic/rich_crdt/lww_element_set.clj => src/io/dominic/rich_crdt/lww_element_set.clj +1 -5
@@ 41,14 41,10 @@
  [& crdt-entrys]
  (->LWWElementSet (into #{} (map first crdt-entrys)) #{} (into {} crdt-entrys) compare))

(defn- read-lww-element-set*
(defn- read-lww-element-set
  [[add remove ts]]
  (->LWWElementSet add remove ts compare))

(defn- read-lww-element-set
  [x]
  (read-lww-element-set* x))

(defn lww-element-set-by
  [comp & crdt-entrys]
  (->LWWElementSet (into #{} (map first crdt-entrys)) #{} (into {} crdt-entrys) comp))

M src/io/dominic/rich_crdt/lww_register.clj => src/io/dominic/rich_crdt/lww_register.clj +7 -4
@@ 45,13 45,16 @@
                 (into {} (map #(update % 0 first) crdt-entrys))
                 compare))

(defn- read-lww-register*
(defn- read-lww-register
  [[add remove ts]]
  (->LWWRegister add remove ts compare))

(defn- read-lww-register
  [x]
  (read-lww-register* x))
(defn lww-register-by
  [comp & crdt-entrys]
  (->LWWRegister (into {} (map first crdt-entrys))
                 #{}
                 (into {} (map #(update % 0 first) crdt-entrys))
                 comp))

(defn with-comparator
  [lww-element-set comp]