1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
|
{-# LANGUAGE OverloadedStrings #-}
module Model.Birthdate
( Birthdate(..)
, renderBirthdate
, fullname
, age
, ageNextWeek
, filterBirthdayAt
, filterBirthdayBetween
) where
import Data.Text (Text)
import qualified Data.Text as T
import Model.Date
data Birthdate = Birthdate
{ date :: Date
, firstname :: Text
, lastname :: Text
} deriving (Eq, Show)
renderBirthdate :: Birthdate -> Text
renderBirthdate birthdate =
T.concat
[ fullname birthdate
, " ("
, renderDate (date birthdate)
, ")"
]
fullname :: Birthdate -> Text
fullname d = T.concat [firstname d, " ", lastname d]
age :: Date -> Birthdate -> Int
age currentDate birthdate = yearsGap currentDate (date birthdate)
ageNextWeek :: Date -> Birthdate -> Int
ageNextWeek currentDate birthdate =
(+1) $ (daysGap currentDate (date birthdate)) `div` 365
filterBirthdayAt :: Date -> [Birthdate] -> [Birthdate]
filterBirthdayAt d = filter (sameDayAndMonth d . date)
filterBirthdayBetween :: Date -> Date -> [Birthdate] -> [Birthdate]
filterBirthdayBetween begin end =
filter (\bd ->
let d = date bd
in ( begin `isBeforeOrEqualDayAndMonth` d
&& d `isBeforeOrEqualDayAndMonth` end
)
)
|
