From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from mp12.migadu.com ([2001:41d0:8:6d80::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by ms5.migadu.com with LMTPS id 4PaKGz52aWInQQEAbAwnHQ (envelope-from ) for ; Wed, 27 Apr 2022 18:58:38 +0200 Received: from aspmx1.migadu.com ([2001:41d0:8:6d80::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by mp12.migadu.com with LMTPS id sPC2Gz52aWKVJwEAauVa8A (envelope-from ) for ; Wed, 27 Apr 2022 18:58:38 +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 2DF7F26B33 for ; Wed, 27 Apr 2022 18:58:38 +0200 (CEST) Received: from localhost ([::1]:56328 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1njkzt-0005Jg-52 for larch@yhetil.org; Wed, 27 Apr 2022 12:58:37 -0400 Received: from eggs.gnu.org ([2001:470:142:3::10]:34716) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1njkzM-0004Ml-KE for guix-patches@gnu.org; Wed, 27 Apr 2022 12:58:04 -0400 Received: from debbugs.gnu.org ([209.51.188.43]:50265) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1njkzK-0005Be-N3 for guix-patches@gnu.org; Wed, 27 Apr 2022 12:58:04 -0400 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1njkzK-0003t5-LK for guix-patches@gnu.org; Wed, 27 Apr 2022 12:58:02 -0400 X-Loop: help-debbugs@gnu.org Subject: [bug#54997] [PATCH v2 02/15] file-systems: Avoid load-time warnings when attempting to load (guix store). Resent-From: Ludovic =?UTF-8?Q?Court=C3=A8s?= Original-Sender: "Debbugs-submit" Resent-CC: guix-patches@gnu.org Resent-Date: Wed, 27 Apr 2022 16:58:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 54997 X-GNU-PR-Package: guix-patches X-GNU-PR-Keywords: patch To: 54997@debbugs.gnu.org Cc: Ludovic =?UTF-8?Q?Court=C3=A8s?= Received: via spool by 54997-submit@debbugs.gnu.org id=B54997.165107864514788 (code B ref 54997); Wed, 27 Apr 2022 16:58:02 +0000 Received: (at 54997) by debbugs.gnu.org; 27 Apr 2022 16:57:25 +0000 Received: from localhost ([127.0.0.1]:44131 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1njkyT-0003q9-N7 for submit@debbugs.gnu.org; Wed, 27 Apr 2022 12:57:24 -0400 Received: from eggs.gnu.org ([209.51.188.92]:41146) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1njkyF-0003nS-Jo for 54997@debbugs.gnu.org; Wed, 27 Apr 2022 12:56:56 -0400 Received: from fencepost.gnu.org ([2001:470:142:3::e]:60004) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1njkyA-00052y-4g; Wed, 27 Apr 2022 12:56:50 -0400 DKIM-Signature: v=1; a=rsa-sha256; q=dns/txt; c=relaxed/relaxed; d=gnu.org; s=fencepost-gnu-org; h=MIME-Version:References:In-Reply-To:Date:Subject:To: From; bh=tCEcYbLVy9R+D55+gDP9TNw5g86IRjUi6cluKsFFGHM=; b=WhlZ7yVaCgLznS6276Q8 KShLBAvfLOSBvOt3pXDKl/gB8maw0qucTxSfwkMFdacs/XQfAt4RLcHgYfN/s9R+Sgs1Wdr3cyzXJ KLOdY2dH2Bf74sjaOVxSoRz8GU5cwYzmmuIXqIUrHkat5xwx6TybXHv0kCQ29ZlcVSoOg15K3FcZI ickpB4UG+7s0eR0RN50mGiFTv9GlH3S109haNkdzvrs3SRZp2Xmb/XSrX3UNsXvLqT4VenGDmR2vc jGqfXfWlR7ATKet7lAna6AQ7PKzkzOYdA3WjkNRyftIaFiIvLMh9FxOmyiPaG8WRyEGPpBZj1oVHn FkJ9v9XRG1sW1g==; Received: from 91-160-117-201.subs.proxad.net ([91.160.117.201]:64439 helo=gnu.org) by fencepost.gnu.org with esmtpsa (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1njky9-0000Hl-H5; Wed, 27 Apr 2022 12:56:49 -0400 From: Ludovic =?UTF-8?Q?Court=C3=A8s?= Date: Wed, 27 Apr 2022 18:56:22 +0200 Message-Id: <20220427165635.8015-3-ludo@gnu.org> X-Mailer: git-send-email 2.35.1 In-Reply-To: <20220427165635.8015-1-ludo@gnu.org> References: <878rrrk1v1.fsf_-_@gnu.org> <20220427165635.8015-1-ludo@gnu.org> MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit 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: , 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=1651078718; h=from:from:sender:sender:reply-to:subject:subject:date:date: message-id:message-id:to:to:cc:cc:mime-version:mime-version: content-type:content-type: 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=tCEcYbLVy9R+D55+gDP9TNw5g86IRjUi6cluKsFFGHM=; b=IIqhI3cXWgoW2ZxQMbG427DZlvQ7mjfh9qwqmb3+wm/OqYGEtq8p2mYj1b+SFhDN1j6UUB 4TRZFRFF3PDz5KtR22molxiVNhWaW2R7iydI37kVRfvCFUellwaX9AwTA2LDw5na3XhoIt aOvVmiu49uRb2yIKBJrLaMIhrJvhMz7+Rvlv3HZHxU9mx0UNuVHKvEBdsRkln8H8nhsBne rwH7nB6c/RRjTebIb1DerXTKkkTLwQdTZGApDN8GDKWndWsi3Gb42f3jB58c5rMRuDgl3Y 4C0CTbvooiFv4+yM4V0FnCcdxujGBGNKdIellT9qyf9Uy3Bqb9hl6DoTPWRnoQ== ARC-Seal: i=1; s=key1; d=yhetil.org; t=1651078718; a=rsa-sha256; cv=none; b=AIskYb0yYCw1bLAQQ4x84MG8jlGAhx7e589K9r2XyJnSplwYe6uawQQJRYJ6qcsJN+sAdh dw8hDWvnarMoXcrWPSNhupk09ITjtRkpD9d5Sf3kja1OMvJwzPtGMw14u6cb1g0n8jI1fs XgFMk7wGn+jPJUY5HCBE8o/6tPO4zyMeZP8KoK/5bfMrK1G6uGLX+oasZ6wHFobnTA8MRn tOuLr9fFrCo7fy9OnHlPZ3+4Bh+ax90l351ZZaAPytznWVXtXReVuodUfKTZ4mlLyZQCOY 7lEdd7FyNvsOeKNdNBCBws0G52FiISPpZUuwl4+fbt0M1s6QfXYl9mVANlVEkA== ARC-Authentication-Results: i=1; aspmx1.migadu.com; dkim=fail ("headers rsa verify failed") header.d=gnu.org header.s=fencepost-gnu-org header.b=WhlZ7yVa; dmarc=pass (policy=none) header.from=gnu.org; 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: -2.90 Authentication-Results: aspmx1.migadu.com; dkim=fail ("headers rsa verify failed") header.d=gnu.org header.s=fencepost-gnu-org header.b=WhlZ7yVa; dmarc=pass (policy=none) header.from=gnu.org; 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: 2DF7F26B33 X-Spam-Score: -2.90 X-Migadu-Scanner: scn1.migadu.com X-TUID: GG0haofV9AMa This makes sure warnings like "incompatible bytecode version" don't go through when looking for (guix store). * gnu/system/file-systems.scm (%store-prefix): Parameterize 'current-warning-port' around 'resolve-module' call. --- gnu/system/file-systems.scm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/gnu/system/file-systems.scm b/gnu/system/file-systems.scm index 437f8da898..f8f4276283 100644 --- a/gnu/system/file-systems.scm +++ b/gnu/system/file-systems.scm @@ -1,5 +1,5 @@ ;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2013-2021 Ludovic Courtès +;;; Copyright © 2013-2022 Ludovic Courtès ;;; Copyright © 2020 Google LLC ;;; Copyright © 2020 Jakub Kądziołka ;;; Copyright © 2020, 2021 Maxim Cournoyer @@ -272,7 +272,8 @@ (define (%store-prefix) ;; Note: If we have (guix store database) in the search path and we do *not* ;; have (guix store) proper, 'resolve-module' returns an empty (guix store) ;; with one sub-module. - (cond ((and=> (resolve-module '(guix store) #:ensure #f) + (cond ((and=> (parameterize ((current-warning-port (%make-void-port "w0"))) + (resolve-module '(guix store) #:ensure #f)) (lambda (store) (module-variable store '%store-prefix))) => -- 2.35.1