From cfca18262c1ff48dcb683ddab7d03cf8e55573ff Mon Sep 17 00:00:00 2001
From: Joris
Date: Fri, 24 Mar 2017 09:21:04 +0000
Subject: Features/categories

---
 src/server/View/Mail/WeeklyReport.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/server/View/Mail/WeeklyReport.hs')

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
     ]
-- 
cgit v1.2.3