summaryrefslogtreecommitdiff
path: root/emacs
diff options
context:
space:
mode:
authorAlex Kost <alezost@gmail.com>2014-09-28 00:33:29 +0400
committerAlex Kost <alezost@gmail.com>2014-09-28 22:46:14 +0400
commitce8b295352516ea2effd259401635a7cdd06cc6f (patch)
tree4ea592569eaa92f3a902ef24d77fa528cb62dc85 /emacs
parent79f5dd5915ab8ba5cc5fc19496e042e34a7a10ff (diff)
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.
Diffstat (limited to 'emacs')
-rw-r--r--emacs/guix-main.scm8
1 files changed, 5 insertions, 3 deletions
diff --git a/emacs/guix-main.scm b/emacs/guix-main.scm
index 273a360dfc..026a9e98e7 100644
--- a/emacs/guix-main.scm
+++ b/emacs/guix-main.scm
@@ -478,7 +478,8 @@ ENTRIES is a list of installed manifest entries."
'()
(list (obsolete-package-sexp
name version entries))))
- (map sexp-by-package packages))))))
+ (map sexp-by-package packages))))
+ (_ '())))
->sexps)
@@ -563,7 +564,8 @@ ENTRIES is a list of installed manifest entries."
(append-map (cut sexps-by-manifest-entry <>)
entries))
(append-map (cut sexps-by-package <> output)
- packages))))))
+ packages))))
+ (_ '())))
->sexps)
@@ -661,7 +663,7 @@ If NUMBER is 0 or less, return all generations."
"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)