- u_sec <- (#peek struct timeval,tv_sec) ru_utime :: IO CLong
- u_usec <- (#peek struct timeval,tv_usec) ru_utime :: IO CLong
- s_sec <- (#peek struct timeval,tv_sec) ru_stime :: IO CLong
- s_usec <- (#peek struct timeval,tv_usec) ru_stime :: IO CLong
-
- return ((fromIntegral u_sec * 1000000 + fromIntegral u_usec +
- fromIntegral s_sec * 1000000 + fromIntegral s_usec)
- * 1000000)
+ u_sec <- (#peek struct timeval,tv_sec) ru_utime :: IO CTime
+ u_usec <- (#peek struct timeval,tv_usec) ru_utime :: IO CTime
+ s_sec <- (#peek struct timeval,tv_sec) ru_stime :: IO CTime
+ s_usec <- (#peek struct timeval,tv_usec) ru_stime :: IO CTime
+ return ((realToInteger u_sec * 1000000 + realToInteger u_usec +
+ realToInteger s_sec * 1000000 + realToInteger s_usec)
+ * 1000000)