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
$forall tutor <- tutors
-
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
$forall holiday <- termHolidays'
- #{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
$forall tutor <- tutors
-
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
$forall (E.Value sh) <- schools
- #{sh}
@@ -63,6 +64,7 @@ getUsersR = do
E.orderBy [E.asc $ school E.^. SchoolShorthand]
return $ school E.^. SchoolShorthand
return [whamlet|
+ $newline never
$forall (E.Value sh) <- schools
- #{sh}