~ruther/guix-local: lint: Adjust file-name length test for out-of-tree file names.

0a154c15a81ef80bf512a38ae8473a5bc511302b — Ludovic Courtès 8 years ago eef01cf

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.

patch browse .tar.gz .zip

1 files changed, 4 insertions(+), 1 deletions(-)

M guix/scripts/lint.scm

M guix/scripts/lint.scm => guix/scripts/lint.scm +4 -1

@@ 618,7 618,10 @@ patch could not be found."
           (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