From d0a92b7531274a71352c3620a77cbe81b18b7232 Mon Sep 17 00:00:00 2001
From: Ludovic Courtès <ludo@gnu.org>
Date: Fri, 1 Jun 2012 23:29:55 +0200
Subject: Move `sha256' to (guix utils).

* guix/derivations.scm (sha256): Move to...
* guix/utils.scm (sha256): ... here.
---
 guix/utils.scm | 15 ++++++++++++++-
 1 file changed, 14 insertions(+), 1 deletion(-)

(limited to 'guix/utils.scm')

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 @@ (define bytevector->base32-string
 
 (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))
+
-- 
cgit v1.2.3