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

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit 5d4d8d83e4aa6db2e0a325e2ffb915c12fe5234d
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Thu Feb 10 23:02:43 2022 +0100

    status: Do not pass a non-literal format string to 'format'.
    
    * guix/status.scm (print-build-event): Use 'display' instead of 'format'
    for hooks.
---
 guix/status.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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))))
          (_