diff --git a/bench/Evaluation.hs b/bench/Evaluation.hs index 46c8a54fa..d9de391c1 100644 --- a/bench/Evaluation.hs +++ b/bench/Evaluation.hs @@ -58,8 +58,8 @@ 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 :: Proxy 'Language.Ruby) rubyParser -evalPythonProject = justEvaluating <=< evaluateProject (Proxy :: Proxy 'Language.Python) pythonParser +evalRubyProject = justEvaluating <=< evaluateProject (Proxy @'Language.Ruby) rubyParser +evalPythonProject = justEvaluating <=< 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]