diff mbox series

[bug#68363] size: fix `guix size` with system arg.

Message ID b36ede93bbd046dad59bcd9b9b959d15852d101b.1704871440.git.zhengjunjie@iscas.ac.cn
State New
Headers show
Series [bug#68363] size: fix `guix size` with system arg. | expand

Commit Message

Zheng Junjie Jan. 10, 2024, 7:24 a.m. UTC 
guix/scripts/size.scm(guix-size): parameterize %current-system.

Change-Id: Ia0c1ebff4397aa211f73360925f7c688d59b515a
---
 guix/scripts/size.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)


base-commit: 9018c6af4907c4532a95017df9f45d9439c30064
prerequisite-patch-id: 04bf8c9efad61111b0e3334c0a5a12d2b468c385

Comments

Mathieu Othacehe Jan. 12, 2024, 4:26 p.m. UTC | #1 
> guix/scripts/size.scm(guix-size): parameterize %current-system.

Seems to work fine!

Applied, thanks,

Mathieu
diff mbox series

Patch

diff --git a/guix/scripts/size.scm b/guix/scripts/size.scm
index d26ed98388..8a8676a16f 100644
--- a/guix/scripts/size.scm
+++ b/guix/scripts/size.scm
@@ -317,7 +317,8 @@  (define-command (guix-size . args)
           ;; Turn off grafts because (1) substitute servers do not serve grafted
           ;; packages, and (2) they do not make any difference on the
           ;; resulting size.
-          (parameterize ((%graft? #f))
+          (parameterize ((%graft? #f)
+                         (%current-system system))
             (with-store store
               (set-build-options store
                                  #:use-substitutes? #t