logging in, and updating users, works.

src/cljc/auto_ap/utils.cljc

@@ -8,3 +8,12 @@
     #(assoc %1 (f %2) (fv %2))
     {}
     xs)))
+
+(defn replace-if [f candidate existing]
+  (reduce
+   (fn [xs x]
+     (if (f x candidate)
+       (conj xs candidate)
+       (conj xs x)))
+   []
+   existing))