summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorMathieu Lirzin <mthl@gnu.org>2016-06-11 17:38:00 +0200
committerMathieu Lirzin <mthl@gnu.org>2016-06-13 18:09:45 +0200
commit39750281f6d2e991be3af121bca6d22701263d44 (patch)
tree639590ff50e95509e7708dfd4ff708bb10fbfec6 /src
parentab54de1f35867d76a745b97436c8602ebceeec31 (diff)
downloadcuirass-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.scm11
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))