unofficial mirror of bug-guix@gnu.org 
 help / color / mirror / code / Atom feed
From: Vagrant Cascadian <vagrant@debian.org>
To: Mathieu Othacehe <othacehe@gnu.org>
Cc: 44101@debbugs.gnu.org
Subject: bug#44101: Unable to use /dev/disk/by-id/ symlinks with u-boot and guix system reconfigure
Date: Mon, 02 Nov 2020 11:14:58 -0800	[thread overview]
Message-ID: <87pn4vo9jh.fsf@yucca> (raw)
In-Reply-To: <875z70mmdx.fsf@ponder>

[-- Attachment #1: Type: text/plain, Size: 5334 bytes --]

On 2020-10-23, Vagrant Cascadian wrote:
> On 2020-10-23, Mathieu Othacehe wrote:
>>>> ice-9/boot-9.scm:1669:16: In procedure raise-exception:
>>>> ERROR:
>>>>   1. &i/o-filename: "/dev/disk/by-id/mmc-SDU64_0xbaf3002e"
>>>
>>> Thanks for testing. This is probably a regression in
>>> "write-file-on-device" that fails to open this kind of files. I'll try
>>> to reproduce it locally.
>>
>> This is because the O_EXCL flag was passed, which causes open to fail if
>> the block device is mounted.
>>
>> The revised patch attached should fix it.
>
> Yes, this patch fixes the issue for me.
>
> Thanks!

Any reason not to apply this patch yet? Hope it can land in the next
guix release, at least.


live well,
  vagrant

>> From 780327ebb0db74ca4cc43d26ba7cf945d64c7d30 Mon Sep 17 00:00:00 2001
>> From: Mathieu Othacehe <othacehe@gnu.org>
>> Date: Wed, 21 Oct 2020 10:42:50 +0200
>> Subject: [PATCH] system: reconfigure: Use the disk-installer if provided.
>>
>> ---
>>  gnu/build/bootloader.scm            |  4 ++--
>>  gnu/tests/reconfigure.scm           |  4 +++-
>>  guix/scripts/system/reconfigure.scm | 12 +++++++++---
>>  3 files changed, 14 insertions(+), 6 deletions(-)
>>
>> diff --git a/gnu/build/bootloader.scm b/gnu/build/bootloader.scm
>> index 5ec839f902..06a2c3ab76 100644
>> --- a/gnu/build/bootloader.scm
>> +++ b/gnu/build/bootloader.scm
>> @@ -39,9 +39,9 @@
>>        (let ((bv (get-bytevector-n input size)))
>>          (call-with-port
>>           (open-file-output-port device
>> -                                (file-options no-truncate no-create)
>> +                                (file-options no-truncate no-fail)
>>                                  (buffer-mode block)
>> -                                (native-transcoder))
>> +                                (make-transcoder (latin-1-codec)))
>>           (lambda (output)
>>             (seek output offset SEEK_SET)
>>             (put-bytevector output bv)))))))
>> diff --git a/gnu/tests/reconfigure.scm b/gnu/tests/reconfigure.scm
>> index 928a210a94..52beeef447 100644
>> --- a/gnu/tests/reconfigure.scm
>> +++ b/gnu/tests/reconfigure.scm
>> @@ -260,7 +260,9 @@ bootloader's configuration file."
>>       ;; test suite, the bootloader installer script is omitted. 'grub-install'
>>       ;; would attempt to write directly to the virtual disk if the
>>       ;; installation script were run.
>> -     (test (install-bootloader-program #f #f bootcfg bootcfg-file #f "/")))))
>> +     (test
>> +      (install-bootloader-program #f #f #f bootcfg bootcfg-file #f "/")))))
>> +
>>  
>>  (define %test-switch-to-system
>>    (system-test
>> diff --git a/guix/scripts/system/reconfigure.scm b/guix/scripts/system/reconfigure.scm
>> index d89caf80fc..b1982b20d2 100644
>> --- a/guix/scripts/system/reconfigure.scm
>> +++ b/guix/scripts/system/reconfigure.scm
>> @@ -204,7 +204,8 @@ services as defined by OS."
>>  ;;; Bootloader configuration.
>>  ;;;
>>  
>> -(define (install-bootloader-program installer bootloader-package bootcfg
>> +(define (install-bootloader-program installer disk-installer
>> +                                    bootloader-package bootcfg
>>                                      bootcfg-file device target)
>>    "Return an executable store item that, upon being evaluated, will install
>>  BOOTCFG to BOOTCFG-FILE, a target file name, on DEVICE, a file system device,
>> @@ -246,10 +247,12 @@ BOOTLOADER-PACKAGE."
>>               ;; a broken installation.
>>               (switch-symlinks new-gc-root #$bootcfg)
>>               (install-boot-config #$bootcfg #$bootcfg-file #$target)
>> -             (when #$installer
>> +             (when (or #$installer #$disk-installer)
>>                 (catch #t
>>                   (lambda ()
>> -                   (#$installer #$bootloader-package #$device #$target))
>> +                   (if #$installer
>> +                       (#$installer #$bootloader-package #$device #$target)
>> +                       (#$disk-installer #$bootloader-package 0 #$device)))
>>                   (lambda args
>>                     (delete-file new-gc-root)
>>                     (match args
>> @@ -272,11 +275,14 @@ additional configurations specified by MENU-ENTRIES can be selected."
>>    (let* ((bootloader (bootloader-configuration-bootloader configuration))
>>           (installer (and run-installer?
>>                           (bootloader-installer bootloader)))
>> +         (disk-installer (and run-installer?
>> +                              (bootloader-disk-image-installer bootloader)))
>>           (package (bootloader-package bootloader))
>>           (device (bootloader-configuration-target configuration))
>>           (bootcfg-file (bootloader-configuration-file bootloader)))
>>      (eval #~(parameterize ((current-warning-port (%make-void-port "w")))
>>                (primitive-load #$(install-bootloader-program installer
>> +                                                            disk-installer
>>                                                              package
>>                                                              bootcfg
>>                                                              bootcfg-file
>> -- 
>> 2.28.0

[-- Attachment #2: signature.asc --]
[-- Type: application/pgp-signature, Size: 227 bytes --]

  reply	other threads:[~2020-11-02 19:16 UTC|newest]

Thread overview: 10+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2020-10-20 17:06 bug#44101: Unable to use /dev/disk/by-id/ symlinks with u-boot and guix system reconfigure Vagrant Cascadian
2020-10-22  7:58 ` Mathieu Othacehe
2020-10-22 20:08   ` Vagrant Cascadian
2020-10-22 23:12     ` Bengt Richter
2020-10-23  8:13     ` Mathieu Othacehe
2020-10-23  8:44       ` Mathieu Othacehe
2020-10-24  1:40         ` Vagrant Cascadian
2020-11-02 19:14           ` Vagrant Cascadian [this message]
2020-11-03  7:02             ` Mathieu Othacehe
2020-10-23 15:14       ` Vagrant Cascadian

Reply instructions:

You may reply publicly to this message via plain-text email
using any one of the following methods:

* Save the following mbox file, import it into your mail client,
  and reply-to-all from there: mbox

  Avoid top-posting and favor interleaved quoting:
  https://en.wikipedia.org/wiki/Posting_style#Interleaved_style

  List information: https://guix.gnu.org/

* Reply using the --to, --cc, and --in-reply-to
  switches of git-send-email(1):

  git send-email \
    --in-reply-to=87pn4vo9jh.fsf@yucca \
    --to=vagrant@debian.org \
    --cc=44101@debbugs.gnu.org \
    --cc=othacehe@gnu.org \
    /path/to/YOUR_REPLY

  https://kernel.org/pub/software/scm/git/docs/git-send-email.html

* If your mail client supports setting the In-Reply-To header
  via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line before the message body.
Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/guix.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).