add event to calendar "Christ born" (Sagan original, missed by oversight)

1 files changed, 6 insertions, 0 deletions

diff --git a/CosmicCalendarEvents.hs b/CosmicCalendarEvents.hs
index f2ff99d..d3461de 100644
--- a/CosmicCalendarEvents.hs
+++ b/CosmicCalendarEvents.hs
@@ -311,6 +311,12 @@ theCalendar = Map.fromList $ map (\x -> (calBeginTime x, x)) $ map unwrap
     ""
     "",
 
+    CalendarEntry (6 & yearsBeforeCommonEra) Nothing
+    "Christ born"
+    ""
+    ""
+    "",
+
     CalendarEntry (480 & yearsBeforeCommonEra) Nothing
     "Old Testament, Buddha"
     ""