diff options
| -rw-r--r-- | module/vcomponent/formats/vdir/save-delete.scm | 6 |
1 files changed, 6 insertions, 0 deletions
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" |