@@ -52,7 +52,7 @@ data TimeOfDay64 = TOD {-# UNPACK #-} !Int
52 {-# UNPACK #-} !Int64
52 {-# UNPACK #-} !Int64
54posixDayLength :: DiffTime
54posixDayLength :: DiffTime
55−posixDayLength = fromInteger 86400
55+posixDayLength = 86400
57diffTimeOfDay64 :: DiffTime -> TimeOfDay64
57diffTimeOfDay64 :: DiffTime -> TimeOfDay64
58diffTimeOfDay64 t
58diffTimeOfDay64 t