From: simonmar <unknown>
Date: Thu, 9 May 2002 13:28:30 +0000 (+0000)
Subject: [project @ 2002-05-09 13:28:30 by simonmar]
X-Git-Tag: nhc98-1-18-release~1031
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=922872d708b60bc149a10483d6f8a1f7a8d1521f;p=ghc-base.git

[project @ 2002-05-09 13:28:30 by simonmar]
Add a type signature for getClockTime
---

diff --git a/System/Time.hsc b/System/Time.hsc
index 32a677f..6d8a800 100644
--- a/System/Time.hsc
+++ b/System/Time.hsc
@@ -199,6 +199,7 @@ noTimeDiff = TimeDiff 0 0 0 0 0 0 0
 -- -----------------------------------------------------------------------------
 -- getClockTime returns the current time in its internal representation.
 
+getClockTime :: IO ClockTime
 #if HAVE_GETTIMEOFDAY
 getClockTime = do
   allocaBytes (#const sizeof(struct timeval)) $ \ p_timeval -> do