lint: Adjust file-name length test for out-of-tree file names.

* guix/scripts/lint.scm (check-patch-file-names): Adjust
file-name-length calculation.
This commit is contained in:
Ludovic Courtès 2017-11-28 15:52:01 +01:00
parent eef01cfe8e
commit 0a154c15a8
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5

View file

@ -618,7 +618,10 @@ (define patches
(max 99))
(for-each (match-lambda
((? string? patch)
(when (> (+ margin (- (string-length patch) prefix))
(when (> (+ margin (if (string-prefix? %distro-directory
patch)
(- (string-length patch) prefix)
(string-length patch)))
max)
(emit-warning
package