diff options
Diffstat (limited to 'src/Model/Mail.hs')
| -rw-r--r-- | src/Model/Mail.hs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/Model/Mail.hs b/src/Model/Mail.hs index 19ebaeb..2ae8df4 100644 --- a/src/Model/Mail.hs +++ b/src/Model/Mail.hs @@ -97,7 +97,10 @@ mailBodyPart event currDate (line, birthdate) = "" , fullname birthdate , if event == Today then " is " else " will be " - , T.pack . show $ age currDate birthdate + , T.pack . show $ + if event == Today + then age currDate birthdate + else ageNextWeek currDate birthdate , " years old" , if line == SingleLine || line == LastLine then "." else "" ] |