diff options
-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)) |