~ruther/guix-local: derivations: Micro-optimize `derivation-hash'.

0bd31a2188b6ee29b6280f58a577799d73a07ecf — Ludovic Courtès 12 years ago 62751a5

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.

patch browse .tar.gz

1 files changed, 3 insertions(+), 2 deletions(-)

M guix/derivations.scm

M guix/derivations.scm => guix/derivations.scm +3 -2

@@ 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."