From 7921f776ae41d149e2a031a0d932e6fdd4ce0c6e Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Fri, 17 Jul 2020 01:11:51 +0200
Subject: Add duration output.

---
 module/output/types.scm | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

(limited to 'module/output/types.scm')

diff --git a/module/output/types.scm b/module/output/types.scm
index ad6a39a2..8037a2d1 100644
--- a/module/output/types.scm
+++ b/module/output/types.scm
@@ -22,11 +22,8 @@
   (datetime->string (hashq-ref param 'X-HNH-ORIGINAL value)
                     "~Y~m~dT~H~M~S~Z"))
 
-;; TODO
 (define (write-duration _ value)
-  (warning "DURATION writer not yet implemented")
-  (with-output-to-string
-    (lambda () (write value))))
+  ((@ (vcomponent duration) format-duration)) value)
 
 (define (write-float _ value)
   (number->string value))
-- 
cgit v1.2.3