scripts: size: Fix guix size with --system argument.

guix/scripts/size.scm (guix-size): Parameterize %current-system.

Change-Id: Ia0c1ebff4397aa211f73360925f7c688d59b515a
Signed-off-by: Mathieu Othacehe <othacehe@gnu.org>
This commit is contained in:
Zheng Junjie 2024-01-10 15:24:00 +08:00 committed by Mathieu Othacehe
parent acd688a062
commit c245a54aab
No known key found for this signature in database
GPG key ID: 8354763531769CA6

View file

@ -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