gnu-maintenance: Ignore "redirect" blurbs.

* guix/gnu-maintenance.scm (official-gnu-packages)[official-description]:
  Return #f for blurbs that start with "redirect ".

1 files changed, 12 insertions, 1 deletions

diff --git a/guix/gnu-maintenance.scm b/guix/gnu-maintenance.scm
index 3dd8874985..98432a69ce 100644
--- a/guix/gnu-maintenance.scm
+++ b/guix/gnu-maintenance.scm
@@ -127,7 +127,18 @@
         (and=> (find (lambda (alist)
                        (equal? name (assoc-ref alist "package")))
                      db)
-               (cut assoc-ref <> "blurb")))))
+               (lambda (record)
+                 (let ((field (assoc-ref record "blurb")))
+                   ;; The upstream description file uses "redirect PACKAGE" as
+                   ;; a blurb in cases where the description of the two
+                   ;; packages should be considered the same (e.g., GTK+ has
+                   ;; "redirect gnome".)  This is usually not acceptable for
+                   ;; us because we prefer to have distinct descriptions in
+                   ;; such cases.  Thus, ignore the 'blurb' field when that
+                   ;; happens.
+                   (and field
+                        (not (string-prefix? "redirect " field))
+                        field)))))))
 
   (map (lambda (alist)
          (let ((name (assoc-ref alist "package")))