Commit e52eabe8 authored by panne's avatar panne
Browse files

[project @ 2004-06-15 21:07:23 by panne]

Yet another fix for the fact that CTime is not an instance of Integral anymore,
parent 509e7915
...@@ -242,7 +242,8 @@ getClockTime = do ...@@ -242,7 +242,8 @@ getClockTime = do
#else /* use POSIX time() */ #else /* use POSIX time() */
getClockTime = do getClockTime = do
secs <- time nullPtr -- can't fail, according to POSIX 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
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment