[switch ClockTime to have a better internal representation
John Meacham <john@repetae.net>**20090821041236
 Ignore-this: 4edba186562071c808dcd1fcc3fc6fa8
] hunk ./lib/base/System/Time.hs 3
-    ClockTime,
+    ClockTime(),
hunk ./lib/base/System/Time.hs 25
-data ClockTime = TOD !Integer !Integer -- Implementation-dependent
+newtype ClockTime = TOD Integer
hunk ./lib/base/System/Time.hs 89
-    return (TOD (ctimeToInteger secs) 0)
+    return (TOD (ctimeToInteger secs))
hunk ./lib/base/System/Time.hs 123
-	       (TOD c_sec c_psec) =
+	       (TOD c_sec) =
hunk ./lib/base/System/Time.hs 129
-	  cal      = toUTCTime (TOD (c_sec + sec_diff) (c_psec + psec))
+	  --cal      = toUTCTime (TOD (c_sec + sec_diff) (c_psec + psec))
+	  cal      = toUTCTime (TOD (c_sec + sec_diff))
hunk ./lib/base/System/Time.hs 155
-diffClockTimes (TOD sa pa) (TOD sb pb) =
-    noTimeDiff{ tdSec     = fromIntegral (sa - sb)
-                -- FIXME: can handle just 68 years...
-              , tdPicosec = pa - pb
-              }
+diffClockTimes (TOD sa) (TOD sb) =
+    noTimeDiff{ tdSec  = fromIntegral (sa - sb) }