diff options
author | Mathieu Lirzin <mthl@gnu.org> | 2016-07-13 14:16:36 +0200 |
---|---|---|
committer | Mathieu Lirzin <mthl@gnu.org> | 2016-07-13 14:16:36 +0200 |
commit | 0808ab3ecdb5d0ac4b9714c896bab6b33e8976e8 (patch) | |
tree | 59812ba5300dcf2edd0c978519f645f3a3be6326 /src/cuirass/job.scm | |
parent | 53c12be40944da8733ac2f2f84dee3e6453e003b (diff) | |
download | cuirass-0808ab3ecdb5d0ac4b9714c896bab6b33e8976e8.tar cuirass-0808ab3ecdb5d0ac4b9714c896bab6b33e8976e8.tar.gz |
Remove unnecessary (cuirass job) module.
Diffstat (limited to 'src/cuirass/job.scm')
-rw-r--r-- | src/cuirass/job.scm | 77 |
1 files changed, 0 insertions, 77 deletions
diff --git a/src/cuirass/job.scm b/src/cuirass/job.scm deleted file mode 100644 index b6f92c9..0000000 --- a/src/cuirass/job.scm +++ /dev/null @@ -1,77 +0,0 @@ -;;;; job.scm - data structures for jobs -;;; -;;; Copyright © 2016 Mathieu Lirzin <mthl@gnu.org> -;;; -;;; This file is part of Cuirass. -;;; -;;; Cuirass is free software; you can redistribute it and/or modify it -;;; under the terms of the GNU General Public License as published by -;;; the Free Software Foundation; either version 3 of the License, or (at -;;; your option) any later version. -;;; -;;; Cuirass is distributed in the hope that it will be useful, but -;;; WITHOUT ANY WARRANTY; without even the implied warranty of -;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -;;; GNU General Public License for more details. -;;; -;;; You should have received a copy of the GNU General Public License -;;; along with Cuirass. If not, see <http://www.gnu.org/licenses/>. - -(define-module (cuirass job) - #:use-module (cuirass base) - #:use-module (srfi srfi-9) - #:export (<job> - make-job - job? - job-name - job-derivation - job-metadata - - <job-spec> - make-job-spec - job-spec? - job-spec-name - job-spec-url - job-spec-load-path - job-spec-branch - job-spec-commit - job-spec-tag - job-spec-file - job-spec-proc - job-spec-arguments)) - -(define-record-type <job> - (%make-job name derivation metadata) - job? - (name job-name) ;string - (derivation job-derivation) ;string - (metadata job-metadata)) ;alist - -(define-syntax make-job - (syntax-rules () - ;; XXX: Different orders for keyword/argument pairs should be allowed. - ((make-job #:name name #:derivation filename #:metadata metadata) - (begin - (format (current-error-port) "evaluating '~a'... " name) - (force-output (current-error-port)) - (%make-job name - (call-with-time-display (λ () filename)) - metadata))))) - -(define-record-type <job-spec> - (%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 - (file job-spec-file) ;string - (proc job-spec-proc) ;symbol - (arguments job-spec-arguments)) ;alist - -(define* (make-job-spec #:key name url load-path - commit tag file proc arguments - (branch "master")) - (%make-job-spec name url load-path branch tag file proc arguments)) |