summaryrefslogtreecommitdiff
path: root/guix/scripts/gc.scm
diff options
context:
space:
mode:
authorTobias Geerinckx-Rice <me@tobias.gr>2022-07-17 02:00:00 +0200
committerTobias Geerinckx-Rice <me@tobias.gr>2022-07-17 02:00:00 +0200
commit24c0518dd404cbb3c434fb6704f4f551bbc78693 (patch)
treebb13d9a3bf684607f3f0b0fdff2b4c168b6e57ee /guix/scripts/gc.scm
parent32a00363435ac8c1bc93ef1281b2c2afc28a8877 (diff)
Revert "guix gc: '--delete-generations' now deletes old Home generations."
This reverts commit ba22560627f848f40891a56355ff26b6de1380bc.
Diffstat (limited to 'guix/scripts/gc.scm')
-rw-r--r--guix/scripts/gc.scm6
1 files changed, 2 insertions, 4 deletions
diff --git a/guix/scripts/gc.scm b/guix/scripts/gc.scm
index 65cd4bdf8b..043273f491 100644
--- a/guix/scripts/gc.scm
+++ b/guix/scripts/gc.scm
@@ -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 @@
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 @@ is deprecated; use '-D'~%"))
(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))