From 57ebe66905246a1197294db45a633fbbc4fa2b4a Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Thu, 2 Apr 2009 21:01:55 +0000 Subject: [PATCH] jc svn: r14408 --- collects/web-server/stuffers/hmac-sha1.ss | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/web-server/stuffers/hmac-sha1.ss b/collects/web-server/stuffers/hmac-sha1.ss index 00520efe29..5754f0f72b 100644 --- a/collects/web-server/stuffers/hmac-sha1.ss +++ b/collects/web-server/stuffers/hmac-sha1.ss @@ -15,11 +15,11 @@ (ffi-lib libcrypto-so '("" "0.9.8b" "0.9.8" "0.9.7"))) (define EVP_SHA1 - (get-ffi-obj 'EVP_sha1 libcrypto-so + (get-ffi-obj 'EVP_sha1 libcrypto (_fun f-> _fpointer))) (define HMAC-SHA1/raw - (get-ffi-obj 'HMAC libcrypto-so + (get-ffi-obj 'HMAC libcrypto (_fun [EVP_MD : _fpointer = (EVP_SHA1)] [key : _bytes] [key_len : _int = (bytes-length key)]