$newline never
<div uw-hide-columns="schedule-week">
  <table .table .table--striped .table--hover .schedule>
    <thead>
      <tr .table__row .table__row--head>
        <th .table__th uw-hide-column-header="time">
          _{MsgScheduleTableHeadTime}
        $forall (_, weekDayTitle, weekDayIdent) <- weekDays
          <th .table__th uw-hide-column-header=#{weekDayIdent}>
            _{weekDayTitle}
    <tbody>
      $forall slot <- slotsToDisplay
        <tr .table__row>
          <td .table__td>
            ^{slotToDisplayTime slot}
          $forall (day, _, _) <- weekDays
            <td .table__td>
              <div .table__td-content>
                $maybe dayEvents <- Map.lookup day courseEvents
                  $maybe slotEvents <- Map.lookup slot dayEvents
                    $forall ScheduleEntry{seCourse=Entity _ Course{courseTerm,courseSchool,courseShorthand,courseName},seType,seRoom,seOccurrence} <- slotEvents
                      <a href=@{CourseR courseTerm courseSchool courseShorthand CShowR} .schedule--entry-link>
                        <div .schedule--entry>
                          #{CI.original courseName}: #
                          $case seType
                            $of SETCourseEvent{..}
                              #{CI.original setceType}
                            $of SETTutorial{..}
                              #{CI.original settType}
                            $of SETExamOccurrence{..}
                              #{seteoExamName}
                          <br>

                          $maybe room <- seRoom
                            _{MsgScheduleRoom}: #{room} <br/>
                          
                          ^{formatOccurrenceW seOccurrence}