From d6d16c1c0d2015946ea7318a0c944a31e78a461b Mon Sep 17 00:00:00 2001 From: Rob Rix Date: Wed, 23 Oct 2019 11:38:10 -0400 Subject: [PATCH] Factor justEvaluating into evaluateProject. --- bench/Evaluation.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/bench/Evaluation.hs b/bench/Evaluation.hs index d9de391c1..c999694f8 100644 --- a/bench/Evaluation.hs +++ b/bench/Evaluation.hs @@ -58,11 +58,11 @@ callGraphProject' session proxy parser path = fmap (first show) . runTask sessio callGraphProject proxy parser paths = withOptions defaultOptions $ \ config logger statter -> callGraphProject' (TaskSession config "" False logger statter) proxy parser paths -evalRubyProject = justEvaluating <=< evaluateProject (Proxy @'Language.Ruby) rubyParser -evalPythonProject = justEvaluating <=< evaluateProject (Proxy @'Language.Python) pythonParser +evalRubyProject = evaluateProject (Proxy @'Language.Ruby) rubyParser +evalPythonProject = evaluateProject (Proxy @'Language.Python) pythonParser evaluateProject proxy parser path = withOptions defaultOptions $ \ config logger statter -> - evaluateProject' (TaskSession config "" False logger statter) proxy parser [Path.toString path] + justEvaluating =<< evaluateProject' (TaskSession config "" False logger statter) proxy parser [Path.toString path] pyEval :: Path.RelFile -> Benchmarkable pyEval p = nfIO $ () <$ evalPythonProject (Path.relDir "bench/bench-fixtures/python" p)