08/08: lint: Adjust 'swh-error exception handler.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit d2fde340adf197cc42bc4e0187deaf3a7bd3968d
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Tue Jun 30 00:17:22 2020 +0200

    lint: Adjust 'swh-error exception handler.
    
    * guix/lint.scm (check-archival): Change first clause to match only
    'swh-error keys.
---
 guix/lint.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/guix/lint.scm b/guix/lint.scm
index fa50754..8a4d27c 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)