summaryrefslogtreecommitdiff
path: root/guix/scripts
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2013-07-03 01:17:11 +0200
committerLudovic Courtès <ludo@gnu.org>2013-07-03 01:18:24 +0200
commitb0fad8a2d45a47138e202644c542adbd6d5ee684 (patch)
tree3416eaf7a3370f4ca8077a3fa706ce3dd8abd0d1 /guix/scripts
parent69927e78de91b11d1fa93ffbf9a7cf915827b6e3 (diff)
downloadgnu-guix-b0fad8a2d45a47138e202644c542adbd6d5ee684.tar
gnu-guix-b0fad8a2d45a47138e202644c542adbd6d5ee684.tar.gz
Use `port-sha256' and `open-sha256-port'.
* guix/derivations.scm (derivation-hash): Add comment as to why we keep the plain `sha256' call. * guix/scripts/download.scm (guix-download): Use `port-sha256' instead of (compose sha256 get-bytevector-all). * guix/scripts/refresh.scm (update-package): Likewise.
Diffstat (limited to 'guix/scripts')
-rw-r--r--guix/scripts/download.scm2
-rw-r--r--guix/scripts/refresh.scm2
2 files changed, 2 insertions, 2 deletions
diff --git a/guix/scripts/download.scm b/guix/scripts/download.scm
index 3fbda034f5..87b420405c 100644
--- a/guix/scripts/download.scm
+++ b/guix/scripts/download.scm
@@ -116,7 +116,7 @@ Supported formats: 'nix-base32' (default), 'base32', and 'base16'
(or path
(leave (_ "~a: download failed~%")
arg))
- (compose sha256 get-bytevector-all)))
+ port-sha256))
(fmt (assq-ref opts 'format)))
(format #t "~a~%~a~%" path (fmt hash))
#t)))
diff --git a/guix/scripts/refresh.scm b/guix/scripts/refresh.scm
index aa74d6306b..c75ec4f091 100644
--- a/guix/scripts/refresh.scm
+++ b/guix/scripts/refresh.scm
@@ -137,7 +137,7 @@ values: 'interactive' (default), 'always', and 'never'."
(package-name package)
(package-version package) version)
(let ((hash (call-with-input-file tarball
- (compose sha256 get-bytevector-all))))
+ port-sha256)))
(update-package-source package version hash)))
(warning (_ "~a: version ~a could not be \
downloaded and authenticated; not updating")