From f95fc680ba4a1356f66cbd69222b3deb788fe632 Mon Sep 17 00:00:00 2001
From: Filip Gralinski <filipg@amu.edu.pl>
Date: Sat, 29 May 2021 19:12:24 +0200
Subject: [PATCH] Fix showing the test name

---
 Handler/Tables.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/Handler/Tables.hs b/Handler/Tables.hs
index d8cdce3..2fb49ac 100644
--- a/Handler/Tables.hs
+++ b/Handler/Tables.hs
@@ -9,6 +9,8 @@ import Handler.SubmissionView
 import Handler.TagUtils
 import Handler.JWT
 
+import Prelude (read)
+
 import Data.Diff
 
 import qualified Yesod.Table as Table
@@ -41,7 +43,7 @@ data TestReference = TestReference Text Text
 instance ToJSON TestReference where
     toJSON (TestReference metric n) = object
         [ "name" .= n,
-          "metric" .= metric
+          "metric" .= (Data.Text.pack $ evaluationSchemeName $ read $ Data.Text.unpack metric)
         ]
 
 instance ToSchema TestReference where