From f0aa6c45b6ef15a79be3320fb3df9ac83418634d Mon Sep 17 00:00:00 2001 From: Dariqq Date: Wed, 6 Nov 2024 10:46:48 +0000 Subject: [PATCH] lint: Check for more types of custom 'check phases. MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit * guix/lint.scm (check-optional-tests): Also check for add-before and add-after when adding custom 'check phases. Change-Id: Idc959f90d7e9aa9d5001f34e00f88b41aa20fb2a Signed-off-by: Ludovic Courtès --- guix/lint.scm | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/guix/lint.scm b/guix/lint.scm index 059ee6894dd2ea83126db7fc331601fc3d23ceef..59607fbfddd3c92dfa008abc36aff80195a35a21 100644 --- a/guix/lint.scm +++ b/guix/lint.scm @@ -1457,6 +1457,10 @@ password, provided REF's URI is HTTP or HTTPS." (match delta (`(replace 'check ,expression) (check-check-procedure expression)) + (`(add-after ,_ 'check ,expression) + (check-check-procedure expression)) + (`(add-before ,_ 'check ,expression) + (check-check-procedure expression)) (_ '()))) (define (check-phases-deltas deltas) (append-map check-phases-delta deltas))