diff options
-rwxr-xr-x | countdown.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/countdown.hs b/countdown.hs index 5080649..33d0b38 100755 --- a/countdown.hs +++ b/countdown.hs | |||
@@ -420,7 +420,7 @@ handleEvent chan st e = | |||
420 | continue $ s & stLastBrickEvent .~ (Just e) | 420 | continue $ s & stLastBrickEvent .~ (Just e) |
421 | 421 | ||
422 | newYearsEveLast10 :: LocalTime -> LocalTime | 422 | newYearsEveLast10 :: LocalTime -> LocalTime |
423 | newYearsEveLast10 = addLocalTime (-10) . yearEnd | 423 | newYearsEveLast10 = addLocalTime (-11) . yearEnd |
424 | 424 | ||
425 | newYearsEveNoon :: LocalTime -> LocalTime | 425 | newYearsEveNoon :: LocalTime -> LocalTime |
426 | newYearsEveNoon (LocalTime d (TimeOfDay _ _ s)) = LocalTime d' t | 426 | newYearsEveNoon (LocalTime d (TimeOfDay _ _ s)) = LocalTime d' t |