diff options
| author | Mark H Weaver <mhw@netris.org> | 2016-03-15 12:40:53 -0400 |
|---|---|---|
| committer | Mark H Weaver <mhw@netris.org> | 2016-03-15 12:40:53 -0400 |
| commit | a3b84f70d8bc992a0fc38cabdf12d48ff5e10e15 (patch) | |
| tree | ba2c4880e3f4ce6509ff219d0fd646493d085e1d /guix/scripts/size.scm | |
| parent | 2c9f0b077018d2cac599bd2f466769cd5ffd3adc (diff) | |
| parent | 20095cc5139666fe67b3ae76b3f46ff85e4956bb (diff) | |
Merge branch 'master' into security-updates
Diffstat (limited to 'guix/scripts/size.scm')
| -rw-r--r-- | guix/scripts/size.scm | 33 |
1 files changed, 19 insertions, 14 deletions
diff --git a/guix/scripts/size.scm b/guix/scripts/size.scm index e999cce1fd..8f0cb7decd 100644 --- a/guix/scripts/size.scm +++ b/guix/scripts/size.scm @@ -1,5 +1,5 @@ ;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2015 Ludovic Courtès <ludo@gnu.org> +;;; Copyright © 2015, 2016 Ludovic Courtès <ludo@gnu.org> ;;; ;;; This file is part of GNU Guix. ;;; @@ -22,6 +22,7 @@ #:use-module (guix store) #:use-module (guix monads) #:use-module (guix utils) + #:use-module (guix grafts) #:use-module (guix packages) #:use-module (guix derivations) #:use-module (gnu packages) @@ -274,19 +275,23 @@ Report the size of PACKAGE and its dependencies.\n")) (leave (_ "missing store item argument\n"))) ((file) (leave-on-EPIPE - (with-store store - (set-build-options store - #:use-substitutes? #t - #:substitute-urls urls) + ;; Turn off grafts because (1) hydra.gnu.org does not serve grafted + ;; packages, and (2) they do not make any difference on the + ;; resulting size. + (parameterize ((%graft? #f)) + (with-store store + (set-build-options store + #:use-substitutes? #t + #:substitute-urls urls) - (run-with-store store - (mlet* %store-monad ((item (ensure-store-item file)) - (profile (store-profile item))) - (if map-file - (begin - (profile->page-map profile map-file) - (return #t)) - (display-profile* profile))) - #:system system)))) + (run-with-store store + (mlet* %store-monad ((item (ensure-store-item file)) + (profile (store-profile item))) + (if map-file + (begin + (profile->page-map profile map-file) + (return #t)) + (display-profile* profile))) + #:system system))))) ((files ...) (leave (_ "too many arguments\n"))))))) |