fix diff-by

hyperfiddle · Jan 26, 2024 · 56fedd4 · 56fedd4
1 parent 5b4cfe4
commit 56fedd4
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/hyperfiddle/electric_de.cljc b/src/hyperfiddle/electric_de.cljc
@@ -19,7 +19,7 @@
     (let [~@(interleave bs (eduction (map #(list ::lang/lookup %)) (range)))]
       ~@body)))
 (defmacro cursor [[sym v] & body] `(call (r/bind-args (fn [~sym] ~@body) (join (r/singletons (pure ~v))))))
-(defmacro diff-by [f xs] `(join (i/diff-by ~f (join (r/singletons (pure ~xs))))))
+(defmacro diff-by [f xs] `(join (i/diff-by ~f (join (i/items (pure ~xs))))))
 ;; (defmacro drain [expr] `(join (i/drain (pure ~expr))))
 (defmacro client [& body] `(::lang/site :client ~@body))
 (defmacro server [& body] `(::lang/site :server ~@body))