diff options
Diffstat (limited to '')
-rw-r--r-- | module/vcomponent/formats/ical.scm | 4 | ||||
-rw-r--r-- | module/vcomponent/formats/ical/output.scm | 5 |
2 files changed, 4 insertions, 5 deletions
diff --git a/module/vcomponent/formats/ical.scm b/module/vcomponent/formats/ical.scm index dddca946..6005c550 100644 --- a/module/vcomponent/formats/ical.scm +++ b/module/vcomponent/formats/ical.scm @@ -4,9 +4,7 @@ :use-module ((vcomponent formats ical parse) :select (parse-calendar)) :export (serialize - deserialize - ) - ) + deserialize)) (define (serialize component port) diff --git a/module/vcomponent/formats/ical/output.scm b/module/vcomponent/formats/ical/output.scm index 5fa004bb..9e227b56 100644 --- a/module/vcomponent/formats/ical/output.scm +++ b/module/vcomponent/formats/ical/output.scm @@ -148,16 +148,17 @@ (for-each ;; Special cases depending on key. ;; Value formatting is handled in @code{value-format}. + (match-lambda [(? (compose internal-field? car)) 'noop] - [(key vlines ...) + [(key (vlines ...)) (for vline in vlines (display (vline->string vline)) (display "\r\n"))] - [(key . vline) + [(key vline) (display (vline->string vline)) (display "\r\n")]) (properties component)) |