summaryrefslogtreecommitdiffstats
path: root/src/server/db.scm
diff options
context:
space:
mode:
Diffstat (limited to 'src/server/db.scm')
-rw-r--r--src/server/db.scm5
1 files changed, 5 insertions, 0 deletions
diff --git a/src/server/db.scm b/src/server/db.scm
index 17138e6..417207d 100644
--- a/src/server/db.scm
+++ b/src/server/db.scm
@@ -127,6 +127,11 @@
(exec (sql db "insert into user_games(user_id, game_id) values (?, ?);")
user-id game-id)))
+(define (db-remove-user-game user-id game-id)
+ (with-db (db)
+ (exec (sql db "delete from user_games where user_id=? and game_id=?;")
+ user-id game-id)))
+
(define (db-fetch-user-games user-id)
(with-db (db)
(query fetch-column