diff options
| -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))))) |