From dd0dcb52f7914b10e282459d221d6ef0bd46ecd3 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Sun, 16 Oct 2022 22:10:54 +0200
Subject: Better error handling when submitting events.

---
 module/calp/server/routes.scm | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/module/calp/server/routes.scm b/module/calp/server/routes.scm
index 1f622c2a..e8676e6f 100644
--- a/module/calp/server/routes.scm
+++ b/module/calp/server/routes.scm
@@ -271,6 +271,10 @@
                (catch*
                 (lambda () (add-and-save-event global-event-object
                                           calendar event))
+                ((pre-unwind #t)
+                 (lambda _
+                   (let ((stack (make-stack #t)))
+                     (display-backtrace stack (current-error-port)))))
                 (warning
                  (lambda (err fmt args)
                    (define str (format #f "~?" fmt args))
-- 
cgit v1.2.3