From a22e8c4d85c5b0258545771f34c197f8dc1ad2f4 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:23:13 +0200
Subject: Validate that submitted event doesn't have invalid interval.

---
 module/vcomponent/util/instance/methods.scm | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'module/vcomponent/util/instance/methods.scm')

diff --git a/module/vcomponent/util/instance/methods.scm b/module/vcomponent/util/instance/methods.scm
index 28b664c6..f1c6ecf0 100644
--- a/module/vcomponent/util/instance/methods.scm
+++ b/module/vcomponent/util/instance/methods.scm
@@ -174,6 +174,9 @@
 
 
 (define-method (add-and-save-event (this <events>) calendar event)
+
+  ((@ (vcomponent validate) validate-event) event)
+
   (cond
    [(get-event-by-uid this (prop event 'UID))
     => (lambda (old-event)
-- 
cgit v1.2.3