diff options
| -rwxr-xr-x | countdown.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/countdown.hs b/countdown.hs index 33d0b38..f2a41ff 100755 --- a/countdown.hs +++ b/countdown.hs | |||
| @@ -246,7 +246,9 @@ countdownWidget isSimulated t = | |||
| 246 | padLeft Max $ str $ showCosmicTime (-timeUntilActive) ++ " ago"] | 246 | padLeft Max $ str $ showCosmicTime (-timeUntilActive) ++ " ago"] |
| 247 | years = fromRational $ toCosmicTime calBeginTime | 247 | years = fromRational $ toCosmicTime calBeginTime |
| 248 | box = vBox [ | 248 | box = vBox [ |
| 249 | str "\n", | 249 | if currentEntryIsCurrent |
| 250 | then str "\n" | ||
| 251 | else eventCountdown <=> str "\n", | ||
| 250 | hCenter $ txt calTitle, | 252 | hCenter $ txt calTitle, |
| 251 | hCenter $ txt calSubtitle, | 253 | hCenter $ txt calSubtitle, |
| 252 | str "\n", | 254 | str "\n", |