diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2012-06-01 23:29:55 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2012-06-03 20:26:45 +0200 |
| commit | d0a92b7531274a71352c3620a77cbe81b18b7232 (patch) | |
| tree | 89fb2986338e019aaff8eda5acfb193d0ccf8998 | |
| parent | e87088c9d5fccaadb6a1b112b8791b5d0cd74a67 (diff) | |
| download | guix-d0a92b7531274a71352c3620a77cbe81b18b7232.tar guix-d0a92b7531274a71352c3620a77cbe81b18b7232.tar.gz | |
Move `sha256' to (guix utils).
* guix/derivations.scm (sha256): Move to...
* guix/utils.scm (sha256): ... here.
| -rw-r--r-- | guix/derivations.scm | 6 | ||||
| -rw-r--r-- | guix/utils.scm | 15 |
2 files changed, 14 insertions, 7 deletions
diff --git a/guix/derivations.scm b/guix/derivations.scm index 9bdcdacf1f..3faffd0e61 100644 --- a/guix/derivations.scm +++ b/guix/derivations.scm @@ -25,9 +25,6 @@ #:use-module (ice-9 match) #:use-module (ice-9 rdelim) #:use-module (guix store) - #:use-module ((chop hash) - #:select (bytevector-hash - hash-method/sha256)) #:export (derivation? derivation-outputs derivation-inputs @@ -187,9 +184,6 @@ that form." env-vars)) (display ")" port)))) -(define (sha256 bv) - "Return the SHA256 of BV as a bytevector." - (bytevector-hash hash-method/sha256 bv)) (define (derivation-hash drv) ; `hashDerivationModulo' in derivations.cc "Return the hash of DRV, modulo its fixed-output inputs, as a bytevector." diff --git a/guix/utils.scm b/guix/utils.scm index 69abcb4b55..db37d432e8 100644 --- a/guix/utils.scm +++ b/guix/utils.scm @@ -19,9 +19,13 @@ (define-module (guix utils) #:use-module (srfi srfi-60) #:use-module (rnrs bytevectors) + #:use-module ((chop hash) + #:select (bytevector-hash + hash-method/sha256)) #:export (bytevector-quintet-length bytevector->base32-string - bytevector->nix-base32-string)) + bytevector->nix-base32-string + sha256)) (define bytevector-quintet-ref (let* ((ref bytevector-u8-ref) @@ -98,3 +102,12 @@ the previous application or INIT." (define bytevector->nix-base32-string (make-bytevector->base32-string %nix-base32-chars)) + +;;; +;;; Hash. +;;; + +(define (sha256 bv) + "Return the SHA256 of BV as a bytevector." + (bytevector-hash hash-method/sha256 bv)) + |