module Stats where import Database import Control.Monad.IO.Class data Query = Query String getAvg = makeQuery "select avg(time), Subject from todo group by Subject order by avg(time) desc" getSum = makeQuery "select sum(time), Subject from todo group by Subject order by sum(time) desc" makeRow x = "