From bd5643389d3739fed4042454a61c0f73a54d2c89 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Fri, 10 Mar 2006 11:45:32 +0000 Subject: [PATCH] addToClockTime: handle picoseconds properly fixes #588 --- System/Time.hsc | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/System/Time.hsc b/System/Time.hsc index ff10ffc..f230e97 100644 --- a/System/Time.hsc +++ b/System/Time.hsc @@ -270,8 +270,8 @@ addToClockTime (TimeDiff year mon day hour min sec psec) 60 * toInteger min + 3600 * toInteger hour + 24 * 3600 * toInteger day - cal = toUTCTime (TOD (c_sec + sec_diff) (c_psec + psec)) - -- FIXME! ^^^^ + (d_sec, d_psec) = (c_psec + psec) `quotRem` 1000000000000 + cal = toUTCTime (TOD (c_sec + sec_diff + d_sec) d_psec) new_mon = fromEnum (ctMonth cal) + r_mon month' = fst tmp yr_diff = snd tmp -- 1.7.10.4