show minutes

1 files changed, 4 insertions, 1 deletions

diff --git a/countdown.hs b/countdown.hs
index 55962c2..d91834d 100755
--- a/countdown.hs
+++ b/countdown.hs
@@ -136,13 +136,16 @@ countdownWidget isSimulated t =
     <=>
     (hCenter $ hBox
      [ (borderWithLabel (str $ printf "%d" currentYear)
-         (str $ printf "%d day%s remain%s\n%s hour%s remain%s\n%s second%s remain%s"
+         (str $ printf "%d day%s remain%s\n%s hour%s remain%s\n%s minute%s remain%s\n%s second%s remain%s"
                         daysLeft
                         (pluralize daysLeft)
                         (pluralizeVerb daysLeft)
                         (commasF 2 hoursLeft)
                         (pluralize $ (floor hoursLeft :: Integer))
                         (pluralizeVerb $ (floor hoursLeft :: Integer))
+                        (commasF 2 minutesLeft)
+                        (pluralize $ (floor minutesLeft :: Integer))
+                        (pluralizeVerb $ (floor minutesLeft :: Integer))
                         (commas secondsLeft)
                         (pluralize secondsLeft)
                         (pluralizeVerb secondsLeft)))