diff options
| author | Danny Milosavljevic <dannym@scratchpost.org> | 2017-04-21 14:37:14 +0200 |
|---|---|---|
| committer | Danny Milosavljevic <dannym@scratchpost.org> | 2017-05-05 15:03:48 +0200 |
| commit | 7e3f7acbe0885fd8a6e509fd0c309d1f4d9d3097 (patch) | |
| tree | e5ed90a2b8556361057f9bec9fce5892b74d2b40 /guix | |
| parent | bf8b09169c7d8ae48ac99ea237b82867ee9aa885 (diff) | |
| download | gnu-guix-7e3f7acbe0885fd8a6e509fd0c309d1f4d9d3097.tar gnu-guix-7e3f7acbe0885fd8a6e509fd0c309d1f4d9d3097.tar.gz | |
scripts: Remove profile-grub-entries.
* guix/scripts/system.scm (profile-grub-entries): Delete variable.
Diffstat (limited to 'guix')
| -rw-r--r-- | guix/scripts/system.scm | 37 |
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. |