[bug#53063] [PATCH wip-harden-installer 08/14] installer: Use run-command-in-installer in (gnu installer parted).

[Mathieu Othacehe]

Hello Josselin,

> * gnu/installer/parted.scm (remove-logical-devices,
> create-btrfs-file-system, create-ext4-file-system,
> create-fat16-file-system, create-fat32-file-system,
> create-jfs-file-system, create-ntfs-file-system,
> create-xfs-file-system, create-swap-partition, luks-format-and-open,
> luks-close): Use run-command-in-installer.
> (with-null-output-ports): Remove.

Overall the series looks really nice! This one is a bit problematic as
it breaks the installer tests because the extra "External command"
pages are not handled.

--8<---------------cut here---------------start------------->8---
Jan  7 11:44:28 localhost  
conversation expecting pattern ((quote list-selection) ((quote title) 
"Partitioning method") ((quote multiple-choices?) #f) ((quote items) 
(not-encrypted encrypted _ ...)))
/gnu/store/6c0dnvp7a1sym52s4yrjzm3wvbsv1666-shepherd-marionette.scm:1:1718: 
ERROR:
  1. &pattern-not-matched:
      pattern: ((quote list-selection) ((quote title) "Partitioning method") 
((quote multiple-choices?) #f) ((quote items) (not-encrypted encrypted _ ...)))
      sexp: (confirmation (title "External command") (text "The installer will 
run the following command:\n\"dmsetup\" \"remove_all\"\n"))
Backtrace:
Jan  7 11:44:28 localhost installer[193]: running form #<newt-form 184bd30> 
("External command") with 1 clients 
           2 (primitive-load "/gnu/store/qpsq43z9rdb7hlabzzyz6p8pzxb?")
In ice-9/eval.scm:
   191:35  1 (_ #f)
    619:8  0 (_ #(#<directory (guile-user) 7ffff3fd7c80> #<variabl?>))

ice-9/eval.scm:619:8: Throw to key `marionette-eval-failure' with args `((quote 
(choose-partitioning installer-socket #:encrypted? #f #:passphrase 
"thepassphrase" #:uefi-support? #f)))'.
note: keeping build directory `/tmp/guix-build-installation.drv-0'
builder for `/gnu/store/6xrbsa0psm30189rigjif17c6rvi8h9g-installation.drv' 
failed with exit code 1
--8<---------------cut here---------------end--------------->8---

Maybe we could only display those "External command" pages when the
command fails?

Another issue is that if any partitioning command fails, the installer
keeps going. Maybe we should instead propose to abort the installation
or restart the partitioning step?

Thanks,

Mathieu