From 8c77f0c1ea2f9ba87d34af2f311f24a1434928b1 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Olivier=20Ch=C3=A9ron?= Date: Mon, 25 Feb 2019 06:42:44 +0100 Subject: [PATCH] Update generation templates per latest changes --- gen/template/hash-len.hs | 5 ++--- gen/template/hash.hs | 5 ++--- 2 files changed, 4 insertions(+), 6 deletions(-) diff --git a/gen/template/hash-len.hs b/gen/template/hash-len.hs index 5ddff85..bbdb46a 100644 --- a/gen/template/hash-len.hs +++ b/gen/template/hash-len.hs @@ -5,7 +5,7 @@ -- Stability : experimental -- Portability : unknown -- --- module containing the binding functions to work with the +-- Module containing the binding functions to work with the -- %%MODULENAME%% cryptographic hash. -- {-# LANGUAGE ForeignFunctionInterface #-} @@ -19,13 +19,12 @@ module Crypto.Hash.%%MODULENAME%% import Crypto.Hash.Types import Foreign.Ptr (Ptr) import Data.Data -import Data.Typeable import Data.Word (Word8, Word32) %{CUSTOMIZABLE%} -- | %%MODULENAME%% (%%CUSTOM_BITSIZE%% bits) cryptographic hash algorithm data %%MODULENAME%%_%%CUSTOM_BITSIZE%% = %%MODULENAME%%_%%CUSTOM_BITSIZE%% - deriving (Show,Data,Typeable) + deriving (Show,Data) instance HashAlgorithm %%MODULENAME%%_%%CUSTOM_BITSIZE%% where type HashBlockSize %%MODULENAME%%_%%CUSTOM_BITSIZE%% = %%CUSTOM_BLOCK_SIZE_BYTES%% diff --git a/gen/template/hash.hs b/gen/template/hash.hs index c602b54..4748054 100644 --- a/gen/template/hash.hs +++ b/gen/template/hash.hs @@ -5,7 +5,7 @@ -- Stability : experimental -- Portability : unknown -- --- module containing the binding functions to work with the +-- Module containing the binding functions to work with the -- %%MODULENAME%% cryptographic hash. -- {-# LANGUAGE ForeignFunctionInterface #-} @@ -17,12 +17,11 @@ module Crypto.Hash.%%MODULENAME%% ( %%MODULENAME%% (..) ) where import Crypto.Hash.Types import Foreign.Ptr (Ptr) import Data.Data -import Data.Typeable import Data.Word (Word8, Word32) -- | %%MODULENAME%% cryptographic hash algorithm data %%MODULENAME%% = %%MODULENAME%% - deriving (Show,Data,Typeable) + deriving (Show,Data) instance HashAlgorithm %%MODULENAME%% where type HashBlockSize %%MODULENAME%% = %%BLOCK_SIZE_BYTES%%