gnu-maintenance: Fix `gnu-package?' for packages lacking a `source'.
* guix/gnu-maintenance.scm (gnu-package?): Support PACKAGE when its source is #f.
This commit is contained in:
parent
19777ae6ea
commit
296540a6db
|
@ -84,9 +84,10 @@
|
||||||
network to check in GNU's database."
|
network to check in GNU's database."
|
||||||
;; TODO: Find a way to determine that a package is non-GNU without going
|
;; TODO: Find a way to determine that a package is non-GNU without going
|
||||||
;; through the network.
|
;; through the network.
|
||||||
(let ((url (origin-uri (package-source package))))
|
(let ((url (and=> (package-source package) origin-uri)))
|
||||||
(or (string-prefix? "mirror://gnu" url)
|
(or (and (string? url) (string-prefix? "mirror://gnu" url))
|
||||||
(member (package-name package) (official-gnu-packages)))))))
|
(and (member (package-name package) (official-gnu-packages))
|
||||||
|
#t))))))
|
||||||
|
|
||||||
|
|
||||||
;;;
|
;;;
|
||||||
|
|
Loading…
Reference in New Issue