Minor improvements on projects_roles table.

This commit is contained in:
Andrey Antukh 2019-12-01 17:47:42 +01:00
parent b66bc02098
commit b4336f7ceb
5 changed files with 25 additions and 37 deletions

View file

@ -48,21 +48,13 @@
values ($1, $2, $3)
returning *;")
(def create-project-role-sql
"insert into projects_roles (project_id, user_id, role)
values ($1, $2, 'owner');")
(defn create-project
[conn [pjid uid]]
(println "create project" pjid "(for user=" uid ")")
(p/do!
(db/query-one conn [create-project-sql
(mk-uuid "project" pjid uid)
(mk-uuid "user" uid)
(str "sample project " pjid)])
(db/query-one conn [create-project-role-sql
(mk-uuid "project" pjid uid)
(mk-uuid "user" uid)])))
(db/query-one conn [create-project-sql
(mk-uuid "project" pjid uid)
(mk-uuid "user" uid)
(str "sample project " pjid)]))
;; --- Pages creation

View file

@ -36,12 +36,10 @@
where p.user_id = $1
order by p.created_at asc")
(s/def ::projects-query
(s/def ::projects
(s/keys :req-un [::user]))
(sq/defquery :projects
{:doc "Query all projects"
:spec ::projects-query}
(sq/defquery ::projects
[{:keys [user] :as params}]
(-> (db/query db/pool [projects-sql user])
(p/then (fn [rows]

View file

@ -20,7 +20,7 @@
(cond-> row
val (assoc :val (blob/decode val)))))
(s/def ::user-storage-item
(s/def ::user-storage-entry
(s/keys :req-un [::key ::user]))
(sq/defquery ::user-storage-entry