diff options
| author | Andrew Cady <d@cryptonomic.net> | 2022-09-17 12:07:57 -0400 |
|---|---|---|
| committer | Andrew Cady <d@cryptonomic.net> | 2022-09-17 12:07:57 -0400 |
| commit | eaf3a3624a2fc2761669e8b568ab1f1a4a559672 (patch) | |
| tree | 9ef0f3d3996d1d47404aac424aac1e02086244c4 | |
| parent | bafc1849b9e5a4196036305b4dbe1a3f51155721 (diff) | |
11 second new years eve countdown
| -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 |