[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
01/02: lint: check-source-unstable-tarball: Don't assume uri length.
From: |
guix-commits |
Subject: |
01/02: lint: check-source-unstable-tarball: Don't assume uri length. |
Date: |
Sun, 20 Jan 2019 04:49:30 -0500 (EST) |
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)))