(address . guix-patches@gnu.org)(name . Mathieu Othacehe)(address . m.othacehe@gmail.com)
20170414131113.831-1-m.othacehe@gmail.com
* guix/scripts/lint.scm (warn-if-package-has-input): Put (_ message)
in let, to avoid the following warning :
guix/scripts/lint.scm:251:37: warning: non-literal format string
---
guix/scripts/lint.scm | 8 ++++++--
1 file changed, 6 insertions(+), 2 deletions(-)
Toggle diff (30 lines)
diff --git a/guix/scripts/lint.scm b/guix/scripts/lint.scm
index 811f16706..1105dc418 100644
--- a/guix/scripts/lint.scm
+++ b/guix/scripts/lint.scm
@@ -6,6 +6,7 @@
;;; Copyright © 2016 Danny Milosavljevic <dannym+a@scratchpost.org>
;;; Copyright © 2016 Hartmut Goebel <h.goebel@crazy-compilers.com>
;;; Copyright © 2017 Alex Kost <alezost@gmail.com>
+;;; Copyright © 2017 Mathieu Othacehe <m.othacehe@gmail.com>
;;;
;;; This file is part of GNU Guix.
;;;
@@ -245,10 +246,13 @@ by two spaces; possible infraction~p at ~{~a~^, ~}")
(package-name package)
(if (> (length output) 0)
(string-append ":" (car output))
- ""))))
+ "")))
+ ;; Putting tr-msg in let prevents from this
+ ;; Guile warning: "non-literal format string".
+ (tr-msg (_ message)))
(when (member input input-names)
(emit-warning linted
- (format #f (_ message) input)
+ (format #f tr-msg input)
'inputs-to-check)))))
packages outputs))))
--
2.12.2