diff options
| author | Ludovic Courtès <[email protected]> | 2025-01-24 15:56:04 +0100 |
|---|---|---|
| committer | Ludovic Courtès <[email protected]> | 2025-01-24 23:36:04 +0100 |
| commit | 5ec09ac8673e9158172ba015b2082cc63517ea92 (patch) | |
| tree | 66f51b244db511f441278251de9cdf2f64465026 | |
| parent | 3e626bb39d2a073d715ea89e91aa5981712d33bb (diff) | |
upstream: ‘package-archive-type’ doesn’t choke on lack of extension.
* guix/upstream.scm (package-archive-type): Check whether EXTENSION is
true.
Change-Id: I35886770e7c0e941ff3990030dab03b53efc70ab
| -rw-r--r-- | guix/upstream.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/guix/upstream.scm b/guix/upstream.scm index c44afbc677..62ba6c9d39 100644 --- a/guix/upstream.scm +++ b/guix/upstream.scm @@ -427,7 +427,8 @@ string such as \"xz\". Otherwise return #f." (let ((extension (file-extension file))) ;; FILE might be "example-1.2-checkout", in which case we want to ;; ignore the extension. - (and (or (string-contains extension "z") + (and (string? extension) + (or (string-contains extension "z") (string-contains extension "tar")) extension))))) |