From b45d1c92f9c7604d05c8121d49b690e37f5f2b81 Mon Sep 17 00:00:00 2001 From: SJost Date: Wed, 30 Jan 2019 11:30:54 +0100 Subject: [PATCH] Bugfix sheetOldUnassigned --- src/Utils/Sheet.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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