From ea8b715899f564a26d05f92c34116a3c19cf7128 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Tue, 5 Apr 2022 16:23:47 +0200 Subject: Slightly better parameter checking on save-event. --- module/vcomponent/formats/vdir/save-delete.scm | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/module/vcomponent/formats/vdir/save-delete.scm b/module/vcomponent/formats/vdir/save-delete.scm index 8fdc615e..ed2473ea 100644 --- a/module/vcomponent/formats/vdir/save-delete.scm +++ b/module/vcomponent/formats/vdir/save-delete.scm @@ -22,6 +22,12 @@ (define-public (save-event event) (define calendar (parent event)) + (unless calendar + (scm-error 'wrong-type-arg "save-event" + "Can only save events belonging to calendars, event uid = ~s" + (list (prop event 'UID)) + #f)) + (unless (eq? 'vdir (prop calendar '-X-HNH-SOURCETYPE)) (scm-error 'wrong-type-arg "save-event" "Can only save events belonging to vdir calendars. Calendar is of type ~s" -- cgit v1.2.3