From eaf3a3624a2fc2761669e8b568ab1f1a4a559672 Mon Sep 17 00:00:00 2001 From: Andrew Cady Date: Sat, 17 Sep 2022 12:07:57 -0400 Subject: 11 second new years eve countdown --- countdown.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 = continue $ s & stLastBrickEvent .~ (Just e) newYearsEveLast10 :: LocalTime -> LocalTime -newYearsEveLast10 = addLocalTime (-10) . yearEnd +newYearsEveLast10 = addLocalTime (-11) . yearEnd newYearsEveNoon :: LocalTime -> LocalTime newYearsEveNoon (LocalTime d (TimeOfDay _ _ s)) = LocalTime d' t -- cgit v1.2.3