jennex

commit d9870ac8da73fb9b2556d781dfb140099c4f2974 (patch)
parent 141ea737aea2bb48b13509899528be7fdd9d5426
Author: Alex Karle <alex@alexkarle.com>
Date:   Tue, 15 Nov 2022 00:35:40 -0500

rsvp: Fix bug fetching any but first party

Goes to show I shouldn't use the first group to test with :)
Whoops!

Diffstat:
M
src/db.scm
 | 
2
+-

1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/db.scm b/src/db.scm
@@ -55,7 +55,7 @@ FROM guests WHERE id = $name" id)))
 FROM guests WHERE party_id = $pid" pid))
 
 (define (get-party-by-id pid)
-  (let ((res (first-row conn "SELECT id, notes FROM  parties")))
+  (let ((res (first-row conn "SELECT id, notes FROM parties WHERE id = $pid" pid)))
     (make-party (car res) (cadr res) '())))
 
 (define (get-party-by-name name)