From ec045eab729113e1b8c92f902bfa4f86af35d197 Mon Sep 17 00:00:00 2001
From: Alex Karle <alex@alexkarle.com>
Date: Mon, 14 Nov 2022 14:40:50 -0500
Subject: [PATCH] rsvp: Remove debugging print statements

---
 src/handler.scm | 3 +--
 src/setup.sql   | 3 ++-
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/handler.scm b/src/handler.scm
index 218c796..6b22028 100644
--- a/src/handler.scm
+++ b/src/handler.scm
@@ -138,7 +138,7 @@
 	  (if (null? fdata) ;; Done parsing all our form data
 	      (begin
                 ;; This will raise if update-guest fails (so we get an error page)
-                (for-each print (map update-guest (map cdr guests)))
+                (map update-guest (map cdr guests))
 		(send-sxml
 		 (template-page
 		  `((h2 "RSVP")
@@ -155,7 +155,6 @@
 		     (setter! (cdr (assoc key key-to-setter))))
 		(if cached-guest
 		    (begin
-                      (print "setting to " value)
 		      (setter! (cdr cached-guest) value)
 		      (loop guests (cdr fdata)))
 		    (let ((guest (get-guest-by-id id)))
diff --git a/src/setup.sql b/src/setup.sql
index abcbc3b..edf7a3f 100644
--- a/src/setup.sql
+++ b/src/setup.sql
@@ -1,6 +1,7 @@
 -- Parties just group a series of guests so they can RSVP for eachother
 CREATE TABLE parties (
-  id INTEGER PRIMARY KEY AUTOINCREMENT
+  id INTEGER PRIMARY KEY AUTOINCREMENT,
+  notes TEXT
 );
   
 -- Guests store individual preferences for meals, etc
--
libgit2 1.1.1