From: Maxime Devos <maximedevos@telenet.be>
To: 57515@debbugs.gnu.org
Subject: [bug#57515] [PATCH 8/8] gnu-maintenance: Remove unused procedures.
Date: Thu, 1 Sep 2022 11:01:55 +0200 [thread overview]
Message-ID: <a6a1b17f29411c44cdda8d0cdf24acd472645140.1662022775.git.maximedevos@telenet.be> (raw)
In-Reply-To: <cover.1662022469.git.maximedevos@telenet.be>
* 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 parent reply other threads:[~2022-09-01 9:49 UTC|newest]
Thread overview: 8+ messages / expand[flat|nested] mbox.gz Atom feed top
[not found] <cover.1662022469.git.maximedevos@telenet.be>
2022-09-01 9:01 ` [bug#57515] [PATCH 1/8] guix: Extract logic of the check-mirror-url Maxime Devos
2022-09-01 9:01 ` [bug#57515] [PATCH 2/8] gnu-maintenance: Produce mirror:// URIs in latest-ftp-release Maxime Devos
2022-09-01 9:01 ` [bug#57515] [PATCH 3/8] gnu-maintenance: Produce mirror:// URIs in latest-html-release Maxime Devos
2022-09-01 9:01 ` [bug#57515] [PATCH 4/8] download: Switch savannah mirrors to HTTPS URLs Maxime Devos
2022-09-01 9:01 ` [bug#57515] [PATCH 5/8] gnu-maintenance: Simplify latest-savannah-release Maxime Devos
2022-09-01 9:01 ` [bug#57515] [PATCH 6/8] download: Add a kernel.org mirror Maxime Devos
2022-09-01 9:01 ` [bug#57515] [PATCH 7/8] gnu-maintenance: Simplify latest-kernel.org-release Maxime Devos
2022-09-01 9:01 ` Maxime Devos [this message]
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=a6a1b17f29411c44cdda8d0cdf24acd472645140.1662022775.git.maximedevos@telenet.be \
--to=maximedevos@telenet.be \
--cc=57515@debbugs.gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/guix.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.