From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from mp12.migadu.com ([2001:41d0:2:bcc0::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by ms5.migadu.com with LMTPS id UPv6NkGAEGPZzAAAbAwnHQ (envelope-from ) for ; Thu, 01 Sep 2022 11:49:53 +0200 Received: from aspmx1.migadu.com ([2001:41d0:2:bcc0::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by mp12.migadu.com with LMTPS id YGzFNkGAEGO4tAAAauVa8A (envelope-from ) for ; Thu, 01 Sep 2022 11:49:53 +0200 Received: from lists.gnu.org (lists.gnu.org [209.51.188.17]) (using TLSv1.2 with cipher ECDHE-RSA-AES256-GCM-SHA384 (256/256 bits)) (No client certificate requested) by aspmx1.migadu.com (Postfix) with ESMTPS id 83C493DB90 for ; Thu, 1 Sep 2022 11:49:53 +0200 (CEST) Received: from localhost ([::1]:37390 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1oTgpc-0003H6-Ik for larch@yhetil.org; Thu, 01 Sep 2022 05:49:52 -0400 Received: from eggs.gnu.org ([2001:470:142:3::10]:56766) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1oTg6L-0004Em-NO for guix-patches@gnu.org; Thu, 01 Sep 2022 05:03:05 -0400 Received: from debbugs.gnu.org ([209.51.188.43]:51461) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1oTg6L-0005em-DT for guix-patches@gnu.org; Thu, 01 Sep 2022 05:03:05 -0400 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1oTg6K-0008Qf-8M for guix-patches@gnu.org; Thu, 01 Sep 2022 05:03:04 -0400 X-Loop: help-debbugs@gnu.org Subject: [bug#57515] [PATCH 8/8] gnu-maintenance: Remove unused procedures. Resent-From: Maxime Devos Original-Sender: "Debbugs-submit" Resent-CC: guix-patches@gnu.org Resent-Date: Thu, 01 Sep 2022 09:03:04 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 57515 X-GNU-PR-Package: guix-patches X-GNU-PR-Keywords: patch To: 57515@debbugs.gnu.org Received: via spool by 57515-submit@debbugs.gnu.org id=B57515.166202292532268 (code B ref 57515); Thu, 01 Sep 2022 09:03:04 +0000 Received: (at 57515) by debbugs.gnu.org; 1 Sep 2022 09:02:05 +0000 Received: from localhost ([127.0.0.1]:41200 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1oTg5N-0008OJ-Bn for submit@debbugs.gnu.org; Thu, 01 Sep 2022 05:02:05 -0400 Received: from michel.telenet-ops.be ([195.130.137.88]:48570) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1oTg5H-0008MM-1V for 57515@debbugs.gnu.org; Thu, 01 Sep 2022 05:02:02 -0400 Received: from localhost.localdomain ([IPv6:2a02:1811:8c09:9d00:5dba:d409:33f7:a16]) by michel.telenet-ops.be with bizsmtp id EZ1v2800K20ykKC06Z1ypo; Thu, 01 Sep 2022 11:01:58 +0200 From: Maxime Devos Date: Thu, 1 Sep 2022 11:01:55 +0200 Message-Id: X-Mailer: git-send-email 2.37.2 In-Reply-To: References: MIME-Version: 1.0 Content-Transfer-Encoding: 8bit DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=telenet.be; s=r22; t=1662022918; bh=Xh2MF+WpZdM5OexEnj8iytn8oG05m5B11sJLCDYTDq8=; h=From:To:Subject:Date:In-Reply-To:References:Reply-To; b=cPAGP8YD+gmKcTLkzc27oUCfR3MQ4/up98ElSZ1FHNLMSZLpC1DkzlKJlUtD9WWhM yYOA54t9F3TR6E0dPLAF7WF6AP+e4IcQWtyQl2b5E9G6heqZJiNpM1psPgmJ1G5+5z 2oHtAEXhbbW24yI7nnqZMep3y1tfFmY8ifnVtytxh7+JlrAQYKC2948K/v4LUOjtLN D8Rj4jbj9UAv11x8FgHxOAMkffauPQgL4UMzOrK98Vu5/kMyklqJgoQTtvQQdd9rG0 MZzKHCydv5EdYS05cIm9G6kMTPZxSlgTIuIZUXLtp8rr3jKYt1zWtMApH/iWLgypct R1GzmalJELavQ== X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list X-BeenThere: guix-patches@gnu.org List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Reply-To: 57515@debbugs.gnu.org Errors-To: guix-patches-bounces+larch=yhetil.org@gnu.org Sender: "Guix-patches" X-Migadu-Flow: FLOW_IN X-Migadu-To: larch@yhetil.org X-Migadu-Country: US ARC-Message-Signature: i=1; a=rsa-sha256; c=relaxed/relaxed; d=yhetil.org; s=key1; t=1662025793; h=from:from:sender:sender:reply-to:reply-to:subject:subject:date:date: message-id:message-id:to:to:cc:mime-version:mime-version: content-transfer-encoding:content-transfer-encoding:resent-cc: resent-from:resent-sender:resent-message-id:in-reply-to:in-reply-to: references:references:list-id:list-help:list-unsubscribe: list-subscribe:list-post:dkim-signature; bh=Xh2MF+WpZdM5OexEnj8iytn8oG05m5B11sJLCDYTDq8=; b=SsFkHsiorkajhjIr1/+CMFDz7qmXQBGXibDTJRQWiBWNnUoCIuIJ1cZX6wTMYex7iZv+5I uRUqnmAbbQRMgBJ3UJREFdtd0MYtFVJC5I2EwKRssCvrHXHipkv7KFGDAXLR3Ku9PkGTRY 8uAydtVzUOdsVUJmWdXoefwBwjVhn0JdPLEwIVNIvxlswLCbGY4+ZR0aMZpY3vvWlT8SJV nejoOBncIQrFGp73eSdPZofLDmSoTYE+P0MxDlnltA8BX830E5zRuwPgB/EaWnaVR17m5y LWo4xTP3jN94udylsNlp1OxwnVZxEWo93mNuqFHr8S2xkTB2z9Vdp9RXhTPWgQ== ARC-Seal: i=1; s=key1; d=yhetil.org; t=1662025793; a=rsa-sha256; cv=none; b=IpCGi8YwSBB3i9Y8ensZ9j2g90smdVu97wRwpdxBZ2E9A1gPcKk26cZFy2KzlrakR+ZMkK b7ai9oxl7SFbh/Pui0fnF+33M4zx0ZNGAQQN17xNICgDuyh+vzJb0jZ7AfKX9ujd/xpGp2 jL+6viixOQ55pb6wvVvSJ/YDTFwMFAGjffhKTMYGxS7217KcCh93tngyt4/9Xiua5n2z8f GnuDmAXqA9jqyvj0LXEDXn5iDlrMirSKwaSp5gKDV1U77QRS7SIlZMJMSRaDb3LXIIla3J zsHqqGiJn+QJSI/RQMFiyuFv1k8mqgVDAJevTfGruN/WIyYunTwQJlk8SMVRVw== ARC-Authentication-Results: i=1; aspmx1.migadu.com; dkim=fail ("headers rsa verify failed") header.d=telenet.be header.s=r22 header.b=cPAGP8YD; dmarc=fail reason="SPF not aligned (relaxed)" header.from=telenet.be (policy=none); spf=pass (aspmx1.migadu.com: domain of "guix-patches-bounces+larch=yhetil.org@gnu.org" designates 209.51.188.17 as permitted sender) smtp.mailfrom="guix-patches-bounces+larch=yhetil.org@gnu.org" X-Migadu-Spam-Score: 7.22 Authentication-Results: aspmx1.migadu.com; dkim=fail ("headers rsa verify failed") header.d=telenet.be header.s=r22 header.b=cPAGP8YD; dmarc=fail reason="SPF not aligned (relaxed)" header.from=telenet.be (policy=none); spf=pass (aspmx1.migadu.com: domain of "guix-patches-bounces+larch=yhetil.org@gnu.org" designates 209.51.188.17 as permitted sender) smtp.mailfrom="guix-patches-bounces+larch=yhetil.org@gnu.org" X-Migadu-Queue-Id: 83C493DB90 X-Spam-Score: 7.22 X-Migadu-Scanner: scn0.migadu.com X-TUID: nMS9F6NmeAF2 * 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 ;; that serves valid -- 2.37.2