diff options
author | Ludovic Courtès <ludo@gnu.org> | 2017-12-13 15:01:07 +0100 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2017-12-13 23:11:53 +0100 |
commit | 34797d8afc3c5f1211a4baf1161de640fc630a2e (patch) | |
tree | 73da4757dbf1aa437d87a8cb23bb0122c6c61aec /build-aux/hydra/gnu-system.scm | |
parent | d1f01e48457f8cac9e64fb9f890332d5d93f430e (diff) | |
download | guix-34797d8afc3c5f1211a4baf1161de640fc630a2e.tar.gz |
hydra: Invalidate derivation caches after each architecture evaluation.
This reduces max RSS from 1.3G to 1.0G. * guix/derivations.scm (invalidate-derivation-caches!): New procedure. * build-aux/hydra/gnu-system.scm (hydra-jobs): Use it. Add 'format' call.
Diffstat (limited to 'build-aux/hydra/gnu-system.scm')
-rw-r--r-- | build-aux/hydra/gnu-system.scm | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/build-aux/hydra/gnu-system.scm b/build-aux/hydra/gnu-system.scm index d9b9c55d9c..5aaac5220f 100644 --- a/build-aux/hydra/gnu-system.scm +++ b/build-aux/hydra/gnu-system.scm @@ -334,6 +334,13 @@ valid." (parameterize ((%graft? #f)) ;; Return one job for each package, except bootstrap packages. (append-map (lambda (system) + (format (current-error-port) + "evaluating for '~a' (heap size: ~a MiB)...~%" + system + (round + (/ (assoc-ref (gc-stats) 'heap-size) + (expt 2. 20)))) + (invalidate-derivation-caches!) (case subset ((all) ;; Build everything, including replacements. |