haskell/cryptonite
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Update generation templates per latest changes

Browse Source
This commit is contained in:
Olivier Chéron 2019-02-25 06:42:44 +01:00
parent 65932e5a7e
commit 8c77f0c1ea
2 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gen/template/hash-len.hs
View File

@ -5,7 +5,7 @@
-- Stability : experimental -- Stability : experimental
-- Portability : unknown -- Portability : unknown
-- --
-- module containing the binding functions to work with the -- Module containing the binding functions to work with the
-- %%MODULENAME%% cryptographic hash. -- %%MODULENAME%% cryptographic hash.
-- --
{-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE ForeignFunctionInterface #-}
@ -19,13 +19,12 @@ module Crypto.Hash.%%MODULENAME%%
import Crypto.Hash.Types import Crypto.Hash.Types
import Foreign.Ptr (Ptr) import Foreign.Ptr (Ptr)
import Data.Data import Data.Data
import Data.Typeable
import Data.Word (Word8, Word32) import Data.Word (Word8, Word32)
%{CUSTOMIZABLE%} %{CUSTOMIZABLE%}
-- | %%MODULENAME%% (%%CUSTOM_BITSIZE%% bits) cryptographic hash algorithm -- | %%MODULENAME%% (%%CUSTOM_BITSIZE%% bits) cryptographic hash algorithm
data %%MODULENAME%%_%%CUSTOM_BITSIZE%% = %%MODULENAME%%_%%CUSTOM_BITSIZE%% data %%MODULENAME%%_%%CUSTOM_BITSIZE%% = %%MODULENAME%%_%%CUSTOM_BITSIZE%%
deriving (Show,Data,Typeable) deriving (Show,Data)
instance HashAlgorithm %%MODULENAME%%_%%CUSTOM_BITSIZE%% where instance HashAlgorithm %%MODULENAME%%_%%CUSTOM_BITSIZE%% where
type HashBlockSize %%MODULENAME%%_%%CUSTOM_BITSIZE%% = %%CUSTOM_BLOCK_SIZE_BYTES%% type HashBlockSize %%MODULENAME%%_%%CUSTOM_BITSIZE%% = %%CUSTOM_BLOCK_SIZE_BYTES%%

5
gen/template/hash.hs
View File

@ -5,7 +5,7 @@
-- Stability : experimental -- Stability : experimental
-- Portability : unknown -- Portability : unknown
-- --
-- module containing the binding functions to work with the -- Module containing the binding functions to work with the
-- %%MODULENAME%% cryptographic hash. -- %%MODULENAME%% cryptographic hash.
-- --
{-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE ForeignFunctionInterface #-}
@ -17,12 +17,11 @@ module Crypto.Hash.%%MODULENAME%% ( %%MODULENAME%% (..) ) where
import Crypto.Hash.Types import Crypto.Hash.Types
import Foreign.Ptr (Ptr) import Foreign.Ptr (Ptr)
import Data.Data import Data.Data
import Data.Typeable
import Data.Word (Word8, Word32) import Data.Word (Word8, Word32)
-- | %%MODULENAME%% cryptographic hash algorithm -- | %%MODULENAME%% cryptographic hash algorithm
data %%MODULENAME%% = %%MODULENAME%% data %%MODULENAME%% = %%MODULENAME%%
deriving (Show,Data,Typeable) deriving (Show,Data)
instance HashAlgorithm %%MODULENAME%% where instance HashAlgorithm %%MODULENAME%% where
type HashBlockSize %%MODULENAME%% = %%BLOCK_SIZE_BYTES%% type HashBlockSize %%MODULENAME%% = %%BLOCK_SIZE_BYTES%%