From: Ian Lynagh <igloo@earth.li>
Date: Fri, 10 Feb 2006 14:28:53 +0000 (+0000)
Subject: Years have 365 days, not 30*365
X-Git-Tag: 2007-09-13~416
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=5bb528b8376081c8c3ee69a4553f9caec293d415;p=ghc-base.git

Years have 365 days, not 30*365
---

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)