this fixes the math bug (for now... leap years still broken)

1 files changed, 9 insertions, 1 deletions

diff --git a/CosmicCalendar.hs b/CosmicCalendar.hs
index 69d1d5d..50566d3 100644
--- a/CosmicCalendar.hs
+++ b/CosmicCalendar.hs
@@ -35,8 +35,16 @@ import qualified Rebase.Data.Map.Strict as Map
 ageOfUniverseInYears :: Integer
 ageOfUniverseInYears = 13787 * 1000 * 1000
 
+-- The point of the cosmic calendar is to mentally visualize or model the scale
+-- of cosmic/geologic/evolutionary events using the existing internal mental
+-- model of the year. This internal mental model of the year is NOT a 365.2422
+-- day earth rotation, but a 365 day calendar year.
+--
+-- In order to make the math of the calendar work out, the functions that look
+-- up calendary entries (and take as input the LocalTime) must check for leap
+-- year, and subtract one day from the input if it is later than February.
 daysPerYear :: NominalDiffTime
-daysPerYear = 365.2422
+daysPerYear = 365 -- NOT 365.2422
 
 lengthOfDay :: NominalDiffTime
 lengthOfDay = 24 * 60 * 60