From 816340dce8a917f598461c143a21b00eeb10022c Mon Sep 17 00:00:00 2001 From: stolz Date: Fri, 30 Aug 2002 13:27:42 +0000 Subject: [PATCH] [project @ 2002-08-30 13:27:42 by stolz] Haddock-ise. --- System/CPUTime.hsc | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/System/CPUTime.hsc b/System/CPUTime.hsc index e5a8a45..77a8e24 100644 --- a/System/CPUTime.hsc +++ b/System/CPUTime.hsc @@ -28,14 +28,10 @@ import Data.Ratio #include "HsBase.h" -- ----------------------------------------------------------------------------- --- Computation `getCPUTime' returns the number of picoseconds CPU time +-- |Computation 'getCPUTime' returns the number of picoseconds CPU time -- used by the current program. The precision of this result is -- implementation-dependent. --- The `cpuTimePrecision' constant is the smallest measurable difference --- in CPU time that the implementation can record, and is given as an --- integral number of picoseconds. - getCPUTime :: IO Integer getCPUTime = do @@ -111,6 +107,10 @@ foreign import ccall unsafe "GetProcessTimes" getProcessTimes :: Ptr HANDLE -> P #endif /* not _WIN32 */ +-- |The 'cpuTimePrecision' constant is the smallest measurable difference +-- in CPU time that the implementation can record, and is given as an +-- integral number of picoseconds. + cpuTimePrecision :: Integer cpuTimePrecision = round ((1000000000000::Integer) % fromIntegral (clockTicks)) -- 1.7.10.4