~ruther/guix-local

3328dec08757a14ae47f4cbd7017b7518adc689e — Ludovic Courtès 2 years ago cfc63f6 
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
patch browse .tar.gz 
1 files changed, 2 insertions(+), 0 deletions(-)

M guix/lint.scm

M guix/lint.scm => guix/lint.scm +2 -0
@@ 1736,6 1736,8 @@ Disarchive entry refers to non-existent SWH directory '~a'")
                                              (list id)
                                              #:field 'source)))))))
                   ((? content?)
                    '())
                   ((? string? swhid)
                    '())))
               '()))
          ((? local-file?)