diff options
| author | Ricardo Wurmus <rekado@elephly.net> | 2021-04-26 08:58:02 +0200 |
|---|---|---|
| committer | Ricardo Wurmus <rekado@elephly.net> | 2021-04-26 08:58:02 +0200 |
| commit | 25301c22537b43969167ecb0f149c1ebc8a44d8e (patch) | |
| tree | a5270bc4706bafd314d4e1864eb367a95a8f3462 | |
| parent | cc9f8a00c0a843fd6b50d09fc60cd32222732be8 (diff) | |
high: Update format for time values.
* drmaa/v1/high.scm (<job-template>): Update string format for time
attributes.
| -rw-r--r-- | drmaa/v1/high.scm | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/drmaa/v1/high.scm b/drmaa/v1/high.scm index f3edda9..8e91e12 100644 --- a/drmaa/v1/high.scm +++ b/drmaa/v1/high.scm @@ -25,6 +25,7 @@ #:use-module (srfi srfi-34) #:use-module (srfi srfi-35) #:use-module (ice-9 match) + #:use-module (ice-9 format) #:export (job-template with-drmaa-session @@ -243,7 +244,7 @@ (and (time? value) (eq? time-duration (time-type value)))) #:transform (lambda (value) - (format #false "~a" (time-second value))) + (format #false "00:00:~2,'0d" (time-second value))) #:drmaa-name (low:DRMAA 'DURATION_HLIMIT)) (duration-slimit #:accessor job-template-duration-slimit @@ -252,7 +253,7 @@ (and (time? value) (eq? time-duration (time-type value)))) #:transform (lambda (value) - (format #false "~a" (time-second value))) + (format #false "00:00:~2,'0d" (time-second value))) #:drmaa-name (low:DRMAA 'DURATION_SLIMIT)) (wct-hlimit #:accessor job-template-wct-hlimit @@ -261,7 +262,7 @@ (and (time? value) (eq? time-duration (time-type value)))) #:transform (lambda (value) - (format #false "~a" (time-second value))) + (format #false "00:00:~2,'0d" (time-second value))) #:drmaa-name (low:DRMAA 'WCT_HLIMIT)) (wct-slimit #:accessor job-template-wct-slimit @@ -270,7 +271,7 @@ (and (time? value) (eq? time-duration (time-type value)))) #:transform (lambda (value) - (format #false "~a" (time-second value))) + (format #false "00:00:~2,'0d" (time-second value))) #:drmaa-name (low:DRMAA 'WCT_SLIMIT)) ;; Class options |