summary refs log tree commit diff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2020-06-30 00:17:22 +0200
committerLudovic Courtès <ludo@gnu.org>2020-06-30 00:18:28 +0200
commitd2fde340adf197cc42bc4e0187deaf3a7bd3968d (patch)
treea08b1c452e30ee8f98cbf4e0918f460685002065
parentcc6dd2981c7e81a3a1750821ba53e63a7a4bc8e9 (diff)
downloadguix-d2fde340adf197cc42bc4e0187deaf3a7bd3968d.tar.gz
lint: Adjust 'swh-error exception handler.
* guix/lint.scm (check-archival): Change first clause to match only
'swh-error keys.
-rw-r--r--guix/lint.scm2
1 files changed, 1 insertions, 1 deletions
diff --git a/guix/lint.scm b/guix/lint.scm
index fa507546f5..8a4d27ce05 100644
--- a/guix/lint.scm
+++ b/guix/lint.scm
@@ -1208,7 +1208,7 @@ Heritage")
                     '())))
                '()))))
       (match-lambda*
-        ((key url method response)
+        (('swh-error url method response)
          (response->warning url method response))
         ((key . args)
          (if (eq? key skip-key)