From 9a53a258ff3fc04b795771c0147f27f2a61c1a8d Mon Sep 17 00:00:00 2001 From: Filip Gralinski Date: Wed, 11 Sep 2019 21:30:37 +0200 Subject: [PATCH] Show metric names parsed from evaluation schemes --- Handler/Shared.hs | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/Handler/Shared.hs b/Handler/Shared.hs index 6c8caa4..963d6ac 100644 --- a/Handler/Shared.hs +++ b/Handler/Shared.hs @@ -413,11 +413,14 @@ formatScore (Just precision) = T.pack . (printf "%0.*f" precision) formatParameter :: Parameter -> Text formatParameter param = parameterName param ++ "=" ++ parameterValue param +formatTestEvaluationScheme :: Test -> Text +formatTestEvaluationScheme = T.pack . evaluationSchemeName . testMetric + formatTest :: Test -> Text -formatTest test = (testName test) ++ "/" ++ (T.pack $ show $ testMetric test) +formatTest test = (testName test) ++ "/" ++ (formatTestEvaluationScheme test) formatTestForHtml :: Test -> Text -formatTestForHtml test = (testName test) ++ " " ++ (T.pack $ show $ testMetric test) +formatTestForHtml test = (testName test) ++ " " ++ (formatTestEvaluationScheme test) findFilePossiblyCompressed :: FilePath -> IO (Maybe FilePath) findFilePossiblyCompressed baseFilePath = do