From debbugs-submit-bounces@debbugs.gnu.org Mon Jan 23 08:01:58 2023 Received: (at 58880) by debbugs.gnu.org; 23 Jan 2023 13:01:58 +0000 Received: from localhost ([127.0.0.1]:53591 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1pJwSS-00067t-Sw for submit@debbugs.gnu.org; Mon, 23 Jan 2023 08:01:58 -0500 Received: from out3-smtp.messagingengine.com ([66.111.4.27]:38029) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1pJwSQ-00067R-AB for 58880@debbugs.gnu.org; Mon, 23 Jan 2023 08:01:54 -0500 Received: from compute4.internal (compute4.nyi.internal [10.202.2.44]) by mailout.nyi.internal (Postfix) with ESMTP id 43D7F5C0135; Mon, 23 Jan 2023 08:01:49 -0500 (EST) Received: from mailfrontend2 ([10.202.2.163]) by compute4.internal (MEProxy); Mon, 23 Jan 2023 08:01:49 -0500 DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=remworks.net; h= cc:cc:content-transfer-encoding:date:date:from:from:in-reply-to :in-reply-to:message-id:mime-version:references:reply-to:sender :subject:subject:to:to; s=fm2; t=1674478909; x=1674565309; bh=JW 8ALIjUc2SMEbDsSZaHPkS4W0taQ+74AFrW7Y7BvPM=; b=jqqb40ZesoGhuvJcjP qpz2tqOx0K2+tNoPKihvLr7EdfSLPPhP7IDCpqhxIRu5xGOJk6RSb2AkoJB9T2xu UNnhF9rqOwbsYhRZ1/H5GPWnC1kxyHHB7EdFlzAdqPc0tE4/EnfHx7FgaC2B/PnR hSTlp6fW2slEJmX4S5T1tIOqeF4GW3q3jYehGObClHrbUzCVEHmIOZwN24QhnNf/ 5rXjqh6mRWbfAsepNcXYgRXs8DgQqjRbePTA1e0h1fbmphNbdEq/XIXwu5PMWcF/ kPQK5prGsiMPCFDNWxdPOK55tVRvysknkMf8SG+V6Np1tfVVRLDbyiQVn+++tk0o GWzA== DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d= messagingengine.com; h=cc:cc:content-transfer-encoding:date:date :feedback-id:feedback-id:from:from:in-reply-to:in-reply-to :message-id:mime-version:references:reply-to:sender:subject :subject:to:to:x-me-proxy:x-me-proxy:x-me-sender:x-me-sender :x-sasl-enc; s=fm3; t=1674478909; x=1674565309; bh=JW8ALIjUc2SME bDsSZaHPkS4W0taQ+74AFrW7Y7BvPM=; b=hVDO8bIIbMxPjpXPS/NYBIZ/kvVyn 3Tm3oRGbdwk7ReZQFHSjULOMnTmtaGL9lI8xtMpwqWNMQfKSotTus/jSUsiyfT/X o7spG9u64JKODvv59dwzYssXn/xprKiScKV2rXHq/Guf4ORgePcRJCZezcoh08ds BnJ6zt+sO58rv9EQT5UAZQ7UQ9hWi6/Crw7d8BBni3dzM1tTmzZu47al9IprMFQI 1tLVZiVMl41sfDKOV4G1rUTJgmoq9NniQ9FIKxuvuOhQa+nR41yt6O3WVkze++Ag osZFrmde4lm2hso7xQdBkKVqElxKhDUYSpyQ+iKrg1mogChE5DFACXriQ== X-ME-Sender: X-ME-Received: X-ME-Proxy-Cause: gggruggvucftvghtrhhoucdtuddrgedvhedruddukedgfeejucetufdoteggodetrfdotf fvucfrrhhofhhilhgvmecuhfgrshhtofgrihhlpdfqfgfvpdfurfetoffkrfgpnffqhgen uceurghilhhouhhtmecufedttdenucesvcftvggtihhpihgvnhhtshculddquddttddmne cujfgurhephffvvefufffkofgjfhgggfestdekredtredttdenucfhrhhomheptfgvmhgt ohcuvhgrnhcukdhtucggvggvrhcuoehrvghmtghosehrvghmfihorhhkshdrnhgvtheqne cuggftrfgrthhtvghrnhepteegudelgfffvedtfeehjefhgeeijeeiudeugfevhfduuedt teevudehgfffffdvnecuvehluhhsthgvrhfuihiivgeptdenucfrrghrrghmpehmrghilh hfrhhomheprhifvhesfhgrshhtmhgrihhlrdgtohhm X-ME-Proxy: Feedback-ID: i568842cc:Fastmail Received: by mail.messagingengine.com (Postfix) with ESMTPA; Mon, 23 Jan 2023 08:01:48 -0500 (EST) From: Remco van 't Veer To: zimoun Subject: [PATCH v2 1/2] guix gc: Round MiBs in user feedback. Date: Mon, 23 Jan 2023 14:01:25 +0100 Message-Id: <20230123130126.19745-2-remco@remworks.net> X-Mailer: git-send-email 2.39.1 In-Reply-To: <20230123130126.19745-1-remco@remworks.net> References: <20230123130126.19745-1-remco@remworks.net> MIME-Version: 1.0 Content-Transfer-Encoding: 8bit X-Spam-Score: -0.5 (/) X-Debbugs-Envelope-To: 58880 Cc: Julien Lepiller , 58880@debbugs.gnu.org, Remco van 't Veer X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -1.5 (-) * guix/scripts/gc.scm (guix-gc): Round MiBs in user feedback. --- guix/scripts/gc.scm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/guix/scripts/gc.scm b/guix/scripts/gc.scm index 5e775c5cdb..2bbfb26d5d 100644 --- a/guix/scripts/gc.scm +++ b/guix/scripts/gc.scm @@ -260,10 +260,10 @@ (define-command (guix-gc . args) ;; Attempt to have at least SPACE bytes available in STORE. (let ((free (free-disk-space (%store-prefix)))) (if (> free space) - (info (G_ "already ~h MiBs available on ~a, nothing to do~%") + (info (G_ "already ~,2h MiBs available on ~a, nothing to do~%") (/ free 1024. 1024.) (%store-prefix)) (let ((to-free (- space free))) - (info (G_ "freeing ~h MiBs~%") (/ to-free 1024. 1024.)) + (info (G_ "freeing ~,2h MiBs~%") (/ to-free 1024. 1024.)) (collect-garbage store to-free))))) (define (delete-generations store pattern) @@ -327,10 +327,10 @@ (define-command (guix-gc . args) (ensure-free-space store free-space)) (min-freed (let-values (((paths freed) (collect-garbage store min-freed))) - (info (G_ "freed ~h MiBs~%") (/ freed 1024. 1024.)))) + (info (G_ "freed ~,2h MiBs~%") (/ freed 1024. 1024.)))) (else (let-values (((paths freed) (collect-garbage store))) - (info (G_ "freed ~h MiBs~%") (/ freed 1024. 1024.))))))) + (info (G_ "freed ~,2h MiBs~%") (/ freed 1024. 1024.))))))) ((list-roots) (assert-no-extra-arguments) (list-roots)) -- 2.39.1