diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-10-17 19:02:23 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-10-24 22:22:31 +0200 |
| commit | a7536c3af8318014a60d8c07562200d7488e9c6e (patch) | |
| tree | c935ecc7065b3c36cbf646db663dce9e980b1f49 /module/vcomponent/formats/ical/output.scm | |
| parent | Change graphviz linking for easier patching. (diff) | |
| download | calp-master.tar.gz calp-master.tar.xz | |
Endpoint returns all events in interval. Used to sync to other
calendars.
Diffstat (limited to 'module/vcomponent/formats/ical/output.scm')
| -rw-r--r-- | module/vcomponent/formats/ical/output.scm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/module/vcomponent/formats/ical/output.scm b/module/vcomponent/formats/ical/output.scm index e4fad90a..4d37dff6 100644 --- a/module/vcomponent/formats/ical/output.scm +++ b/module/vcomponent/formats/ical/output.scm @@ -168,7 +168,9 @@ ;; If we have alternatives, splice them in here. (cond [(prop component '-X-HNH-ALTERNATIVES) - => (lambda (alts) (hash-map->list (lambda (_ comp) (component->ical-string comp)) + => (lambda (alts) (hash-map->list (lambda (_ comp) + (unless (eq? component comp) + (component->ical-string comp))) alts))])) |