diff --git a/Handler/Tables.hs b/Handler/Tables.hs index f07cbea..25e81ab 100644 --- a/Handler/Tables.hs +++ b/Handler/Tables.hs @@ -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