nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

list-packages: Expand 'mirror://' URIs for patches. 

* build-aux/list-packages.scm (package->sxml)[patches](patch-url): Use
  'maybe-expand-mirrors' to get the real URL.
This commit is contained in:
Ludovic Courtès 2014-12-29 20:52:08 +01:00
parent dd8ea244f4
commit 1c69e4ce3f
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
build-aux/list-packages.scm
View File

@ -27,6 +27,8 @@ exec guile -l "$0" \
#:use-module (guix packages) #:use-module (guix packages)
#:use-module (guix licenses) #:use-module (guix licenses)
#:use-module (guix gnu-maintenance) #: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 (gnu packages)
#:use-module (sxml simple) #:use-module (sxml simple)
#:use-module (sxml fold) #:use-module (sxml fold)
@ -107,9 +109,12 @@ decreasing, is 1."
"http://git.savannah.gnu.org/cgit/guix.git/tree/gnu/packages/patches/" "http://git.savannah.gnu.org/cgit/guix.git/tree/gnu/packages/patches/"
(basename patch))) (basename patch)))
((? origin? patch) ((? origin? patch)
(uri->string
(first (maybe-expand-mirrors (string->uri
(match (origin-uri patch) (match (origin-uri patch)
((? string? uri) uri) ((? string? uri) uri)
((head . tail) head))))) ((head . tail) head)))
%mirrors))))))
(define patch-name (define patch-name
(match-lambda (match-lambda