diff options
| author | Freya Murphy <freya@freyacat.org> | 2024-10-21 23:29:50 -0400 |
|---|---|---|
| committer | Freya Murphy <freya@freyacat.org> | 2024-10-21 23:29:50 -0400 |
| commit | e64a0281a3ad7aeb45a5c50b733dd9861660acf5 (patch) | |
| tree | e5caa650e3d79abbcd3880e7dab1d7074a3e10de | |
| parent | update shinji (diff) | |
| download | dotfiles-guix-e64a0281a3ad7aeb45a5c50b733dd9861660acf5.tar.gz dotfiles-guix-e64a0281a3ad7aeb45a5c50b733dd9861660acf5.tar.bz2 dotfiles-guix-e64a0281a3ad7aeb45a5c50b733dd9861660acf5.zip | |
fix uki
| -rw-r--r-- | modules/freya/bootloader/uki.scm | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/modules/freya/bootloader/uki.scm b/modules/freya/bootloader/uki.scm index f62af45..716e8a2 100644 --- a/modules/freya/bootloader/uki.scm +++ b/modules/freya/bootloader/uki.scm @@ -44,14 +44,12 @@ (ice-9 popen) (ice-9 textual-ports)) (define (out name) (string-append vendir "/" name)) - (define fulldisk + (define disk (call-with-port (open-pipe* OPEN_READ findmnt "-fnro" "SOURCE" "-T" target) (lambda (port) (get-line port)))) ; only 1 line: the device - (define disk - (substring fulldisk 0 (- (string-length fulldisk) 1))) (define part - (substring fulldisk (- (string-length fulldisk) 1))) + (substring disk (- (string-length disk) 1))) ;; delete all boot entries and files we control (when (file-exists? schema) |