From a45e83fa68222ee57041a53454ffa437dd2f6b07 Mon Sep 17 00:00:00 2001 From: SJost Date: Wed, 30 Jan 2019 11:20:46 +0100 Subject: [PATCH] Minor Refactor --- 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 93924d98d..ab6fa1bae 100644 --- a/src/Utils/Sheet.hs +++ b/src/Utils/Sheet.hs @@ -34,7 +34,7 @@ sheetOldUnassigned tid ssh csh = do E.&&. course E.^. CourseTerm E.==. E.val tid E.&&. course E.^. CourseSchool E.==. E.val ssh E.&&. course E.^. CourseShorthand E.==. E.val csh - E.where_ . E.exists . E.from $ \submission -> 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]