[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/repology 220d5c244a 3/4: repology-license: Warn about m
From: |
Nicolas Goaziou |
Subject: |
[elpa] externals/repology 220d5c244a 3/4: repology-license: Warn about missing Gentoo licenses identifiers |
Date: |
Sun, 20 Mar 2022 07:13:23 -0400 (EDT) |
branch: externals/repology
commit 220d5c244a7f144e4cda9690153aad0748a981c6
Author: Nicolas Goaziou <mail@nicolasgoaziou.fr>
Commit: Nicolas Goaziou <mail@nicolasgoaziou.fr>
repology-license: Warn about missing Gentoo licenses identifiers
* repology-license.el (repology--license-get-identifiers:gentoo):
Raise a warning when Gentoo license identifiers cannot be fetched.
---
repology-license.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/repology-license.el b/repology-license.el
index 1739b1f0a1..e87e932804 100644
--- a/repology-license.el
+++ b/repology-license.el
@@ -122,7 +122,7 @@ This list is populated with
`repology--license-get-identifiers:gentoo'.")
(or repology--license-identifiers:gentoo
(with-temp-message "Repology: Fetching license identifiers for Gentoo..."
(let ((request
- (repology-request repology--license-identifiers-url:gentoo)))
+ (repology-request repology--license-identifiers-url:gentoo)))
(pcase (plist-get request :reason)
("OK"
(let ((identifiers nil))
@@ -140,7 +140,7 @@ This list is populated with
`repology--license-get-identifiers:gentoo'.")
(delete (concat "@" category) identifiers))))
(setq repology--license-identifiers:gentoo identifiers)))
(_
- (message "Repology: Cannot fetch Gentoo licenses. \
+ (warn "Repology: Cannot fetch Gentoo licenses. \
Ignoring repository")
nil))))))