summaryrefslogtreecommitdiff
path: root/guix/lint.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2021-09-10 14:59:53 +0200
committerLudovic Courtès <ludo@gnu.org>2021-09-10 17:30:54 +0200
commit163d6385fd4f06860726876086d92d0e81dc6442 (patch)
tree332de896e958e118946a90d56032c79372a7d206 /guix/lint.scm
parentcb06f7c61e4b8393abf38f1f5891e03c33d53b9b (diff)
lint: archival: Warn about non-origin sources.
* guix/lint.scm (check-archival): Warn about non-origin sources.
Diffstat (limited to 'guix/lint.scm')
-rw-r--r--guix/lint.scm6
1 files changed, 5 insertions, 1 deletions
diff --git a/guix/lint.scm b/guix/lint.scm
index ffd3f7007e..527fda165a 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))