From 0539154c382cfdfe78d9d39d5fe0bbae2047b67d Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Tue, 30 Jun 2020 01:16:35 +0200
Subject: Add basic event creation from HTML.

---
 module/entry-points/server.scm | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'module/entry-points')

diff --git a/module/entry-points/server.scm b/module/entry-points/server.scm
index 3356a142..f6d273ba 100644
--- a/module/entry-points/server.scm
+++ b/module/entry-points/server.scm
@@ -146,6 +146,9 @@
                    (return (build-response code: 400)
                            (format #f "~?~%" fmt args)))))
 
+             (format (current-error-port)
+                     "Event inserted ~a~%" (attr event 'UID))
+
              (return '((content-type text/plain))
                      "Event inserted\r\n"))))
 
-- 
cgit v1.2.3