From 6ad2050a8bbc308a328d30d4f66cb229d868b79d Mon Sep 17 00:00:00 2001 From: Vagrant Cascadian Date: Fri, 19 Nov 2021 12:14:19 -0800 Subject: [PATCH] lint: Adjust patch file length check. * guix/lint.scm (check-patch-file-names): Adjust margin used to check for patch file lengths. --- guix/lint.scm | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/guix/lint.scm b/guix/lint.scm index ac2e7b3841..39b4a2ae85 100644 --- a/guix/lint.scm +++ b/guix/lint.scm @@ -957,7 +957,10 @@ patch could not be found." ;; Check whether we're reaching tar's maximum file name length. (let ((prefix (string-length (%distro-directory))) - (margin (string-length "guix-2.0.0rc3-10000-1234567890/")) + ;; Margin approximating the largest path that "make dist" might + ;; create, with a release candidate version, 123456 commits, and + ;; git commit hash abcde0. + (margin (string-length "guix-12.0.0rc3-123456-abcde0/")) (max 99)) (filter-map (match-lambda ((? string? patch) -- 2.30.2