From b45e8e2c2c78cfb4bf28e6a569fe5019b09034a5 Mon Sep 17 00:00:00 2001 From: Vincent Hanquez Date: Wed, 6 May 2015 07:55:37 +0100 Subject: [PATCH] [HASH] update template to not put the deprecated foreign header --- gen/template/hash-len.hs | 6 +++--- gen/template/hash.hs | 6 +++--- 2 files changed, 6 insertions(+), 6 deletions(-) diff --git a/gen/template/hash-len.hs b/gen/template/hash-len.hs index e429d80..37257c4 100644 --- a/gen/template/hash-len.hs +++ b/gen/template/hash-len.hs @@ -30,11 +30,11 @@ instance HashAlgorithm %%MODULENAME%%_%%CUSTOM_BITSIZE%% where hashInternalFinalize = c_%%HASHNAME%%_finalize %{CUSTOMIZABLE%} -foreign import ccall unsafe "cryptonite_%%HEADER_FILE%% cryptonite_%%HASHNAME%%_init" +foreign import ccall unsafe "cryptonite_%%HASHNAME%%_init" c_%%HASHNAME%%_init :: Ptr (Context a) -> Word32 -> IO () -foreign import ccall "cryptonite_%%HEADER_FILE%% cryptonite_%%HASHNAME%%_update" +foreign import ccall "cryptonite_%%HASHNAME%%_update" c_%%HASHNAME%%_update :: Ptr (Context a) -> Ptr Word8 -> Word32 -> IO () -foreign import ccall unsafe "cryptonite_%%HEADER_FILE%% cryptonite_%%HASHNAME%%_finalize" +foreign import ccall unsafe "cryptonite_%%HASHNAME%%_finalize" c_%%HASHNAME%%_finalize :: Ptr (Context a) -> Ptr (Digest a) -> IO () diff --git a/gen/template/hash.hs b/gen/template/hash.hs index e4b4dd0..06ac18c 100644 --- a/gen/template/hash.hs +++ b/gen/template/hash.hs @@ -26,11 +26,11 @@ instance HashAlgorithm %%MODULENAME%% where hashInternalUpdate = c_%%HASHNAME%%_update hashInternalFinalize = c_%%HASHNAME%%_finalize -foreign import ccall unsafe "cryptonite_%%HEADER_FILE%% cryptonite_%%HASHNAME%%_init" +foreign import ccall unsafe "cryptonite_%%HASHNAME%%_init" c_%%HASHNAME%%_init :: Ptr (Context a)-> IO () -foreign import ccall "cryptonite_%%HEADER_FILE%% cryptonite_%%HASHNAME%%_update" +foreign import ccall "cryptonite_%%HASHNAME%%_update" c_%%HASHNAME%%_update :: Ptr (Context a) -> Ptr Word8 -> Word32 -> IO () -foreign import ccall unsafe "cryptonite_%%HEADER_FILE%% cryptonite_%%HASHNAME%%_finalize" +foreign import ccall unsafe "cryptonite_%%HASHNAME%%_finalize" c_%%HASHNAME%%_finalize :: Ptr (Context a) -> Ptr (Digest a) -> IO ()