From ee3ea0be2c897506f83342176a3340fb94816134 Mon Sep 17 00:00:00 2001
From: Bryce Covert <git@brycecovertoperations.com>
Date: Wed, 20 Dec 2017 09:00:52 -0800
Subject: [PATCH] implementing permissions to companies

---
 src/clj/auto_ap/db/users.clj | 12 ++++++++++++
 1 file changed, 12 insertions(+)
 create mode 100644 src/clj/auto_ap/db/users.clj

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