GNU bug report logs - #69328
[PATCH 00/12] Better source code recovery from SWH

Previous Next

Full log

View this message in rfc822 format

From: Timothy Sample <samplet <at> ngyro.com>
To: Ludovic Courtès <ludo <at> gnu.org>
Cc: Josselin Poiret <dev <at> jpoiret.xyz>, Tobias Geerinckx-Rice <me <at> tobias.gr>, Simon Tournier <zimon.toutoune <at> gmail.com>, Mathieu Othacehe <othacehe <at> gnu.org>, 69328 <at> debbugs.gnu.org, Ricardo Wurmus <rekado <at> elephly.net>, Christopher Baines <guix <at> cbaines.net>
Subject: [bug#69328] [PATCH 12/12] download: Honor ‘GUIX_DOWNLOAD_SEQUENCE’ environment variable.
Date: Sat, 02 Mar 2024 22:53:21 -0600

Ludovic Courtès <ludo <at> gnu.org> writes:

> diff --git a/guix/scripts/perform-download.scm b/guix/scripts/perform-download.scm
> index b96959a09e..250b1c2b48 100644
> --- a/guix/scripts/perform-download.scm
> +++ b/guix/scripts/perform-download.scm
> @@ -114,14 +120,16 @@ (define* (perform-git-download drv output
>        ;; on ambient authority, hence the PATH value below.
>        (setenv "PATH" "/run/current-system/profile/bin:/bin:/usr/bin")
>  
> -      ;; Note: When doing a '--check' build, DRV-OUTPUT and OUTPUT are
> -      ;; different, hence the #:item argument below.
> -      (git-fetch-with-fallback url commit output
> -                               #:hash hash
> -                               #:hash-algorithm algo
> -                               #:recursive? recursive?
> -                               #:item (derivation-output-path drv-output)
> -                               #:git-command %git))))
> +      (parameterize ((%download-sequence
> +                      (and download-sequence
> +                           (call-with-input-string download-sequence
> +                             read))))
> +        (git-fetch-with-fallback url commit output
> +                                 #:hash hash
> +                                 #:hash-algorithm algo
> +                                 #:recursive? recursive?
> +                                 #:item (derivation-output-path drv-output)
> +                                 #:git-command %git)))))

Did you mean to delete the comment here?

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.