From 39750281f6d2e991be3af121bca6d22701263d44 Mon Sep 17 00:00:00 2001
From: Mathieu Lirzin <mthl@gnu.org>
Date: Sat, 11 Jun 2016 17:38:00 +0200
Subject: [PATCH] job: Add 'metadata' field to <job>.

* src/cuirass/job.scm <job>: Add 'metadata' field.
(job-metadata, %make-job): New procedures.
---
 src/cuirass/job.scm | 11 ++++++++---
 1 file 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))