diff options
| author | Josselin Poiret <dev@jpoiret.xyz> | 2022-01-15 14:49:56 +0100 |
|---|---|---|
| committer | Mathieu Othacehe <othacehe@gnu.org> | 2022-01-17 08:27:22 +0100 |
| commit | 750a0669ebec4f37b81d2affe9a6ad63ce1ecb3e (patch) | |
| tree | 79ef9deb599b7ab8f0a5c3ce55b7ef6f84eaf3c4 /gnu/installer/newt/final.scm | |
| parent | ac014ddd33f49c7e49cba8cae4fba92860c2b5ec (diff) | |
| download | guix-750a0669ebec4f37b81d2affe9a6ad63ce1ecb3e.tar.gz | |
installer: Use new installer-log-line everywhere.
* gnu/installer.scm (installer-program) * gnu/installer/final.scm (install-locale) * gnu/installer/newt.scm (init) * gnu/installer/newt/final.scm (run-final-page) * gnu/installer/newt/page.scm (run-form-with-clients) * gnu/installer/newt/partition.scm (run-partitioning-page) * gnu/installer/parted.scm (eligible-devices, mkpart, luks-format-and-open, luks-close, mount-user-partitions, umount-user-partitions, free-parted): * gnu/installer/steps.scm (run-installer-steps): * gnu/installer/utils.scm (run-command, send-to-clients): Use it. Signed-off-by: Mathieu Othacehe <othacehe@gnu.org>
Diffstat (limited to 'gnu/installer/newt/final.scm')
| -rw-r--r-- | gnu/installer/newt/final.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gnu/installer/newt/final.scm b/gnu/installer/newt/final.scm index 7f6dd9f075..efe422f4f4 100644 --- a/gnu/installer/newt/final.scm +++ b/gnu/installer/newt/final.scm @@ -109,7 +109,7 @@ a specific step, or restart the installer.")) (define (run-final-page result prev-steps) (define (wait-for-clients) (unless (null? (current-clients)) - (syslog "waiting with clients before starting final step~%") + (installer-log-line "waiting with clients before starting final step") (send-to-clients '(starting-final-step)) (match (select (current-clients) '() '()) (((port _ ...) _ _) @@ -119,7 +119,7 @@ a specific step, or restart the installer.")) ;; things such as changing the swap partition label. (wait-for-clients) - (syslog "proceeding with final step~%") + (installer-log-line "proceeding with final step") (let* ((configuration (format-configuration prev-steps result)) (user-partitions (result-step result 'partition)) (locale (result-step result 'locale)) |