diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-04-05 16:23:47 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-04-05 16:56:14 +0200 |
| commit | ea8b715899f564a26d05f92c34116a3c19cf7128 (patch) | |
| tree | 8bc7db0fd7bff272f9f420214385ae1acec651f3 | |
| parent | Readd --skip and --only flags to run-tests. (diff) | |
| download | calp-ea8b715899f564a26d05f92c34116a3c19cf7128.tar.gz calp-ea8b715899f564a26d05f92c34116a3c19cf7128.tar.xz | |
Slightly better parameter checking on save-event.
| -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" |