gexp: 'mixed-text-file' UTF-8-encodes its output.
* guix/gexp.scm (mixed-text-file)[build]: Call 'set-port-encoding!'. Signed-off-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
parent
57d4fc7b1a
commit
1f3d7b4534
|
@ -1921,6 +1921,7 @@ (define* (mixed-text-file name #:rest text)
|
||||||
(define build
|
(define build
|
||||||
(gexp (call-with-output-file (ungexp output "out")
|
(gexp (call-with-output-file (ungexp output "out")
|
||||||
(lambda (port)
|
(lambda (port)
|
||||||
|
(set-port-encoding! port "UTF-8")
|
||||||
(display (string-append (ungexp-splicing text)) port)))))
|
(display (string-append (ungexp-splicing text)) port)))))
|
||||||
|
|
||||||
(computed-file name build))
|
(computed-file name build))
|
||||||
|
|
Loading…
Reference in a new issue