fix ylim

app/Pages/Admin/Admin.hs

@@ -87,15 +87,21 @@ maxValue :: [Int] -> Int
 maxValue (x:y:xs) | x >= y = maxValue (x:xs)
                   | otherwise = maxValue (y:xs)
 maxValue [x] = x
-maxValue [] = 0
+maxValue [] = 10
+
+minValue :: [Int] -> Int
+minValue (x:y:xs) | x <= y = minValue (x:xs)
+                  | otherwise = minValue (y:xs)
+minValue [x] = x
+minValue [] = 0
 
 metrics :: IO Html
 metrics = do
     visitsPlot <- do 
         (unique, aggregated) <- aggregatedVisits
         svg <- toSvg $
             bar [show x | x <- unique] aggregated %
-            ylim (head aggregated - 1) (maxValue aggregated) %
+            ylim (minValue aggregated) (maxValue aggregated) %
             title "Visits" %
             common
         return $ case svg of
@@ -106,7 +112,7 @@ metrics = do
         (unique, aggregated) <- aggregatedGuestbook
         svg <- toSvg $
             bar [show x | x <- unique] aggregated %
-            ylim (head aggregated - 1) (maxValue aggregated) %
+            ylim (minValue aggregated) (maxValue aggregated) %
             title "Guestbook" %
             common
         return $ case svg of
@@ -117,7 +123,7 @@ metrics = do
         (unique, aggregated) <- aggregatedLeaderboard
         svg <- toSvg $
             bar [show x | x <- unique] aggregated %
-            ylim (head aggregated - 1) (maxValue aggregated) %
+            ylim (minValue aggregated) (maxValue aggregated) %
             title "Snake Leaderboard" %
             common
         return $ case svg of