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

emacs: Use 'with-store' in 'process-package-actions'.

Browse source 
* emacs/guix-main.scm (process-package-actions): Use 'with-store'.
This commit is contained in:
Alex Kost 2014-10-05 23:52:52 +04:00
parent 75af27f764
commit 1f06b28899
1 changed files with 25 additions and 25 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
emacs/guix-main.scm
View file

@ -790,9 +790,9 @@ (define* (process-package-actions
(new-manifest (manifest-perform-transaction
manifest transaction)))
(unless (and (null? install) (null? remove))
(let* ((store (open-connection))
(derivation (run-with-store
store (profile-derivation new-manifest)))
(with-store store
(let* ((derivation (run-with-store store
(profile-derivation new-manifest)))
(derivations (list derivation))
(new-profile (derivation->output-path derivation)))
(set-build-options store
@ -814,7 +814,7 @@ (define* (process-package-actions
(format #t (N_ "~a package in profile~%"
"~a packages in profile~%"
count)
count)))))))))
count))))))))))
(define (delete-generations* profile generations)
"Delete GENERATIONS from PROFILE.