From d9870ac8da73fb9b2556d781dfb140099c4f2974 Mon Sep 17 00:00:00 2001
From: Alex Karle <alex@alexkarle.com>
Date: Tue, 15 Nov 2022 00:35:40 -0500
Subject: [PATCH] rsvp: Fix bug fetching any but first party

Goes to show I shouldn't use the first group to test with :)
Whoops!
---
 src/db.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/db.scm b/src/db.scm
index aba8ff6..38c30a4 100644
--- 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)
--
libgit2 1.1.1