diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-07-17 01:11:51 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-07-17 01:11:51 +0200 |
| commit | 7921f776ae41d149e2a031a0d932e6fdd4ce0c6e (patch) | |
| tree | 2f5622be6dd1bbdab828c91818a19645a594a3ce /module/output | |
| parent | Fix parse error on duration. (diff) | |
| download | calp-7921f776ae41d149e2a031a0d932e6fdd4ce0c6e.tar.gz calp-7921f776ae41d149e2a031a0d932e6fdd4ce0c6e.tar.xz | |
Add duration output.
Diffstat (limited to 'module/output')
| -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)) |