diff options
| -rw-r--r-- | README.md | 6 | ||||
| -rw-r--r-- | src/Birthdate.hs | 2 |
2 files changed, 4 insertions, 4 deletions
@@ -5,9 +5,9 @@ Notify by email if there is a birthday today. Birthdates are parsed from birthdates.csv: ``` -23 Oct 1982, Dupont, Jean -30 Jan 1955, Doe , Anne -08 May 1980, Carter, Eric +23 Oct 1982, Jean, Dupont +30 Jan 1955, Anne, Doe +08 May 1980, Eric, Carter … ``` diff --git a/src/Birthdate.hs b/src/Birthdate.hs index 4c6e398..c9d0bda 100644 --- a/src/Birthdate.hs +++ b/src/Birthdate.hs @@ -14,8 +14,8 @@ import Date (Date, sameDayAndMonth, yearsGap) data Birthdate = Birthdate { date :: Date - , lastname :: Text , firstname :: Text + , lastname :: Text } deriving (Eq, Show) fullname :: Birthdate -> Text |