From 5bb528b8376081c8c3ee69a4553f9caec293d415 Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Fri, 10 Feb 2006 14:28:53 +0000 Subject: [PATCH] Years have 365 days, not 30*365 --- System/Time.hsc | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/System/Time.hsc b/System/Time.hsc index d7ae3f5..92055e4 100644 --- a/System/Time.hsc +++ b/System/Time.hsc @@ -320,8 +320,8 @@ normalizeTimeDiff td = + 60 * (tdMin td + 60 * (tdHour td + 24 * (tdDay td - + 30 * (tdMonth td - + 365 * tdYear td)))) + + 30 * tdMonth td + + 365 * tdYear td))) (diffYears, rest1) = rest0 `quotRem` (365 * 24 * 3600) (diffMonths, rest2) = rest1 `quotRem` (30 * 24 * 3600) -- 1.7.10.4