{-# LANGUAGE LambdaCase #-} {-# LANGUAGE OverloadedStrings #-} module Text.Seonbi.Html.Printer ( printHtml , printText , printXhtml ) where import Data.Char import Data.List import qualified Data.Text import Data.Text.Lazy import Data.Text.Lazy.Builder import HTMLEntities.Decoder import Text.Seonbi.Html.Entity import Text.Seonbi.Html.Tag -- $setup -- >>> :set -XOverloadedStrings -- >>> import Text.Seonbi.Html.Scanner -- >>> :set -interactive-print=Text.Show.Unicode.uprint -- | Print the list of 'HtmlEntity' into a lazy 'Text'. -- -- >>> let Done "" tokens = scanHtml "
Hello,
\nworld!
Hello,
\nworld!
Hello,
\nworld!
Hello,
\nworld!
Hello,
\nworld!
<>"&