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>
2021-06-18 07:15:36 +03:00 · 2021-06-18 07:15:36 +03:00 · 1f3d7b4534
commit 1f3d7b4534
parent 57d4fc7b1a
1 changed files with 1 additions and 0 deletions
--- a/guix/gexp.scm
+++ b/guix/gexp.scm
@ -1921,6 +1921,7 @@ This is the declarative counterpart of 'text-file*'."
  (define build
    (gexp (call-with-output-file (ungexp output "out")
            (lambda (port)
+              (set-port-encoding! port "UTF-8")
              (display (string-append (ungexp-splicing text)) port)))))

  (computed-file name build))