{-# LANGUAGE FlexibleContexts #-} module Villefort.Stats (genStats, makeTable )where import Villefort.Database import Control.Monad.IO.Class import Control.Monad.Reader import Villefort.Definitions import Paths_Villefort import System.Random import Data.List -- | Helper function to generate row of table makeRow :: [String] -> String makeRow x = "