02/12: lint: archival: Fix crash in non-Git case.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit 3328dec08757a14ae47f4cbd7017b7518adc689e
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Mon Feb 19 17:51:34 2024 +0100

    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
---
 guix/lint.scm | 2 ++
 1 file changed, 2 insertions(+)

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?)