keccak-0.1.1: test/Test/Cryptonite.hs

module Test.Cryptonite where

import           Crypto.Hash        (Digest, Keccak_256, hash)
import           Data.ByteArray     (convert)
import qualified Data.ByteString    as BS

cryptoniteKeccak' :: BS.ByteString -> BS.ByteString
cryptoniteKeccak' = convert . cryptoniteKeccak

cryptoniteKeccak :: BS.ByteString -> Digest Keccak_256
cryptoniteKeccak = hash