projects
/
ghc-base.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 2004-06-15 21:07:23 by panne]
[ghc-base.git]
/
System
/
Time.hsc
diff --git
a/System/Time.hsc
b/System/Time.hsc
index
75c8353
..
91b677a
100644
(file)
--- a/
System/Time.hsc
+++ b/
System/Time.hsc
@@
-242,7
+242,8
@@
getClockTime = do
#else /* use POSIX time() */
getClockTime = do
secs <- time nullPtr -- can't fail, according to POSIX
#else /* use POSIX time() */
getClockTime = do
secs <- time nullPtr -- can't fail, according to POSIX
- return (TOD (fromIntegral secs) 0)
+ let realToInteger = round . realToFrac :: Real a => a -> Integer
+ return (TOD (realToInteger secs) 0)
#endif
#endif