Browse Source

Move `sha256' to (guix utils).

* guix/derivations.scm (sha256): Move to...
* guix/utils.scm (sha256): ... here.
gn-latest-20200428
Ludovic Courtès 9 years ago
parent
commit
d0a92b7531
2 changed files with 14 additions and 7 deletions
  1. +0
    -6
      guix/derivations.scm
  2. +14
    -1
      guix/utils.scm

+ 0
- 6
guix/derivations.scm View File

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


+ 14
- 1
guix/utils.scm View File

@ -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))

Loading…
Cancel
Save