diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2018-10-09 10:52:39 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2018-10-09 18:54:12 +0200 |
| commit | e54aec7b8e5ef1aa53df043e3c0b06f25d2936a4 (patch) | |
| tree | 63e2788d310c07d3895e2103fa1d8eeb01faff4e | |
| parent | fe17037b387c6eca0c45f0526d2761e982a192bb (diff) | |
| download | guix-e54aec7b8e5ef1aa53df043e3c0b06f25d2936a4.tar.gz | |
pull: '-l' now honors '-p'.
* guix/scripts/pull.scm (process-query): Add 'profile' parameter and remove 'profile' local variable. (guix-pull): Adjust caller.
| -rw-r--r-- | guix/scripts/pull.scm | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/guix/scripts/pull.scm b/guix/scripts/pull.scm index 803f7cf142..0d65857beb 100644 --- a/guix/scripts/pull.scm +++ b/guix/scripts/pull.scm @@ -341,11 +341,8 @@ and ALIST2 differ, display HEADING upfront." (display-new/upgraded-packages (package-alist gen1) (package-alist gen2))) -(define (process-query opts) - "Process any query specified by OPTS." - (define profile - (string-append (config-directory) "/current")) - +(define (process-query opts profile) + "Process any query on PROFILE specified by OPTS." (match (assoc-ref opts 'query) (('list-generations pattern) (define (list-generations profile numbers) @@ -445,7 +442,7 @@ Use '~/.config/guix/channels.scm' instead.")) (string-append (config-directory) "/current")))) (cond ((assoc-ref opts 'query) - (process-query opts)) + (process-query opts profile)) ((assoc-ref opts 'dry-run?) #t) ;XXX: not very useful (else |