diff options
| author | Andrew Cady <d@cryptonomic.net> | 2022-09-16 22:57:28 -0400 |
|---|---|---|
| committer | Andrew Cady <d@cryptonomic.net> | 2022-09-16 22:57:28 -0400 |
| commit | ae722c5ea19db831a46ba55741c17ed6b04acd80 (patch) | |
| tree | a427bff79a4c5a759d6ed8965bb38a6bd618c3f8 | |
| parent | 49ad29c21b5b86e6e2f9837d041005c0b3e560a5 (diff) | |
fixup! calendar starts working
| -rw-r--r-- | CosmicCalendar.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/CosmicCalendar.hs b/CosmicCalendar.hs index 19b6f0e..9bcb91d 100644 --- a/CosmicCalendar.hs +++ b/CosmicCalendar.hs | |||
| @@ -69,7 +69,7 @@ billionYears :: Rational -> NominalDiffTime | |||
| 69 | billionYears = (* (lengthOfYear * 1000 * 1000 * 1000)) . fromRational | 69 | billionYears = (* (lengthOfYear * 1000 * 1000 * 1000)) . fromRational |
| 70 | 70 | ||
| 71 | yearsAgo :: Rational -> NominalDiffTime | 71 | yearsAgo :: Rational -> NominalDiffTime |
| 72 | yearsAgo n = (ageOfUniverse - lengthOfYear * fromRational n) / ageOfUniverse | 72 | yearsAgo n = (ageOfUniverse - lengthOfYear * fromRational n) / ageOfUniverse * lengthOfYear |
| 73 | 73 | ||
| 74 | thousandYearsAgo :: Rational -> NominalDiffTime | 74 | thousandYearsAgo :: Rational -> NominalDiffTime |
| 75 | thousandYearsAgo = yearsAgo . (* 1000) | 75 | thousandYearsAgo = yearsAgo . (* 1000) |