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

import Prolog

import Hakyll
import Text.LaTeX.Base.Parser

compileHatex :: (StringConv s Text, Traversable t) => t s -> Compiler (t LaTeX)
compileHatex = traverse $ either (throwError . fmap messageString . errorMessages) pure . parseLaTeX . toSL

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