lint: archival: Fix crash in non-Git case.

Fixes a bug introduced in 29f3089c84 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
This commit is contained in:
Ludovic Courtès 2024-02-19 17:51:34 +01:00
parent cfc63f673f
commit 3328dec087
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5

View file

@ -1736,6 +1736,8 @@ (define hash
(list id)
#:field 'source)))))))
((? content?)
'())
((? string? swhid)
'())))
'()))
((? local-file?)