From 785a5d63e8b7896be0379fba422d0076577d1084 Mon Sep 17 00:00:00 2001 From: Joris Date: Sat, 10 Oct 2015 12:04:52 +0200 Subject: Invert firstname and lastname in a birthdate --- README.md | 6 +++--- src/Birthdate.hs | 2 +- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/README.md b/README.md index 228d606..ec643c7 100644 --- a/README.md +++ b/README.md @@ -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 -- cgit v1.2.3