diff options
Diffstat (limited to 'countdown.hs')
-rwxr-xr-x | countdown.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/countdown.hs b/countdown.hs index c415e39..0f19ef7 100755 --- a/countdown.hs +++ b/countdown.hs | |||
@@ -215,9 +215,9 @@ countdownWidget isSimulated t = | |||
215 | borderWithLabel (str "Cosmic Conversion") (hBox [cosmicConversion, cosmicConversion']) | 215 | borderWithLabel (str "Cosmic Conversion") (hBox [cosmicConversion, cosmicConversion']) |
216 | ]) | 216 | ]) |
217 | where | 217 | where |
218 | cosmicCalendarCurrent = borderWithLabel (str $ (if current then "Now" else "Previously") ++ " on the Cosmic Calendar") currentEntry | 218 | cosmicCalendarCurrent = |
219 | where | 219 | borderWithLabel (str $ printf "%s on the Cosmic Calendar" (if currentEntryIsCurrent then "Now" else "Previously" :: Text)) |
220 | current = currentEntryIsCurrent | 220 | currentEntry |
221 | cosmicCalendarNext = borderWithLabel (txt "Next on the Cosmic Calendar") nextEntry | 221 | cosmicCalendarNext = borderWithLabel (txt "Next on the Cosmic Calendar") nextEntry |
222 | 222 | ||
223 | -- TODO: We want to display "today" or "now" on the cosmic calendar; | 223 | -- TODO: We want to display "today" or "now" on the cosmic calendar; |