04/09: gnu-maintenance: 'gnu-package?' ignores invalid URLs.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guix.

commit 6715e1ff2e09af3208f8f2a108ca100798ca1058
Author: Ludovic Courtès <address@hidden>
Date:   Fri Jan 27 23:40:04 2017 +0100

    gnu-maintenance: 'gnu-package?' ignores invalid URLs.
    
    * guix/gnu-maintenance.scm (gnu-package?)[gnu-home-page?]: Add '>>'
    threading macro and use it.
---
 guix/gnu-maintenance.scm |   16 +++++++++++-----
 1 file changed, 11 insertions(+), 5 deletions(-)

diff --git a/guix/gnu-maintenance.scm b/guix/gnu-maintenance.scm
index 8a37ce5..9c94992 100644
--- a/guix/gnu-maintenance.scm
+++ b/guix/gnu-maintenance.scm
@@ -187,11 +187,17 @@ network to check in GNU's database."
                   'non-gnu)))))
 
        (define (gnu-home-page? package)
-         (and=> (package-home-page package)
-                (lambda (url)
-                  (and=> (uri-host (string->uri url))
-                         (lambda (host)
-                           (member host '("www.gnu.org" "gnu.org")))))))
+         (letrec-syntax ((>> (syntax-rules ()
+                               ((_ value proc)
+                                (and=> value proc))
+                               ((_ value proc rest ...)
+                                (and=> value
+                                       (lambda (next)
+                                         (>> (proc next) rest ...)))))))
+           (>> package package-home-page
+               string->uri uri-host
+               (lambda (host)
+                 (member host '("www.gnu.org" "gnu.org"))))))
 
        (or (gnu-home-page? package)
            (let ((url  (and=> (package-source package) origin-uri))