cleanup

1 files changed, 0 insertions, 5 deletions

diff --git a/countdown.hs b/countdown.hs
index ac5193b..232c04b 100755
--- a/countdown.hs
+++ b/countdown.hs
@@ -165,7 +165,6 @@ conversionTableRowFromCosmicSeconds :: NominalDiffTime -> [Widget n]
 conversionTableRowFromCosmicSeconds n = [cosmicTime, realTime]
   where
     realTime = str $ showLarge (fromRational $ toCosmicTime n) ++ " years"
-    -- cosmicTime = showCosmicYears $ ceiling $ toCosmicTime n
     cosmicTime = str $ showTime n
 
 cosmicConversion' :: Widget n
@@ -185,14 +184,10 @@ cosmicConversion = renderTable $
   table
   [
     [str "1 billion years"    , showCosmicYears $ 1000 * 1000 * 1000],
-    -- conversionTableRowFromCosmicSeconds $ 7 * 24 * 60 * 60,
     [str "100 million years"  , showCosmicYears $ 100 * 1000 * 1000],
-    -- conversionTableRowFromCosmicSeconds $ 24 * 60 * 60,
     [str "10 million years"   , showCosmicYears $ 10 * 1000 * 1000],
-    -- conversionTableRowFromCosmicSeconds $ 60 * 60,
     [str "1 million years"    , showCosmicYears $ 1000 * 1000],
     [str "100 thousand years" , showCosmicYears $ 100 * 1000],
-    -- conversionTableRowFromCosmicSeconds $ 60,
     [str "10 thousand years"  , showCosmicYears $ 10 * 1000],
     [str "1 thousand years"   , showCosmicYears 1000],
     [str "100 years"          , showCosmicYears 100],