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:
parent
eef01cfe8e
commit
0a154c15a8
|
@ -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
|
||||
|
|
Loading…
Reference in a new issue