aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDanny Milosavljevic <dannym@scratchpost.org>2017-04-21 14:37:14 +0200
committerDanny Milosavljevic <dannym@scratchpost.org>2017-05-05 15:03:48 +0200
commit7e3f7acbe0885fd8a6e509fd0c309d1f4d9d3097 (patch)
treee5ed90a2b8556361057f9bec9fce5892b74d2b40
parentbf8b09169c7d8ae48ac99ea237b82867ee9aa885 (diff)
downloadguix-7e3f7acbe0885fd8a6e509fd0c309d1f4d9d3097.tar
guix-7e3f7acbe0885fd8a6e509fd0c309d1f4d9d3097.tar.gz
scripts: Remove profile-grub-entries.
* guix/scripts/system.scm (profile-grub-entries): Delete variable.
-rw-r--r--guix/scripts/system.scm37
1 files changed, 0 insertions, 37 deletions
diff --git a/guix/scripts/system.scm b/guix/scripts/system.scm
index 5845992b4d..2872bcae6b 100644
--- a/guix/scripts/system.scm
+++ b/guix/scripts/system.scm
@@ -384,43 +384,6 @@ NUMBERS, which is a list of generation numbers."
systems)))
(filter-map system->boot-parameters systems numbers times)))
-(define* (profile-grub-entries #:optional (profile %system-profile)
- (numbers (generation-numbers profile)))
- "Return a list of 'menu-entry' for the generations of PROFILE specified by
-NUMBERS, which is a list of generation numbers."
- (define (system->grub-entry system number time)
- (unless-file-not-found
- (let* ((params (read-boot-parameters-file system))
- (label (boot-parameters-label params))
- (root (boot-parameters-root-device params))
- (root-device (if (bytevector? root)
- (uuid->string root)
- root))
- (kernel (boot-parameters-kernel params))
- (kernel-arguments (boot-parameters-kernel-arguments params))
- (initrd (boot-parameters-initrd params)))
- (menu-entry
- (label (string-append label " (#"
- (number->string number) ", "
- (seconds->string time) ")"))
- (device (boot-parameters-store-device params))
- (device-mount-point (boot-parameters-store-mount-point params))
- (linux kernel)
- (linux-arguments
- (cons* (string-append "--root=" root-device)
- (string-append "--system=" system)
- (string-append "--load=" system "/boot")
- kernel-arguments))
- (initrd initrd)))))
-
- (let* ((systems (map (cut generation-file-name profile <>)
- numbers))
- (times (map (lambda (system)
- (unless-file-not-found
- (stat:mtime (lstat system))))
- systems)))
- (filter-map system->grub-entry systems numbers times)))
-
;;;
;;; Roll-back.