add user if they don't exist.

2018-04-04 07:35:29 -07:00
parent e3172aa52b
commit 1ed2b109c9
1 changed files with 14 additions and 3 deletions
--- a/src/clj/auto_ap/db/users.clj
+++ b/src/clj/auto_ap/db/users.clj
@@ -7,6 +7,17 @@
  (let [user (first (j/find-by-keys (get-conn)
                                    :users
                                    {:provider_id (:provider_id row)
-                                     :provider (:provider row)}))]
-    (when user
-      (merge user (edn/read-string (:data user "{}"))))))
+                                     :provider (:provider row)}))
+        ]
+    (if user
+      (merge user (edn/read-string (:data user "{}")))
+      (do
+        (j/insert! (get-conn)
+                         :users
+                         {:provider_id (:provider_id row)
+                          :provider (:provider row)
+                          :data "{}"})
+        {:provider_id (:provider_id row)
+         :provider (:provider row)
+         :data "{}"})
+      )))