[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[bug#27596] [PATCH] guix: lint: Add checker for new upstream versions.
From: |
Efraim Flashner |
Subject: |
[bug#27596] [PATCH] guix: lint: Add checker for new upstream versions. |
Date: |
Thu, 6 Jul 2017 13:17:23 +0300 |
* guix/scripts/lint.scm (check-for-updates): New procedure.
(%checkers): Add it.
---
guix/scripts/lint.scm | 10 ++++++++++
1 file changed, 10 insertions(+)
diff --git a/guix/scripts/lint.scm b/guix/scripts/lint.scm
index 04ab85299..665db158c 100644
--- a/guix/scripts/lint.scm
+++ b/guix/scripts/lint.scm
@@ -35,6 +35,7 @@
#:use-module (guix utils)
#:use-module (guix memoization)
#:use-module (guix scripts)
+ #:use-module (guix scripts refresh)
#:use-module (guix gnu-maintenance)
#:use-module (guix monads)
#:use-module (guix cve)
@@ -72,6 +73,7 @@
check-mirror-url
check-license
check-vulnerabilities
+ check-for-updates
check-formatting
run-checkers
@@ -821,6 +823,10 @@ from ~s: ~a (~s)~%")
(string-join (map vulnerability-id unpatched)
", ")))))))))
+(define (check-for-updates package)
+ "Check if there is an update available for PACKAGE."
+ (guix-refresh (package-name package)))
+
;;;
;;; Source code formatting.
@@ -972,6 +978,10 @@ or a list thereof")
(CVE) database")
(check check-vulnerabilities))
(lint-checker
+ (name 'refresh)
+ (description "Check the package for new upstream releases")
+ (check check-for-updates))
+ (lint-checker
(name 'formatting)
(description "Look for formatting issues in the source")
(check check-formatting))))
--
2.13.2
- [bug#27596] [PATCH] guix: lint: Add checker for new upstream versions.,
Efraim Flashner <=