1 files changed, 3 insertions, 1 deletions

diff --git a/CosmicCalendar.hs b/CosmicCalendar.hs
index 646d5bb..b439b48 100644
--- a/CosmicCalendar.hs
+++ b/CosmicCalendar.hs
@@ -69,7 +69,9 @@ billionYears :: Rational -> NominalDiffTime
 billionYears = (* (lengthOfYear * 1000 * 1000 * 1000)) . fromRational
 
 yearsAgo :: Rational -> NominalDiffTime
-yearsAgo n = (ageOfUniverse - lengthOfYear * fromRational n) / ageOfUniverse * lengthOfYear
+yearsAgo (fromRational -> n) = lengthOfYear' * (1 - (n / fromIntegral ageOfUniverseInYears))
+  where
+    lengthOfYear' = 365 * lengthOfDay -- TODO: Countdown will be wrong day on leap years!
 
 thousandYearsAgo :: Rational -> NominalDiffTime
 thousandYearsAgo = yearsAgo . (* 1000)