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 @@ patch could not be found."
|
||||||
(max 99))
|
(max 99))
|
||||||
(for-each (match-lambda
|
(for-each (match-lambda
|
||||||
((? string? patch)
|
((? string? patch)
|
||||||
(when (> (+ margin (- (string-length patch) prefix))
|
(when (> (+ margin (if (string-prefix? %distro-directory
|
||||||
|
patch)
|
||||||
|
(- (string-length patch) prefix)
|
||||||
|
(string-length patch)))
|
||||||
max)
|
max)
|
||||||
(emit-warning
|
(emit-warning
|
||||||
package
|
package
|
||||||
|
|
Loading…
Reference in New Issue