From 56a584ab1b13ff9510dd5145a778000169901a76 Mon Sep 17 00:00:00 2001
From: Grant Shoshin Shangreaux <shoshin@cicadas.surf>
Date: Sat, 1 Apr 2023 09:59:16 -0500
Subject: Add: aventure seers form

---
 src/transactions.lisp | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'src/transactions.lisp')

diff --git a/src/transactions.lisp b/src/transactions.lisp
index 61f7f9b..3372520 100644
--- a/src/transactions.lisp
+++ b/src/transactions.lisp
@@ -30,3 +30,7 @@
                            :reported reported
                            :reporter reporter)))
       (push rumor (rumors adventure)))))
+
+(defun add-adventure-seer (player adventure)
+  (db:with-transaction ()
+    (push player (seers adventure))))
-- 
cgit v1.2.3