Further HTML cleanup

src/Handler/Course.hs

@@ -337,6 +337,7 @@ getCShowR tid ssh csh = do
                 E.where_ $ tutor E.^. TutorTutorial E.==. E.val tutid
                 return (user E.^. UserEmail, user E.^. UserDisplayName, user E.^. UserSurname)
               return [whamlet|
+                       $newline never
                        <ul .list--iconless .list--inline .list--comma-separated>
                          $forall tutor <- tutors
                            <li>

src/Handler/Term.hs

@@ -89,6 +89,7 @@ getTermShowR = do
                 cell $ do
                   termHolidays' <- mapM (formatTime SelFormatDate) termHolidays
                   [whamlet|
+                    $newline never
                     <ul .list--inline .list--comma-separated>
                       $forall holiday <- termHolidays'
                         <li>#{holiday}

src/Handler/Tutorial.hs

@@ -49,6 +49,7 @@ getCTutorialListR tid ssh csh = do
                 E.where_ $ tutor E.^. TutorTutorial E.==. E.val tutid
                 return (user E.^. UserEmail, user E.^. UserDisplayName, user E.^. UserSurname)
               return [whamlet|
+                       $newline never
                        <ul .list--iconless .list--inline .list--comma-separated>
                          $forall tutor <- tutors
                            <li>

src/Handler/Users.hs

@@ -52,6 +52,7 @@ getUsersR = do
             E.orderBy [E.asc $ school E.^. SchoolShorthand]
             return $ school E.^. SchoolShorthand
           return [whamlet|
+            $newline never
             <ul .list--inline .list--comma-separated>
               $forall (E.Value sh) <- schools
                 <li>#{sh}
@@ -63,6 +64,7 @@ getUsersR = do
             E.orderBy [E.asc $ school E.^. SchoolShorthand]
             return $ school E.^. SchoolShorthand
           return [whamlet|
+            $newline never
             <ul .list--inline .list--comma-separated>
               $forall (E.Value sh) <- schools
                 <li>#{sh}