From c7af2c3459135577a5e1565ec780854959035f5f Mon Sep 17 00:00:00 2001 From: Jan Nieuwenhuizen Date: Thu, 15 Sep 2016 23:15:54 +0200 Subject: [PATCH 2/4] cuirass: support tracking of a guix package's git. * src/cuirass/base.scm (process-specs): Skip compilation if #:no-compile?. --- src/cuirass/base.scm | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/src/cuirass/base.scm b/src/cuirass/base.scm index 8ad6af4..e040f71 100644 --- a/src/cuirass/base.scm +++ b/src/cuirass/base.scm @@ -147,10 +147,13 @@ if required." "Evaluate and build JOBSPECS and store results in DB." (for-each (λ (spec) (let ((commit (fetch-repository spec)) - (stamp (db-get-stamp db spec))) + (stamp (db-get-stamp db spec)) + (arguments (assq-ref spec #:arguments))) (unless (string=? commit stamp) - (compile (string-append (%package-cachedir) "/" - (assq-ref spec #:name))) + (when (and (not (assq-ref spec #:no-compile?)) + (not (assq-ref arguments 'no-compile?))) + (compile (string-append (%package-cachedir) "/" + (assq-ref spec #:name)))) (with-store store (let* ((spec* (acons #:current-commit commit spec)) (jobs (evaluate store db spec*))) -- 2.10.0