04/09: lint: archival: Warn about non-origin sources.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit 163d6385fd4f06860726876086d92d0e81dc6442
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Fri Sep 10 14:59:53 2021 +0200

    lint: archival: Warn about non-origin sources.
    
    * guix/lint.scm (check-archival): Warn about non-origin sources.
---
 guix/lint.scm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/guix/lint.scm b/guix/lint.scm
index ffd3f70..527fda1 100644
--- a/guix/lint.scm
+++ b/guix/lint.scm
@@ -1562,7 +1562,11 @@ Disarchive entry refers to non-existent SWH directory 
'~a'")
                                               #:field 'source)))))))
                    ((? content?)
                     '())))
-               '()))))
+               '()))
+          (_
+           (list (make-warning package
+                               (G_ "unsupported source type")
+                               #:field 'source)))))
       (match-lambda*
         (('swh-error url method response)
          (response->warning url method response))