{-# LANGUAGE FlexibleContexts #-}
module Villefort.Util where

import Control.Monad.Reader
import Villefort.Definitions
import Paths_Villefort

getHeader :: (MonadReader VConfig m, MonadIO m) => m String
getHeader = do
  headerPath <- liftIO $ getDataFileName "templates/header"
  liftIO $ readFile headerPath