Show days of week in next week notification

1 files changed, 8 insertions, 0 deletions

diff --git a/src/Model/Mail.hs b/src/Model/Mail.hs
index 2af2159..deb720a 100644
--- a/src/Model/Mail.hs
+++ b/src/Model/Mail.hs
@@ -102,5 +102,13 @@ mailBodyPart event currDate (line, birthdate) =
           then age currDate birthdate
           else ageNextWeek currDate birthdate
     , " years old"
+    , if event == NextWeek
+        then
+          T.concat
+            [ " on "
+            , getWeekDay $ (date birthdate) { year = year currDate }
+            ]
+        else
+          ""
     , if line == SingleLine || line == LastLine then "." else ""
     ]