From dbd8713dda050a7b7147de6e5eacbf43d7fcc2db Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Thu, 25 Jun 2020 23:54:48 +0200
Subject: Fix number of problems with new serializers.

---
 module/output/xcal.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'module/output/xcal.scm')

diff --git a/module/output/xcal.scm b/module/output/xcal.scm
index 554955c5..fc2a30b0 100644
--- a/module/output/xcal.scm
+++ b/module/output/xcal.scm
@@ -16,7 +16,8 @@
 
   (define writer
    (cond
-    [(and=> (prop vline 'VALUE) string->symbol) => get-writer]
+    [(and=> (prop vline 'VALUE) (compose string->symbol car))
+     => get-writer]
     [(memv key '(COMPLETED DTEND DUE DTSTART RECURRENCE-ID
                         CREATED DTSTAMP LAST-MODIFIED
                         ACKNOWLEDGED EXDATE))
-- 
cgit v1.2.3