diff options
Diffstat (limited to 'module/output/types.scm')
-rw-r--r-- | module/output/types.scm | 5 |
1 files changed, 1 insertions, 4 deletions
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)) |