logging in, and updating users, works.

src/clj/auto_ap/db/users.clj

@@ -25,6 +25,10 @@
 (defn get-all []
   (map data->fields (query base-query)))
 
+(defn get-by-id [id]
+  (first (map data->fields (query (-> base-query
+                                      (helpers/merge-where [:= :id id]))))))
+
 (defn find-or-insert! [row]
   (let [user (-> base-query
                  (helpers/merge-where [:and [:= :provider-id (:provider-id row)]
@@ -42,3 +46,10 @@
           first
           db->clj
           data->fields))))
+
+
+(defn update! [row]
+  (j/update! (get-conn)
+             :users
+             (-> row (fields->data) (clj->db))
+             ["id = ?" (:id row)]))