Hi,
Pretty dumb question I know, but..how to I display fractions of a second
from a datediff?
ie:
main = do starttime <- gettime
-- do something here that takes a few seconds
endtime <- gettime
let timediff = diffClockTimes endtime starttime
let timediffstring = show( tdSec timediff) ++ " " ++ show(
realToFrac(tdPicosec timediff) / 1000000000 )
putStrLn( show(timediffstring) )
return ()
tdPicosec is negative??? ... but sometimes it is positive... so it's
really unclear what the appropriate way to handle this is!
Example outputs:
"1 -62.0"
"0 921.0"
... it could be that the time in seconds in the second example is "0.921",
but for the first, is it "1.062" (adding the absolute milliseconds) or is it
"0.938" (adding the negative milliseconds)?
Tried to figure this out by generating timeDiffs myself then normalizing
them, but this doesnt seem to do anything useful ;-) :
Prelude> normalizeTimeDiff $ TimeDiff 0 0 0 0 0 0
1000000000000000000000000000000
0000
TimeDiff {tdYear = 0, tdMonth = 0, tdDay = 0, tdHour = 0, tdMin = 0, tdSec =
0,
tdPicosec = 10000000000000000000000000000000000}
_______________________________________________
Haskell-Cafe mailing list
Haskell-Cafe@haskell.org
http://www.haskell.org/mailman/listinfo/haskell-cafe
