Skip to content

Workaround DST issues in toClockTime . toUTCTime, at least in some cases #23

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
Bodigrim merged 1 commit into from
Jan 13, 2026
Merged

Workaround DST issues in toClockTime . toUTCTime, at least in some cases #23

Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
8 changes: 6 additions & 2 deletions System/Time.hsc
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -280,7 +280,9 @@ addToClockTime (TimeDiff year mon day hour minute sec psec)
3600 * toInteger hour +
24 * 3600 * toInteger day
(d_sec, d_psec) = (c_psec + psec) `quotRem` 1000000000000
cal = toUTCTime (TOD (c_sec + sec_diff + d_sec) d_psec)

beforeAddingMonthsAndYears = TOD (c_sec + sec_diff + d_sec) d_psec
cal = toUTCTime beforeAddingMonthsAndYears
new_mon = fromEnum (ctMonth cal) + r_mon
month' = fst tmp
yr_diff = snd tmp
Expand All @@ -293,7 +295,9 @@ addToClockTime (TimeDiff year mon day hour minute sec psec)

year' = ctYear cal + year + r_yr + yr_diff
in
toClockTime cal{ctMonth=month', ctYear=year'}
if year == 0 && mon == 0
then beforeAddingMonthsAndYears
else toClockTime cal{ctMonth=month', ctYear=year'}

-- | @'diffClockTimes' t1 t2@ returns the difference between two clock
-- times @t1@ and @t2@ as a 'TimeDiff'.
Expand Down