diff options
author | Ludovic Courtès <ludo@gnu.org> | 2020-02-19 12:08:40 +0100 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2020-02-22 00:45:42 +0100 |
commit | 5c04b00cf463a543b8ffc9eb55991f6b4cc145dd (patch) | |
tree | d8bc8b028c606a76f3c78a2872dfdd859d5a77ec /gnu/installer/utils.scm | |
parent | 2cf65e1d543407bc7db43e7c7d39a215907efebc (diff) | |
download | guix-5c04b00cf463a543b8ffc9eb55991f6b4cc145dd.tar guix-5c04b00cf463a543b8ffc9eb55991f6b4cc145dd.tar.gz |
installer: Log important bits to syslog.
* gnu/installer.scm (installer-program): Log crashes with 'syslog'.
* gnu/installer/parted.scm (luks-format-and-open, luks-close)
(mount-user-partitions, umount-user-partitions): Add 'syslog' calls.
* gnu/installer/steps.scm (run-installer-steps): Log the running step
with 'syslog'.
* gnu/installer/utils.scm (run-shell-command): Add calls to 'syslog'.
Diffstat (limited to 'gnu/installer/utils.scm')
-rw-r--r-- | gnu/installer/utils.scm | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/gnu/installer/utils.scm b/gnu/installer/utils.scm index a5f390e7a2..842bd02ced 100644 --- a/gnu/installer/utils.scm +++ b/gnu/installer/utils.scm @@ -89,9 +89,13 @@ COMMAND exited successfully, #f otherwise." (format (current-error-port) (G_ "Command failed with exit code ~a.~%") (invoke-error-exit-status c)) + (syslog "command ~s failed with exit code ~a" + command (invoke-error-exit-status c)) (pause) #f)) + (syslog "running command ~s~%" command) (invoke "bash" "--init-file" file) + (syslog "command ~s succeeded~%" command) (newline) (pause) #t)))) |