ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-24 13:28:12 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

emacs: Fix errors in receiving information.

Browse source 
* emacs/guix-main.scm (package-pattern-transformer,
  output-pattern-transformer): Add fallback 'match' clauses.
  (find-generations): Fix getting generations by IDs.
This commit is contained in:
Alex Kost 2014-09-28 00:33:29 +04:00
parent 79f5dd5915
commit ce8b295352
1 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
emacs/guix-main.scm
View file

@ -478,7 +478,8 @@ (define (->sexps pattern)
'()
(list (obsolete-package-sexp
name version entries))))
(map sexp-by-package packages))))))
(map sexp-by-package packages))))
(_ '())))
->sexps)
@ -563,7 +564,8 @@ (define (->sexps pattern)
(append-map (cut sexps-by-manifest-entry <>)
entries))
(append-map (cut sexps-by-package <> output)
packages))))))
packages))))
(_ '())))
->sexps)
@ -661,7 +663,7 @@ (define (find-generations profile search-type search-vals)
"Find PROFILE's generations matching SEARCH-TYPE and SEARCH-VALS."
(case search-type
((id)
(matching-generations profile (cut memq <> (car search-vals))))
(matching-generations profile (cut memq <> search-vals)))
((last)
(last-generations profile (car search-vals)))
((all)