summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xcountdown.hs2
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
422newYearsEveLast10 :: LocalTime -> LocalTime 422newYearsEveLast10 :: LocalTime -> LocalTime
423newYearsEveLast10 = addLocalTime (-10) . yearEnd 423newYearsEveLast10 = addLocalTime (-11) . yearEnd
424 424
425newYearsEveNoon :: LocalTime -> LocalTime 425newYearsEveNoon :: LocalTime -> LocalTime
426newYearsEveNoon (LocalTime d (TimeOfDay _ _ s)) = LocalTime d' t 426newYearsEveNoon (LocalTime d (TimeOfDay _ _ s)) = LocalTime d' t