slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

tools: bench.hs cleanup

Browse Source
This commit is contained in:
Simon Michael 2017-01-12 16:34:24 -08:00
parent 015b764d00
commit b2b1bf3038
1 changed files with 0 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
hledger/bench/bench.hs
View File

@ -1,14 +1,11 @@
-- bench -- bench
-- By default, show approximate times for some standard hledger operations on a sample journal. -- By default, show approximate times for some standard hledger operations on a sample journal.
-- With --criterion, show accurate times (slow). -- With --criterion, show accurate times (slow).
-- TODO With --quickbench, show approximate times for the commands in default.bench, using the first hledger executable on $PATH.
import Criterion.Main (defaultMainWith, defaultConfig, bench, nfIO) import Criterion.Main (defaultMainWith, defaultConfig, bench, nfIO)
-- import QuickBench (defaultMain) -- import QuickBench (defaultMain)
import System.Directory (getCurrentDirectory) import System.Directory (getCurrentDirectory)
import System.Environment (getArgs, withArgs) import System.Environment (getArgs, withArgs)
import System.Info (os)
import System.Process (readProcess)
import System.TimeIt (timeItT) import System.TimeIt (timeItT)
import Text.Printf import Text.Printf
import Hledger.Cli import Hledger.Cli
@ -60,14 +57,3 @@ benchWithCriterion = do
bench ("balance") $ nfIO $ balance opts j, bench ("balance") $ nfIO $ balance opts j,
bench ("stats") $ nfIO $ stats opts j bench ("stats") $ nfIO $ stats opts j
] ]
-- benchWithQuickbench = do
-- let whichcmd = if os == "mingw32" then "where" else "which"
-- exe <- init <$> readProcess whichcmd ["hledger"] ""
-- pwd <- getCurrentDirectory
-- printf "Benchmarking %s in %s with quickbench and shell\n" exe pwd
-- flip withArgs QuickBench.defaultMain [
-- "-fbench/default.bench"
-- ,"-v"
-- ,"hledger"
-- ]