mirrors
/
cuirass
mirror of https://notabug.org/mthl/cuirass.git
1
0
Fork 0
Code Issues Releases Wiki Activity

job: Add 'metadata' field to <job>. 

* src/cuirass/job.scm <job>: Add 'metadata' field.
(job-metadata, %make-job): New procedures.
pull/3/head
Mathieu Lirzin 2016-06-11 17:38:00 +02:00
parent ab54de1f35
commit 39750281f6
No known key found for this signature in database
GPG Key ID: 0ADEE10094604D37
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
src/cuirass/job.scm
View File

@ -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))