module Villefort.Stats (genStats, makeTable )where import Villefort.Database import Control.Monad.IO.Class import Paths_Villefort import System.Random -- | Query to get average of subjects --getAvg :: IO (Maybe [String]) getAvg :: IO [[String]] getAvg = makeQuery "select avg(time), Subject from todo group by Subject order by avg(time) desc" -- | Query to get sum of subjects --getSum :: IO (Maybe [String]) getSum :: IO [[String]] getSum = makeQuery "select sum(time), Subject from todo group by Subject order by sum(time) desc" -- | Helper function to generate row of table makeRow :: [String] -> String makeRow x = "