ui: Fix format string in `warning'.

* guix/ui.scm (warning)[augmented-format-string]: Add missing ~*.

diff --git a/guix/ui.scm b/guix/ui.scm
index db0711b..938b5d2 100644 (file)
--- a/guix/ui.scm
+++ b/guix/ui.scm
@@ -381,7 +381,7 @@ WIDTH columns."
     ;; All this just to preserve `-Wformat' warnings.  Too much?
 
     (define (augmented-format-string fmt)
-      (string-append "~:[~;guix ~a: ~]~a" (syntax->datum fmt)))
+      (string-append "~:[~*~;guix ~a: ~]~a" (syntax->datum fmt)))
 
     (define prefix
       #'(_ "warning: "))