ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-24 21:38:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

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

Browse source 
* 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
1 changed files with 4 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
guix/derivations.scm
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