{-# LANGUAGE FlexibleContexts #-}
{-# LANGUAGE GADTs #-}
module Knit.Report.Input.Html.Blaze
(
addBlaze
)
where
import Knit.Report.Input.Html ( addLazyTextHtml )
import qualified Text.Blaze.Html as BH
import qualified Text.Blaze.Html.Renderer.Text as BH
import qualified Polysemy as P
import qualified Knit.Effect.Pandoc as PE
import qualified Knit.Effect.PandocMonad as PM
addBlaze
:: (PM.PandocEffects effs, P.Member PE.ToPandoc effs)
=> BH.Html
-> P.Sem effs ()
addBlaze :: Html -> Sem effs ()
addBlaze = Text -> Sem effs ()
forall (effs :: [(* -> *) -> * -> *]).
(PandocEffects effs, Member ToPandoc effs) =>
Text -> Sem effs ()
addLazyTextHtml (Text -> Sem effs ()) -> (Html -> Text) -> Html -> Sem effs ()
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Html -> Text
BH.renderHtml