From 87bbd213925a890e3c068b5e1975ba3f68d5cb6c Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Fri, 22 May 2020 23:28:28 +0200
Subject: Simplify rrule writer.

---
 module/vcomponent/recurrence/internal.scm | 10 +---------
 1 file changed, 1 insertion(+), 9 deletions(-)

(limited to 'module/vcomponent/recurrence')

diff --git a/module/vcomponent/recurrence/internal.scm b/module/vcomponent/recurrence/internal.scm
index 33818440..b15ce90e 100644
--- a/module/vcomponent/recurrence/internal.scm
+++ b/module/vcomponent/recurrence/internal.scm
@@ -66,15 +66,7 @@
        (display "#<<recur-rule>" port)
        (for field in (record-type-fields <recur-rule>)
             (awhen (get field)
-                   (display " " port)
-                   (display field port)
-                   (display "=" port)
-                   (display
-                    (case field
-                      ;; TODO check over date/time/datetime here
-                      ;; ((until) ((@ (datetime util) time->string) it))
-                      (else it))
-                    port)))
+                   (format port " ~a=~a" field it)))
        (display ">" port)))))
 
 
-- 
cgit v1.2.3