From 1a5e600b5c0ec3730fd01ec97e81d609f981af45 Mon Sep 17 00:00:00 2001
From: Vivien Kraus <vivien@planete-kraus.eu>
Date: Wed, 1 Jan 2020 00:00:00 +0100
Subject: Add a hash function

---
 src/scm/webid-oidc/stubs.scm | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

(limited to 'src/scm/webid-oidc/stubs.scm')

diff --git a/src/scm/webid-oidc/stubs.scm b/src/scm/webid-oidc/stubs.scm
index ff94497..4f2036b 100644
--- a/src/scm/webid-oidc/stubs.scm
+++ b/src/scm/webid-oidc/stubs.scm
@@ -28,9 +28,16 @@
         (unless ret
           (raise-not-a-jwk key #f))
         ret))
-    (lambda (error)
+    (lambda error
       (raise-unsupported-crv (cadr error)))))
 
+(define (fix-hash alg payload)
+  (catch 'unsupported-alg
+    (lambda ()
+      (hash alg payload))
+    (lambda error
+      (raise-unsupported-alg (cadr error)))))
+
 (export
  base64-encode
  (fix-base64-decode . base64-decode)
@@ -38,7 +45,8 @@
  random-init!
  (fix-generate-key . generate-key)
  (fix-kty . kty)
- strip-key)
+ strip-key
+ (fix-hash . hash))
 
 ;; json reader from guile-json will not behave consistently with
 ;; SRFI-180 with objects: keys will be mapped to strings, not
-- 
cgit v1.2.3