{-# LANGUAGE FlexibleContexts #-} module Villefort.Log (genStats) where import Control.Monad.Reader import Villefort.Definitions import Villefort.Database import Villefort.Util import Paths_Villefort import System.Random -- | Generate stats genStats :: (MonadReader VConfig m, MonadIO m) => m String genStats = do subjects <- getSubjects gits <- mapM makeGithub subjects avg <- getAvg statsSum <- getSum x <- liftIO $ getDataFileName "templates/header" header <- liftIO (readFile x) return (header ++ table ++ (makeTable ["Subject","time"] avg) ++ "