File tree Expand file tree Collapse file tree
Expand file tree Collapse file tree Original file line number Diff line number Diff line change 12841284 (if-not (schema v-ident)
12851285 (let [err-msg (str " Schema with attribute " v-ident " does not exist" )
12861286 err-map {:error :retract/schema :attribute v-ident}]
1287- (throw #?(:clj (ex-info err-msg err-map)
1288- :cljs (error err-msg err-map))))
1287+ (throw (ex-info err-msg err-map)))
12891288 (-> (assoc-in db [:schema e] (dissoc (schema v-ident) a-ident))
12901289 (update-in [:schema ] #(dissoc % v-ident))
12911290 (update-in [:ident-ref-map ] #(dissoc % v-ident))
12971296 (let [err-msg (str " Schema with entity id " e " does not exist" )
12981297 err-map {:error :retract/schema :entity-id e :attribute a :value e}]
12991298 (throw #?(:clj (ex-info err-msg err-map)
1300- :cljs (error err-msg err-map))))))))
1299+ :cljs (ex-info err-msg err-map))))))))
13011300
13021301(defn get-schema [db]
13031302 (or (:schema db) {}))
You can’t perform that action at this time.
0 commit comments