status: Do not pass a non-literal format string to 'format'.

* guix/status.scm (print-build-event): Use 'display' instead of 'format' for hooks.
2022-02-10 23:02:43 +01:00 · 2022-02-10 23:02:43 +01:00 · 5d4d8d83e4
commit 5d4d8d83e4
parent 086813f63c
1 changed files with 1 additions and 1 deletions
--- 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))))
         (_