[bug#27596] [PATCH] guix: lint: Add checker for new upstream versions.

[Efraim Flashner <efraim@flashner.co.il>]

* 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)))
+
 \f
 ;;;
 ;;; 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