diff --git a/src/Utils/Schedule/Week.hs b/src/Utils/Schedule/Week.hs
index 0eaeaf368..8abf52094 100644
--- a/src/Utils/Schedule/Week.hs
+++ b/src/Utils/Schedule/Week.hs
@@ -173,7 +173,7 @@ scheduleEntryToHref :: ScheduleEntry -> Route UniWorX
 scheduleEntryToHref = \case
   ScheduleCourseEvent{sceCourse=(Entity _ Course{..})} -> CourseR courseTerm courseSchool courseShorthand CShowR  -- TODO: link to events table? (currently has no id)
   ScheduleTutorial{stCourse=(Entity _ Course{..})} -> CourseR courseTerm courseSchool courseShorthand CShowR  -- TODO: link to table with id "tutorials"?
-  ScheduleExamOccurrence{seoCourse=(Entity _ Course{..}),seoExamName} -> CExamR courseTerm courseSchool courseShorthand seoExamName EShowR
+  ScheduleExamOccurrence{seoCourse=(Entity _ Course{..})} -> CourseR courseTerm courseSchool courseShorthand CShowR  -- CExamR courseTerm courseSchool courseShorthand seoExamName EShowR
 
 -- | Calls formatTimeRangeW with the correct arguments and prepends an occurrence descriptor based on the occurrence type
 formatEitherOccurrenceW :: Either OccurrenceException OccurrenceSchedule -> Widget