aboutsummaryrefslogtreecommitdiff
path: root/module/vcomponent/formats/xcal.scm
diff options
context:
space:
mode:
Diffstat (limited to 'module/vcomponent/formats/xcal.scm')
-rw-r--r--module/vcomponent/formats/xcal.scm7
1 files changed, 5 insertions, 2 deletions
diff --git a/module/vcomponent/formats/xcal.scm b/module/vcomponent/formats/xcal.scm
index 8fadde75..a0c8620d 100644
--- a/module/vcomponent/formats/xcal.scm
+++ b/module/vcomponent/formats/xcal.scm
@@ -23,6 +23,9 @@
(define* (deserialize port)
(-> port
xml->namespaced-sxml
- root-element ; Strip potential *TOP*
- cadr ; Remove containing icalendar
+ xml-document-root
+
+ ;; Remove containing icalendar
+ xml-element-children car
+
sxcal->vcomponent))