module Hakyll.TeX.HaTeX
    ( hatexCompiler
    , compileHatex
    ) where

import Prolog

import Hakyll
import Hakyll.Error
-- import Hakyll.Parsec.Parsec
import Text.LaTeX.Base
import Text.LaTeX.Base.Parser

compileHatex :: (StringConv s StrictText, Traversable t, MonadError [String] m) => t s -> m (t LaTeX)
compileHatex = traverse $ liftErr . parseLaTeX . toSL

hatexCompiler :: Compiler (Item LaTeX)
hatexCompiler = getResourceLBS >>= compileHatex