diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2022-02-10 23:02:43 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2022-02-16 16:49:27 +0100 |
| commit | 5d4d8d83e4aa6db2e0a325e2ffb915c12fe5234d (patch) | |
| tree | 2101bf092fc3fbed4afe2bb07384f4b3d49ef72d | |
| parent | 086813f63ced22d8c10d2cd5d0aad717c02b30a4 (diff) | |
| download | guix-5d4d8d83e4aa6db2e0a325e2ffb915c12fe5234d.tar.gz guix-5d4d8d83e4aa6db2e0a325e2ffb915c12fe5234d.zip | |
status: Do not pass a non-literal format string to 'format'.
* guix/status.scm (print-build-event): Use 'display' instead of 'format'
for hooks.
| -rw-r--r-- | guix/status.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/guix/status.scm b/guix/status.scm index 5b903372f1..b8905c9542 100644 --- a/guix/status.scm +++ b/guix/status.scm @@ -503,7 +503,7 @@ substitutes being downloaded." (let ((hook-type (assq-ref properties 'hook))) (or (and=> (hook-message hook-type) (lambda (msg) - (format port (info msg)))) + (display (info msg) port))) (format port (info (G_ "running profile hook of type '~a'...")) hook-type)))) (_ |