summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xcountdown.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/countdown.hs b/countdown.hs
index 62c9ce3..565e9c3 100755
--- a/countdown.hs
+++ b/countdown.hs
@@ -251,7 +251,7 @@ countdownWidget isSimulated t =
251 padLeft Max $ str $ showCosmicTime (-timeUntilActive) ++ " ago"] 251 padLeft Max $ str $ showCosmicTime (-timeUntilActive) ++ " ago"]
252 years = fromRational $ toCosmicTime calBeginTime 252 years = fromRational $ toCosmicTime calBeginTime
253 box = borderWithLabel (txt calTitle) $ vBox [ 253 box = borderWithLabel (txt calTitle) $ vBox [
254 hCenter $ txt $ calSubtitle, 254 hCenter $ txtWrap $ calSubtitle,
255 str "\n", 255 str "\n",
256 hBox [ 256 hBox [
257 str $ formatTime defaultTimeLocale "%A, %B %e%n%Y-%m-%d %r" $ calBeginTime `addLocalTime` yearStart t, 257 str $ formatTime defaultTimeLocale "%A, %B %e%n%Y-%m-%d %r" $ calBeginTime `addLocalTime` yearStart t,