nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

guix package: '-s' displays different packages that have the same location. 

Before that, 'guix package -s foobarbaz' would display only one package
when several match but they have the same location (which is common when
using 'inherit'.)

The original rationale was given at
<http://lists.gnu.org/archive/html/bug-guix/2013-01/msg00280.html> but
it was arguably misguided because it led to "real" packages being
hidden.

Reported by Tomáš Čech <sleep_walker@gnu.org>.

* guix/scripts/package.scm (find-packages-by-description)[same-location?]:
  Remove.
  Remove call to 'delete-duplicates'.
This commit is contained in:
Ludovic Courtès 2015-03-20 21:48:31 +01:00
parent ac85b51521
commit 9eeb3d8c28
1 changed files with 15 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
guix/scripts/package.scm
View File

@ -240,11 +240,6 @@ DURATION-RELATION with the current time."
(define (find-packages-by-description rx) (define (find-packages-by-description rx)
"Return the list of packages whose name, synopsis, or description matches "Return the list of packages whose name, synopsis, or description matches
RX." RX."
(define (same-location? p1 p2)
;; Compare locations of two packages.
(equal? (package-location p1) (package-location p2)))
(delete-duplicates
(sort (sort
(fold-packages (lambda (package result) (fold-packages (lambda (package result)
(define matches? (define matches?
@ -260,8 +255,7 @@ RX."
'()) '())
(lambda (p1 p2) (lambda (p1 p2)
(string<? (package-name p1) (string<? (package-name p1)
(package-name p2)))) (package-name p2)))))
same-location?))
(define-syntax-rule (leave-on-EPIPE exp ...) (define-syntax-rule (leave-on-EPIPE exp ...)
"Run EXP... in a context when EPIPE errors are caught and lead to 'exit' "Run EXP... in a context when EPIPE errors are caught and lead to 'exit'