From c64957ba2c156123c4c97bad3728a61d4aa9ef9a Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Mon, 29 Jun 2020 01:06:47 +0200
Subject: Fix type for components created from xcal.

---
 module/vcomponent/parse/xcal.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'module/vcomponent/parse/xcal.scm')

diff --git a/module/vcomponent/parse/xcal.scm b/module/vcomponent/parse/xcal.scm
index 2e4b80aa..e67a8239 100644
--- a/module/vcomponent/parse/xcal.scm
+++ b/module/vcomponent/parse/xcal.scm
@@ -106,7 +106,7 @@
     [else data]))
 
 (define-public (sxcal->vcomponent sxcal)
-  (define type (car sxcal))
+  (define type (symbol-upcase (car sxcal)))
   (define component (make-vcomponent type))
 
   (awhen (assoc-ref sxcal 'properties)
-- 
cgit v1.2.3