diff options
| author | Mark H Weaver <mhw@netris.org> | 2014-12-30 12:23:32 -0500 |
|---|---|---|
| committer | Mark H Weaver <mhw@netris.org> | 2014-12-30 12:23:32 -0500 |
| commit | 8cbb67e04509f0854762269e46a65ee4344388f7 (patch) | |
| tree | c44693193709650f19ea3ec264d5ed87170508f0 /build-aux | |
| parent | 7da473b75721e06237b106c6d186f2729117b1ee (diff) | |
| parent | 1c69e4ce3f33242ee8d209b8078fc78a73355446 (diff) | |
| download | guix-patches-8cbb67e04509f0854762269e46a65ee4344388f7.tar guix-patches-8cbb67e04509f0854762269e46a65ee4344388f7.tar.gz | |
Merge branch 'master' into core-updates
Diffstat (limited to 'build-aux')
| -rwxr-xr-x | build-aux/list-packages.scm | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/build-aux/list-packages.scm b/build-aux/list-packages.scm index 6e0455a7a0..c55e84a76b 100755 --- a/build-aux/list-packages.scm +++ b/build-aux/list-packages.scm @@ -27,6 +27,8 @@ exec guile -l "$0" \ #:use-module (guix packages) #:use-module (guix licenses) #:use-module (guix gnu-maintenance) + #:use-module ((guix download) #:select (%mirrors)) + #:use-module ((guix build download) #:select (maybe-expand-mirrors)) #:use-module (gnu packages) #:use-module (sxml simple) #:use-module (sxml fold) @@ -107,9 +109,12 @@ decreasing, is 1." "http://git.savannah.gnu.org/cgit/guix.git/tree/gnu/packages/patches/" (basename patch))) ((? origin? patch) - (match (origin-uri patch) - ((? string? uri) uri) - ((head . tail) head))))) + (uri->string + (first (maybe-expand-mirrors (string->uri + (match (origin-uri patch) + ((? string? uri) uri) + ((head . tail) head))) + %mirrors)))))) (define patch-name (match-lambda |