diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2024-02-19 17:51:34 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2024-03-09 18:55:49 +0100 |
| commit | 3328dec08757a14ae47f4cbd7017b7518adc689e (patch) | |
| tree | 2528ea2fe7e16cfa01759ba28bb330e9425951ef /guix/lint.scm | |
| parent | cfc63f673fb00dc30f6fd7916e78855721885d73 (diff) | |
| download | guix-3328dec08757a14ae47f4cbd7017b7518adc689e.tar guix-3328dec08757a14ae47f4cbd7017b7518adc689e.tar.gz | |
lint: archival: Fix crash in non-Git case.
Fixes a bug introduced in 29f3089c841f00144f24f5c32296aebf22d752cc where
‘guix lint -c archival guile-wisp’ (for instance) would crash with a
match error because ‘lookup-by-nar-hash’ returns a string.
* guix/lint.scm (check-archival): Add SWHID case in the non-Git case.
Change-Id: I66fb060172d372041df47d90a14df168b0fa762d
Diffstat (limited to 'guix/lint.scm')
| -rw-r--r-- | guix/lint.scm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/guix/lint.scm b/guix/lint.scm index 84df171045..ad84048660 100644 --- a/guix/lint.scm +++ b/guix/lint.scm @@ -1736,6 +1736,8 @@ Disarchive entry refers to non-existent SWH directory '~a'") (list id) #:field 'source))))))) ((? content?) + '()) + ((? string? swhid) '()))) '())) ((? local-file?) |