gered/mtgcoll
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

add missing deref to db connection usage (oops)

Browse source
This commit is contained in:
Gered 2016-07-31 13:55:31 -04:00
parent ebef05e1f5
commit 153fc9d390
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
src/mtgcoll/models/lists.clj
View file

@ -6,7 +6,7 @@
(defn add-list! (defn add-list!
[name public? requires-qualities?] [name public? requires-qualities?]
(vexec! view-system db (vexec! view-system @db
["insert into lists ["insert into lists
(name, is_public, require_qualities) (name, is_public, require_qualities)
values values
@ -15,14 +15,14 @@
(defn remove-list! (defn remove-list!
[list-id] [list-id]
(vexec! view-system db (vexec! view-system @db
["delete from lists ["delete from lists
where id = ?" where id = ?"
(int list-id)])) (int list-id)]))
(defn update-list-name! (defn update-list-name!
[list-id name] [list-id name]
(vexec! view-system db (vexec! view-system @db
["update lists ["update lists
set name = ? set name = ?
where id = ?" where id = ?"
@ -30,7 +30,7 @@
(defn update-list-note! (defn update-list-note!
[list-id note] [list-id note]
(vexec! view-system db (vexec! view-system @db
["update lists ["update lists
set notes = ? set notes = ?
where id = ?" where id = ?"
@ -38,7 +38,7 @@
(defn update-list-visibility! (defn update-list-visibility!
[list-id public?] [list-id public?]
(vexec! view-system db (vexec! view-system @db
["update lists ["update lists
set is_public = ? set is_public = ?
where id = ?" where id = ?"