From 4eda7d20a23b50afbe24d28909506ad6e9cf90e0 Mon Sep 17 00:00:00 2001
From: Gregor Kleen <kleen@cip.ifi.lmu.de>
Date: Mon, 29 Apr 2019 13:44:08 +0200
Subject: [PATCH] Further HTML cleanup

---
 src/Handler/Course.hs   | 1 +
 src/Handler/Term.hs     | 1 +
 src/Handler/Tutorial.hs | 1 +
 src/Handler/Users.hs    | 2 ++
 4 files changed, 5 insertions(+)

diff --git a/src/Handler/Course.hs b/src/Handler/Course.hs
index baceefdd1..339349e73 100644
--- a/src/Handler/Course.hs
+++ b/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>
diff --git a/src/Handler/Term.hs b/src/Handler/Term.hs
index ddb8abc51..abf1421bd 100644
--- a/src/Handler/Term.hs
+++ b/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}
diff --git a/src/Handler/Tutorial.hs b/src/Handler/Tutorial.hs
index 3e8264169..93b09166c 100644
--- a/src/Handler/Tutorial.hs
+++ b/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>
diff --git a/src/Handler/Users.hs b/src/Handler/Users.hs
index a9ddbcb7f..546e3bf91 100644
--- a/src/Handler/Users.hs
+++ b/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}