projects
/
ghc-base.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
0fc9708
)
[project @ 2004-06-15 21:07:23 by panne]
author
panne
<unknown>
Tue, 15 Jun 2004 21:07:23 +0000
(21:07 +0000)
committer
panne
<unknown>
Tue, 15 Jun 2004 21:07:23 +0000
(21:07 +0000)
Yet another fix for the fact that CTime is not an instance of Integral anymore,
System/Time.hsc
patch
|
blob
|
history
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
- return (TOD (fromIntegral secs) 0)
+ let realToInteger = round . realToFrac :: Real a => a -> Integer
+ return (TOD (realToInteger secs) 0)
#endif