diff options
| author | Joris | 2015-10-10 12:04:52 +0200 |
|---|---|---|
| committer | Joris | 2015-10-10 12:04:52 +0200 |
| commit | 785a5d63e8b7896be0379fba422d0076577d1084 (patch) | |
| tree | 2e7a554eae742e0772b45d669c288b1d303edfed | |
| parent | a58c08439f0c4a291a437c24878ec03aff04644b (diff) | |
| download | events-785a5d63e8b7896be0379fba422d0076577d1084.tar.gz events-785a5d63e8b7896be0379fba422d0076577d1084.tar.bz2 events-785a5d63e8b7896be0379fba422d0076577d1084.zip | |
Invert firstname and lastname in a birthdate
| -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 |