From 766f862e1c345b03779f4efe397467af45eb81b2 Mon Sep 17 00:00:00 2001
From: Brian Platz <bplatz@gmail.com>
Date: Thu, 19 Sep 2024 14:11:51 -0400
Subject: [PATCH] Remove special assert syntax

---
 src/clj/fluree/db/flake/flake_db.cljc | 53 +--------------------------
 1 file changed, 2 insertions(+), 51 deletions(-)

diff --git a/src/clj/fluree/db/flake/flake_db.cljc b/src/clj/fluree/db/flake/flake_db.cljc
index 4962f6489..e0ad31ee3 100644
--- a/src/clj/fluree/db/flake/flake_db.cljc
+++ b/src/clj/fluree/db/flake/flake_db.cljc
@@ -123,63 +123,14 @@
            :namespace-codes new-ns-codes
            :max-namespace-code max-namespace-code*)))
 
-(defn enrich-values
-  [id->node values]
-  (mapv (fn [{:keys [id type] :as v-map}]
-          (if id
-            (merge (get id->node id)
-                   (cond-> v-map
-                     (nil? type) (dissoc :type)))
-            v-map))
-        values))
-
-(defn enrich-node
-  [id->node node]
-  (reduce-kv
-   (fn [updated-node k v]
-     (assoc updated-node k (cond (= :id k) v
-                                 (:list (first v)) [{:list (enrich-values id->node (:list (first v)))}]
-                                 :else (enrich-values id->node v))))
-   {}
-   node))
-
-(defn enrich-assertion-values
-  "`asserts` is a json-ld flattened (ish) sequence of nodes. In order to properly generate
-  sids (or pids) for these nodes, we need the full node additional context for ref objects. This
-  function traverses the asserts and builds a map of node-id->node, then traverses the
-  asserts again and merges each ref object into the ref's node.
-
-  example input:
-  [{:id \"foo:bar\"
-    \"ex:key1\" {:id \"foo:ref-id\"}}
-  {:id \"foo:ref-id\"
-   :type \"some:type\"}]
-
-  example output:
-  [{:id \"foo:bar\"
-    \"ex:key1\" {:id \"foo:ref-id\"
-                 :type \"some:type\"}}
-  {:id \"foo:ref-id\"
-   :type \"some:type\"}]
-  "
-  [asserts]
-  (let [id->node (reduce (fn [id->node {:keys [id] :as node}] (assoc id->node id node))
-                         {}
-                         asserts)]
-    (mapv (partial enrich-node id->node)
-          asserts)))
 
 (defn db-assert
   [db-data]
-  (let [commit-assert (get db-data const/iri-assert)]
-    ;; TODO - any basic validation required
-    (enrich-assertion-values commit-assert)))
+  (get db-data const/iri-assert))
 
 (defn db-retract
   [db-data]
-  (let [commit-retract (get db-data const/iri-retract)]
-    ;; TODO - any basic validation required
-    commit-retract))
+  (get db-data const/iri-retract))
 
 (defn commit-error
   [message commit-data]