diff options
Diffstat (limited to 'ExpensiveHash.hs')
| -rw-r--r-- | ExpensiveHash.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/ExpensiveHash.hs b/ExpensiveHash.hs index ed7e859..f9a9548 100644 --- a/ExpensiveHash.hs +++ b/ExpensiveHash.hs @@ -63,6 +63,8 @@ benchmarkExpensiveHash rounds tunables expected = do benchmarkTunables :: Tunables -> IO () benchmarkTunables tunables = do + putStrLn "/proc/cpuinfo:" + putStrLn =<< readFile "/proc/cpuinfo" putStrLn "Note that expected times are for 1 core machine." putStrLn "If this machine has 2 cores, the actual times should be half the expected times." putStrLn "Benchmarking 16 rounds of key generation hash..." |