diff options
| author | Mark H Weaver <mhw@netris.org> | 2016-10-19 10:54:36 -0400 |
|---|---|---|
| committer | Mark H Weaver <mhw@netris.org> | 2016-10-19 10:54:36 -0400 |
| commit | d2478b4cdd6f1db44f4725b39489aca89d3d9180 (patch) | |
| tree | bc4714453fd9b7a2e64fcd5f58c24d371dbb91d8 /guix/scripts/hash.scm | |
| parent | c9a71c6fdab6914dd648b76c349c3af9018cad35 (diff) | |
| parent | 152ffe7cb6ba02915d8645102e0f6dfeb639090d (diff) | |
Merge branch 'master' into core-updates
Diffstat (limited to 'guix/scripts/hash.scm')
| -rw-r--r-- | guix/scripts/hash.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/guix/scripts/hash.scm b/guix/scripts/hash.scm index a6eced92fb..b269ead50f 100644 --- a/guix/scripts/hash.scm +++ b/guix/scripts/hash.scm @@ -25,7 +25,7 @@ #:use-module (guix ui) #:use-module (guix scripts) #:use-module (guix utils) - #:use-module (rnrs io ports) + #:use-module (ice-9 binary-ports) #:use-module (rnrs files) #:use-module (ice-9 match) #:use-module (srfi srfi-1) @@ -137,7 +137,7 @@ and 'hexadecimal' can be used as well).\n")) (if (assoc-ref opts 'recursive?) (let-values (((port get-hash) (open-sha256-port))) (write-file file port #:select? select?) - (flush-output-port port) + (force-output port) (get-hash)) (call-with-input-file file port-sha256)))) |