From 7a00f761db31ada5098d3e4a2ce995fa775c47c9 Mon Sep 17 00:00:00 2001
From: code <code@mail.matthias.benkard.de>
Date: Mon, 10 Nov 2014 22:04:35 +0100
Subject: Update for Racket 6.1.

---
 hmac.rkt | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'hmac.rkt')

diff --git a/hmac.rkt b/hmac.rkt
index b618537..3a23119 100644
--- a/hmac.rkt
+++ b/hmac.rkt
@@ -31,6 +31,13 @@
 ;;
 ;;  (hmac whirlpool 64 64 #"<secret key>" #"hello")
 ;;
+(: hmac ((Bytes -> Exact-Nonnegative-Integer)
+         Exact-Nonnegative-Integer
+         Exact-Nonnegative-Integer
+         Bytes
+         Bytes
+         ->
+         Exact-Nonnegative-Integer))
 (define (hmac hashfn blocksize hashsize key msg)
   (let ([opad (make-bytes blocksize #x5c)]
         [ipad (make-bytes blocksize #x36)]
-- 
cgit v1.2.3