From 389e3553deb8fe4c4fd1bb51403723e5b4ea91f8 Mon Sep 17 00:00:00 2001 From: Arne Brasseur Date: Tue, 3 Sep 2024 17:26:21 +0200 Subject: [PATCH] Fix munged-entity --- src/co/gaiwan/compass/db.clj | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/src/co/gaiwan/compass/db.clj b/src/co/gaiwan/compass/db.clj index 1e0aab3..33fa091 100644 --- a/src/co/gaiwan/compass/db.clj +++ b/src/co/gaiwan/compass/db.clj @@ -32,10 +32,10 @@ (defn db [] (d/db (conn))) -(declare munge-from-db ->munged-entity) +(declare munge-1-from-db ->munged-entity) (po-coll/def-map-type munged-entity [e] - (get [this k default-value] (munge-from-db (get e k default-value))) + (get [this k default-value] (munge-1-from-db (get e k default-value))) (assoc [this k v] (->munged-entity (assoc e k v))) (dissoc [this k] (->munged-entity (dissoc e k))) (keys [this] (keys e)) @@ -99,4 +99,6 @@ (transact [{:db/id 17592186045437, :session/capacity 1}]) + + (wagontrain/applied? (conn) :add-locations) )