add Typeable to template

This commit is contained in:
Vincent Hanquez 2017-02-14 10:15:58 +00:00
parent 16fc2a3104
commit 9227ab9225
2 changed files with 6 additions and 2 deletions

View File

@ -9,18 +9,20 @@
-- %%MODULENAME%% cryptographic hash. -- %%MODULENAME%% cryptographic hash.
-- --
{-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE ForeignFunctionInterface #-}
{-# LANGUAGE DeriveDataTypeable #-}
module Crypto.Hash.%%MODULENAME%% module Crypto.Hash.%%MODULENAME%%
( %{CUSTOMIZABLE%}%%COMMA%% %%MODULENAME%%_%%CUSTOM_BITSIZE%% (..)%{CUSTOMIZABLE%} ( %{CUSTOMIZABLE%}%%COMMA%% %%MODULENAME%%_%%CUSTOM_BITSIZE%% (..)%{CUSTOMIZABLE%}
) where ) where
import Crypto.Hash.Types import Crypto.Hash.Types
import Foreign.Ptr (Ptr) import Foreign.Ptr (Ptr)
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) deriving (Show,Typeable)
instance HashAlgorithm %%MODULENAME%%_%%CUSTOM_BITSIZE%% where instance HashAlgorithm %%MODULENAME%%_%%CUSTOM_BITSIZE%% where
hashBlockSize _ = %%CUSTOM_BLOCK_SIZE_BYTES%% hashBlockSize _ = %%CUSTOM_BLOCK_SIZE_BYTES%%

View File

@ -9,15 +9,17 @@
-- %%MODULENAME%% cryptographic hash. -- %%MODULENAME%% cryptographic hash.
-- --
{-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE ForeignFunctionInterface #-}
{-# LANGUAGE DeriveDataTypeable #-}
module Crypto.Hash.%%MODULENAME%% ( %%MODULENAME%% (..) ) where module Crypto.Hash.%%MODULENAME%% ( %%MODULENAME%% (..) ) where
import Crypto.Hash.Types import Crypto.Hash.Types
import Foreign.Ptr (Ptr) import Foreign.Ptr (Ptr)
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) deriving (Show,Typeable)
instance HashAlgorithm %%MODULENAME%% where instance HashAlgorithm %%MODULENAME%% where
hashBlockSize _ = %%BLOCK_SIZE_BYTES%% hashBlockSize _ = %%BLOCK_SIZE_BYTES%%