implementing permissions to companies

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 "{}"))))))