diff options
| author | Andrew Tropin <andrew@trop.in> | 2021-06-18 07:15:36 +0300 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2021-06-23 23:35:28 +0200 |
| commit | 1f3d7b45349d43e5cc02594083e0cd44ef730992 (patch) | |
| tree | b25092fbf6d057c9612c77325181096301445adf /guix/gexp.scm | |
| parent | 57d4fc7b1aeb11540ffdda8d49a244244514d3e4 (diff) | |
| download | guix-1f3d7b45349d43e5cc02594083e0cd44ef730992.tar guix-1f3d7b45349d43e5cc02594083e0cd44ef730992.tar.gz | |
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>
Diffstat (limited to 'guix/gexp.scm')
| -rw-r--r-- | guix/gexp.scm | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/guix/gexp.scm b/guix/gexp.scm index afb935761e..187f5c5e85 100644 --- 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)) |