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}