{-# LANGUAGE FlexibleContexts #-}
{-# LANGUAGE GADTs #-}
module Knit.Report.Input.Latex
(
addLatex
)
where
import qualified Data.Text as T
import qualified Text.Pandoc as PA
import qualified Polysemy as P
import qualified Knit.Effect.Pandoc as PE
import qualified Knit.Effect.PandocMonad as PM
addLatex
:: (PM.PandocEffects effs, P.Member PE.ToPandoc effs)
=> T.Text
-> P.Sem effs ()
addLatex :: Text -> Sem effs ()
addLatex lText :: Text
lText = do
Requirement -> Sem effs ()
forall (effs :: [(* -> *) -> * -> *]).
Member ToPandoc effs =>
Requirement -> Sem effs ()
PE.require Requirement
PE.LatexSupport
PandocReadFormat Text -> ReaderOptions -> Text -> Sem effs ()
forall (effs :: [(* -> *) -> * -> *]) a.
Member ToPandoc effs =>
PandocReadFormat a -> ReaderOptions -> a -> Sem effs ()
PE.addFrom PandocReadFormat Text
PE.ReadLaTeX ReaderOptions
forall a. Default a => a
PA.def Text
lText