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

guix package: Separate '--remove' option processing.

Browse source 
* guix/scripts/package.scm (options->removable): New procedure.
  (guix-package)[process-actions]: Use it.  Rename 'remove*' to 'remove'
  and 'install*' to 'install'.
This commit is contained in:
Ludovic Courtès 2013-11-01 17:12:15 +01:00
parent 2876b98925
commit 537630c5a7
1 changed files with 16 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

27
guix/scripts/package.scm
View file

@ -692,6 +692,17 @@ (define to-install
(append to-upgrade to-install))
(define (options->removable options manifest)
"Given options, return the list of manifest entries to be removed from
MANIFEST."
(let ((remove (filter-map (match-lambda
(('remove . package)
package)
(_ #f))
options)))
(filter (cut manifest-installed? manifest <>)
remove)))
;;;
;;; Entry point.
@ -839,16 +850,10 @@ (define (delete-generation number)
opts))
(else
(let* ((manifest (profile-manifest profile))
(install* (options->installable opts manifest))
(remove (filter-map (match-lambda
(('remove . package)
package)
(_ #f))
opts))
(remove* (filter (cut manifest-installed? manifest <>)
remove))
(install (options->installable opts manifest))
(remove (options->removable opts manifest))
(entries
(append install*
(append install
(fold (lambda (package result)
(match package
(($ <manifest-entry> name _ out _ ...)
@ -858,7 +863,7 @@ (define (delete-generation number)
result))))
(manifest-entries
(manifest-remove manifest remove))
install*)))
install)))
(new (make-manifest entries)))
(when (equal? profile %current-profile)
@ -867,7 +872,7 @@ (define (delete-generation number)
(if (manifest=? new manifest)
(format (current-error-port) (_ "nothing to be done~%"))
(let ((prof-drv (profile-derivation (%store) new)))
(show-what-to-remove/install remove* install* dry-run?)
(show-what-to-remove/install remove install dry-run?)
(show-what-to-build (%store) (list prof-drv)
#:use-substitutes?
(assoc-ref opts 'substitutes?)