From 71cc250449cc2d8e50e7a81736589f4bdf05a9dd Mon Sep 17 00:00:00 2001
From: Vincent Hanquez <vincent@snarc.org>
Date: Sat, 2 May 2015 05:41:45 +0100
Subject: [PATCH] [bench] add simple cryptohash vs cryptonite hash on file
 utility

---
 benchs/Hash.hs | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)
 create mode 100644 benchs/Hash.hs

diff --git a/benchs/Hash.hs b/benchs/Hash.hs
new file mode 100644
index 0000000..c0b5f03
--- /dev/null
+++ b/benchs/Hash.hs
@@ -0,0 +1,21 @@
+{-# 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