Dispatch push-meta via to-json

djblue · Nov 30, 2024 · e4f421f · e4f421f
1 parent db24c7e
commit e4f421f
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 1 deletion.
diff --git a/src/portal/runtime.cljc b/src/portal/runtime.cljc
@@ -279,6 +279,7 @@
       (empty? value)
       (cson/tagged-value? value)
       (not (can-meta? value))
+      (has? value ::id)
       (has? value :portal.rpc/id)
       (::no-cache (meta value))))
 

diff --git a/src/portal/runtime/cson.cljc b/src/portal/runtime/cson.cljc
@@ -205,7 +205,7 @@
 
 (defn- push-meta [buffer m]
   (if (map? m)
-    (-to-json m (json/push-string buffer "^"))
+    (to-json (json/push-string buffer "^") m)
     buffer))
 
 (defn- tagged-meta [buffer value]