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