diff --git a/Main.hs b/Main.hs
--- a/Main.hs
+++ b/Main.hs
@@ -13,11 +13,11 @@
 import Data.List
 import Data.Maybe
 import Graphics.Rendering.HSparklines
+import System.Directory
+import System.FilePath
 import System.Locale
 import System.Time
 import System.Time.Parse
-import System.Directory
-import System.FilePath
 import Text.HTML.Download
 
 url = "http://hackage.haskell.org/packages/archive/log"
@@ -25,24 +25,29 @@
 png1 = "hackage-monthly.png"
 png2 = "hackage-daily.png"
 
+graph = barSpark -- { bgColor = rgb 0xEE 0xEE 0xEE }
+
 main :: IO ()
 main = do
     pwd <- getCurrentDirectory
     src <- openURL url
-    let dates    = catMaybes . sort . map parse . lines $ src
 
-    -- uploads per year
-    let  permonth = groupBy month dates
-    graph <- make ((barSpark {bgColor = rgb 0xee 0xee 0xee}) ) (map genericLength permonth)
-    savePngFile png1 graph
-    putStrLn $ "Wrote: " ++ pwd </> png1
+    let dates = catMaybes . sort . map parse . lines $ src
 
-    -- print uploads this month
-    let today = last dates
+    let today     = last dates
+        permonth  = groupBy month dates
         thismonth = groupBy day . filter (month today) $ dates
-    graph <- make ((barSpark {bgColor = rgb 0xee 0xee 0xee
-                             , limits = (0,20)} )) (map genericLength thismonth)
-    savePngFile png2 graph
+        monthlies = map genericLength permonth
+        dailies   = map genericLength thismonth
+        top       = maximum monthlies
+
+    graph1 <- make (graph { limits = (0,round top) })  monthlies
+    graph2 <- make (graph { limits = (0,20) }) dailies
+
+    savePngFile png1 graph1
+    savePngFile png2 graph2
+
+    putStrLn $ "Wrote: " ++ pwd </> png1
     putStrLn $ "Wrote: " ++ pwd </> png2
 
   where
diff --git a/hackage-sparks.cabal b/hackage-sparks.cabal
--- a/hackage-sparks.cabal
+++ b/hackage-sparks.cabal
@@ -1,5 +1,5 @@
 name:                hackage-sparks
-version:             0.1
+version:             0.2
 homepage:            http://code.haskell.org/~dons/code/hackage-sparks
 license:             BSD3
 license-file:        LICENSE
@@ -16,7 +16,6 @@
 
 executable hackagesparks
     main-is:         Main.hs
-
     if flag(small_base) 
         build-depends:   base >= 3, old-locale, old-time, directory
     else