{-# LANGUAGE FlexibleContexts #-} module Villefort.Util where import Control.Monad.Reader import Villefort.Definitions import Paths_Villefort import Data.List getHeader :: (MonadReader VConfig m, MonadIO m) => m String getHeader = do headerPath <- liftIO $ getDataFileName "templates/header" liftIO $ readFile headerPath -- | Helper function to generate row of table makeRow :: [String] -> String makeRow x = "