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

remove / comment stuff

Browse Source
This commit is contained in:
Vincent Hanquez 2015-05-01 07:36:28 +01:00
parent d99c430080
commit 5d3e825f2e
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Crypto/Hash/Types.hs
View File

@ -15,8 +15,6 @@ module Crypto.Hash.Types
) )
where where
import Data.ByteString (ByteString)
import Crypto.Internal.Compat
import Crypto.Internal.ByteArray (ByteArrayAccess, Bytes) import Crypto.Internal.ByteArray (ByteArrayAccess, Bytes)
import qualified Crypto.Internal.ByteArray as B import qualified Crypto.Internal.ByteArray as B
import Data.Word import Data.Word
@ -43,8 +41,10 @@ class HashAlgorithm a where
hashInternalUpdate :: Ptr (Context a) -> Ptr Word8 -> Word32 -> IO () hashInternalUpdate :: Ptr (Context a) -> Ptr Word8 -> Word32 -> IO ()
hashInternalFinalize :: Ptr (Context a) -> Ptr (Digest a) -> IO () hashInternalFinalize :: Ptr (Context a) -> Ptr (Digest a) -> IO ()
{-
hashContextGetAlgorithm :: HashAlgorithm a => Context a -> a hashContextGetAlgorithm :: HashAlgorithm a => Context a -> a
hashContextGetAlgorithm = undefined hashContextGetAlgorithm = undefined
-}
-- | Represent a context for a given hash algorithm. -- | Represent a context for a given hash algorithm.
newtype Context a = Context Bytes newtype Context a = Context Bytes