aboutsummaryrefslogtreecommitdiff
path: root/src/server/View/Mail
diff options
context:
space:
mode:
Diffstat (limited to 'src/server/View/Mail')
-rw-r--r--src/server/View/Mail/WeeklyReport.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/server/View/Mail/WeeklyReport.hs b/src/server/View/Mail/WeeklyReport.hs
index f76fb0e..e33459c 100644
--- a/src/server/View/Mail/WeeklyReport.hs
+++ b/src/server/View/Mail/WeeklyReport.hs
@@ -48,7 +48,7 @@ body conf users paymentsByStatus incomesByStatus =
then
getMessage K.WeeklyReportEmpty
else
- T.intercalate "\n\n" . catMaybes . concat $
+ T.intercalate "\n" . catMaybes . concat $
[ map (\s -> paymentSection s conf users <$> M.lookup s paymentsByStatus) statuses
, map (\s -> incomeSection s conf users <$> M.lookup s incomesByStatus) statuses
]
@@ -119,6 +119,6 @@ section :: Text -> [Text] -> Text
section title items =
T.concat
[ title
- , "\n"
+ , "\n\n"
, T.unlines . map (" - " <>) $ items
]