diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2013-06-14 15:48:29 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2013-06-14 15:48:29 +0200 |
| commit | 0bd31a2188b6ee29b6280f58a577799d73a07ecf (patch) | |
| tree | 6e27482e7b8dd5d421dd64ee6b5a32c2da6bef1f /guix/derivations.scm | |
| parent | 62751a5ddd6e15cf80800f3549cfe3224c84a097 (diff) | |
| download | guix-0bd31a2188b6ee29b6280f58a577799d73a07ecf.tar guix-0bd31a2188b6ee29b6280f58a577799d73a07ecf.tar.gz | |
derivations: Micro-optimize `derivation-hash'.
* guix/derivations.scm (derivation-hash): Use a UTF-8-encoded string
output port. This makes things deterministic, and slightly faster.
Diffstat (limited to 'guix/derivations.scm')
| -rw-r--r-- | guix/derivations.scm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/guix/derivations.scm b/guix/derivations.scm index cf329819c4..3c433a2685 100644 --- a/guix/derivations.scm +++ b/guix/derivations.scm @@ -469,8 +469,9 @@ in SIZE bytes." (drv (make-derivation outputs inputs sources system builder args env-vars))) (sha256 - (string->utf8 (call-with-output-string - (cut write-derivation drv <>)))))))))) + (with-fluids ((%default-port-encoding "UTF-8")) + (string->utf8 (call-with-output-string + (cut write-derivation drv <>))))))))))) (define (store-path type hash name) ; makeStorePath "Return the store path for NAME/HASH/TYPE." |