22 lines
570 B
Haskell
22 lines
570 B
Haskell
{-# LANGUAGE PackageImports #-}
|
|
module Main where
|
|
|
|
|
|
import System.Environment
|
|
import qualified Data.ByteString.Lazy as L
|
|
import "cryptonite" Crypto.Hash
|
|
import qualified "cryptohash" Crypto.Hash as Old
|
|
|
|
main = do
|
|
args <- getArgs
|
|
case args of
|
|
[] -> error "usage: bench <big-file>"
|
|
"old":x:_ -> do
|
|
r <- L.readFile x
|
|
let d = Old.hashlazy r :: Old.Digest Old.SHA1
|
|
putStrLn $ show d
|
|
x:_ -> do
|
|
r <- L.readFile x
|
|
let d = hashlazy r :: Digest SHA1
|
|
putStrLn $ show d
|