fix warnings

1 files changed, 6 insertions, 7 deletions

diff --git a/countdown.hs b/countdown.hs
index 9f29d1f..7d9299c 100755
--- a/countdown.hs
+++ b/countdown.hs
@@ -62,6 +62,7 @@ billion = 1000 * 1000 * 1000
 ageOfUniverseInYears :: Integer
 ageOfUniverseInYears = 13787 * 1000 * 1000
 
+daysPerYear :: NominalDiffTime
 daysPerYear = 365.2422
 
 lengthOfYear :: NominalDiffTime
@@ -138,15 +139,15 @@ countdownWidget isSimulated t =
                                       daysLeft
                                       (pluralize daysLeft)
                                       (pluralizeVerb daysLeft)
-                                      (commasF2 hoursLeft)
-                                      (pluralize $ floor hoursLeft)
-                                      (pluralizeVerb $ floor hoursLeft)
+                                      (commasF 2 hoursLeft)
+                                      (pluralize $ (floor hoursLeft :: Integer))
+                                      (pluralizeVerb $ (floor hoursLeft :: Integer))
                                       (commas secondsLeft)
                                       (pluralize secondsLeft)
                                       (pluralizeVerb secondsLeft)))
      <+>
      (borderWithLabel (str "Cosmic Countdown") $
-       (str $ printf "%s years ago" (commas $ floor cosmicYearsAgo))
+       (str $ printf "%s years ago" (commas $ (floor cosmicYearsAgo :: Integer)))
        <=>
        (str "\n\n")
        <=>
@@ -156,7 +157,7 @@ countdownWidget isSimulated t =
        <=>
        (str $ printf "%s thousand years ago" (commasF 3 $ cosmicYearsAgo / 1000))
        <=>
-       (str $ printf "%s days ago" (commas $ floor $ realToFrac cosmicYearsAgo * daysPerYear)))
+       (str $ printf "%s days ago" (commas $ (floor $ realToFrac cosmicYearsAgo * daysPerYear :: Integer))))
      <=>
      (borderWithLabel (str progressLabel) $
          updateAttrMap
@@ -188,8 +189,6 @@ countdownWidget isSimulated t =
     x // y         = fromRational $ toRational x / toRational y :: Double
     progressLabel  = printf "%.6F%%" (100 * (yearElapsed // yearLength))
 
-commasF2 = commasF 2
-
 commasF :: RealFrac x => Int -> x -> Text
 commasF precision = prettyF cfg
   where