From 81fc535b2b8cb2a726c8514f2ae91e913ac157c7 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Wed, 12 Apr 2023 11:18:25 +0200
Subject: UNFINISHED work on data stores and formats.

---
 module/vcomponent/formats/xcal.scm | 3 +++
 1 file changed, 3 insertions(+)

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

diff --git a/module/vcomponent/formats/xcal.scm b/module/vcomponent/formats/xcal.scm
index 2732a5a7..cfc70a92 100644
--- a/module/vcomponent/formats/xcal.scm
+++ b/module/vcomponent/formats/xcal.scm
@@ -14,6 +14,9 @@
       (sxml->xml port)
       ))
 
+(define (serialize/object component)
+  (call-with-output-string (lambda (p) (serialize component p))))
+
 
 (define (deserialize port)
   (-> (xml->sxml port)
-- 
cgit v1.2.3