lint: archival: Warn about non-origin sources.

* guix/lint.scm (check-archival): Warn about non-origin sources.
2021-09-10 14:59:53 +02:00 · 2021-09-10 14:59:53 +02:00 · 163d6385fd
commit 163d6385fd
parent cb06f7c61e
1 changed files with 5 additions and 1 deletions
--- 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))