lint: Adjust 'swh-error exception handler.

* guix/lint.scm (check-archival): Change first clause to match only 'swh-error keys.
2020-06-30 00:17:22 +02:00 · 2020-06-30 00:17:22 +02:00 · d2fde340ad
parent cc6dd2981c
commit d2fde340ad
1 changed files with 1 additions and 1 deletions
--- 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)