diff --git a/src/Handler/Home.hs b/src/Handler/Home.hs index 186933caf..b4d16ff10 100644 --- a/src/Handler/Home.hs +++ b/src/Handler/Home.hs @@ -20,7 +20,7 @@ getHomeR = do setTitleI MsgHomeHeading fromMaybe mempty upcomingExamsWidget maybe mempty homeUpcomingSheets muid - maybe homeOpenCourses (const mempty) muid + homeOpenCourses homeOpenCourses :: Widget