fraport/fradrive
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Minor Refactor

Browse Source
This commit is contained in:
SJost 2019-01-30 11:20:46 +01:00
parent 0c9f9aa419
commit a45e83fa68
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Utils/Sheet.hs
View File

@ -34,7 +34,7 @@ sheetOldUnassigned tid ssh csh = do
E.&&. course E.^. CourseTerm E.==. E.val tid E.&&. course E.^. CourseTerm E.==. E.val tid
E.&&. course E.^. CourseSchool E.==. E.val ssh E.&&. course E.^. CourseSchool E.==. E.val ssh
E.&&. course E.^. CourseShorthand E.==. E.val csh 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.where_ $ submission E.^. SubmissionSheet E.==. sheet E.^. SheetId
E.&&. E.isNothing (submission E.^. SubmissionRatingBy) E.&&. E.isNothing (submission E.^. SubmissionRatingBy)
E.orderBy [E.desc $ sheet E.^. SheetActiveTo] E.orderBy [E.desc $ sheet E.^. SheetActiveTo]