From efa771e3cc363dae68b57dfcc5c67c511a1d3331 Mon Sep 17 00:00:00 2001
From: colin <colin@cicadas.surf>
Date: Tue, 7 Mar 2023 19:15:12 -0800
Subject: Add: reporting rumors

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

(limited to 'src/transactions.lisp')

diff --git a/src/transactions.lisp b/src/transactions.lisp
index dff037d..61f7f9b 100644
--- a/src/transactions.lisp
+++ b/src/transactions.lisp
@@ -22,3 +22,11 @@
     (make-instance 'adventure :title title :creator player
                    :seers seers
                    :description description)))
+
+(defun report-a-rumor (reporter adventure reported)
+  (db:with-transaction ()
+    (let ((rumor
+            (make-instance 'rumor
+                           :reported reported
+                           :reporter reporter)))
+      (push rumor (rumors adventure)))))
-- 
cgit v1.2.3