mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-12-24 05:18:07 -05:00
Revert "guix gc: '--delete-generations' now deletes old Home generations."
This reverts commit ba22560627
.
This commit is contained in:
parent
32a0036343
commit
24c0518dd4
2 changed files with 3 additions and 6 deletions
|
@ -4362,8 +4362,7 @@ nothing and exit immediately.
|
|||
@item --delete-generations[=@var{duration}]
|
||||
@itemx -d [@var{duration}]
|
||||
Before starting the garbage collection process, delete all the generations
|
||||
older than @var{duration}, for all the user profiles and home environment
|
||||
generations; when run as root, this
|
||||
older than @var{duration}, for all the user profiles; when run as root, this
|
||||
applies to all the profiles @emph{of all the users}.
|
||||
|
||||
For example, this command deletes all the generations of all your profiles
|
||||
|
|
|
@ -1,5 +1,5 @@
|
|||
;;; GNU Guix --- Functional package management for GNU
|
||||
;;; Copyright © 2012-2013, 2015-2020, 2022 Ludovic Courtès <ludo@gnu.org>
|
||||
;;; Copyright © 2012, 2013, 2015, 2016, 2017, 2018, 2019, 2020 Ludovic Courtès <ludo@gnu.org>
|
||||
;;;
|
||||
;;; This file is part of GNU Guix.
|
||||
;;;
|
||||
|
@ -26,7 +26,6 @@ (define-module (guix scripts gc)
|
|||
profile-generations
|
||||
generation-number)
|
||||
#:autoload (guix scripts package) (delete-generations)
|
||||
#:autoload (gnu home) (home-generation-base)
|
||||
#:use-module (ice-9 match)
|
||||
#:use-module (ice-9 regex)
|
||||
#:use-module (srfi srfi-1)
|
||||
|
@ -261,8 +260,7 @@ (define (delete-generations store pattern)
|
|||
(filter-map (lambda (root)
|
||||
(and (or (zero? (getuid))
|
||||
(user-owned? root))
|
||||
(or (generation-profile root)
|
||||
(home-generation-base root))))
|
||||
(generation-profile root)))
|
||||
(gc-roots)))))
|
||||
(for-each (lambda (profile)
|
||||
(delete-old-generations store profile pattern))
|
||||
|
|
Loading…
Reference in a new issue