diff options
| author | colin <colin@cicadas.surf> | 2023-03-07 19:15:12 -0800 |
|---|---|---|
| committer | colin <colin@cicadas.surf> | 2023-03-07 19:15:12 -0800 |
| commit | efa771e3cc363dae68b57dfcc5c67c511a1d3331 (patch) | |
| tree | 99dc6c2b8770a6e0ae87fedf2ba99ac21bf83b7d /src/transactions.lisp | |
| parent | e2a60e8d2b8e41bcd2c9a39d8e2210f701b92353 (diff) | |
Add: reporting rumors
Diffstat (limited to 'src/transactions.lisp')
| -rw-r--r-- | src/transactions.lisp | 8 |
1 files changed, 8 insertions, 0 deletions
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))))) |