From b697acb6a32d12987b60c94990a56271b956c5e5 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Fri, 10 May 2019 22:53:17 +0200
Subject: Update CSS.

---
 module/output/html.scm       | 2 +-
 module/vcomponent/output.scm | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

(limited to 'module')

diff --git a/module/output/html.scm b/module/output/html.scm
index 0ccefec0..394d9237 100644
--- a/module/output/html.scm
+++ b/module/output/html.scm
@@ -127,7 +127,7 @@
 (define (fmt-time-span ev)
   (let* ((fmt (if (time<? (time-difference (attr ev 'DTEND) (attr ev 'DTSTART))
                           (make-duration (* 3600 24)))
-                  "~H:~M" "~Y-~m-~d ~H:~M"))
+                  "~H:~M" "~Y-~m-~d ~H:~M"))
          (start (time->string (attr ev 'DTSTART) fmt))
          (end (time->string (attr ev 'DTEND) fmt)))
     (values start end)))
diff --git a/module/vcomponent/output.scm b/module/vcomponent/output.scm
index f55adf3b..ee84d359 100644
--- a/module/vcomponent/output.scm
+++ b/module/vcomponent/output.scm
@@ -33,7 +33,7 @@
                    (make-string depth #\:)
                    key
                    (concatenate (hash-map->list list (cdr at)))
-                   (v at))))
+                   (value at))))
     (if descend?
      (for-each (lambda (e) (print-vcomponent e port #:descend? #t #:depth (1+ depth)))
                (children comp)))))
-- 
cgit v1.2.3