s464900/gonito
1
0
Fork 0
forked from filipg/gonito
Code Issues Pull Requests Projects Releases Wiki Activity

Fix showing the test name

Browse Source
This commit is contained in:
Filip Gralinski 2021-05-29 19:12:24 +02:00
parent 30c7727d6a
commit f95fc680ba
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Handler/Tables.hs
View File

@ -9,6 +9,8 @@ import Handler.SubmissionView
import Handler.TagUtils import Handler.TagUtils
import Handler.JWT import Handler.JWT
import Prelude (read)
import Data.Diff import Data.Diff
import qualified Yesod.Table as Table import qualified Yesod.Table as Table
@ -41,7 +43,7 @@ data TestReference = TestReference Text Text
instance ToJSON TestReference where instance ToJSON TestReference where
toJSON (TestReference metric n) = object toJSON (TestReference metric n) = object
[ "name" .= n, [ "name" .= n,
"metric" .= metric "metric" .= (Data.Text.pack $ evaluationSchemeName $ read $ Data.Text.unpack metric)
] ]
instance ToSchema TestReference where instance ToSchema TestReference where