me
/
guix
Archived
1
0
Fork 0
Code

gnu-maintenance: Remove unused procedures. 

* guix/gnu-maintenance.scm (url-prefix-rewrite, adjusted-upstream-source):
Remove.

Signed-off-by: Ludovic Courtès <ludo@gnu.org>
Maxime Devos 2022-09-01 11:01:55 +02:00 committed by Ludovic Courtès
parent d9b8169a9f
commit 55d4200002
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 0 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
guix/gnu-maintenance.scm
View File

@ -660,13 +660,6 @@ GNOME packages; EMMS is included though, because its releases are on gnu.org."
(define gnu-hosted?
(url-prefix-predicate "mirror://gnu/"))
(define (url-prefix-rewrite old new)
"Return a one-argument procedure that rewrites URL prefix OLD to NEW."
(lambda (url)
(if (and url (string-prefix? old url))
(string-append new (string-drop url (string-length old)))
url)))
(define (uri-mirror-rewrite uri)
"Rewrite URI to a mirror:// URI if possible, or return URI unmodified."
(if (string-prefix? "mirror://" uri)
@ -684,15 +677,6 @@ GNOME packages; EMMS is included though, because its releases are on gnu.org."
mirror-id
(string-drop uri (string-length prefix))))))))))
(define (adjusted-upstream-source source rewrite-url)
"Rewrite URLs in SOURCE by apply REWRITE-URL to each of them."
(upstream-source
(inherit source)
(urls (map rewrite-url (upstream-source-urls source)))
(signature-urls (and=> (upstream-source-signature-urls source)
(lambda (urls)
(map rewrite-url urls))))))
(define %savannah-base
;; One of the Savannah mirrors listed at
;; <http://download0.savannah.gnu.org/mirmon/savannah/> that serves valid