01/02: lint: check-source-unstable-tarball: Don't assume uri length.

[guix-commits]

efraim pushed a commit to branch master
in repository guix.

commit 4e1f9a2f2c242a06221693550b1227b41bb4bd90
Author: Efraim Flashner <address@hidden>
Date:   Sun Jan 20 11:43:16 2019 +0200

    lint: check-source-unstable-tarball: Don't assume uri length.
    
    * guix/scripts/lint.scm (check-source-unstable-tarball): Replace third
    with code to make sure there are enough elements to check.
---
 guix/scripts/lint.scm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/guix/scripts/lint.scm b/guix/scripts/lint.scm
index 0f315a9..665adcf 100644
--- a/guix/scripts/lint.scm
+++ b/guix/scripts/lint.scm
@@ -758,9 +758,10 @@ descriptions maintained upstream."
   "Emit a warning if PACKAGE's source is an autogenerated tarball."
   (define (check-source-uri uri)
     (when (and (string=? (uri-host (string->uri uri)) "github.com")
-               (string=? (third (split-and-decode-uri-path
-                                   (uri-path (string->uri uri))))
-                     "archive"))
+               (match (split-and-decode-uri-path
+                                   (uri-path (string->uri uri)))
+                      ((_ _ "archive" _ ...) #t)
+                      (_ #f)))
       (emit-warning package
                     (G_ "the source URI should not be an autogenerated 
tarball")
                     'source)))