prettyprinter-lucid-0.1.0.0: src/Prettyprinter/Lucid.hs

module Prettyprinter.Lucid where

import qualified Data.Text as T
import Lucid
import Prettyprinter.Render.Util.SimpleDocTree

renderHtml :: SimpleDocTree (Html () -> Html ()) -> Html ()
renderHtml =
    let go = \case
            STEmpty -> pure ()
            STChar c -> toHtml $ T.singleton c
            STText _ t -> toHtml t
            STLine i -> br_ [] >> toHtml (T.replicate i $ T.singleton ' ')
            STAnn ann content -> ann $ go content
            STConcat contents -> foldMap go contents
     in pre_ . go