From 2bec19199e6a42a6d0419a59230e5688e4b7eca0 Mon Sep 17 00:00:00 2001
From: Ludovic Courtès <ludo@gnu.org>
Date: Thu, 30 Sep 2021 00:05:18 +0200
Subject: style: Really honor '--input-simplification=always'.

* guix/scripts/style.scm (simplify-package-inputs): Use (const #t) when
POLICY is 'always.
---
 guix/scripts/style.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'guix')

diff --git a/guix/scripts/style.scm b/guix/scripts/style.scm
index 3c100197a7..8957c1d507 100644
--- a/guix/scripts/style.scm
+++ b/guix/scripts/style.scm
@@ -419,7 +419,7 @@ simplify inputs!)."
                                 label-matches?))
                            ('always
                             ;; Assume it's gonna be alright.
-                            (const #f))))
+                            (const #t))))
 
                        (simplify-inputs location
                                         (package-name package)
-- 
cgit v1.2.3