src/Handler/Tutorial/Users.hs

@@ -55,7 +55,7 @@ postTUsersR tid ssh csh tutn = do
     cid <- getKeyBy404 $ TermSchoolCourseShort tid ssh csh
     table <- makeCourseUserTable cid (Map.fromList $ map (id &&& pure) universeF) isInTut colChoices psValidator (Just csvColChoices)
     return (tut, table)
-
+  
   formResult participantRes $ \case
     (TutorialUserSendMail, selectedUsers) -> do
         cids <- traverse encrypt $ Set.toList selectedUsers :: Handler [CryptoUUIDUser]

templates/tutorial-participants.hamlet

@@ -1,2 +1,8 @@
 $newline never
+<section>
+  <dl .deflist>
+    <dt .deflist__dt>_{MsgTableTutorialTime}
+    <dd .deflist__dd>
+      ^{occurrencesWidget tutorialTime}
+    <dt .deflist__dt>_{MsgTableTutorialTutors}
 ^{participantTable}