democracyworks / datomic-toolbox Goto Github PK

(toolbox/initialize {:uri "datomic:mem://cmsdev" :partition :db.part/db})
 NullPointerException   datomic-toolbox.schema-resource/files (schema_resource.clj:40)

(let [entity   (d/entity db eid)
        relation (d/entity db rel)
        ->set (fn [maybe-set]
                (cond
                  (instance? java.util.Collection maybe-set) (set maybe-set)
                  (nil?  maybe-set) #{}
                  :else             #{maybe-set}))
        old-values (->set old-value)
        new-values (->set new-value)
        existing-values (map :db/id (->set (get entity rel)))
        de-id (fn [e]
                (if (instance? datomic.Entity e)
                  (into {} e)
                  e))
        actual (set (map de-id existing-values))]
    (when-not (= old-values actual)
      (throw (java.util.ConcurrentModificationException.
               (str "old-values do not match existing values: "
                 "Info: "
                 "expected: " (pr-str old-values) "; "
                 "actual: " (pr-str actual) "; "
                 "coll? " (instance? java.util.Collection old-value) "; "
                 "nil? " (nil? old-value) "; "
                 "type: " (type old-value)))))