Fix bug with the wrong result being shown

This commit is contained in:
Filip Gralinski 2020-01-04 22:35:25 +01:00
parent 763de554e5
commit 70035e5dcf

View File

@ -408,7 +408,7 @@ getScore testId variantId = do
E.&&. (evaluation ^. EvaluationVersion E.==. E.just (submission ^. SubmissionVersion)
E.||. E.isNothing (evaluation ^. EvaluationVersion))
E.&&. evaluation ^. EvaluationTest E.==. E.val testId)
E.orderBy [E.desc (E.isNothing (evaluation ^. EvaluationVersion))]
E.orderBy [E.asc (E.isNothing (evaluation ^. EvaluationVersion))]
return evaluation
return $ case evaluations of
(e:_) -> evaluationScore $ entityVal e