diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2013-03-05 22:25:40 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2013-03-05 22:25:40 +0100 |
| commit | 296540a6dbd594a34e6ea3c223081f123ce30c7a (patch) | |
| tree | a12e449880bacd5763af1d089d5a4e7ad850f44f /guix | |
| parent | 19777ae6ea35cfe4d23ae7096751971c3bf86722 (diff) | |
| download | gnu-guix-296540a6dbd594a34e6ea3c223081f123ce30c7a.tar gnu-guix-296540a6dbd594a34e6ea3c223081f123ce30c7a.tar.gz | |
gnu-maintenance: Fix `gnu-package?' for packages lacking a `source'.
* guix/gnu-maintenance.scm (gnu-package?): Support PACKAGE when its
source is #f.
Diffstat (limited to 'guix')
| -rw-r--r-- | guix/gnu-maintenance.scm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/guix/gnu-maintenance.scm b/guix/gnu-maintenance.scm index 981bb81919..184875300a 100644 --- a/guix/gnu-maintenance.scm +++ b/guix/gnu-maintenance.scm @@ -84,9 +84,10 @@ network to check in GNU's database." ;; TODO: Find a way to determine that a package is non-GNU without going ;; through the network. - (let ((url (origin-uri (package-source package)))) - (or (string-prefix? "mirror://gnu" url) - (member (package-name package) (official-gnu-packages))))))) + (let ((url (and=> (package-source package) origin-uri))) + (or (and (string? url) (string-prefix? "mirror://gnu" url)) + (and (member (package-name package) (official-gnu-packages)) + #t)))))) ;;; |