From 1ed2b109c946a1f98b90d4140555c792d7812bef Mon Sep 17 00:00:00 2001 From: Bryce Covert Date: Wed, 4 Apr 2018 07:35:29 -0700 Subject: [PATCH] add user if they don't exist. --- src/clj/auto_ap/db/users.clj | 17 ++++++++++++++--- 1 file changed, 14 insertions(+), 3 deletions(-) diff --git a/src/clj/auto_ap/db/users.clj b/src/clj/auto_ap/db/users.clj index 3a01bacc..4d84899d 100644 --- 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 "{}"}) + )))