diff options
| author | Andrew Cady <d@cryptonomic.net> | 2022-09-16 23:38:40 -0400 |
|---|---|---|
| committer | Andrew Cady <d@cryptonomic.net> | 2022-09-16 23:38:45 -0400 |
| commit | ab3127bf516af38a9d3ac6eef8717c09fb5bcd62 (patch) | |
| tree | c439f4465c07d77e735afe68e45b55c565146b4c | |
| parent | c4b5ffaffcfc72eac46b4c345af5be55fb551082 (diff) | |
shorten long source code line
| -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; |