From: simonpj <unknown>
Date: Thu, 25 Nov 1999 10:37:12 +0000 (+0000)
Subject: [project @ 1999-11-25 10:37:12 by simonpj]
X-Git-Tag: Approximately_9120_patches~5488
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=bb70179ae6f73d20d6538249cfba19a40adb583b;p=ghc-hetmet.git

[project @ 1999-11-25 10:37:12 by simonpj]
Add a comment
---

diff --git a/ghc/lib/std/Time.lhs b/ghc/lib/std/Time.lhs
index e5cf47d..0b8d3c5 100644
--- a/ghc/lib/std/Time.lhs
+++ b/ghc/lib/std/Time.lhs
@@ -83,7 +83,10 @@ external calendar time @CalendarTime@.
 -- In fact, I think one of Int32 or Word32 would do. - ADR
 data ClockTime = TOD Int64 Int64 deriving (Eq, Ord)
 #else
-data ClockTime = TOD Integer Integer deriving (Eq, Ord)
+data ClockTime = TOD Integer 		-- Seconds since 00:00:00 on 1 Jan 1970
+		     Integer		-- Picoseconds with the specified second
+	       deriving (Eq, Ord)
+		
 #endif
 \end{code}