Invert firstname and lastname in a birthdate

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