diff options
| author | Mathieu Lirzin <mthl@gnu.org> | 2016-07-02 01:51:56 +0200 |
|---|---|---|
| committer | Mathieu Lirzin <mthl@gnu.org> | 2016-07-02 01:51:56 +0200 |
| commit | 94f910355ca989832814e9b27fa6d2b194e22ec7 (patch) | |
| tree | 201842303299239f1d149963f9fb870c27195199 /src | |
| parent | b185505db018ce99cf2d526418dbf6a8848cde83 (diff) | |
| download | cuirass-94f910355ca989832814e9b27fa6d2b194e22ec7.tar cuirass-94f910355ca989832814e9b27fa6d2b194e22ec7.tar.gz | |
job: Add load-path field to <job-spec>.
Diffstat (limited to 'src')
| -rw-r--r-- | src/cuirass/job.scm | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/src/cuirass/job.scm b/src/cuirass/job.scm index 2e2c304..b6f92c9 100644 --- a/src/cuirass/job.scm +++ b/src/cuirass/job.scm @@ -32,6 +32,7 @@ job-spec? job-spec-name job-spec-url + job-spec-load-path job-spec-branch job-spec-commit job-spec-tag @@ -58,10 +59,11 @@ metadata))))) (define-record-type <job-spec> - (%make-job-spec name url branch commit file proc arguments) + (%make-job-spec name url load-path branch commit file proc arguments) job-spec? (name job-spec-name) ;string (url job-spec-url) ;string + (load-path job-spec-load-path) ;string (branch job-spec-branch) ;string (commit job-spec-commit) ;string (tag job-spec-tag) ;string @@ -69,6 +71,7 @@ (proc job-spec-proc) ;symbol (arguments job-spec-arguments)) ;alist -(define* (make-job-spec #:key name url commit tag file proc arguments +(define* (make-job-spec #:key name url load-path + commit tag file proc arguments (branch "master")) - (%make-job-spec name url branch tag file proc arguments)) + (%make-job-spec name url load-path branch tag file proc arguments)) |