diff options
| -rw-r--r-- | guix/derivations.scm | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/guix/derivations.scm b/guix/derivations.scm index c9db580de6..4ecf85aca2 100644 --- a/guix/derivations.scm +++ b/guix/derivations.scm @@ -171,6 +171,10 @@ available in STORE, recursively." '() x)) + ;; The contents of a derivation are typically ASCII, but choosing + ;; UTF-8 allows us to take the fast path for Guile's `scm_getc'. + (set-port-encoding! drv-port "UTF-8") + (let loop ((exp (read drv-port)) (result '())) (match exp |