changed table layout and seperator

2025-05-15 09:50:29 +00:00 · 2023-12-10 19:35:58 +01:00 · 2023-12-10 19:35:58 +01:00 · 4f2a6bffda
commit 4f2a6bffda
parent 93a09e8402
3 changed files with 36 additions and 23 deletions
--- a/app/Main.hs
+++ b/app/Main.hs
@ -66,13 +66,11 @@ mailText :: MailRecord -> LT.Text
 mailText record = LT.concat ["Guten Morgen,\n\n"
                           , announcement record
                           ,"\n\ndiesen Donnerstag\n\nDurchsingen: "
-                           ,song1 record
-                           ,", "
-                           ,song2 record
+                           ,songs record
                           ,"\nStimmproben: "
-                           ,voice1 record
-                           ,", "
-                           ,voice2 record
+                           ,voices record
+                           ,"\nNoten mitbringen: "
+                           , notes record
                           ,"\n\nLG\nJo^^\n" ]

 mailSubject :: MailRecord -> T.Text