diff --git a/src/Utils/Sheet.hs b/src/Utils/Sheet.hs index ab6fa1bae..6525c7abb 100644 --- a/src/Utils/Sheet.hs +++ b/src/Utils/Sheet.hs @@ -16,7 +16,7 @@ sheetCurrent 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.orderBy [E.asc $ sheet E.^. SheetActiveFrom] + E.orderBy [E.asc $ sheet E.^. SheetActiveTo] E.limit 1 return $ sheet E.^. SheetName return $ case sheets of