style(schedule): enhance display for joined entries

src/Utils/Schedule/Week.hs

@@ -266,3 +266,6 @@ dayOfWeekToDayWith weekDay = go where
        | weekDay' >  weekDay = go $ pred d
        | otherwise           = go $ succ d
        where weekDay' = dayOfWeek d
+
+indexedList :: [a] -> [(Int, a)]
+indexedList = zip [0..]

templates/schedule/week.hamlet

@@ -50,7 +50,7 @@ $newline never
                                     <br>
                                 ^{formatEitherOccurrenceW stOccurrence}
                               $of ScheduleExamOccurrence{seoCourse=Entity _ Course{courseName},seoExamName,seoRooms,seoStart,seoEnd}
-                                #{CI.original courseName}: #{seoExamName}
+                                #{CI.original courseName}: #{seoExamName} #
                                 $if slotAssocIsCont slotAssociation
                                   (_{MsgScheduleWeekSlotIsCont})
                                 <br>
@@ -63,10 +63,12 @@ $newline never
                                         <br>
                                   $of more
                                     _{MsgScheduleRooms}: #
-                                    $forall (mRoom,showRoom) <- more
+                                    $forall (idx,(mRoom,showRoom)) <- indexedList more
                                       $if showRoom
                                         $maybe room <- mRoom
                                           ^{roomReferenceWidget room}
+                                          $if idx < pred (length more)
+                                            ; #
                                     <br>
                                 _{MsgScheduleOccur}: #
                                 $if Just (utctDay seoStart) == fmap utctDay seoEnd