diff --git a/src/Utils/Sheet.hs b/src/Utils/Sheet.hs index 6525c7abb..595c0729e 100644 --- a/src/Utils/Sheet.hs +++ b/src/Utils/Sheet.hs @@ -37,7 +37,7 @@ sheetOldUnassigned tid ssh csh = do E.where_ . E.exists . E.from $ \submission -> E.where_ $ submission E.^. SubmissionSheet E.==. sheet E.^. SheetId E.&&. E.isNothing (submission E.^. SubmissionRatingBy) - E.orderBy [E.desc $ sheet E.^. SheetActiveTo] + E.orderBy [E.asc $ sheet E.^. SheetActiveTo] E.limit 1 return $ sheet E.^. SheetName return $ case sheets of