derivations: Set input port to UTF-8 in `read-derivation'.

* guix/derivations.scm (read-derivation): Set DRV-PORT's encoding to
  UTF-8.
This commit is contained in:
Ludovic Courtès 2012-10-06 01:24:46 +02:00
parent 58ddf10ea3
commit df7bbd3813

View file

@ -171,6 +171,10 @@ (define (make-input-drvs x)
'()
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