diff --git a/src/clj/auto_ap/db/users.clj b/src/clj/auto_ap/db/users.clj new file mode 100644 index 00000000..cba3108a --- /dev/null +++ b/src/clj/auto_ap/db/users.clj @@ -0,0 +1,12 @@ +(ns auto-ap.db.users + (:require [clojure.java.jdbc :as j] + [clojure.edn :as edn] + [auto-ap.db.utils :refer [clj->db db->clj conn]])) + +(defn find-or-insert! [row] + (let [user (first (j/find-by-keys conn + :users + {:provider_id (:provider_id row) + :provider (:provider row)}))] + (when user + (merge user (edn/read-string (:data user "{}"))))))