Example hashing functions using `cryptonite`

Sha.hs

{-# LANGUAGE PackageImports #-}

module Crypto.Assertible
    (
      sha1Hex
    , sha1HmacHex

    , sha256Hash
    ) where

import "cryptonite" Crypto.Hash     as Crypto
import "cryptonite" Crypto.MAC.HMAC as Crypto
import Data.ByteArray          as Memory
import Data.ByteArray.Encoding as Memory
import Data.ByteString

sha1Hex :: ByteString -> ByteString
sha1Hex s = digestToHexByteString (hash s :: Digest SHA1)

sha1HmacHex :: ByteString -> ByteString -> ByteString
sha1HmacHex sec content = digestToHexByteString
     (Crypto.hmacGetDigest (Crypto.hmac sec content :: HMAC SHA1))

sha256Hash :: ByteString -> ByteString
sha256Hash s = digestToByteString (hash s :: Digest SHA256)

-- | Return the hexadecimal (base16) bytestring of the digest
--
-- See 'Data.ByteArray.convert' or 'Data.ByteArray.Encoding.Base' for
-- other encodings
digestToHexByteString :: Digest a -> ByteString
digestToHexByteString = Memory.convertToBase Memory.Base16

digestToByteString :: Digest a -> ByteString
digestToByteString = Memory.convert