implementing permissions to companies

2017-12-20 09:00:52 -08:00
parent ef252de79d
commit ee3ea0be2c
1 changed files with 12 additions and 0 deletions
--- a/src/clj/auto_ap/db/users.clj
+++ 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 "{}"))))))