mirror/guix
mirror/guix
1
Fork 0
mirror of https://https.git.savannah.gnu.org/git/guix.git/ synced 2025-07-14 11:00:36 +02:00
Code Releases Activity

system: reconfigure: Use the disk-installer if provided.

Browse source 
Fixes: <https://issues.guix.gnu.org/44101>.

* gnu/build/bootloader.scm (write-file-on-device): Pass 'no-fail flag instead
of 'no-create. Use a latin-1 transcoder.
* guix/scripts/system/reconfigure.scm (install-bootloader-program): Add a
"disk-installer" argument and use it as a fallback.
(install-bootloader): Adapt accordingly.
* gnu/tests/reconfigure.scm (run-install-bootloader-test): Ditto.
This commit is contained in:
Mathieu Othacehe 2020-10-21 10:42:50 +02:00
parent 25e811583f
commit a38d861e57
No known key found for this signature in database
GPG key ID: 8354763531769CA6
3 changed files with 22 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

7
gnu/build/bootloader.scm
View file

@ -38,10 +38,13 @@
(lambda (input)
(let ((bv (get-bytevector-n input size)))
(call-with-port
;; Do not use "call-with-output-file" that would truncate the file.
(open-file-output-port device
(file-options no-truncate no-create)
(file-options no-truncate no-fail)
(buffer-mode block)
(native-transcoder))
;; Use the binary-friendly ISO-8859-1
;; encoding.
(make-transcoder (latin-1-codec)))
(lambda (output)
(seek output offset SEEK_SET)
(put-bytevector output bv)))))))