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

emacs: Fix errors in receiving information. 

* 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 @@ ENTRIES is a list of installed manifest entries."
'() '()
(list (obsolete-package-sexp (list (obsolete-package-sexp
name version entries)))) name version entries))))
(map sexp-by-package packages)))))) (map sexp-by-package packages))))
(_ '())))
->sexps) ->sexps)
@ -563,7 +564,8 @@ ENTRIES is a list of installed manifest entries."
(append-map (cut sexps-by-manifest-entry <>) (append-map (cut sexps-by-manifest-entry <>)
entries)) entries))
(append-map (cut sexps-by-package <> output) (append-map (cut sexps-by-package <> output)
packages)))))) packages))))
(_ '())))
->sexps) ->sexps)
@ -661,7 +663,7 @@ If NUMBER is 0 or less, return all generations."
"Find PROFILE's generations matching SEARCH-TYPE and SEARCH-VALS." "Find PROFILE's generations matching SEARCH-TYPE and SEARCH-VALS."
(case search-type (case search-type
((id) ((id)
(matching-generations profile (cut memq <> (car search-vals)))) (matching-generations profile (cut memq <> search-vals)))
((last) ((last)
(last-generations profile (car search-vals))) (last-generations profile (car search-vals)))
((all) ((all)