diff options
Diffstat (limited to 'bin')
| -rw-r--r-- | bin/cuirass.in | 6 | ||||
| -rw-r--r-- | bin/evaluate.in | 4 |
2 files changed, 8 insertions, 2 deletions
diff --git a/bin/cuirass.in b/bin/cuirass.in index d30f788..a7af5b2 100644 --- a/bin/cuirass.in +++ b/bin/cuirass.in @@ -129,6 +129,12 @@ exec ${GUILE:-@GUILE@} --no-auto-compile -e main -s "$0" "$@" (clear-build-queue) + ;; If Cuirass was stopped during an evaluation, consider + ;; it done. Builds that were not registered during this + ;; evaluation will be registered during the next + ;; evaluation. + (db-set-evaluations-done) + ;; First off, restart builds that had not completed or ;; were not even started on a previous run. (spawn-fiber diff --git a/bin/evaluate.in b/bin/evaluate.in index 3f08b92..19d0f12 100644 --- a/bin/evaluate.in +++ b/bin/evaluate.in @@ -44,7 +44,7 @@ exec ${GUILE:-@GUILE@} --no-auto-compile -e main -s "$0" "$@" (define (input-checkout checkouts input-name) "Find in CHECKOUTS the CHECKOUT corresponding to INPUT-NAME, and return it." (find (lambda (checkout) - (string=? (assq-ref checkout #:name) + (string=? (assq-ref checkout #:input) input-name)) checkouts)) @@ -91,7 +91,7 @@ entries are added because they could be useful during the evaluation." (match in (() (cons name out)) - (((#:name . val) . rest) + (((#:input . val) . rest) (loop rest out (string->symbol val))) (((#:directory . val) . rest) (loop rest (cons `(file-name . ,val) out) name)) |