module Raaz.Hash.Sha256.Implementation.CPortable
( implementation, cPortable
) where
import Raaz.Core
import Raaz.Hash.Internal
import Raaz.Hash.Sha.Util
import Raaz.Hash.Sha256.Internal
implementation :: Implementation SHA256
implementation = SomeHashI cPortable
cPortable :: HashI SHA256 (HashMemory SHA256)
cPortable = portableC c_sha256_compress length64Write
foreign import ccall unsafe
"raaz/hash/sha256/portable.h raazHashSha256PortableCompress"
c_sha256_compress :: Pointer -> Int -> Pointer -> IO ()