diff options
| author | Mathieu Lirzin <mthl@gnu.org> | 2016-06-11 17:38:00 +0200 |
|---|---|---|
| committer | Mathieu Lirzin <mthl@gnu.org> | 2016-06-13 18:09:45 +0200 |
| commit | 39750281f6d2e991be3af121bca6d22701263d44 (patch) | |
| tree | 639590ff50e95509e7708dfd4ff708bb10fbfec6 /src | |
| parent | ab54de1f35867d76a745b97436c8602ebceeec31 (diff) | |
| download | cuirass-39750281f6d2e991be3af121bca6d22701263d44.tar cuirass-39750281f6d2e991be3af121bca6d22701263d44.tar.gz | |
job: Add 'metadata' field to <job>.
* src/cuirass/job.scm <job>: Add 'metadata' field.
(job-metadata, %make-job): New procedures.
Diffstat (limited to 'src')
| -rw-r--r-- | src/cuirass/job.scm | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/src/cuirass/job.scm b/src/cuirass/job.scm index 4efba9e..4041896 100644 --- a/src/cuirass/job.scm +++ b/src/cuirass/job.scm @@ -23,10 +23,15 @@ make-job job? job-name - job-derivation)) + job-derivation + job-metadata)) (define-record-type <job> - (make-job name derivation) + (%make-job name derivation metadata) job? (name job-name) ;string - (derivation job-derivation)) ;string + (derivation job-derivation) ;string + (metadata job-metadata)) ;alist + +(define* (make-job name drv #:optional (metadata '())) + (%make-job name drv metadata)) |