[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[bug#57515] [PATCH 8/8] gnu-maintenance: Remove unused procedures.
From: |
Maxime Devos |
Subject: |
[bug#57515] [PATCH 8/8] gnu-maintenance: Remove unused procedures. |
Date: |
Thu, 1 Sep 2022 11:01:55 +0200 |
* guix/gnu-maintenance.scm (url-prefix-rewrite, adjusted-upstream-source):
Remove.
---
guix/gnu-maintenance.scm | 16 ----------------
1 file changed, 16 deletions(-)
diff --git a/guix/gnu-maintenance.scm b/guix/gnu-maintenance.scm
index 7cb830b849..2e8b08caa3 100644
--- a/guix/gnu-maintenance.scm
+++ b/guix/gnu-maintenance.scm
@@ -654,13 +654,6 @@ (define (pure-gnu-package? package)
(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. When not, return URI
unmodified."
(if (string-prefix? "mirror://" uri)
@@ -679,15 +672,6 @@ (define (uri-mirror-rewrite uri)
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
--
2.37.2
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [bug#57515] [PATCH 8/8] gnu-maintenance: Remove unused procedures.,
Maxime Devos <=