From: ross <unknown>
Date: Tue, 26 Aug 2003 20:41:46 +0000 (+0000)
Subject: [project @ 2003-08-26 20:41:46 by ross]
X-Git-Tag: nhc98-1-18-release~527
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=b3aecd8f4fd5ca178c51da4e57f35fb4e084995a;p=ghc-base.git

[project @ 2003-08-26 20:41:46 by ross]
Hugs only: remove unused argument from toClockTimePrim
---

diff --git a/System/Time.hsc b/System/Time.hsc
index c83e2ef..ac89d41 100644
--- a/System/Time.hsc
+++ b/System/Time.hsc
@@ -476,11 +476,9 @@ clockToCalendarTime_aux is_utc p_tm psec = do
 toClockTime :: CalendarTime -> ClockTime
 #ifdef __HUGS__
 toClockTime (CalendarTime yr mon mday hour min sec psec
-			  _wday _yday _tzname tz isdst) =
+			  _wday _yday _tzname tz _isdst) =
   unsafePerformIO $ do
-    s <- toClockTimePrim (yr-1900) (fromEnum mon) mday
-  		         hour min sec
-		         tz (if isdst then 1 else 0)
+    s <- toClockTimePrim (yr-1900) (fromEnum mon) mday hour min sec tz
     return (TOD (fromIntegral s) psec)
 #else /* ! __HUGS__ */
 toClockTime (CalendarTime year mon mday hour min sec psec